1.9 InfiniBows

/summon FallingSand ~ ~1 ~ {Block:stone,Time:1,Passengers:[{id:FallingSand,Block:redstone_block,Time:1,Passengers:[{id:FallingSand,Block:activator_rail,Time:1,Passengers:[{id:MinecartCommandBlock,Command:gamerule commandBlockOutput false},{id:MinecartCommandBlock,Command:"fill ~2 ~-3 ~-1 ~7 ~ ~1 stained_hardened_clay 0 hollow"},{id:MinecartCommandBlock,Command:"fill ~2 ~-2 ~-1 ~7 ~-1 ~1 stained_glass 0 replace stained_hardened_clay"},{id:MinecartCommandBlock,Command:"/gamerule logAdminCommands false"},{id:MinecartCommandBlock,Command:"/scoreboard objectives add hasArrow dummy"},{id:MinecartCommandBlock,Command:"/scoreboard objectives add infiniBow dummy"},{id:MinecartCommandBlock,Command:"/scoreboard objectives add infiniArrow dummy"},{id:MinecartCommandBlock,Command:"/tellraw @p [\"\",{\"text\":\"\\nInfiniBows R1 \",\"color\":\"gold\",\"bold\":true},{\"text\":\"By JustusFT\\n\",\"color\":\"aqua\",\"bold\":true},{\"text\":\"Minecraft Forum\",\"color\":\"blue\",\"underlined\":true,\"clickEvent\":{\"action\":\"change_page\",\"value\":\"http://www.minecraftforum.net/members/JustusFT/threads\"},\"bold\":false},{\"text\":\" | \",\"color\":\"white\",\"underlined\":false},{\"text\":\"Planet Minecraft\\n\",\"color\":\"blue\",\"underlined\":true,\"clickEvent\":{\"action\":\"open_url\",\"value\":\"http://www.planetminecraft.com/member/justusft/\"}}]"},{id:MinecartCommandBlock,Command:setblock ~1 ~-2 ~ wall_sign 4 replace {Text2:"{\\\"text\\\":\\\"Remove machine\\\",\\\"color\\\":\\\"dark_red\\\"}",Text3:"{\\\"text\\\":\\\"(Right-click)\\\",\\\"color\\\":\\\"black\\\"}",Text4:"{\\\"text\\\":\\\"\\\",\\\"clickEvent\\\":{\\\"action\\\":\\\"run_command\\\",\\\"value\\\":\\\"fill ~ ~-1 ~-1 ~6 ~2 ~1 air\\\"}}"}},{id:MinecartCommandBlock,Command:setblock ~1 ~-1 ~ wall_sign 4 replace {Text1:"{\\\"text\\\":\\\"InfiniBows\\\",\\\"color\\\":\\\"black\\\"}",Text2:"{\\\"text\\\":\\\"R1\\\",\\\"color\\\":\\\"black\\\"}",Text4:"{\\\"text\\\":\\\"By JustusFT\\\",\\\"color\\\":\\\"black\\\"}"}},{id:MinecartCommandBlock,Command:setblock ~3 ~-1 ~ chain_command_block 1 replace {auto:1,Command:"/clear @a[score_infiniBow=0] minecraft:arrow 0 1728 {display:{Lore:[\\\"Temporary arrow for infinity bows.\\\"]}}"}},{id:MinecartCommandBlock,Command:setblock ~4 ~-1 ~ chain_command_block 4 replace {auto:1,Command:"/entitydata @e[score_infiniArrow_min=1] {PickupDelay:0}"}},{id:MinecartCommandBlock,Command:setblock ~5 ~-1 ~ chain_command_block 4 replace {auto:1,Command:"/scoreboard players set @e[type=Item] infiniArrow 1 {Item:{tag:{display:{Lore:[\\\"Temporary arrow for infinity bows.\\\"]}}}}"}},{id:MinecartCommandBlock,Command:setblock ~6 ~-1 ~ chain_command_block 4 replace {auto:1,Command:"/give @a[score_hasArrow=0,score_infiniBow_min=1] minecraft:arrow 1 0 {display:{Name:\\\"InfiniArrow\\\",Lore:[\\\"Temporary arrow for infinity bows.\\\"]}}"}},{id:MinecartCommandBlock,Command:setblock ~6 ~-2 ~ chain_command_block 1 replace {auto:1,Command:"/scoreboard players set @a hasArrow 1 {Inventory:[{id:\\\"minecraft:arrow\\\"}]}"}},{id:MinecartCommandBlock,Command:setblock ~5 ~-2 ~ chain_command_block 5 replace {auto:1,Command:"/scoreboard players set @a hasArrow 0"}},{id:MinecartCommandBlock,Command:setblock ~4 ~-2 ~ chain_command_block 5 replace {auto:1,Command:"/scoreboard players set @a infiniBow 1 {SelectedItem:{tag:{ench:[{id:51s,lvl:1s}]}}}"}},{id:MinecartCommandBlock,Command:setblock ~3 ~-2 ~ repeating_command_block 5 replace {auto:1,Command:"/scoreboard players set @a infiniBow 0"}},{id:MinecartCommandBlock,Command:setblock ~ ~ ~1 command_block 0 replace {Command:fill ~ ~-3 ~-1 ~ ~ ~ air}},{id:MinecartCommandBlock,Command:setblock ~ ~-1 ~1 redstone_block},{id:MinecartCommandBlock,Command:kill @e[type=MinecartCommandBlock,r=1]}]}]}]}