PLATFORMER 1.5k followers! CLOUD CELEBRATION  #games

Instructions: I finally acually hit 1.5k on march 4th, YAY!\nYour invited! Join all my most iconic characters from my games for a party like no other! \nT to chat!\nDown arrow to crouch \nSpace for parachute! 

@Stage\n\nwhen flag clicked\n\nif <not <<(username) = [skidsteerloader]> or <(username) = [-FriendlyFox-]>>> then\n    stop [all v]\nend\n\n@Blank\n\nwhen flag clicked\nforever\n    play sound [Dance v] until done\nend\n\n@Player\n\nwhen flag clicked\nset [max players v] to [8]\nset [my player # v] to [0]\nset [chatopen? v] to [0]\nshow list [safe_chat v]\nGame is on!\nbroadcast (setup - opponents v) and wait\nbroadcast (join game v) and wait\nbroadcast (Answer v) and wait\nbroadcast (begin v)\n\nbroadcast (Loading v)\n\ndefine write (val) to encoded\nset [letter # v] to [1]\nrepeat (length of (val))\n    set [encoded v] to (join (encoded) (item # of (letter (letter #) of (val)) in [code v]))\n    change [letter # v] by (1)\nend\nset [encoded v] to (join (encoded) [00])\n\nwhen I receive [begin v]\nforever\n    Tick\nend\n\ndefine set cloud # (player) to (value)\nif <(player) = [1]> then\n    set [☁ p1 v] to (value)\nelse\n    if <(player) = [2]> then\n        set [☁ p2 v] to (value)\n    else\n        if <(player) = [3]> then\n            set [☁ p3 v] to (value)\n        else\n            if <(player) = [4]> then\n                set [☁ p4 v] to (value)\n            else\n                if <(player) = [5]> then\n                    set [☁ p5 v] to (value)\n                else\n                    if <(player) = [6]> then\n                        set [☁ p6 v] to (value)\n                    else\n                        if <(player) = [7]> then\n                            set [☁ p7 v] to (value)\n                        else\n                            set [☁ p8 v] to (value)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine send cloud data\nset [encoded v] to []\nwrite (SafeChatting) to encoded\nwrite (username) to encoded\nwrite (round ((timer) * (10))) to encoded\nwrite (x) to encoded\nwrite (y) to encoded\nwrite (costume [number v]) to encoded\nwrite (direction) to encoded\nwrite (size) to encoded\nwrite ((size) - (25)) to encoded\nset cloud # (MY PLAYER #) to (encoded)\n\ndefine Movement\nif <(Wall Jump) > [0]> then\n    change [wall jump v] by (-1)\nelse\n    if <<key (down arrow v) pressed?> or <key (s v) pressed?>> then\n        set [sx v] to ((sx) * (0.9))\n        set [crouching v] to [1]\n    else\n        if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n            change [sx v] by (-2)\n            set [direction v] to [-90]\n        end\n        if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n            change [sx v] by (2)\n            set [direction v] to [90]\n        end\n        set [sx v] to ((sx) * (0.8))\n        set [crouching v] to [0]\n    end\nend\nif <([abs v] of (sx) ) > [0.9]> then\n    Collision get out platform x,y: (round (sx)) [1] [12]\nend\nif <(sy) > [-20]> then\n    change [sy v] by (-1)\nend\nchange [y v] by (sy)\nchange [falling v] by (1)\nif <not <(Wall Jump) > [0]>> then\n    if <<key (space v) pressed?> and <<(sy) < [0]> and <(falling) > [6]>>> then\n        set [parachute v] to [1]\n        set [sy v] to ((sy) * (0.6))\n    else\n        set [parachute v] to [0]\n    end\nend\nCheck Collision\nif <(Touching) > [100]> then\n    if <(sy) > [0]> then\n        Collision get out platform x,y: [0] [-1] [999]\n    else\n        Collision get out platform x,y: [0] [1] [999]\n        set [falling v] to [0]\n    end\n    set [sy v] to [0]\nend\nif <(Crouching) = [0]> then\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <(falling) < [3]>> then\n        set [sy v] to [15]\n        set [falling v] to [3]\n    end\nend\nif <(y) < [-180]> then\n    repeat (20)\n        switch costume to (walk c1 v)\n        change size by (10)\n        change [ghost v] effect by (10)\n        if <(MY PLAYER #) > [0]> then\n            send cloud data\n        end\n        think (SafeChatting)\n        broadcast (Tick v) and wait\n    end\n    Game is on!\nend\n\ndefine Check Collision\ngo to x: (round ((x) - (SCROLL X))) y: (round ((y) - (SCROLL Y)))\nif <touching (level v)?> then\n    set [touching v] to [101]\nelse\n    set [touching v] to [0]\nend\n\ndefine Get Costume\npoint in direction (direction)\nif <(Parachute) = [1]> then\n    switch costume to (parachute v)\nelse\n    if <(falling) < [6]> then\n        if <(Crouching) = [1]> then\n            switch costume to (crouch v)\n        else\n            if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n                change [frame v] by (.5)\n                switch costume to ([floor v] of ((2) + (((frame) + (1)) mod (10))) )\n            else\n                switch costume to (stand v)\n            end\n        end\n    else\n        if <(sy) < [0]> then\n            switch costume to (fall v)\n        else\n            switch costume to (jump v)\n        end\n    end\nend\n\ndefine Set Scroll\nset [scroll x v] to (round ((x) + (SCROLL_ADD)))\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nchange [scroll y v] by (round (((y) - (SCROLL Y)) * (0.1)))\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\n\ndefine Collision get out platform x,y: (ox) (oy) (limit)\nchange [x v] by (ox)\nCheck Collision\nset [lim v] to [0]\nset [slope size v] to [0]\nrepeat until <<(Lim) > (limit)> or <(Touching) < [101]>>\n    change [y v] by (oy)\n    change [lim v] by (1)\n    change [slope size v] by (1)\n    Check Collision\nend\nif <(Lim) > (limit)> then\n    change [x v] by ((0) - (ox))\n    change [y v] by ((0) - (Lim))\n    if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> and <([abs v] of (ox) ) > [3]>> and <(Parachute) = [0]>> then\n        set [sx v] to ((-1.2) * (ox))\n        set [sy v] to [11]\n        set [falling v] to [6]\n        set [wall jump v] to [15]\n        set [direction v] to ((direction) * (-1))\n    else\n        set [sx v] to [0]\n    end\n    Check Collision\nend\n\ndefine Game is on!\nset rotation style [left-right v]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [sy v] to [0]\nset [sx v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [wall jump v] to [0]\nset size to (25) %\ngo to [front v] layer\nclear graphic effects\nCheck Collision\nbroadcast (Tick v) and wait\n\nadd (x) to [recording v]\nadd (y) to [recording v]\nadd (costume [number v]) to [recording v]\nadd (direction) to [recording v]\n\ndelete all of [recording v]\n\ndefine Check Chat\nif <<(ChatOpen?) = [1]> and <<key (t v) pressed?> and <(KeyPress) = [0]>>> then\n    set [chatopen? v] to [0]\n    set [keypress v] to [1]\n    show list [safe_chat v]\nelse\n    if <not <key (t v) pressed?>> then\n        set [keypress v] to [0]\n    end\nend\nif <<(ChatOpen?) = [0]> and <<key (t v) pressed?> and <(KeyPress) = [0]>>> then\n    set [chatopen? v] to [1]\n    set [keypress v] to [1]\n    hide list [safe_chat v]\nelse\n    if <not <key (t v) pressed?>> then\n        set [keypress v] to [0]\n    end\nend\nif <(ChatTime) > [0]> then\n    change [chattime v] by (-1)\n    set [chatopen? v] to [0]\n    show list [safe_chat v]\nelse\n    set [safechatting v] to []\nend\nif <(ChatOpen?) = [1]> then\n    if <key (1 v) pressed?> then\n        set [safechatting v] to [Hi!!!!]\n        set [chattime v] to [60]\n    end\n    if <key (2 v) pressed?> then\n        set [safechatting v] to [This is cool!]\n        set [chattime v] to [60]\n    end\n    if <key (3 v) pressed?> then\n        set [safechatting v] to [Lots of people here!]\n        set [chattime v] to [60]\n    end\n    if <key (4 v) pressed?> then\n        set [safechatting v] to [everyone should love and fav XD]\n        set [chattime v] to [60]\n    end\n    if <key (5 v) pressed?> then\n        set [safechatting v] to [1.5k!! Yay!!!]\n        set [chattime v] to [60]\n    end\n    if <key (6 v) pressed?> then\n        set [safechatting v] to [Gtg!!!]\n        set [chattime v] to [60]\n    end\n    if <key (7 v) pressed?> then\n        set [safechatting v] to [Look! Its that wizard guy!!!:0]\n        set [chattime v] to [60]\n    end\n    if <key (8 v) pressed?> then\n        set [safechatting v] to [Is that you Bill-0?!]\n        set [chattime v] to [60]\n    end\n    if <key (9 v) pressed?> then\n        set [safechatting v] to [Come with me]\n        set [chattime v] to [60]\n    end\n    if <key (0 v) pressed?> then\n        set [safechatting v] to [:0]\n        set [chattime v] to [60]\n    end\n    if <key (q v) pressed?> then\n        set [safechatting v] to [Yes! It is me bill-0! ]\n        set [chattime v] to [60]\n    end\n    set [scroll_add v] to [0]\nelse\n    set [scroll_add v] to [0]\nend\n\nset [safechatting v] to [Yea it  is me! Bill-0! ]\nset [chattime v] to [60]\n\ndelete all of [safe_chat v]\nadd [1 Hi!!!!] to [safe_chat v]\nadd [2 This is cool!] to [safe_chat v]\nadd [3 Lots of people here! :0] to [safe_chat v]\nadd [4 everyone should love and fav! XD] to [safe_chat v]\nadd [5 1.5k!!!! YAYYY!!!!!] to [safe_chat v]\nadd [6 Gtg!] to [safe_chat v]\nadd [7 Look! Its that wizard guy!] to [safe_chat v]\nadd [ 8 Is that you Bill-0?!] to [safe_chat v]\nadd [9 Come with me!] to [safe_chat v]\nadd [0 :0] to [safe_chat v]\n\n\n\nset [keypress v] to [0]\n\ndefine Tick\nCheck Collision\npoint in direction (90)\nswitch costume to (hitbox v)\nMovement\nSet Scroll\nCheck Collision\nGet Costume\nCheck Collision\nCheck Chat\nif <(MY PLAYER #) > [0]> then\n    send cloud data\nend\nthink (SafeChatting)\nbroadcast (Tick v) and wait\n\nif <(Slope size) > [0]> then\n    switch costume to (slope v)\nend\n\nwhen flag clicked\nshow\n\ndelete all of [safe_chat v]\nadd [1 Hi!!!!] to [safe_chat v]\nadd [2 This is cool!] to [safe_chat v]\nadd [3 Lots of people here! :0] to [safe_chat v]\nadd [4 everyone should love and fav! XD] to [safe_chat v]\nadd [5 1.5k!!!! YAYYY!!!!!] to [safe_chat v]\nadd [6 Gtg!] to [safe_chat v]\nadd [7 Look! Its that wizard guy!] to [safe_chat v]\nadd [ 8 Is that you Bill-0?!] to [safe_chat v]\nadd [9 Come with me!] to [safe_chat v]\nadd [0 :0] to [safe_chat v]\n\nif <(username) = [Bill-0]> then\n    delete all of [safe_chat v]\n    add [1 Yea! Its me! ] to [safe_chat v]\n    add [2 this is super fun!] to [safe_chat v]\n    add [3 Lots of people here! :0] to [safe_chat v]\n    add [4 everyone should love and fav! XD] to [safe_chat v]\n    add [5 1.5k!!!! YAYYY!!!!!] to [safe_chat v]\n    add [6 Gtg!] to [safe_chat v]\n    add [7 Look! Its that wizard guy!] to [safe_chat v]\n    add [ 8 Is that you Bill-0?!] to [safe_chat v]\n    add [9 Come with me!] to [safe_chat v]\n    add [0 :0] to [safe_chat v]\nend\n\nwhen flag clicked\nforever\n    if <<key (f v) pressed?> and <(username) = [Bill-0]>> then\n        ask [say stuff \(answer\)] and wait\n        if <(answer) = [ 1]> then\n            set [safechatting v] to [Yep! Its Bill-0!]\n            set [chattime v] to [60]\n        end\n        if <(answer) = [ 2 ]> then\n            set [safechatting v] to [I have special chatting options! So you know its me! ]\n            set [chattime v] to [60]\n        end\n        if <(answer) = [3]> then\n            set [safechatting v] to [That's my OC! ]\n            set [chattime v] to [60]\n        end\n        if <(answer) = [4 ]> then\n            set [safechatting v] to [THANK YOU SO MUCH FOR ALL THE SUPPORT]\n            set [chattime v] to [60]\n        end\n        if <(answer) = [5]> then\n            set [safechatting v] to [Make sure to love, fave and follow for more epic content ]\n            set [chattime v] to [60]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<key (f v) pressed?> and <(username) = [iloveplanes380]>> then\n        ask [say stuff \(answer\)] and wait\n        if <(answer) = [ 1]> then\n            set [safechatting v] to [I LOVE PLANES!!!!]\n            set [chattime v] to [60]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<key (f v) pressed?> and <(username) = [ __-ANIMATOR-__]>> then\n        ask [Press 1 to say obey bill-0] and wait\n        if <(answer) = [ 1]> then\n            set [safechatting v] to [OBEY BILL-0]\n            set [chattime v] to [60]\n        end\n    end\nend\n\n@Opponents\n\ndefine begin decode of (encoded)\nset [encoded v] to (encoded)\nset [letter # v] to [1]\n\ndefine value = read from encoded\nset [value v] to []\nforever\n    set [idx v] to (join (letter (letter #) of (encoded)) (letter ((letter #) + (1)) of (encoded)))\n    change [letter # v] by (2)\n    if <(idx) < [1]> then\n        stop [this script v]\n    end\n    set [value v] to (join (value) (item (idx) of [code v]))\nend\n\ndefine setup players\nset [color v] effect to (90)\nset [offline v] to [100]\nhide\nset [player # v] to [1]\nrepeat ((MAX PLAYERS) - (1))\n    create clone of (_myself_ v)\n    change [player # v] by (1)\nend\n\nwhen I receive [setup - opponents v]\nsetup players\n\ndefine tick\nvalue = cloud # (player #)\nif <(join [A] (value)) = (last value)> then\n    change [offline v] by (1)\n    if <(offline) = [100]> then\n        hide\n    end\nelse\n    set [last value v] to (join [A] (value))\n    if <(offline) > [99]> then\n        show\n    end\n    set [offline v] to [0]\nend\nset rotation style [left-right v]\nbegin decode of (value)\nvalue = read from encoded\nset [chating v] to (value)\nvalue = read from encoded\nsay (join (player #) (join [: ] (join (value) (join [ ] (Chating)))))\nif <(value) = [skidsteerloader]> then\n    set [color v] effect to (-10)\nelse\n    set [color v] effect to (90)\nend\nvalue = read from encoded\nvalue = read from encoded\nchange [smoothing x v] by (((Smoothing X) - (value)) / (-5))\nset x to ((Smoothing X) - (SCROLL X))\nvalue = read from encoded\nchange [smoothing y v] by (((Smoothing Y) - (value)) / (-5))\nset y to ((Smoothing Y) - (SCROLL Y))\nvalue = read from encoded\nif <<([abs v] of ((Smoothing X) - (SCROLL X)) ) > [240]> or <([abs v] of ((Smoothing Y) - (SCROLL Y)) ) > [170]>> then\n    switch costume to (blank v)\nelse\n    switch costume to (value)\nend\nvalue = read from encoded\npoint in direction (value)\nvalue = read from encoded\nset size to (value) %\nvalue = read from encoded\nset [ghost v] effect to (value)\n\nif <not <(offline) = [100]>> then\n\nhide\n\nshow\n\ndefine value = cloud # (player)\nif <(player) = [1]> then\n    set [value v] to (☁ P1)\nelse\n    if <(player) = [2]> then\n        set [value v] to (☁ P2)\n    else\n        if <(player) = [3]> then\n            set [value v] to (☁ P3)\n        else\n            if <(player) = [4]> then\n                set [value v] to (☁ P4)\n            else\n                if <(player) = [5]> then\n                    set [value v] to (☁ P5)\n                else\n                    if <(player) = [6]> then\n                        set [value v] to (☁ P6)\n                    else\n                        if <(player) = [7]> then\n                            set [value v] to (☁ P7)\n                        else\n                            set [value v] to (☁ P8)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [join game v]\nvalue = cloud # (player #)\nset [last value v] to (join [A] (value))\nwait (3) seconds\nvalue = cloud # (player #)\nif <(join [A] (value)) = (last value)> then\n    set [my player # v] to (player #)\nend\n\nwhen I receive [tick v]\nif <(MY PLAYER #) = (player #)> then\n    set [offline v] to [100]\n    hide\nelse\n    tick\nend\n\n\n\n@Level\n\nwhen I receive [tick v]\nposition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setup - opponents v]\nswitch costume to (l1 x0 y0 v)\ncetup clone at x,y: [0] [0]\nswitch costume to (l1 x1 y0 v)\ncetup clone at x,y: [0.6] [0]\nswitch costume to (l1 x2 y0 v)\ncetup clone at x,y: [1.2] [0]\nswitch costume to (l1 x2 y2 v)\ncetup clone at x,y: [2] [0]\nswitch costume to (l1 x1 y1 v)\ncetup clone at x,y: [3] [0.5]\nswitch costume to (costume1 v)\ncetup clone at x,y: [3] [1.8]\nshow\n\ndefine cetup clone at x,y: (x) (y)\ngo to x: (0) y: (0)\nhide\nset [x v] to (round ((x) * (460)))\nset [y v] to (round ((y) * (340)))\nposition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\ncreate clone of (_myself_ v)\n\ndefine position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\n@Multiplayer\n\nwhen I receive [join game v]\nswitch costume to (joining v)\n\ngo to x: (0) y: (100)\n\nrepeat (30)\n    change y by (((100) - (y position)) * (0.3))\nend\n\nwhen I receive [answer v]\nif <(MY PLAYER #) > [0]> then\n    switch costume to ( joined v)\nelse\n    switch costume to (full v)\nend\n\nswitch costume to ( joined v)\n\nswitch costume to (full v)\n\nswitch backdrop to (full v)\n\nwhen I receive [join game v]\n\ngo to x: (0) y: (100)\n\nrepeat (30)\n    change y by (((100) - (y position)) * (0.3))\nend\n\ngo to x: (0) y: (100)\n\nrepeat (30)\n    change y by (((100) - (y position)) * (0.3))\nend\n\nwhen flag clicked\nshow\n\n@Splash Screen\n\nwhen flag clicked\nhide\n\nshow\n\nset [ghost v] effect to (0)\n\n@Sprite1\n\nwhen flag clicked\nset size to (50) %\nhide\nforever\n    create clone of (_myself_ v)\n    wait (.1) seconds\nend\n\nwhen I start as a clone\nshow\nchange [color v] effect by (pick random (1) to (500))\npoint in direction (pick random (0) to (360))\nset y to (181)\nset x to (pick random (-240) to (240))\nrepeat until <(y position) < [-170]>\n    change y by (-10)\n    turn right (10) degrees\nend\ndelete this clone\n\n