easy a platformer 1

Instructions: ===================japan==================\n日本語は下\n【English】\nThis game is controlled by the arrow keys. When you reach the right end of the stage, you can go to the next stage. Repeat this process to move forward. However, if you fall into a hole or hit a needle, you will have to start over from the beginning of the stage you are in. Please be careful. Have fun!\nI want you to press ♥ and ★. It will encourage me in the future and I am very happy!\n【日本語】\nこのゲームは、矢印キーで操作します。ステージの右端に到達すると、次のステージに行くことができます。これを繰り返すことで先に進むことができます。ただし、穴に落ちたり、針に当たったりすると、今いるステージの最初からやり直しになります。気をつけてくださいね。楽しんでくださいね。♥と★を押してほしい。将来の励みになるし、とても幸せな気持ちになれる。

@Stage\n\nwhen flag clicked\nforever\n    play sound [Sunshine v] until done\nend\n\n@Sprite2\n\nwhen flag clicked\nchange [ghost v] effect by (100)\n\n@Platforms\n\nwhen I receive [green flag v]\nshow\n\nwhen I receive [tick v]\nPosition ((X) - (Scroll X)) ((Y) - (Scroll Y))\n\nwhen I receive [setup v]\nset [y v] to [0]\nset [x v] to [0]\nif <(Level) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\n    Clone at x: [360] y: [0]\nelse\n    if <(Level) = [2]> then\n        switch costume to (level 2 1 v)\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n        Clone at x: [360] y: [0]\n    else\n        if <(Level) = [3]> then\n            switch costume to (level 3 1 v)\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n            Clone at x: [360] y: [0]\n        else\n            if <(Level) = [4]> then\n                switch costume to (level 4 1 v)\n                Clone at x: [360] y: [0]\n                Clone at x: [360] y: [0]\n                Clone at x: [360] y: [0]\n                Clone at x: [360] y: [0]\n                Clone at x: [360] y: [0]\n                Clone at x: [360] y: [0]\n            else\n                if <(Level) = [5]> then\n                    switch costume to (level done! v)\n                    Clone at x: [360] y: [0]\n                end\n            end\n        end\n    end\nend\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\ncreate clone of (_myself_ v)\n\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\ncreate clone of (_myself_ v)\nchange [x v] by (360)\nnext costume\n\nClone at x: [360] y: [0]\n\nClone at x: [360] y: [0]\nClone at x: [360] y: [0]\nClone at x: [360] y: [0]\nClone at x: [360] y: [0]\nClone at x: [360] y: [0]\n\nClone at x: [360] y: [0]\n\n\n\n@Player\n\nwhen flag clicked\nforever\n    play sound [Sunshine v] until done\nend\n\nwhen flag clicked\nforever\n    play sound [Sunshine v] until done\nend\n\nwhen [timer v] > (my variable)\nhide\n\nwhen flag clicked\nreset timer\nset [my variable v] to [0]\nforever\n    set [my variable v] to ((timer) + (0.1))\nend\n\nwhen flag clicked\nbroadcast (Green flag v) and wait\nbroadcast (Play game v) and wait\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\nwhen I receive [play game v]\nset [level v] to [1]\nforever\n    broadcast (Reset v) and wait\n    broadcast (Setup v) and wait\n    Game on\n    repeat until <(EXIT) > []>\n        Tick\n        broadcast (tick v) and wait\n    end\n    if <(EXIT) = [win]> then\n        Game - WIN\n    else\n        Game - DIE\n    end\nend\n\ndefine Game on\npoint in direction (90)\nset size to (100) %\nset [in air v] to [0]\nset [sy v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [exit v] to []\nshow\n\ndefine Tick\nif <key (left arrow v) pressed?> then\n    Change Player x by [-8]\nend\nif <key (right arrow v) pressed?> then\n    Change Player x by [8]\nend\nif <key (up arrow v) pressed?> then\n    if <(in air) < [4]> then\n        set [sy v] to [16]\n    end\nend\nchange [sy v] by (-2)\nChange Player y by (sy)\nset [scroll x v] to (X)\nPosition\nif <(Y) < [-180]> then\n    set [exit v] to [die]\nend\n\ndefine Change Player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nTest - DIE\nrepeat until <not <touching (platforms v)?>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    Position\n    set [sy v] to [0]\nend\n\ndefine Position\ngo to x: ((X) - (Scroll X)) y: ((Y) - (Scroll Y))\n\ndefine Change Player x by (sx)\nchange [x v] by (sx)\nPosition\nTest - DIE\nif <touching (platforms v)?> then\n    repeat (20)\n        change [y v] by (1)\n        Position\n        if <not <touching (platforms v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-20)\n    repeat until <not <touching (platforms v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        Position\n    end\nend\n\nchange [x v] by (-8)\n\nchange [x v] by (8)\n\nset [sy v] to [0]\n\ndefine Game - DIE\nset [exit v] to []\nrepeat (5)\n    change size by (20)\n    wait (0.1) seconds\n    change size by (-20)\n    wait (0.1) seconds\nend\nset size to (100) %\nhide\nwait (0.5) seconds\n\nshow\n\ndefine Test - DIE\nif <touching color (#ff0000)?> then\n    set [exit v] to [die]\nend\n\ndefine Game - WIN\ngo to (exit v)\nrepeat (50)\n    turn right (15) degrees\n    change size by (-1)\nend\nhide\nchange [level v] by (1)\npoint in direction (90)\nwait (1) seconds\n\n@Exit\n\nwhen I receive [green flag v]\nshow\n\nwhen I receive [tick v]\nPosition ((X) - (Scroll X)) ((Y) - (Scroll Y))\nif <touching (player v)?> then\n    set [exit v] to [win]\nend\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\n\ndefine Clone at x: (x) y: (y)\nset [y v] to (y)\nset [x v] to (x)\n\ncreate clone of (_myself_ v)\n\nwhen I receive [setup v]\nset [y v] to [0]\nset [x v] to [0]\nif <(Level) = [1]> then\n    Clone at x: [3224] y: [15]\nelse\n    if <(Level) = [2]> then\n        Clone at x: [3233] y: [132]\n    else\n        if <(Level) = [3]> then\n            Clone at x: [3274] y: [72]\n        else\n            if <(Level) = [4]> then\n                Clone at x: [1778] y: [53]\n            else\n                if <<(Level) > [5]> or <(Level) = [5]>> then\n                    Clone at x: [1778] y: [53]\n                end\n            end\n        end\n    end\nend\n\nhide\n\nset [x v] to [-99999]\n\nClone at x: [1778] y: [53]\n\n