CLIMB PLATFORMER　登るプラットフォーマー

Instructions: 《English(日本語はメモとクレジットに)》\n【How to operate】\n・press the flag twice\n・Left/Right key or AWD key or tap to move it.\n・Let's move on and avoid the needle!\n※Please allow for minor bugs.\n\n【difficulty】\nPC:★★★★☆　A little difficult\nMobile:★★★★★　Difficult (considerably)\nMobile is easier to do with keyboards and other devices.\n\n【Other】\n♡ and ☆, I hope you follow me!\nWe increased the stage from 17 costumes to 25 costumes and added time!\nPlease let me know if I forgot to write anything else.\n\n【credit】\n・Intro:@-PickleAnimator-\n・Scroll reference:@zazazazazs\n・Thumbnails and goal text:Font Meme\n・The shiny one (?) :@daihiro1031\n・Music:@-xaf-\n・Some sound effects Sound:Sound Effects Lab\n・Background:@Flash-warrior\n・Outro:@nanakusa03\n・English translation:DeepL translation

@Stage\n\nwhen flag clicked\nswitch backdrop to (サムネ v)\nwait (3) seconds\nswitch backdrop to (背景1 v)\n\nwhen I receive [イントロ完 v]\nforever\n    play sound (pick random (1) to (2)) until done\n    play sound (pick random (3) to (4)) until done\n    play sound (pick random (5) to (6)) until done\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 position) y: (y)\nif  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\n\nwhen I receive [隠す v]\ngo to [back v] layer\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\nwhen I receive [イントロ完 v]\npoint in direction (90)\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [0] [500] [2]\nステージ配置 [0] [1000] [3]\nステージ配置 [0] [1300] [4]\nステージ配置 [0] [1600] [5]\nステージ配置 [0] [2000] [6]\nステージ配置 [0] [2400] [7]\nステージ配置 [0] [2800] [8]\nステージ配置 [0] [3200] [9]\nステージ配置 [0] [3600] [10]\nステージ配置 [0] [4000] [11]\nステージ配置 [0] [4400] [12]\nステージ配置 [0] [4800] [13]\nステージ配置 [0] [5200] [14]\nステージ配置 [0] [5600] [15]\nステージ配置 [0] [6000] [16]\nステージ配置 [0] [6400] [17]\nステージ配置 [0] [6800] [18]\nステージ配置 [0] [7200] [19]\nステージ配置 [0] [7600] [20]\nステージ配置 [0] [8000] [21]\nステージ配置 [0] [8400] [22]\nステージ配置 [0] [8800] [23]\nステージ配置 [0] [9200] [24]\nステージ配置 [0] [9600] [25]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\ndefine 動作\nchange [yの力 v] by (-1)\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 <<[0] > (mouse x)> and <mouse down?>>>> then\n    point in direction (-90)\n    change [xの力 v] by (-1.75)\nend\nset [xの力 v] to ((xの力) * (0.8))\nchange x by (xの力)\nrepeat (6)\n    if <touching (ステージ v)?> then\n        change y by (1)\n    end\nend\nif <touching (ステージ v)?> then\n    change y by (-6)\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        set [pitch v] effect to (0)\n        start sound [Jump v]\n    else\n        set [xの力 v] to [0]\n    end\nend\nchange y by (yの力)\nif <touching (ステージ v)?> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <<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 [15]\n    set [pitch v] effect to (0)\n    start sound [Jump v]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (マグマ v)?>> then\n    初期位置\nend\nif <touching (針 v)?> then\n    初期位置\nend\nif <touching (バネ v)?> then\n    set [yの力 v] to [22.5]\n    set [pitch v] effect to (10)\n    start sound [Jump v]\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)) )\nset y to (((Y) - (Camera _y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(xの力) = [0]> then\n    stop [this script v]\nend\nset [player: i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(Player: i) = ((回数) + (1))>>\n    change [player: i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(Player: i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [player: i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(Player: i) = ((回数) + (1))>>\n    change [player: i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(Player: i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (-150) y: (-20)\nif <(最初) = [0]> then\n    set [最初 v] to [1]\nelse\n    start sound [平手打ち v]\n    if <<[1512] < (Camera _y)> and <[3398] > (Camera _y)>> then\n        go to x: (69) y: (-20)\n        set [xの力 v] to [0]\n        set [yの力 v] to [0]\n        set [camera_x v] to [0]\n        set [camera _y v] to [1550]\n        set [x v] to [0]\n        set [y v] to [0]\n    else\n        if <<[3397] < (Camera _y)> and <[4450] > (Camera _y)>> then\n            go to x: (13) y: (-20)\n            set [xの力 v] to [0]\n            set [yの力 v] to [0]\n            set [camera_x v] to [0]\n            set [camera _y v] to [3430]\n            set [x v] to [0]\n            set [y v] to [0]\n        else\n            if <<[4449] < (Camera _y)> and <[6186] > (Camera _y)>> then\n                go to x: (200) y: (-20)\n                set [xの力 v] to [0]\n                set [yの力 v] to [0]\n                set [camera_x v] to [0]\n                set [camera _y v] to [4500]\n                set [x v] to [0]\n                set [y v] to [0]\n            else\n                if <[6186] < (Camera _y)> then\n                    go to x: (-64) y: (-20)\n                    set [xの力 v] to [0]\n                    set [yの力 v] to [0]\n                    set [camera_x v] to [0]\n                    set [camera _y v] to [6230]\n                    set [x v] to [0]\n                    set [y v] to [0]\n                else\n                    go to x: (-150) y: (-20)\n                    set [xの力 v] to [0]\n                    set [yの力 v] to [0]\n                    set [camera_x v] to [0]\n                    set [camera _y v] to [0]\n                    set [x v] to [0]\n                    set [y v] to [0]\n                end\n            end\n        end\n    end\nend\n\nwhen [timer v] > (0)\n\nwhen I receive [イントロ完 v]\ngo to [front v] layer\nset size to (65) %\nshow\nrepeat (2)\n    go to x: (-150) y: (-20)\n    set [camera _y v] to [0]\n    set [xの力 v] to [0]\n    set [yの力 v] to [0]\n    set [camera_x v] to [-100]\n    set [x v] to [0]\n    set [y v] to [0]\nend\n\nwhen flag clicked\nset [最初 v] to [0]\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen I receive [イントロ完 v]\n\nwhen [timer v] > (0)\nhide\n\nwhen I receive [イントロ完 v]\nset [time: v] to [0]\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 position) y: (y)\nif  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 receive [隠す v]\ngo to [back v] layer\n\nwhen I start as a clone\nshow\ngo to [back v] layer\n\nwhen I receive [イントロ完 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [0] [500] [2]\nステージ配置 [0] [1000] [3]\nステージ配置 [0] [1300] [4]\nステージ配置 [0] [1600] [5]\nステージ配置 [0] [2000] [6]\nステージ配置 [0] [2400] [7]\nステージ配置 [0] [2800] [8]\nステージ配置 [0] [3200] [9]\nステージ配置 [0] [3600] [10]\nステージ配置 [0] [4000] [11]\nステージ配置 [0] [4400] [12]\nステージ配置 [0] [4800] [13]\nステージ配置 [0] [5200] [14]\nステージ配置 [0] [5600] [15]\nステージ配置 [0] [6000] [16]\nステージ配置 [0] [6400] [17]\nステージ配置 [0] [6800] [18]\nステージ配置 [0] [7200] [19]\nステージ配置 [0] [7600] [20]\nステージ配置 [0] [8000] [21]\nステージ配置 [0] [8400] [22]\nステージ配置 [0] [8800] [23]\nステージ配置 [0] [9200] [24]\nステージ配置 [0] [9600] [24]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\n@ステージ(貫通する)\n\nwhen flag clicked\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 position) y: (y)\nif  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\nforever\n    if <touching (プレイヤー v)?> then\n        repeat (5)\n            change [ghost v] effect by (5)\n        end\n        repeat until <not <touching (プレイヤー v)?>>\n            set [ghost v] effect to (25)\n        end\n    else\n        repeat (5)\n            change [ghost v] effect by (-5)\n        end\n        repeat until <touching (プレイヤー v)?>\n            set [ghost v] effect to (0)\n        end\n    end\nend\n\nwhen flag clicked\n\nwhen I receive [隠す v]\ngo to [back v] layer\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (0)\nforever\n    go to [back v] layer\nend\n\nwhen I receive [イントロ完 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [0] [500] [2]\nステージ配置 [0] [1000] [3]\nステージ配置 [0] [1300] [4]\nステージ配置 [0] [1600] [5]\nステージ配置 [0] [2000] [6]\nステージ配置 [0] [2400] [7]\nステージ配置 [0] [2800] [8]\nステージ配置 [0] [3200] [9]\nステージ配置 [0] [3600] [10]\nステージ配置 [0] [4000] [11]\nステージ配置 [0] [4400] [12]\nステージ配置 [0] [4800] [13]\nステージ配置 [0] [5200] [14]\nステージ配置 [0] [5600] [15]\nステージ配置 [0] [6000] [16]\nステージ配置 [0] [6400] [17]\nステージ配置 [0] [6800] [18]\nステージ配置 [0] [7200] [19]\nステージ配置 [0] [7600] [20]\nステージ配置 [0] [8000] [21]\nステージ配置 [0] [8400] [22]\nステージ配置 [0] [8800] [23]\nステージ配置 [0] [9200] [24]\nステージ配置 [0] [9600] [25]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@バネ\n\nwhen flag clicked\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 position) y: (y)\nif  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\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\ngo to [back v] layer\n\nwhen I receive [イントロ完 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [0] [500] [2]\nステージ配置 [0] [1000] [3]\nステージ配置 [0] [1300] [4]\nステージ配置 [0] [1600] [5]\nステージ配置 [0] [2000] [6]\nステージ配置 [0] [2400] [7]\nステージ配置 [0] [2800] [8]\nステージ配置 [0] [3200] [9]\nステージ配置 [0] [3600] [10]\nステージ配置 [0] [4000] [11]\nステージ配置 [0] [4400] [12]\nステージ配置 [0] [4800] [13]\nステージ配置 [0] [5200] [14]\nステージ配置 [0] [5600] [15]\nステージ配置 [0] [6000] [16]\nステージ配置 [0] [6400] [17]\nステージ配置 [0] [6800] [18]\nステージ配置 [0] [7200] [19]\nステージ配置 [0] [7600] [20]\nステージ配置 [0] [8000] [21]\nステージ配置 [0] [8400] [22]\nステージ配置 [0] [8800] [23]\nステージ配置 [0] [9200] [24]\nステージ配置 [0] [9600] [25]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@Intro\n\nwhen I start as a clone\nif <(Clone) = [Particles]> then\n    switch costume to (pick random (29) to (31))\n    set size to (pick random (50) to (150)) %\n    set [ghost v] effect to (pick random (0.) to (5.))\n    set [brightness v] effect to (pick random (-25.) to (100.))\n    go to x: (0) y: (0)\n    point in direction (pick random (-180) to (180))\n    set [intro: x v] to (pick random (10.) to (12.))\n    set [i v] to (pick random (2.) to (9.))\n    go to [front v] layer\n    show\n    repeat until <touching (_edge_ v)?>\n        move (Intro: X) steps\n        change y by (I)\n        change [i v] by (-0.4)\n        set [intro: x v] to ((Intro: X) * (0.95))\n    end\n    delete this clone\nend\n\ndefine Particles\nset [clone v] to [Particles]\nrepeat (50)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(Clone) = [Name]> then\n    switch costume to (name v)\n    set size to (50) %\n    clear graphic effects\n    go to [front v] layer\n    go to x: (0) y: (-100)\n    point in direction (0)\n    show\n    repeat (50)\n        go to [front v] layer\n        change size by (((130) - (size)) / (8))\n        change y by (((0) - (y position)) / (8))\n        turn right (((90) - (direction)) / (8)) degrees\n    end\n    set [i v] to [-1]\n    repeat (10)\n        go to [front v] layer\n        change size by (I)\n        change [i v] by (join [-] (([abs v] of (I) ) / (2)))\n        turn right (I) degrees\n    end\n    switch costume to (logo v)\n    repeat (40)\n        go to [front v] layer\n        change size by (((130) - (size)) / (8))\n        turn right (((90) - (direction)) / (8)) degrees\n    end\n    set [i v] to [-1]\n    repeat (20)\n        go to [front v] layer\n        change size by ((I) / (3))\n        change [i v] by (join [-] (([abs v] of (I) ) / (4)))\n        turn right ((I) / (-3)) degrees\n    end\n    delete this clone\nend\n\nwhen flag clicked\nreset timer\nhide\nset volume to (100) %\nclear graphic effects\nset size to (100) %\npoint in direction (90)\ngo to x: (0) y: (0)\nset [clone v] to [Square]\ncreate clone of (_myself_ v)\nwait (1) seconds\nset [clone v] to [Name]\ncreate clone of (_myself_ v)\nwait (0) seconds\nrepeat (2)\n    Spiral spline explosion\n    Particles\n    Rect\n    Spiral spline explosion\nend\nCircle\nrepeat (4)\n    Spiral spline explosion\n    Particles\n    Rect\n    Spiral spline explosion\nend\nCircle\nrepeat (2)\n    Spiral spline explosion\n    Rect\n    Spiral spline explosion\nend\n\nwhen I start as a clone\nif <(Clone) = [Square]> then\n    clear graphic effects\n    show\n    set size to (0) %\n    go to x: (0) y: (300)\n    point in direction (0)\n    switch costume to (square v)\n    repeat (20)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change y by (((0) - (y position)) / (5))\n    end\n    point in direction (90)\n    repeat (12)\n        next costume\n    end\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((2000) - (size)) / (5))\n        switch costume to (square13 v)\n    end\n    wait (3) seconds\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((100) - (size)) / (5))\n        switch costume to (square13 v)\n    end\n    repeat (12)\n        switch costume to ((costume [number v]) - (1))\n        change size by (-5)\n    end\n    set [i v] to [-1]\n    repeat (20)\n        change size by ((I) / (3))\n        change [i v] by (join [-] (([abs v] of (I) ) / (4)))\n        turn right ((I) / (-3)) degrees\n        change y by ((I) / (3))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone) = [Bursts]> then\n    switch costume to (lineexplosion1 v)\n    clear graphic effects\n    go to [front v] layer\n    go [backward v] (1) layers\n    set [i v] to (pick random (1) to (3))\n    if <(I) = [1]> then\n        set [brightness v] effect to (100)\n    else\n        if <(I) = [2]> then\n            set [brightness v] effect to (25)\n        else\n            set [brightness v] effect to (-25)\n        end\n    end\n    show\n    set [i v] to [20]\n    Animate   x: [0] y: [0] size: [0] rotate: (pick random (-180) to (180)) speed: [1]\n    repeat (2)\n        set [i v] to ((I) * (0.9))\n        move (I) steps\n        Size: [100] speed: [5]\n    end\n    repeat (10)\n        set [i v] to ((I) * (0.9))\n        move (I) steps\n        Size: [100] speed: [5]\n        change [ghost v] effect by (10)\n        next costume\n    end\n    delete this clone\nend\n\ndefine Animate   x: (x) y: (y) size: (s) rotate: (r) speed: (s)\nchange x by (((round (x)) - (round (x position))) / (s))\nchange y by (((round (y)) - (round (y position))) / (s))\nchange size by (((round (s)) - (round (size))) / (s))\nturn right (((round (r)) - (round (direction))) / (s)) degrees\n\ndefine Spiral spline explosion\nset [clone v] to [Bursts]\nrepeat (5)\n    create clone of (_myself_ v)\nend\n\ndefine Size: (s) speed: (spd)\nchange size by (((round (s)) - (round (size))) / (spd))\n\ndefine Rect\nset [clone v] to [Rect]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone) = [Rect]> then\n    clear graphic effects\n    show\n    set size to (0) %\n    go to (random position v)\n    point in direction (90)\n    switch costume to (background rect v)\n    repeat until <(round (size)) = [300]>\n        change size by (((300) - (size)) / (15))\n        change [ghost v] effect by (4)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone) = [Circle]> then\n    clear graphic effects\n    set [brightness v] effect to (100)\n    go to [front v] layer\n    go [backward v] (2) layers\n    show\n    set size to (0) %\n    go to x: (0) y: (0)\n    point in direction (90)\n    switch costume to (circle explosion 1 v)\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((300) - (size)) / (5))\n        switch costume to (circle explosion 1 v)\n    end\n    delete this clone\nend\n\ndefine Circle\nset [clone v] to [Circle]\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nset [clone v] to [Circle 2]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone) = [Circle 2]> then\n    clear graphic effects\n    set [brightness v] effect to (0)\n    go to [front v] layer\n    go [backward v] (1) layers\n    show\n    set size to (0) %\n    go to x: (0) y: (0)\n    point in direction (90)\n    switch costume to (circle explosion 1 v)\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((300) - (size)) / (5))\n        switch costume to (circle explosion 1 v)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nplay sound [Prismo - Stronger v] until done\nbroadcast (イントロ完 v)\n\n@スプライト2\n\nwhen flag clicked\nswitch costume to (サムネ v)\nclear graphic effects\nhide\n\nwhen [timer v] > (0)\nshow\n\n@outro\n\ndefine clone (id)\nset [cloneid v] to (id)\ncreate clone of (_myself_ v)\n\nwhen I receive [outro / start v]\ngo to [front v] layer\nswitch costume to (back v)\ngo to x: (0) y: (0)\nset size to (100) %\nshow list [project 1 url v]\nshow list [project 2 url v]\ndelete all of [project 1 url v]\ndelete all of [project 2 url v]\nadd [【比較?】\(プロフに入らないので\)スク友の紹介です!!] to [project 1 url v]\nadd [https://scratch.mit.edu/projects/731820884] to [project 1 url v]\nadd [ゴフのアイコンを改造してみた #1] to [project 2 url v]\nadd [https://scratch.mit.edu/projects/732790189] to [project 2 url v]\nshow\nclone [ss 1-1]\nwait (0.3) seconds\nclone [ss 1-2]\nwait (0.5) seconds\nclone [Thanks]\nwait (0.1) seconds\nclone [for]\nwait (0.1) seconds\nclone [watching!]\nparticle [] []\nwait (1) seconds\nclone [ss 2-1]\nwait (0.1) seconds\nclone [ss 2-2]\nwait (0.5) seconds\nclone [3DText]\nclone [logo]\nwait (0.2) seconds\nclone [project1]\nclone [project2]\n♥,★ and follow ....\n\nwhen I start as a clone\nif < (cloneID) contains [ss 1]?> then\n    switch costume to (ss1 v)\n    go to x: (0) y: (340)\n    point in direction (90)\n    set size to (100) %\n    if <(cloneID) = [ss 1-2]> then\n        set [brightness v] effect to (100)\n    end\n    set [speed v] to [0]\n    repeat (17)\n        change y by (speed)\n        change [speed v] by (-1)\n    end\n    repeat (30)\n        change y by (((-95) - (y position)) / (6))\n    end\nend\n\nwhen I start as a clone\nif <<(cloneID) = [Thanks]> or <<(cloneID) = [for]> or <(cloneID) = [watching!]>>> then\n    switch costume to (cloneID)\n    go to x: (0) y: (0)\n    point in direction (90)\n    set size to (0) %\n    repeat (50)\n        change [bound v] by ((((100) - (size)) / (10)) - ((bound) / (5)))\n        change size by (bound)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [particle]> then\n    go to [front v] layer\n    switch costume to (join [particle-] (pick random (1) to (2)))\n    set size to (pick random (5.) to (15)) %\n    set [rn v] to (pick random (50.) to (150))\n    move (RN) steps\n    set [particle dx v] to (x position)\n    set [particle dy v] to (y position)\n    move (() - (RN)) steps\n    show\n    repeat until <(size) < [1.5]>\n        change x by (((particle Dx) - (x position)) / (4))\n        change y by (((particle Dy) - (y position)) / (4))\n        change size by (-0.5)\n    end\n    delete this clone\nend\n\ndefine particle (x) (y)\nset [particle bmx v] to (x position)\nset [particle bmy v] to (y position)\ngo to x: (x) y: (y)\nrepeat (36)\n    clone [particle]\n    turn right (10) degrees\nend\ngo to x: (particle BMx) y: (particle BMy)\n\nwhen I start as a clone\nif < (cloneID) contains [ss 2]?> then\n    switch costume to (ss 2 v)\n    go to x: (0) y: (0)\n    point in direction (90)\n    set size to (100) %\n    if <(cloneID) = [ss 2-2]> then\n        set [brightness v] effect to (100)\n    end\n    go to [front v] layer\n    set [speed v] to [0]\n    repeat (10)\n        switch costume to (back v)\n        change [speed v] by (30)\n        change size by (speed)\n        switch costume to (ss 2 v)\n    end\n    repeat (50)\n        switch costume to (back v)\n        change size by (((5150) - (size)) / (4))\n        switch costume to (ss 2 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [3DText]> then\n    switch costume to (3dtext v)\n    go to [front v] layer\n    set size to (0) %\n    go to x: (0) y: (115)\n    point in direction (90)\n    Reset the timer\n    repeat (50)\n        change size by (((90) - (size)) / (4))\n        set y to ((115) + (([cos v] of ((timer) * (120)) ) * (10)))\n        if <touching (mouse-pointer v)?> then\n            change size by (((110) - (size)) / (4))\n        else\n            change size by (((90) - (size)) / (4))\n        end\n    end\n    forever\n        set y to ((115) + (([cos v] of ((timer) * (120)) ) * (10)))\n        if <touching (mouse-pointer v)?> then\n            change size by (((100) - (size)) / (4))\n            if <mouse down?> then\n                particle (x position) (y position)\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((85) - (size)) / (4))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [logo]> then\n    switch costume to (logo v)\n    go to [front v] layer\n    set size to (85) %\n    go to x: (0) y: (-270)\n    point in direction (90)\n    set [outro: y v] to [-270]\n    Reset the timer\n    forever\n        change [outro: y v] by (((-20) - (outro: y)) / (6))\n        set y to ((outro: y) + (([cos v] of ((timer) * (50)) ) * (15)))\n        if <touching (mouse-pointer v)?> then\n            change size by (((110) - (size)) / (4))\n            if <mouse down?> then\n                particle (x position) (y position)\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((85) - (size)) / (4))\n        end\n        if <key (space v) pressed?> then\n            particle (x position) (y position)\n            wait until <not <key (space v) pressed?>>\n        end\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [project1]> then\n    switch costume to (project1 v)\n    go to [front v] layer\n    set size to (30) %\n    go to x: (297) y: (-20)\n    point in direction (90)\n    Reset the timer\n    repeat (20)\n        change x by (((140) - (x position)) / (4))\n        set y to ((-20) + (([cos v] of ((timer) * (100)) ) * (15)))\n    end\n    forever\n        set y to ((-20) + (([cos v] of ((timer) * (100)) ) * (15)))\n        if <touching (mouse-pointer v)?> then\n            change size by (((35) - (size)) / (4))\n            if <mouse down?> then\n                if <(Are you viewing a list?) = [0]> then\n                    set [are you viewing a list? v] to [1]\n                    hide list [project 1 url v]\n                else\n                    show list [project 1 url v]\n                    set [are you viewing a list? v] to [0]\n                end\n                particle (x position) (y position)\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((30) - (size)) / (4))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [project2]> then\n    switch costume to (project2 v)\n    go to [front v] layer\n    set size to (30) %\n    go to x: (-297) y: (-20)\n    point in direction (90)\n    set [are you viewing a list? v] to [0]\n    Reset the timer\n    repeat (20)\n        change x by (((-140) - (x position)) / (4))\n        set y to ((-20) + (([cos v] of ((timer) * (150)) ) * (15)))\n    end\n    forever\n        set y to ((-20) + (([cos v] of ((timer) * (150)) ) * (15)))\n        if <touching (mouse-pointer v)?> then\n            change size by (((35) - (size)) / (4))\n            if <mouse down?> then\n                if <(Are you viewing a list?) = [0]> then\n                    set [are you viewing a list? v] to [1]\n                    hide list [project 2 url v]\n                else\n                    show list [project 2 url v]\n                    set [are you viewing a list? v] to [0]\n                end\n                particle (x position) (y position)\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((30) - (size)) / (4))\n        end\n    end\nend\n\nwhen I receive [outro / start v]\nwait (2.5) seconds\nforever\n    set [bmx v] to (x position)\n    set [bmy v] to (y position)\n    set [rn v] to (pick random (1) to (2))\n    if <(RN) = [1]> then\n        go to x: (pick random (-300) to (300)) y: (-220)\n    else\n        go to x: (-300) y: (pick random (-220) to (220))\n    end\n    clone [●]\n    go to x: (BMx) y: (BMy)\n    wait (0.05) seconds\nend\n\nwhen I start as a clone\nif <(cloneID) = [●]> then\n    switch costume to (● v)\n    set [ghost v] effect to (100)\n    set size to (pick random (20) to (50)) %\n    go to [front v] layer\n    go [backward v] (9) layers\n    repeat until <<([abs v] of (x position) ) > [270]> or <([abs v] of (y position) ) > [190]>>\n        change x by ((size) / (10))\n        change y by ((size) / (10))\n        change [ghost v] effect by (-1)\n    end\n    delete this clone\nend\n\ndefine ♥,★ and follow ....\nswitch costume to (★ v)\ngo to x: (-120) y: (-130)\nrepeat (5)\n    clone [♥,★ and follow]\n    next costume\n    change x by (65)\nend\nswitch costume to (back v)\n\nwhen I start as a clone\nif <(cloneID) = [♥,★ and follow]> then\n    go to [front v] layer\n    set size to (30) %\n    set [outro: y v] to [-183]\n    set [rn v] to (pick random (50) to (200))\n    Reset the timer\n    forever\n        set y to ((outro: y) + (([cos v] of ((timer) * (RN)) ) * (10)))\n        change [outro: y v] by (((-130) - (outro: y)) / (6))\n        if <touching (mouse-pointer v)?> then\n            change size by (((40) - (size)) / (4))\n            if <mouse down?> then\n                particle (x position) (y position)\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((30) - (size)) / (4))\n        end\n    end\nend\n\ndefine Reset the timer\nset [number of days from 200 years at reset v] to (days since 2000)\n\nwhen I start as a clone\nforever\n    set [timer v] to (((days since 2000) - (Number of days from 200 years at reset)) * (86400))\nend\n\nwhen I receive [outro / start v]\nforever\n    play sound [Vexento  Northern Lights v] until done\n    wait (1) seconds\nend\n\nwhen [timer v] > (0)\nwait (0.1) seconds\nset [わはは v] to [0]\nif <(わはは) = [0]> then\n    broadcast (Outro / start v)\nend\n\nwhen I receive [イントロ完 v]\nwait (0.1) seconds\nset [わはは v] to [0]\n\nwhen flag clicked\nset [わはは v] to [1]\n\nwhen flag clicked\nshow list [project 1 url v]\nshow list [project 1 url v]\nforever\n    reset timer\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 position) y: (y)\nif  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\npoint in direction (90)\nshow\nset [color v] effect to (0)\nforever\n    if <touching (プレイヤー v)?> then\n        set [color v] effect to (155)\n    end\nend\n\nwhen flag clicked\n\nwhen I receive [隠す v]\ngo to [back v] layer\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\nwhen I receive [イントロ完 v]\nset size to (100) %\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [0] [500] [2]\nステージ配置 [0] [1000] [3]\nステージ配置 [0] [1300] [4]\nステージ配置 [0] [1600] [5]\nステージ配置 [0] [2000] [6]\nステージ配置 [0] [2400] [7]\nステージ配置 [0] [2800] [8]\nステージ配置 [0] [3200] [9]\nステージ配置 [0] [3600] [10]\nステージ配置 [0] [4000] [11]\nステージ配置 [0] [4400] [12]\nステージ配置 [0] [4800] [13]\nステージ配置 [0] [5200] [14]\nステージ配置 [0] [5600] [15]\nステージ配置 [0] [6000] [16]\nステージ配置 [0] [6400] [17]\nswitch costume to (none v)\nset volume to (100) %\nbroadcast (プログラム v)\n\n@タイム管理用\n\nwhen flag clicked\nhide variable [time: v]\nhide variable [☁ world record: v]\n\nwhen I receive [イントロ完 v]\nhide variable [time: v]\nrepeat until <[9185] < (Camera _y)>\n    wait (1) seconds\n    change [time: v] by (1)\nend\nshow variable [time: v]\nshow variable [☁ world record: v]\nif <<not <(username) = [goriraf0612]>> and <(TIME:) < (☁ world record:)>> then\n    set [☁ world record: v] to (TIME:)\nend\nstop [this script v]\n\nwhen [timer v] > (0)\nhide variable [time: v]\nhide variable [☁ world record: v]\n\n