Sun platformer 太陽のプラットフォーマー

Instructions: 旗二回押し絶対\n日本語説明は下\nUse the arrow keys to move. Squat with the down arrow key. It can also be operated with wasd. It can also be operated by tapping. You can respawn with the R key. I made a platformer quite seriously. Confident work! To go to the next stage, just go to the far right of the screen. If you touch a "red object" such as a needle and fall to the bottom, the game is over. Let's do our best and aim for clearing!\n日本語\n矢印キーで移動します。下矢印キーでしゃがむ。wasdでも操作可能。タップでも操作可能。Rキーでリスポーンできます。結構真面目にプラットフォーマー作った。自信作！次のステージに行くには画面の一番右に行くだけ。針などの「赤いもの」に触れる、一番下に落ちてしまうとゲームオーバー。頑張ってクリアを目指そう！トラップがあるかも...

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen I receive [start！ v]\nswitch backdrop to (背景2 v)\n\nforever\n    play sound (pick random (1) to (5)) until done\nend\n\n@Sun\n\nwhen flag clicked\nhide\n\nwhen I receive [start！ v]\ngo to [front v] layer\nshow\ngo to x: (22) y: (24)\nset size to (100) %\nset [sun size v] to [100]\n\n    change size by ([sin v] of (sun size) )\n    change [sun size v] by (7)\nend\n\nwhen I receive [start！ v]\nrepeat until <(音) = [停止]>\n    set volume to (30) %\n    play sound [Nebula \(1\)      クレジット -xaf-様 v] until done\nend\n\nwhen flag clicked\nset [音 v] to [再生]\nforever\n    if <(音) = [停止]> then\n        set volume to (0) %\n    end\nend\n\nset [☁ 世界記録 v] to [39.4]\n\n@start\n\nwhen flag clicked\nbroadcast (start！ v)\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\ndefine 左右\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    point in direction (90)\n    change [x v] by (1.75)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<(mouse x) < [0]> and <mouse down?>>>> then\n    point in direction (-90)\n    change [x v] by (-1.75)\nend\nset [x v] to ((x) * (0.85123))\nchange x by (x)\n\ndefine ジャンプ\nchange y by (-1)\nif <<touching (水 v)?> and <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>>> then\n    set [y v] to [2]\nend\nif < and <<not <touching (水 v)?>> and <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>>>> then\n    start sound [Jump v]\n    set [y v] to [16]\nend\nchange y by (1)\n\ndefine 重力\nif  then\n    change y by (1)\n    if  then\n        change y by (1)\n        if  then\n            change y by (1)\n            if  then\n                change y by (1)\n                if  then\n                    change y by (1)\n                    if  then\n                        change x by ((x) * (-1))\n                        change y by (-5)\n                        if <<key (w v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n                            if <(x) > [0]> then\n                                set [x v] to [-20]\n                            else\n                                set [x v] to [20]\n                            end\n                            set [y v] to [14.5]\n                        else\n                            set [x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <touching (水 v)?> then\n    change [y v] by (-0.1)\nelse\n    change [y v] by (-1)\nend\nchange y by (y)\nif  then\n    change y by ((y) * (-1))\n    set [y v] to [0]\nend\n\ndefine 次\nif <touching (次への扉 v)?> then\n    hide\n    broadcast (NEXT v)\n    set [y v] to [0]\n    set [x v] to [0]\nend\n\ndefine 初期位置\nshow\nset [ghost v] effect to (0)\ngo to x: (-198) y: (101)\n\ndefine しゃがむ\nif <<key (s v) pressed?> or <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < [0]>>>> then\n    switch costume to (コスチューム2 v)\nelse\n    switch costume to (コスチューム3 v)\nend\n\ndefine 死\nif <<<touching (当たったら死 v)?> or <touching (棘 v)?>> or <<touching (棘2 v)?> or <<touching (マグまぁ v)?> or >>> then\n    go to [front v] layer\n    start sound [うぅ v]\n    change y by (10)\n    set [y v] to [10]\n    set rotation style [all around v]\n    go to [front v] layer\n    repeat until <[-175] > (y position)>\n        change y by (y)\n        change [y v] by (-0.75)\n        turn right (6) degrees\n        go to [front v] layer\n    end\n    set rotation style [left-right v]\n    point in direction (90)\n    hide\n    clear graphic effects\n    set [x v] to [0]\n    set [y v] to [0]\n    初期位置\nend\n\nwhen I receive [start！ v]\nforever\n    if <(ee) = [1]> then\n        stop [this script v]\n    else\n        初期位置\n        set size to (100) %\n        go to [front v] layer\n        show\n        set [x v] to [0]\n        set [y v] to [0]\n        forever\n            左右\n            ジャンプ\n            重力\n            次\n            しゃがむ\n            死\n            if <key (r v) pressed?> then\n                初期位置\n            end\n        end\n    end\nend\n\nwhen I receive [次へ v]\nshow\n初期位置\n\nwhen flag clicked\npoint in direction (90)\nset rotation style [left-right v]\nforever\n    wait until <touching (水 v)?>\n    start sound [水1 v]\n    wait until <not <touching (水 v)?>>\n    start sound [水2 v]\nend\n\n@当たったら死\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n@次への扉\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n@ステージ。\n\nwhen I receive [次へ v]\nnext costume\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [start！ v]\nshow\n\nwhen flag clicked\nforever\n    if <<(username) = [yuumeinahito]> and <key (space v) pressed?>> then\n        broadcast (NEXT v)\n        wait until <not <key (space v) pressed?>>\n    end\nend\n\n@棘\n\nwhen flag clicked\nset x to (-100)\nhide\n\nwhen I receive [start！ v]\nset size to (100) %\nset y to (-77)\nhide\nforever\n    if <([costume # v] of [ステージ。 v]) = [7]> then\n        go to [back v] layer\n        go [backward v] (1) layers\n        show\n        switch costume to (コスチューム1 v)\n    end\n    if <([costume # v] of [ステージ。 v]) = [8]> then\n        hide\n    end\n    if <([costume # v] of [ステージ。 v]) = [10]> then\n        go to [front v] layer\n        show\n        go to [front v] layer\n        go [backward v] (2) layers\n        set size to (150) %\n        go to x: (-91) y: (-62)\n    end\n    if <([costume name v] of [ステージ。 v]) = [ゴール]> then\n        hide\n    end\nend\n\nwhen I receive [next v]\ngo [backward v] (2) layers\n\n@木\n\nwhen flag clicked\ngo to x: (-165) y: (34)\nhide\n\nwhen I receive [start！ v]\nset y to (34)\nhide\nforever\n    if <([costume # v] of [ステージ。 v]) = [1]> then\n        show\n        switch costume to (コスチューム1 v)\n    end\n    if <([costume # v] of [ステージ。 v]) = [2]> then\n        show\n        create clone of (_myself_ v)\n    end\n    if <([costume # v] of [ステージ。 v]) = [3]> then\n        show\n    end\n    if <([costume # v] of [ステージ。 v]) = [4]> then\n        hide\n    end\n    if <([costume # v] of [ステージ。 v]) = [5]> then\n        hide\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (204) y: (34)\nforever\n    if <([costume # v] of [ステージ。 v]) = [3]> then\n        delete this clone\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nset [ee v] to [0]\nhide\n\nwhen I receive [next v]\nset [ee v] to [1]\nstart sound [ v]\nstop [other scripts in sprite v]\ngo to [front v] layer\nshow\ngo to x: (-480) y: (0)\ngo [forward v] (1) layers\ngo to [front v] layer\nrepeat (12)\n    change x by (40)\nend\ngo to [front v] layer\ngo to x: (0) y: (0)\nwait (0.5) seconds\ngo to [front v] layer\nrepeat (12)\n    change x by (40)\nend\ngo to [front v] layer\nhide\nbroadcast (次へ v)\nset [ee v] to [0]\n\nwhen I receive [next v]\nforever\n    go to [front v] layer\nend\n\n@スプライト10\n\nwhen I receive [start！ v]\nhide\ngo to [front v] layer\nforever\n    wait (pick random (7) to (4)) seconds\n    show\n    start sound [ポップ v]\n    go to x: (-91) y: (200)\n    point in direction (90)\n    set size to (100) %\n    repeat until <[160] > (y position)>\n        change y by (((2) - (y position)) / (20))\n    end\n    wait (2.5) seconds\n    repeat until <(y position) > [207]>\n        change y by ((y position) / (20))\n    end\n    hide\nend\n\n@棘2\n\nwhen flag clicked\nhide\n\nwhen I receive [start！ v]\npoint in direction (90)\nset rotation style [all around v]\nset y to (20)\nhide\nforever\n    if <([costume # v] of [ステージ。 v]) = [7]> then\n        go to [back v] layer\n        go [backward v] (1) layers\n        set x to (80)\n        set y to (-77)\n        show\n        switch costume to (コスチューム1 v)\n        set size to (100) %\n    end\n    if <([costume # v] of [ステージ。 v]) = [8]> then\n        hide\n    end\n    if <([costume # v] of [ステージ。 v]) = [10]> then\n        go to [front v] layer\n        go [backward v] (2) layers\n        show\n        point in direction (-90)\n        set size to (150) %\n        go to x: (28) y: (83)\n    end\n    if <([costume name v] of [ステージ。 v]) = [ゴール]> then\n        hide\n    end\nend\n\nwhen I receive [next v]\ngo [backward v] (1) layers\n\n@マグまぁ\n\nwhen flag clicked\nhide\nset size to (45) %\ngo to x: (-1) y: (-30)\nforever\n    if <([costume # v] of [ステージ。 v]) = [8]> then\n        go to [back v] layer\n        go [backward v] (10) layers\n        show\n    end\n    if <not <([costume # v] of [ステージ。 v]) = [8]>> then\n        hide\n    end\nend\n\nwhen I receive [next v]\ngo [backward v] (2) layers\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nforever\n    reset timer\nend\n\nwhen I receive [start！ v]\nhide\n\nwhen [timer v] > (0)\nswitch costume to (サムネ1 v)\nset size to (102) %\nstart sound [ピシッ v]\ngo to [front v] layer\nshow\nrepeat (5)\n    go to x: (pick random (-7) to (7)) y: (pick random (-7) to (7))\nend\nset size to (100) %\ngo to x: (0) y: (0)\n\nwhen [timer v] > (0)\nforever\n    reset timer\nend\n\n@水\n\nwhen flag clicked\nhide\ngo to x: (48) y: (0)\ngo to [front v] layer\ngo [backward v] (1) layers\nswitch costume to (2 v)\nforever\n    if <([costume # v] of [ステージ。 v]) = [9]> then\n        show\n    end\n    if <([costume # v] of [ステージ。 v]) = [10]> then\n        show\n    end\n    if <not <<([costume # v] of [ステージ。 v]) = [9]> or <([costume # v] of [ステージ。 v]) = [10]>>> then\n        hide\n    end\nend\n\n@棘3\n\nwhen flag clicked\nhide\nset size to (100) %\n\nwhen I receive [start！ v]\nhide\npoint in direction (90)\nset rotation style [all around v]\nforever\n    if <([costume # v] of [ステージ。 v]) = [7]> then\n        show\n        go to x: (250) y: (-76)\n    end\n    if <([costume # v] of [ステージ。 v]) = [8]> then\n        hide\n    end\n    if <([costume # v] of [ステージ。 v]) = [10]> then\n        go to x: (155) y: (-61)\n        set size to (150) %\n        go to [front v] layer\n        go [backward v] (2) layers\n        show\n    end\n    if <([costume name v] of [ステージ。 v]) = [ゴール]> then\n        hide\n    end\nend\n\nwhen I receive [next v]\ngo to [back v] layer\n\n@スプライト3\n\nwhen flag clicked\nforever\n    switch costume to ([costume # v] of [ステージ。 v])\n    if <([costume name v] of [ステージ。 v]) = [ゴール]> then\n        hide\n    else\n        go to [front v] layer\n        go [backward v] (1) layers\n        go to x: (-216) y: (146)\n        show\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\ngo to x: (0) y: (20)\nset size to (100) %\nhide\nforever\n    if <([costume name v] of [ステージ。 v]) = [ゴール]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\nhide variable [タイム v]\nhide variable [☁ 作者記録 v]\nset [タイム v] to [0]\nhide variable [☁ 作者記録 v]\nset [作者記録ん v] to [0]\nif <(username) = [yuumeinahito]> then\n    repeat until <([costume name v] of [ステージ。 v]) = [ゴール]>\n        wait (0.1) seconds\n        change [作者記録ん v] by (0.1)\n    end\n    wait until <([costume name v] of [ステージ。 v]) = [ゴール]>\n    show variable [☁ 作者記録 v]\n    set [☁ 作者記録 v] to (作者記録ん)\nend\n\nwhen flag clicked\nrepeat until <([costume name v] of [ステージ。 v]) = [ゴール]>\n    wait (0.1) seconds\n    change [タイム v] by (0.1)\nend\nshow variable [タイム v]\nshow variable [☁ 世界記録 v]\nif <<<(タイム) < (☁ 世界記録)> and <not <(☁ 世界記録) = [0]>>> and <([costume name v] of [ステージ。 v]) = [ゴール]>> then\n    set [☁ 世界記録 v] to (タイム)\nend\n\n@スプライト5\n\nwhen flag clicked\nforever\n    if <(username) = [kukki-tyann]> then\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\ncreate clone of (_myself_ v)\ndelete this clone\n\nwhen [timer v] > (0)\nforever\n    if <(username) = [kukki-tyann]> then\n        create clone of (_myself_ v)\n    end\nend\n\n@マグまぁ2\n\nwhen flag clicked\nhide\nset size to (45) %\ngo to x: (-1) y: (-30)\nforever\n    if <([costume # v] of [ステージ。 v]) = [8]> then\n        wait (0.4) seconds\n    end\n    if <not <([costume # v] of [ステージ。 v]) = [8]>> then\n        broadcast (削除 v)\n    end\nend\n\nwhen I receive [next v]\ngo [backward v] (2) layers\n\nwhen I start as a clone\ngo to x: (X\(Bor\)) y: (49)\ngo to [back v] layer\nshow\nrepeat (30)\n    change y by ([abs v] of (((y position) - (200)) / (8)) )\nend\nrepeat (30)\n    change y by (join [-] (((y position) - (-300)) / (8)))\nend\ndelete this clone\n\nwhen I receive [削除 v]\ndelete this clone\n\ndelete this clone\n\ngo to [back v] layer\n\ndefine X座標 (たま)\nset [x\(bor\) v] to (たま)\ncreate clone of (_myself_ v)\n\nX座標 [-80]\n\nbroadcast (削除 v)\n\nX座標 [40]\n\ndefine いっけえ\n\nX座標 [40]\n\nいっけえ\n\nX座標 [-200]\n\n