Prairie Platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [Unlimited v] until done\n    play sound [Starship v] until done\nend\n\n@空の雲\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nglide (pick random (3) to (10)) secs to x: (-276) y: (y position)\nhide\ndelete this clone\n\nwhen flag clicked\nhide\nforever\n    switch costume to (pick random (1) to (3))\n    set [ghost v] effect to (pick random (10) to (30))\n    wait (pick random (2) to (0.7)) seconds\n    create clone of (_myself_ v)\n    go to x: (276) y: (pick random (100) to (150))\nend\n\n@スプライト5\n\nwhen I receive [お疲れ様ズラ v]\ngo to [front v] layer\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトル表示 v]\nhide\n\n@ｼﾞﾒﾝ\n\nwhen I receive [ステージ次だよーん v]\nnext costume\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム2 v)\nforever\n    go to x: (0) y: (0)\nend\n\nwhen flag clicked\nset [タイム/time v] to [0]\nforever\n    set ["" v] to (costume [number v])\nend\n\nwhen I receive [タイトル表示 v]\nhide\n\n@👤\n\nwhen flag clicked\nshow\nset rotation style [left-right v]\nset size to (20) %\nset [ghost v] effect to (0)\ngo to x: (-200) y: (-80)\ngo [backward v] (1) layers\nforever\n    switch costume to (コスチューム1 v)\n    動作\nend\n\ndefine 動作\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n    change [x v] by (-1)\n    point in direction (-90)\nend\nif <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n    change [x v] by (1.1)\n    point in direction (90)\nend\nset [x v] to ((x) * (0.9))\nchange x by (x)\nif <touching (ｼﾞﾒﾝ v)?> then\n    change y by (1)\n    if <touching (ｼﾞﾒﾝ v)?> then\n        change y by (1)\n        if <touching (ｼﾞﾒﾝ v)?> then\n            change y by (1)\n            if <touching (ｼﾞﾒﾝ v)?> then\n                change y by (1)\n                if <touching (ｼﾞﾒﾝ v)?> then\n                    change y by (1)\n                    if <touching (ｼﾞﾒﾝ v)?> then\n                        change y by (1)\n                        if <touching (ｼﾞﾒﾝ v)?> then\n                            change y by (1)\n                            if <touching (ｼﾞﾒﾝ v)?> then\n                                change y by (1)\n                                if <touching (ｼﾞﾒﾝ v)?> then\n                                    change x by ((x) * (-1))\n                                    change y by (-8)\n                                    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n                                        if <(x) > [0]> then\n                                            set [x v] to [-7]\n                                        else\n                                            set [x v] to [7]\n                                        end\n                                        set [y v] to [14]\n                                    else\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-1)\nif <touching (ｼﾞﾒﾝ v)?> then\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n        set [y v] to [14]\n    end\nend\nchange y by (1)\nchange [y v] by (-1)\nchange y by (y)\nif <touching (ｼﾞﾒﾝ v)?> then\n    change y by ((y) * (-1))\n    set [y v] to [0]\nend\nif <touching (スプライト7 v)?> then\n    set [鍵ゲット v] to [1]\nend\nif <<touching (スプライト6 v)?> and <(鍵ゲット) = [1]>> then\n    はーい、死んだー\n    broadcast (ステージ次だよーん v)\n    go to x: (-200) y: (100)\n    hide\nend\nif <<touching (邪魔者 v)?> or <[-173] > (y position)>> then\n    はーい、死んだー\nend\n\ndefine はーい、死んだー\nset [鍵ゲット v] to [0]\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\nset [変数 v] to [0]\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-200) y: (100)\npoint in direction (90)\nset [変数 v] to [9999]\nshow\n\nwhen I receive [ステージ次だよーん v]\nshow\nset [鍵ゲット v] to [0]\n\nwhen I receive [タイトル表示 v]\nhide\n\n@スコア\n\nwhen flag clicked\nwait (0) seconds\nhide variable [タイム/time v]\nhide variable [☁ せかいきろく v]\nforever\n    wait (1) seconds\n    if <[10] < (ステージ)> then\n        broadcast (お疲れ様ズラ v)\n        stop [this script v]\n    end\n    change [タイム/time v] by (1)\nend\n\nwhen I receive [お疲れ様ズラ v]\nshow variable [☁ せかいきろく v]\nshow variable [タイム/time v]\nif <(タイム/Time) < (☁ せかいきろく)> then\n    set [☁ せかいきろく v] to (タイム/Time)\nend\n\nwhen I receive [タイトル表示 v]\nhide variable [タイム/time v]\nhide variable [☁ せかいきろく v]\n\n@スプライト7\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\nset [ステージ v] to [1]\nset [鍵ゲット v] to [0]\nset size to (100) %\ngo to [back v] layer\ngo [forward v] (1) layers\nforever\n    repeat (40)\n        change size by (0.25)\n    end\n    repeat (40)\n        change size by (-0.25)\n    end\nend\n\nwhen I receive [ステージ次だよーん v]\nchange [ステージ v] by (1)\nset [鍵ゲット v] to [0]\n\ndefine ブロック名\nif <(鍵ゲット) = [1]> then\n    if <([direction v] of [👤 v]) = [90]> then\n        go to x: (([x position v] of [👤 v]) - (20)) y: ([y position v] of [👤 v])\n    else\n        go to x: (([x position v] of [👤 v]) + (20)) y: ([y position v] of [👤 v])\n    end\nelse\n    go to x: (鍵のx座標) y: (鍵のy座標)\nend\n\nwhen flag clicked\nforever\n    鍵\n    ブロック名\nend\n\ndefine 鍵\nset [鍵のx座標 v] to (item (ステージ) of [鍵の位置x v])\nset [鍵のy座標 v] to (item (ステージ) of [鍵の位置y v])\n\nwhen flag clicked\ndelete all of [鍵の位置x v]\nadd [0] to [鍵の位置x v]\nadd [-100] to [鍵の位置x v]\nadd [0] to [鍵の位置x v]\nadd [50] to [鍵の位置x v]\nadd [200] to [鍵の位置x v]\nadd [200] to [鍵の位置x v]\nadd [-200] to [鍵の位置x v]\nadd [0] to [鍵の位置x v]\nadd [-110] to [鍵の位置x v]\nadd [150] to [鍵の位置x v]\n\nwhen flag clicked\ndelete all of [鍵の位置y v]\nadd [0] to [鍵の位置y v]\nadd [150] to [鍵の位置y v]\nadd [0] to [鍵の位置y v]\nadd [0] to [鍵の位置y v]\nadd [0] to [鍵の位置y v]\nadd [-50] to [鍵の位置y v]\nadd [0] to [鍵の位置y v]\nadd [20] to [鍵の位置y v]\nadd [-60] to [鍵の位置y v]\nadd [-60] to [鍵の位置y v]\n\nwhen I receive [お疲れ様ズラ v]\nhide\n\nwhen flag clicked\nforever\n    if <(ステージ) = [11]> then\n        switch costume to (コスチューム2 v)\n    end\nend\n\nwhen I receive [タイトル表示 v]\nhide\n\n@スプライト6\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nshow\ngo to [back v] layer\ngo [forward v] (1) layers\n\nwhen I receive [ステージ次だよーん v]\nnext costume\n\nwhen I receive [タイトル表示 v]\nhide\n\n@邪魔者\n\nwhen flag clicked\nset [削除! 削除!!　削除ぉぉおお!!! v] to [0]\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\n\nwhen I receive [ステージ次だよーん v]\nset [削除! 削除!!　削除ぉぉおお!!! v] to [1]\nnext costume\nwait (0) seconds\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\npoint in direction (90)\ngo to x: (0) y: (0)\ngo to [back v] layer\ngo [forward v] (1) layers\nshow\n\nwhen I start as a clone\nwait (0) seconds\nset [削除! 削除!!　削除ぉぉおお!!! v] to [0]\nwait until <(削除! 削除!!　削除ぉぉおお!!!) = [1]>\ndelete this clone\n\nwhen I receive [タイトル表示 v]\nhide\n\nwhen I start as a clone\nforever\n    if <<[3] < (ステージ)> and <[4] = (ステージ)>> then\n        repeat (50)\n            change y by (5)\n        end\n        repeat (50)\n            change y by (-5)\n        end\n    else\n        if <<[6] < (ステージ)> and <[7] = (ステージ)>> then\n            repeat (50)\n                change y by (5)\n            end\n            repeat (50)\n                change y by (-5)\n            end\n        else\n            if <<[9] < (ステージ)> and <[10] = (ステージ)>> then\n                repeat (80)\n                    change y by (0.5)\n                end\n                repeat (80)\n                    change y by (-0.5)\n                end\n            else\n                point in direction (90)\n                go to x: (0) y: (0)\n            end\n        end\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\n
English is below\n初めてのプラフォです！！\n▶︎ルール\nタップまたは矢印キー&スペースキーで操作です。\n鍵をゲットしてドアに入ると次のステージに進みます！\n針やマグマに触れるとスタートに戻ってしまいます！\n全部で10ステージです！\n頑張ってクリアして世界記録を目指しましょう！！\n- English -\nTap or arrow keys & space keys to operate.\nGet the key and enter the door to advance to the next stage!\nIf you touch a needle or magma, you will be back to the start!\nThere are 10 stages in total!\nLet's do our best to clear it and aim for the world record!!\n