Different— A Platformer

Instructions: move left [A or LEFT ARROW]\nmove right [D or RIGHT ARROW]\n\nif u dont get the story, thats fine. im kinda bad at tellin them. basically, u bought jetpack thats $1. it malfunctions. it starts jumping uncontrollably. and uh, yeah\n\n

@Stage\n\nwhen flag clicked\nforever\n    play sound [c418-sweden-minecraft-volume-alpha v] until done\nend\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p7 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\n\ndefine ユーザー名数値化\nset [users v] to [0]\nset [ユーザー名数値化 v] to []\nrepeat (length of (username))\n    change [users v] by (1)\n    switch costume to (letter (users) of (username))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) (costume [number v]))\nend\nrepeat ((40) - (length of (ユーザー名数値化)))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [users v]\nset [回数 v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [回数 v] by (1)\n    set [読み込み v] to [0]\n    set [1 v] to []\n    repeat (20)\n        if <not <(join (letter ((読み込み) + (1)) of (item (回数) of [p1〜10 v])) (letter ((読み込み) + (2)) of (item (回数) of [p1〜10 v]))) = [00]>> then\n            change [読み込み v] by (2)\n            switch costume to (join (letter ((読み込み) - (1)) of (item (回数) of [p1〜10 v])) (letter (読み込み) of (item (回数) of [p1〜10 v])))\n            set [1 v] to (join (1) (costume [name v]))\n        end\n    end\n    add (1) to [users v]\nend\n\nturn left (15) degrees\n\n@キャラ\n\nwhen flag clicked\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to [-200]\nset [視点y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\ndefine 動作\nbroadcast (プログラム v)\nif <(動いていい?) = [1]> then\n    if <touching (水 v)?> then\n        change [y v] by (-0.1)\n    else\n        change [y v] by (-1)\n    end\n    change [i v] by (1)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n        set rotation style [left-right v]\n        point in direction (1)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n        set rotation style [left-right v]\n        point in direction (-1)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.88))\n    change x by (x)\n    repeat (15)\n        if <touching (地面 v)?> then\n            change y by (1)\n        end\n    end\n    if <touching (地面 v)?> then\n        change y by (-15)\n        位置補正x (() - ((x) / ([abs v] of (x) ))) ([ceiling v] of ([abs v] of (x) ) )\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n            set [y v] to [12]\n            set [x v] to ((7) - (<(x) > [0]> * (14)))\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (地面 v)?> then\n        位置補正y (() - ((y) / ([abs v] of (y) ))) ([ceiling v] of ([abs v] of (y) ) )\n    end\n    change y by (-1.1)\n    if <<touching (地面 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n        if <touching (背景 v)?> then\n    end\n    if <<touching (水 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n        set [y v] to [5]\n    end\n    change y by (1.1)\n    if <<(Y) < [-400]> or <touching (障害物 v)?>> then\n        初期位置\n    end\n    処理\n    broadcast (プログラム2 v)\n    if <(x position) > [70]> then\n        set x to (70)\n    end\n    if <(x position) < [-60]> then\n        set x to (-60)\n    end\nend\n\nif <(チャットか？) = [0]> then\nend\n\nif <(チャットか？) = [0]> then\nend\n\nif <(チャットか？) = [0]> then\nend\n\nif <(チャットか？) = [0]> then\nend\nif <(チャットか？) = [0]> then\nend\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (視点x)))\nchange [y v] by ((y position) - (((Y) - (視点y)) - (20)))\nchange [視点x v] by ([floor v] of (((X) - (視点x)) * (0.1)) )\nchange [視点y v] by ([floor v] of (((Y) - (視点y)) * (0.2)) )\nset x to ((X) - (視点x))\nset y to (((Y) - (視点y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(x) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (地面 v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(y) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (地面 v)?>>)))\nset [y v] to [0]\n\ndefine 初期位置\npoint in direction (1)\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to (復活x)\nset [視点y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\nset [しゃべる言葉 v] to [0]\n\nwhen flag clicked\nshow\nset size to (50) %\npoint in direction (1)\n\nwhen flag clicked\nwait (0.1) seconds\ngo to [front v] layer\ngo [forward v] (2) layers\n\nwhen I receive [オンライン！ v]\nset [しゃべる言葉 v] to [0]\nforever\n    if <not <(username) = []>> then\n        if <(しゃべる言葉) = [0]> then\n            say (username)\n        else\n            say (join (join (username) [:]) (item (しゃべる言葉) of [しゃべる言葉 v]))\n        end\n    end\nend\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [当たったー v]\n初期位置\n\nwhen flag clicked\nforever\n    if <key (any v) pressed?> then\n        broadcast (プログラム v)\n    end\nend\n\nwhen I start as a clone\ndelete this clone\n\nwhen [timer v] > (0.1)\nforever\n    broadcast (メッセージ1 v)\n    broadcast (プログラム v)\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nforever\n    reset timer\n    wait (0.1) seconds\nend\n\nwhen flag clicked\nforever\n    if <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <(視点x) < [4515]>>> then\n        play sound [grass v] until done\n        wait until <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <(視点x) < [4515]>>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(Y) < [-400]> or <touching (障害物 v)?>> then\n        play sound [ダメージ v] until done\n    end\nend\n\nwhen flag clicked\nforever\n    if <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <<(視点x) > [4515]> and <(視点x) < [6320]>>>> then\n        play sound [stone v] until done\n        wait until <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <<(視点x) > [4515]> and <(視点x) < [6320]>>>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <(視点x) > [6320]>>> then\n        play sound [sand v] until done\n        wait until <<<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <<(y) < [1]> and <(y) > [-1]>>> and <<not <touching (水 v)?>> and <(視点x) > [6320]>>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <touching (水 v)?>> then\n        play sound [Swim v] until done\n        wait until <<<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> and <touching (水 v)?>>\n    end\nend\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((4600) - (視点x)) ((77) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [4600]\n        set [復活y v] to [77]\n        broadcast (新しいメッセージ v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time2)\nhide\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [新しいメッセージ v]\nplay sound [Click v] until done\n\n@地面\n\nwhen flag clicked\nwait (0.1) seconds\nset [量 v] to [15]\nhide\nset [ステージのxy v] to [0]\nset [量 v] to [1]\ngo to [front v] layer\nset [ステージの番号 v] to [1]\nステージ配置 [0] [0] [2]\nステージ配置 [480] [0] [3]\nステージ配置 [960] [0] [4]\nステージ配置 ((960) + (480)) [0] [5]\nステージ配置 ((1440) + (480)) [0] [6]\nステージ配置 (((1440) + (480)) + (480)) [0] [7]\nステージ配置 (((1440) + (480)) + (960)) [0] [8]\nステージ配置 (((1440) + (960)) + (960)) [0] [9]\nステージ配置 (((1440) + (1440)) + (960)) [0] [10]\nステージ配置 (((1440) + (1440)) + (1440)) [0] [11]\nステージ配置 (((1920) + (1440)) + (1440)) [0] [12]\nステージ配置 ((4800) + (480)) [0] [13]\nステージ配置 ((4800) + (960)) [0] [14]\nステージ配置 ((4800) + (1440)) [0] [15]\nステージ配置 ((4800) + (1920)) [0] [16]\nステージ配置 ((4800) + (2400)) [0] [17]\nステージ配置 ((4800) + (2880)) [0] [18]\nステージ配置 ((4800) + (3360)) [0] [19]\nステージ配置 ((4800) + (3840)) [0] [20]\nステージ配置 ((4800) + (4320)) [0] [21]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nset [ステージの番号 v] to (ステージ番号)\nswitch costume to (ステージ番号)\nset [ステージのxy v] to (x座標)\nset [my_n v] to (ステージ番号)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\nhide\n\nchange [brightness v] effect by (25)\n\n@スプライト1\n\nwhen flag clicked\nset [ghost v] effect to (0)\ngo to [front v] layer\nwait (0.2) seconds\nbroadcast (光 v)\n\nwhen I receive [光 v]\nshow\nforever\n    go to (キャラ v)\nend\n\nwhen [timer v] > (time2)\nhide\n\n@水\n\nwhen flag clicked\nhide\ngo to [back v] layer\nset [ghost v] effect to (0)\nswitch costume to (none v)\nステージ配置 [480] [0] [2]\nステージ配置 [481] [0] [2]\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (ステージ番号)\nset [my_n v] to (ステージ番号)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@障害物\n\nwhen flag clicked\npoint in direction (90)\nhide\nwait (0) seconds\ngo to [back v] layer\npoint in direction (90)\nステージ配置 (((1920) + (1440)) + (1440)) [0] [2]\nステージ配置 ((4800) + (960)) [0] [3]\nステージ配置 ((4800) + (1920)) [0] [4]\nステージ配置 ((4800) + (2880)) [0] [5]\nステージ配置 ((4800) + (3840)) [0] [6]\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\npoint in direction (90)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (ステージ番号)\nset [my_n v] to (ステージ番号)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((2100) - (視点x)) ((-60) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [2100]\n        set [復活y v] to [-60]\n        broadcast (新しいメッセージ2 v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [新しいメッセージ2 v]\nstart sound [Click v]\n\n@サムネ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [ghost v] effect to (100)\nset size to (100) %\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nshow\nset size to (100) %\n\nwhen flag clicked\nforever\n    if <not <<<<<(☁ 1P) = [0]> and <(☁ 2P) = [0]>> and <(☁ 3P) = [0]>> and <<(☁ 4P) = [0]> and <(☁ 5P) = [0]>>> and <<<<(☁ 6P) = [0]> and <(☁ 7P) = [0]>> and <(☁ 8P) = [0]>> and <<(☁ 9P) = [0]> and <(☁ 10P) = [0]>>>>> then\n        switch costume to (コスチューム2 v)\n        show\n        go to [front v] layer\n        go to x: (0) y: (0)\n        wait (0.1) seconds\n        stop [all v]\n    end\nend\n\n@背景\n\nwhen flag clicked\nhide\nset [ghost v] effect to (100)\nforever\n    set [time2 v] to (timer)\n    point in direction (90)\nend\n\nwhen [timer v] > (time2)\nsay [遊んでくれてありがとう!!!!!!!!]\n\nif <(クリア) = [0]> then\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nelse\n    stop all sounds\n    start sound [Cheer v]\n    switch costume to (最後 v)\n    go to x: (0) y: (0)\n    show\n    go to [front v] layer\n    set size to (1) %\n    repeat (20)\n        change size by (5)\n    end\n    wait until <not <mouse down?>>\n    wait until <mouse down?>\n    hide\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nend\n\n@バネ\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((5230) - (視点x)) ((0) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <touching (キャラ v)?> then\n        set [y v] to [20]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@スプライト3\n\nwhen flag clicked\ngo to x: (170) y: (120)\nset [brightness v] effect to (50)\n\nglide (1) secs to x: (224) y: (166)\n\n@スプライト4\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen [timer v] > (time2)\nhide\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((6240) - (視点x)) ((-60) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [6240]\n        set [復活y v] to [150]\n        broadcast (新しいメッセージ3 v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen I receive [新しいメッセージ3 v]\nplay sound [Click v] until done\n\n@チェックポイント3\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((9120) - (視点x)) ((-60) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [9120]\n        set [復活y v] to [40]\n        broadcast (新しいメッセージ3 v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [新しいメッセージ3 v]\nplay sound [Click v] until done\n\nwhen [timer v] > (time)\nhide\n\n@スプライト2\n\nwhen flag clicked\nhide\nforever\n    switch costume to (コスチューム1 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\n    switch costume to (コスチューム2 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\n    switch costume to (コスチューム3 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\nend\n\nwhen I start as a clone\nshow\ngo to [back v] layer\ngo to x: (265) y: (0)\nglide (15) secs to x: (-265) y: (0)\ndelete this clone\n\n@スプライト7\n\n