Whirlpools One Command (Raw)

INIT:scoreboard objectives add SSNWhirlElytra dummy
INIT:scoreboard objectives add SSNWhirlLife dummy
INIT:scoreboard objectives add SSNWhirlTime dummy
INIT:scoreboard objectives add SSNWhirlCraft dummy
/scoreboard players add @e[tag=SSNWhirlpool] SSNWhirlTime 1
/scoreboard players set @e[score_SSNWhirlTime_min=50] SSNWhirlTime 0
/execute @e[score_SSNWhirlTime=1,score_SSNWhirlTime_min=1] ~ ~ ~ summon armor_stand ~ ~100 ~ {Tags:[SSNWhirlStand],Marker:1,ArmorItems:[{},{},{id:"minecraft:elytra",Count:1b,Damage:0s},{}],FallFlying:1b}
/scoreboard players add @e[tag=SSNWhirlStand] SSNWhirlElytra 1
/kill @e[score_SSNWhirlElytra_min=200]
tp @e[tag=SSNWhirlStand] ~ ~0.1 ~ ~5 0
execute @e[tag=SSNWhirlStand] ~ ~-101 ~ /particle fallingdust ~ ~-1 ~ 0 1 0 0.5 5 force @a 22
execute @e[tag=SSNWhirlStand] ~ ~-101 ~ fill ~3 ~3 ~3 ~-3 ~-3 ~-3 air 0 replace water
execute @e[tag=SSNWhirlStand] ~ ~-100 ~ /tp @e[r=6,type=!armor_stand] ~ ~-0.5 ~ ~60 ~
execute @e[tag=SSNWhirlpool] ~ ~-7 ~ /tp @e[r=10,type=!armor_stand] ~ ~0.2 ~
execute @e[tag=SSNWhirlpool] ~ ~-7 ~ /effect @e[r=10,type=!armor_stand] wither 3 1 true
/scoreboard players add @e[tag=SSNWhirlpool] SSNWhirlLife 1
kill @e[score_SSNWhirlLife_min=72000]
/scoreboard players set @e[type=item] SSNWhirlCraft 1 {Item:{id:"minecraft:water_bucket",Count:1b,Damage:0s}}
/scoreboard players set @e[type=item] SSNWhirlCraft 2 {Item:{id:"minecraft:ender_eye",Count:16b,Damage:0s}}
execute @e[score_SSNWhirlCraft=1] ~ ~ ~ execute @e[r=1,score_SSNWhirlCraft_min=2] ~ ~ ~ /summon item ~ ~ ~ {Item:{id:spawn_egg,Damage:94,Count:1b,tag:{display:{Name:"Spawn Whirlpool",Lore:["Right-click under a block on the surface of a large body of water (you might get caught in it)", "OR", "Drop the item from above into a large body of water to be safe when it spawns", "NOTE: Whirlpool must be spawned inside a STILL water block"]},EntityTag:{id:"minecraft:squid",Tags:["SSNWhirlSpawn"]}}}}
execute @e[score_SSNWhirlCraft=1] ~ ~ ~ execute @e[r=1,score_SSNWhirlCraft_min=2] ~ ~ ~ particle splash ~ ~ ~ 0 0 0 0 100 force @a
execute @e[score_SSNWhirlCraft=1] ~ ~ ~ execute @e[r=1,score_SSNWhirlCraft_min=2] ~ ~ ~ kill @e[r=1,type=item,score_SSNWhirlCraft_min=1]
execute @e[tag=SSNWhirlSpawn] ~ ~ ~ summon armor_stand ~ ~ ~ {Marker:1,Invisible:1,Tags:["SSNWhirlpool"],PersistenceRequired:1,NoGravity:1}
execute @e[tag=SSNWhirlSpawn] ~ ~ ~ particle splash ~ ~ ~ 1 1 1 0 5000 force @a
kill @e[tag=SSNWhirlSpawn]
/scoreboard players tag @e[type=item] add SSNWhirlDrop {Item:{id:"minecraft:spawn_egg",Count:1b,tag:{display:{Name:"Spawn Whirlpool",Lore:["Right-click under a block on the surface of a large body of water (you might get caught in it)", "OR", "Drop the item from above into a large body of water to be safe when it spawns", "NOTE: Whirlpool must be spawned inside a STILL water block"]}}}}
execute @e[tag=SSNWhirlDrop] ~ ~ ~ detect ~ ~ ~ water 0 summon armor_stand ~ ~2 ~ {Marker:1,Invisible:1,Tags:["SSNWhirlpool"],PersistenceRequired:1,NoGravity:1}
execute @e[tag=SSNWhirlDrop] ~ ~ ~ detect ~ ~ ~ water 0 kill @e[tag=SSNWhirlDrop,r=0,c=1]