~Vortex~ 100% Pen Platformer
@Stage\n\n@Blank\n\n@Vortex\n\ndefine draw a shape of any given size, sides, color, rotation, x, y, z, and brightness (x) (y) (size)\npen up\ngo to x: ((([sin v] of (rot) ) * (size)) + (x)) y: ((([cos v] of (rot) ) * (size)) + (y))\nchange [rot v] by (90)\npen down\ngo to x: ((([sin v] of (rot) ) * (size)) + (x)) y: ((([cos v] of (rot) ) * (size)) + (y))\nchange [rot v] by (90)\ngo to x: ((([sin v] of (rot) ) * (size)) + (x)) y: ((([cos v] of (rot) ) * (size)) + (y))\nchange [rot v] by (90)\ngo to x: ((([sin v] of (rot) ) * (size)) + (x)) y: ((([cos v] of (rot) ) * (size)) + (y))\nchange [rot v] by (90)\ngo to x: ((([sin v] of (rot) ) * (size)) + (x)) y: ((([cos v] of (rot) ) * (size)) + (y))\npen up\n\ndefine aWeSoMe\nif <([abs v] of ((round (timer)) - (timer)) ) < [.019]> then\n    add (round (pick random ((Sx) - (250)) to ((Sx) - (-250)))) to [squarex v]\n    add (round (pick random ((Sy) - (250)) to ((Sy) - (-250)))) to [squarey v]\n    add (round (pick random (0) to (360))) to [sqaredirection v]\n    add [0] to [squaresize v]\n    add (round (pick random (97) to (103))) to [squarecolor v]\nend\nset [pcv v] to [0]\nrepeat (length of [sqaredirection v])\n    change [pcv v] by (1)\n    if <(item (pcv) of [squaresize v]) > [148]> then\n        delete (pcv) of [squarecolor v]\n        delete (pcv) of [sqaredirection v]\n        delete (pcv) of [squaresize v]\n        delete (pcv) of [squarex v]\n        delete (pcv) of [squarey v]\n    end\n    set pen (saturation v) to (999)\n    set [br v] to (round ((150) - (item (pcv) of [squaresize v])))\n    set pen (color v) to (item (pcv) of [squarecolor v])\n    set pen (brightness v) to ((br) + (12))\n    set pen (transparency v) to (0)\n    if <(item (pcv) of [squaresize v]) < [30]> then\n        set pen color to (pick random (0) to (200))\n    end\n    if <not <<(((item (pcv) of [squarex v]) - (round ((Sx) / (1.5)))) - ((item (pcv) of [squaresize v]) / (2))) > [380]> or <(((item (pcv) of [squarey v]) - (round ((Sy) / (1.5)))) - ((item (pcv) of [squaresize v]) / (2))) > [330]>>> then\n        set pen size to (50)\n        if <not <(br) > [149]>> then\n            set [rot v] to (item (pcv) of [sqaredirection v])\n            draw a shape of any given size, sides, color, rotation, x, y, z, and brightness ((item (pcv) of [squarex v]) - (round ((Sx) / (1.5)))) ((item (pcv) of [squarey v]) - (round ((Sy) / (1.5)))) (item (pcv) of [squaresize v])\n        end\n    end\nend\nset [pcv v] to [0]\nrepeat (length of [sqaredirection v])\n    change [pcv v] by (1)\n    replace item (pcv) of [squaresize v] with ((((150) - (item (pcv) of [squaresize v])) / (21)) + (item (pcv) of [squaresize v]))\n    replace item (pcv) of [squarecolor v] with ((((65) - (item (pcv) of [squarecolor v])) / (25)) + (item (pcv) of [squarecolor v]))\nend\n\ndefine abc (text) (x) (y) (s) (c) (sh) (t) (w) (h) (sp)\nif <<not <(length of [chars v]) = [57]>> and <not <(length of [alp v]) = [57]>>> then\n    delete all of [chars v]\n    add [00020000030203000002030200010301] to [chars v]\n    add [00000002000202020202020100010301030103000300000002010001] to [chars v]\n    add [030000000002000000020302] to [chars v]\n    add [0300000000020000000201020102030103010300] to [chars v]\n    add [00000002000203020001020100000300] to [chars v]\n    add [000000020002030200010201] to [chars v]\n    add [0002030200000002000003000300030103010201] to [chars v]\n    add [000000020001030103000302] to [chars v]\n    add [000002000002020201000102] to [chars v]\n    add [00020302020002020200.4.4] to [chars v]\n    add [000000020001020000010202] to [chars v]\n    add [0000000200000300] to [chars v]\n    add [00000002000202010201040204000402] to [chars v]\n    add [000000020002030003000302] to [chars v]\n    add [00000002000003000300030200020302] to [chars v]\n    add [00000002000203020302030100010301] to [chars v]\n    add [0000000200000300030003020002030202010300] to [chars v]\n    add [00000002000202020202020100010301030103] to [chars v]\n    add [00000200020003.503.50201020100010001010201020302] to [chars v]\n    add [0200020200020402] to [chars v]\n    add [000000020000030003000302] to [chars v]\n    add [0002010001000202] to [chars v]\n    add [00020100010002020202030003000402] to [chars v]\n    add [0000030203000002] to [chars v]\n    add [010001010101000202020101] to [chars v]\n    add [000003000000030203020002] to [chars v]\n    add [0000030003000302000000020002030200020300] to [chars v]\n    add [000002000100010201020001] to [chars v]\n    add [0300000000010000000103010301030203020002] to [chars v]\n    add [03000302000203020301010103000000] to [chars v]\n    add [030003020301000100010002] to [chars v]\n    add [0000030003000301030100010001000200020302] to [chars v]\n    add [000003000000000100010301030003010001000200020302] to [chars v]\n    add [0002030203020000] to [chars v]\n    add [00000002000203020302030100010301030103000300000002010001] to [chars v]\n    add [000003000300030103010001000100020002030203020301] to [chars v]\n    add [0000000000010002] to [chars v]\n    add [0002030203020300030000000000000100010201] to [chars v]\n    add [00000103020003030001030100020302] to [chars v]\n    add [00000200020003.503.50201020100010001010201020302020302-1010301-1] to [chars v]\n    add [000003020102010202000200] to [chars v]\n    add [0001010202010102] to [chars v]\n    add [00000002000202020202020100010201000002000201030002000301] to [chars v]\n    add [00020002] to [chars v]\n    add [0001010200010100] to [chars v]\n    add [0301020203010200] to [chars v]\n    add [0000000000020002] to [chars v]\n    add [0000-1-1] to [chars v]\n    add [00000000] to [chars v]\n    add [00020202020202010201000100000000] to [chars v]\n    add [00020001] to [chars v]\n    add [0002000101010102] to [chars v]\n    add [00010201] to [chars v]\n    add [00000300] to [chars v]\n    add [0000030000010301] to [chars v]\n    add [0001020101020100] to [chars v]\n    add [00000302] to [chars v]\n    add [a] to [alp v]\n    add [b] to [alp v]\n    add [c] to [alp v]\n    add [d] to [alp v]\n    add [e] to [alp v]\n    add [f] to [alp v]\n    add [g] to [alp v]\n    add [h] to [alp v]\n    add [i] to [alp v]\n    add [j] to [alp v]\n    add [k] to [alp v]\n    add [l] to [alp v]\n    add [m] to [alp v]\n    add [n] to [alp v]\n    add [o] to [alp v]\n    add [p] to [alp v]\n    add [q] to [alp v]\n    add [r] to [alp v]\n    add [s] to [alp v]\n    add [t] to [alp v]\n    add [u] to [alp v]\n    add [v] to [alp v]\n    add [w] to [alp v]\n    add [x] to [alp v]\n    add [y] to [alp v]\n    add [z] to [alp v]\n    add [0] to [alp v]\n    add [1] to [alp v]\n    add [2] to [alp v]\n    add [3] to [alp v]\n    add [4] to [alp v]\n    add [5] to [alp v]\n    add [6] to [alp v]\n    add [7] to [alp v]\n    add [8] to [alp v]\n    add [9] to [alp v]\n    add [!] to [alp v]\n    add [@] to [alp v]\n    add [#] to [alp v]\n    add [$] to [alp v]\n    add [%] to [alp v]\n    add [^] to [alp v]\n    add [&] to [alp v]\n    add [*] to [alp v]\n    add [\(] to [alp v]\n    add [\)] to [alp v]\n    add [:] to [alp v]\n    add [,] to [alp v]\n    add [.] to [alp v]\n    add [?] to [alp v]\n    add ['] to [alp v]\n    add ["] to [alp v]\n    add [-] to [alp v]\n    add [_] to [alp v]\n    add [=] to [alp v]\n    add [+] to [alp v]\n    add [/] to [alp v]\nend\nset pen (color v) to ((c) / (2))\nset pen (brightness v) to (sh)\nset pen size to (t)\nset [ywrite v] to (y)\nset [alphabet v] to [abcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*\(\):,.?'"-_=+/ ]\nset [i v] to [0]\nset [ii v] to [0]\nset [xwrite v] to (x)\nrepeat (length of (text))\n    set pen (saturation v) to (9999)\n    change [i v] by (1)\n    set pen (brightness v) to ((sh) * (.4))\n    set pen size to ((t) * (2.5))\n    yay (letter (i) of (text)) (s) (w) (h)\n    set pen (color v) to ((c) / (2))\n    set pen (brightness v) to (sh)\n    set pen size to (t)\n    yay (letter (i) of (text)) (s) (w) (h)\n    if  then\n        change [xwrite v] by ((sp) / (.78))\n    else\n        if <<(letter (i) of (text)) = [+]> or <<(letter (i) of (text)) = [-]> or <<<<(letter (i) of (text)) = [^]> or <<(letter (i) of (text)) = [1]> or <<<(letter (i) of (text)) = [v]> or <<(letter (i) of (text)) = [i]> or <(letter (i) of (text)) = [k]>>> or <(letter (i) of (text)) = [y]>>>> or <(letter (i) of (text)) = ["]>> or <(letter (i) of (text)) = [?]>>>> then\n            change [xwrite v] by ((sp) / (1.26))\n        else\n            if <<(letter (i) of (text)) = [w]> or <(letter (i) of (text)) = [t]>> then\n                change [xwrite v] by ((sp) / (.9))\n            else\n                if <<<<(letter (i) of (text)) = [,]> or <<<(letter (i) of (text)) = [*]> or <(letter (i) of (text)) = [!]>> or <(letter (i) of (text)) = [:]>>> or <(letter (i) of (text)) = [.]>> or <(letter (i) of (text)) = [']>> then\n                    change [xwrite v] by ((sp) / (2))\n                else\n                    if <<(letter (i) of (text)) = [\(]> or <(letter (i) of (text)) = [\)]>> then\n                        change [xwrite v] by ((sp) / (1))\n                    else\n                        change [xwrite v] by (sp)\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine yay (c) (s) (w) (h)\npen up\nset [iii v] to [1]\nset [iiii v] to (item # of (c) in [alp v])\nrepeat (length of (item (iiii) of [chars v]))\n    set [x v] to (join (letter (iii) of (item (iiii) of [chars v])) (letter ((iii) + (1)) of (item (iiii) of [chars v])))\n    set [y v] to (join (letter ((iii) + (2)) of (item (iiii) of [chars v])) (letter ((iii) + (3)) of (item (iiii) of [chars v])))\n    go to x: (((((x) * (s)) * (w)) + (xwrite)) - (round (Sx))) y: (((((y) * (s)) * (h)) + (ywrite)) - (round (Sy)))\n    pen down\n    set [x v] to (join (letter ((iii) + (4)) of (item (iiii) of [chars v])) (letter ((iii) + (5)) of (item (iiii) of [chars v])))\n    set [y v] to (join (letter ((iii) + (6)) of (item (iiii) of [chars v])) (letter ((iii) + (7)) of (item (iiii) of [chars v])))\n    go to x: (((((x) * (s)) * (w)) + (xwrite)) - (round (Sx))) y: (((((y) * (s)) * (h)) + (ywrite)) - (round (Sy)))\n    pen up\n    change [iii v] by (8)\n    if <(iii) > (length of (item (iiii) of [chars v]))> then\n        stop [this script v]\n    end\nend\n\ndefine hi (px) (py) (x1) (y1) (x2) (y2) (bx) (by)\nset [bx v] to (bx)\nset [by v] to (by)\nset [my variable v] to [0]\nif <(x1) > (x2)> then\n    set [xs v] to (x2)\n    set [xe v] to (x1)\nelse\n    set [xs v] to (x1)\n    set [xe v] to (x2)\nend\nif <(y1) > (y2)> then\n    set [ys v] to (y2)\n    set [ye v] to (y1)\nelse\n    set [ys v] to (y1)\n    set [ye v] to (y2)\nend\nset [m v] to (((y1) - (y2)) / ((x1) - (x2)))\nset [b v] to ((y1) - ((x1) * (m)))\nif <not <(xs) > ((px) - (() - (bx)))>> then\n    if <not <((px) - (bx)) > (xe)>> then\n        if <not <(ys) > ((py) - (() - ((by) - (1))))>> then\n            if <not <((py) - ((by) - (1))) > (ye)>> then\n                if <(m) < [Infinity]> then\n                    if <[0] < ([abs v] of (m) )> then\n                        set [by v] to (round (((by) + (([abs v] of ([abs v] of (m) ) ) * (1))) - (() - (([abs v] of (m) ) * ((10) + (([abs v] of (m) ) * (10)))))))\n                        if <not <([abs v] of (m) ) < [.65]>> then\n                            if <(by) < (round (((by) + (([abs v] of (m) ) * (24))) - (([abs v] of (m) ) * (5))))> then\n                                set [by v] to (round (((by) + (([abs v] of (m) ) * (24))) - (5)))\n                                if <<([abs v] of (m) ) > [1.2]> or <([abs v] of (m) ) = [1.2]>> then\n                                    set [by v] to (round (((by) + (([abs v] of (m) ) * (24))) - (7)))\n                                end\n                                if <<([abs v] of (m) ) > [3.3]> or <([abs v] of (m) ) = [3.3]>> then\n                                    set [by v] to (round (((by) + (([abs v] of (m) ) * (24))) - (9)))\n                                end\n                                if <<([abs v] of (m) ) > [8]> or <([abs v] of (m) ) = [8]>> then\n                                    set [by v] to (round (((by) + (([abs v] of (m) ) * (24))) - (15)))\n                                end\n                                if <<([abs v] of (m) ) > [14.5]> or <([abs v] of (m) ) = [14.5]>> then\n                                    set [by v] to (round (((by) + (([abs v] of (m) ) * (24))) - (20)))\n                                end\n                            end\n                            if <(Yv) > [0]> then\n                                change [by v] by (3)\n                            end\n                        end\n                    end\n                end\n                if <([abs v] of ((py) - (((m) * (px)) + (b))) ) < (by)> then\n                    set [my variable v] to [1]\n                end\n                if <(m) = [Infinity]> then\n                    set [my variable v] to [1]\n                end\n                if <(m) = [-Infinity]> then\n                    set [my variable v] to [1]\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nerase all\npen up\nset pen size to (600)\nset pen color to (#000000)\ngo to x: (0) y: (0)\npen down\npen up\nwait (1) seconds\nDoThEpEnStUfF\n\ndefine :D\nplatter\ngback\naWeSoMe\npen dirt\ntext\ngood stuf\n\ndefine pen dirt\nif <(Resolution) > [1]> then\n    penlite\nend\nset [i v] to [0]\nrepeat (length of [length v])\n    change [i v] by (1)\n    if <(item (I) of [type v]) = [1]> then\n        set pen color to (#2a00ff)\n    end\n    if <(item (I) of [type v]) = [2]> then\n        set pen color to (#ff0000)\n    end\n    if <(item (I) of [type v]) = [3]> then\n        set pen color to (#eeff00)\n    end\n    if <(item (I) of [type v]) = [4]> then\n        set pen color to (#04ff00)\n    end\n    pen up\n    set [x1 v] to (round ((item (I) of [xpos v]) - (Sx)))\n    set [y1 v] to (round ((item (I) of [ypos v]) - (Sy)))\n    set [x2 v] to (round (((item (I) of [xpos v]) + (item (I) of [length v])) - (Sx)))\n    set [y2 v] to (round (((item (I) of [ypos v]) + (item (I) of [length2 v])) - (Sy)))\n    set pen (saturation v) to (1000)\n    set pen size to (10)\n    set pen (brightness v) to (100)\n    pen up\n    go to x: (x1) y: (y1)\n    pen down\n    go to x: (x2) y: (y2)\n    pen up\nend\n\ndefine bello\nc:\nchange [falling? v] by (1)\nchange [yv v] by (-1)\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [-20]>>> then\n    change [xv v] by (-1.3)\nend\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[20] < (mouse x)>>> then\n    change [xv v] by (1.3)\nend\nchange [px v] by (round (Xv))\nc:\nif <(col) = [yes]> then\n    xc (Xv)\nend\nchange [py v] by (Yv)\nc:\nif <(col) = [yes]> then\n    yc (Yv)\nend\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [20]>>> and <(Falling?) < [5]>> then\n    set [yv v] to [10]\nend\nset [xv v] to ((Xv) * (.8))\nif <[-1000] > (Py)> then\n    r\nend\nchange [sx v] by (((Px) - (Sx)) / (7))\nchange [sy v] by (((Py) - (Sy)) / (7))\n:DDDDDD\n\ndefine c:\nset [i v] to [0]\nset [col v] to [no]\nrepeat (length of [length v])\n    change [i v] by (1)\n    hi (Px) (Py) (item (I) of [xpos v]) (item (I) of [ypos v]) ((item (I) of [xpos v]) + (item (I) of [length v])) ((item (I) of [ypos v]) + (item (I) of [length2 v])) [22] [23]\n    if <(my variable) = [1]> then\n        if <(item (I) of [type v]) = [1]> then\n            set [col v] to [yes]\n        end\n        stop [this script v]\n    end\nend\n\ndefine :) (x) (y)\nset pen color to (#fa00ff)\nset pen (brightness v) to (br)\nchange pen (color v) by ((br) / (-2))\nset pen size to (6)\npen up\ngo to x: ((x) - (15)) y: ((y) - (15))\npen down\ngo to x: ((x) - (-15)) y: ((y) - (15))\ngo to x: ((x) - (-15)) y: ((y) - (-15))\ngo to x: ((x) - (15)) y: ((y) - (-15))\ngo to x: ((x) - (15)) y: ((y) - (15))\n\ndefine (x) (x2) (y) (y2) (t)\nadd (round (x)) to [xpos v]\nadd (round (y)) to [ypos v]\nadd (round ((x2) - (x))) to [length v]\nadd (round ((y2) - (y))) to [length2 v]\nadd (round (t)) to [type v]\n\ndefine r\nset [falling? v] to [99]\nset [xv v] to [0]\nset [px v] to [0]\nset [py v] to [90]\nset [yv v] to [0]\nplatter\n\ndefine platter\ndelete all of [length v]\ndelete all of [length2 v]\ndelete all of [type v]\ndelete all of [xpos v]\ndelete all of [ypos v]\nif <(Lvl) = [1]> then\n    [-100] [170] [0] [0] [1]\n    [100] [170] [10] [10] [2]\n    [250] [300] [0] [0] [3]\n    [250] [300] [100] [100] [4]\nend\nif <(Lvl) = [2]> then\n    [-50] [-50] [-50] [0] [1]\n    [-50] [50] [0] [0] [1]\n    [-50] [50] [-50] [-50] [1]\n    [50] [50] [0] [-50] [1]\n    [150] [250] [50] [50] [1]\n    [150] [150] [0] [50] [1]\n    [150] [250] [0] [0] [1]\n    [250] [250] [50] [0] [1]\n    [450] [400] ((([sin v] of ((timer) * (150)) ) * (10)) + (100)) ((([sin v] of ((timer) * (150)) ) * (10)) + (120)) [1]\n    [500] [500] [-300] [-300] [4]\n    [490] [490] [-290] [-290] [2]\nend\nif <(Lvl) = [3]> then\n    [380] [100000] [0] [0] [1]\n    [-50] [50] [120] [120] [1]\n    [-50] [-50] [0] [120] [1]\n    [-50] [50] [0] [0] [1]\n    [150] [100] [10] [10] [3]\n    [180] [180] [0] [-350] [1]\n    [210] [250] [10] [10] [3]\n    [340] [310] [10] [10] [3]\n    [380] [380] [-200] [0] [1]\n    [280] [280] [-200] [0] [1]\n    [50] [380] [120] [120] [2]\n    [-100] [-50] [-350] [-350] [1]\n    [-100] [-200] [-350] [-690] [1]\n    [-110] [-110] [-340] [-340] [2]\n    [-160] [-160] [-500] [-500] [2]\n    [-130] [-130] [-400] [-400] [2]\n    [-210] [-210] [-690] [-690] [4]\nend\nif <(Lvl) = [4]> then\n    [0] [0] [0] [-990] [1]\n    [10] [10] [-50] [-100] [2]\n    [0] [-100] [0] [0] [1]\n    [-100] [-100] [0] [120] [1]\n    [-100] [120] [120] [120] [1]\n    [10] [10] [-190] [-240] [3]\n    [10] [100] [-245] [-245] [2]\n    [0] [110] [-260] [-260] [1]\n    [8] [8] [-350] [-350] [3]\n    [80] [80] [-270] [-270] [4]\nend\nif <(Lvl) = [5]> then\n    [0] [0] [0] [0] [1]\n    [0] [0] [-690] [-690] [4]\nend\nif <(Lvl) = [6]> then\n    [-100] [800] [0] [0] [1]\n    [85] [85] ((([sin v] of ((timer) * (300)) ) * (40)) + (50)) [200] [2]\n    [150] [150] ((([sin v] of ((timer) * (300)) ) * (pick random (30) to (50))) + (pick random (50) to (90))) [200] [2]\n    [200] [250] [10] [10] [2]\n    [400] [400] ((([tan v] of ((timer) * (250)) ) * (10)) + (50)) ((([tan v] of ((timer) * (250)) ) * (10)) + (150)) [2]\n    [550] [550] ((([tan v] of (((timer) + (659)) * (100)) ) * (10)) + (50)) ((([tan v] of (((timer) + (659)) * (100)) ) * (10)) + (150)) [2]\n    [650] [650] ((([tan v] of (((timer) + (300)) * (100)) ) * (10)) + (50)) ((([tan v] of (((timer) + (300)) * (100)) ) * (10)) + (150)) [2]\n    [800] [800] [0] [100] [4]\nend\nif <(Lvl) = [7]> then\n    [-50] [100] [0] [0] [1]\n    [100] [300] [0] [230] [1]\n    [150] [150] [100] [59] [2]\n    [250] [250] [176] [215] [2]\n    [175] [175] [183] [215] [3]\n    [175] [175] [220] [220] [2]\n    [390] [500] [355] [482] [1]\n    [570] [686] [-690] [-690] [4]\nend\nif <(Lvl) = [8]> then\n    [-100] [100] [0] [0] [1]\nend\n\ndefine xc (x)\nif <(col) = [yes]> then\n    repeat (7)\n        change [py v] by (1)\n        c:\n        if <not <(col) = [yes]>> then\n            stop [this script v]\n        end\n    end\n    change [py v] by (-7)\n    repeat until <not <(col) = [yes]>>\n        if <(x) > [0]> then\n            change [px v] by (-1)\n        else\n            change [px v] by (1)\n        end\n        c:\n    end\n    if <<<<<mouse down?> and <(mouse x) > [20]>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> or <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <[-20] > (mouse x)>>>> and <<<mouse down?> and <(mouse y) > [20]>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>>> then\n        if <(x) > [0]> then\n            if <<<mouse down?> and <(mouse x) > [20]>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n                set [xv v] to [-16]\n            end\n        else\n            if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <[-20] > (mouse x)>>> then\n                set [xv v] to [16]\n            end\n        end\n        set [yv v] to [12]\n    else\n        set [xv v] to [0]\n    end\nend\n\ndefine yc (y)\nrepeat until <not <(col) = [yes]>>\n    if <(y) > [0]> then\n        change [py v] by (-1)\n        set [falling? v] to [9]\n    else\n        change [py v] by (1)\n        set [falling? v] to [0]\n    end\n    c:\nend\nset [yv v] to [0]\n\ndefine gback\ngo to x: (0) y: (0)\nset pen color to (#020025)\nset pen size to (603)\npen down\npen up\n\ndefine qwertyuiop\nbroadcast (Tick v)\n\ndefine thegame\nqwertyuiop\nadd (Py) to [pyl v]\nadd (Px) to [pxl v]\nerase all\npen up\nset pen size to (2)\nif <(length of [pxl v]) > [7]> then\n    delete (1) of [pxl v]\n    delete (1) of [pyl v]\nend\nset [fps v] to (round ((1) / ((timer) - (prev. timer))))\nset [prev. timer v] to (timer)\n:D\nbello\nqwertyuiop\n\nwhen I receive [tick v]\nqwertyuiop\nthegame\nqwertyuiop\n\ndefine good stuf\nif <(Resolution) > [1]> then\n    set [i v] to [0]\n    repeat ((length of [pyl v]) - ())\n        set [br v] to ((((I) - (-1.5)) * (5)) + (25))\n        change [i v] by (1)\n        if <not <<(round ((item (I) of [pyl v]) - (Sy))) = (round ((Py) - (Sy)))> and <(round ((item (I) of [pxl v]) - (Sx))) = (round ((Px) - (Sx)))>>> then\n            :) (round ((item (I) of [pxl v]) - (Sx))) (round ((item (I) of [pyl v]) - (Sy)))\n        end\n    end\nend\n(round ((Px) - (Sx))) (round ((Py) - (Sy)))\n\ndefine penlite\nset [i v] to [0]\nrepeat (length of [length v])\n    change [i v] by (1)\n    if <(item (I) of [type v]) = [1]> then\n        set pen color to (#1000ff)\n    end\n    if <(item (I) of [type v]) = [2]> then\n        set pen color to (#ff0000)\n    end\n    if <(item (I) of [type v]) = [3]> then\n        set pen color to (#7d8600)\n    end\n    if <(item (I) of [type v]) = [4]> then\n        set pen color to (#04ff00)\n    end\n    pen up\n    set [x1 v] to (round ((item (I) of [xpos v]) - (Sx)))\n    set [y1 v] to (round ((item (I) of [ypos v]) - (Sy)))\n    set [x2 v] to (round (((item (I) of [xpos v]) + (item (I) of [length v])) - (Sx)))\n    set [y2 v] to (round (((item (I) of [ypos v]) + (item (I) of [length2 v])) - (Sy)))\n    set pen size to ((([sin v] of ((timer) * (170)) ) * (2)) + (18))\n    set pen (brightness v) to (((([sin v] of (((timer) + (359)) * (170)) ) * (15)) + (35)) - ())\n    pen up\n    go to x: (x1) y: (y1)\n    pen down\n    go to x: (x2) y: (y2)\n    pen up\nend\n\ndefine (x) (y)\nset pen color to (#fa00ff)\nset pen (brightness v) to (br)\nchange pen (color v) by ((br) / (-2))\nset pen size to (6)\npen up\ngo to x: ((x) - (15)) y: ((y) - (15))\npen down\ngo to x: ((x) - (-15)) y: ((y) - (15))\ngo to x: ((x) - (-15)) y: ((y) - (-15))\ngo to x: ((x) - (15)) y: ((y) - (-15))\ngo to x: ((x) - (15)) y: ((y) - (15))\nset pen size to (4)\npen up\ngo to x: ((x) - (5)) y: ((y) - (-5))\npen down\ngo to x: ((x) - (5)) y: ((y) - (2))\npen up\ngo to x: ((x) - (-5)) y: ((y) - (-5))\npen down\ngo to x: ((x) - (-5)) y: ((y) - (2))\n\ndefine :DDDDDD\nset [i v] to [0]\nset [col v] to [no]\nrepeat (length of [length v])\n    change [i v] by (1)\n    hi (Px) (Py) (item (I) of [xpos v]) (item (I) of [ypos v]) ((item (I) of [xpos v]) + (item (I) of [length v])) ((item (I) of [ypos v]) + (item (I) of [length2 v])) [22] [23]\n    if <(my variable) = [1]> then\n        if <(item (I) of [type v]) = [1]> then\n    end\nend\n\ndefine text\nif <(Lvl) = [1]> then\n    abc [hi!] [0] [100] [10] [115] [100] [4] [.5] [.75] [28]\nend\nif <(Lvl) = [2]> then\n    abc [Welcome to:] [-170] [150] [10] [115] [100] [4] [.5] [.75] [28]\n    abc [vortex] [150] [150] [15] [140] [70] [5] [.6] [.75] [39]\nend\nif <(Lvl) = [3]> then\n    abc [^] [65] [90] [10] [115] [100] [4] [.8] [-2] [28]\nend\nif <(Lvl) = [4]> then\n    abc [good luck \)] [-170] [170] [10] [115] [100] [4] [.5] [.75] [28]\n    abc [:\)] [127] [170] [10] [115] [100] [4] [.5] [.75] []\nend\nif <(Lvl) = [5]> then\n    abc [where to now?] [-170] [100] [10] [115] [100] [4] [.5] [.75] [28]\nend\nif <(Lvl) = [6]> then\n    abc [timing is key] [-150] [-60] [10] [115] [100] [4] [.5] [.75] [28]\n    abc [tan^] [430] [100] [10] [115] [100] [4] [.5] [.75] [28]\n    abc [:\)] [580] [100] [10] [115] [100] [4] [.5] [.75] [2]\nend\nif <(Lvl) = [7]> then\n    abc [drop] [580] [500] [10] [115] [100] [4] [.5] [.75] [28]\nend\nif <(Lvl) = [8]> then\n    abc [the end] [-150] [100] [20] [115] [100] [5] [.5] [.75] [45]\nend\n\ndefine DoThEpEnStUfF\ntexturz\nerase all\nset [xpos v] to [0]\nset [loops v] to [0]\nset [br v] to [0]\nrepeat (100)\n    change [loops v] by (((40) - (loops)) / (30))\n    change [xpos v] by (((-220) - (xpos)) / (30))\n    erase all\n    change [br v] by (((100) - (br)) / (30))\n    pen up\n    set pen size to (600)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    pen down\n    pen up\n    abc [vor] (xpos) [0] (loops) (((loops) * (-2)) + (10)) (br) ((loops) / (5)) [.5] [.68] ((loops) / (.5))\n    abc [tex] (((xpos) * (.1)) + (0)) [0] (loops) (((loops) * (-2)) + (10)) (br) ((loops) / (5)) [.5] [.68] ((loops) / (.49))\nend\nrepeat (50)\n    change [loops v] by (((40) - (loops)) / (30))\n    change [xpos v] by (((-220) - (xpos)) / (30))\n    erase all\n    change [br v] by (((0) - (br)) / (15))\n    pen up\n    set pen size to (600)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    pen down\n    pen up\n    abc [vor] (xpos) [0] (loops) (((loops) * (-2)) + (10)) (br) ((loops) / (5)) [.5] [.68] ((loops) / (.5))\n    abc [tex] (((xpos) * (.1)) + (0)) [0] (loops) (((loops) * (-2)) + (10)) (br) ((loops) / (5)) [.5] [.68] ((loops) / (.49))\nend\nwait (.3) seconds\nset [size v] to [0]\nrepeat until <(round (size)) = [597]>\n    erase all\n    change [size v] by (((597) - (size)) / (10))\n    pen up\n    set pen size to (600)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    pen down\n    pen up\n    pen up\n    set pen color to (#0000ff)\n    go to x: (0) y: (0)\n    set pen size to (size)\n    pen down\n    pen up\nend\ndelete all of [squarecolor v]\ndelete all of [sqaredirection v]\ndelete all of [squaresize v]\ndelete all of [squarex v]\ndelete all of [squarey v]\nswitch costume to (costume2 v)\nset size to (9999999999999999999999991e+7799999999999999) %\nswitch costume to (costume1 v)\nset [resolution v] to [3]\nset [prev. timer v] to [0]\ndelete all of [pxl v]\ndelete all of [pyl v]\nset [lvl v] to [1]\nset [sy v] to [0]\nset [sx v] to [0]\nr\nset [transparency v] to [0]\nset [loops v] to [0]\nrepeat (20)\n    change [loops v] by (1)\n    erase all\n    set pen (transparency v) to (0)\n    add (Px) to [pxl v]\n    add (Py) to [pyl v]\n    if <(length of [pxl v]) > [7]> then\n        delete (1) of [pxl v]\n        delete (1) of [pyl v]\n    end\n    :D\n    bello\n    change [transparency v] by (5)\n    pen up\n    set pen color to (#0000ff)\n    go to x: (0) y: (0)\n    set pen size to (size)\n    set pen (transparency v) to (transparency)\n    pen down\n    pen up\nend\nforever\n    qwertyuiop\nend\n\ndefine texturz\nerase all\nset [xpos v] to [0]\nset [loops v] to [0]\nset [br v] to [0]\nrepeat (1)\n    change [loops v] by (((40) - (loops)) / (30))\n    change [xpos v] by (((-220) - (xpos)) / (30))\n    erase all\n    change [br v] by (((100) - (br)) / (30))\nend\nrepeat (1)\n    change [loops v] by (((40) - (loops)) / (30))\n    change [xpos v] by (((-220) - (xpos)) / (30))\n    erase all\n    change [br v] by (((0) - (br)) / (15))\nend\nset [size v] to [0]\nrepeat until <(round (size)) = (round (size))>\n    erase all\n    change [size v] by (((597) - (size)) / (10))\n    gback\n    pen up\n    set pen color to (#0015ff)\n    go to x: (0) y: (0)\n    set pen size to (size)\n    pen down\n    pen up\nend\ndelete all of [squarecolor v]\ndelete all of [sqaredirection v]\ndelete all of [squaresize v]\ndelete all of [squarex v]\ndelete all of [squarey v]\nswitch costume to (costume2 v)\nset size to (19999999999999999999999999e+779999999) %\nswitch costume to (costume1 v)\nset [resolution v] to [3]\nset [prev. timer v] to [0]\ndelete all of [pxl v]\ndelete all of [pyl v]\nset [lvl v] to [1]\nset [sy v] to [0]\nset [sx v] to [0]\nr\nset [transparency v] to [0]\nset [loops v] to [0]\nrepeat (1)\n    change [loops v] by (1)\n    erase all\n    set pen (transparency v) to (0)\n    add (Px) to [pxl v]\n    add (Py) to [pyl v]\n    if <(length of [pxl v]) > [7]> then\n        delete (1) of [pxl v]\n        delete (1) of [pyl v]\n    end\n    :D\n    bello\n    change [transparency v] by (5)\nend\npen up\nset pen color to (#000000)\ngo to x: (0) y: (0)\nset pen size to (600)\npen down\npen up\n\ndefine qwerty\nerase all\ngback\ndelete all of [length v]\ndelete all of [length2 v]\ndelete all of [xpos v]\ndelete all of [ypos v]\ndelete all of [type v]\ndelete all of [sqaredirection v]\ndelete all of [squarecolor v]\ndelete all of [squaresize v]\ndelete all of [squarex v]\ndelete all of [squarey v]\nadd [27] to [sqaredirection v]\nadd [269] to [sqaredirection v]\nadd [239] to [sqaredirection v]\nadd [309] to [sqaredirection v]\nadd [129] to [sqaredirection v]\nadd [80] to [squarecolor v]\nadd [63] to [squarecolor v]\nadd [90] to [squarecolor v]\nadd [85] to [squarecolor v]\nadd [70] to [squarecolor v]\nadd [147] to [squaresize v]\nadd [141] to [squaresize v]\nadd [140] to [squaresize v]\nadd [98] to [squaresize v]\nadd [81] to [squaresize v]\nadd [-179] to [squarex v]\nadd [-3] to [squarex v]\nadd [-93] to [squarex v]\nadd [120] to [squarex v]\nadd [-131] to [squarex v]\nadd [-56] to [squarey v]\nadd [97] to [squarey v]\nadd [176] to [squarey v]\nadd [-130] to [squarey v]\nadd [22] to [squarey v]\naWeSoMe\n[-300] [70] [0] [0] [1]\n[70] [70] [0] [-200] [1]\n[70] [70] [0] [-200] [1]\n[130] [220] [-30] [-30] [2]\npen dirt\nabc [vortex] [-227] [120] [40] [10] [100] [9] [.5] [.68] [80]\ngood stuf\n\nwhen flag clicked\nwait (8) seconds\nforever\n    play sound [Popsicle v] until done\nend\n\n@Thumbnail\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\n\n
>>>Instructions\n    -WASD, Arrow Keys, or Mobile to move.\n    -Hold jump to jump higher\n    -Don't touch red\n    -Yellow is bouncy\n    -Green is a portal\n    -Blue is ground\n\nSorry if it lags, but phosphorus and forkphorus can't load this amount of awesomeness.\n\n\nAnd DO NOT comment that any of the levels are unfinished or impossible, I made sure all levels but the end one had a perfectly accessible portal.  It may be hidden, but it is there.  Also DO NOT advertise, ask for f4f, spam, or say this is laggy or hard unless you can tell me how to improve it.