Quicksand Command - by ItsZender

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:setblock ~4 ~-2 ~ chain_command_block 5 replace {auto:1,Command:"/execute @a ~ ~ ~ detect ~ ~1 ~ sand 0 execute @a[c=1] ~ ~ ~ detect ~ ~2 ~ grass_path 0 effect @a[c=1] wither 1 1"}},{id:MinecartCommandBlock,Command:setblock ~3 ~-2 ~ repeating_command_block 5 replace {auto:1,Command:"/execute @e ~ ~ ~ detect ~ ~-0.1 ~ grass_path 0 execute @e[c=1] ~ ~ ~ detect ~ ~-1.1 ~ sand 0 tp @e[c=1] ~ ~-3 ~"}},{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]}]}]}]}