Hell Platformer

Instructions: 日本語は下\nUsage\nMove with left and right arrow keys\nJump with the up arrow keys\nCrouch with the down arrow keys\nThis Platformer has a lot of gimmicks\n\n使い方\n左、右向き矢印キーで移動、\n上向き矢印キーでジャンプ、\n下向き矢印キーでしゃがむ、\n今回のPlatformerはギミック多めです\nstage構成にめっちゃ時間かかった\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がちでむずいよ　作者は5分かかった

@Stage\n\nwhen flag clicked\nbroadcast (Let's go v)\nset volume to (50) %\nforever\n    play sound [ビッグバン組曲 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 [14]\n        start sound [ジャンプ2 v]\n    end\n    change y by (5)\n    if <<<touching (障害物 v)?> or <<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        set [y v] to [18]\n        start sound [Whiz v]\n    end\n    if <<key (down arrow v) pressed?> or <key (s v) pressed?>> then\n        switch costume to (しゃがむ v)\n    end\n    if <not <<key (down arrow v) pressed?> or <key (s v) pressed?>>> then\n        switch costume to (立つ v)\n    end\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\ngo to [front v] layer\nhide\n\nwhen I receive [autro v]\nstop [other scripts in sprite v]\nhide\n\n@stage\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (stage)\nend\n\n@障害物\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\ngo to [back v] layer\nshow\ngo to x: (0) y: (0)\nforever\n    switch costume to (stage)\nend\n\n@マグマ\n\nwhen flag clicked\nhide\n\nwhen I receive [let's go v]\ngo to x: (0) y: (-5)\nshow\nset [上下 v] to [0]\nforever\n    change [上下 v] by (7)\n    change y by ([sin v] of (上下) )\nend\n\n@NEXT\n\nwhen I receive [next v]\nset [next v] to [1]\nset [color v] effect to (0)\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@concent\n\nwhen I receive [let's go v]\nswitch costume to (角 v)\ngo to [front v] layer\ngo [backward v] (1) layers\nforever\n    go to (player v)\n    if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> and <([costume # v] of [player v]) = [2]>> then\n        hide\n    else\n        show\n    end\nend\n\nwhen flag clicked\nhide\n\n@トルネード(？)\n\nwhen I receive [let's go v]\ngo to [back v] layer\nforever\n    turn left (10) degrees\n    if <(stage) = [6]> then\n        go to x: (130) y: (-85)\n        show\n    else\n        if <(stage) = [8]> then\n            go to x: (-80) y: (-80)\n            show\n        else\n            if <(stage) = [10]> then\n                go to x: (-80) y: (-5)\n                show\n            else\n                if <(stage) = [11]> then\n                    go to x: (160) y: (65)\n                    show\n                else\n                    hide\n                end\n            end\n        end\n    end\nend\n\n@結果発表の主\n\nwhen I receive [結果発表だドン！（？） v]\nwait (0) seconds\nset [結果発表 v] to (time)\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: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (0)\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: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (3) of (結果発表)))\n    go to x: (51) y: (0)\n    create clone of (_myself_ v)\nend\nif <(length of (結果発表)) = [4]> then\n    switch costume to (join [数字] (letter (1) of (結果発表)))\n    go to x: (5) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (3) of (結果発表)))\n    go to x: (51) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (4) of (結果発表)))\n    go to x: (74) y: (0)\n    create clone of (_myself_ v)\nend\nif <(length of (結果発表)) = [5]> then\n    switch costume to (join [数字] (letter (1) of (結果発表)))\n    go to x: (5) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (2) of (結果発表)))\n    go to x: (28) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (3) of (結果発表)))\n    go to x: (51) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (4) of (結果発表)))\n    go to x: (74) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (join [数字] (letter (4) of (結果発表)))\n    go to x: (97) y: (0)\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]\nset [time v] to [0]\nforever\n    wait (1) seconds\n    change [time v] by (1)\nend\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\n@samune\n\nwhen flag clicked\nswitch costume to (サムネ（仮） v)\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nshow\nforever\n    go to [front v] layer\nend\n\n