Online Scrolling Platformer V1.0                     #games #all
@Stage\n\nwhen I receive [begin v]\nforever\n    set volume to (Volume) %\nend\n\nwhen I receive [begin v]\nwait (3) seconds\nset [hiiis v] to [1]\nforever\n    if <(hiiis) = [1]> then\n        broadcast (music 1 v)\n        play sound [AdagioInC v] until done\n        set [hiiis v] to [2]\n    else\n        stop all sounds\n        broadcast (music2 v)\n        play sound [Mozart - 12 Variations in C major on Ah vous dirai-je, Maman, K v] until done\n        set [hiiis v] to [1]\n    end\nend\n\nbroadcast (music 1 v)\nstop all sounds\n\nset volume to (Volume) %\n\nstop all sounds\n\nstop all sounds\n\nstop all sounds\n\n\nwhen flag clicked\nswitch backdrop to (blank v)\n\n@player\n\nset volume to (((distance to [sprite2 v]) * (-1)) + (200)) %\nchange [pan left/right v] effect by (((x position) - (my x)) * (-1))\n\nwhen flag clicked\nforever\n\nset volume to (((distance to [sprite2 v]) * (-1)) + (200)) %\nchange [pan left/right v] effect by (((x position) - (my x)) * (-1))\n\nwhen flag clicked\nforever\n\nset volume to (((distance to [sprite2 v]) * (-1)) + (200)) %\nchange [pan left/right v] effect by (((x position) - (my x)) * (-1))\n\nwhen flag clicked\nhide\n\n\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 <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> <<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>>\n    send cloud data\nend\n\nplayer tick\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                            if <(player) = [8]> then\n                                set [☁ p8 v] to (value)\n                            else\n                                if <(player) = [9]> then\n                                    set [☁ p9 v] to (value)\n                                else\n                                    set [☁ p10 v] to (value)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nset [☁ p1 v] to (value)\n\ndefine send cloud data\nset [encoded v] to []\nWrite (username) to encoded\nWrite (round ((timer) * (10))) to encoded\nWrite ((x position) + (SCROLL X)) to encoded\nWrite ((y position) + (SCROLL Y)) to encoded\nWrite (direction) to encoded\nWrite (costume [number v]) to encoded\nWrite (love and fav?) to encoded\nWrite (±Chat words) to encoded\nSet cloud # (My player#) to (encoded)\n\nrepeat (length of [buffer v])\n    Write (item (1) of [buffer v]) to encoded\n    delete (1) of [buffer v]\nend\n\ndefine player tick\n\ndefine die\nset [exit v] to []\nrepeat (5)\n    hide\n    wait (0.1) seconds\n    show\nend\nwait (1) seconds\n\ndefine chang plaer x by (sx)\nif <(sx) < [0]> then\n    point in direction (-90)\nelse\n    point in direction (90)\nend\nchange [x v] by (sx)\npos\nif <<touching (platforms v)?> or <touching (bounce pad v)?>> then\n    repeat (12)\n        change [y v] by (1)\n        pos\n        if <not <<touching (bounce pad v)?> or <touching (platforms v)?>>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    repeat until <not <<touching (bounce pad v)?> or <touching (platforms v)?>>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        pos\n    end\nend\n\ndefine pos\ngo to x: ((x) - (SCROLL X)) y: ((y) - (SCROLL Y))\n\ndefine change player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\npos\nrepeat until <not <<touching (bounce pad v)?> or <touching (platforms v)?>>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    set [sy v] to [0]\n    pos\nend\n\ndefine win\nhide\ngo to [front v] layer\nset rotation style [don't rotate v]\nstart sound [pop v]\nrepeat (50)\n    wait (0.05) seconds\n    point towards (portal v)\n    turn right (65) degrees\n    move ((distance to [portal v]) / (2)) steps\n    change size by (-3)\n    change [ghost v] effect by (2)\nend\nhide\nchange [level v] by (1)\nwait (1) seconds\nclear graphic effects\nset rotation style [left-right v]\nstop all sounds\n\ndefine test dying\nif <(!!!!!!!!!!!!!cheat) = [0]> then\n    if <<touching (coins3 v)?> or <touching (danger v)?>> then\n        set [exit v] to [die]\n    end\nend\n\ndefine game on\npoint in direction (90)\nset size to (100) %\nclear graphic effects\nset [in air v] to [0]\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nset [sy v] to [0]\nset [exit v] to []\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nshow\n\nwhen flag clicked\nset [level v] to [1]\nforever\n    go to [front v] layer\nend\n\ndefine tick <right> <up> <left>\nif <left> then\n    chang plaer x by [-8]\nend\nif <right> then\n    chang plaer x by [8]\nend\nif <<up> and <(in air) < [3]>> then\n    set [sy v] to [16]\nend\nchange [sy v] by (-1)\nchange player y by (sy)\ntest dying\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nchange [scroll y v] by (round (((y) - (SCROLL Y)) / (10)))\nchange [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\npos\nif <(y position) < [-180]> then\n    set [exit v] to [die]\nend\nif <touching (coins2 v)?> then\n    set [sy v] to [23]\nend\n\nstart sound [Big Boing v]\n\nwhen I receive [play game v]\nforever\n    broadcast (reset v) and wait\n    set [::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::hi v] to [1]\n    broadcast (setup v) and wait\n    set [::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::hi v] to [0]\n    game on\n    repeat until <(EXIT) > []>\n        broadcast (tick v)\n        if <(EXIT) = [win]> then\n            win\n        else\n            test dying\n        end\n    end\nend\n\ndie\n\nwhen I receive [tick v]\nbroadcast (ready v)\n\nwhen flag clicked\nset [!!!!!!!!!!!!!cheat v] to [0]\nset [hi v] to []\nset [level v] to [1]\n\nwhen I receive [start game v]\nbroadcast (greenflag v) and wait\nbroadcast (play game v) and wait\n\nwhen I receive [play game v]\nforever\n    if <not <key (any v) pressed?>> then\n        switch costume to (1 v)\n        switch costume to ((skin#) + (costume [number v]))\n    end\n    if <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n        switch costume to (4 v)\n        switch costume to ((skin#) + (costume [number v]))\n    end\n    if <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n        switch costume to (4 v)\n        switch costume to ((skin#) + (costume [number v]))\n    end\n    if <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>>> then\n        switch costume to (7 v)\n        switch costume to ((skin#) + (costume [number v]))\n    end\n    if <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>>> then\n        switch costume to (7 v)\n        switch costume to ((skin#) + (costume [number v]))\n    end\nend\n\nbroadcast (play game v)\n\ndefine encode chat\n\nWrite [] to encoded\n\nWrite (item (2) of [chat v]) to encoded\n\nWrite ((x position) + (SCROLL X)) to encoded\nWrite ((y position) + (SCROLL Y)) to encoded\n\nset [encoded v] to []\n\ndefine chat\n\nwhen I receive [begin v]\nset [?time? v] to [0]\nset [∏∏∏chat v] to [0]\nshow list [greetings v]\nshow list [chat v]\nforever\n    Chat\nend\n\ndefine Chat\nif <(∏∏∏Chat) = [1]> then\n    ask [What one?] and wait\n    if <(answer) = [1]> then\n        set [±chat words v] to [1]\n        say [Hi!]\n        set [∏∏∏chat v] to [0]\n        wait (2) seconds\n        say []\n        set [±chat words v] to [0]\n    else\n        if <(answer) = [2]> then\n            set [±chat words v] to [2]\n            say [How are you?]\n            set [∏∏∏chat v] to [0]\n            wait (2) seconds\n            say []\n            set [±chat words v] to [0]\n        else\n            if <(answer) = [3]> then\n                set [±chat words v] to [3]\n                say [Hello]\n                set [∏∏∏chat v] to [0]\n                wait (2) seconds\n                say []\n                set [±chat words v] to [0]\n            else\n                if <(answer) = [4]> then\n                    set [±chat words v] to [4]\n                    say [Hold on.]\n                    set [∏∏∏chat v] to [0]\n                    wait (2) seconds\n                    say []\n                    set [±chat words v] to [0]\n                else\n                    if <(answer) = [5]> then\n                        set [±chat words v] to [5]\n                        say [ok]\n                        set [∏∏∏chat v] to [0]\n                        wait (2) seconds\n                        say []\n                        set [±chat words v] to [0]\n                    else\n                        if <(answer) = [6]> then\n                            set [±chat words v] to [6]\n                            say [Yes!]\n                            set [∏∏∏chat v] to [0]\n                            wait (2) seconds\n                            say []\n                            set [±chat words v] to [0]\n                        else\n                            if <(answer) = [7]> then\n                                set [±chat words v] to [7]\n                                say [No.]\n                                set [∏∏∏chat v] to [0]\n                                wait (2) seconds\n                                say []\n                                set [±chat words v] to [0]\n                            else\n                                if <(answer) = [8]> then\n                                    set [±chat words v] to [8]\n                                    say [Love and fav?]\n                                    set [∏∏∏chat v] to [0]\n                                    wait (2) seconds\n                                    say []\n                                    set [±chat words v] to [0]\n                                else\n                                    if <(answer) = [9]> then\n                                        set [±chat words v] to [9]\n                                        say [Follow me!]\n                                        set [∏∏∏chat v] to [0]\n                                        wait (2) seconds\n                                        say []\n                                        set [±chat words v] to [0]\n                                    else\n                                        if <(answer) = [10]> then\n                                            set [±chat words v] to [10]\n                                            say [😀]\n                                            set [∏∏∏chat v] to [0]\n                                            wait (2) seconds\n                                            say []\n                                            set [±chat words v] to [0]\n                                        else\n                                            if <(answer) = [11]> then\n                                                set [±chat words v] to [11]\n                                                say [😂]\n                                                set [∏∏∏chat v] to [0]\n                                                wait (2) seconds\n                                                say []\n                                                set [±chat words v] to [0]\n                                            else\n                                                chatt\n                                                stop [this script v]\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n\n\n\n\nclear graphic effects\n\nset [±chat words v] to [0]\n\nset [☁ p6 v] to (value)\n\nif <(player) = [10]> then\n\nWrite (costume [number v]) to encoded\nWrite (direction) to encoded\n\nbroadcast (hi chat v)\nshow list [chat v]\nstop [this script v]\n\nwhen I receive [begin v]\n\nforever\n\nask [What's your name?] and wait\n\ngo to x: (-115) y: (-23)\n\nif <(Chat emojis) = [yes]> then\n\nif <(Chat emojis) = [yes]> then\n\ndefine skin time\nchange [?time? v] by (1)\n\nset [skin# v] to [1]\n\nhide\n\nset [ghost v] effect to (100)\n\nwhen flag clicked\nforever\n    if <(love and fav?) = [1]> then\n        change [color v] effect by (1)\n    end\nend\n\nclear graphic effects\n\n\n\n\n\ndefine chatt\nif <(answer) = [12]> then\n    set [±chat words v] to [12]\n    say [How do you get rainbow?]\n    set [∏∏∏chat v] to [0]\n    wait (2) seconds\n    say []\n    set [±chat words v] to [0]\nelse\n    if <(answer) = [13]> then\n        if <(love and fav?) = [1]> then\n            set [±chat words v] to [13]\n            say [I ❤️+⭐and got 🌈🌈🌈]\n            set [∏∏∏chat v] to [0]\n            wait (2) seconds\n            say []\n            set [±chat words v] to [0]\n        end\n    end\n    if <(answer) = [14]> then\n        if <(love and fav?) = [1]> then\n            set [±chat words v] to [14]\n            say [Woo! I just ⭐+❤️]\n            set [∏∏∏chat v] to [0]\n            wait (2) seconds\n            say []\n            set [±chat words v] to [0]\n        end\n    end\n    if <(answer) = [15]> then\n        set [±chat words v] to [15]\n        say [Great 🎮 🦌13!]\n        set [∏∏∏chat v] to [0]\n        wait (2) seconds\n        say []\n        set [±chat words v] to [0]\n    end\nend\n\nwhen I receive [end intro v]\nclear graphic effects\nhide\nset [chat emojis v] to [no]\nset [max players v] to [10]\nset [my player# v] to [0]\ndelete all of [buffer v]\nbroadcast (setup-opponents v) and wait\nswitch backdrop to (joining v)\nbroadcast (join game v) and wait\nif <(My player#) > [0]> then\n    switch backdrop to (joined v)\nelse\n    switch backdrop to (full v)\nend\nshow\nbroadcast (Begin v)\nforever\n    wait (1) seconds\n    skin time\n    if <<(?time?) > [300]> or <(?time?) = [300]>> then\n        set [skin# v] to [1]\n    else\n        if <<(?time?) > [600]> or <(?time?) = [600]>> then\n            set [skin# v] to [2]\n        else\n            set [skin# v] to [0]\n        end\n    end\nend\n\nset [skin# v] to [0]\n\nwhen flag clicked\nforever\n    if <<key (e v) pressed?> and <(username) = [rednose13]>> then\n        repeat until <not <key (e v) pressed?>>\n            set [!!!!!!!!!!!!!cheat v] to [1]\n        end\n        set [!!!!!!!!!!!!!cheat v] to [0]\n    end\nend\n\nif <(My player#) = [1]> then\n    Write ((frame) + (58)) to encoded\nend\n\nset [::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::hi v] to [1]\n\nset [::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::hi v] to [0]\n\nwhen flag clicked\nset [names? v] to [1]\n\nwhen [n v] key pressed\nif <(names?) = [1]> then\n    set [names? v] to [0]\nelse\n    set [names? v] to [1]\nend\n\n\n\nif <touching (water v)?> then\n    if <key (up arrow v) pressed?> then\n        change [sy v] by (2)\n    end\n    if <key (down arrow v) pressed?> then\n        change [sy v] by (-2)\n    end\nend\n\nwhen I receive [setup v]\n\nif <(!@#Check point) = [1]> then\n\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [sy v] to [0]\nif <(!@#Check point) = [2]> then\n    set [x v] to [3243]\n    set [scroll y v] to [0]\n    set [y v] to [125]\nend\n\nwhen flag clicked\nset [!@#check point v] to [0]\n\nbroadcast (reset v)\n\nbroadcast (reset v)\n\nwait (1) seconds\n\nset [!@#check point v] to [2]\n\nturn left (15) degrees\n\n@opponents\n\ndefine Decode Chat (chat)\nif <(chat) = [1]> then\n    say [Hi!] for (2) seconds\nelse\n    if <(chat) = [2]> then\n        say [How are you?] for (2) seconds\n    else\n        if <(chat) = [3]> then\n            say [Hello] for (2) seconds\n        else\n            if <(chat) = [4]> then\n                say [Hold on] for (2) seconds\n            else\n                if <(chat) = [5]> then\n                    say [ok] for (2) seconds\n                else\n                    if <(chat) = [6]> then\n                        say [Yes!] for (2) seconds\n                    else\n                        if <(chat) = [7]> then\n                            say [No.] for (2) seconds\n                        else\n                            if <(chat) = [8]> then\n                                say [Love and fav?] for (2) seconds\n                            else\n                                if <(chat) = [9]> then\n                                    say [Follow me!] for (2) seconds\n                                else\n                                    if <(chat) = [10]> then\n                                        say [😀] for (2) seconds\n                                    else\n                                        if <(chat) = [11]> then\n                                            say [😂] for (2) seconds\n                                        else\n                                            if <(chat) = [12]> then\n                                                say [How do you get rainbow?] for (2) seconds\n                                            else\n                                                if <(chat) = [13]> then\n                                                    say [I ❤️+⭐ and got 🌈🌈🌈] for (2) seconds\n                                                else\n                                                    if <(chat) = [14]> then\n                                                        say [I just ❤️+⭐!] for (2) seconds\n                                                    else\n                                                        if <(chat) = [15]> then\n                                                            say [Woo! Great 🎮 🦌13!] for (2) seconds\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [decode chat v]\nDecode Chat (value)\n\ndefine Start decode of (encoded)\nset [encoded v] to (encoded)\nset [letter# v] to [1]\n\ndefine val=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\nwhen I receive [begin v]\nforever\n    set size to (100) %\n    if <(My player#) = (player#)> then\n        set [offline v] to [100]\n        hide\n    else\n        set size to (400) %\n        tick\n        set size to (100) %\n    end\nend\n\ndefine Var=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                            if <(player) = [8]> then\n                                set [value v] to (☁ p8)\n                            else\n                                if <(player) = [9]> then\n                                    set [value v] to (☁ p9)\n                                else\n                                    set [value v] to (☁ p10)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Setup Players\nclear graphic effects\ndelete all of [buffer v]\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\nset [color v] effect to (0)\n\nwhen I receive [setup-opponents v]\nSetup Players\n\ndelete all of [buffer v]\n\ndefine tick\nVar=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\nStart decode of (value)\nval=read from encoded\nif <(names?) = [1]> then\n    think (value)\nelse\n    think []\nend\nval=read from encoded\nval=read from encoded\nset x to ((value) - (SCROLL X))\nval=read from encoded\nset y to ((value) - (SCROLL Y))\nval=read from encoded\npoint in direction (value)\nval=read from encoded\nswitch costume to (value)\nval=read from encoded\nif <(value) = [1]> then\n    change [color v] effect by (1)\nelse\n    set [color v] effect to (0)\nend\nif <(::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::HI) = [1]> then\n    if <(My player#) > [1]> then\n        val=read from encoded\n        set [frame v] to (value)\n    end\nend\nval=read from encoded\nbroadcast (decode chat v)\n\nval=read from encoded\nval=read from encoded\nset x to ((value) - (SCROLL X))\nval=read from encoded\nset y to ((value) - (SCROLL Y))\nval=read from encoded\npoint in direction (value)\nval=read from encoded\nswitch costume to (value)\nval=read from encoded\nif <(value) = [1]> then\n    change [color v] effect by (1)\nelse\n    set [color v] effect to (0)\nend\nif <(::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::HI) = [1]> then\n    if <(My player#) > [1]> then\n        val=read from encoded\n        set [frame v] to (value)\n    end\nend\nval=read from encoded\nbroadcast (decode chat v)\nif <(names?) = [1]> then\nend\n\nval=read from encoded\n\n\n\nval=read from encoded\n\nrepeat until <(value) = []>\n    add (value) to [buffer v]\nend\n\nval=read from encoded\nswitch costume to (value)\nval=read from encoded\npoint in direction (value)\n\nrepeat until <(value) = []>\n    add (value) to [buffer v]\n    val=read from encoded\nend\n\nif <(length of [buffer v]) > [0]> then\n\nwhen I receive [join game v]\nVar=cloud# (player#)\nset [last value v] to (join [A] (value))\nwait (3) seconds\nVar=cloud# (player#)\nif <(join [A] (value)) = (Last value)> then\n    set [my player# v] to (player#)\nend\nstart sound [Connect v]\nbroadcast (Begin v)\nbroadcast (play game v)\n\nwhen I receive [decode chat v]\ndecode chat (value)\n\nif <touching (_edge_ v)?> then\n    hide\nelse\n    show\nend\n\ndefine decode chat (chat)\n\ndelete (1) of [buffer v]\nset y to ((item (1) of [buffer v]) - (SCROLL Y))\ndelete (1) of [buffer v]\nif <(length of [buffer v]) > [0]> then\n\nset [value v] to (☁ P6)\n\nif <(value) = [die]> then\n    repeat (100)\n        change [pixelate v] effect by (1)\n    end\n    clear graphic effects\nelse\n    \nend\n\nwhen I receive [love and fav??? v]\n\ndefine check love=fav\n\ndefine yes\nforever\n    change [color v] effect by (5)\nend\n\nyes\n\n\n    check love=fav\nend\n\nif <(value) = [true]> then\n    die\nend\nval=read from encoded\n\ndefine die\nrepeat (100)\n    change [pixelate v] effect by (1)\nend\n\n\n\nif  then\nend\n\n@platforms\n\ndefine pos (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [tick v]\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [greenflag v]\nset [level v] to [1]\nshow\n\ndefine clone (x) (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [setup v]\nset [x v] to [0]\nset [y v] to [0]\nswitch costume to (1 1 v)\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\n\nif <(LEVEL) = [1]> then\nend\nclone [450] [-450]\nclone [450] [0]\n\ndefine coool\nhide\n\nrepeat (10)\n\nwhen I receive [title v]\nhide\n\nwhen I receive [reset v]\ndelete this clone\n\nset [level v] to [1]\n\nbroadcast (open portal v)\n\nbroadcast (reset v)\n\nwait (1) seconds\nstop [all v]\n\nif <(!@#Check point) = [2]> then\nelse\n    if <(!@#Check point) = [2]> then\n        set [x v] to [3243]\n        set [y v] to [125]\n    end\nend\n\nswitch costume to (2 1 v)\n\nswitch costume to (3 1 v)\nswitch costume to (4 1 v)\nswitch costume to (5 1 v)\n\nbroadcast (setup v)\n\nwait (1) seconds\n\n@danger\n\ndefine pos (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [tick v]\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\ndefine clone (x) (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [setup v]\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (1 1 v)\n    clone [450] [0]\n    clone [450] [0]\n    clone [450] [0]\nend\n\nif <(LEVEL) = [2]> then\n    switch costume to (2 1 v)\n    clone [450] [0]\n    clone [450] [0]\nelse\n    if <(LEVEL) = [3]> then\n        switch costume to (costume1 v)\n        clone [450] [0]\n        clone [450] [0]\n    else\n        if <(LEVEL) = [4]> then\n            switch costume to (4 1 v)\n            clone [450] [0]\n            clone [450] [0]\n            clone [450] [0]\n            clone [450] [0]\n        else\n            if <(LEVEL) = [5]> then\n                switch costume to (5 1 v)\n                clone [450] [0]\n                clone [450] [0]\n                clone [450] [0]\n                clone [450] [0]\n                clone [450] [0]\n            else\n                if <(LEVEL) = [6]> then\n                    switch costume to (6 1 v)\n                    clone [450] [0]\n                    clone [450] [0]\n                end\n            end\n        end\n    end\nend\n\nclone [450] [0]\nclone [450] [0]\nclone [450] [0]\n\nclone [1000000] [0]\nclone [450] [0]\nclone [450] [0]\n\nclone [450] [0]\n\nwhen flag clicked\nforever\n    if <(EXIT) = [win]> then\n        broadcast (next v)\n        delete this clone\n    end\nend\n\nwhen I receive [reset v]\ndelete this clone\n\nwhen I receive [title v]\nhide\n\n@portal\n\ndefine pos (x) (y)\n\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\nend\n\ndefine place portal at (x) (y)\n\nset [x v] to (x)\nset [y v] to (y)\n\nwhen I receive [tick v]\nhide\n\ngo to [front v] layer\ngo [backward v] (1) layers\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <<(costume [number v]) = [1]> and <touching (player v)?>> then\n    set [exit v] to [win]\nend\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [setup v]\n\nif  then\nelse\nend\n\nswitch costume to (closed v)\nplace portal at [8874] [34]\n\nif <(LEVEL) = [2]> then\n    switch costume to (closed v)\n    place portal at [1016] [126]\nelse\n    if <(LEVEL) = [3]> then\n        switch costume to (closed v)\n        place portal at [1016] [126]\n    else\n        if <(LEVEL) = [4]> then\n            switch costume to (closed v)\n            place portal at [1789] [159]\n        else\n            if <(LEVEL) = [5]> then\n                switch costume to (closed v)\n                place portal at [1789] [159]\n            else\n                if <(LEVEL) = [6]> then\n                    switch costume to (closed v)\n                    place portal at [2176] [100]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [open portal v]\nswitch costume to (open v)\n\nwhen flag clicked\nforever\n    set [coins v] to (join (COLLECTED) (join [/] (MAX COLLECTED)))\nend\n\nwhen I receive [title v]\nhide\n\nreset timer\n\nwhen I start as a clone\n\nbroadcast (open portal v)\n\nbroadcast (open portal v)\n\nset [level v] to [6]\n\n@coins\n\ndefine pos (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine clone (x) (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\nchange [max collected v] by (1)\n\nwhen I receive [tick v]\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <touching (player v)?> then\n    change [collected v] by (1)\n    if <(COLLECTED) = (MAX COLLECTED)> then\n        start sound [Win v]\n        broadcast (open portal v)\n    else\n        start sound [Coin v]\n    end\n    delete this clone\nend\n\nchange [collected v] by (1)\n\ndelete this clone\n\nwhen I receive [greenflag v]\nhide\n\nset [collected v] to [0]\n\nset [max collected v] to [0]\n\nshow\n\nwhen [m v] key pressed\nset [mouse v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen I receive [reset v]\nset [collected v] to [0]\nset [max collected v] to [0]\ndelete this clone\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    clone [-152] [50]\n    clone [287] [53]\n    clone [100] [74]\n    clone [716] [74]\n    clone [1030] [23]\n    clone [535] [165]\n    clone [535] [89]\n    clone [946] [101]\n    clone [946] [200]\n    clone [1285] [108]\n    clone [1448] [179]\n    clone [1610] [46]\n    clone [1853] [70]\n    clone [2096] [17]\n    clone [2471] [1]\n    clone [2360] [200]\n    clone [2644] [100]\n    clone [2847] [43]\n    clone [2966] [170]\n    clone [3122] [100]\n    clone [3667] [51]\n    clone [3929] [89]\n    clone [4433] [120]\n    clone [4719] [68]\n    clone [5299] [107]\n    clone [5416] [222]\n    clone [5745] [10]\n    clone [6192] [117]\n    clone [6524] [63]\nend\nset [x v] to [-99999999999]\n\nif <(LEVEL) = [2]> then\n\nclone [628] [262]\nclone [842] [215]\n\nhide\nshow\n\nreset timer\n\nwhen flag clicked\nset size to (75) %\n\nwhen I start as a clone\n\nchange [collected v] by (1)\n\nhide\n\nwait (1) seconds\n\nwhen flag clicked\n\nbroadcast (coin v)\nreset timer\n\nwhen I receive [open portal v]\n\nwhen I receive [coin v]\n\nhide\n\nchange size by (-100)\n\nwait (0) seconds\n\nwhen flag clicked\n\nwhen I receive [title v]\nforever\n    set [coins v] to (join (join (COLLECTED) [/]) (MAX COLLECTED))\nend\n\nshow variable [collected v]\n\nset [collected v] to [5]\n\nchange [collected v] by (1)\n\nbroadcast (open portal v)\n\nclone [] []\n\nset [level v] to [2]\n\nclone [390] [163]\nclone [628] [262]\nclone [842] [215]\n\nwhen flag clicked\nforever\n    hide variable [mouse v]\n    hide variable [!@#check point v]\nend\n\n@Sprite5\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nforever\n    set x to ((480) - ((SCROLL X) mod (480)))\nend\n\nwhen I receive [title v]\nset x to (0)\n\nwhen I receive [begin v]\nshow\ngo to x: (0) y: (0)\ngo to [back v] layer\nswitch costume to (costume1 v)\ncreate clone of (_myself_ v)\nforever\n    set x to (() - ((SCROLL X) mod (480)))\nend\n\n@Sprite1\n\nwhen flag clicked\nset [costume v] to [0]\nhide\nforever\n    go to [front v] layer\n    if <not <<(LOVED__) = [1]> and <(FAVED___) = [1]>>> then\n        wait (pick random (30) to (50)) seconds\n        switch costume to (costume1 v)\n        go to x: (0) y: (50)\n        show\n        go to [front v] layer\n        start sound [pop v]\n        repeat (9)\n            change y by (-6)\n        end\n        repeat (5)\n            change y by (3)\n        end\n        repeat (5)\n            change y by (-1)\n        end\n        wait (2) seconds\n        repeat (15)\n            change y by (7)\n        end\n        hide\n    end\n    if <(Costume) > [0]> then\n        hide\n        stop [this script v]\n    end\nend\n\n@detector\n\nwhen flag clicked\nhide\nset [love and fav? v] to [0]\nset [faved___ v] to [0]\nset [loved__ v] to [0]\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [clone id v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(LOVED__) = [1]> and <(FAVED___) = [1]>>\nwait (1) seconds\nbroadcast (MINION v)\ngo to x: (0) y: (0)\nshow\nreset timer\nswitch costume to (pick random (1) to (4))\nset [ghost v] effect to (100)\nrepeat until <(timer) > [3.5]>\n    change y by ((y position) / (-15))\n    change [ghost v] effect by (-3)\nend\nreset timer\nrepeat until <(timer) > [3.5]>\n    change y by (((y position) - (-100)) / (-15))\n    change [ghost v] effect by (10)\nend\n\nwhen I start as a clone\nif <(clone id) = [0]> then\n    go to x: (-15) y: (0)\n    set [loved__ v] to [0]\n    switch costume to (love v)\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [loved__ v] to <touching (mouse-pointer v)?>\n        end\n        if <<(LOVED__) = [1]> and <(FAVED___) = [1]>> then\n            set [love and fav? v] to [1]\n        end\n    end\nend\nif <(clone id) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [faved___ v] to [0]\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [faved___ v] to <touching (mouse-pointer v)?>\n        end\n    end\nend\n\nset [love and fav? v] to [1]\n\nset [faved___ v] to [1]\n\n@Sprite2\n\nwhen flag clicked\nshow list [chat v]\nhide\nreset timer\nset [a v] to [0]\nforever\n    set [fps v] to (round ((1) / ((timer) - (a))))\n    set [a v] to (timer)\nend\n\n@Sprite3\n\nwhen flag clicked\nset [costume v] to [0]\nhide\n\nwait (pick random (0) to (5)) seconds\n\nforever\n\nwhen I receive [music 1 v]\nswitch costume to (costume1 v)\ngo to x: (-250) y: (50)\nshow\ngo to [front v] layer\nstart sound [pop v]\nrepeat (9)\n    change y by (-6)\nend\nrepeat (5)\n    change y by (3)\nend\nrepeat (5)\n    change y by (-1)\nend\nwait (2) seconds\nrepeat (15)\n    change y by (7)\nend\nhide\n\n@coins2\n\ndefine pos (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nif <(username) = [rednose13]> then\n    show variable [mouse v]\nelse\n    hide variable [mouse v]\nend\n\ndefine clone (x) (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I receive [tick v]\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <touching (player v)?> then\n    broadcast (spring v) and wait\nend\n\nchange [collected v] by (1)\n\ndelete this clone\n\nwhen I receive [greenflag v]\nhide\nset [collected v] to [0]\nset [max collected v] to [0]\n\nif <(username) = [rednose13]> then\n    show variable [mouse v]\nelse\n    hide variable [mouse v]\nend\n\nshow\n\nwhen I receive [reset v]\nset [collected v] to [0]\nset [max collected v] to [0]\ndelete this clone\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    clone [-156] [-35]\n    clone [893] [2]\n    clone [6630] [-6]\n    clone [10188] [15]\n    clone [10550] [124]\nend\nset [x v] to [-99999999999]\n\nclone [545] [78]\nclone [545] [178]\nif <(LEVEL) = [2]> then\n\nhide\nshow\n\nreset timer\n\nwhen flag clicked\nset size to (75) %\n\nwhen I start as a clone\n\nchange [collected v] by (1)\n\nhide\n\nwait (1) seconds\n\nwhen flag clicked\n\nbroadcast (coin v)\nreset timer\n\nwhen I receive [open portal v]\n\nwhen I receive [coin v]\n\nhide\n\nchange size by (10)\n\nwait (0) seconds\n\nwhen flag clicked\n\nwhen I receive [title v]\nforever\n    set [coins v] to (join (join (COLLECTED) [/]) (MAX COLLECTED))\nend\n\nshow variable [collected v]\n\nset [collected v] to [5]\n\nchange [collected v] by (1)\n\nbroadcast (open portal v)\n\nclone [] []\n\nset [level v] to [2]\n\nclone [390] [163]\nclone [628] [262]\nclone [842] [215]\n\nwhen I receive [spring v]\nstart sound [Big Boing v]\nswitch costume to (costume1 v)\nrepeat (5)\n    next costume\nend\nswitch costume to (costume1 v)\n\nif <(COLLECTED) = (MAX COLLECTED)> then\n    start sound [Win v]\n    broadcast (open portal v)\nelse\n    start sound [Coin v]\nend\ndelete this clone\n\nclone [716] [74]\nclone [1030] [23]\nclone [535] [165]\nclone [535] [89]\nclone [946] [101]\nclone [946] [200]\nclone [1285] [108]\nclone [1448] [179]\nclone [1610] [46]\nclone [1853] [70]\n\n@Sprite4\n\nwhen flag clicked\nhide\ngo to x: (-198) y: (-143)\n\nwhen I receive [begin v]\nset size to (100) %\nclear graphic effects\nshow\nset [ghost v] effect to (50)\nforever\n    if <touching (mouse-pointer v)?> then\n        set [ghost v] effect to (0)\n        if <mouse down?> then\n            set [∏∏∏chat v] to [1]\n            hide list [chat v]\n            hide\n            repeat until <(∏∏∏Chat) = [0]>\n                hide\n            end\n            show\n            show list [chat v]\n        end\n    else\n        think []\n        set [ghost v] effect to (50)\n    end\nend\n\nbroadcast (open chat v) and wait\n\nrepeat (100)\n    change size by (-1)\nend\n\nwait (0.1) seconds\n\nwhen I receive [close chat v]\nwait (1) seconds\nshow\n\n@data-migration-cloud\n\nwhen flag clicked\nhide\nhide variable [coins v]\n\nwhen I receive [play game v]\nshow variable [coins v]\nhide\nstop [other scripts in sprite v]\n\nwhen I receive [end intro v]\nswitch costume to (data-migration-cloud v)\ngo to [front v] layer\nshow\nset size to (150) %\ngo to x: (0) y: (0)\nforever\n    next costume\n    wait (0.1) seconds\nend\n\n@cooltext368464323194138 (1)\n\nwhen flag clicked\nstart sound [Dance Magic v]\npoint in direction (90)\nclear graphic effects\nset size to (100) %\nchange [color v] effect by (75)\nshow\nset [ghost v] effect to (0)\nbroadcast (message1 v) and wait\nrepeat (100)\n    turn right (16) degrees\n    change size by (-1)\nend\nhide\nbroadcast (end intro v)\n\nwhen I receive [message1 v]\ngo to x: (0) y: (0)\nset size to (100) %\ngo to [front v] layer\nrepeat (50)\n    create clone of (_myself_ v)\n    change [ghost v] effect by (-10)\nend\nwait (0.5) seconds\nshow\n\nclear graphic effects\n\nwhen I start as a clone\ngo to x: (0) y: (230)\nglide (.5) secs to x: (0) y: (0)\nwait (.5) seconds\ndelete this clone\n\nrepeat (20)\n    wait (.01) seconds\n    change [mosaic v] effect by (-1)\nend\n\n@Sprite6\n\nwhen flag clicked\nclear graphic effects\nset y to (-150)\nhide\nset [ghost v] effect to (75)\nrepeat (50)\n    go to [front v] layer\n    set x to (pick random (-150) to (150))\n    set size to (pick random (20) to (100)) %\n    set [color v] effect to (pick random (0) to (100))\n    create clone of (_myself_ v)\n    wait (0.01) seconds\nend\n\nwhen I start as a clone\nshow\nrepeat until <(y position) > [171]>\n    go to [front v] layer\n    change y by (5)\nend\ndelete this clone\n\n@Sprite7\n\nwhen flag clicked\nhide\n\nwhen [space v] key pressed\ngo to x: (0) y: (0)\nif <(username) = [rednose13]> then\n    broadcast (join game v)\n    show\n    go to [front v] layer\nend\nstop [all v]\n\n@coins3\n\ndefine pos (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine clone (x) (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I receive [tick v]\npos ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nchange [collected v] by (1)\nif <(COLLECTED) = (MAX COLLECTED)> then\n    start sound [Win v]\n    broadcast (open portal v)\nelse\n    start sound [Coin v]\nend\ndelete this clone\n\nchange [collected v] by (1)\n\ndelete this clone\n\nwhen I receive [greenflag v]\nhide\n\nset [collected v] to [0]\n\nset [max collected v] to [0]\n\nshow\n\nwhen [m v] key pressed\nset [mouse v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen I receive [reset v]\ndelete this clone\n\nset [collected v] to [0]\nset [max collected v] to [0]\n\nwhen I receive [setup v]\nhide\nset [x v] to [0]\nset [y v] to [0]\nif <(LEVEL) = [1]> then\n    clone [1900] [-45]\nend\nset [x v] to [-99999999999]\n\nif <(LEVEL) = [2]> then\n\nclone [628] [262]\nclone [842] [215]\n\nhide\nshow\n\nreset timer\n\nwhen flag clicked\nset size to (75) %\n\nwhen I start as a clone\n\nchange [collected v] by (1)\n\nhide\n\nwait (1) seconds\n\nwhen flag clicked\n\nbroadcast (coin v)\nreset timer\n\nwhen I receive [open portal v]\n\nwhen I receive [coin v]\n\nhide\n\nchange size by (-100)\n\nwait (0) seconds\n\nwhen flag clicked\n\nwhen I receive [title v]\nforever\n    set [coins v] to (join (join (COLLECTED) [/]) (MAX COLLECTED))\nend\n\nshow variable [collected v]\n\nset [collected v] to [5]\n\nchange [collected v] by (1)\n\nbroadcast (open portal v)\n\nclone [] []\n\nset [level v] to [2]\n\nclone [390] [163]\nclone [628] [262]\nclone [842] [215]\n\nclone [287] [53]\nclone [100] [74]\nclone [716] [74]\nclone [1030] [23]\nclone [535] [165]\nclone [535] [89]\nclone [946] [101]\nclone [946] [200]\nclone [1285] [108]\nclone [1448] [179]\nclone [1610] [46]\nclone [1853] [70]\nclone [2096] [17]\nclone [2471] [1]\nclone [2360] [200]\nclone [2644] [100]\nclone [2847] [43]\nclone [2966] [170]\nclone [3122] [100]\nclone [3667] [51]\nclone [3929] [89]\nclone [4433] [120]\nclone [4719] [68]\nclone [5299] [107]\nclone [5416] [222]\nclone [5745] [10]\nclone [6192] [117]\nclone [6524] [63]\n\nchange [max collected v] by (1)\n\nwhen I start as a clone\n\nforever\nend\n\nwhen I start as a clone\nforever\n    turn right (10) degrees\n    go to [back v] layer\n    go [forward v] (2) layers\n    set [brightness v] effect to (15)\nend\n\n
SKINSSSSS play for 5 minutes to get new skin \n=======\nlove and fav to get rainbow!\n\nOMG #37 on games???!?!? lets try to get top 10!\n