Athretic || A Scrolling Platformer

Instructions: 日本語は下\n\n<How to use>\n\nUse the left and right arrow keys or the AD key to move.\nUp arrow key or W key to jump.\nUse the down arrow key or the S key to slide.\nYou can also tap to control.\nIf it is slow, try running it with this.\nhttps://turbowarp.org/568125027?interpolate\n\nAbout the stage\nDark blue: Normal ground.\nSpikes and round blades: If you are hit, you will be returned to the flag position.\nFlag: Turns green when approached. If you hit an obstacle, you will be returned to this position.\nYellow: jumping platforms.\nBlue: Lift. When you ride it, you move up and down.\nPink: The closer the player gets, the harder it is to see.\n\n\n<Tags>\n#all #game #games #Athretic #platformer #Athreticplatformer #Scrolling #Scrollingplatformer \n\n\n<credits>\n\nBGM:Elektronomia - Sky High [NCS Release]\nProgram:@hiron0413_sub\nIdea: google chrome extension game "Vex5"\nCat's Costume: @griffpatch\n\n\n＜使い方＞\n\n・左右矢印キーまたはADキーで移動します。\n・上矢印キーまたはWキーでジャンプします。\n・下矢印キーまたはSキーでスライディングします。\n・タップでも操作できます。\n・重い場合はこれで実行してみてください。\nhttps://turbowarp.org/568125027?interpolate\n\nステージについて\n紺色：普通の地面です。\nトゲ・丸い刃：当たると旗の位置に戻されます。\n旗：近づくと緑色になります。障害物に当たるとここに戻されます。\n黄色：ジャンプ台です。\n青：リフトです。乗ると上下方向に移動します。\nピンク：プレイヤーが近づくにつれて見えにくくなります。\n\n\n＜タグ＞\n#all #game #games #Athretic #platformer #Athreticplatformer #Scrolling #Scrollingplatformer \n\n\n＜クレジット＞\n\nBGM:Elektronomia - Sky High [NCS Release]\nプログラム:@hiron0413_sub様\nアイデア:google chromeの拡張機能のゲーム「Vex5」\ncatのコスチューム:@griffpatch様

