(ﾟ∀ﾟ)ｱﾋｬ Platformer

Instructions: Move:Arrow key or tap\nReset:R key

@Stage\n\nwhen [timer v] > (0.1)\nswitch backdrop to (platformer v)\n\nwhen flag clicked\nswitch backdrop to (stars v)\n\n@BGM\n\nwhen flag clicked\nforever\n    play sound [Nebula v] until done\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@player\n\nwhen flag clicked\nset [動ける v] to [0]\npoint in direction (90)\ngo to x: (-200) y: (-90)\nforever\n    if <(動ける) = [1]> then\n        set rotation style [left-right v]\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <key (left arrow v) pressed?>> then\n            change [x速度 v] by (-1)\n            point in direction (-90)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n            change [x速度 v] by (1)\n            point in direction (90)\n        end\n        set [x速度 v] to ((X速度) * (0.9))\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 <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                    if <(X速度) > [0]> then\n                                        set [x速度 v] to [-7]\n                                    else\n                                        set [x速度 v] to [7]\n                                    end\n                                    start sound [壁キック v]\n                                    start sound [\(ﾟ∀ﾟ\)ｱﾋｬ v]\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 by (-1)\n        if <touching (stage v)?> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                start sound [ジャンプ v]\n                start sound [\(ﾟ∀ﾟ\)ｱﾋｬ v]\n                set [y速度 v] to [12]\n            end\n        end\n        change y by (1)\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        if <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>> then\n            switch costume to (しゃがむ v)\n        else\n            switch costume to (普通 v)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(タイトル?) = [1]> then\n        go to [back v] layer\n    end\nend\n\nwhen flag clicked\nforever\n    if <<not <(動ける) = [1]>> or <(タイトル?) = [1]>> then\n        set [x速度 v] to [0]\n        set [y速度 v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(タイトル?) = [1]> then\n        point in direction (90)\n        go to x: (-200) y: (-90)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(x position) > [235]> then\n        if <(動ける) = [1]> then\n            broadcast (Next v)\n        end\n    end\nend\n\nwhen I receive [移動 v]\ngo to x: (-200) y: (-90)\n\nwhen flag clicked\nforever\n    if <not <(タイトル?) = [1]>> then\n        if <(動ける) = [1]> then\n            if <key (r v) pressed?> then\n                create clone of (reset v)\n                set [動ける v] to [0]\n                point in direction (90)\n                glide (0.1) secs to x: (-200) y: (-90)\n                set [動ける v] to [1]\n                wait until <not <key (r v) pressed?>>\n            end\n        end\n    end\nend\n\nstart sound [\(ﾟ∀ﾟ\)ｱﾋｬ v]\n\nwhen I receive [miss v]\ngo to [front v] layer\ncreate clone of (miss v)\nstart sound [Miss v]\nset [動ける v] to [0]\nswitch costume to (普通 v)\nset [missのy速度 v] to [15]\nset rotation style [all around v]\nrepeat until <[-179] > (y position)>\n    turn right (15) degrees\n    change y by (MissのY速度)\n    change [missのy速度 v] by (-1)\nend\npoint in direction (90)\nglide (0.1) secs to x: (-200) y: (-90)\nset [動ける v] to [1]\n\nbroadcast (Miss v)\n\nset [タイトル? v] to [1]\n\nwhen flag clicked\nforever\n    if <<(動ける) = [1]> and <not <(タイトル?) = [1]>>> then\n        if <[-165] > (y position)> then\n            broadcast (Miss v)\n        end\n        if <touching (needle / magma v)?> then\n            broadcast (Miss v)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(動ける) = [1]> and <not <(タイトル?) = [1]>>> then\n        if <touching (spring v)?> then\n            start sound [ジャンプ v]\n            start sound [\(ﾟ∀ﾟ\)ｱﾋｬ v]\n            set [y速度 v] to [20]\n            wait until <not <touching (spring v)?>>\n        end\n    end\nend\n\nwhen [timer v] > (0.1)\nhide\n\nwhen flag clicked\nshow\n\n@player effect\n\nwhen I start as a clone\ngo to [back v] layer\nset rotation style [left-right v]\ngo to (player v)\npoint in direction ([direction v] of [player v])\nswitch costume to ([costume name v] of [player v])\nshow\nrepeat (20)\n    change [ghost v] effect by (5)\n    change size by (-5)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <(動ける) = [1]> then\n        create clone of (_myself_ v)\n    end\nend\n\n@stage\n\nwhen flag clicked\nforever\n    if <(タイトル?) = [1]> then\n        switch costume to (1 v)\n        go to [back v] layer\n    end\nend\n\nwhen I receive [移動 v]\nnext costume\n\nwhen [timer v] > (0.1)\nhide variable [タイム v]\nhide variable [☁ 作者の最高記録 v]\nhide variable [☁ 世界記録 v]\nhide\n\nwhen flag clicked\nshow\n\nwhen flag clicked\nforever\n    if <(タイトル?) = [1]> then\n        set [タイム v] to [0]\n        hide variable [タイム v]\n    else\n        show variable [タイム v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <not <(タイトル?) = [1]>> then\n        if <(動ける) = [1]> then\n            if <not <(costume [name v]) = [20]>> then\n                change [タイム v] by (1)\n                wait (1) seconds\n            end\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [name v]) = [20]> then\n        show variable [☁ 世界記録 v]\n        show variable [☁ 作者の最高記録 v]\n    else\n        hide variable [☁ 作者の最高記録 v]\n        hide variable [☁ 世界記録 v]\n    end\nend\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <not <(タイトル?) = [1]>> then\n        if <(costume [name v]) = [20]> then\n            if <(username) = [dosukoi5910]> then\n                if <(☁ 作者の最高記録) > (タイム)> then\n                    set [☁ 作者の最高記録 v] to (タイム)\n                end\n            else\n                if <(☁ 世界記録) > (タイム)> then\n                    set [☁ 世界記録 v] to (タイム)\n                end\n            end\n        end\n    end\nend\n\nset [☁ 世界記録 v] to [99999]\nset [☁ 作者の最高記録 v] to [99999]\n\n@Needle / magma\n\nwhen flag clicked\ngo to [front v] layer\nforever\n    switch costume to ([costume # v] of [stage v])\nend\n\nwhen [timer v] > (0.1)\nhide\n\nwhen flag clicked\nshow\n\n@Spring\n\nwhen flag clicked\ngo to [front v] layer\nforever\n    switch costume to ([costume # v] of [stage v])\nend\n\nwhen [timer v] > (0.1)\nhide\n\nwhen flag clicked\nshow\n\n@title\n\nwhen flag clicked\nset [タイトル? v] to [1]\nforever\n    if <(タイトル?) = [1]> then\n        go to x: (([cos v] of ((マイタイマー) * (120)) ) * (5)) y: (([sin v] of ((マイタイマー) * (120)) ) * (5))\n        point in direction ((([cos v] of ((マイタイマー) * (120)) ) * (5)) + (90))\n        set [動ける v] to [0]\n        show\n    else\n        go to x: (0) y: (0)\n        point in direction (90)\n        set [スクロール v] to [0]\n        repeat until <[-360] > (x position)>\n            change x by (スクロール)\n            change [スクロール v] by (-2)\n        end\n        hide\n        set [動ける v] to [1]\n        wait until <(タイトル?) = [1]>\n    end\nend\n\nset [動ける v] to [0]\n\nwhen flag clicked\nset [マイタイマー v] to [0]\nforever\n    change [マイタイマー v] by (0.03)\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@Start button\n\nwhen flag clicked\nset [タイトル? v] to [1]\ngo to [front v] layer\nforever\n    if <(タイトル?) = [1]> then\n        go to x: (160) y: ((([sin v] of ((マイタイマー) * (120)) ) * (20)) - (120))\n        point in direction ((([sin v] of ((マイタイマー) * (300)) ) * (20)) + (90))\n        show\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nset [タイトル? v] to [1]\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (100) %\n        set [brightness v] effect to (0)\n        set [速さ v] to [6]\n        repeat (6)\n            change [brightness v] effect by (速さ)\n            change size by (速さ)\n            change [速さ v] by (-1)\n        end\n        wait until <not <touching (mouse-pointer v)?>>\n    else\n        set size to (121) %\n        set [brightness v] effect to (21)\n        set [速さ v] to [-6]\n        repeat (6)\n            change [brightness v] effect by (速さ)\n            change size by (速さ)\n            change [速さ v] by (1)\n        end\n        wait until <touching (mouse-pointer v)?>\n    end\nend\n\nwhen this sprite clicked\nset [タイトル? v] to [0]\nwait (0) seconds\nstart sound [決定、ボタン押下22 v]\n\nwhen [timer v] > (0.1)\nhide\n\n@Next\n\nwhen I receive [next v]\ngo to [front v] layer\nstart sound [決定、ボタン押下4 v]\nset [動ける v] to [0]\ngo to x: (360) y: (0)\npoint in direction (90)\nshow\nrepeat until <[0] = (round (x position))>\n    change x by (((0) - (x position)) / (8))\nend\ngo to x: (0) y: (0)\npoint in direction (90)\nbroadcast (移動 v)\ngo to [front v] layer\nwait (0.5) seconds\nrepeat until <[-330] > (x position)>\n    change x by (((-400) - (x position)) / (8))\nend\nhide\nset [動ける v] to [1]\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0.1)\nhide\n\n@Reset\n\nwhen I start as a clone\nstart sound [Reset v]\nset size to (50) %\ngo to x: (0) y: (0)\ngo to [front v] layer\nshow\nrepeat (20)\n    change size by (5)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\n@Miss\n\nwhen I start as a clone\nset size to (50) %\ngo to x: (0) y: (0)\ngo to [front v] layer\nshow\nrepeat (20)\n    change size by (5)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\n@light\n\nwhen I start as a clone\ngo to x: (pick random (-240) to (240)) y: (-180)\nset size to (pick random (50) to (150)) %\nset [color v] effect to (pick random (0) to (100))\nshow\nrepeat until <(y position) > [170]>\n    change y by ((size) * (0.1))\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    go to [back v] layer\nend\n\n@outro\n\nwhen I receive [start v]\nif <(costume [number v]) = [7]> then\n    forever\n        set rotation style [all around v]\n        turn right (1) degrees\n    end\nend\n\nwhen I receive [メッセージ1 v]\nif <(costume [number v]) = [7]> then\n    point in direction (90)\n    set size to (70) %\n    repeat (46)\n        change size by (1)\n    end\n    repeat (46)\n        change size by (-1)\n    end\nend\n\nmove (100) steps\nmove (-100) steps\n\nwhen I start as a clone\nif <(costume [number v]) = [7]> then\n    go to x: (0) y: (0)\n    forever\n        show\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [コスチューム2]> then\n    show\n    switch backdrop to (alpha backgrou v)\n    go to [front v] layer\n    go to x: (-500) y: (0)\n    repeat until <(x position) > [-0.001]>\n        point in direction (90)\n        change x by (((0) - (x position)) / (6))\n    end\n    hide\n    switch costume to (背景1 v)\n    create clone of (_myself_ v)\n    show\n    switch costume to (コスチューム2 v)\n    set x to (1)\n    repeat until <(timer) > [3.8]>\n        set x to ((x position) * (1.2))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [コスチューム1]> then\n    go to [back v] layer\n    wait until <[3.0] < (timer)>\n    show\n    set [color v] effect to (pick random (0) to (400))\n    go to x: (pick random (240) to (-240)) y: (-240)\n    set size to (pick random (10) to (100)) %\n    repeat until <[179] < (y position)>\n        change y by ((size) / (10))\n    end\n    hide\n    delete this clone\nend\n\nwhen flag clicked\n\nwhen I start as a clone\nif <(costume [name v]) = [背景1]> then\n    show\n    go to x: (0) y: (0)\n    forever\n        go to [back v] layer\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nif <<not <(costume [number v]) = [7]>> and <<not <(costume [number v]) = [8]>> and <not <(costume [number v]) = [9]>>>> then\n    if <not <(costume [number v]) = [10]>> then\n        set [あ v] to [0]\n        set size to (100) %\n        repeat (46)\n            change size by (1)\n        end\n        repeat (46)\n            change size by (-1)\n        end\n    end\nend\n\nwhen I start as a clone\nif <<not <(costume [number v]) = [7]>> and <<not <(costume [number v]) = [8]>> and <not <(costume [number v]) = [9]>>>> then\n    if <not <(costume [number v]) = [10]>> then\n        point in direction (あ)\n        wait until <[3.0] < (timer)>\n        show\n        forever\n            set rotation style [don't rotate v]\n            go to x: (0) y: (0)\n            turn right (1) degrees\n            move (120) steps\n        end\n    end\nend\n\nwhen [timer v] > (0.1)\nplay sound [1 v] until done\nplay sound [5 v] until done\nplay sound [3 v] until done\nplay sound [6 v] until done\nplay sound [2 v] until done\nforever\n    play sound [4 v] until done\n    play sound [7 v] until done\n    play sound [2 v] until done\nend\n\nwhen flag clicked\nforever\n    reset timer\n    set size to (100) %\nend\n\nwhen [timer v] > (0.1)\nset rotation style [all around v]\npoint in direction (90)\nhide\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (2 v)\nset [あ v] to [0]\nrepeat (6)\n    wait (0) seconds\n    change [あ v] by (60)\n    wait (0) seconds\n    create clone of (_myself_ v)\n    wait (0) seconds\n    next costume\nend\nswitch costume to (ぉご v)\ngo to x: (0) y: (0)\ncreate clone of (_myself_ v)\n\nwhen [timer v] > (0.1)\nhide\nwait until <[3.0] < (timer)>\nbroadcast (start v)\nforever\n    broadcast (メッセージ1 v)\n    wait (0.41) seconds\nend\n\nwhen [timer v] > (0.1)\nwait (2.9) seconds\nforever\n    switch costume to (コスチューム1 v)\n    create clone of (_myself_ v)\nend\n\n@Turbo measures\n\nwhen flag clicked\nforever\n    change [fps v] by (1)\n    go to [front v] layer\nend\n\nwhen [timer v] > (0.1)\nhide\n\nwhen flag clicked\nset [fps v] to [0]\nforever\n    if <(FPS) > [250]> then\n        show\n        start sound [ターボ v]\n        wait (2) seconds\n        stop [all v]\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    set [fps v] to [0]\n    wait (1) seconds\nend\n\n