One Command Creation - Flying Flames

/summon FallingSand ~ ~1 ~ {Block:redstone_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~ ~ ~1 ~ ~-22 ~1 redstone_block},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~ ~2 ~ ~ ~-23 ~1 air},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~3 ~-10 ~ {Block:command_block,Time:1,TileEntityData:{Command:fill ~ ~ ~-1 ~6 ~ ~1 quartz_block}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~4 ~-15 ~-1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/effect @e[type=Bat,name=FireSummoner] invisibility 999999 0 false},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~5 ~-14 ~-1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/execute @e[type=Bat,name=FireSummoner] ~ ~ ~ detect ~ ~-1 ~ air 0 setblock ~ ~-1 ~ fire 0 replace},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~6 ~-13 ~-1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/execute @e[type=Bat,name=FireSummoner,score_KillTime_min=1200] ~ ~ ~ kill @e[type=Bat,name=FireSummoner,score_KillTime_min=1200]},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~7 ~-12 ~-1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/scoreboard players add @e[type=Bat,name=FireSummoner] KillTime 1},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~8 ~-11 ~-1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/scoreboard objectives setdisplay sidebar KillTime},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~9 ~-10 ~-1 {Block:quartz_block,Time:1,}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~4 ~-10 ~1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/execute @e[type=Bat,name=FireSummoner] ~ ~ ~ particle flame ~ ~ ~ 0 0 0 0.0 0 force},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~5 ~-9 ~1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/replaceitem entity @p slot.hotbar.0 spawn_egg 1 65 {display:{Name:"FireSummoner",Lore:[]},ench:[{id:51,lvl:1}],HideFlags:1}},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~6 ~-8 ~1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/entitydata @e[type=Bat,name=FireSummoner] {Invulnerable:1b,Silent:1b,ActiveEffects:[{Id:14,Amplifier:0,Duration:999999,ShowParticles:1b,Ambient:0b},{Id:2,Amplifier:2,Duration:999999,ShowParticles:0b,Ambient:0b}]}},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~7 ~-7 ~1 {Block:quartz_block,Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:/scoreboard objectives add KillTime dummy KillTime},Time:1,}}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~8 ~-6 ~1 {Block:quartz_block,Time:1,}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:summon FallingSand ~9 ~-5 ~1 {Block:quartz_block,Time:1,}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:gamerule commandBlockOutput false},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~3 ~-5 ~ ~9 ~-5 ~ redstone_block},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:setblock ~3 ~-4 ~-1 command_block 0 replace {Command:fill ~ ~ ~1 ~6 ~0 ~1 stone 0 replace redstone_block}},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:setblock ~3 ~-3 ~1 command_block 0 replace {Command:fill ~ ~ ~-1 ~6 ~0 ~-1 redstone_block 0 replace stone}},Time:1,Riding:{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~1 ~-2 ~ wall_sign 4 replace {Text1:"{text:'===============',clickEvent:{action:run_command,value:\\"/fill ~ ~-1 ~-2 ~9 ~2 ~2 air 0 replace\\"},bold:true,color:black}",Text2:"{text:'DESTROY',bold:true,color:dark_red}",Text3:"{text:'MACHINE',bold:true,color:dark_red}",Text4:"{text:'===============',bold:true,color:black}"}},Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~2 ~-1 ~-2 ~10 ~-1 ~2 glass 0 replace quartz_block},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~3 ~ ~-1 ~9 ~3 ~1 air 0 replace quartz_block},Time:1,Riding:{id:FallingSand,Block:command_block,TileEntityData:{Command:fill ~2 ~ ~-2 ~10 ~2 ~2 quartz_block},Time:1,Riding:{id:FallingSand,Block:stone,Time:1}}}}}}}}}}}}}}}}}}}}}}}}}