Better Apples in Vanilla Minecraft!

/summon FallingSand ~ ~1 ~ {Block:redstone_block,Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:/fill ~ ~0 ~1 ~ ~-12 ~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 ~ ~ ~-16 ~1 air}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~3 ~-9 ~-1 command_block 0 replace {Command:scoreboard objectives add eatApple stat.useItem.minecraft.apple}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~3 ~-8 ~1 command_block 0 replace {Command:scoreboard objectives add start dummy}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~4 ~-7 ~-1 command_block 0 replace {Command:scoreboard players add @a start 1}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~4 ~-6 ~1 command_block 0 replace {Command:/tellraw @a[score_start=1,score_start_min=1] ["",{"text":"Better Apples: by LapisUniverse\nThis Vanilla Mod Was Made by LapisUniverse.\nCredit him if you use this.\n","color":"yellow","bold":"true"},{"text":"http://www.YouTube.com/LapisUniverse","color":"aqua","bold":"true","clickEvent":{"action":"open_url","value":"http://www.YouTube.com/LapisUniverse"}}]}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~5 ~-5 ~-1 command_block 0 replace {Command:/effect @a[score_eatApple=1,score_eatApple_min=1] minecraft:regeneration 5 1}},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:setblock ~5 ~-4 ~1 command_block 0 replace {Command:scoreboard players set @a[score_eatApple=1,score_eatApple_min=1] eatApple 0}},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 ~ ~5 ~-2 ~ redstone_block"},Time:1,Riding:{id:"FallingSand",Block:command_block,TileEntityData:{Command:"setblock ~2 ~-1 ~-1 command_block 0 replace {Command:/fill ~ ~ ~1 ~4 ~ ~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 ~4 ~ ~-1 redstone_block 0 replace stone}"},Time:1,Riding:{id:"FallingSand",Block:stone,Time:1}}}}}}}}}}}}}}}