Colourless platformer

Instructions: This is for @chipm0nk platformer contest\nYou control the small tiny player with the arrow keys\nLove fave and follow\n@TimMcCool for the love and fave detecter\nThere are 9 levels

@Stage\n\nwhen flag clicked\nforever\n    play sound [Dreams - Lost Sky v] until done\nend\n\nwhen flag clicked\nforever\n    switch backdrop to (level)\nend\n\n@player\n\nwhen flag clicked\nforever\n    Main player script\nend\n\nwhen flag clicked\nforever\n    Eye script\nend\n\ndefine Eye script\nif <not <key (any v) pressed?>> then\n    switch costume to (costume3 v)\nend\nif <key (right arrow v) pressed?> then\n    switch costume to (costume1 v)\nend\nif <key (left arrow v) pressed?> then\n    switch costume to (costume2 v)\nend\n\ndefine Main player script\nforever\n    go [forward v] (1) layers\n    change [vertical variable v] by (-0.7)\n    if <key (right arrow v) pressed?> then\n        change [horizontal varabile v] by (.8)\n    end\n    if <key (left arrow v) pressed?> then\n        change [horizontal varabile v] by (-.8)\n    end\n    set [horizontal varabile v] to ((Horizontal varabile) * (0.9))\n    change x by (Horizontal varabile)\n    if <touching (platforms v)?> then\n        change y by (1)\n        if <touching (platforms v)?> then\n            change y by (1)\n            if <touching (platforms v)?> then\n                change y by (1)\n                if <touching (platforms v)?> then\n                    change y by (1)\n                    if <touching (platforms v)?> then\n                        change y by (1)\n                        if <touching (platforms v)?> then\n                            change y by (1)\n                            if <touching (platforms v)?> then\n                                change y by (-6)\n                                change x by ((Horizontal varabile) * (-1))\n                                set [horizontal varabile v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (Vertical variable)\n    if <touching (platforms v)?> then\n        change y by ((Vertical variable) * (-1))\n        set [vertical variable v] to [0]\n    end\n    change y by (-1)\n    if <<touching (platforms v)?> and <key (up arrow v) pressed?>> then\n        set [vertical variable v] to [12]\n    end\n    change y by (1)\n    if <(x position) > [235]> then\n        change [level v] by (1)\n        Spawn \n        set [horizontal varabile v] to [0]\n        set [vertical variable v] to [0]\n    end\n    if <touching (danger v)?> then\n        Spawn \n    end\nend\n\ndefine set up\nset [level v] to [1]\ngo to [front v] layer\nset size to (60) %\nset [horizontal varabile v] to [0]\nset [vertical variable v] to [0]\n\nwhen flag clicked\nset up\n\ndefine Spawn \ngo to x: (-200) y: (-100)\nset [horizontal varabile v] to [0]\nset [vertical variable v] to [0]\n\nwhen flag clicked\nSpawn \n\n@Platforms\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\n@danger\n\nwhen flag clicked\nforever\n    switch costume to (level)\n    go to [back v] layer\n    set [brightness v] effect to (0)\nend\n\n@love and fave detector\n\nwhen flag clicked\nhide\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [clone id v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(LOVED__) = [1]> and <(FAVED___) = [1]>>\nwait (1) seconds\nshow\ngo to x: (0) y: (-100)\nset [timer v] to [0]\nswitch costume to (pick random (1) to (4))\nset [ghost v] effect to (100)\nrepeat until <(Timer) > [3.5]>\n    change y by ((y position) / (-15))\n    change [ghost v] effect by (-3)\nend\nset [timer v] to [0]\nrepeat until <(Timer) > [3.5]>\n    change y by (((y position) - (-100)) / (-15))\n    change [ghost v] effect by (10)\nend\n\nwhen I start as a clone\nif <(clone id) = [0]> then\n    go to x: (-15) y: (0)\n    set [loved__ v] to [0]\n    switch costume to (love v)\n    forever\n        set [love? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [loved__ v] to [1]\n        end\n    end\nend\nif <(clone id) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [faved___ v] to [0]\n    forever\n        set [fav v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [faved___ v] to [1]\n        end\n    end\nend\n\nwhen flag clicked\nset [timer v] to [0]\nforever\n    change [timer v] by (.097)\nend\n\n@thumbnail\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n@Words\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\n