online　PLATFORMER!!　プラットフォーマー　オンライン

Instructions: online　PLATFORMER!!\n\nゴールはまず端っこまで行ったらスタート時点に現れます‼\n#1 ONLINE　β版\n\n今までオンラインゲームを出したことがないので作ってみました‼　バグなども多いですが暖かーい目\nで見てください(´・ω・｀)\n\n操作方法　矢印キー\n\nnewscratcherはオンラインでは遊べません(>_<)\n\n之を応用して何を作ろうかな。。。\nよし　クリッカーを作ろう(((何も応用してない\n\n#games  #game #all #rrr-scratch\n\n参考にさせていただいた人\nkatsuo777\n\nintro\nWaterFX

@Stage\n\nwhen I receive [start v]\nforever\n    play sound [逃走中BGM  v] until done\nend\n\n@prayer\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [0]\nhide\ngo to [front v] layer\n\ndefine prayer\nif <(！) = [0]> then\n    if <not <(username) = []>> then\n        say (username)\n    end\n    if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n        change [x v] by (2)\n    end\n    if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n        change [x v] by (-2)\n    end\n    set [x v] to ((x) * (0.77))\n    change x by (round (x))\n    if <touching (stage v)?> then\n        change y by (1)\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change y by (1)\n                        if <touching (stage v)?> then\n                            change y by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching (stage v)?> then\n        壁\n    end\n    change [y v] by (-2)\n    change y by (y)\n    if <touching (stage v)?> then\n        床\n    end\n    change y by (-1)\n    if <<touching (stage v)?> and <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n        set [y v] to [20]\n    end\n    change y by (1)\n    change [scroll x v] by (round ((x position) / (10)))\n    change x by ((0) - ((round ((x position) / (10))) * <not <<(scroll x) < [0]> or <[4500] < (scroll x)>>>))\n    if <(scroll x) < [0]> then\n        set [scroll x v] to [0]\n    end\n    if <[4500] < (scroll x)> then\n        set [scroll x v] to [4500]\n    end\n    change [scroll y v] by (round ((y position) / (10)))\n    change y by ((0) - ((round ((y position) / (10))) * <not <(scroll y) < [0]>>))\n    if <(scroll y) < [0]> then\n        set [scroll y v] to [0]\n    end\n    if <<(y position) < [-150]> and <not <(scroll y) = [0]>>> then\n        set y to (-150)\n        change [y v] by (2)\n    end\nend\n\ndefine 初期化\nstart sound [Rip v]\nhide\nrepeat until <<([abs v] of ((scroll y) - (YY)) ) < [3]> and <([abs v] of ((scroll x) - (XX)) ) < [3]>>\n    change [scroll x v] by (round (((XX) - (scroll x)) / (5)))\n    change [scroll y v] by (round (((YY) - (scroll y)) / (5)))\nend\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (0) y: (0)\nbroadcast (monster v)\nshow\n\ndefine 壁\nchange y by (-4)\nset [？ v] to [0]\nrepeat until <<[100] < (？)> or <not <touching (stage v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n    set [y v] to [20]\n    set [x v] to ((-10) * ((x) / ([abs v] of (x) )))\nelse\n    set [x v] to [0]\nend\n\ndefine 床\nset [？ v] to [0]\nrepeat until <<[100] < (？)> or <not <touching (stage v)?>>>\n    change [？ v] by (1)\n    change y by ((-1) * ((y) / ([abs v] of (y) )))\nend\nset [y v] to [0]\n\nwhen I receive [start v]\nshow\nset [！ v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    prayer\nend\n\nwhen I receive [start v]\nforever\n    switch costume to (コスチューム1 v)\n    if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム2 v)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム3 v)\n        end\n    else\n        switch costume to (コスチューム6 v)\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム4 v)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム5 v)\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <<(y position) < [-180]> or <touching (stage3 v)?>> then\n        set [！ v] to [1]\n        初期化\n        set [！ v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\nwhen I receive [クリア v]\nhide\n\n@prayer2\n\nwhen I receive [オンライン！ v]\nhide\n配置\ngo to [front v] layer\n\ndefine 配置\nset [prayer2 v] to [0]\nrepeat (10)\n    change [prayer2 v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    show\n    set [ghost v] effect to (0)\n    if <<(1p？) = (prayer2)> or <<(item (prayer2) of [p1〜10 v]) = [0]> or <[1] = (letter (54) of (item (prayer2) of [p1〜10 v]))>>> then\n        hide\n    end\n    switch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\n    say (item (prayer2) of [user v])\n    xy (((join (letter (41) of (item (prayer2) of [p1〜10 v])) (join (letter (42) of (item (prayer2) of [p1〜10 v])) (join (letter (43) of (item (prayer2) of [p1〜10 v])) (letter (44) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (scroll x)) (((join (letter (45) of (item (prayer2) of [p1〜10 v])) (join (letter (46) of (item (prayer2) of [p1〜10 v])) (join (letter (47) of (item (prayer2) of [p1〜10 v])) (letter (48) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (scroll y))\nend\n\ndefine xy (x) (y)\ngo to x: (x) y: (y)\nif <not <<(x position) = (x)> and <(y position) = (y)>>> then\n    set [ghost v] effect to (100)\nend\n\n@online\n\nwhen I receive [オンライン v]\nset [online v] to [1]\nwait (1) seconds\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [☁ 10p v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (START v)\nbroadcast (オンライン！ v)\nforever\n    if <(☁ 1p) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ 1p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n        end\n    else\n        if <(☁ 2p) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ 2p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n            end\n        else\n            if <(☁ 3p) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ 3p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                end\n            else\n                if <(☁ 4p) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ 4p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                    end\n                else\n                    if <(☁ 5p) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ 5p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                        end\n                    else\n                        if <(☁ 6p) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ 6p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                            end\n                        else\n                            if <(☁ 7p) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ 7p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                end\n                            else\n                                if <(☁ 8p) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ 8p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                    end\n                                else\n                                    if <(☁ 9p) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ 9p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                        end\n                                    else\n                                        if <(☁ 10p) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ 10p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [user v] to [0]\nset [user2 v] to []\nrepeat (length of (username))\n    change [user v] by (1)\n    switch costume to (letter (user) of (username))\n    set [user2 v] to (join (user2) (costume [number v]))\nend\nrepeat ((40) - (length of (user2)))\n    set [user2 v] to (join (user2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [user v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [〜 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((〜) + (1)) of (item (%) of [p1〜10 v])) (letter ((〜) + (2)) of (item (%) of [p1〜10 v]))) = [00]>> then\n            change [〜 v] by (2)\n            switch costume to (join (letter ((〜) - (1)) of (item (%) of [p1〜10 v])) (letter (〜) of (item (%) of [p1〜10 v])))\n            set [4 v] to (join (4) (costume [name v]))\n        end\n    end\n    add (4) to [user v]\nend\n\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ 1p) to [p1〜10 v]\n    add (☁ 2p) to [p1〜10 v]\n    add (☁ 3p) to [p1〜10 v]\n    add (☁ 4p) to [p1〜10 v]\n    add (☁ 5p) to [p1〜10 v]\n    add (☁ 6p) to [p1〜10 v]\n    add (☁ 7p) to [p1〜10 v]\n    add (☁ 8p) to [p1〜10 v]\n    add (☁ 9p) to [p1〜10 v]\n    add (☁ 10p) to [p1〜10 v]\nend\n\nwhen I receive [オンライン！ v]\nforever\n    delete all of [1〜10 2 v]\n    add (☁ 1p) to [1〜10 2 v]\n    add (☁ 2p) to [1〜10 2 v]\n    add (☁ 3p) to [1〜10 2 v]\n    add (☁ 4p) to [1〜10 2 v]\n    add (☁ 5p) to [1〜10 2 v]\n    add (☁ 6p) to [1〜10 2 v]\n    add (☁ 7p) to [1〜10 2 v]\n    add (☁ 8p) to [1〜10 2 v]\n    add (☁ 9p) to [1〜10 2 v]\n    add (☁ 10p) to [1〜10 2 v]\n    wait (1.5) seconds\n    if <(letter (53) of (item (1) of [p1〜10 v])) = (letter (53) of (item (1) of [1〜10 2 v]))> then\n        set [☁ 1p v] to [0]\n    end\n    if <(letter (53) of (item (2) of [p1〜10 v])) = (letter (53) of (item (2) of [1〜10 2 v]))> then\n        set [☁ 2p v] to [0]\n    end\n    if <(letter (53) of (item (3) of [p1〜10 v])) = (letter (53) of (item (3) of [1〜10 2 v]))> then\n        set [☁ 3p v] to [0]\n    end\n    if <(letter (53) of (item (4) of [p1〜10 v])) = (letter (53) of (item (4) of [1〜10 2 v]))> then\n        set [☁ 4p v] to [0]\n    end\n    if <(letter (53) of (item (5) of [p1〜10 v])) = (letter (53) of (item (5) of [1〜10 2 v]))> then\n        set [☁ 5p v] to [0]\n    end\n    if <(letter (53) of (item (6) of [p1〜10 v])) = (letter (53) of (item (6) of [1〜10 2 v]))> then\n        set [☁ 6p v] to [0]\n    end\n    if <(letter (53) of (item (7) of [p1〜10 v])) = (letter (53) of (item (7) of [1〜10 2 v]))> then\n        set [☁ 7p v] to [0]\n    end\n    if <(letter (53) of (item (8) of [p1〜10 v])) = (letter (53) of (item (8) of [1〜10 2 v]))> then\n        set [☁ 8p v] to [0]\n    end\n    if <(letter (53) of (item (9) of [p1〜10 v])) = (letter (53) of (item (9) of [1〜10 2 v]))> then\n        set [☁ 9p v] to [0]\n    end\n    if <(letter (53) of (item (10) of [p1〜10 v])) = (letter (53) of (item (10) of [1〜10 2 v]))> then\n        set [☁ 10p v] to [0]\n    end\nend\n\nwhen I receive [オンラインへ v]\nbroadcast (オンライン v)\n\n配置 (monster coin X) ((monster coin Y) + (10)) [1]\n\n@Stage4\n\ndefine 配置 (x) (y) (コスチューム) (動かす距離)\nset [+ v] to (動かす距離)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: (((1) + (+X)) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = (((1) + (+X)) - (scroll x))> and <<(OK？) = [0]> and <(y position) = ((2) - (scroll y))>>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\n    if <[0] < (monster X)> then\n        switch costume to ((3) + (2))\n    else\n        switch costume to ((3) + (3))\n    end\nend\n\nwhen I start as a clone\nset [+x v] to [0]\nset [monster x v] to [0]\nforever\n    repeat (+)\n        change [monster x v] by (1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n    end\n    repeat (+)\n        change [monster x v] by (-1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n    end\nend\n\nwhen I start as a clone\nset [ok？ v] to [0]\nforever\n    if <touching (prayer v)?> then\n        if <(y) < [0]> then\n            set [y v] to [20]\n            set [monster coin x v] to ((1) + (+X))\n            set [monster coin y v] to (2)\n            broadcast (monster coin v)\n            change [ok？ v] by (1)\n        else\n            broadcast (初期化 v)\n        end\n    end\nend\n\nwhen I receive [monster v]\nset [ok？ v] to [0]\n\nwhen I receive [start v]\nhide\n配置 [1330] [-17] [1] [40]\n配置 [3300] [100] [1] [20]\n配置 [3550] [-22] [1] [40]\n\n@Stage5\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <<(OK？) = [0]> and <(y position) = ((2) - (scroll y))>>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\nset [monster coin？ v] to [0]\n配置 [130] [-20] [1]\n配置 [180] [-20] [1]\n配置 [290] [-20] [1]\n配置 [410] [-20] [1]\n配置 [460] [-20] [1]\n配置 [680] [170] [1]\n配置 [730] [170] [1]\n配置 [900] [140] [1]\n配置 [1030] [90] [1]\n配置 [1175] [35] [1]\n配置 [1225] [20] [1]\n配置 [1775] [-15] [1]\n配置 [1825] [-15] [1]\n配置 [1875] [-15] [1]\n配置 [1985] [-15] [1]\n配置 [2100] [120] [1]\n配置 [2150] [120] [1]\n配置 [2550] [285] [1]\n配置 [2825] [270] [1]\n配置 [2950] [215] [1]\n配置 [3000] [200] [1]\n配置 [3050] [180] [1]\n配置 [4250] [-15] [1]\n配置 [4300] [-15] [1]\n配置 [4350] [-15] [1]\n配置 [4465] [-15] [1]\n配置 [4600] [-15] [1]\n\nwhen I receive [monster v]\nset [ok？ v] to [0]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        set [ok？ v] to [1]\n        change [coin v] by (1)\n    end\nend\n\nwhen flag clicked\nset [coin v] to [0]\n\nwhen I receive [monster coin v]\nif <(costume [number v]) = [1]> then\n    wait (0.5) seconds\n    set [monster coin？ v] to [1]\n    配置 (monster coin X) ((monster coin Y) + (10)) [1]\nend\n\nwhen I start as a clone\nif <(monster coin？) = [1]> then\n    wait until <<(！) = [1]> and <(OK？) = [1]>>\n    wait until <(！) = [0]>\n    delete this clone\nend\n\n@Stage6\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nset [得点 v] to [0]\nhide\n配置 [2250] [122] [1]\n配置 [4500] [140] [1]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        change [得点 v] by (1)\n        start sound [Collect v]\n        set [xx v] to (1)\n        set [yy v] to (2)\n        change [3 v] by (1)\n        stop [this script v]\n    end\nend\n\n@Stage7\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\nwait until <(得点) = [2]>\n配置 [0] [-30] [1]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        set [xx v] to (1)\n        set [yy v] to (2)\n        change [3 v] by (1)\n        set [！ v] to [1]\n        broadcast (クリア v)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nset [得点 v] to [0]\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nswitch costume to (コスチューム3 v)\nset [ghost v] effect to (100)\n\nwhen I receive [クリア v]\nstart sound [Rip v]\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (0)\ngo to x: (0) y: (999)\nrepeat until <(round (y position)) = [0]>\n    change y by (((0) - (y position)) / (5))\nend\nstop [all v]\n\n@intro2\n\ndefine clone (id) (count)\nset [index v] to [-1]\nrepeat (count)\n    set [cloneid v] to (id)\n    change [index v] by (1)\n    create clone of (_myself_ v)\nend\n\ndefine wait until ()\nwait until <(timer) > ()>\n\nwhen I start as a clone\nif <(cloneID) = [Bar]> then\n    wait until [3.6]\n    show\n    switch costume to (bar v)\n    set x to ((-160) + ((index) * (160)))\n    wait until <(timer) > [7.5]>\n    wait ((index) * (0.2)) seconds\n    repeat (15)\n        switch costume to (poshack v)\n        change y by (((-1) - (y position)) * (-0.4))\n        switch costume to (bar v)\n    end\n    repeat (30)\n        switch costume to (poshack v)\n        Pos Easing (x position) [365] [8]\n        switch costume to (bar v)\n    end\n    if <(index) = [2]> then\n        broadcast (Intro end v)\n    end\n    delete this clone\nend\nif < (cloneID) contains [Letter]?> then\n    wait ((index) * (0.05)) seconds\n    show\n    switch costume to (join [letter] ((index) + (1)))\n    set size to (0) %\n    if <(letter (7) of (cloneID)) = [1]> then\n        set [color v] effect to ((1) / (0))\n        set [brightness v] effect to (-20)\n        set [ghost v] effect to (50)\n    else\n        set [brightness v] effect to (0)\n    end\n    repeat until <(timer) > [3.8]>\n        Size Easing [150] [5]\n    end\n    if <(letter (7) of (cloneID)) = [1]> then\n        wait (((10) - (index)) * (0.05)) seconds\n        repeat (15)\n            change y by (((1) - (y position)) * (-0.3))\n        end\n        repeat (30)\n            Pos Easing [0] [-240] [8]\n        end\n        delete this clone\n    else\n        wait ((index) * (0.05)) seconds\n        repeat (15)\n            change y by (((-1) - (y position)) * (-0.3))\n        end\n        repeat (30)\n            Pos Easing [0] [240] [8]\n        end\n        delete this clone\n    end\nend\nif <(cloneID) = [Curtain]> then\n    show\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (100)\n    switch costume to (poshack v)\n    set x to ((-480) + (<(index) = [0]> * (960)))\n    repeat until <(timer) > [4]>\n        switch costume to (poshack v)\n        Pos Easing [0] [0] [8]\n        switch costume to (screen v)\n        change [ghost v] effect by (-4)\n    end\n    go to x: (0) y: (0)\n    if <(index) = [0]> then\n        repeat (15)\n            switch costume to (poshack v)\n            change y by (((1) - (y position)) * (-0.2))\n            switch costume to (screen v)\n            change [ghost v] effect by (4)\n        end\n        repeat (30)\n            switch costume to (poshack v)\n            change y by (((1) - (y position)) * (-0.2))\n            switch costume to (screen v)\n        end\n    else\n        repeat (15)\n            switch costume to (poshack v)\n            change y by (((-1) - (y position)) * (-0.2))\n            switch costume to (screen v)\n            change [ghost v] effect by (4)\n        end\n        repeat (30)\n            switch costume to (poshack v)\n            change y by (((-1) - (y position)) * (-0.2))\n            switch costume to (screen v)\n        end\n    end\n    delete this clone\nend\nif < (cloneID) contains [Particles]?> then\n    show\n    switch costume to (particles v)\n    set size to (pick random (60) to (100)) %\n    if <(letter (10) of (cloneID)) = [1]> then\n        set [brightness v] effect to (100)\n    else\n        set [brightness v] effect to (0)\n    end\n    point in direction (pick random (1) to (360))\n    set [var v] to (pick random (15.0) to (25.0))\n    repeat until <<([abs v] of (x position) ) > [120]> or <([abs v] of (y position) ) > [60]>>\n        set [var v] to ((Var) * (0.9))\n        change size by (-1)\n        move (Var) steps\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n        turn right (Var) degrees\n        set [var v] to ((Var) * (0.9))\n        change size by (-3)\n        move (Var) steps\n    end\n    if <(letter (10) of (cloneID)) = [1]> then\n        wait until [6.5]\n        go to x: (0) y: (0)\n        clear graphic effects\n        set [brightness v] effect to (100)\n        set size to (pick random (60) to (100)) %\n        point in direction (pick random (1) to (360))\n        set [var v] to (pick random (0.0) to (-10.0))\n        repeat until <<([abs v] of (x position) ) > [120]> or <([abs v] of (y position) ) > [60]>>\n            change [var v] by (1)\n            change y by (Var)\n            change size by (-1)\n            move ((size) / (10)) steps\n        end\n        repeat (20)\n            change [var v] by (1)\n            change y by (Var)\n            change size by (-3)\n            move ((size) / (10)) steps\n            change [ghost v] effect by (5)\n        end\n    end\n    delete this clone\nend\nif <(cloneID) = [Diamond]> then\n    show\n    switch costume to (diamond v)\n    set size to (0) %\n    repeat (30)\n        set [var v] to ((((200) - (size)) / (8)) + ((Var) * (0.8)))\n        change size by (Var)\n    end\n    repeat (15)\n        switch costume to (sizehack v)\n        change size by (((195) - (size)) * (-0.3))\n        switch costume to (diamond v)\n    end\n    repeat (30)\n        switch costume to (sizehack v)\n        Size Easing [2000] [8]\n        switch costume to (diamond v)\n    end\n    wait until [3.6]\n    delete this clone\nend\nif <(cloneID) = [Logo]> then\n    show\n    set [brightness v] effect to (100)\n    set y to ((-220) + (<(index) = [0]> * (440)))\n    repeat (30)\n        switch costume to (poshack v)\n        Pos Easing [0] [0] [5]\n        switch costume to (join [logo] ((index) + (1)))\n    end\n    wait until [3.6]\n    go to x: ((-280) + (<(index) = [0]> * (560))) y: (0)\n    wait until [5]\n    repeat (30)\n        switch costume to (poshack v)\n        Pos Easing [0] [0] [5]\n        switch costume to (join [logo] ((index) + (1)))\n    end\n    wait ((index) * (0.1)) seconds\n    repeat (10)\n        change [var v] by (2)\n        turn right (Var) degrees\n        Size Easing [150] [8]\n    end\n    set [var v] to [0]\n    repeat (30)\n        set [var v] to ((((90) - (direction)) / (5)) + ((Var) * (0.6)))\n        turn right (Var) degrees\n        Size Easing [150] [8]\n    end\n    wait until [7]\n    repeat (30)\n        change x by ((((-1) + ((index) * (2))) - (x position)) * (-0.3))\n    end\n    delete this clone\nend\nif <(cloneID) = [Logo\(all\)]> then\n    show\n    switch costume to (logo\(all\) v)\n    set size to (0) %\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (80)\n    repeat (30)\n        Size Easing [300] [8]\n    end\n    wait until [3.6]\n    delete this clone\nend\n\ndefine Pos Easing (x) (y) (spd)\nchange x by (((x) - (x position)) / (spd))\nchange y by (((y) - (y position)) / (spd))\n\ndefine Size Easing (size) (spd)\nchange size by (((size) - (size)) / (spd))\n\nwhen I receive [intro start v]\nswitch costume to (sizehack v)\nstart sound [Amadeus - Future World v]\nreset timer\nhide\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nclone [Diamond] [1]\nclone [Bar] [3]\nwait until [1.5]\nclone [Logo\(all\)] [1]\nclone [Particles1] [20]\nclone [Logo] [2]\nwait until [2.5]\nclone [Curtain] [2]\nclone [Letter1] [11]\nclone [Letter2] [11]\nclone [Particles2] [20]\nwait until [3.6]\n\nwhen flag clicked\nbroadcast (Intro start v)\n\nwhen I receive [intro end v]\nbroadcast (オンラインへ v)\n\n@Stage2\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n配置 [2500] [300] [6]\n配置 [3000] [200] [7]\n配置 [3500] [0] [8]\n配置 [4000] [0] [9]\n配置 [4500] [0] [10]\n\ngo to [back v] layer\n\n@Stage3\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n配置 [2500] [300] [6]\n配置 [3000] [200] [7]\n配置 [3500] [0] [8]\n配置 [4000] [0] [9]\n配置 [4500] [0] [10]\n\n@Stage\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\ngo to [front v] layer\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n配置 [2500] [300] [6]\n配置 [3000] [200] [7]\n配置 [3500] [0] [8]\n配置 [4000] [0] [9]\n配置 [4500] [0] [10]\n\n@空の雲\n\nwhen I receive [start v]\nhide\nforever\n    switch costume to (pick random (1) to (3))\n    set [ghost v] effect to (pick random (10) to (30))\n    wait (pick random (2) to (0.7)) seconds\n    create clone of (_myself_ v)\n    go to x: (276) y: (pick random (100) to (150))\nend\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nglide (pick random (3) to (10)) secs to x: (-276) y: (y position)\nhide\ndelete this clone\n\n@Sun\n\nwhen flag clicked\nhide\ngo to [back v] layer\nshow\ngo to x: (229) y: (165)\nset size to (100) %\nreset timer\nforever\n    repeat (50)\n        change size by (((140) - (size)) / (18))\n    end\n    repeat (50)\n        change size by (((size) - (100)) / (-18))\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nclear graphic effects\nhide\nwait (1) seconds\nwait until <(得点) = [2]>\ngo to [front v] layer\nshow\nwait (1) seconds\nrepeat (100)\n    go to [front v] layer\n    change [ghost v] effect by (1)\nend\nhide\n\n