The Black Smoke Monster mob in Minecraft, with one command

/summon FallingSand ~ ~1 ~ {Block:redstone_block,Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"/fill ~ ~0 ~1 ~ ~-14 ~1 redstone_block"},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~ ~3 ~1 stone},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~ ~4 ~ command_block 0 replace {Command:fill ~ ~2 ~ ~ ~-18 ~1 air}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-13 ~3 command_block 0 1 {Command:/execute @e[type=Bat,name=BSM] ~ ~ ~ /playsound mob.enderdragon.growl @p}"},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /summon Item ~3 ~-11 ~ "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-11 ~-2 command_block 0 1 {Command:/execute @p ~ ~ ~ execute @e[type=Bat,name=BSM,r=10] ~ ~ ~ /effect @a 20 3 1 true} "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-10 ~-1 unpowered_comparator 0 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-9 ~2 command_block 0 1 {Command:/execute @p ~ ~ ~ execute @e[type=Bat,name=BSM,r=20] ~ ~ ~ /effect @a 2 3 1 true} "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-8 ~1 unpowered_comparator 2 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~6 ~-7 ~ command_block 0 1 {Command:/execute @p ~ ~ ~ execute @e[name=BSM,type=Bat,r=3] ~ ~ ~ kill @p} "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~5 ~-6 ~ unpowered_comparator 1 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~4 ~-5 ~ hopper 4 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~3 ~-4 ~ hopper 5 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:" /setblock ~2 ~-3 ~ unpowered_comparator 3 "},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"/setblock ~1 ~-2 ~ command_block 0 1 {Command:/execute @e[name=BSM,type=Bat] ~ ~ ~ /particle largesmoke ~ ~ ~ 1 1 1 0.01 1000 force} "},Time:1,Riding:{id:"FallingSand",Block:stone,Time:1}}}}}}}}}}}}}}}}}