Platformer 雲の写真とプラットフォーマー！

Instructions: 　　〈フォロワー0.5k記念プラットフォーマー！〉\n　  〈Platformer commemorating 500 followers!〉\n※旗2回推奨！\n　　タボワ版: https://turbowarp.org/639687247\n　　　　　　　　　〈ストーリー〉\n　　　　　　　　　　  <story>\n@46491catは実は雲が大好き！ずっと雲の写真を撮り続けていました。自分で撮った雲の写真とプラットフォーマーをいつか合体させようと思っていました。ついに　その夢が叶います！\n@46491cat actually loves clouds! I've been taking pictures of clouds all the time. I was thinking of combining the cloud photos I took with the platformer someday. Finally that dream will come true!\n\n　　　　　　　　　　  〈操作〉\n　　　　　　　　　   <Operation>\n　　　　　　　     モバイル対応です！\n               ↑上矢印キーかwキーかスペースキー \n　　　　　        →右矢印キーかdキー\n                          ←左矢印キーかaキー                                                  \n\n                            Mobile compatible!\n                ↑ Up arrow key, w key or space key\n                  → Right arrow key or d key\n                           ← Left arrow key or a key\n\n                              〈その他の説明〉\n                          <Other explanations>\n                      全部で10ステージあります！\n               タイムの世界記録を目指して頑張ろう！\n                         There are 10 stages in all!\n       Let's do our best to set the highest world record!\n                 ちなみに@46491catが初めて作った\n　　　　　　　プラットフォーマーです！\n　　　　ハ　ートと星よろしくお願いします！\n今のタイム世界記録保持者:@Gousei-46様. 60.715

