Blue//青 A Platformer//プラットフォーマー
@Stage\n\nwhen flag clicked\nforever\n    play sound [Illenium - Let You Go \(ft v] until done\nend\n\n@Player\n\nwait until <(move) = [OK]>\n\nwhen flag clicked\nset [ゴール! v] to [0]\nwait (0.4) seconds\nsay [♡と☆を押すと背景が変わるよ!!] for (2.5) seconds\nhide variable [☁ 人 v]\nset size to (90) %\n\nwhen flag clicked\nset [あ v] to [0]\nrepeat until <(あ) = [1]>\n    hide\nend\n\nwhen I receive [re start v]\nstart sound [Crunch v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ngo to x: (-216) y: (-58)\nset [動力\(x\) v] to [0]\nset [動力\(y\) v] to [0]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen I receive [イントロ終了 v]\ngo to [front v] layer\ngo [backward v] (1) layers\npoint in direction (90)\ngo to x: (-210) y: (-50)\nset [ghost v] effect to (0)\nset [stage v] to [1]\nset [動力\(x\) v] to [0]\nset [動力\(y\) v] to [0]\nset [move v] to [OK]\nforever\n    set rotation style [left-right v]\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<(x position) > (mouse x)> and <mouse down?>>> then\n        point in direction (-90)\n        change [動力\(x\) v] by (-0.8)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<(mouse x) > (x position)> and <mouse down?>>> then\n        point in direction (90)\n        change [動力\(x\) v] by (0.8)\n    end\n    set [動力\(x\) v] to ((動力\(x\)) * (0.9))\n    change x by (動力\(x\))\n    if <<touching (stage v)?> or <touching (move stage v)?>> then\n        change y by (1)\n        if <<touching (stage v)?> or <touching (move stage v)?>> then\n            change y by (1)\n            if <<touching (stage v)?> or <touching (move stage v)?>> then\n                change y by (1)\n                if <<touching (stage v)?> or <touching (move stage v)?>> then\n                    change y by (1)\n                    if <<touching (stage v)?> or <touching (move stage v)?>> then\n                        change y by (1)\n                        if <<touching (stage v)?> or <touching (move stage v)?>> then\n                            change x by ((動力\(x\)) * (-1))\n                            change y by (-5)\n                            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> then\n                                start sound [Tennis Hit v]\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 [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 <<touching (stage v)?> or <touching (move stage v)?>> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            start sound [Jump v]\n            set [動力\(y\) v] to [15]\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)?> or <touching (move stage v)?>> then\n        change y by ((動力\(y\)) * (-1))\n        set [動力\(y\) v] to [0]\n    end\n    if <<(x position) > [230]> and <not <(stage) = [11]>>> then\n        set [ghost v] effect to (100)\n        go to x: (-216) y: (-58)\n        set [動力\(x\) v] to [0]\n        set [動力\(y\) v] to [0]\n        broadcast (次！ v)\n        set [move v] to [NO]\n        wait (0) seconds\n        change [stage v] by (1)\n        broadcast (stage v)\n        repeat (10)\n            change [ghost v] effect by (-10)\n        end\n        set [ghost v] effect to (0)\n    end\n    if <<<[-180] > (y position)> or <touching (spike v)?>> or <touching (判定 v)?>> then\n        start sound [Crunch v]\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        go to x: (-216) y: (-58)\n        set [動力\(x\) v] to [0]\n        set [動力\(y\) v] to [0]\n        repeat (10)\n            change [ghost v] effect by (-10)\n        end\n    end\n    if <touching (バネ v)?> then\n        start sound [Jump2 v]\n        set [動力\(y\) v] to [20]\n    end\nend\n\nwhen I receive [イントロ終了 v]\nshow\nforever\n    if <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>>> then\n        switch costume to (costume2 v)\n    else\n        switch costume to (costume v)\n    end\nend\n\nwhen I receive [イントロ終了 v]\nset [あ v] to [1]\n\nwhen I receive [イントロ終了 v]\nforever\n    if <(stage) = [11]> then\n        set [ゴール! v] to [1]\n    end\nend\n\nwhen flag clicked\nforever\n    \nend\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        say (join (join [今のクリア人数は] (☁ クリア人数)) [人だよ!!]) for (2) seconds\n        say (join (join [The current number of clearers is] (☁ クリア人数)) [person!!]) for (2) seconds\n    end\nend\n\nwhen flag clicked\nbroadcast (イントロ終了 v)\n\nwhen I receive [イントロ終了 v]\nwait until <<(stage) = [11]> and <not <(username) = [tokie0820]>>>\nchange [☁ クリア人数 v] by (1)\n\n@stage\n\nwhen I receive [stage v]\nset [brightness v] effect to (100)\nrepeat (10)\n    change [brightness v] effect by (-10)\nend\n\nwhen flag clicked\nset [stage v] to [1]\ngo to x: (0) y: (-50)\nset [ghost v] effect to (0)\nforever\n    switch costume to (stage)\nend\n\nwhen I receive [次！ v]\nnext costume\n\nset [stage v] to [12]\n\n@spike\n\nwhen I receive [stage v]\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nset [ghost v] effect to (0)\nforever\n    switch costume to (stage)\nend\n\n@泡エフェ\n\nwhen I start as a clone\ngo to (random position v)\nset size to (pick random (10) to (30)) %\nshow\nrepeat (10)\n    change [fisheye v] effect by (10)\n    change size by (3)\nend\nrepeat (10)\n    change [fisheye v] effect by (-10)\n    change size by (-3)\nend\n\nwhen I start as a clone\nrepeat until <[170] < (y position)>\n    change y by (10)\nend\ndelete this clone\n\nwhen I receive [次の場所スタート v]\nbroadcast (???? v)\nstop [this script v]\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nset [fisheye v] effect to (0)\nforever\n    wait (0.1) seconds\n    create clone of (_myself_ v)\nend\n\n@半透明\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\n\n@time\n\nwhen flag clicked\nshow\nforever\n    switch costume to (letter (1) of (time))\n    set [長さ v] to [0]\n    if <[1] < (length of (time))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[2] < (length of (time))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[3] < (length of (time))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[4] < (length of (time))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[5] < (length of (time))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\nend\n\nwhen I start as a clone\n位\n\nwhen flag clicked\nset size to (50) %\ngo to [front v] layer\ngo [backward v] (1) layers\ngo to x: (-120) y: (158)\n\ndefine 位\nset [クローン用長さ2 v] to (長さ)\nswitch costume to (letter ((クローン用長さ2) - (-1)) of (time))\nchange x by (((size) * (0.5)) * (クローン用長さ2))\nwait (0.2) seconds\ndelete this clone\n\nwhen flag clicked\nset [イントロ終了 v] to [0]\nset [time v] to [0]\nhide variable [time v]\nset [イントロ終了 v] to [1]\nwait until <(イントロ終了) = [1]>\nrepeat until <(stage) = [11]>\n    wait (1) seconds\n    change [time v] by (1)\nend\n\n@半透明白\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nhide\n\ngo [backward v] (1) layers\n\nshow\nwait (2) seconds\n\n@判定\n\nwhen flag clicked\ngo to [back v] layer\ngo [forward v] (3) layers\nset [ghost v] effect to (100)\nshow\ngo to x: (0) y: (-180)\n\n@worldrecord\n\nwhen flag clicked\nshow\nforever\n    switch costume to (letter (1) of (☁ worldrecord))\n    set [長 v] to [0]\n    if <[1] < (length of (☁ worldrecord))> then\n        change [長 v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[2] < (length of (☁ worldrecord))> then\n        change [長 v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[3] < (length of (☁ worldrecord))> then\n        change [長 v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[4] < (length of (☁ worldrecord))> then\n        change [長 v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[5] < (length of (☁ worldrecord))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\nend\n\nwhen I start as a clone\n位\n\nwhen flag clicked\nset size to (50) %\ngo to [front v] layer\ngo [backward v] (1) layers\ngo to x: (180) y: (158)\n\ndefine 位\nset [クローン用長さ v] to (長)\nswitch costume to (letter ((クローン用長さ) - (-1)) of (☁ worldrecord))\nchange x by (((size) * (0.5)) * (クローン用長さ))\nwait (0.2) seconds\ndelete this clone\n\nwhen flag clicked\nwait (3) seconds\nwait until <(ゴール!) = [1]>\nif <<(☁ worldrecord) > (time)> and <not <[30] > (time)>>> then\n    set [☁ worldrecord v] to (time)\nend\n\nset [☁ worldrecord v] to [45]\n\n@ターボ対策\n\nwhen flag clicked\nforever\n    set [⚡秒数記憶 v] to (days since 2000)\n    repeat (2)\n        change [color v] effect by (0)\n    end\n    if <((days since 2000) - (⚡秒数記憶)) < [0.0000001]> then\n        set [ターボ判定 v] to [1]\n    else\n        set [ターボ判定 v] to [0]\n    end\nend\n\nwhen flag clicked\nset [ターボ判定 v] to [0]\nshow\nforever\n    if <(ターボ判定) = [1]> then\n        stop [all v]\n    end\nend\n\n@フォロー星ハート\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nforever\n    go to x: (145) y: (195)\n    show\n    repeat (9)\n        change y by (-6)\n    end\n    repeat (5)\n        change y by (3)\n    end\n    repeat (5)\n        change y by (-1)\n    end\n    wait (5) seconds\n    repeat (15)\n        change y by (7)\n    end\n    hide\n    wait (pick random (30) to (35)) seconds\nend\n\n@　　\n\nwhen I receive [メッセージ1 v]\n\nshow\nwait (1.5) seconds\nrepeat (10)\n    change size by (-10)\nend\nhide\n\nwhen flag clicked\nchange size by (100)\nset size to (100) %\ngo to x: (0) y: (0)\nhide\n\n@♡&☆判定\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nset [星b v] to [No]\nforever\n    set [星a v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n        wait (0.6) seconds\n        broadcast (メッセージ1 v)\n        wait until <(level) = [101001100101010101001]>\n    end\nend\n\nwhen I receive [イントロ終了 v]\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nset [ハートb v] to [No]\nforever\n    set [ハートa v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [ハートb v] to [Yes]\n        wait (0.6) seconds\n        broadcast (メッセージ1 v)\n    end\nend\n\n@サムネイル\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    go to [front v] layer\n    reset timer\n    hide\nend\n\nwhen [timer v] > (0)\nshow\ngo to [front v] layer\nset [brightness v] effect to (150)\nrepeat (50)\n    change [brightness v] effect by (-2)\nend\n\n@ああ\n\nwhen flag clicked\nhide variable [☁ time v]\nif <not <(username) = [tokie0820]>> then\n    set [☁ 人 v] to (username)\nend\n\n@海\n\nwhen flag clicked\ngo to [back v] layer\nhide\n\nwhen I receive [メッセージ1 v]\nshow\nset [ghost v] effect to (100)\nrepeat (4)\n    change [ghost v] effect by (-25)\nend\n\n
"English"　　　　　　　　　　　《⇩下に日本語⇩》\n◤ Operation method ◢\nArrow key or WASD key or scroll・mouse\n\n◤ Difficulty ◢\n★★★★☆\n\n◤remarks◢\nIf you press the space key, the current number of clearers will be displayed\n\n"日本語"\n◤操作方法◢\n矢印キー or WASDキー or スクロール・マウス\n\n◤難易度◢\n★★★★☆\n\n◤備考◢\nスペースキーを押すと今のクリア人数が表示されます