How to make a platformer!

Instructions:             『L』『e』『g』『o』plaтғorмer\n-тнιѕ ιѕ jυѕт a ғυn plaтғorмer тype тнaт ι donт тнιnĸ \n нas every вeen done on ѕcraтcн! enjoy тнe claѕѕιc \n lego ғeel! \n тнιѕ тooĸ a тon oғ worĸ aѕ ι нad тo place every \n ιndιvιѕυal pιece on eacн level!\n^Controls^ W.A.S.D and Arrow Keys! N to skip R to restart, and b for back! A very simple game.\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nwait (3) seconds\nswitch backdrop to (背景素材\(ベクター\)2 v)\n\n@くうはくすぷらいｔ\n\n@ステージ\n\nwhen flag clicked\nset [ステージ数 v] to [1]\nhide\n\nwhen I receive [イントロ完 v]\nshow\nforever\n    switch costume to (ステージ数)\nend\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (-75)\nrepeat (50)\n    change y by (((0) - (y position)) / (5))\nend\n\nwhen I receive [次のステージ v]\nwait (1) seconds\nchange [ステージ数 v] by (1)\n\nwhen flag clicked\nhide variable [☁ world record v]\nhide variable [time v]\n\nwhen I receive [イントロ完 v]\nwait (1) seconds\nforever\n    if <(ステージ数) = [20]> then\n        if <(TIME) < (☁ World record)> then\n            set [☁ world record v] to (TIME)\n        end\n        wait (1) seconds\n        show variable [☁ world record v]\n        show variable [time v]\n    else\n        hide variable [time v]\n        hide variable [☁ world record v]\n    end\nend\n\nwhen I receive [イントロ完 v]\nwait (1) seconds\nreset timer\nset [time v] to [0]\nrepeat until <(ステージ数) = [20]>\n    repeat until <[1] < (timer)>\n        if <(ステージ数) = [20]> then\n            stop [this script v]\n        end\n    end\n    change [time v] by (1)\n    reset timer\nend\n\n@いんとぅるえんぎね\n\ndefine しゃけ (たいむ) (°) (x) (y)\nset [しゃけ v] to [60]\nrepeat (たいむ)\n    change [しゃけ v] by (((0) - (しゃけ)) / (5))\n    go to x: (((([sin v] of ((timer) * (600)) ) * (0.9)) * (しゃけ)) + (x)) y: (((([cos v] of ((timer) * (600)) ) * (0.9)) * (しゃけ)) + (y))\n    point in direction (((([sin v] of ((timer) * (800)) ) * (1.5)) * ((しゃけ) / (7))) + (°))\n    set [shakedir v] to (((([sin v] of ((timer) * (800)) ) * (1.5)) * ((しゃけ) / (7))) + ((°) - (90)))\n    set [shakex v] to (((([sin v] of ((timer) * (600)) ) * (0.9)) * (しゃけ)) + (x))\n    set [shakey v] to (((([cos v] of ((timer) * (600)) ) * (0.9)) * (しゃけ)) + (y))\nend\n\nwhen I start as a clone\nshow\nif <(Cam Control?) = [1]> then\n    forever\n        position (costume [name v])\n    end\nend\n\ndefine position ()\nif <(size) > [100]> then\n    switch costume to (filler \(size\) v)\nelse\n    switch costume to (screen v)\nend\nset size to ((clone Z) * (🎥 Z)) %\nswitch costume to (filler \(movement\) v)\npoint in direction ((clone Dir) - ((🎥 Dir) + (ShakeDir)))\ngo to x: (((((clone X) + ((🎥 X) + (ShakeX))) * (🎥 Z)) * ([cos v] of ((🎥 Dir) + (ShakeDir)) )) - ((((clone Y) + ((🎥 Y) + (ShakeY))) * (🎥 Z)) * ([sin v] of ((🎥 Dir) + (ShakeDir)) ))) y: (((((clone X) + ((🎥 X) + (ShakeX))) * (🎥 Z)) * ([sin v] of ((🎥 Dir) + (ShakeDir)) )) + ((((clone Y) + ((🎥 Y) + (ShakeY))) * (🎥 Z)) * ([cos v] of ((🎥 Dir) + (ShakeDir)) )))\nswitch costume to ()\n\ndefine Clone (id) (cc?)\nset [cam control? v] to (cc?)\nset [id v] to (id)\ncreate clone of (_myself_ v)\n\ndefine wait (time)\nwait until <(timer) > (time)>\n\nwhen I receive [intro start v]\nswitch costume to (おおきさかんりよう\(\) v)\nreset timer\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (0) %\nhide\nset [🎥 dir v] to [0]\nset [🎥 x v] to [0]\nset [🎥 y v] to [0]\nset [🎥 z v] to [1]\nset [clone dir v] to [90]\nset [clone x v] to []\nset [clone y v] to []\nset [clone z v] to [0]\n\nwhen I receive [intro start v]\nClone [back] []\nwait [3]\nClone [text] [1]\nFw [] [] [200] [10] [130] type [b]\n\nwhen I start as a clone\nif <(ID) = [text]> then\n    go to [front v] layer\n    set [clone z v] to [0]\n    switch costume to (text v)\n    repeat until <(round (clone Z)) = [100]>\n        change [clone z v] by (((100) - (clone Z)) / (3))\n    end\n    wait [4]\n    hide\n    wait [4.5]\n    show\n    wait [10.5]\n    ふぇどあ\n    delete this clone\nend\n\nFw [] [] [100] [14] [130] type [b]\n\ndefine Sw Type () x,y,dir (x) (y) (d) size (z) Color (c)\nset [sw c v] to (c)\nset [sw,type v] to ()\nset [clone x v] to (x)\nset [clone y v] to (y)\nset [sw z v] to (z)\nset [sw dir v] to (d)\nset [cam control? v] to [1]\nset [id v] to [sw]\ncreate clone of (_myself_ v)\nset [clone x v] to ((x) + (25))\nset [clone y v] to ((y) - (15))\nset [id v] to [sw影]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(ID) = [light]> then\n    set size to (100) %\n    go to [front v] layer\n    switch costume to (light v)\nend\n\nwhen I start as a clone\nif <(ID) = [back]> then\n    set size to (100) %\n    go to [back v] layer\n    switch costume to (back v)\n    set [ghost v] effect to (100)\n    repeat (50)\n        change [ghost v] effect by (-2)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [sw]> then\n    go to [front v] layer\n    if <(Sw,type) = [a]> then\n        set [color v] effect to (Sw C)\n        set [sw v] to [10]\n        set [clone z v] to [0]\n        switch costume to (sw v)\n        set [fisheye v] effect to (0)\n        repeat (70)\n            set [sw v] to ((sw) * (1.19))\n            change [fisheye v] effect by (sw)\n            change [clone z v] by (((sw z) - (size)) / (5))\n        end\n    end\n    if <(Sw,type) = [b]> then\n        set [color v] effect to (Sw C)\n        set [sw v] to [10]\n        set [clone z v] to [0]\n        set [fisheye v] effect to (0)\n        switch costume to (1/2sw v)\n        set [clone dir v] to (Sw dir)\n        repeat (70)\n            set [sw v] to ((sw) * (1.19))\n            change [fisheye v] effect by (sw)\n            change [clone z v] by (((sw z) - (size)) / (5))\n        end\n    end\n    delete this clone\nend\n\nwhen I receive [intro start v]\nwait [1]\nrepeat (8)\n    set [clone y v] to [0]\n    set [clone dir v] to [90]\n    set [clone z v] to [1]\n    Clone [chev] [1]\n    wait (0.5) seconds\n    set [clone x v] to [0]\n    set [clone y v] to [0]\n    set [clone dir v] to [90]\n    set [clone z v] to [1]\n    Clone [chev2] [1]\n    wait (0.5) seconds\nend\n\nwhen I start as a clone\nif <(ID) = [sw影]> then\n    if <(Sw,type) = [a]> then\n        set [color v] effect to (Sw C)\n        set [ghost v] effect to (50)\n        set [brightness v] effect to (-100)\n        set [sw v] to [10]\n        set [clone z v] to [0]\n        set [cos v] to [sw]\n        switch costume to (sw v)\n        set [fisheye v] effect to (0)\n        repeat (70)\n            set [sw v] to ((sw) * (1.19))\n            change [fisheye v] effect by (sw)\n            change [clone z v] by (((sw z) - (size)) / (5))\n        end\n    end\n    if <(Sw,type) = [b]> then\n        set [color v] effect to (Sw C)\n        set [ghost v] effect to (50)\n        set [brightness v] effect to (-100)\n        set [sw v] to [10]\n        set [clone z v] to [0]\n        switch costume to (1/2sw v)\n        set [cos v] to [1/2sw]\n        set [fisheye v] effect to (0)\n        set [clone dir v] to (Sw dir)\n        repeat (70)\n            set [sw v] to ((sw) * (1.19))\n            change [fisheye v] effect by (sw)\n            change [clone z v] by (((sw z) - (size)) / (5))\n        end\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(ID) = [rw]> then\n    set [color v] effect to (Rw C)\n    go to [front v] layer\n    set [ghost v] effect to (0)\n    show\n    switch costume to (filler \(size\) v)\n    set [clone z v] to [0]\n    switch costume to (diamond 1 v)\n    repeat (15)\n        change [clone z v] by (((Rw siz) - (size)) / (7))\n        next costume\n    end\n    repeat (7)\n        change [clone z v] by (((Rw siz) - (size)) / (4))\n        next costume\n        change [ghost v] effect by (1)\n    end\n    hide\nend\n\ndefine Rw (x) (y) (dir) (z) (c)\nset [rw c v] to (c)\nset [rw siz v] to (z)\nset [clone dir v] to (dir)\nset [clone x v] to (x)\nset [clone y v] to (y)\nset [cam control? v] to [1]\nset [id v] to [rw]\ncreate clone of (_myself_ v)\nset [clone x v] to ((x) + (25))\nset [clone y v] to ((y) - (15))\nset [id v] to [rw影]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(ID) = [rw影]> then\n    go to [front v] layer\n    go [backward v] (1) layers\n    set [brightness v] effect to (-100)\n    set [ghost v] effect to (50)\n    show\n    switch costume to (filler \(size\) v)\n    set [clone z v] to [0]\n    switch costume to (diamond 1 v)\n    repeat (15)\n        change [clone z v] by (((Rw siz) - (size)) / (7))\n        next costume\n    end\n    repeat (7)\n        change [clone z v] by (((Rw siz) - (size)) / (4))\n        next costume\n        change [ghost v] effect by (1)\n    end\n    hide\nend\n\nwhen I receive [intro start v]\n\ndefine Fw (x) (y) (z) (本数) (color) type ()\nset [clone dir v] to [0]\nset [fw color v] to (color)\nset [fw type v] to ()\nset [clone x v] to (x)\nset [clone y v] to (y)\nset [clone z v] to (z)\nset [fw v] to [0]\nrepeat (本数)\n    change [fw v] by (1)\n    change [clone dir v] by ((360) / (本数))\n    Clone [fw] [1]\nend\nset [clone x v] to ((x) + (25))\nset [clone y v] to ((y) - (15))\nrepeat (本数)\n    change [fw v] by (1)\n    change [clone dir v] by ((360) / (本数))\n    Clone [fw影] [1]\nend\n\nwhen I start as a clone\nif <(ID) = [fw]> then\n    set [ghost v] effect to (0)\n    go to [front v] layer\n    if <(Fw type) = [a]> then\n        set [color v] effect to (Fw Color)\n        switch costume to (le1 v)\n        repeat (10)\n            next costume\n        end\n        repeat (2)\n            next costume\n            change [ghost v] effect by (10)\n        end\n        delete this clone\n    else\n        if <(Fw type) = [b]> then\n            if <[fwのためだけのリスト。 v] contains (Fw)?> then\n                set [brightness v] effect to (100)\n                set [color v] effect to (Fw Color)\n                switch costume to (le1 v)\n                repeat (10)\n                    next costume\n                end\n                repeat (2)\n                    next costume\n                    change [ghost v] effect by (10)\n                end\n                delete this clone\n            else\n                set [brightness v] effect to (0)\n                set [color v] effect to (Fw Color)\n                switch costume to (le1 v)\n                repeat (10)\n                    next costume\n                end\n                repeat (2)\n                    next costume\n                    change [ghost v] effect by (10)\n                end\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I receive [intro start v]\ndelete all of [fwのためだけのリスト。 v]\ninsert [2] at (1) of [fwのためだけのリスト。 v] \ninsert [4] at (2) of [fwのためだけのリスト。 v] \ninsert [6] at (3) of [fwのためだけのリスト。 v] \ninsert [8] at (4) of [fwのためだけのリスト。 v] \ninsert [10] at (5) of [fwのためだけのリスト。 v] \ninsert [12] at (6) of [fwのためだけのリスト。 v] \ninsert [14] at (7) of [fwのためだけのリスト。 v] \ninsert [16] at (8) of [fwのためだけのリスト。 v] \ninsert [18] at (9) of [fwのためだけのリスト。 v] \ninsert [20] at (10) of [fwのためだけのリスト。 v] \n\nwhen I receive [intro start v]\n\nwhen I start as a clone\nif <(ID) = [fw影]> then\n    set [brightness v] effect to (-100)\n    go to [front v] layer\n    go [backward v] (Fw) layers\n    switch costume to (le1 v)\n    change [ghost v] effect by (50)\n    repeat (10)\n        next costume\n    end\n    repeat (2)\n        next costume\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\nforever\n    しゃけ [12] [90] [] []\nend\n\nwhen I start as a clone\nif <(ID) = [chev]> then\n    switch costume to (コスチューム1 v)\n    \n        change [clone z v] by (((\(ﾟ∀ﾟ\)) * (clone Z)) / (100))\n        set [clone dir v] to [90]\n        set [clone x v] to []\n        set [clone y v] to []\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [chev2]> then\n    switch costume to (コスチューム1 v)\n    set [brightness v] effect to (90)\n    \n        change [clone z v] by (((\(ﾟ∀ﾟ\)) * (clone Z)) / (100))\n        set [clone dir v] to [90]\n        set [clone x v] to []\n        set [clone y v] to []\n    end\nend\n\nwhen I receive [intro start v]\nset [\(ﾟ∀ﾟ\) v] to [10]\n\nwhen I receive [intro start v]\nwait [8]\nFw [] [] [100] [10] [125] type [b]\nrepeat until <(round (🎥 X)) = [180]>\n    change [🎥 x v] by (((180) - (🎥 X)) / (4))\nend\nFw [180] [] [100] [10] [125] type [b]\nrepeat until <(round (🎥 X)) = [-180]>\n    change [🎥 x v] by (((-180) - (🎥 X)) / (4))\nend\nFw [-180] [] [100] [10] [125] type [b]\nrepeat until <(round (🎥 X)) = [0]>\n    change [🎥 x v] by (((0) - (🎥 X)) / (3))\nend\nSw Type [a] x,y,dir [] [] [] size [100] Color [115]\nSw Type [a] x,y,dir [150] [] [] size [100] Color [130]\nSw Type [a] x,y,dir [-150] [] [] size [100] Color [130]\nSw Type [a] x,y,dir [] [150] [] size [100] Color [130]\nSw Type [a] x,y,dir [150] [150] [] size [100] Color [115]\nSw Type [a] x,y,dir [-150] [150] [] size [100] Color [115]\nSw Type [a] x,y,dir [] [-150] [] size [100] Color [130]\nSw Type [a] x,y,dir [150] [-150] [] size [100] Color [115]\nSw Type [a] x,y,dir [-150] [-150] [] size [100] Color [115]\n\nset [clone x v] to [0]\n\nwhen I receive [intro start v]\n\nwhen I receive [intro start v]\ndelete all of [おとはっめ v]\ninsert [3.33] at (1) of [おとはっめ v] \ninsert [4.29] at (2) of [おとはっめ v] \ninsert [5] at (3) of [おとはっめ v] \ninsert [5.74] at (4) of [おとはっめ v] \ninsert [6.3] at (5) of [おとはっめ v] \ninsert [6] at (6) of [おとはっめ v] \ninsert [7.1] at (7) of [おとはっめ v] \ninsert [] at (8) of [おとはっめ v] \ninsert [8.2] at (9) of [おとはっめ v] \ninsert [9.8] at (10) of [おとはっめ v] \ninsert [10.5] at (11) of [おとはっめ v] \n\nwhen I receive [intro start v]\nwait (item (1) of [おとはっめ v])\nしゃけ [25] [90] [] []\nwait (item (3) of [おとはっめ v])\nb\nしゃけ [25] [90] [] []\nwait (item (4) of [おとはっめ v])\nしゃけ [25] [90] [] []\nwait (item (7) of [おとはっめ v])\nRw [] [] [] [100] [120]\nRw [] [] [] [200] [120]\nしゃけ [25] [90] [] []\nwait (item (11) of [おとはっめ v])\nset [\(ﾟ∀ﾟ\) v] to [30]\n\nwhen I receive [intro start v]\nwait (item (6) of [おとはっめ v])\nRw [-200] [] [45] [50] [120]\nRw [-100] [] [45] [50] [120]\nRw [] [] [45] [50] [120]\nRw [100] [] [45] [50] [120]\nRw [200] [] [45] [50] [120]\nRw [-200] [100] [45] [50] [120]\nRw [-100] [100] [45] [50] [120]\nRw [] [100] [45] [50] [120]\nRw [100] [100] [45] [50] [120]\nRw [200] [100] [45] [50] [120]\nRw [-200] [200] [45] [50] [120]\nRw [-100] [200] [45] [50] [120]\nRw [] [200] [45] [50] [120]\nRw [100] [200] [45] [50] [120]\nRw [200] [200] [45] [50] [120]\nRw [-200] [-100] [45] [50] [120]\nRw [-100] [-100] [45] [50] [120]\nRw [] [-100] [45] [50] [120]\nRw [100] [-100] [45] [50] [120]\nRw [200] [-100] [45] [50] [120]\nRw [-200] [-200] [45] [50] [120]\nRw [-100] [-200] [45] [50] [120]\nRw [] [-200] [45] [50] [120]\nRw [100] [-200] [45] [50] [120]\nRw [200] [-200] [45] [50] [120]\nrepeat until <(round (🎥 Dir)) = [180]>\n    change [🎥 dir v] by (((180) - (🎥 Dir)) / (3))\nend\nwait (0) seconds\nrepeat until <(round (🎥 Dir)) = [360]>\n    change [🎥 dir v] by (((360) - (🎥 Dir)) / (2.5))\nend\n\nwhen I receive [intro start v]\nwait [8]\nset [🎥 dir v] to [0]\nset [a v] to [1]\nrepeat (72)\n    change [🎥 dir v] by (5)\nend\n\nwhen I start as a clone\nshow\nif <(ID) = [g]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (g v)\n    go to x: (-118) y: (0)\n    Sw Type [a] x,y,dir (x position) [50] [-90] size [50] Color [120]\n    repeat until <[5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (-118)) y: (([cos v] of (θ) ) * (-118))\n    end\n    delete this clone\nend\nif <(ID) = [o]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (o v)\n    go to x: (-76) y: (0)\n    Sw Type [a] x,y,dir (x position) [-50] [-90] size [50] Color [120]\n    repeat until <[4.5] < (timer)>\n        go to x: (([sin v] of (θ) ) * (-76)) y: (([cos v] of (θ) ) * (-76))\n    end\n    delete this clone\nend\nif <(ID) = [r]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (r v)\n    go to x: (-31) y: ()\n    Sw Type [a] x,y,dir (x position) [50] [-90] size [50] Color [120]\n    repeat until <[4.5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (-31)) y: (([cos v] of (θ) ) * (-31))\n    end\n    delete this clone\nend\nif <(ID) = [i]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (i v)\n    go to x: (3) y: ()\n    Sw Type [a] x,y,dir (x position) [-50] [-90] size [50] Color [120]\n    repeat until <[4.5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (3)) y: (([cos v] of (θ) ) * (3))\n    end\n    delete this clone\nend\nif <(ID) = [r2]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (r2 v)\n    go to x: (40) y: ()\n    Sw Type [a] x,y,dir (x position) [50] [-90] size [50] Color [120]\n    repeat until <[4.5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (40)) y: (([cos v] of (θ) ) * (40))\n    end\n    delete this clone\nend\nif <(ID) = [a]> then\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (a v)\n    go to x: (83) y: ()\n    Sw Type [a] x,y,dir (x position) [-50] [-90] size [50] Color [120]\n    repeat until <[4.5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (83)) y: (([cos v] of (θ) ) * (83))\n    end\n    delete this clone\nend\nif <(ID) = [f]> then\n    go to [front v] layer\n    set size to (100) %\n    go to x: (123) y: ()\n    Sw Type [a] x,y,dir (x position) [50] [-90] size [50] Color [120]\n    switch costume to (f v)\n    repeat until <[4.5] < (timer)>\n        a\n        go to x: (([sin v] of (θ) ) * (123)) y: (([cos v] of (θ) ) * (123))\n    end\n    delete this clone\nend\n\nswitch costume to (g v)\n\nswitch costume to (o v)\ngo to x: (-76) y: ()\n\nswitch costume to (r v)\ngo to x: (-31) y: ()\n\nswitch costume to (i v)\ngo to x: (3) y: ()\n\nswitch costume to (r2 v)\ngo to x: (40) y: ()\n\nswitch costume to (a v)\ngo to x: (83) y: ()\n\nswitch costume to (f v)\n\nClone [g] []\n\nwhen I receive [intro start v]\nset [b v] to [1]\nwait [4]\nset [θ v] to [90]\nClone [g] []\nClone [o] []\nClone [r] [ ]\nClone [i] [ ]\nClone [r2] [ ]\nClone [a] [ ]\nClone [f] [ ]\nrepeat (18)\n    change [θ v] by (20)\nend\n\ndefine a\n\nset [b v] to ((b) * (1.11))\nturn right (b) degrees\n\nRw [] [] [] [200] [120]\n\nwhen I start as a clone\nwait [10.4]\nif <not > then\n    repeat (4)\n        change [brightness v] effect by (25)\n        change [ghost v] effect by (25)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(ID) = [text]> then\n    forever\n        go to [front v] layer\n    end\nend\n\nchange [clone dir v] by (((150) - (clone Dir)) / (37))\n\ndefine ふぇどあ\nset [加速イージング v] to [5]\nrepeat (35)\n    set [加速イージング v] to ((加速イージング) * (1.12))\n    change [clone y v] by ((加速イージング) - ((加速イージング) * (2.01)))\n    turn right ((加速イージング) / (3)) degrees\nend\ndelete this clone\n\ndefine b\nSw Type [a] x,y,dir [] [] [90] size [100] Color [120]\nSw Type [a] x,y,dir [] [] [90] size [200] Color [120]\n\nwhen I receive [intro start v]\nplay sound [Catch Me \(Wy Flip\) v] until done\nwait (2) seconds\nbroadcast (イントロ完 v)\n\n@針\n\nwhen I receive [イントロ完 v]\nshow\nforever\n    switch costume to (ステージ数)\n    go to [back v] layer\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ完 v]\ngo to x: (0) y: (-75)\nrepeat (50)\n    change y by (((0) - (y position)) / (5))\nend\n\nset [ステージ数 v] to [19]\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)) / (4))\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)) / (4))\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)) / (4))\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) / (3)))\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) / (3)))\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) / (3)))\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) / (3)))\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) / (3)))\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) / (3)))\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.45) seconds\nクローン [5]\nwait (0.15) seconds\nクローン [6]\nstart sound [Finger Snap v]\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\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム6 v)\nset size to (100) %\nswitch costume to (コスチューム4 v)\nforever\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n@海賊王になる男(((?\n\nwhen I receive [イントロ完 v]\nwait (1) seconds\ngo to x: (-150) y: (0)\nshow\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nset size to (65) %\nforever\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n        if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> and <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>>> or <<mouse down?> and <[0] < (mouse y)>>> then\n            switch costume to (コスチューム4 v)\n        else\n            switch costume to (コスチューム6 v)\n        end\n    else\n        switch costume to (コスチューム1 v)\n        if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n            switch costume to (コスチューム2 v)\n        else\n            if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse x)>>> then\n                switch costume to (コスチューム2 v)\n            else\n                switch costume to (コスチューム1 v)\n            end\n        end\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1.75)\n    end\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        change [x v] by (-1.75)\n        point in direction (-90)\n    end\n    set [x v] to ((x) * (0.8))\n    change x by (x)\n    if <<touching (動くステージ v)?> or > then\n        change y by (1)\n        if <<touching (動くステージ v)?> or > then\n            change y by (1)\n            if <<touching (動くステージ v)?> or > then\n                change y by (1)\n                if <<touching (動くステージ v)?> or > then\n                    change y by (1)\n                    if <<touching (動くステージ v)?> or > then\n                        change y by (1)\n                        if <<touching (動くステージ v)?> or <<touching (ステージ v)?> or <<touching (鍵穴 v)?> or <touching (鍵穴2 v)?>>>> then\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> and <not <touching (水 v)?>>> then\n                                start sound [壁キック v]\n                                if <(x) > [0]> then\n                                    set [x v] to [-15]\n                                else\n                                    set [x v] to [15]\n                                end\n                                set [y v] to [15.5]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <<touching (動くステージ v)?> or <<touching (ステージ v)?> or <<touching (鍵穴 v)?> or <touching (鍵穴2 v)?>>>> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n        change y by (-1)\n        if <<<touching (動くステージ v)?> or <<touching (ステージ v)?> or <<touching (鍵穴 v)?> or <touching (鍵穴2 v)?>>>> and <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>>> then\n            change [y v] by (17)\n            start sound [ジャンプ3 v]\n        end\n        change y by (1)\n    end\n    if <[240] < (x position)> then\n        broadcast (次のステージ v)\n        go to x: (-210) y: (0)\n        set [ステージのバグ解消 v] to [1]\n        wait (3) seconds\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <touching (ジャンプ台 v)?> then\n        start sound [ジャンプ3 v]\n        set [y v] to [20]\n    end\n    if <<(y position) < [-182]> or <<touching (針 v)?> or <<touching (敵キャラ v)?> or <<touching (針\(特殊?\) v)?> or <touching (動く針2 v)?>>>>> then\n        if <touching (敵キャラ v)?> then\n            if <touching color (#da4343)?> then\n                if <touching color (#dd4848)?> then\n                    戻る\n                end\n            else\n                戻る\n            end\n        else\n            戻る\n        end\n    end\n    create clone of (_myself_ v)\n    broadcast (huhh0 v)\nend\n\nwhen flag clicked\nhide\n\ndefine 戻る\nbroadcast (i v)\nstart sound [Crunch v]\ngo to x: (-210) y: (0)\nshow\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [すてーじかわった v]\nwait (0.8) seconds\n戻る(クリア)\n\nwhen I receive [次! v]\nhide\nwait (2.5) seconds\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\n残像\n\ndefine 戻る(クリア)\nset [ステージのバグ解消 v] to [0]\ngo to x: (-210) y: (0)\nshow\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nswitch costume to (コスチューム3 v)\nrepeat (15)\n    change size by (-2)\n    change [ghost v] effect by (7)\nend\ndelete this clone\n\ndefine 残像\nset [ghost v] effect to (0)\nrepeat (5)\n    change [ghost v] effect by (20)\nend\ndelete this clone\n\nwhen I receive [イントロ完 v]\nforever\n    wait until <touching (水 v)?>\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n        set [y v] to [5]\n    else\n        set [y v] to [-1.5]\n    end\nend\n\nwhen I receive [イントロ完 v]\nset [ステージのバグ解消 v] to [0]\nset volume to (100) %\nforever\n    wait (1) seconds\n    play sound (pick random (4) to (9)) until done\nend\n\nswitch costume to (コスチューム1 v)\n\nwhen I receive [huhh0 v]\nif <not <<touching (動くステージ v)?> or <<touching (ステージ v)?> or <<touching (鍵穴 v)?> or <touching (鍵穴2 v)?>>>>> then\n    change y by (-1)\nend\n\nwhen flag clicked\nbroadcast (Intro start v)\n\n