@Stage\n\nwhen I receive [イントロスタート！ v]\nhide variable [time v]\nhide variable [☁ time v]\nhide variable [☁ world record　（世界記録） v]\nset [time v] to [0]\nswitch backdrop to (薄明光線1 v)\n\nwhen I receive [スタート！ v]\nswitch backdrop to (日中 v)\nbroadcast (THE END v)\n\nwhen I receive [スタート！ v]\nset [ステージ v] to [1]\nshow variable [time v]\nwait (1.5) seconds\nreset timer\nforever\n    if <not <(ステージ) = [11]>> then\n        set [time v] to (timer)\n    end\nend\n\nwhen I receive [次のステージ v]\nchange [ステージ v] by (1)\n\nwhen I receive [スタート！ v]\nforever\n    if <not <<(ステージ) = [11]> or <(ステージ) = [12]>>> then\n        play sound (pick random (1) to (6)) until done\n    end\nend\n\nwhen I receive [次のステージ v]\nnext backdrop\n\nwhen I receive [ゴール！ v]\nswitch backdrop to (薄明光線1 v)\n\nwhen I receive [ゴール！ v]\nhide variable [time v]\nwait (9.2) seconds\nshow variable [time v]\nshow variable [☁ world record　（世界記録） v]\n\nwhen I receive [ゴール！ v]\nset [☁ time v] to (Time)\nif <<(ステージ) = [11]> and <(Time) < (☁ World record　（世界記録）)>> then\n    set [☁ world record　（世界記録） v] to (Time)\nend\n\n@プレイヤー\n\nwhen I receive [the end v]\n初期設定\nset rotation style [left-right v]\nwait (1.5) seconds\nforever\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [x v] by (-1.1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching color (#00ff1b)?>> then\n                            set [地面 v] to [0]\n                            start sound [壁キック v]\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <key (space v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                                if <(x) < [0]> then\n                                    set [x v] to [10]\n                                else\n                                    set [x v] to [-10]\n                                end\n                                set [y v] to [15]\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 <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <touching (地面 v)?> then\n            set [y v] to [15]\n            start sound [ニュッ v]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <([costume # v] of [地面 v]) = [9]> then\n        set size to (50) %\n        if <[200] < (x position)> then\n            set size to (100) %\n        end\n    else\n        set size to (100) %\n    end\n    if <<touching (地面 v)?> and <<<<key (right arrow v) pressed?> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <key (d v) pressed?>>>> or <<mouse down?> and <(mouse x) < (x position)>>> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n        create clone of (土ぼこりと飛び散った草 v)\n    end\n    if <touching (地面 v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <[240] < (x position)> then\n        broadcast (次のステージ v)\n        wait (1.5) seconds\n        初期設定\n    end\n    if <<touching (障害物 v)?> or <(y position) < [-181]>> then\n        start sound [crashed oof v]\n        初期設定\n    end\n    if <touching (ゴールの旗 v)?> then\n        broadcast (ゴール！ v)\n        stop all sounds\n        stop [this script v]\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1.1)\n    end\nend\n\nwhen I receive [the end v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (右 v)\nrepeat (6)\n    change size by (-5)\n    change [ghost v] effect by (7)\nend\ndelete this clone\n\ndefine 初期設定\nshow\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nset [color v] effect to (pick random (0) to (100))\nswitch costume to (右 v)\ngo to x: (-200) y: (-50)\n\nwhen I receive [ゴール！ v]\nhide\nstop [this script v]\n\nwhen flag clicked\nhide\n\nwhen [r v] key pressed\n初期設定\n\n@地面\n\nwhen flag clicked\nswitch costume to (地面1 v)\nhide\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen I receive [スタート！ v]\nswitch costume to (地面1 v)\nshow\n\nwhen I receive [ゴール！ v]\nhide\n\n@障害物\n\nwhen flag clicked\nhide\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen I receive [スタート！ v]\nswitch costume to (障害物1 v)\nshow\n\nwhen I receive [ゴール！ v]\nhide\n\n@Next\n\nwhen I receive [次のステージ v]\nshow\ngo to [front v] layer\ngo to x: (461) y: (0)\nstart sound [High Whoosh v]\nglide (0.6) secs to x: (0) y: (0)\nwait (0.3) seconds\nglide (0.9) secs to x: (-461) y: (0)\nhide\n\nwhen flag clicked\nhide\n\n@イントロ\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    set [x v] to (x)\n    set [y v] to (y)\n    show\n    set [ghost v] effect to (100)\n    go to x: (-249) y: (-189)\n    point in direction (0)\n    repeat until <<(x position) = (x)> and <(y position) = (y)>>\n        change [ghost v] effect by (-2)\n        turn left (((direction) - (90)) / (7)) degrees\n        change x by (((x) - (x position)) / (7))\n        change y by (((y) - (y position)) / (7))\n    end\n    set [yv v] to [0]\n    set [ghost v] effect to (0)\n    repeat until <(y position) < [-185]>\n        go to [front v] layer\n        change [brightness v] effect by (3)\n        change [ghost v] effect by (3)\n        change y by (yv)\n        turn right (yv) degrees\n        change [yv v] by (-1)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    show\n    clear graphic effects\n    forever\n        go to (random position v)\n        point in direction (pick random (0) to (360))\n        set [ghost v] effect to (100)\n        repeat (20)\n            move (1) steps\n            change [ghost v] effect by (-5)\n            go to [front v] layer\n        end\n        repeat (20)\n            move (1) steps\n            go to [front v] layer\n            change [ghost v] effect by (5)\n        end\n        wait (pick random (0.2) to (1)) seconds\n    end\nend\nif <(costume [number v]) = [3]> then\n    show\n    clear graphic effects\n    go to x: (0) y: (0)\n    point in direction (90)\n    set size to (0) %\n    set [揺れ v] to [0]\n    repeat (55)\n        go to [back v] layer\n        set [揺れ v] to (((揺れ) * (0.75)) + (((100) - (size)) / (3)))\n        change size by (揺れ)\n    end\nend\nif <(costume [number v]) = [4]> then\n    go to x: (0) y: (0)\n    point in direction (90)\n    show\n    clear graphic effects\n    go to [front v] layer\n    go [forward v] (1) layers\n    set size to (4) %\n    repeat until <(size) = [101]>\n        change size by (((101) - (size)) / (9))\n    end\nend\nif <(costume [number v]) = [5]> then\n    go to x: (0) y: (-30)\n    point in direction (90)\n    show\n    set [ghost v] effect to (100)\n    set size to (100) %\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    repeat (6)\n        turn right (3) degrees\n    end\n    repeat (12)\n        turn left (3) degrees\n    end\n    repeat (12)\n        turn right (3) degrees\n    end\n    repeat (12)\n        turn left (3) degrees\n    end\n    repeat (12)\n        turn right (3) degrees\n    end\n    repeat (6)\n        turn left (3) degrees\n    end\n    if <(direction) = [90]> then\n        point in direction (90)\n    else\n        if <(direction) < [90]> then\n            repeat ((90) - (direction))\n                turn right (1) degrees\n            end\n        else\n            if <(direction) > [90]> then\n                repeat ((direction) - (90))\n                    turn left (1) degrees\n                end\n            end\n        end\n    end\n    point in direction (90)\n    set [揺れ v] to [0]\n    repeat (7)\n        change size by (-6)\n    end\n    repeat (55)\n        go to [back v] layer\n        set [揺れ v] to (((揺れ) * (0.75)) + (((100) - (size)) / (3)))\n        change size by (揺れ)\n    end\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\nend\nif <(costume [number v]) = [6]> then\n    go to x: (1000) y: (0)\n    point in direction (90)\n    show\n    go to [front v] layer\n    clear graphic effects\n    start sound [シャキン！ v]\n    repeat (20)\n        change x by (((-20) - (x position)) / (7))\n    end\n    glide (0.5) secs to x: (0) y: (0)\n    wait (0.75) seconds\n    start sound [シャキン！ v]\n    repeat (20)\n        change x by (((-655) - (x position)) / (11))\n    end\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    broadcast (スタート！ v)\nend\n\ndefine ◆\nswitch costume to (◆ v)\ngo to x: (-215) y: (157)\nrepeat (8)\n    repeat (10)\n        set [x v] to (x position)\n        set [y v] to (y position)\n        create clone of (_myself_ v)\n        change x by (49)\n    end\n    set x to (-215)\n    change y by (-48)\nend\n\ndefine ✳︎\nswitch costume to (✳︎ v)\nrepeat (45)\n    create clone of (_myself_ v)\nend\n\ndefine ●\nswitch costume to (● v)\ncreate clone of (_myself_ v)\n\ndefine ○\nswitch costume to (○ v)\ncreate clone of (_myself_ v)\n\nwhen I receive [クローン消す v]\ndelete this clone\n\nwhen I receive [イントロスタート！ v]\nstart sound [「Another good day」 v]\nset size to (100) %\nhide\n\nwhen flag clicked\nbroadcast (イントロスタート！ v)\n◆\nwait (1.2) seconds\n✳︎\nwait (4.5) seconds\n●\nwait (1.6) seconds\n○\nwait (1.7) seconds\nbroadcast (クローン消す v)\n✳︎\nアイコン\nwait (5) seconds\nbroadcast (クローン消す v)\nシャキン！\n\ndefine アイコン\nswitch costume to ( アイコンと46491cat v)\ncreate clone of (_myself_ v)\n\ndefine シャキン！\nswitch costume to (シャキン！ v)\ncreate clone of (_myself_ v)\n\n@広告\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート！ v]\nhide\nforever\n    if <not <(ステージ) = [11]>> then\n        wait (pick random (8) to (5)) seconds\n        show\n        go to [front v] layer\n        start sound [ポップ v]\n        go to x: (-150) y: (400)\n        point in direction (90)\n        set size to (100) %\n        repeat until <[135] > (y position)>\n            change y by (((2) - (y position)) / (20))\n        end\n        wait (2.9) seconds\n        repeat until <(y position) > [207]>\n            change y by ((y position) / (20))\n        end\n        hide\n    end\nend\n\n@ゴールの旗\n\nwhen flag clicked\ngo to x: (152) y: (-70)\nset size to (35) %\nhide\n\nwhen I receive [スタート！ v]\nforever\n    if <([costume # v] of [地面 v]) = [11]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [ゴール！ v]\nforever\n    hide\nend\n\n@アウトロ\n\ndefine 背景\nshow\nclear graphic effects\nforever\n    set [コスチューム変更 v] to [1]\n    create clone of (_myself_ v)\n    wait (0.6) seconds\n    set [コスチューム変更 v] to [2]\n    create clone of (_myself_ v)\n    wait (0.6) seconds\nend\n\nwhen I receive [ゴール！ v]\nstart sound [TheFatRat - Jackpot \(Jackpot EP Track 1\) v]\n\nwhen I start as a clone\nif <(コスチューム変更) = [1]> then\n    switch costume to (ビューンっていくやつ1 v)\nend\nif <(コスチューム変更) = [2]> then\n    switch costume to (ビューンっていくやつ2 v)\nend\ngo to x: (0) y: (-321)\nrepeat until <(y position) > [315]>\n    change y by (10)\nend\ndelete this clone\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\n\nwhen I receive [ゴール！ v]\nshow\nwait (0.1) seconds\nswitch costume to (ゲームクリア！ v)\ngo to x: (1000) y: (0)\nrepeat (23)\n    change x by (((-20) - (x position)) / (9))\nend\ngo to x: (0) y: (0)\nwait (1.5) seconds\nrepeat (13)\n    change x by (((-480) - (x position)) / (9))\nend\nrepeat (10)\n    change x by (((-480) - (x position)) / (9))\n    change [ghost v] effect by (3)\nend\nrepeat (35)\n    change [ghost v] effect by (2)\nend\nswitch costume to (プレイしてくれてありがとう！ v)\ngo to x: (1000) y: (0)\nclear graphic effects\nrepeat (23)\n    change x by (((-20) - (x position)) / (9))\nend\ngo to x: (0) y: (0)\nwait (1.5) seconds\nrepeat (13)\n    change x by (((-480) - (x position)) / (9))\nend\nrepeat (10)\n    change x by (((-480) - (x position)) / (9))\n    change [ghost v] effect by (3)\nend\nrepeat (35)\n    change [ghost v] effect by (2)\nend\nhide\ngo to x: (-480) y: (-360)\nswitch backdrop to (背景1 v)\nbroadcast (アウトロ続き v)\n背景\n\nhide variable [☁ world record　（世界記録） v]\n\n@アウトロ続き\n\nwhen I receive [アウトロ続き v]\ngo to x: (0) y: (0)\nforever\n    show\n    set y to ((5) + (([sin v] of ((timer) * (150)) ) * (10)))\n    go to [front v] layer\nend\n\nwhen flag clicked\nhide\n\n@フォロー\n\nwhen I receive [アウトロ続き v]\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nforever\n    go to [front v] layer\n    set y to ((5) + (([sin v] of ((timer) * (150)) ) * (10)))\n    point in direction ((90) + (([sin v] of ((timer) * (200)) ) * (5)))\n    set size to ((210) + (([sin v] of ((timer) * (200)) ) * (5))) %\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@報告乱用禁止ボタン\n\nwhen flag clicked\nforever\n    go to x: (5) y: (-53)\n    switch costume to (1 v)\n    set [report v] to <<touching (mouse-pointer v)?> or <<touching (mouse-pointer v)?> and <mouse down?>>>\n    if <(Report) = [true]> then\n        go to x: (0) y: (0)\n        create clone of (_myself_ v)\n        change [☁ 報告した人 v] by (1)\n        switch costume to (コスチューム1 v)\n        show\n        go to [back v] layer\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\ncreate clone of (_myself_ v)\ndelete this clone\n\nwhen I receive [メッセージ1 v]\nforever\n    go to x: (5) y: (-53)\n    switch costume to (1 v)\n    set [report v] to <<touching (mouse-pointer v)?> or <<touching (mouse-pointer v)?> and <mouse down?>>>\n    if <(Report) = [true]> then\n        go to x: (0) y: (0)\n        create clone of (_myself_ v)\n        switch costume to (コスチューム1 v)\n        show\n        go to [back v] layer\n    else\n        hide\n    end\nend\n\n@ターボモード検知機\n\nwhen flag clicked\nforever\n    set [ターボモード v] to [0]\n    wait (0.001) seconds\n    if <[3] < (ターボモード)> then\n        show\n        stop [all v]\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    change [ターボモード v] by (1)\nend\n\n@土ぼこりと飛び散った草\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (5) layers\npoint in direction (pick random (-90) to (90))\ngo to (プレイヤー v)\nchange y by (pick random (-17) to (-5))\nset size to (pick random (50) to (100)) %\nswitch costume to (pick random (1) to (2))\nif <(x2) > [-1]> then\n    change x by (-28)\n    set [土ぼこりx v] to (pick random (-3) to (-1))\n    set [土ぼこりy v] to (pick random (2) to (5))\nelse\n    change x by (28)\n    set [土ぼこりx v] to (pick random (1) to (3))\n    set [土ぼこりy v] to (pick random (2) to (5))\nend\nset [brightness v] effect to (pick random (-10) to (10))\nrepeat (20)\n    change [ghost v] effect by (5)\n    change x by (土ぼこりx)\n    change y by (土ぼこりy)\n    if <(x2) > [0]> then\n        turn right (15) degrees\n        change [土ぼこりx v] by (-0.5)\n        change [土ぼこりy v] by (-0.8)\n    else\n        turn left (15) degrees\n        change [土ぼこりx v] by (0.5)\n        change [土ぼこりy v] by (-0.8)\n    end\nend\ndelete this clone\n\n