platformer

Instructions: 日本語は下にあります。\n\nIt is operated using the arrow keys, wsad keys, and mouse cursor to deliver it to the gobo while avoiding obstacles.\n\n矢印キー、wsadキー、マウスカーソルで操作し、障害物を避けながらゴボに届けます。

@Stage\n\nwhen I receive [開始 v]\nswitch backdrop to (1 v)\nset [ステージ v] to [1]\nforever\n    play sound [conti v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (2 v)\nhide variable [タイム v]\nhide variable [☁ 最短記録 v]\nset [タイム v] to [0]\n\nwhen I receive [開始 v]\nforever\n    if <not <(ステージ) = [8]>> then\n        wait (1) seconds\n        change [タイム v] by (1)\n    else\n        show variable [タイム v]\n        show variable [☁ 最短記録 v]\n        if <(タイム) < (☁ 最短記録)> then\n            set [☁ 最短記録 v] to (タイム)\n        end\n        set [タイム v] to (タイム)\n        stop [this script v]\n    end\nend\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\ndefine 補正\nrepeat (5)\n    if <touching (ステージ v)?> then\n        change y by (1)\n    end\nend\nif <touching (ステージ v)?> then\n    change x by ((0) - (X))\n    change y by (-5)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\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 [15]\n    else\n        set [x v] to [0]\n    end\nend\n\ndefine 初期化\nshow\nset size to (20) %\nset rotation style [left-right v]\ngo to x: (-210) y: (150)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [開始 v]\n初期化\nforever\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        change [x v] by (1.5)\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n        change [x v] by (-1.5)\n        point in direction (-90)\n    end\n    set [x v] to ((X) * (0.8))\n    change x by (X)\n    補正\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching (ステージ v)?> then\n        change y by ((0) - (Y))\n        set [y v] to [0]\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n            start sound [Jump v]\n            change [y v] by (15)\n        end\n    end\n    if <<<not <(ステージ) = [8]>> and <(x position) > [200]>> or <<<touching (障害物 v)?> or <(y position) < [-175]>> or <touching (回転 v)?>>> then\n        if <<not <(ステージ) = [8]>> and <(x position) > [200]>> then\n            change [ステージ v] by (1)\n        end\n        start sound [Pew v]\n        初期化\n    end\nend\n\n@ステージ\n\nwhen flag clicked\nhide\n\nwhen I receive [開始 v]\nshow\nset size to (100) %\ngo to x: (0) y: (0)\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen flag clicked\nhide\n\nwhen I receive [開始 v]\nshow\nset size to (100) %\ngo to [back v] layer\ngo to x: (0) y: (0)\nforever\n    switch costume to (ステージ)\nend\n\n@隠し道\n\nwhen flag clicked\nhide\n\nwhen I receive [開始 v]\nset size to (100) %\ngo to [front v] layer\nset [ghost v] effect to (0)\ngo to x: (0) y: (0)\nforever\n    if <(ステージ) = [6]> then\n        show\n        if <touching (プレイヤー v)?> then\n            repeat until <not <touching (プレイヤー v)?>>\n                set [ghost v] effect to (50)\n            end\n            set [ghost v] effect to (0)\n        end\n    else\n        hide\n    end\nend\n\n@回転\n\nwhen flag clicked\nhide\n\nwhen I receive [開始 v]\nset size to (100) %\ngo to x: (0) y: (20)\nforever\n    if <(ステージ) = [7]> then\n        show\n        turn left (5) degrees\n    else\n        hide\n    end\nend\n\n@intro\n\nwhen I start as a clone\nshow\nif <(ID) = [1]> then\n    point in direction (0)\n    set size to (100) %\n    go to x: (800) y: (0)\n    set [動き v] to [8]\n    forever\n        switch costume to (costume1 v)\n        change size by (((275) - (size)) / (8))\n        switch costume to (長方形（横） v)\n        turn right (((90) - (direction)) / (動き)) degrees\n        change [動き v] by (0.25)\n    end\nelse\n    if <(ID) = [2]> then\n        point in direction (180)\n        set size to (100) %\n        go to x: (800) y: (0)\n        set [動き v] to [8]\n        forever\n            switch costume to (costume1 v)\n            change size by (((275) - (size)) / (8))\n            switch costume to (長方形（横） v)\n            turn right (((90) - (direction)) / (動き)) degrees\n            change [動き v] by (0.25)\n        end\n    else\n        if <(ID) = [3]> then\n            point in direction (0)\n            go to x: (0) y: (0)\n            set [動き v] to [10]\n            forever\n                switch costume to (costume1 v)\n                change size by (((17000) - (size)) / (10))\n                switch costume to (costume2 v)\n            end\n        else\n            if <(ID) = [4]> then\n                point in direction (0)\n                go to x: (0) y: (-250)\n                set [動き v] to [8]\n                forever\n                    switch costume to (costume1 v)\n                    change size by (((10000) - (size)) / (動き))\n                    switch costume to (円 v)\n                    change [動き v] by (0.25)\n                end\n            else\n                if <(ID) = [5]> then\n                    point in direction (0)\n                    go to x: (0) y: (250)\n                    set [動き v] to [8]\n                    明るさ： [-100] 幽霊： [50]\n                    forever\n                        switch costume to (costume1 v)\n                        change size by (((10000) - (size)) / (動き))\n                        switch costume to (円 v)\n                        change [動き v] by (0.25)\n                    end\n                else\n                    if <(ID) = [6]> then\n                        set [動き v] to [8]\n                        switch costume to (正方形 v)\n                        forever\n                            point in direction (90)\n                            change y by (((0) - (y position)) / (動き))\n                            change [動き v] by (0.25)\n                        end\n                    else\n                        if <(ID) = [7]> then\n                            switch costume to (円 v)\n                            go to x: (0) y: (0)\n                            forever\n                                change [動き v] by (30)\n                                switch costume to (costume1 v)\n                                change size by (動き)\n                                switch costume to (円 v)\n                            end\n                        else\n                            if <(ID) = [8]> then\n                                set y to (180)\n                                switch costume to (長方形（縦） v)\n                                滑らか\n                            else\n                                if <(ID) = [9]> then\n                                    go to x: (0) y: (800)\n                                    switch costume to (-ni v)\n                                    滑らか\n                                else\n                                    if <(ID) = [10]> then\n                                        go to x: (0) y: (-800)\n                                        switch costume to (hon- v)\n                                        滑らか\n                                    else\n                                        if <(ID) = [11]> then\n                                            go to x: (0) y: (0)\n                                            switch costume to (日章旗 v)\n                                            set size to (0) %\n                                            forever\n                                                set [動き v] to (((動き) * (0.5)) + (((120) - (size)) / (10)))\n                                                change size by (動き)\n                                            end\n                                        else\n                                            delete this clone\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine カーテン(下)\nswitch costume to (長方形（横） v)\nset [id v] to [1]\nカーテン共通点\n\ndefine カーテン(上)\nswitch costume to (長方形（横） v)\nset [id v] to [2]\nカーテン共通点\n\ndefine 棒\nswitch costume to (costume2 v)\nset [id v] to [3]\nカーテン共通点\n\ndefine ●\nclear graphic effects\nset [id v] to [5]\nクローン　待つ長さ： [0]\nset [id v] to [4]\nクローン　待つ長さ： [0]\n\ndefine 死確\nclear graphic effects\nset x to (-210)\nrepeat (8)\n    set [id v] to [8]\n    クローン　待つ長さ： [0]\n    change x by (60)\nend\n\nwhen I start as a clone\nforever\n    if <[8] < (timer)> then\n        delete this clone\n    end\nend\n\nwhen flag clicked\nreset timer\ngo to [front v] layer\nstart sound [Tobu - Colors v]\nclear graphic effects\nrepeat (20)\n    change [brightness v] effect by (5)\n    set [id v] to [7]\n    クローン　待つ長さ： [0.05]\nend\nカーテン(上)\nwait (0) seconds\nカーテン(下)\nwait (0.25) seconds\n死確\nset [id v] to [9]\nクローン　待つ長さ： [0.5]\nset [id v] to [10]\nクローン　待つ長さ： [0.8]\n明るさ： [50] 幽霊： [-100]\nset [id v] to [7]\nクローン　待つ長さ： [0.1]\nclear graphic effects\nset [id v] to [7]\nクローン　待つ長さ： [0.1]\n明るさ： [100] 幽霊： [0]\nset [id v] to [7]\nクローン　待つ長さ： [0.6]\nclear graphic effects\nset [id v] to [11]\nクローン　待つ長さ： [0.35]\n●\nwait (2) seconds\nbroadcast (開始 v)\n\ndefine 滑らか\nset size to (100) %\nforever\n    set [動き v] to (((動き) * (0.5)) + (((0) - (y position)) / (10)))\n    change y by (動き)\nend\n\ndefine カーテン共通点\n明るさ： [-100] 幽霊： [50]\nクローン　待つ長さ： [0.1]\nclear graphic effects\nクローン　待つ長さ： [0.1]\n明るさ： [100] 幽霊： [0]\nクローン　待つ長さ： [0]\n\ndefine クローン　待つ長さ： (秒)\ncreate clone of (_myself_ v)\nwait (秒) seconds\n\ndefine 明るさ： (明るさ) 幽霊： (幽霊)\nset [brightness v] effect to (明るさ)\nset [ghost v] effect to (幽霊)\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@黒\n\nwhen flag clicked\nforever\n    change [ターボ禁止 v] by (1)\nend\n\nwhen flag clicked\nhide\nforever\n    set [ターボ禁止 v] to [0]\n    wait (0.001) seconds\n    if <(ターボ禁止) > [3]> then\n        show\n        switch costume to (ターボ v)\n        stop [all v]\n    end\nend\n\n