Code (cpp):
/summon FallingSand ~ ~1 ~ {Block:redstone_block,Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:/fill ~ ~0 ~1 ~ ~-30 ~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 ~ ~ ~-34 ~1 air}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setworldspawn ~ ~ ~},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:tellraw @a [{text:"Explosive Arrow Module",color:"blue"},{italic:true,color:gray,text:" - By Mlakuss\n"},{color:"white",text:"Craft and place an Anvil\nThrow one block of TNT and one arrow on top of it\n???\nProfit!"}]},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:scoreboard objectives add lifeTime dummy Arrow Life Time},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:scoreboard objectives add explArrow dummy Explosive Arrow},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~3 ~-23 ~-1 command_block 0 replace {Command:execute @e[name=craftexplArrow,score_explArrow_min=9,score_explArrow=9] ~ ~ ~ summon Item ~ ~0.25 ~ {PickupDelay:20s,Item:{id:"minecraft:fire_charge",Count:1b,tag:{explosive:true,ench:[],display:{Name:"Explosive Shot",Lore:["","While in your inventory:","Your arrows are explosive arrows"]}}}}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~3 ~-22 ~1 command_block 0 replace {Command:execute @e[name=craftexplArrow,score_explArrow_min=10] ~ ~ ~ kill @e[name=craftexplArrow,r=1]}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~4 ~-21 ~-1 command_block 0 replace {Command:entitydata @e[type=Item,score_explArrow_min=1]{Motion:[0.00f,0.00f,0.00f]}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~4 ~-20 ~1 command_block 0 replace {Command:execute @e[name=craftexplArrow,score_explArrow_min=8,score_explArrow=9] ~ ~ ~ particle angryVillager ~ ~ ~ 0.20.20.212}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~5 ~-19 ~-1 command_block 0 replace {Command:execute @e[name=craftexplArrow,score_explArrow_min=6,score_explArrow=6] ~ ~ ~ kill @e[score_explArrow_min=1,score_explArrow=5,r=1]}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~5 ~-18 ~1 command_block 0 replace {Command:scoreboard players add @e[name=craftexplArrow] explArrow 1}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~6 ~-17 ~-1 command_block 0 replace {Command:scoreboard players remove @e[type=Player,score_explArrow_min=1] explArrow 1}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~6 ~-16 ~1 command_block 0 replace {Command:execute @e[type=Item,score_explArrow_min=1,score_explArrow=2] ~ ~ ~ detect ~ ~-1 ~ minecraft:anvil -1 execute @e[type=Item,score_explArrow_min=4,score_explArrow=5,r=0] ~ ~ ~ summon ArmorStand ~ ~ ~ {CustomName:"craftexplArrow",Invisible:true,Marker:true,Invulnerable:true,DisabledSlots:1}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~7 ~-15 ~-1 command_block 0 replace {Command:execute @e[type=Item] ~ ~ ~ detect ~ ~-1 ~ minecraft:anvil -1 scoreboard players set @e[type=Item,r=0] explArrow 2{Item:{id:"minecraft:arrow",Count:1b}}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~7 ~-14 ~1 command_block 0 replace {Command:scoreboard players set @a explArrow 5{SelectedItem:{id:"minecraft:bow"},Inventory:[{id:"minecraft:fire_charge",tag:{explosive:true}}]}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~8 ~-13 ~-1 command_block 0 replace {Command:execute @e[type=Item] ~ ~ ~ detect ~ ~-1 ~ minecraft:anvil -1 scoreboard players set @e[type=Item,r=0] explArrow 5{Item:{id:"minecraft:tnt",Count:1b}}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~8 ~-12 ~1 command_block 0 replace {Command:execute @a[score_explArrow_min=1] ~ ~ ~ scoreboard players set @e[type=Arrow,r=5,score_lifeTime=1] explArrow -5}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~9 ~-11 ~-1 command_block 0 replace {Command:scoreboard players remove @e[type=Arrow,score_explArrow=-1] explArrow 1{inGround:true}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~9 ~-10 ~1 command_block 0 replace {Command:scoreboard players add @e[type=Arrow] lifeTime 1}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~10 ~-9 ~-1 command_block 0 replace {Command:execute @e[type=Arrow,score_explArrow=-1] ~ ~ ~ particle largesmoke ~ ~ ~ 00005 force}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~10 ~-8 ~1 command_block 0 replace {Command:execute @e[type=Arrow,score_explArrow=-15,score_explArrow_min=-15] ~ ~ ~ summon Creeper ~ ~ ~ {Fuse:0s,ignited:true}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~11 ~-7 ~-1 command_block 0 replace {Command:execute @e[type=Arrow,score_lifeTime=2,score_lifeTime_min=2,score_explArrow=-1] ~ ~ ~ clear @p[score_explArrow_min=1] minecraft:fire_charge 01{explosive:true}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~11 ~-6 ~1 command_block 0 replace {Command:kill @e[type=Arrow,score_explArrow=-16,score_explArrow_min=-16]}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~12 ~-5 ~-1 command_block 0 replace {Command:entitydata @e[type=Arrow,score_explArrow=-1]{damage:4.5,pickup:0}}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~12 ~-4 ~1 command_block 0 replace {Command:execute @e[name=craftexplArrow,score_explArrow_min=7,score_explArrow=7] ~ ~ ~ playsound random.anvil_use @a ~ ~ ~ 1.01.5}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:gamerule commandBlockOutput false},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"fill ~2 ~-2 ~ ~12 ~-2 ~ redstone_block"},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"setblock ~2 ~-1 ~-1 command_block 0 replace {Command:/fill ~ ~ ~1 ~11 ~ ~1 stone 0 replace redstone_block}"},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"setblock ~2 ~ ~1 command_block 0 replace {Command:/fill ~ ~ ~-1 ~11 ~ ~-1 redstone_block 0 replace stone}"},Time:1,Riding:{id:"FallingSand",Block:stone,Time:1}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}