@Stage\n\nwhen I receive [いんとろしゅーりょー v]\nset volume to (50) %\nforever\n    play sound [Elektronomia - Sky High \[NCS Release\] v] until done\nend\n\nwhen I receive [はいけい v]\nset [color v] effect to (pick random (0) to (199))\nswitch backdrop to (ゲーム中 v)\n\nwhen flag clicked\nswitch backdrop to (intro v)\n\nwhen I receive [いんとろしゅーりょー v]\nwait (0) seconds\nset [傾向1pに載ってくれぇぇぇぇぇ!!!!!!! v] to (days since 2000)\nrepeat until <(ゴール) = [1]>\n    set [time v] to ([floor v] of (((days since 2000) - (傾向1Pに載ってくれぇぇぇぇぇ!!!!!!!)) * (86400)) )\nend\n\n@intro\n\nwhen flag clicked\nset [雑用 v] to [0]\nreset timer\nset volume to (50) %\nstart sound [Laszlo - Here We Are \[NCS Release\] v]\ngo to x: (0) y: (0)\nclear graphic effects\nswitch costume to (丸 v)\nset size to (100) %\nhide\nrepeat (10)\n    create clone of (_myself_ v)\n    change [color v] effect by (1)\n    wait (0.05) seconds\nend\nclear graphic effects\nswitch costume to (null v)\ncreate clone of (_myself_ v)\n[2.1] まで待つ\nswitch costume to (syokaki v)\ncreate clone of (_myself_ v)\n[2.7] まで待つ\nswitch costume to (icon v)\ncreate clone of (_myself_ v)\n[4] まで待つ\nswitch costume to (えふぇくと v)\nrepeat until <(timer) > [8]>\n    ((雑用) + (4)) まで待つ\n    go to x: (-140) y: (100)\n    create clone of (_myself_ v)\n    go to x: (140) y: (100)\n    create clone of (_myself_ v)\n    go to x: (0) y: (0)\n    create clone of (_myself_ v)\n    go to x: (140) y: (-100)\n    create clone of (_myself_ v)\n    go to x: (-140) y: (-100)\n    create clone of (_myself_ v)\n    change [雑用 v] by (0.7)\nend\n[8.7] まで待つ\nbroadcast (はいけい v)\n\nwhen I start as a clone\nif <(costume [name v]) = [丸]> then\n    show\n    go to [front v] layer\n    repeat until <(size) > [1400]>\n        switch costume to (null v)\n        change size by ((size) / (4))\n        switch costume to (丸 v)\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nelse\n    if <(costume [name v]) = [syokaki]> then\n        go to x: (-269) y: (180)\n        point in direction (0)\n        set [ghost v] effect to (100)\n        show\n        repeat (15)\n            change x by (((0) - (x position)) / (2.7))\n            change y by (((0) - (y position)) / (2.7))\n            turn right (((90) - (direction)) / (2.7)) degrees\n            change [ghost v] effect by (-6.6)\n        end\n        [2.4] まで待つ\n        delete this clone\n    else\n        if <(costume [name v]) = [icon]> then\n            go to x: (0) y: (0)\n            set size to (3) %\n            show\n            repeat (40)\n                set [雑用 v] to (((雑用) * (0.75)) + (((100) - (size)) * (0.5)))\n                change size by (雑用)\n            end\n            [4] まで待つ\n            repeat until <(timer) > [5.6]>\n                go to x: (pick random (-5) to (5)) y: (pick random (-5) to (5))\n            end\n            go to x: (-1) y: (0)\n            set [雑用 v] to [0]\n            repeat until <(x position) < [-290]>\n                change [雑用 v] by (0.3)\n                change x by ((x position) / (3))\n                turn left (雑用) degrees\n            end\n            set x to (299)\n            point in direction (180)\n            repeat until <(x position) < [1]>\n                change x by (((0) - (x position)) / (3))\n                turn right (((90) - (direction)) / (3)) degrees\n            end\n            repeat until <(timer) > [8.3]>\n                go to x: (pick random (-5) to (5)) y: (pick random (-5) to (5))\n            end\n            set [雑用 v] to [0]\n            repeat until <(size) < [4]>\n                change [雑用 v] by (-0.5)\n                change size by (雑用)\n            end\n            delete this clone\n        else\n            if <(costume [name v]) = [えふぇくと]> then\n                set size to (3) %\n                show\n                repeat (20)\n                    change size by (5)\n                    change [ghost v] effect by (5)\n                end\n                delete this clone\n            else\n                set size to (1400) %\n                switch costume to (丸 v)\n                show\n                go to [back v] layer\n                [8.8] まで待つ\n                repeat until <(size) < [12]>\n                    change [雑用 v] by (-3)\n                    if <(size) > [100]> then\n                        switch costume to (null v)\n                    end\n                    change size by (雑用)\n                    switch costume to (丸 v)\n                end\n                broadcast (いんとろしゅーりょー v)\n                delete this clone\n            end\n        end\n    end\nend\n\ndefine (秒数) まで待つ\nwait until <(timer) > (秒数)>\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\ndefine 動作\nif <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<(mouse y) < [-70]> and <mouse down?>>>> then\n    switch costume to (スライディング当たり判定 v)\n    set [コスチュームno. v] to [20]\n    set [xの力 v] to ((xの力) * (1.1))\nelse\n    switch costume to (通常当たり判定 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n        change [xの力 v] by (1)\n        point in direction (90)\n        change [コスチュームno. 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        change [xの力 v] by (-1)\n        point in direction (-90)\n        change [コスチュームno. v] by (1)\n    end\n    if <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> and <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>> then\n        change [コスチュームno. v] by (-2)\n    end\n    if <(コスチュームNO.) > [17]> then\n        set [コスチュームno. v] to [2]\n    end\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nif <<<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?>>>>> then\nchange [yの力 v] by (-1)\nrepeat (10)\n    if <<touching (普通の地面 v)?> or <<touching (リフト v)?> or >> then\n        change y by (1)\n    end\nend\nif <<touching (普通の地面 v)?> or <<touching (リフト v)?> or >> then\n    change y by (-10)\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) > [70]> and <mouse down?>>>> then\n        if <(コスチュームNO.) = [20]> then\n            set [xの力 v] to [0]\n        else\n            set [yの力 v] to [12]\n            set [xの力 v] to ((7) - (<(xの力) > [0]> * (14)))\n        end\n    else\n        set [xの力 v] to [0]\n    end\nend\nchange y by (yの力)\nif <<touching (普通の地面 v)?> or <<touching (リフト v)?> or >> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nset [ジャンプ中 v] to [1]\nif <<touching (普通の地面 v)?> or <<touching (リフト v)?> or >> then\n    set [ジャンプ中 v] to [0]\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [70]> and <mouse down?>>>> then\n        if <(コスチュームNO.) = [20]> then\n    end\nend\nif <touching (ジャンプ台 v)?> then\n    set [yの力 v] to [20]\nend\nchange y by (1.1)\nif <(ジャンプ中) = [1]> then\n    if <(yの力) > [0]> then\n        set [コスチュームno. v] to [18]\n    else\n        set [コスチュームno. v] to [19]\n    end\nend\nswitch costume to (コスチュームNO.)\nif <<(yの力) < [-25]> or <<touching (トゲ v)?> or <<touching (丸ノコ v)?> or <<<touching (紐付き丸ノコ v)?> and <touching color (#ff0000)?>> or >>>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Camera_x)))\nchange [y v] by ((y position) - (((Y) - (Camera _y)) - (20)))\nchange [camera_x v] by ([floor v] of (((X) - (Camera_x)) * (0.1)) )\nchange [camera _y v] by ([floor v] of (((Y) - (Camera _y)) * (0.2)) )\ngo to x: ((X) - (Camera_x)) y: (((Y) - (Camera _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 <<touching (リフト v)?> or <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)?> or <<touching (リフト v)?> or >>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <<touching (普通の地面 v)?> or <<touching (リフト v)?> or <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)?> or <<touching (リフト v)?> or >>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\npoint in direction (復活向き)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen I receive [いんとろしゅーりょー v]\ngo to x: (0) y: (-20)\nset rotation style [left-right v]\nset [復活x v] to [-200]\nset [復活y v] to [0]\nset [復活向き v] to [90]\nset size to (80) %\nshow\n初期位置\n\n@普通の地面\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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 <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2400] [500] [7]\nステージ配置 [1920] [500] [8]\nステージ配置 [1440] [500] [9]\nステージ配置 [150] [500] [10]\nステージ配置 [500] [1000] [11]\nステージ配置 [940] [1000] [12]\nステージ配置 [2600] [1000] [13]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@当たり判定なし\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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 <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [2500] [250] [1]\nステージ配置 [700] [550] [2]\nステージ配置 [1250] [1200] [3]\nステージ配置 [2650] [1000] [4]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@チェックポイント\n\nwhen flag clicked\nhide\n\ndefine 移動 (x) (y)\nswitch costume to (none 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 <<([sqrt v] of ((((Camera_x) - (My_x)) * ((Camera_x) - (My_x))) + (((Camera _y) - (My_y)) * ((Camera _y) - (My_y)))) ) < [150]> and <(チェックポイント到達) = [0]>> then\n        start sound [Collect v]\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to (My_x)\n        set [復活y v] to ((My_y) + (70))\n        set [復活向き v] to (My_復活向き)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\ndefine ステージ配置 (x座標) (y座標) (復活向き)\nswitch costume to (まだ v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nset [my_復活向き v] to (復活向き)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nset [チェックポイント到達 v] to [0]\nステージ配置 [1050] [-70] [90]\nステージ配置 [2350] [-70] [90]\nステージ配置 [1700] [430] [-90]\nステージ配置 [430] [930] [90]\nswitch costume to (none v)\n\n@トゲ\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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 <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [800] [-85] [1]\nステージ配置 [2200] [-10] [2]\nステージ配置 [2500] [-95] [3]\nステージ配置 [2500] [610] [4]\nステージ配置 [-5] [445] [2]\nステージ配置 [800] [1150] [5]\nswitch costume to (none v)\n\n@丸ノコ\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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)\nturn right (3) degrees\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [1440] [-110] [1]\nステージ配置 [2015] [395] [2]\nステージ配置 [1950] [455] [2]\nステージ配置 [1885] [515] [2]\nステージ配置 [1500] [505] [1]\nステージ配置 [1250] [900] [1]\nステージ配置 [1350] [900] [1]\nステージ配置 [1450] [900] [1]\nステージ配置 [1550] [900] [1]\nステージ配置 [1650] [900] [1]\nステージ配置 [1750] [900] [1]\nステージ配置 [1850] [900] [1]\nステージ配置 [1950] [900] [1]\nステージ配置 [2050] [900] [1]\nステージ配置 [2150] [900] [1]\nswitch costume to (none v)\n\n@紐付き丸ノコ\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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)\nturn right (3) degrees\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\ngo to [front v] layer\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [1800] [-125] [1]\nステージ配置 [2620] [100] [2]\nステージ配置 [2380] [250] [2]\nswitch costume to (none v)\n\n@ジャンプ台\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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 <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [2100] [-85] [1]\nステージ配置 [50] [370] [2]\nステージ配置 [130] [650] [2]\nステージ配置 [700] [915] [1]\nステージ配置 [900] [915] [1]\nステージ配置 [1400] [980] [1]\nステージ配置 [1700] [980] [1]\nステージ配置 [2000] [980] [1]\nswitch costume to (none v)\n\n@リフト\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号) (上りか) (可動域)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nset [上りか v] to (上りか)\nset [可動域 v] to (可動域)\nset [i v] to [0]\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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 <(costume [number v]) > [1]> then\n    change [my_y v] by (2)\n    if <(上りか) = [1]> then\n        change [i v] by (2)\n    else\n        change [i v] by (-2)\n    end\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\n    if <(i) > (可動域)> then\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nforever\n    ステージ配置 [2500] [-120] [1] [1] [745]\n    switch costume to (none v)\n    wait (4) seconds\nend\n\n@透ける地面\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\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\n    set [ghost v] effect to (((280) - ([abs v] of ((Camera_x) - (My_x)) )) / (1.8))\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [いんとろしゅーりょー v]\nステージ配置 [1000] [500] [1]\nステージ配置 [800] [500] [1]\nステージ配置 [600] [500] [1]\nステージ配置 [400] [500] [1]\nswitch costume to (none v)\n\n@ゴール\n\nwhen flag clicked\nhide\n\ndefine 移動 (x) (y)\nswitch costume to (none 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 <<([sqrt v] of ((((Camera_x) - (My_x)) * ((Camera_x) - (My_x))) + (((Camera _y) - (My_y)) * ((Camera _y) - (My_y)))) ) < [150]> and <(ゴール) = [0]>> then\n        set [ゴール v] to [1]\n        set [復活x v] to (My_x)\n        set [復活y v] to ((My_y) + (70))\n        set [復活向き v] to [90]\n    end\nend\nswitch costume to ((ゴール) + (2))\n\ndefine ステージ配置 (x座標) (y座標) (復活向き)\nswitch costume to (まだ v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) > [1]> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [いんとろしゅーりょー v]\nset [ゴール v] to [0]\nステージ配置 [2350] [950] [90]\nswitch costume to (none v)\n\n@タイマー表示\n\ndefine クローン\ngo to x: (-190) y: (150)\nswitch costume to (time v)\ncreate clone of (_myself_ v)\ngo to x: (-135) y: (150)\nswitch costume to (数字0 v)\nset [クローンno. v] to [2]\nrepeat (3)\n    create clone of (_myself_ v)\n    change x by (18)\n    change [クローンno. v] by (-1)\nend\n\nwhen I start as a clone\nshow\nif < (costume [name v]) contains [数字]?> then\n    forever\n        if <(length of (TIME)) > (クローンNO.)> then\n            switch costume to (join [数字] (letter ((length of (TIME)) - (クローンNO.)) of (TIME)))\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [いんとろしゅーりょー v]\nhide\nクローン\n\n@さむね\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\n