Desert Platformer

Instructions: 日本語は下\nUsage\nMove with left and right arrow keys\nJump with the up arrow key\nA strong wind is blowing at Platformer this time.\n\n使い方\n左、右向き矢印キーで移動、\n上向き矢印キーでジャンプできます。\n今回のPlatformeは強い風が吹いています。\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n影凄いな…\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n隠し要素あるけど気づいたらコメントで教えてコケ

@Stage\n\nwhen flag clicked\nbroadcast (Let's go v)\nforever\n    play sound [3rd v] until done\nend\n\n@Player\n\nwhen I receive [let's go v]\npoint in direction (90)\nshow\n初期位置\nset [stage v] to [1]\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<(mouse x) > [60]> and <mouse down?>>> then\n        point in direction (90)\n        change [x v] by (1.75)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<(mouse x) < [-60]> and <mouse down?>>> then\n        point in direction (-90)\n        change [x v] by (-1.75)\n    end\n    set [x v] to ((X) * (0.8))\n    change x by (X)\n    if <touching (stage v)?> then\n        change y by (1)\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change y by (1)\n                        if <touching (stage v)?> then\n                            change x by ((X) * (-1))\n                            change y by (-5)\n                            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > [60]> and <mouse down?>>> then\n                                switch costume to (立つ v)\n                                start sound [壁キック v]\n                                if <(X) > [0]> then\n                                    set [x v] to [-15]\n                                else\n                                    set [x v] to [15]\n                                end\n                                set [y v] to [10]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching (stage v)?> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-5)\n    if <<touching (stage v)?> and <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > [60]> and <mouse down?>>>> then\n        switch costume to (立つ v)\n        set [y v] to [13]\n        start sound [ジャンプ2 v]\n    end\n    change y by (5)\n    if <<<touching (障害物 v)?> or <touching (マグマ v)?>> or <(y position) < [-163]>> then\n        wait (0.05) seconds\n        start sound [Rip v]\n        初期位置\n    end\n    if <not <(stage) = [13]>> then\n        if <(x position) > [220]> then\n            set [next v] to [1]\n            初期位置\n            broadcast (next v)\n            wait (1) seconds\n            change [stage v] by (1)\n            wait until <(NEXT) = [0]>\n        end\n    end\n    if <touching (横バネ v)?> then\n        change [x v] by (20)\n        start sound [Whiz v]\n    end\n    change [x v] by (0.9)\nend\n\nwhen I receive [let's go v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nshow\nrepeat (8)\n    change size by (-4)\n    change [ghost v] effect by (8)\nend\ndelete this clone\n\ndefine 初期位置\nswitch costume to (立つ v)\nset size to (100) %\ngo to x: (-200) y: (-30)\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [autro v]\nstop [other scripts in sprite v]\nhide\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@障害物\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\nshow\ngo to x: (0) y: (0)\nforever\n    switch costume to (stage)\nend\n\n@stage\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\ngo to [front v] layer\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (stage)\nend\n\n@Next!\n\nwhen I receive [next v]\nset [next v] to [1]\nset [color v] effect to (pick random (-250) to (250))\nhide\nstart sound [High Whoosh v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\nwait (2.5) seconds\nset [next v] to [0]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nif <(costume [number v]) = [1]> then\n    go to [front v] layer\n    wait (2.2) seconds\n    go to [front v] layer\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    go to [front v] layer\n    wait (2.1) seconds\n    go to [front v] layer\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    go to [front v] layer\n    wait (2) seconds\n    go to [front v] layer\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    go to [front v] layer\n    wait (1.9) seconds\n    go to [front v] layer\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    go to [front v] layer\n    wait (1.8) seconds\n    go to [front v] layer\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\n@飾り\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\ngo to [back v] layer\nshow\nforever\n    switch costume to (stage)\nend\n\n@砂\n\nwhen I start as a clone\ngo to [back v] layer\nset size to (pick random (80) to (120)) %\nshow\nrepeat (10)\n    if <(pick random (1) to (3)) = [1]> then\n        change x by (8)\n    else\n        if <(pick random (1) to (2)) = [1]> then\n            change x by (9)\n        else\n            change x by (11)\n        end\n    end\nend\nrepeat until <touching (_edge_ v)?>\n    if <(pick random (1) to (3)) = [1]> then\n        change x by (7)\n    else\n        if <(pick random (1) to (2)) = [1]> then\n            change x by (8)\n        else\n            change x by (10)\n        end\n    end\nend\ndelete this clone\n\nwhen I receive [let's go v]\nhide\nforever\n    switch costume to (pick random (1) to (10))\n    go to x: (-1000) y: (pick random (143) to (-144))\n    create clone of (_myself_ v)\n    wait (pick random (0) to (0.06)) seconds\nend\n\n@横バネ\n\nwhen I receive [let's go v]\npoint in direction (180)\nforever\n    if <touching (player v)?> then\n        switch costume to (1 v)\n        repeat (4)\n            next costume\n            wait (0) seconds\n        end\n        repeat (4)\n            switch costume to ((costume [name v]) - (1))\n            wait (0) seconds\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\nset size to (110) %\nhide\nforever\n    if <(stage) = [9]> then\n        show\n        go to x: (-57) y: (-58)\n    else\n        hide\n    end\nend\n\n@影\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\nshow\nforever\n    switch costume to (stage)\nend\n\n@結果発表の主\n\nwhen I receive [結果発表だドン！（？） v]\nwait (0) seconds\nstop [other scripts in sprite v]\ngo to [front v] layer\nset size to (85) %\nif <(length of (結果発表)) = [2]> then\n    switch costume to (join [数字] (letter (1) of (結果発表)))\n    go to x: (5) y: (18)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (18)\n    create clone of (_myself_ v)\nend\nif <(length of (結果発表)) = [3]> then\n    switch costume to (join [数字] (letter (1) of (結果発表)))\n    go to x: (5) y: (18)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (18)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (3) of (結果発表)))\n    go to x: (51) y: (18)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [autro v]\nstop [other scripts in sprite v]\nhide\ndelete this clone\n\nwhen I start as a clone\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nclear graphic effects\n\nwhen I receive [let's go v]\nwait (0) seconds\nforever\n    if <(stage) = [13]> then\n        broadcast (結果発表だドン！（？） v)\n        stop [this script v]\n    end\nend\n\nif <(length of (結果発表)) = [4]> then\n    switch costume to (join [数字] (letter (1) of (結果発表)))\nend\n\nwhen I receive [let's go v]\nwait (0) seconds\nset [結果発表 v] to [0]\nforever\n    wait (1) seconds\n    change [結果発表 v] by (1)\nend\n\n