Alter Compass | Minecraft | 1 Command

/summon falling_block ~ ~1 ~ {Block:"redstone_block",Time:3,Passengers:[{id:"falling_block",Block:"activator_rail",Time:3,Passengers:[{id:"commandblock_minecart",Command:/gamerule commandBlockOutput false},{id:"commandblock_minecart",Command:/scoreboard objectives add PackTimer dummy},{id:"commandblock_minecart",Command:/scoreboard objectives add AlterComCraft dummy},{id:"commandblock_minecart",Command:/fill ~2 ~-2 ~-1 ~6 ~4 ~1 stained_hardened_clay 14 hollow},{id:"commandblock_minecart",Command:/fill ~2 ~-1 ~-1 ~6 ~3 ~1 stained_glass 15 replace stained_hardened_clay},{id:"commandblock_minecart",Command:/summon falling_block ~3 ~-1 ~ {Block:repeating_command_block,Data:1,TileEntityData:{auto:1b,Command:/scoreboard players add AlterCompass PackTimer 1},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:1,TileEntityData:{Command:/scoreboard players test AlterCompass PackTimer 40},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:9,TileEntityData:{Command:/scoreboard players set AlterCompass PackTimer 0},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:repeating_command_block,Data:9,TileEntityData:{auto:1b,Command:/scoreboard players set @e[type=item] AlterComCraft 1 {Item:{id:"minecraft:compass",Count:3b},OnGround:1b}},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:5,TileEntityData:{Command:/scoreboard players set @e[type=item] AlterComCraft 2 {Item:{id:"minecraft:bed",Count:1b},OnGround:1b}},Time:1,DropItem:0}]}]}]}]}},{id:"commandblock_minecart",Command:/summon falling_block ~4 ~-1 ~ {Block:chain_command_block,Data:5,TileEntityData:{Command:/scoreboard players tag @a add ActiveAlterCom {Inventory:[{Slot:-106b,tag:{AlterCompass:1b}}]}},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:0,TileEntityData:{Command:/scoreboard players tag @a remove ActiveAlterCom},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:0,TileEntityData:{Command:/execute @e[score_AlterComCraft_min=3,score_AlterComCraft=3] ~ ~ ~ kill @e[dx=0,score_AlterComCraft_min=2,score_AlterComCraft=3,c=2]},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:0,TileEntityData:{Command:/execute @e[score_AlterComCraft_min=3,score_AlterComCraft=3] ~ ~ ~ summon item ~ ~ ~ {Item:{id:"minecraft:compass",Count:1b,tag:{AlterCompass:1b,ench:[{id:-1}],display:{LocName:"Alter Compass",Lore:["Set spawn","wherever"]}}},Motion:[0.0,0.3,0.0]}},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:0,TileEntityData:{Command:/execute @e[score_AlterComCraft_min=2,score_AlterComCraft=2] ~ ~ ~ scoreboard players set @e[dx=0,score_AlterComCraft_min=1,score_AlterComCraft=1] AlterComCraft 3},Time:1,DropItem:0}]}]}]}]}},{id:"commandblock_minecart",Command:/summon falling_block ~5 ~-1 ~ {Block:chain_command_block,Data:1,TileEntityData:{Command:/clear @a[tag=ActiveAlterCom] minecraft:compass 0 1 {AlterCompass:1b}},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:chain_command_block,Data:1,TileEntityData:{Command:/execute @a[tag=ActiveAlterCom] ~ ~ ~ /spawnpoint @p ~ ~ ~},Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:stained_hardened_clay,Data:14,Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:stained_hardened_clay,Data:14,Time:1,DropItem:0,Passengers:[{id:"falling_block",Block:stained_hardened_clay,Data:14,Time:1,DropItem:0}]}]}]}]}},{id:"commandblock_minecart",Command:setblock ~1 ~1 ~ wall_sign 4 0 {Text1:"{\\\"text\\\":\\\"click here\\\",\\\"color\\\":\\\"dark_red\\\",\\\"clickEvent\\\":{\\\"action\\\":\\\"run_command\\\",\\\"value\\\":\\\"/particle explode ~3.5 ~-.5 ~ 1.25 2 1 .01 75 normal\\\"}}",Text2:"{\\\"text\\\":\\\"to remove\\\",\\\"color\\\":\\\"dark_red\\\"}",Text3:"{\\\"text\\\":\\\"this machine\\\",\\\"color\\\":\\\"dark_red\\\"}",Text4:"{\\\"text\\\":\\\"\\\",\\\"clickEvent\\\":{\\\"action\\\":\\\"run_command\\\",\\\"value\\\":\\\"fill ~ ~-3 ~-1 ~5 ~3 ~1 air\\\"}}"}},{id:"commandblock_minecart",Command:/setblock ~ ~1 ~ command_block 1 0 {auto:1b,Command:fill ~ ~ ~ ~ ~-2 ~ air}},{id:"commandblock_minecart",Command:kill @e[r=2,type=commandblock_minecart]}]}]}