反重力プラットフォーマー!?　Anti-gravity platformer!?

Instructions: 黄色いの?が反重力装置です!\n反重力装置にぶつかりながら進み続けると上がるのは\nバグでs((仕様ですw\nRキーでリスポーン\n8ステージ

@Stage\n\nwhen flag clicked\nset volume to (100) %\nswitch backdrop to (背景1 v)\nforever\n    play sound [Elektronomia - Energy \[NCS Release\].mp3 v] until done\nend\n\nwhen I receive [end v]\nswitch backdrop to (背景2 v)\n\nwhen I receive [最後 v]\nset volume to (0) %\nstop all sounds\n\n@player\n\nwhen flag clicked\nset [stage v] to [0]\nリスポーン\nforever\n    set rotation style [left-right v]\n    switch costume to (player v)\n    if <key (any v) pressed?> then\n        if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n            change [動力x v] by (0.85)\n            point in direction (90)\n            create clone of (_myself_ v)\n        end\n        if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n            change [動力x v] by (-0.85)\n            point in direction (-90)\n            create clone of (_myself_ v)\n        end\n    else\n        if <mouse down?> then\n            if <(mouse x) > [0]> then\n                change [動力x v] by (0.85)\n                point in direction (90)\n                create clone of (_myself_ v)\n            end\n            if <(mouse x) < [0]> then\n                change [動力x v] by (-0.85)\n                point in direction (-90)\n                create clone of (_myself_ v)\n            end\n        end\n    end\n    set [動力x v] to ((動力x) * (0.9))\n    change x by (動力x)\n    if <touching (stage v)?> then\n        change x by ((0) - (動力x))\n        set [動力x v] to [0]\n    end\n    if <touching (anti-gravity v)?> then\n        change x by ((0) - (動力x))\n        set [動力x v] to [0]\n        set [重力 v] to ((0) - (重力))\n        start sound [ v]\n        if <(重力) = [1]> then\n            switch costume to (anti-gravity player v)\n        else\n            switch costume to (player v)\n        end\n    end\n    change [動力y v] by (重力)\n    change y by (動力y)\n    if <touching (stage v)?> then\n        change y by ((0) - (動力y))\n        set [動力y v] to [0]\n    end\n    if <(重力) = [-1]> then\n        change y by (-1)\n        if <touching (anti-gravity v)?> then\n            start sound [ v]\n            change y by ((0) - (動力y))\n            set [動力y v] to [0]\n            set [重力 v] to ((0) - (重力))\n        end\n        if <touching (stage v)?> then\n            if <<<key (up arrow v) pressed?> or <key (space v) pressed?>> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n                if <(重力) = [-1]> then\n                    start sound [jump v]\n                    set [動力y v] to [13]\n                else\n                    start sound [jump v]\n                    set [動力y v] to [-13]\n                end\n            end\n        end\n        change y by (1)\n    else\n        change y by (1)\n        if <touching (anti-gravity v)?> then\n            start sound [ v]\n            change y by ((0) - (動力y))\n            set [動力y v] to ((動力y) * (0.05))\n            set [重力 v] to ((0) - (重力))\n        end\n        if <touching (stage v)?> then\n            if <<<key (up arrow v) pressed?> or <key (space v) pressed?>> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n                if <(重力) = [-1]> then\n                    start sound [jump v]\n                    set [動力y v] to [13]\n                else\n                    start sound [jump v]\n                    set [動力y v] to [-13]\n                end\n            end\n        end\n        change y by (-1)\n    end\n    if <touching (jump v)?> then\n        if <(重力) = [-1]> then\n            start sound [jump2 v]\n            set [動力y v] to [20]\n        else\n            start sound [jump2 v]\n            set [動力y v] to [-20]\n        end\n    end\n    if <touching (perilous! v)?> then\n        ﾀﾋんだ\n        リスポーン\n    end\n    if <(重力) = [1]> then\n        switch costume to (anti-gravity player v)\n    else\n        switch costume to (player v)\n    end\n    if <<(y position) < [-175]> or <(y position) > [175]>> then\n        ﾀﾋんだ\n        リスポーン\n    end\n    if <(x position) > [237.5]> then\n        broadcast (next v)\n        change [stage v] by (1)\n        リスポーン\n        wait (4) seconds\n    end\n    go to [back v] layer\nend\n\ndefine リスポーン\nset [動力x v] to [0]\nset [動力y v] to [0]\nset [重力 v] to [-1]\ngo to x: (-200) y: (-90)\n\nwhen I start as a clone\nswitch costume to (afterimage v)\nset size to (100) %\nrepeat (20)\n    go to [back v] layer\n    go [forward v] (1) layers\n    change [ghost v] effect by (10)\n    change size by (-5)\nend\ndelete this clone\n\ndefine ﾀﾋんだ\nstart sound [Oops v]\nif <(重力) = [-1]> then\n    set [動力y v] to [15]\nelse\n    set [動力y v] to [-15]\nend\nset rotation style [all around v]\nrepeat (10)\n    turn right ((15) * (重力)) degrees\n    change [動力y v] by (重力)\n    change y by (動力y)\nend\nrepeat until <<(y position) < [-175]> or <(y position) > [175]>>\n    turn right ((15) * (重力)) degrees\n    change [動力y v] by (重力)\n    change y by (動力y)\nend\npoint in direction (90)\n\nwhen [r v] key pressed\nリスポーン\n\n@Anti-gravity\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nforever\n    go to [back v] layer\n    go [backward v] (1) layers\nend\n\nwhen I receive [next stage v]\nnext costume\n\n@jump\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nforever\n    go to [back v] layer\n    go [backward v] (2) layers\nend\n\nwhen I receive [next stage v]\nnext costume\n\n@stage\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nforever\n    go to [back v] layer\n    go [backward v] (3) layers\nend\n\nwhen I receive [next stage v]\nnext costume\n\n@perilous!\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nforever\n    go to [back v] layer\n    go [backward v] (4) layers\nend\n\nwhen I receive [next stage v]\nnext costume\n\n@background\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nforever\n    go to [back v] layer\n    go [backward v] (4) layers\nend\n\nwhen I receive [next stage v]\nnext costume\n\n@演出\n\nwhen I receive [next v]\nswitch costume to (1 v)\ngo to x: (-300) y: (-250)\nset [x目的地 v] to [-220]\nrepeat (12)\n    create clone of (_myself_ v)\n    change [x目的地 v] by (40)\nend\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nwait (0.85) seconds\nbroadcast (Next stage v)\nif <(stage) = [8]> then\n    broadcast (end v)\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    repeat (75)\n        show\n        switch costume to ( v)\n        set size to ((1) / ()) %\n        change x by (((x目的地) - (x position)) / (7.5))\n        change y by (((0) - (y position)) / (7.5))\n        point in direction ((((x目的地) - (x position)) / (5)) + (90))\n        set size to (100) %\n        switch costume to (1 v)\n    end\n    go to x: (x目的地) y: (0)\n    repeat (75)\n        show\n        switch costume to ( v)\n        set size to ((1) / ()) %\n        change x by ((((x position) - (x目的地)) + (1)) / (7.5))\n        change y by (((y position) - (1)) / (7.5))\n        point in direction ((((x目的地) - (x position)) / (5)) + (90))\n        set size to (100) %\n        switch costume to (1 v)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    repeat (75)\n        show\n        switch costume to ( v)\n        set size to ((1) / ()) %\n        change x by (((0) - (x position)) / (7.5))\n        change y by (((0) - (y position)) / (7.5))\n        point in direction ((((0) - (x position)) / (5)) + (90))\n        set size to (100) %\n        switch costume to (コスチューム1 v)\n    end\n    go to x: (0) y: (0)\n    repeat (75)\n        show\n        switch costume to ( v)\n        set size to ((1) / ()) %\n        change x by (((x position) + (1)) / (7.5))\n        change y by (((y position) - (1)) / (7.5))\n        point in direction ((((0) - (x position)) / (5)) + (90))\n        set size to (100) %\n        switch costume to (コスチューム1 v)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nforever\n    hide\nend\n\n@エンディング\n\nwhen flag clicked\nhide\n\nwhen I receive [end v]\nwait (4) seconds\nset [エンディング v] to [1]\nrepeat (4)\n    go to x: (0) y: (180)\n    change [エンディング v] by (1)\n    repeat (200)\n        switch costume to (1 v)\n        set size to ((1) / ()) %\n        change y by (-2.5)\n        set size to (100) %\n        switch costume to (エンディング)\n        show\n    end\nend\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\n@ターボを対策\n\nwhen flag clicked\nforever\n    set [ターボ対策 v] to [0]\n    wait (0.01) seconds\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    if <(ターボ対策) > [10000]> then\n        broadcast (最後 v)\n    end\nend\n\nwhen I receive [最後 v]\nstop [other scripts in sprite v]\nwait (0.1) seconds\nswitch costume to (kbc v)\ngo to x: (0) y: (0)\nset volume to (100) %\nplay sound [あああああああ！！ v] until done\nswitch costume to (放送休止 v)\nforever\n    play sound [放送休止 v] until done\nend\n\nwhen flag clicked\nset [ターボ対策 v] to [0]\nforever\n    change [ターボ対策 v] by (275)\nend\n\n