☁︎online platformer test

Instructions: \n　♡☆＝open new skin\n\nHey! It's been a long time!\nThis work was made using an original scrolling program and a cloud system.\nUp to 999 players can play.\nWhy don't you play with your friends?\n\n〈control〉\nArrow keys or tap          Move\nU-key                             Player List Display\n\n#all #game #art

@Stage\n\n@blank\n\n@player\n\nwhen flag clicked\nset [cx v] to [0]\nset [cy v] to [0]\nset [goal? v] to [0]\nset [costume v] to [1]\nreset timer\n初期化\nforever\n    go to [front v] layer\n    if <(_sc?) = [0]> then\n        if <(y position) < [-180]> then\n            初期化\n        end\n        上下\n        左右\n        if <(GOAL?) = [0]> then\n            set [timer v] to ([floor v] of (timer) )\n        end\n        if <[1450] < ((cam y) + (y position))> then\n            if <((cam x) + (x position)) < [480]> then\n                set [goal? v] to [1]\n            end\n        end\n    end\n    if <not <(_sc?) = [0]>> then\n        if <<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> then\n            change [vx v] by (1)\n            point in direction (90)\n        end\n        if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n            change [vx v] by (-1)\n            point in direction (-90)\n        end\n        set [vx v] to ((vx) * (0.9))\n        change x by (vx)\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n            change [vy v] by (1)\n        end\n        if <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < [0]>>> then\n            change [vy v] by (-1)\n        end\n        set [vy v] to ((vy) * (0.9))\n        change y by (vy)\n    end\n    switch costume to (costume)\n    if <<[0] < ((cam x) + (x position))> and <((cam x) + (x position)) < [2880]>> then\n        change [cam x v] by (x position)\n        set x to (0)\n    end\n    if <<[0] < ((cam y) + (y position))> and <((cam y) + (y position)) < [10000]>> then\n        change [cam y v] by (y position)\n        set y to (0)\n    end\nend\n\ndefine 抗力\nrepeat until <not <touching (ground v)?>>\n    change y by ((0) - ((vy) / ([abs v] of (vy) )))\nend\nset [vy v] to [0]\n\ndefine 上下\nif <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n    change y by (-1)\n    if <touching (ground v)?> then\n        set [vy v] to [12]\n    end\n    change y by (1)\nend\nchange [vy v] by (-1)\nchange y by (vy)\nif <touching (ground v)?> then\n    抗力\nend\n\ndefine 初期化\ngo to [front v] layer\ngo to x: (0) y: (0)\nset [vx v] to [0]\nset [vy v] to [0]\nset [cam x v] to (cx)\nset [cam y v] to (cy)\n\ndefine 左右\nif <<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> then\n    change [vx v] by (1)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n    change [vx v] by (-1)\n    point in direction (-90)\nend\nset [vx v] to ((vx) * (0.9))\nchange x by (vx)\nchange y by (3)\nif <touching (ground v)?> then\n    change x by ((0) - (vx))\n    set [vx v] to [0]\nend\nchange y by (-3)\n\nwhen flag clicked\nforever\n    if <key (u v) pressed?> then\n        hide list [user v]\n        wait until <not <key (u v) pressed?>>\n        wait until <key (u v) pressed?>\n        show list [user v]\n        wait until <not <key (u v) pressed?>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        set [costume v] to (pick random (1) to ((2) + ((love&fav) + <(username) = [posuke1202]>)))\n        wait until <not <mouse down?>>\n    end\nend\n\n@ground\n\nwhen flag clicked\nhide\n[0] [0] [1]\n[480] [0] [2]\n[960] [0] [3]\n[1440] [0] [4]\n[1920] [0] [5]\n[2400] [0] [6]\n[2880] [360] [7]\n[2400] [360] [8]\n[1920] [720] [9]\n[1440] [720] [10]\n[960] [720] [11]\n[480] [1080] [12]\n[0] [1080] [13]\n[960] [1440] [14]\n[1440] [1440] [15]\n[200] [1440] [16]\n\nwhen I start as a clone\nshow\nset [gmc v] to (gmc)\nset [gmx v] to (gmx)\nset [gmy v] to (gmy)\nforever\n    go to [front v] layer\n    erase all\n    switch costume to (960×720 v)\n    go to x: (((0) - (cam x)) + (gmx)) y: (((0) - (cam y)) + (gmy))\n    switch costume to ((gmc) + (1))\nend\n\ndefine (x) (y) (c#)\nset [gmc v] to (c#)\nset [gmx v] to (x)\nset [gmy v] to (y)\ncreate clone of (_myself_ v)\n\n@ground2\n\nwhen flag clicked\nhide\n[0] [0] [1]\n[480] [0] [2]\n[960] [0] [3]\n[1440] [0] [4]\n[1920] [0] [5]\n[2400] [0] [6]\n[2880] [360] [7]\n[2400] [360] [8]\n[1920] [720] [9]\n[1440] [720] [10]\n[960] [720] [11]\n[480] [1080] [12]\n[0] [1080] [13]\n[960] [1440] [14]\n[1440] [1440] [15]\n[100] [1440] [16]\n\nwhen I start as a clone\nshow\nset [gmc v] to (gmc)\nset [gmx v] to (gmx)\nset [gmy v] to (gmy)\nforever\n    switch costume to (960×720 v)\n    go to x: (((0) - (cam x)) + (gmx)) y: (((0) - (cam y)) + (gmy))\n    switch costume to ((gmc) + (1))\nend\n\ndefine (x) (y) (c#)\nset [gmc v] to (c#)\nset [gmx v] to (x)\nset [gmy v] to (y)\ncreate clone of (_myself_ v)\n\n@save point\n\nwhen flag clicked\nhide\n[-1] [-135]\n[1920] [565]\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nset [gmx v] to (gmx)\nset [gmy v] to (gmy)\nforever\n    switch costume to (960×720 v)\n    go to x: (((0) - (cam x)) + (gmx)) y: (((0) - (cam y)) + (gmy))\n    switch costume to (flag v)\n    if <touching (player v)?> then\n        set [cx v] to (cam x)\n        set [cy v] to (cam y)\n    end\nend\n\ndefine (x) (y)\nset [gmx v] to (x)\nset [gmy v] to (y)\ncreate clone of (_myself_ v)\n\n@cloud\n\nwhen flag clicked\nset [☁ 1 v] to [0]\nset [☁ 2 v] to [0]\nset [☁ 3 v] to [0]\nset [☁ 4 v] to [0]\nset [☁ 5 v] to [0]\nset [☁ 6 v] to [0]\nset [☁ 7 v] to [0]\nset [☁ 8 v] to [0]\nset [☁ 9 v] to [0]\n999\nset [_t v] to [0]\nset [_id v] to (pick random (1) to (999))\nforever\n    make data\n    change [_t v] by (1)\n    if <((_t) mod (3)) = [0]> then\n        in\n    end\n    put mine (☁ 1)\n    put mine (☁ 2)\n    put mine (☁ 3)\n    put mine (☁ 4)\n    put mine (☁ 5)\n    put mine (☁ 6)\n    put mine (☁ 7)\n    put mine (☁ 8)\n    put mine (☁ 9)\n    output\nend\n\ndefine make data\nset [_md v] to (join ((_ID) + (1000)) ((length of (username)) + (10)))\nset [_i v] to [1]\nrepeat (length of (username))\n    set [_md v] to (join (_md) ((item # of (letter (_i) of (username)) in [text data v]) + (10)))\n    change [_i v] by (1)\nend\nset [_md v] to (join (_md) (round (((cam x) + ([x position v] of [player v])) + (1240))))\nset [_md v] to (join (_md) (round (((cam y) + ([y position v] of [player v])) + (1180))))\nset [_md v] to (join (_md) (round (([direction v] of [player v]) + (360))))\nset [_md v] to (join (_md) ([costume # v] of [player v]))\n\ndefine in\nif <(pick random (0) to (1)) = [0]> then\n    if <(pick random (0) to (1)) = [0]> then\n        if <(pick random (0) to (1)) = [0]> then\n            set [☁ 1 v] to (_md)\n        else\n            set [☁ 2 v] to (_md)\n        end\n    else\n        if <(pick random (0) to (1)) = [0]> then\n            set [☁ 3 v] to (_md)\n        else\n            set [☁ 4 v] to (_md)\n        end\n    end\nelse\n    if <(pick random (0) to (1)) = [0]> then\n        if <(pick random (0) to (1)) = [0]> then\n            set [☁ 5 v] to (_md)\n        else\n            set [☁ 6 v] to (_md)\n        end\n    else\n        if <(pick random (0) to (1)) = [0]> then\n            set [☁ 7 v] to (_md)\n        else\n            if <(pick random (0) to (1)) = [0]> then\n                set [☁ 8 v] to (_md)\n            else\n                set [☁ 9 v] to (_md)\n            end\n        end\n    end\nend\n\ndefine put mine (☁︎)\nif <not <(_ID) = ((join (letter (1) of (☁︎)) (join (letter (2) of (☁︎)) (join (letter (3) of (☁︎)) (letter (4) of (☁︎))))) - (1000))>> then\n    replace item ((join (letter (1) of (☁︎)) (join (letter (2) of (☁︎)) (join (letter (3) of (☁︎)) (letter (4) of (☁︎))))) - (1000)) of [cloud all v] with (☁︎)\n    replace item ((join (letter (1) of (☁︎)) (join (letter (2) of (☁︎)) (join (letter (3) of (☁︎)) (letter (4) of (☁︎))))) - (1000)) of [cloud late v] with [0]\nend\n\ndefine 999\ndelete all of [cloud all v]\ndelete all of [cloud late v]\nrepeat (999)\n    add [] to [cloud all v]\n    add [49] to [cloud late v]\nend\n\ndefine output\nbroadcast (decl v)\nerase all\nset [_i v] to [1]\nset [players v] to [1]\ndelete all of [user v]\nrepeat (999)\n    if <<(item (_i) of [cloud all v]) = []> or <(_i) = (_ID)>> then\n    replace item (_i) of [cloud late v] with ((item (_i) of [cloud late v]) + (1))\n    if <[50] < (item (_i) of [cloud late v])> then\n        replace item (_i) of [cloud all v] with []\n    end\n    change [_i v] by (1)\nend\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nif <touching (mouse-pointer v)?> then\n    say (_cloudname)\nend\n\nwhen I receive [decl v]\ndelete this clone\n\n@love&fav\n\nwhen flag clicked\nset [love&fav v] to [0]\nforever\n    if <touching (mouse-pointer v)?> then\n        set [costume v] to [3]\n        set [love&fav v] to [1]\n    end\nend\n\n@thumbnail\n\nwhen flag clicked\nshow variable [timer v]\nshow variable [players v]\ngo to [front v] layer\nset size to (40) %\nhide\nset [_sc? v] to [0]\nhide variable [_sc? v]\nforever\n    play sound [utsukushiigogo v] until done\nend\n\nwhen flag clicked\nforever\n    if <(username) = [posuke1202]> then\n        show variable [_sc? v]\n    end\nend\n\n