プラットフォーマー!!!(PLATFORMER!!!)
@Stage\n\nwhen I receive [終わり！ v]\nswitch backdrop to (海 v)\n\nwhen flag clicked\n\n@軽量化\n\n@ステージ\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen flag clicked\nhide variable [タイム v]\n\nwhen I receive [終わり！ v]\nset [タイム v] to [0]\nshow variable [タイム v]\nswitch costume to (コスチューム1 \(3\) v)\nrepeat until <(costume [number v]) = [15]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\n\nwhen I receive [終わり！ v]\nshow\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nbroadcast (終わり！ v)\n\n@ネクスト\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@針\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 \(4\) v)\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen I receive [終わり！ v]\nshow\n\n@スプライト3\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@プレイヤー\n\nwhen I receive [イントロ完 v]\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 volume to (100) %\nforever\n    play sound [BGM① v] 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\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nwhen I receive [終わり！ v]\ngo to x: (-210) y: (0)\nshow\nset rotation style [left-right v]\nset [海賊王になる男\(\(\(?: x v] to [0]\nset [海賊王になる男\(\(\(?: y v] to [0]\nset size to (70) %\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 I receive [スタート v]\nset rotation style [left-right v]\nforever\n    say (username)\n    show\nend\n\n@素材1\n\nwhen flag clicked\ndelete all of [ユーザー名素材 v]\nadd [a] to [ユーザー名素材 v]\nadd [b] to [ユーザー名素材 v]\nadd [c] to [ユーザー名素材 v]\nadd [d] to [ユーザー名素材 v]\nadd [e] to [ユーザー名素材 v]\nadd [f] to [ユーザー名素材 v]\nadd [g] to [ユーザー名素材 v]\nadd [h] to [ユーザー名素材 v]\nadd [i] to [ユーザー名素材 v]\nadd [j] to [ユーザー名素材 v]\nadd [k] to [ユーザー名素材 v]\nadd [l] to [ユーザー名素材 v]\nadd [m] to [ユーザー名素材 v]\nadd [n] to [ユーザー名素材 v]\nadd [o] to [ユーザー名素材 v]\nadd [p] to [ユーザー名素材 v]\nadd [q] to [ユーザー名素材 v]\nadd [r] to [ユーザー名素材 v]\nadd [s] to [ユーザー名素材 v]\nadd [t] to [ユーザー名素材 v]\nadd [u] to [ユーザー名素材 v]\nadd [v] to [ユーザー名素材 v]\nadd [w] to [ユーザー名素材 v]\nadd [x] to [ユーザー名素材 v]\nadd [y] to [ユーザー名素材 v]\nadd [z] to [ユーザー名素材 v]\nadd [0] to [ユーザー名素材 v]\nadd [1] to [ユーザー名素材 v]\nadd [2] to [ユーザー名素材 v]\nadd [3] to [ユーザー名素材 v]\nadd [4] to [ユーザー名素材 v]\nadd [5] to [ユーザー名素材 v]\nadd [6] to [ユーザー名素材 v]\nadd [7] to [ユーザー名素材 v]\nadd [8] to [ユーザー名素材 v]\nadd [9] to [ユーザー名素材 v]\nadd [-] to [ユーザー名素材 v]\nadd [_] to [ユーザー名素材 v]\ndelete all of [ユーザー名 v]\nrepeat (10)\n    add [] to [ユーザー名 v]\nend\nset [i v] to [1]\nset [ユーザー名数値 v] to []\nrepeat (length of (username))\n    set [ユーザー名数値 v] to (join (ユーザー名数値) ((item # of (letter (i) of (username)) in [ユーザー名素材 v]) + (10)))\n    change [i v] by (1)\nend\nforever\n    ユーザー名 (☁ 1P) [1]\n    ユーザー名 (☁ 2P) [2]\n    ユーザー名 (☁ 3P) [3]\n    ユーザー名 (☁ 4P) [4]\n    ユーザー名 (☁ 5P) [5]\n    ユーザー名 (☁ 6P) [6]\n    ユーザー名 (☁ 7P) [7]\n    ユーザー名 (☁ 8P) [8]\n    ユーザー名 (☁ 9P) [9]\n    ユーザー名 (☁ 10P) [10]\n    wait (3) seconds\nend\n\nwhen I receive [スタート v]\nforever\n    if <(自分は何Pか？) = [1]> then\n        set [☁ 1p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [2]> then\n        set [☁ 2p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [3]> then\n        set [☁ 3p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [4]> then\n        set [☁ 4p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [5]> then\n        set [☁ 5p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [6]> then\n        set [☁ 6p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [7]> then\n        set [☁ 7p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [8]> then\n        set [☁ 8p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [9]> then\n        set [☁ 9p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\n    if <(自分は何Pか？) = [10]> then\n        set [☁ 10p v] to (join (プレイヤーデータ) (ユーザー名数値))\n    end\nend\n\nwhen flag clicked\nset [自分は何pか？ v] to [0]\nhide\nif <(username) = []> then\n    switch costume to (サインインして v)\n    show\n    go to [front v] layer\n    stop [all v]\nelse\n    if <(☁ 1p) = [0]> then\n        set [自分は何pか？ v] to [1]\n    else\n        if <(☁ 2p) = [0]> then\n            set [自分は何pか？ v] to [2]\n        else\n            if <(☁ 3p) = [0]> then\n                set [自分は何pか？ v] to [3]\n            else\n                if <(☁ 4p) = [0]> then\n                    set [自分は何pか？ v] to [4]\n                else\n                    if <(☁ 5p) = [0]> then\n                        set [自分は何pか？ v] to [5]\n                    else\n                        if <(☁ 6p) = [0]> then\n                            set [自分は何pか？ v] to [6]\n                        else\n                            if <(☁ 7p) = [0]> then\n                                set [自分は何pか？ v] to [7]\n                            else\n                                if <(☁ 8p) = [0]> then\n                                    set [自分は何pか？ v] to [8]\n                                else\n                                    if <(☁ 9p) = [0]> then\n                                        set [自分は何pか？ v] to [9]\n                                    else\n                                        if <(☁ 10p) = [0]> then\n                                            set [自分は何pか？ v] to [9]\n                                        else\n                                            switch costume to (サーバーがいっぱい v)\n                                            go to [front v] layer\n                                            stop [all v]\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset [クローンid v] to [0]\nrepeat (10)\n    change [クローンid v] by (1)\n    create clone of (_myself_ v)\nend\nbroadcast (スタート v)\n\ndefine ユーザー名 (データ) (何p)\nset [復元 v] to (length of (プレイヤーデータ))\nreplace item (何p) of [ユーザー名 v] with []\nrepeat ((length of (データ)) - (length of (プレイヤーデータ)))\n    replace item (何p) of [ユーザー名 v] with (join (item (何p) of [ユーザー名 v]) (item ((join (letter ((復元) - (1)) of (データ)) (letter (復元) of (データ))) - (10)) of [ユーザー名素材 v]))\n    change [復元 v] by (2)\nend\n\nwhen I start as a clone\nswitch costume to (キャラ v)\nset rotation style [left-right v]\nforever\n    if <(クローンID) = (自分は何Pか？)> then\n        delete this clone\n    else\n        if <(クローンID) = [1]> then\n            他のプレイヤー (☁ 1P) [1]\n        end\n        if <(クローンID) = [2]> then\n            他のプレイヤー (☁ 2P) [2]\n        end\n        if <(クローンID) = [3]> then\n            他のプレイヤー (☁ 3P) [3]\n        end\n        if <(クローンID) = [4]> then\n            他のプレイヤー (☁ 4P) [4]\n        end\n        if <(クローンID) = [5]> then\n            他のプレイヤー (☁ 5P) [5]\n        end\n        if <(クローンID) = [6]> then\n            他のプレイヤー (☁ 6P) [6]\n        end\n        if <(クローンID) = [7]> then\n            他のプレイヤー (☁ 7P) [7]\n        end\n        if <(クローンID) = [8]> then\n            他のプレイヤー (☁ 8P) [8]\n        end\n        if <(クローンID) = [9]> then\n            他のプレイヤー (☁ 9P) [9]\n        end\n        if <(クローンID) = [10]> then\n            他のプレイヤー (☁ 10P) [10]\n        end\n    end\nend\n\ndefine 他のプレイヤー (データ) (何p)\nif <[0] < (データ)> then\n    show\n    go to x: ((join (letter (2) of (データ)) (join (letter (3) of (データ)) (letter (4) of (データ)))) - (500)) y: ((join (letter (5) of (データ)) (join (letter (6) of (データ)) (letter (7) of (データ)))) - (500))\n    point in direction ((join (letter (8) of (データ)) (join (letter (9) of (データ)) (letter (10) of (データ)))) - (500))\n    say (item (何p) of [ユーザー名 v])\nelse\n    hide\nend\n\nwhen flag clicked\nforever\n    set [プレイヤーデータ v] to (join (letter (2) of (current [second v])) (join ((round ([x position v] of [素材2 v])) + (500)) (join ((round ([y position v] of [素材2 v])) + (500)) ((round ([direction v] of [素材2 v])) + (500)))))\nend\n\nwhen flag clicked\nforever\n    set [1p抜けた？ v] to (letter (1) of (☁ 1P))\n    set [2p抜けた？ v] to (letter (1) of (☁ 2P))\n    set [3p抜けた？ v] to (letter (1) of (☁ 3P))\n    set [4p抜けた？ v] to (letter (1) of (☁ 4P))\n    set [5p抜けた？ v] to (letter (1) of (☁ 5P))\n    set [6p抜けた？ v] to (letter (1) of (☁ 6P))\n    set [7p抜けた？ v] to (letter (1) of (☁ 7P))\n    set [8p抜けた？ v] to (letter (1) of (☁ 8P))\n    set [9p抜けた？ v] to (letter (1) of (☁ 9P))\n    set [10p抜けた？ v] to (letter (1) of (☁ 10P))\n    wait (1.5) seconds\n    if <(letter (1) of (☁ 1P)) = (1P抜けた？)> then\n        set [☁ 1p v] to [0]\n    end\n    if <(letter (1) of (☁ 2P)) = (2P抜けた？)> then\n        set [☁ 2p v] to [0]\n    end\n    if <(letter (1) of (☁ 3P)) = (3P抜けた？)> then\n        set [☁ 3p v] to [0]\n    end\n    if <(letter (1) of (☁ 4P)) = (4P抜けた？)> then\n        set [☁ 4p v] to [0]\n    end\n    if <(letter (1) of (☁ 5P)) = (5P抜けた？)> then\n        set [☁ 5p v] to [0]\n    end\n    if <(letter (1) of (☁ 6P)) = (6P抜けた？)> then\n        set [☁ 6p v] to [0]\n    end\n    if <(letter (1) of (☁ 7P)) = (7P抜けた？)> then\n        set [☁ 7p v] to [0]\n    end\n    if <(letter (1) of (☁ 8P)) = (8P抜けた？)> then\n        set [☁ 8p v] to [0]\n    end\n    if <(letter (1) of (☁ 9P)) = (9P抜けた？)> then\n        set [☁ 9p v] to [0]\n    end\n    if <(letter (1) of (☁ 10P)) = (10P抜けた？)> then\n        set [☁ 10p v] to [0]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (36) y: (28)\n\n@スプライト2\n\n
English is below（英語は下にあります）\n・矢印キーで操作\n・針に当たったらダメです\n・クリアしたらぜひ言ってください（難しい）\n・⭐＆❤お願いします\n\n・Operate with arrow keys\n・It's no good if it hits the needle.\n・Please let me know when you clear it (difficult)\n・⭐&❤ please