platformer
@Stage\n\n@Thousand Absolutes (0;00;46;03)2\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [setsize v] to [101]\nforever\n    change size by (((setsize) - (size)) / (5))\nend\n\nwhen flag clicked\nwait (10) seconds\nplay sound [Thousand_Absolutes_Xaf_Remix v] until done\n\nwhen flag clicked\nforever\n    if <key (any v) pressed?> then\n        change size by (2)\n        wait until <not <key (any v) pressed?>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        if <mouse down?> then\n            set [setsize v] to [108]\n        else\n            set [setsize v] to [105]\n        end\n    else\n        set [setsize v] to [101]\n    end\nend\n\n@イントロ\n\ndefine クローン 情報： (情報1) (情報2) (情報3) (情報4) (情報5) pos： (x) (y) (dir) (size) 回数： (クローン回数)\ndelete all of [cl pos / 情報 v]\nadd (情報1) to [cl pos / 情報 v]\nadd (情報2) to [cl pos / 情報 v]\nadd (情報3) to [cl pos / 情報 v]\nadd (情報4) to [cl pos / 情報 v]\nadd (情報5) to [cl pos / 情報 v]\nadd (x) to [cl pos / 情報 v]\nadd (y) to [cl pos / 情報 v]\nadd (dir) to [cl pos / 情報 v]\nadd (size) to [cl pos / 情報 v]\nif <(クローン回数) = []> then\n    create clone of (_myself_ v)\nelse\n    repeat (クローン回数)\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nif <(item (1) of [cl pos / 情報 v]) = [フェードイン]> then\n    クローン 情報： [BBG] [] [] [] [] pos： [0] [0] [90] [100] 回数： []\n    クローン 情報： [アイコン] [] [] [] [] pos： [0] [240] [90] [90] 回数： []\n    クローン 情報： [入り] [] [] [] [] pos： [0] [0] [90] [100] 回数： []\n    delete this clone\nend\nif <(item (1) of [cl pos / 情報 v]) = [入り]> then\n    switch costume to (fadein v)\n    repeat until <[2.772] < (timer)>\n        go to [front v] layer\n        go [backward v] (1) layers\n        show\n    end\n    repeat until <[5] < (timer)>\n        go to [front v] layer\n        go [backward v] (1) layers\n        show\n        replace item (9) of [cl pos / 情報 v] with ((item (9) of [cl pos / 情報 v]) + (((0) - (item (9) of [cl pos / 情報 v])) / (10)))\n        配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n    end\n    delete this clone\nend\nif <(item (1) of [cl pos / 情報 v]) = [アイコン]> then\n    switch costume to (icon v)\n    wait until <[2.047] < (timer)>\n    show\n    repeat until <[2.772] < (timer)>\n        配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n        replace item (7) of [cl pos / 情報 v] with ((item (7) of [cl pos / 情報 v]) + (((0) - (item (7) of [cl pos / 情報 v])) / (10)))\n        replace item (9) of [cl pos / 情報 v] with ((item (9) of [cl pos / 情報 v]) + (((100) - (item (9) of [cl pos / 情報 v])) / (20)))\n        go to [front v] layer\n    end\n    replace item (4) of [cl pos / 情報 v] with [40]\n    repeat until <[3.264] < (timer)>\n        配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n        replace item (4) of [cl pos / 情報 v] with ((item (4) of [cl pos / 情報 v]) + (((1) - (item (4) of [cl pos / 情報 v])) / (2)))\n        replace item (7) of [cl pos / 情報 v] with ((item (7) of [cl pos / 情報 v]) + (((0) - (item (7) of [cl pos / 情報 v])) / (10)))\n        replace item (8) of [cl pos / 情報 v] with ((item (8) of [cl pos / 情報 v]) + (((105) - (item (8) of [cl pos / 情報 v])) / (20)))\n        replace item (9) of [cl pos / 情報 v] with ((item (9) of [cl pos / 情報 v]) + (((0) - (item (9) of [cl pos / 情報 v])) / (item (4) of [cl pos / 情報 v])))\n        go to [front v] layer\n    end\n    switch costume to (rubiks v)\n    replace item (8) of [cl pos / 情報 v] with [75]\n    repeat until <[10] < (timer)>\n        配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n        replace item (8) of [cl pos / 情報 v] with ((item (8) of [cl pos / 情報 v]) + ((((90) + (([cos v] of ((item (4) of [cl pos / 情報 v]) * (4)) ) * (10))) - (item (8) of [cl pos / 情報 v])) / (20)))\n        replace item (7) of [cl pos / 情報 v] with ((item (7) of [cl pos / 情報 v]) + (((0) - (item (7) of [cl pos / 情報 v])) / (10)))\n        replace item (9) of [cl pos / 情報 v] with ((item (9) of [cl pos / 情報 v]) + (((100) - (item (9) of [cl pos / 情報 v])) / (5)))\n        replace item (4) of [cl pos / 情報 v] with ((item (4) of [cl pos / 情報 v]) + (1))\n        go to [front v] layer\n    end\n    replace item (4) of [cl pos / 情報 v] with [0]\n    repeat (20)\n        switch costume to (sizhak 100+ v)\n        replace item (5) of [cl pos / 情報 v] with (size)\n        set size to ((1) / ()) %\n        replace item (4) of [cl pos / 情報 v] with (((item (4) of [cl pos / 情報 v]) + (-0.5)) * (1.15))\n        change y by (item (4) of [cl pos / 情報 v])\n        turn right (-1) degrees\n        set size to (item (5) of [cl pos / 情報 v]) %\n        switch costume to (rubiks v)\n    end\n    delete this clone\nend\nif <(item (1) of [cl pos / 情報 v]) = [BBG]> then\n    repeat until <[10] < (timer)>\n        show\n        switch costume to (bbg v)\n        go to [back v] layer\n    end\n    delete this clone\nend\n\ndefine 配置 (x) (y) (dir) (size) 空欄ならcl pos6~9に合わせます\nreplace item (5) of [cl pos / 情報 v] with (costume [name v])\nswitch costume to (sizhak 100+ v)\nset size to ((1) / ()) %\nif <(join (x) (join (y) (join (dir) (size)))) = []> then\n    set x to (((((item (6) of [cl pos / 情報 v]) + (item (1) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([sin v] of (item (4) of [@all pos / 雑用 v]) )) - ((((item (7) of [cl pos / 情報 v]) + (item (2) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([cos v] of (item (4) of [@all pos / 雑用 v]) )))\n    set y to (((((item (6) of [cl pos / 情報 v]) + (item (1) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([cos v] of (item (4) of [@all pos / 雑用 v]) )) + ((((item (7) of [cl pos / 情報 v]) + (item (2) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([sin v] of (item (4) of [@all pos / 雑用 v]) )))\n    point in direction ((item (8) of [cl pos / 情報 v]) + ((item (4) of [@all pos / 雑用 v]) - (90)))\n    if <((item (9) of [cl pos / 情報 v]) * (item (3) of [@all pos / 雑用 v])) < [100.0]> then\n        switch costume to (sizhak 100- v)\n    end\n    if <((item (9) of [cl pos / 情報 v]) * (item (3) of [@all pos / 雑用 v])) < [0.5]> then\n        hide\n    else\n        show\n        set size to ((item (9) of [cl pos / 情報 v]) * (item (3) of [@all pos / 雑用 v])) %\n    end\nelse\n    set x to (((((x座標) + (item (1) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([sin v] of (item (4) of [@all pos / 雑用 v]) )) - ((((y) + (item (2) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([cos v] of (item (4) of [@all pos / 雑用 v]) )))\n    set y to (((((x座標) + (item (1) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([cos v] of (item (4) of [@all pos / 雑用 v]) )) + ((((y) + (item (2) of [@all pos / 雑用 v])) * (item (3) of [@all pos / 雑用 v])) * ([sin v] of (item (4) of [@all pos / 雑用 v]) )))\n    point in direction ((向き) + ((item (4) of [@all pos / 雑用 v]) - (90)))\n    if <((大きさ) * (item (3) of [@all pos / 雑用 v])) < [100.0]> then\n        switch costume to (sizhak 100- v)\n    end\n    if <((item (9) of [cl pos / 情報 v]) * (item (3) of [@all pos / 雑用 v])) < [0.5]> then\n        hide\n    else\n        show\n        set size to ((大きさ) * (item (3) of [@all pos / 雑用 v])) %\n    end\nend\nswitch costume to (item (5) of [cl pos / 情報 v])\n\nwhen I receive [イントロ v]\n\ndelete all of [@all pos / 雑用 v]\nadd ((0) + (join [カメラ x] [])) to [@all pos / 雑用 v]\nadd ((0) + (join [カメラ y] [])) to [@all pos / 雑用 v]\nadd ((1) + (join [カメラ 倍率] [])) to [@all pos / 雑用 v]\nadd ((90) + (join [カメラ 向き] [])) to [@all pos / 雑用 v]\nadd [0] to [@all pos / 雑用 v]\npoint in direction (90)\ngo to x: (0) y: (0)\nhide\nswitch costume to (sizhak 100+ v)\nset size to (100) %\nstart sound [Unknown Brain - Dancing On The Moon v]\nreset timer\nクローン 情報： [フェードイン] [] [] [] [] pos： [] [] [] [] 回数： []\nクローン 情報： [サビ] [] [] [] [] pos： [] [] [] [] 回数： []\ndelete all of [cl pos / 情報 v]\nwait until <[11] < (timer)>\nbroadcast (イントロ終了 v)\n\ndefine しゃけ発生 大きさ： (大きさ) 長さ： (長さ) 終了時間： (時間) 位置情報 x： (x) y： (y) 向き： (dir) 空欄なら0,0,90になります\nreplace item (5) of [@all pos / 雑用 v] with (大きさ)\nrepeat until <(時間) < (timer)>\n    replace item (5) of [@all pos / 雑用 v] with ((item (5) of [@all pos / 雑用 v]) + (((0) - (item (5) of [@all pos / 雑用 v])) / (長さ)))\n    replace item (1) of [@all pos / 雑用 v] with ((x) + (([sin v] of ((timer) * (561)) ) * (item (5) of [@all pos / 雑用 v])))\n    replace item (2) of [@all pos / 雑用 v] with ((y) + (([cos v] of ((timer) * (241)) ) * (item (5) of [@all pos / 雑用 v])))\n    replace item (4) of [@all pos / 雑用 v] with (((<(dir) = []> * (90)) + (dir)) + (([cos v] of ((timer) * (459)) ) * (item (5) of [@all pos / 雑用 v])))\nend\n\nwhen I start as a clone\nif <(item (1) of [cl pos / 情報 v]) = [サビ]> then\n    クローン 情報： [BgFX] [3] [1] [] [] pos： [] [] [] [] 回数： []\n    クローン 情報： [BgFX] [3] [2] [] [] pos： [] [] [] [] 回数： []\n    クローン 情報： [BgFX] [4] [] [] [] pos： [0] [0] [90] [0] 回数： []\n    クローン 情報： [BgFX] [1] [] [] [] pos： [] [] [] [] 回数： []\n    クローン 情報： [BgFX] [6] [] [] [] pos： [] [] [] [] 回数： []\n    クローン 情報： [BgFX] [7] [] [] [] pos： [] [] [] [] 回数： []\n    クローン 情報： [BgFX] [8] [] [] [] pos： [] [] [] [] 回数： []\nend\nif <(item (1) of [cl pos / 情報 v]) = [SW]> then\n    if <(item (2) of [cl pos / 情報 v]) = [1]> then\n        switch costume to (sw1-1 v)\n        set [brightness v] effect to (item (3) of [cl pos / 情報 v])\n        set [ghost v] effect to (item (4) of [cl pos / 情報 v])\n        repeat (18)\n            配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n            next costume\n        end\n    end\n    delete this clone\nend\nif <(item (1) of [cl pos / 情報 v]) = [BgFX]> then\n    if <(item (2) of [cl pos / 情報 v]) = [8]> then\n        wait until <[4.081] < (timer)>\n        SW生成 x： [-120] y： [60] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [120] y： [60] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [-120] y： [-60] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [120] y： [-60] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        wait until <[5.313] < (timer)>\n        SW生成 x： [0] y： [0] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        wait until <[6.699] < (timer)>\n        SW生成 x： [-180] y： [0] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [180] y： [0] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        wait until <[7.953] < (timer)>\n        SW生成 x： [-180] y： [140] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [-180] y： [-140] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [180] y： [140] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n        SW生成 x： [180] y： [-140] 大きさ： [100] 種類： [1] 明るさ： [100] 幽霊： [0] 奥行き： [10]\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [9]> then\n        set [brightness v] effect to (item (4) of [cl pos / 情報 v])\n        if <(item (3) of [cl pos / 情報 v]) = [1]> then\n            switch costume to (sw1-1 v)\n        end\n        repeat (18)\n            next costume\n            配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n        end\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [7]> then\n        wait until <[7.292] < (timer)>\n        replace item (4) of [@all pos / 雑用 v] with [90]\n        repeat until <[7.953] < (timer)>\n            replace item (1) of [@all pos / 雑用 v] with ((item (1) of [@all pos / 雑用 v]) + (((80) - (item (1) of [@all pos / 雑用 v])) / (10)))\n        end\n        repeat until <[8.606] < (timer)>\n            replace item (1) of [@all pos / 雑用 v] with ((item (1) of [@all pos / 雑用 v]) + (((-80) - (item (1) of [@all pos / 雑用 v])) / (10)))\n        end\n        repeat until <[9.241] < (timer)>\n            replace item (1) of [@all pos / 雑用 v] with ((item (1) of [@all pos / 雑用 v]) + (((0) - (item (1) of [@all pos / 雑用 v])) / (10)))\n            replace item (3) of [@all pos / 雑用 v] with ((item (3) of [@all pos / 雑用 v]) + (((1.4) - (item (3) of [@all pos / 雑用 v])) / (10)))\n            replace item (5) of [@all pos / 雑用 v] with ((item (5) of [@all pos / 雑用 v]) + (((210) - (item (5) of [@all pos / 雑用 v])) / (20)))\n        end\n        repeat until <[10] < (timer)>\n            replace item (5) of [@all pos / 雑用 v] with ((item (5) of [@all pos / 雑用 v]) + (((290) - (item (5) of [@all pos / 雑用 v])) / (8)))\n        end\n        replace item (5) of [@all pos / 雑用 v] with [280]\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [6]> then\n        wait until <[3.264] < (timer)>\n        しゃけ発生 大きさ： [10] 長さ： [10] 終了時間： [4.027] 位置情報 x： [0] y： [0] 向き： [90] 空欄なら0,0,90になります\n        しゃけ発生 大きさ： [20] 長さ： [10] 終了時間： [4.55] 位置情報 x： [0] y： [0] 向き： [90] 空欄なら0,0,90になります\n        replace item (5) of [@all pos / 雑用 v] with [10]\n        repeat until <[5.313] < (timer)>\n            replace item (5) of [@all pos / 雑用 v] with ((item (5) of [@all pos / 雑用 v]) + (((1) - (item (5) of [@all pos / 雑用 v])) / (12)))\n            replace item (1) of [@all pos / 雑用 v] with (([sin v] of ((timer) * (561)) ) * (item (5) of [@all pos / 雑用 v]))\n            replace item (2) of [@all pos / 雑用 v] with (([cos v] of ((timer) * (241)) ) * (item (5) of [@all pos / 雑用 v]))\n            replace item (4) of [@all pos / 雑用 v] with ((item (4) of [@all pos / 雑用 v]) + (((450) - (item (4) of [@all pos / 雑用 v])) / (item (5) of [@all pos / 雑用 v])))\n        end\n        しゃけ発生 大きさ： [10] 長さ： [10] 終了時間： [5.974] 位置情報 x： [0] y： [] 向き： [] 空欄なら0,0,90になります\n        しゃけ発生 大きさ： [20] 長さ： [20] 終了時間： [6.599] 位置情報 x： [] y： [] 向き： [-90] 空欄なら0,0,90になります\n        しゃけ発生 大きさ： [20] 長さ： [10] 終了時間： [7.292] 位置情報 x： [] y： [] 向き： [90] 空欄なら0,0,90になります\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [4]> then\n        しぇぶ発生 時間： [3.399] 種類： [1]\n        しぇぶ発生 時間： [3.993] 種類： [2]\n        しぇぶ発生 時間： [4.685] 種類： [1]\n        しぇぶ発生 時間： [5.313] 種類： [2]\n        しぇぶ発生 時間： [5.973] 種類： [1]\n        しぇぶ発生 時間： [6.666] 種類： [2]\n        しぇぶ発生 時間： [7.294] 種類： [1]\n        しぇぶ発生 時間： [7.952] 種類： [2]\n        しぇぶ発生 時間： [8.613] 種類： [1]\n        しぇぶ発生 時間： [9.239] 種類： [2]\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [5]> then\n        show\n        if <(item (3) of [cl pos / 情報 v]) = [1]> then\n            switch costume to (chev v)\n        end\n        if <(item (3) of [cl pos / 情報 v]) = [2]> then\n            switch costume to (chev2 v)\n        end\n        repeat until <[1000] < (item (9) of [cl pos / 情報 v])>\n            replace item (9) of [cl pos / 情報 v] with ((item (9) of [cl pos / 情報 v]) + (((item (9) of [cl pos / 情報 v]) / (20)) + (4)))\n            配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n            go to [back v] layer\n            go [forward v] (1) layers\n        end\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [3]> then\n        wait until <[2.8] < (timer)>\n        switch costume to (海苔 v)\n        show\n        repeat until <[8] < (timer)>\n            switch costume to (sizhak 100+ v)\n            set size to ((1) / ()) %\n            if <(item (3) of [cl pos / 情報 v]) = [1]> then\n                go to x: (0) y: ((240) + ((item (5) of [@all pos / 雑用 v]) * (-0.5)))\n            end\n            if <(item (3) of [cl pos / 情報 v]) = [2]> then\n                go to x: (0) y: ((-240) + ((item (5) of [@all pos / 雑用 v]) * (0.5)))\n            end\n            set size to (100) %\n            switch costume to (海苔 v)\n            go to [front v] layer\n        end\n        repeat until <[11] < (timer)>\n            switch costume to (sizhak 100+ v)\n            set size to ((1) / ()) %\n            if <(item (3) of [cl pos / 情報 v]) = [1]> then\n                go to x: (0) y: ((240) + ((item (5) of [@all pos / 雑用 v]) * (-0.51)))\n            end\n            if <(item (3) of [cl pos / 情報 v]) = [2]> then\n                go to x: (0) y: ((-240) + ((item (5) of [@all pos / 雑用 v]) * (0.51)))\n            end\n            set size to (100) %\n            switch costume to (海苔 v)\n        end\n        set y to (((item (3) of [cl pos / 情報 v]) - (1.5)) * (-200))\n        replace item (4) of [@all pos / 雑用 v] with [0]\n        repeat (50)\n            switch costume to (sizhak 100+ v)\n            set size to ((1) / ()) %\n            replace item (4) of [cl pos / 情報 v] with ((item (4) of [cl pos / 情報 v]) + (((item (3) of [cl pos / 情報 v]) - (1.5)) * (-2)))\n            change y by (item (4) of [cl pos / 情報 v])\n            set size to (100) %\n            switch costume to (海苔 v)\n        end\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [1]> then\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [-480] [125] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [480] [75] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [-480] [25] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [480] [-25] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [-480] [-75] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [480] [-125] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [0] [125] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [0] [75] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [0] [25] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [0] [-25] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [1] [] [] pos： [0] [-75] [90] [100] 回数： []\n        クローン 情報： [BgFX] [2] [2] [] [] pos： [0] [-125] [90] [100] 回数： []\n        delete this clone\n    end\n    if <(item (2) of [cl pos / 情報 v]) = [2]> then\n        switch costume to (謎の線 v)\n        show\n        repeat until <[10] < (timer)>\n            配置 [] [] [] [] 空欄ならcl pos6~9に合わせます\n            replace item (6) of [cl pos / 情報 v] with ((item (6) of [cl pos / 情報 v]) + (((item (3) of [cl pos / 情報 v]) - (1.5)) * (-10)))\n            if <[480] < (item (6) of [cl pos / 情報 v])> then\n                if <(item (3) of [cl pos / 情報 v]) = [1]> then\n                    クローン 情報： [BgFX] [2] [1] [] [] pos： [-480] (item (7) of [cl pos / 情報 v]) [90] [100] 回数： []\n                    delete this clone\n                end\n            end\n            if <[-480] > (item (6) of [cl pos / 情報 v])> then\n                if <(item (3) of [cl pos / 情報 v]) = [2]> then\n                    クローン 情報： [BgFX] [2] [2] [] [] pos： [480] (item (7) of [cl pos / 情報 v]) [90] [100] 回数： []\n                    delete this clone\n                end\n            end\n        end\n        delete this clone\n    end\nend\n\ndefine しぇぶ発生 時間： (時間) 種類： (種類)\nwait until <(時間) < (timer)>\nクローン 情報： [BgFX] [5] (種類) [] [] pos： [0] [0] [90] [0] 回数： []\n\ndefine SW生成 x： (x) y： (y) 大きさ： (siz) 種類： (typ) 明るさ： (lit) 幽霊： (gst) 奥行き： (z)\nクローン 情報： [SW] (typ) [-100] ((gst) + (50)) [] pos： ((x) + (z)) ((y) + ((z) * (-1))) [90] (siz) 回数： []\nクローン 情報： [SW] (typ) (lit) (gst) [] pos： (x) (y) [90] (siz) 回数： []\n\nwhen flag clicked\nbroadcast (イントロ v) and wait\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム7 v)\nhide\nwait (10) seconds\nshow\n\nwhen I receive [次のステージ v]\nnext costume\n\n@障害物\n\nwhen flag clicked\nswitch costume to (針 v)\nforever\n    go to [back v] layer\nend\n\nwhen I receive [1 v]\nnext costume\n\nwhen flag clicked\nhide\nwait (10) seconds\nshow\n\n@プレイヤー\n\ndefine 死\ngo to [front v] layer\nswitch costume to (死 v)\nset [変数 v] to [0]\npoint in direction (90)\nset rotation style [all around v]\nset [出久 v] to (pick random (15) to (18))\nstart sound [crashed oof v]\nrepeat until <[-180] > (y position)>\n    show\n    go to [front v] layer\n    turn right (出久) degrees\n    change y by (出久)\n    change [出久 v] by (-1)\nend\nhide\nswitch costume to (死 v)\nwait (0.5) seconds\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-200) y: (-20)\npoint in direction (90)\nset [変数 v] to [9999]\nshow\nset rotation style [left-right v]\n\nwhen I start as a clone\nrepeat (7)\n    change [ghost v] effect by (7)\n    switch costume to (クローン v)\n    change size by (-10)\nend\ndelete this clone\n\ndefine 動作\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n    create clone of (_myself_ v)\n    change [x v] by (-1)\n    point in direction (-90)\nend\nif <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n    create clone of (_myself_ v)\n    change [x v] by (1.1)\n    point in direction (90)\nend\nset [x v] to ((x) * (0.9))\nchange x by (x)\nif <touching (地面 v)?> then\n    change y by (1)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change y by (1)\n                            if <touching (地面 v)?> then\n                                change y by (1)\n                                if <touching (地面 v)?> then\n                                    change x by ((x) * (-1))\n                                    change y by (-8)\n                                    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\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 [14]\n                                    else\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-1)\nif <touching (地面 v)?> then\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n        set [y v] to [14]\n    end\nend\nchange y by (1)\nchange [y v] by (-1)\nchange y by (y)\nif <touching (地面 v)?> then\n    change y by ((y) * (-1))\n    set [y v] to [0]\nend\nif <(x position) > [230]> then\n    broadcast (次のステージ v)\n    go to x: (-182) y: (30)\n    repeat (105)\n        set [y v] to [0]\n    end\nend\nif <touching (障害物 v)?> then\n    死\nend\n\nwhen I receive [1 v]\ngo to x: (-182) y: (30)\nshow\n\nwhen I receive [イントロ終了 v]\nshow\nset rotation style [left-right v]\nset size to (100) %\nset [ghost v] effect to (0)\ngo to x: (-182) y: (30)\ngo [backward v] (1) layers\nforever\n    動作\n    しゃがむ\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\n@NEXTだお\n\nwhen I start as a clone\nif <<(costume [name v]) = [1]> or <<(costume [name v]) = [2]> or <<(costume [name v]) = [3]> or <(costume [name v]) = [next]>>>> then\n    set [brightness v] effect to (0)\n    go to [front v] layer\n    set x to (-465)\n    set y to (0)\n    show\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\n    wait (0.9) seconds\n    delete this clone\nend\nif <<(costume [name v]) = [4]> or <<(costume [name v]) = [5]> or <(costume [name v]) = [6]>>> then\n    go to [front v] layer\n    change [color v] effect by (10)\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <<(costume [name v]) = [☆]> or <<(costume [name v]) = [♡]> or <(costume [name v]) = [👤]>>> then\n    set [color v] effect to (0)\n    go to [front v] layer\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <(costume [name v]) = [4]> then\n    wait (0.3) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [5]> then\n    wait (0.2) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [6]> then\n    wait (0.1) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [♡]> then\n    wait (0.2) seconds\n    repeat until <[319] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [👤]> then\n    wait (0.125) seconds\n    repeat until <[360] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [☆]> then\n    wait (0.2) seconds\n    repeat until <[185] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\ndefine クローン (名前)\nswitch costume to (名前)\ncreate clone of (_myself_ v)\n\nwhen I receive [次のステージ v]\nhide\nstart sound [High Whoosh v]\nクローン [1]\nwait (0.15) seconds\nクローン [2]\nwait (0.15) seconds\nクローン [3]\nwait (0.15) seconds\nクローン [next]\nwait (0.75) seconds\nクローン [5]\nwait (0.15) seconds\nクローン [6]\nwait (0.15) seconds\nクローン [7]\nクローン [☆]\nクローン [♡]\nクローン [👤]\nchange [color v] effect by (15)\n\nwhen flag clicked\nset [color v] effect to (pick random (-200) to (200))\n\nstart sound [Finger Snap v]\n\n
project for goriraf\nArrow keys\n【クレジット】\n＠-Xaf-　音楽\n＠Yuto1226　platformer\n\n拡散してくれた神たち\n＠sans-1115\n＠keroberosu4545\n＠rururann\n＠zui777\n＠sobamesikun\n＠sizimioisiiyo\n＠\n＠\n＠\n＠\n＠\n\n