Basic online platformer / オンラインアクションの基本

Instructions: ★Double click on the flag!!\n★旗は二回押してください!!\n★挙動がおかしい場合は停止して\n　旗を押してください。\nオンラインでアクションが楽しめるゲームの、\n基本プログラムです。\nやじるしキーで移動\n0~9で固定文チャットできます。\n\n★と♥お願いします！\n参考になれば幸いです！

@Stage\n\n@Online\n\nwhen flag clicked\ngo to x: (0) y: (0)\nclear graphic effects\nshow\nif <(username) = []> then\n    stop [all v]\nend\nset [my number v] to [0]\nif <(☁ Online_1P) = [0]> then\n    set [my number v] to [1]\n    broadcast (Game Start v)\nelse\n    if <(☁ Online_2P) = [0]> then\n        set [my number v] to [2]\n        broadcast (Game Start v)\n    else\n        if <(☁ Online_3P) = [0]> then\n            set [my number v] to [3]\n            broadcast (Game Start v)\n        else\n            if <(☁ Online_4P) = [0]> then\n                set [my number v] to [4]\n                broadcast (Game Start v)\n            else\n                if <(☁ Online_5P) = [0]> then\n                    set [my number v] to [5]\n                    broadcast (Game Start v)\n                else\n                    if <(☁ Online_6P) = [0]> then\n                        set [my number v] to [6]\n                        broadcast (Game Start v)\n                    else\n                        if <(☁ Online_7P) = [0]> then\n                            set [my number v] to [7]\n                            broadcast (Game Start v)\n                        else\n                            if <(☁ Online_8P) = [0]> then\n                                set [my number v] to [8]\n                                broadcast (Game Start v)\n                            else\n                                if <(☁ Online_9P) = [0]> then\n                                    set [my number v] to [9]\n                                    broadcast (Game Start v)\n                                else\n                                    if <(☁ Online_10P) = [0]> then\n                                        set [my number v] to [10]\n                                        broadcast (Game Start v)\n                                    else\n                                        say [人数がいっぱいです！] for (4) seconds\n                                        stop [all v]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nhide\nforever\n    set [☁ online_1p v] to [0]\n    set [☁ online_2p v] to [0]\n    set [☁ online_3p v] to [0]\n    set [☁ online_4p v] to [0]\n    set [☁ online_5p v] to [0]\n    set [☁ online_6p v] to [0]\n    set [☁ online_7p v] to [0]\n    set [☁ online_8p v] to [0]\n    set [☁ online_9p v] to [0]\n    set [☁ online_10p v] to [0]\n    wait (12) seconds\nend\n\n@Chat\n\nwhen flag clicked\ndelete all of [chat v]\nadd [こんにちは！] to [chat v]\nadd [さようなら！] to [chat v]\nadd [よろしくね！] to [chat v]\nadd [ナイス！] to [chat v]\nadd [すごい！] to [chat v]\nadd [たまげた！] to [chat v]\nadd [やったー！] to [chat v]\nadd [エーッ！] to [chat v]\nadd [わかった！] to [chat v]\nset [chat v] to [0]\nforever\n    if <key (0 v) pressed?> then\n        set [chat v] to [0]\n    end\n    if <key (1 v) pressed?> then\n        set [chat v] to [1]\n    end\n    if <key (2 v) pressed?> then\n        set [chat v] to [2]\n    end\n    if <key (3 v) pressed?> then\n        set [chat v] to [3]\n    end\n    if <key (4 v) pressed?> then\n        set [chat v] to [4]\n    end\n    if <key (5 v) pressed?> then\n        set [chat v] to [5]\n    end\n    if <key (6 v) pressed?> then\n        set [chat v] to [6]\n    end\n    if <key (7 v) pressed?> then\n        set [chat v] to [7]\n    end\n    if <key (8 v) pressed?> then\n        set [chat v] to [8]\n    end\n    if <key (9 v) pressed?> then\n        set [chat v] to [9]\n    end\nend\n\n@Char_user_name\n\nwhen flag clicked\ndelete all of [char v]\nset [char v] to [abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-_]\nset [j v] to [0]\nrepeat (length of (Char))\n    change [j v] by (1)\n    add (letter (j) of (Char)) to [char v]\nend\nset [user_name v] to []\nset [i v] to [1]\nrepeat (length of (username))\n    set [user_name v] to (join (User_name) ((item # of (letter (i) of (username)) in [char v]) + (10)))\n    change [i v] by (1)\nend\nforever\n    broadcast (1Name v) and wait\n    broadcast (2Name v) and wait\n    broadcast (3Name v) and wait\n    broadcast (4Name v) and wait\n    broadcast (5Name v) and wait\n    broadcast (6Name v) and wait\n    broadcast (7Name v) and wait\n    broadcast (8Name v) and wait\n    broadcast (9Name v) and wait\n    broadcast (10Name v) and wait\n    wait (4) seconds\nend\n\nwhen I receive [2name v]\nset [k v] to [17]\nset [get_user2_name v] to []\nrepeat (30)\n    set [get_user2_name v] to (join (Get_User2_Name) (item ((join (letter ((k) - (1)) of (☁ Online_2P)) (letter (k) of (☁ Online_2P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [1name v]\nset [k v] to [17]\nset [get_user1_name v] to []\nrepeat (30)\n    set [get_user1_name v] to (join (Get_User1_Name) (item ((join (letter ((k) - (1)) of (☁ Online_1P)) (letter (k) of (☁ Online_1P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [3name v]\nset [k v] to [17]\nset [get_user3_name v] to []\nrepeat (30)\n    set [get_user3_name v] to (join (Get_User3_Name) (item ((join (letter ((k) - (1)) of (☁ Online_3P)) (letter (k) of (☁ Online_3P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [4name v]\nset [k v] to [17]\nset [get_user4_name v] to []\nrepeat (30)\n    set [get_user4_name v] to (join (Get_User4_Name) (item ((join (letter ((k) - (1)) of (☁ Online_4P)) (letter (k) of (☁ Online_4P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [5name v]\nset [k v] to [17]\nset [get_user5_name v] to []\nrepeat (30)\n    set [get_user5_name v] to (join (Get_User5_Name) (item ((join (letter ((k) - (1)) of (☁ Online_5P)) (letter (k) of (☁ Online_5P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [6name v]\nset [k v] to [17]\nset [get_user6_name v] to []\nrepeat (30)\n    set [get_user6_name v] to (join (Get_User6_Name) (item ((join (letter ((k) - (1)) of (☁ Online_6P)) (letter (k) of (☁ Online_6P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [7name v]\nset [k v] to [17]\nset [get_user7_name v] to []\nrepeat (30)\n    set [get_user7_name v] to (join (Get_User7_Name) (item ((join (letter ((k) - (1)) of (☁ Online_7P)) (letter (k) of (☁ Online_7P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [8name v]\nset [k v] to [17]\nset [get_user8_name v] to []\nrepeat (30)\n    set [get_user8_name v] to (join (Get_User8_Name) (item ((join (letter ((k) - (1)) of (☁ Online_8P)) (letter (k) of (☁ Online_8P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [9name v]\nset [k v] to [17]\nset [get_user9_name v] to []\nrepeat (30)\n    set [get_user9_name v] to (join (Get_User9_Name) (item ((join (letter ((k) - (1)) of (☁ Online_9P)) (letter (k) of (☁ Online_9P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\nwhen I receive [10name v]\nset [k v] to [17]\nset [get_user10_name v] to []\nrepeat (30)\n    set [get_user10_name v] to (join (Get_User10_Name) (item ((join (letter ((k) - (1)) of (☁ Online_10P)) (letter (k) of (☁ Online_10P))) - (10)) of [char v]))\n    change [k v] by (2)\nend\n\n@マップ\n\nwhen I receive [game start v]\nswitch costume to (dot v)\nset size to (150) %\nswitch costume to (map v)\ngo to x: (0) y: (0)\nset [gravity v] to [0]\nset [xspeed v] to [0]\nforever\n    change [gravity v] by (-1)\n    change y by ((0) - (Gravity))\n    if <touching ((join (My number) [P]) v)?> then\n        change y by (Gravity)\n        set [gravity v] to [0]\n        if <touching ((join (My number) [P]) v)?> then\n            change y by (-1)\n            if <touching ((join (My number) [P]) v)?> then\n                change y by (-1)\n                if <touching ((join (My number) [P]) v)?> then\n                    change y by (-1)\n                    if <touching ((join (My number) [P]) v)?> then\n                        change y by (-1)\n                        if <touching ((join (My number) [P]) v)?> then\n                            if <([abs v] of (Xspeed) ) = (Xspeed)> then\n                                set [xspeed v] to [-10]\n                            else\n                                set [xspeed v] to [10]\n                            end\n                        end\n                        if <touching ((join (My number) [P]) v)?> then\n                            change y by (4)\n                        end\n                    end\n                end\n            end\n        end\n        change y by (1)\n        if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> and <touching ((join (My number) [P]) v)?>> then\n            set [gravity v] to [14]\n        end\n        change y by (-1)\n    end\n    change x by (Xspeed)\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        change [xspeed v] by (1)\n    end\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        change [xspeed v] by (-1)\n    end\n    set [xspeed v] to ((Xspeed) * (0.89))\n    set [map_x v] to (round ((x position) * (-1)))\n    set [map_y v] to (round ((y position) * (-1)))\nend\n\n@1P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [1]> then\n        set [☁ online_1p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_1P)) (join (letter (2) of (☁ Online_1P)) (join (letter (3) of (☁ Online_1P)) (letter (4) of (☁ Online_1P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_1P)) (join (letter (6) of (☁ Online_1P)) (join (letter (7) of (☁ Online_1P)) (letter (8) of (☁ Online_1P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_1P)) (letter (10) of (☁ Online_1P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_1P)) (join (letter (12) of (☁ Online_1P)) (letter (13) of (☁ Online_1P)))) - (360))\n    say (join (Get_User1_Name) (join [] (item ((join (letter (14) of (☁ Online_1P)) (letter (15) of (☁ Online_1P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_1P)> then\n        show\n    else\n        hide\n    end\nend\n\n@2P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [2]> then\n        set [☁ online_2p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_2P)) (join (letter (2) of (☁ Online_2P)) (join (letter (3) of (☁ Online_2P)) (letter (4) of (☁ Online_2P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_2P)) (join (letter (6) of (☁ Online_2P)) (join (letter (7) of (☁ Online_2P)) (letter (8) of (☁ Online_2P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_2P)) (letter (10) of (☁ Online_2P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_2P)) (join (letter (12) of (☁ Online_2P)) (letter (13) of (☁ Online_2P)))) - (360))\n    say (join (Get_User2_Name) (join [] (item ((join (letter (14) of (☁ Online_2P)) (letter (15) of (☁ Online_2P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_2P)> then\n        show\n    else\n        hide\n    end\nend\n\n@3P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [3]> then\n        set [☁ online_3p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_3P)) (join (letter (2) of (☁ Online_3P)) (join (letter (3) of (☁ Online_3P)) (letter (4) of (☁ Online_3P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_3P)) (join (letter (6) of (☁ Online_3P)) (join (letter (7) of (☁ Online_3P)) (letter (8) of (☁ Online_3P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_3P)) (letter (10) of (☁ Online_3P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_3P)) (join (letter (12) of (☁ Online_3P)) (letter (13) of (☁ Online_3P)))) - (360))\n    say (join (Get_User3_Name) (join [] (item ((join (letter (14) of (☁ Online_3P)) (letter (15) of (☁ Online_3P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_3P)> then\n        show\n    else\n        hide\n    end\nend\n\n@4P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [4]> then\n        set [☁ online_4p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_4P)) (join (letter (2) of (☁ Online_4P)) (join (letter (3) of (☁ Online_4P)) (letter (4) of (☁ Online_4P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_4P)) (join (letter (6) of (☁ Online_4P)) (join (letter (7) of (☁ Online_4P)) (letter (8) of (☁ Online_4P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_4P)) (letter (10) of (☁ Online_4P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_4P)) (join (letter (12) of (☁ Online_4P)) (letter (13) of (☁ Online_4P)))) - (360))\n    say (join (Get_User4_Name) (join [] (item ((join (letter (14) of (☁ Online_4P)) (letter (15) of (☁ Online_4P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_4P)> then\n        show\n    else\n        hide\n    end\nend\n\n@5P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n    end\n    if <(My number) = [5]> then\n        set [☁ online_5p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_5P)) (join (letter (2) of (☁ Online_5P)) (join (letter (3) of (☁ Online_5P)) (letter (4) of (☁ Online_5P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_5P)) (join (letter (6) of (☁ Online_5P)) (join (letter (7) of (☁ Online_5P)) (letter (8) of (☁ Online_5P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_5P)) (letter (10) of (☁ Online_5P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_5P)) (join (letter (12) of (☁ Online_5P)) (letter (13) of (☁ Online_5P)))) - (360))\n    say (join (Get_User5_Name) (join [] (item ((join (letter (14) of (☁ Online_5P)) (letter (15) of (☁ Online_5P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_5P)> then\n        show\n    else\n        hide\n    end\nend\n\n@6P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [6]> then\n        set [☁ online_6p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_6P)) (join (letter (2) of (☁ Online_6P)) (join (letter (3) of (☁ Online_6P)) (letter (4) of (☁ Online_6P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_6P)) (join (letter (6) of (☁ Online_6P)) (join (letter (7) of (☁ Online_6P)) (letter (8) of (☁ Online_6P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_6P)) (letter (10) of (☁ Online_6P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_6P)) (join (letter (12) of (☁ Online_6P)) (letter (13) of (☁ Online_6P)))) - (360))\n    say (join (Get_User6_Name) (join [] (item ((join (letter (14) of (☁ Online_6P)) (letter (15) of (☁ Online_6P))) - (10)) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_6P)> then\n        show\n    else\n        hide\n    end\nend\n\n@7P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [7]> then\n        set [☁ online_7p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_7P)) (join (letter (2) of (☁ Online_7P)) (join (letter (3) of (☁ Online_7P)) (letter (4) of (☁ Online_7P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_7P)) (join (letter (6) of (☁ Online_7P)) (join (letter (7) of (☁ Online_7P)) (letter (8) of (☁ Online_7P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_7P)) (letter (10) of (☁ Online_7P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_7P)) (join (letter (12) of (☁ Online_7P)) (letter (13) of (☁ Online_7P)))) - (360))\n    say (join (Get_User7_Name) (join (join (letter (14) of (☁ Online_7P)) (letter (15) of (☁ Online_7P))) (item (1) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_7P)> then\n        show\n    else\n        hide\n    end\nend\n\n@8P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [8]> then\n        set [☁ online_8p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_8P)) (join (letter (2) of (☁ Online_8P)) (join (letter (3) of (☁ Online_8P)) (letter (4) of (☁ Online_8P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_8P)) (join (letter (6) of (☁ Online_8P)) (join (letter (7) of (☁ Online_8P)) (letter (8) of (☁ Online_8P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_8P)) (letter (10) of (☁ Online_8P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_8P)) (join (letter (12) of (☁ Online_8P)) (letter (13) of (☁ Online_8P)))) - (360))\n    say (join (Get_User8_Name) (join [] (item (join (letter (14) of (☁ Online_8P)) (letter (15) of (☁ Online_8P))) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_8P)> then\n        show\n    else\n        hide\n    end\nend\n\n@9P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [9]> then\n        set [☁ online_9p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_9P)) (join (letter (2) of (☁ Online_9P)) (join (letter (3) of (☁ Online_9P)) (letter (4) of (☁ Online_9P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_9P)) (join (letter (6) of (☁ Online_9P)) (join (letter (7) of (☁ Online_9P)) (letter (8) of (☁ Online_9P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_9P)) (letter (10) of (☁ Online_9P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_9P)) (join (letter (12) of (☁ Online_9P)) (letter (13) of (☁ Online_9P)))) - (360))\n    say (join (Get_User9_Name) (join [] (item (join (letter (14) of (☁ Online_9P)) (letter (15) of (☁ Online_9P))) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_9P)> then\n        show\n    else\n        hide\n    end\nend\n\n@10P\n\nwhen I receive [game start v]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nset size to (50) %\nforever\n    switch costume to (正面 v)\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-60]>>>> then\n        point in direction (90)\n    end\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[60] < (mouse x)>>>> then\n        point in direction (-90)\n    end\n    if <(My number) = [10]> then\n        set [☁ online_10p v] to (join ((Map_x) + (5000)) (join ((Map_y) + (5000)) (join ((costume [number v]) + (10)) (join ((round (direction)) + (360)) (join ((Chat) + (10)) (User_name))))))\n    end\n    go to x: (((join (letter (1) of (☁ Online_10P)) (join (letter (2) of (☁ Online_10P)) (join (letter (3) of (☁ Online_10P)) (letter (4) of (☁ Online_10P))))) - (5000)) - (Map_x)) y: (((join (letter (5) of (☁ Online_10P)) (join (letter (6) of (☁ Online_10P)) (join (letter (7) of (☁ Online_10P)) (letter (8) of (☁ Online_10P))))) - (5000)) - (Map_y))\n    switch costume to ((join (letter (9) of (☁ Online_10P)) (letter (10) of (☁ Online_10P))) - (10))\n    point in direction ((join (letter (11) of (☁ Online_10P)) (join (letter (12) of (☁ Online_10P)) (letter (13) of (☁ Online_10P)))) - (360))\n    say (join (Get_User10_Name) (join [] (item (join (letter (14) of (☁ Online_10P)) (letter (15) of (☁ Online_10P))) of [chat v])))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (☁ Online_10P)> then\n        show\n    else\n        hide\n    end\nend\n\n