Blue-Gray Sky ~ a pen platformer


@Stage\n\nwhen flag clicked\nset volume to (100) %\nbroadcast (mobile v)\nrepeat until <(\[G\] level) = [9]>\n    play sound [Magic Forest v] until done\nend\n\nwhen [m v] key pressed\nif <not <(\[G\] level) = [9]>> then\n    set volume to ((100) - (volume)) %\nend\n\nwhen I receive [end v]\nrepeat (50)\n    change volume by (-2)\nend\n\nrepeat until <(\[G\] level) = [9]>\nend\n\n@Pen Platformer Engine - made by -ShadowOfTheFuture-\n\ndefine Draw line (x1) (y1) (x2) (y2) size (s) collision? (c)\nif <<(x1) = (x2)> and <not <(c) = [0]>>> then\n    Draw line (x1) (y1) ((x2) + (0.001)) (y2) size (s) collision? (c)\n    stop [this script v]\nend\nif <<(y1) = (y2)> and <not <(c) = [0]>>> then\n    Draw line (x1) (y1) (x2) ((y2) + (0.001)) size (s) collision? (c)\n    stop [this script v]\nend\nset pen size to (s)\ngo to x: (x1) y: (y1)\npen down\ngo to x: (x2) y: (y2)\npen up\nif <not <(c) = [0]>> then\n    add (x1) to [\[g\] list v]\n    add (y1) to [\[g\] list v]\n    add (x2) to [\[g\] list v]\n    add (y2) to [\[g\] list v]\n    add (c) to [\[g\] list v]\nend\n\nwhen flag clicked\ndelete all of [\[g\] background v]\ndelete all of [\[g\] timer v]\nadd [0] to [\[g\] timer v]\nadd [0] to [\[g\] timer v]\nset [\[g\] fade v] to [1]\nset [\[g\] level v] to [1]\nReset\nforever\n    erase all\n    delete all of [\[g\] list v]\n    if <(\[G\]\[P\] ded ;-;) = [0]> then\n        Player\n    end\n    if <not <[\[g\]\[p\] particles v] contains [-10000]?>> then\n        replace item (2) of [\[g\] timer v] with (timer)\n    end\n    if <(timer) > ((item (2) of [\[g\] timer v]) + (0.5))> then\n        Reset\n    end\n    set pen color to ((((150) * (65536)) + ((180) * (256))) + (210))\n    Draw line [-240] [0] [240] [0] size [360] collision? [0]\n    Background\n    set pen color to ((5268600) + ())\n    Levels\n    broadcast (level # v)\n    set pen color to ((((50) * (65536)) + ((75) * (256))) + (100))\n    if <(\[G\]\[P\] ded ;-;) = [0]> then\n        Check\n    else\n        Particles\n    end\n    if <<(item (5) of [\[g\]\[p\] pos v]) > [-4]> and <<<mouse down?> and <(mouse y) > [50]>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>>> then\n        replace item (4) of [\[g\]\[p\] pos v] with [9.5]\n        replace item (5) of [\[g\]\[p\] pos v] with [-4]\n    end\n    if <(\[G\]\[P\] ded ;-;) = [-1]> then\n        if <(\[G\] fade) < [250]> then\n            change [\[g\] fade v] by (10)\n        else\n            change [\[g\] level v] by (1)\n            Reset\n        end\n    else\n        if <[5] < (\[G\] fade)> then\n            change [\[g\] fade v] by (-10)\n        else\n            set [\[g\] fade v] to [1]\n        end\n    end\n    Fade overlay\n    if <(\[G\] level) = [9]> then\n        stop [other scripts in sprite v]\n        broadcast (end v)\n        stop [this script v]\n    end\nend\n\ndefine Check\nset [\[g\] i v] to [0]\nset [\[g\]\[c\] collision? v] to [0]\nrepeat ((length of [\[g\] list v]) / (5))\n    set [\[g\]\[c\] m v] to (((item ((\[G\] i) + (4)) of [\[g\] list v]) - (item ((\[G\] i) + (2)) of [\[g\] list v])) / ((item ((\[G\] i) + (3)) of [\[g\] list v]) - (item ((\[G\] i) + (1)) of [\[g\] list v])))\n    set [\[g\]\[c\] b v] to ((item ((\[G\] i) + (2)) of [\[g\] list v]) - ((\[G\]\[C\] m) * (item ((\[G\] i) + (1)) of [\[g\] list v])))\n    Get distance (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v]) to ((((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m))) - (\[G\]\[C\] b)) / ((\[G\]\[C\] m) + ((1) / (\[G\]\[C\] m)))) (((\[G\]\[C\] m) * ((((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m))) - (\[G\]\[C\] b)) / ((\[G\]\[C\] m) + ((1) / (\[G\]\[C\] m))))) + (\[G\]\[C\] b))\n    Test\n    if <(\[G\]\[C\] dist) < [6]> then\n        set [\[g\]\[c\] collision? v] to [1]\n    end\n    if <(\[G\]\[C\] collision?) = [1]> then\n        if <(item ((\[G\] i) + (5)) of [\[g\] list v]) = [1]> then\n            if <<not <([abs v] of (\[G\]\[C\] m) ) < [2]>> or <(item (2) of [\[g\]\[p\] pos v]) < (((\[G\]\[C\] m) * (item (1) of [\[g\]\[p\] pos v])) + (\[G\]\[C\] b))>> then\n                replace item (1) of [\[g\]\[p\] pos v] with ((item (1) of [\[g\]\[p\] pos v]) - (item (3) of [\[g\]\[p\] pos v]))\n                replace item (3) of [\[g\]\[p\] pos v] with [0]\n            end\n            if <([abs v] of (\[G\]\[C\] m) ) < [10]> then\n                replace item (2) of [\[g\]\[p\] pos v] with (((item (2) of [\[g\]\[p\] pos v]) + ([abs v] of ((\[G\]\[C\] m) * (item (3) of [\[g\]\[p\] pos v])) )) - (item (4) of [\[g\]\[p\] pos v]))\n                replace item (4) of [\[g\]\[p\] pos v] with [0]\n                if <not <(item (2) of [\[g\]\[p\] pos v]) < (((\[G\]\[C\] m) * (item (1) of [\[g\]\[p\] pos v])) + (\[G\]\[C\] b))>> then\n                    replace item (5) of [\[g\]\[p\] pos v] with [0]\n                end\n            end\n        end\n        if <(item ((\[G\] i) + (5)) of [\[g\] list v]) = [2]> then\n            Die\n            stop [this script v]\n        end\n        if <(item ((\[G\] i) + (5)) of [\[g\] list v]) = [3]> then\n            Yay\n            stop [this script v]\n        end\n    end\n    set [\[g\]\[c\] collision? v] to [0]\n    change [\[g\] i v] by (5)\nend\nDraw line (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v]) (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v]) size [12] collision? [0]\n\nreplace item (4) of [\[g\]\[p\] pos v] with ((9.5) * <<<<<mouse down?> and <(mouse y) > [50]>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> and > and <not <(item (2) of [\[g\]\[p\] pos v]) < (((\[G\]\[C\] m) * (item (1) of [\[g\]\[p\] pos v])) + (\[G\]\[C\] b))>>>)\n\nset pen color to (((65536) + (257)) * (100))\n\nDraw line (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v]) ((((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m))) - (\[G\]\[C\] b)) / ((\[G\]\[C\] m) + ((1) / (\[G\]\[C\] m)))) (((\[G\]\[C\] m) * ((((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m))) - (\[G\]\[C\] b)) / ((\[G\]\[C\] m) + ((1) / (\[G\]\[C\] m))))) + (\[G\]\[C\] b)) size [2] collision? [0]\n\nset pen color to (() + ())\n\ndefine Get distance (x1) (y1) to (x2) (y2)\nset [\[g\]\[c\] dist v] to ([sqrt v] of ((((x1) - (x2)) * ((x1) - (x2))) + (((y1) - (y2)) * ((y1) - (y2)))) )\n\ndefine Test\nif <((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v]))) < ((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m)))> then\n    if <((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v]))) < ((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v])))> then\n        Get distance (item ((\[G\] i) + (3)) of [\[g\] list v]) (item ((\[G\] i) + (4)) of [\[g\] list v]) to (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v])\n    end\nend\nif <((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v]))) > ((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m)))> then\n    if <((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v]))) > ((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v])))> then\n        Get distance (item ((\[G\] i) + (3)) of [\[g\] list v]) (item ((\[G\] i) + (4)) of [\[g\] list v]) to (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v])\n    end\nend\nif <((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v]))) < ((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m)))> then\n    if <((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v]))) < ((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v])))> then\n        Get distance (item ((\[G\] i) + (1)) of [\[g\] list v]) (item ((\[G\] i) + (2)) of [\[g\] list v]) to (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v])\n    end\nend\nif <((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v]))) > ((item (2) of [\[g\]\[p\] pos v]) + ((item (1) of [\[g\]\[p\] pos v]) / (\[G\]\[C\] m)))> then\n    if <((item ((\[G\] i) + (4)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (3)) of [\[g\] list v]))) > ((item ((\[G\] i) + (2)) of [\[g\] list v]) - (((-1) / (\[G\]\[C\] m)) * (item ((\[G\] i) + (1)) of [\[g\] list v])))> then\n        Get distance (item ((\[G\] i) + (1)) of [\[g\] list v]) (item ((\[G\] i) + (2)) of [\[g\] list v]) to (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v])\n    end\nend\n\ndefine Player\nreplace item (3) of [\[g\]\[p\] pos v] with ((0.7) * (((1.7) * (<<<mouse down?> and <(mouse x) > [150]>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> - <<<<mouse down?> and <(mouse x) < [-150]>> or <key (left arrow v) pressed?>> or <key (a v) pressed?>>)) + (item (3) of [\[g\]\[p\] pos v])))\nreplace item (4) of [\[g\]\[p\] pos v] with ((0.96) * ((item (4) of [\[g\]\[p\] pos v]) - (1)))\nreplace item (1) of [\[g\]\[p\] pos v] with ((item (3) of [\[g\]\[p\] pos v]) + (item (1) of [\[g\]\[p\] pos v]))\nreplace item (2) of [\[g\]\[p\] pos v] with ((item (4) of [\[g\]\[p\] pos v]) + (item (2) of [\[g\]\[p\] pos v]))\nreplace item (5) of [\[g\]\[p\] pos v] with ((item (5) of [\[g\]\[p\] pos v]) - (1))\nif <<key (r v) pressed?> or <<mouse down?> and <[-100] > (mouse y)>>> then\n    Reset\nend\nif <(item (2) of [\[g\]\[p\] pos v]) < [-180]> then\n    Die\nend\nreplace item (2) of [\[g\] timer v] with (timer)\n\ndefine Reset\ndelete all of [\[g\]\[p\] particles v]\ndelete all of [\[g\]\[p\] pos v]\nadd [-200] to [\[g\]\[p\] pos v]\nadd [-100] to [\[g\]\[p\] pos v]\nadd [0] to [\[g\]\[p\] pos v]\nadd [0] to [\[g\]\[p\] pos v]\nadd [0] to [\[g\]\[p\] pos v]\nset [\[g\]\[p\] ded ;-; v] to [0]\n\ndefine Die\nset [\[g\]\[p\] ded ;-; v] to [1]\nif <(item (2) of [\[g\]\[p\] pos v]) < [-180]> then\n    replace item (2) of [\[g\]\[p\] pos v] with [-180]\nend\nAdd particles (item (1) of [\[g\]\[p\] pos v]) (item (2) of [\[g\]\[p\] pos v]) ((2) + ([abs v] of ((item (4) of [\[g\]\[p\] pos v]) / (2)) ))\n\nReset\n\nDraw line [-130] [-155] [-128] [-145] size [2] collision? [2]\nDraw line [-126] [-155] [-128] [-145] size [2] collision? [2]\nDraw line [-125] [-155] [-123] [-145] size [2] collision? [2]\nDraw line [-121] [-155] [-123] [-145] size [2] collision? [2]\n\ndefine Spikes (x) (y) (#) direction (dir)\nset pen color to ((16777216) + (0))\nDraw line ((x) + (2)) ((y) + ((dir) * (10))) ((x) + (((#) * (5)) - (3))) ((y) + ((dir) * (10))) size [2] collision? [2]\nDraw line ((x) + (((#) * (5)) - (1))) (y) ((x) + (((#) * (5)) - (3))) ((y) + ((dir) * (10))) size [2] collision? [2]\nDraw line (x) (y) ((x) + (2)) ((y) + ((dir) * (10))) size [2] collision? [2]\ngo to x: (x) y: (y)\nset pen color to ((5268600) + ())\nrepeat (#)\n    Draw line (x position) (y position) ((x position) + (2)) ((y position) + ((dir) * (10))) size [2] collision? [0]\n    Draw line (x position) (y position) ((x position) + (2)) ((y position) - ((dir) * (10))) size [2] collision? [0]\n    change x by (1)\nend\n\ndefine Background\nset pen color to ((((140) * (65536)) + ((170) * (256))) + (200))\nset [\[g\] i v] to [0]\nrepeat ((length of [\[g\] background v]) / (2))\n    Draw line (item ((\[G\] i) + (1)) of [\[g\] background v]) [180] ((item ((\[G\] i) + (1)) of [\[g\] background v]) + (-50)) [-180] size (item ((\[G\] i) + (2)) of [\[g\] background v]) collision? [0]\n    if <[-300] > (item ((\[G\] i) + (1)) of [\[g\] background v])> then\n        replace item ((\[G\] i) + (1)) of [\[g\] background v] with [null]\n        replace item ((\[G\] i) + (2)) of [\[g\] background v] with [null]\n    else\n        replace item ((\[G\] i) + (1)) of [\[g\] background v] with ((-5) + (item ((\[G\] i) + (1)) of [\[g\] background v]))\n    end\n    change [\[g\] i v] by (2)\nend\nset [\[g\] i v] to (length of [\[g\] background v])\nrepeat (length of [\[g\] background v])\n    if <(item (\[G\] i) of [\[g\] background v]) = [null]> then\n        delete (\[G\] i) of [\[g\] background v]\n    end\n    change [\[g\] i v] by (-1)\nend\nif <(timer) > (item (1) of [\[g\] timer v])> then\n    add [300] to [\[g\] background v]\n    add (pick random (20) to (80)) to [\[g\] background v]\n    replace item (1) of [\[g\] timer v] with ((timer) + (pick random (1.5) to (3)))\nend\n\ndefine Particles\nset pen size to (4)\nset [\[g\] i v] to [0]\nrepeat ((length of [\[g\]\[p\] particles v]) / (4))\n    go to x: (item ((\[G\] i) + (1)) of [\[g\]\[p\] particles v]) y: (item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v])\n    pen down\n    pen up\n    if <(item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v]) < [-180]> then\n        if <(item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v]) < [-3]> then\n            replace item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v] with ((item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v]) * (-0.25))\n            replace item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v] with ((-180) + (item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v]))\n        else\n            replace item ((\[G\] i) + (1)) of [\[g\]\[p\] particles v] with [0]\n            replace item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v] with [-10000]\n            replace item ((\[G\] i) + (3)) of [\[g\]\[p\] particles v] with [0]\n            replace item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v] with [0]\n        end\n    else\n        replace item ((\[G\] i) + (1)) of [\[g\]\[p\] particles v] with ((item ((\[G\] i) + (1)) of [\[g\]\[p\] particles v]) + (item ((\[G\] i) + (3)) of [\[g\]\[p\] particles v]))\n        replace item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v] with ((item ((\[G\] i) + (2)) of [\[g\]\[p\] particles v]) + (item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v]))\n        replace item ((\[G\] i) + (3)) of [\[g\]\[p\] particles v] with ((0.96) * (item ((\[G\] i) + (3)) of [\[g\]\[p\] particles v]))\n        replace item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v] with ((-0.5) + (item ((\[G\] i) + (4)) of [\[g\]\[p\] particles v]))\n    end\n    change [\[g\] i v] by (4)\nend\n\ndefine Add particles (x) (y) (vel)\nrepeat (6)\n    set [\[g\]\[p\] particle v] to ((5) * (pick random (5) to (31)))\n    add (x) to [\[g\]\[p\] particles v]\n    add (y) to [\[g\]\[p\] particles v]\n    add ((vel) * ([cos v] of (\[G\]\[P\] particle) )) to [\[g\]\[p\] particles v]\n    add ((vel) * ([sin v] of (\[G\]\[P\] particle) )) to [\[g\]\[p\] particles v]\nend\n\nif <(\[G\]\[P\] ded ;-;) = [0]> then\nend\n\ndefine Levels\nif <(\[G\] level) = [1]> then\n    [L] 1\nend\nif <(\[G\] level) = [2]> then\n    [L] 2\nend\nif <(\[G\] level) = [3]> then\n    [L] 3\nend\nif <(\[G\] level) = [4]> then\n    [L] 4\nend\nif <(\[G\] level) = [5]> then\n    [L] 5\nend\nif <(\[G\] level) = [6]> then\n    [L] 6\nend\nif <(\[G\] level) = [7]> then\n    [L] 7\nend\nif <(\[G\] level) = [8]> then\n    [L] 8\nend\n\ndefine [L] 1\nDraw line [-220] [-150] [-170] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-150] [-155] [-170] [-150] size [2] collision? [1]\nDraw line [-150] [-155] [-50] [-155] size [2] collision? [1]\nDraw line [-52] [-160] [-50] [-155] size [2] collision? [1]\nDraw line [-52] [-160] [-50] [-170] size [2] collision? [1]\nDraw line [-52] [-180] [-50] [-170] size [2] collision? [1]\nDraw line [0] [-160] [10] [-160] size [2] collision? [1]\nDraw line [0] [-160] [0] [-180] size [2] collision? [1]\nDraw line [10] [-160] [10] [-180] size [2] collision? [1]\nDraw line [60] [-160] [70] [-160] size [2] collision? [1]\nDraw line [60] [-160] [60] [-180] size [2] collision? [1]\nDraw line [70] [-160] [70] [-180] size [2] collision? [1]\nDraw line [120] [-155] [150] [-155] size [2] collision? [1]\nDraw line [170] [-150] [150] [-155] size [2] collision? [1]\nDraw line [170] [-150] [220] [-150] size [2] collision? [1]\nDraw line [120] [-155] [122] [-160] size [2] collision? [1]\nDraw line [120] [-170] [122] [-160] size [2] collision? [1]\nDraw line [120] [-170] [122] [-180] size [2] collision? [1]\nDraw line [220] [-150] [218] [-158] size [2] collision? [1]\nDraw line [220] [-168] [218] [-158] size [2] collision? [1]\nDraw line [220] [-168] [218] [-180] size [2] collision? [1]\nSpikes [-130] [-155] [4] direction [1]\nDoor [200] [-150] [1]\n\ndefine Door (x) (y) (dir)\nDraw line ((x) + ((10) * (dir))) ((y) + (20)) ((x) + ((10) * (dir))) (y) size [2] collision? [3]\nDraw line (x) (y) (x) ((y) + (20)) size [2] collision? [0]\nDraw line (x) ((y) + (20)) ((x) + ((10) * (dir))) ((y) + (20)) size [2] collision? [0]\n\ndefine Fade overlay\nset pen color to ((((150) * (65536)) + ((180) * (256))) + (((\[G\] fade) * (16777216)) + (210)))\nDraw line [-240] [0] [240] [0] size [360] collision? [0]\n\ndefine Yay\nset [\[g\]\[p\] ded ;-; v] to [-1]\n\nDraw line ((x) + ((10) * (dir))) ((y) + (20)) ((x) + ((10) * (dir))) (y) size [2] collision? [2]\n\ndefine [L] 2\nDraw line [-220] [-150] [-150] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-150] [-150] [-110] [-140] size [2] collision? [1]\nDraw line [-50] [-140] [-110] [-140] size [2] collision? [1]\nDraw line [-50] [-140] [-52] [-150] size [2] collision? [1]\nDraw line [-49] [-165] [-52] [-150] size [2] collision? [1]\nDraw line [-49] [-165] [-52] [-180] size [2] collision? [1]\nSpikes [-110] [-140] [4] direction [1]\nDraw line [0] [-135] [10] [-135] size [2] collision? [1]\nDraw line [0] [-135] [0] [-180] size [2] collision? [1]\nDraw line [10] [-135] [10] [-180] size [2] collision? [1]\nDraw line [60] [-130] [70] [-130] size [2] collision? [1]\nDraw line [60] [-130] [60] [-180] size [2] collision? [1]\nDraw line [70] [-130] [70] [-180] size [2] collision? [1]\nDraw line [180] [-100] [250] [-100] size [2] collision? [1]\nDraw line [180] [-100] [170] [-125] size [2] collision? [1]\nDraw line [120] [-125] [170] [-125] size [2] collision? [1]\nSpikes [150] [-125] [4] direction [1]\nDraw line [120] [-125] [122] [-135] size [2] collision? [1]\nDraw line [122] [-135] [124] [-155] size [2] collision? [1]\nDraw line [122] [-170] [123] [-155] size [2] collision? [1]\nDraw line [122] [-170] [123] [-180] size [2] collision? [1]\nDraw line [250] [-100] [250] [-180] size [2] collision? [1]\nDraw line [120] [-75] [130] [-75] size [2] collision? [1]\nDraw line [120] [-75] [125] [-80] size [2] collision? [0]\nDraw line [130] [-75] [125] [-80] size [2] collision? [0]\nDraw line [60] [-70] [70] [-70] size [2] collision? [1]\nDraw line [60] [-70] [60] [-75] size [2] collision? [1]\nDraw line [70] [-70] [70] [-75] size [2] collision? [1]\nDraw line [65] [-80] [60] [-75] size [2] collision? [0]\nDraw line [65] [-80] [70] [-75] size [2] collision? [0]\nDraw line [0] [-65] [10] [-65] size [2] collision? [1]\nDraw line [0] [-65] [0] [-75] size [2] collision? [1]\nDraw line [10] [-65] [10] [-75] size [2] collision? [1]\nDraw line [5] [-80] [0] [-75] size [2] collision? [0]\nDraw line [5] [-80] [10] [-75] size [2] collision? [0]\nDraw line [-80] [-60] [-50] [-60] size [2] collision? [1]\nDraw line [-80] [-80] [-50] [-80] size [2] collision? [0]\nDraw line [-50] [-60] [-50] [-80] size [2] collision? [0]\nDraw line [-80] [-60] [-85] [-70] size [2] collision? [0]\nDraw line [-80] [-80] [-85] [-70] size [2] collision? [0]\nDoor [-70] [-60] [-1]\n\ndefine [L] 3\nDraw line [-220] [-150] [-120] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-120] [-150] [-122] [-158] size [2] collision? [1]\nDraw line [-120] [-168] [-122] [-158] size [2] collision? [1]\nDraw line [-120] [-168] [-122] [-180] size [2] collision? [1]\nDraw line [-120] [-165] [-105] [-155] size [2] collision? [1]\nDraw line [-120] [-165] [-110] [-175] size [2] collision? [1]\nDraw line [-90] [-180] [-110] [-175] size [2] collision? [1]\nDraw line [-85] [-165] [-105] [-155] size [2] collision? [1]\nDraw line [-85] [-165] [-90] [-180] size [2] collision? [1]\nSpikes [-135] [-150] [3] direction [1]\nSpikes [-15] [-140] [3] direction [1]\nDraw line [-30] [-140] [20] [-140] size [2] collision? [1]\nDraw line [-30] [-140] [-28] [-150] size [2] collision? [1]\nDraw line [-30] [-163] [-28] [-150] size [2] collision? [1]\nDraw line [-30] [-163] [-28] [-180] size [2] collision? [1]\nDraw line [30] [-130] [20] [-140] size [2] collision? [1]\nDraw line [30] [-110] [100] [-110] size [2] collision? [1]\nDraw line [30] [-130] [30] [-110] size [2] collision? [1]\nSpikes [30] [-80] [14] direction [-1]\nDraw line [30] [-80] [100] [-80] size [2] collision? [0]\nDraw line [30] [-60] [100] [-60] size [2] collision? [1]\nDraw line [30] [-60] [30] [-80] size [2] collision? [1]\nDraw line [100] [-60] [100] [-80] size [2] collision? [1]\nDraw line [-30] [-85] [-20] [-85] size [2] collision? [1]\nDraw line [-30] [-85] [-25] [-90] size [2] collision? [0]\nDraw line [-20] [-85] [-25] [-90] size [2] collision? [0]\nDraw line [160] [-65] [250] [-65] size [2] collision? [1]\nDraw line [98] [-120] [100] [-110] size [2] collision? [1]\nDraw line [98] [-120] [97] [-140] size [2] collision? [1]\nDraw line [99] [-160] [97] [-140] size [2] collision? [1]\nDraw line [99] [-160] [97] [-180] size [2] collision? [1]\nDraw line [160] [-65] [162] [-80] size [2] collision? [1]\nDraw line [163] [-110] [162] [-80] size [2] collision? [1]\nDraw line [163] [-110] [161] [-130] size [2] collision? [1]\nDraw line [162] [-155] [161] [-130] size [2] collision? [1]\nDraw line [162] [-155] [160] [-180] size [2] collision? [1]\nDraw line [250] [-65] [250] [-180] size [2] collision? [1]\nSpikes [175] [-65] [3] direction [1]\nDoor [200] [-65] [1]\n\ndefine [L] 4\nDraw line [-220] [-150] [20] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nSpikes [-160] [-150] [7] direction [1]\nSpikes [-80] [-150] [7] direction [1]\nDraw line [20] [-150] [18] [-158] size [2] collision? [1]\nDraw line [20] [-168] [18] [-158] size [2] collision? [1]\nDraw line [20] [-168] [18] [-180] size [2] collision? [1]\nDraw line [70] [-135] [80] [-135] size [2] collision? [1]\nDraw line [70] [-135] [70] [-180] size [2] collision? [1]\nDraw line [80] [-135] [80] [-180] size [2] collision? [1]\nDraw line [130] [-110] [220] [-110] size [2] collision? [1]\nDraw line [130] [-110] [132] [-120] size [2] collision? [0]\nDraw line [133] [-140] [132] [-120] size [2] collision? [1]\nDraw line [133] [-140] [131] [-155] size [2] collision? [1]\nDraw line [133] [-180] [131] [-155] size [2] collision? [1]\nDraw line [218] [-130] [220] [-110] size [2] collision? [1]\nDraw line [218] [-130] [220] [-155] size [2] collision? [1]\nDraw line [218] [-180] [220] [-155] size [2] collision? [1]\nSpikes [180] [-110] [8] direction [1]\nDraw line [70] [-85] [75] [-90] size [2] collision? [0]\nDraw line [80] [-85] [75] [-90] size [2] collision? [0]\nDraw line [70] [-85] [80] [-85] size [2] collision? [1]\nDraw line [-220] [-70] [20] [-70] size [2] collision? [1]\nDraw line [20] [-70] [20] [-85] size [2] collision? [1]\nDraw line [-220] [-70] [-220] [-85] size [2] collision? [1]\nDraw line [-160] [-90] [-220] [-85] size [2] collision? [0]\nDraw line [-160] [-90] [-100] [-85] size [2] collision? [0]\nDraw line [-40] [-90] [-100] [-85] size [2] collision? [0]\nDraw line [-40] [-90] [20] [-85] size [2] collision? [0]\nSpikes [-160] [-70] [7] direction [1]\nSpikes [-80] [-70] [7] direction [1]\nDraw line [-220] [10] [0] [10] size [2] collision? [1]\nDraw line [20] [10] [20] [-5] size [2] collision? [1]\nDraw line [-220] [10] [-220] [-5] size [2] collision? [1]\nDraw line [-160] [-10] [-220] [-5] size [2] collision? [0]\nDraw line [-160] [-10] [-100] [-5] size [2] collision? [1]\nDraw line [-40] [-10] [-100] [-5] size [2] collision? [1]\nDraw line [-40] [-10] [20] [-5] size [2] collision? [1]\nSpikes [-160] [10] [7] direction [1]\nSpikes [-80] [10] [7] direction [1]\nDraw line [-200] [-35] [-210] [-35] size [2] collision? [1]\nDraw line [-200] [-35] [-205] [-40] size [2] collision? [0]\nDraw line [-210] [-35] [-205] [-40] size [2] collision? [0]\nDraw line [20] [10] [0] [10] size [2] collision? [0]\nDoor [-190] [10] [-1]\n\ngo to x: (x) y: (y)\nrepeat (#)\n    Draw line (x position) (y position) ((x position) + (2)) ((y position) + ((dir) * (10))) size [2] collision? [2]\n    Draw line (x position) (y position) ((x position) + (2)) ((y position) - ((dir) * (10))) size [2] collision? [2]\n    change x by (1)\nend\n\ndefine [L] 5\nDraw line [-220] [-150] [-120] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-120] [-150] [-122] [-158] size [2] collision? [1]\nDraw line [-120] [-168] [-122] [-158] size [2] collision? [1]\nDraw line [-120] [-168] [-122] [-180] size [2] collision? [1]\nDraw line [120] [-150] [220] [-150] size [2] collision? [1]\nDraw line [120] [-150] [122] [-158] size [2] collision? [1]\nDraw line [120] [-168] [122] [-158] size [2] collision? [1]\nDraw line [120] [-168] [122] [-180] size [2] collision? [1]\nDraw line [220] [-150] [218] [-158] size [2] collision? [1]\nDraw line [220] [-168] [218] [-158] size [2] collision? [1]\nDraw line [220] [-168] [218] [-180] size [2] collision? [1]\nDraw line [-5] [-140] [5] [-140] size [2] collision? [1]\nDraw line [-5] [-140] [-5] [-180] size [2] collision? [1]\nDraw line [5] [-140] [5] [-180] size [2] collision? [1]\nDraw line [-65] [-145] [-55] [-145] size [2] collision? [1]\nDraw line [-65] [-145] [-65] [-180] size [2] collision? [1]\nDraw line [-55] [-145] [-55] [-180] size [2] collision? [1]\nDraw line [65] [-145] [55] [-145] size [2] collision? [1]\nDraw line [65] [-145] [65] [-180] size [2] collision? [1]\nDraw line [55] [-145] [55] [-180] size [2] collision? [1]\nDraw line [220] [-60] [120] [-60] size [2] collision? [1]\nDraw line [220] [-60] [222] [-70] size [2] collision? [1]\nDraw line [220] [-80] [222] [-70] size [2] collision? [0]\nDraw line [220] [-80] [170] [-85] size [2] collision? [0]\nDraw line [120] [-60] [118] [-70] size [2] collision? [1]\nDraw line [120] [-80] [118] [-70] size [2] collision? [0]\nDraw line [120] [-80] [170] [-85] size [2] collision? [0]\nDraw line [-220] [-60] [-120] [-60] size [2] collision? [1]\nDraw line [-220] [-60] [-222] [-70] size [2] collision? [1]\nDraw line [-220] [-80] [-222] [-70] size [2] collision? [0]\nDraw line [-220] [-80] [-170] [-85] size [2] collision? [0]\nDraw line [-120] [-60] [-118] [-70] size [2] collision? [1]\nDraw line [-120] [-80] [-118] [-70] size [2] collision? [0]\nDraw line [-120] [-80] [-170] [-85] size [2] collision? [0]\nSpikes [-180] [-60] [4] direction [1]\nSpikes [160] [-60] [4] direction [1]\nSpikes [-180] [-150] [4] direction [1]\nSpikes [160] [-150] [4] direction [1]\nDraw line [-65] [-60] [-55] [-60] size [2] collision? [1]\nDraw line [-65] [-60] [-65] [-85] size [2] collision? [0]\nDraw line [-55] [-60] [-55] [-85] size [2] collision? [0]\nDraw line [-60] [-90] [-55] [-85] size [2] collision? [0]\nDraw line [-60] [-90] [-65] [-85] size [2] collision? [0]\nDraw line [65] [-60] [55] [-60] size [2] collision? [1]\nDraw line [65] [-60] [65] [-85] size [2] collision? [0]\nDraw line [55] [-60] [55] [-85] size [2] collision? [0]\nDraw line [60] [-90] [55] [-85] size [2] collision? [0]\nDraw line [60] [-90] [65] [-85] size [2] collision? [0]\nDraw line [-5] [-60] [5] [-60] size [2] collision? [1]\nDraw line [5] [-60] [5] [-90] size [2] collision? [0]\nDraw line [-5] [-60] [-5] [-90] size [2] collision? [0]\nDraw line [5] [-90] [0] [-95] size [2] collision? [0]\nDraw line [-5] [-90] [0] [-95] size [2] collision? [0]\nset pen color to ((16777216) + (0))\nDraw line [230] [-120] [260] [-80] size [2] collision? [1]\nset pen color to ((5268600) + ())\nDoor [-200] [-60] [-1]\n\ndefine [L] 6\nDraw line [-220] [-150] [-120] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-50] [-120] [-110] [-120] size [2] collision? [1]\nDraw line [-120] [-150] [-110] [-120] size [2] collision? [1]\nSpikes [-140] [-150] [4] direction [1]\nDraw line [-50] [-120] [-52] [-135] size [2] collision? [1]\nDraw line [-50] [-155] [-52] [-135] size [2] collision? [1]\nDraw line [-50] [-155] [-52] [-180] size [2] collision? [1]\nDraw line [-220] [-80] [-160] [-80] size [2] collision? [1]\nDraw line [-220] [-80] [-190] [-90] size [2] collision? [1]\nDraw line [-160] [-80] [-190] [-90] size [2] collision? [1]\nset pen color to ((16777216) + (0))\nDraw line [-112] [-90] [-110] [-90] size [2] collision? [1]\nDraw line [-60] [-70] [-50] [-70] size [2] collision? [1]\nset pen color to ((5268600) + ())\nDraw line [0] [-130] [10] [-130] size [2] collision? [1]\nDraw line [0] [-130] [0] [-180] size [2] collision? [0]\nDraw line [10] [-130] [10] [-180] size [2] collision? [0]\nDraw line [0] [-70] [10] [-70] size [2] collision? [1]\nDraw line [0] [-80] [10] [-80] size [2] collision? [0]\nDraw line [0] [-70] [0] [-80] size [2] collision? [0]\nDraw line [10] [-70] [10] [-80] size [2] collision? [0]\nSpikes [0.5] [-80] [2] direction [-1]\nDraw line [60] [-130] [70] [-130] size [2] collision? [1]\nDraw line [60] [-130] [60] [-180] size [2] collision? [0]\nDraw line [70] [-130] [70] [-180] size [2] collision? [0]\nDraw line [60] [-70] [70] [-70] size [2] collision? [1]\nDraw line [60] [-80] [70] [-80] size [2] collision? [0]\nDraw line [60] [-70] [60] [-80] size [2] collision? [0]\nDraw line [70] [-70] [70] [-80] size [2] collision? [0]\nSpikes [60.5] [-80] [2] direction [-1]\nDraw line [120] [-130] [130] [-130] size [2] collision? [0]\nDraw line [120] [-130] [120] [-180] size [2] collision? [0]\nDraw line [130] [-130] [130] [-180] size [2] collision? [0]\nDraw line [120] [-70] [130] [-70] size [2] collision? [1]\nDraw line [120] [-80] [130] [-80] size [2] collision? [0]\nDraw line [120] [-70] [120] [-80] size [2] collision? [0]\nDraw line [130] [-70] [130] [-80] size [2] collision? [0]\nSpikes [120.5] [-80] [2] direction [-1]\nDraw line [180] [-120] [240] [-120] size [2] collision? [1]\nDraw line [180] [-120] [182] [-130] size [2] collision? [0]\nDraw line [183] [-150] [182] [-130] size [2] collision? [0]\nDraw line [183] [-150] [181] [-165] size [2] collision? [0]\nDraw line [183] [-150] [181] [-165] size [2] collision? [0]\nDraw line [182] [-180] [181] [-165] size [2] collision? [0]\nDoor [220] [-120] [1]\n\ndefine [L] 7\nDraw line [-220] [-150] [-120] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-120] [-150] [-122] [-160] size [2] collision? [1]\nDraw line [-120] [-175] [-122] [-160] size [2] collision? [1]\nDraw line [-120] [-175] [-118] [-180] size [2] collision? [1]\nDraw line [-120] [-170] [-100] [-180] size [2] collision? [0]\nSpikes [-140] [-150] [4] direction [1]\nDraw line [-120] [-170] [-115] [-160] size [2] collision? [1]\nDraw line [-105] [-155] [-115] [-160] size [2] collision? [1]\nDraw line [-105] [-155] [-60] [-170] size [2] collision? [1]\nDraw line [-55] [-180] [-60] [-170] size [2] collision? [1]\nDraw line [0] [-160] [10] [-160] size [2] collision? [1]\nDraw line [0] [-180] [0] [-160] size [2] collision? [1]\nDraw line [10] [-180] [10] [-160] size [2] collision? [1]\nDraw line [0] [-105] [5] [-110] size [2] collision? [0]\nDraw line [10] [-105] [5] [-110] size [2] collision? [0]\nDoor [10] [-105] [-1]\nDraw line [70] [-160] [80] [-160] size [2] collision? [1]\nDraw line [70] [-180] [70] [-160] size [2] collision? [1]\nDraw line [80] [-180] [80] [-160] size [2] collision? [1]\nDraw line [80] [-105] [75] [-110] size [2] collision? [0]\nDraw line [70] [-105] [75] [-110] size [2] collision? [0]\nDraw line [70] [-105] [70] [-85] size [2] collision? [0]\nDraw line [80] [-105] [80] [-85] size [2] collision? [0]\nDraw line [70] [-85] [80] [-85] size [2] collision? [1]\nDraw line [80] [-165] [85] [-180] size [2] collision? [0]\nDraw line [80] [-165] [100] [-155] size [2] collision? [1]\nDraw line [140] [-155] [100] [-155] size [2] collision? [1]\nDraw line [140] [-155] [150] [-160] size [2] collision? [1]\nDraw line [145] [-175] [150] [-160] size [2] collision? [0]\nDraw line [145] [-175] [110] [-180] size [2] collision? [0]\nDraw line [148] [-168] [150] [-180] size [2] collision? [0]\nDraw line [148] [-168] [160] [-160] size [2] collision? [1]\nDraw line [180] [-180] [160] [-160] size [2] collision? [1]\nSpikes [110] [-155] [4] direction [1]\nDraw line [210] [-180] [215] [-150] size [2] collision? [1]\nDraw line [212] [-140] [215] [-150] size [2] collision? [1]\nDraw line [225] [-130] [260] [-130] size [2] collision? [1]\nDraw line [225] [-130] [205] [-135] size [2] collision? [1]\nDraw line [212] [-140] [205] [-135] size [2] collision? [1]\nset pen color to ((16777216) + (0))\nDraw line [205] [-100] [180] [-100] size [2] collision? [1]\nDraw line [140] [-90] [130] [-90] size [2] collision? [1]\nset pen color to ((5268600) + ())\n\ndefine [L] 8\nbroadcast (message1 v)\nDraw line [-220] [-150] [-120] [-150] size [2] collision? [1]\nDraw line [-220] [-150] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-158] size [2] collision? [1]\nDraw line [-220] [-168] [-218] [-180] size [2] collision? [1]\nDraw line [-120] [-150] [-122] [-160] size [2] collision? [1]\nDraw line [-120] [-175] [-122] [-160] size [2] collision? [1]\nDraw line [-120] [-175] [-122] [-180] size [2] collision? [1]\nDraw line [180] [-150] [240] [-150] size [2] collision? [1]\nDraw line [180] [-150] [182] [-158] size [2] collision? [1]\nDraw line [180] [-168] [182] [-158] size [2] collision? [1]\nDraw line [180] [-168] [182] [-180] size [2] collision? [1]\nDoor [210] [-150] [1]\n\nLevels\n\nstop [other scripts in sprite v]\nset pen color to ((((150) * (65536)) + ((180) * (256))) + (210))\nDraw line [-240] [0] [240] [0] size [360] collision? [0]\nBackground\nset pen color to ((5268600) + ())\nDraw line [-100] [-100] [240] [-100] size [8] collision? []\nDraw line [-100] [-100] [-95] [-120] size [8] collision? []\nDraw line [-100] [-145] [-95] [-120] size [8] collision? []\nDraw line [-100] [-145] [-95] [-180] size [8] collision? []\nset pen color to ((((50) * (65536)) + ((75) * (256))) + (100))\nDraw line [-50] [-76] [-50] [-76] size [40] collision? []\n\n@Pen Text Engine - -ShadowOfTheFuture-\n\ndefine None\nset pen color to ((((a) * (16777216)) + ((r) * (65536))) + (((g) * (256)) + (b)))\nset pen size to ((s) * (bold))\nset [\[pte\] letter v] to [1]\nrepeat (length of (string))\n    set [\[pte\] i v] to [1]\n    repeat until <<(letter (\[PTE\] i) of (\[PTE\] chars)) = (letter (\[PTE\] letter) of (string))> or <(\[PTE\] i) > (length of (\[PTE\] chars))>>\n        change [\[pte\] i v] by (1)\n    end\n    if <(\[PTE\] i) > (length of (\[PTE\] chars))> then\n        set [\[pte\] i v] to [0]\n    end\n    if <not <(\[PTE\] i) = [0]>> then\n        set [\[pte\] j v] to [0]\n        repeat ([ceiling v] of ((length of (item (\[PTE\] i) of [letter_data v])) / (5)) )\n            set [\[pte\] p1 v] to (join (letter ((\[PTE\] j) + (1)) of (item (\[PTE\] i) of [letter_data v])) (letter ((\[PTE\] j) + (2)) of (item (\[PTE\] i) of [letter_data v])))\n            set [\[pte\] p2 v] to (join (letter ((\[PTE\] j) + (3)) of (item (\[PTE\] i) of [letter_data v])) (letter ((\[PTE\] j) + (4)) of (item (\[PTE\] i) of [letter_data v])))\n            go to x: ((((s) * (((\[PTE\] p1) - (1)) mod (5))) + (x)) + (((\[PTE\] letter) - (1)) * ((s) * ((sp) * (6))))) y: ((((s) * (-2)) * ([floor v] of (((\[PTE\] p1) - (1)) / (5)) )) + (y))\n            pen down\n            go to x: ((((s) * (((\[PTE\] p2) - (1)) mod (5))) + (x)) + (((\[PTE\] letter) - (1)) * ((s) * ((sp) * (6))))) y: ((((s) * (-2)) * ([floor v] of (((\[PTE\] p2) - (1)) / (5)) )) + (y))\n            pen up\n            change [\[pte\] j v] by (5)\n        end\n    end\n    change [\[pte\] letter v] by (1)\nend\n\ndefine PTE - Add list\nset [\[pte\] chars v] to [abcdefghijklmnopqrstuvwxyz1234567890.,?!:;'"/\-_\(\)=+|<>\[\]]\ndelete (all) of [letter_data v]\nadd [0321 0325 1214] to [letter_data v]\nadd [0121 0104 0410 1014 1114 1420 2024 2124] to [letter_data v]\nadd [0205 0211 1122 2225] to [letter_data v]\nadd [0121 0104 0415 1524 2421] to [letter_data v]\nadd [0121 0105 1114 2125] to [letter_data v]\nadd [0121 0105 1114] to [letter_data v]\nadd [0211 0205 1122 2225 1525 1415] to [letter_data v]\nadd [0121 0525 1115] to [letter_data v]\nadd [0204 0323 2224] to [letter_data v]\nadd [0205 0419 1923 2322 2216] to [letter_data v]\nadd [0121 0511 1119 1925] to [letter_data v]\nadd [0121 2125] to [letter_data v]\nadd [0121 0118 1805 0525] to [letter_data v]\nadd [0121 0125 0525] to [letter_data v]\nadd [0206 0621 0205 0520 2024 2124] to [letter_data v]\nadd [0121 0104 0410 1014 1114] to [letter_data v]\nadd [0206 0621 0205 0515 1523 2125] to [letter_data v]\nadd [0121 0104 0410 1014 1114 1325] to [letter_data v]\nadd [0205 0206 0612 1214 1420 2024 2421] to [letter_data v]\nadd [0105 0323] to [letter_data v]\nadd [0116 1622 2224 2420 2005] to [letter_data v]\nadd [0123 0523] to [letter_data v]\nadd [0122 2208 0824 2405] to [letter_data v]\nadd [0125 0521] to [letter_data v]\nadd [0113 1305 1323] to [letter_data v]\nadd [0105 0521 2125] to [letter_data v]\nadd [0703 0323 2224] to [letter_data v]\nadd [0602 0204 0410 1021 2125] to [letter_data v]\nadd [0602 0204 0410 1014 1420 2024 2422 2216] to [letter_data v]\nadd [0311 1115 0924] to [letter_data v]\nadd [0401 0111 1114 1420 2024 2421] to [letter_data v]\nadd [1214 1420 2024 2422 2216 1604] to [letter_data v]\nadd [0105 0523] to [letter_data v]\nadd [1214 1420 2024 2422 2216 1612 0204 0206 0410 0612 1410] to [letter_data v]\nadd [1214 0204 0206 0410 0612 2210] to [letter_data v]\nadd [0206 0204 0410 0616 1020 1622 2224 2420 1016] to [letter_data v]\nadd [2323] to [letter_data v]\nadd [2223 2318] to [letter_data v]\nadd [0602 0204 0410 1018 2323] to [letter_data v]\nadd [0318 2323] to [letter_data v]\nadd [1313 2323] to [letter_data v]\nadd [1313 2223 2318] to [letter_data v]\nadd [0308] to [letter_data v]\nadd [0207 0409] to [letter_data v]\nadd [0422] to [letter_data v]\nadd [0224] to [letter_data v]\nadd [1214] to [letter_data v]\nadd [2125] to [letter_data v]\nadd [0408 0818 1824] to [letter_data v]\nadd [0208 0818 1822] to [letter_data v]\nadd [1214 1719] to [letter_data v]\nadd [0818 1115] to [letter_data v]\nadd [0323] to [letter_data v]\nadd [1210 1220] to [letter_data v]\nadd [0614 1416] to [letter_data v]\nadd [0403 0323 2324] to [letter_data v]\nadd [0203 0323 2223] to [letter_data v]\n\nwhen flag clicked\nPTE - Add list\nhide\n\nwhen I receive [message1 v]\nif <<(\[G\]\[P\] ded ;-;) = [0]> and <(\[G\] fade) < [5]>> then\n    Write [no. you won't make it across.] at x, y: (-220) (100) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\n    Write [just don't even try.] at x, y: (-220) (50) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nend\n\ndefine Beat Level 8\nreplace item (1) of [\[g\]\[p\] pos v] with [200]\nreplace item (2) of [\[g\]\[p\] pos v] with [-100]\n\nwhen I receive [end v]\nwait (1) seconds\nWrite [what?] at x, y: (-220) (140) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (2) seconds\nWrite [nonono! you aren't supposed to see this!] at x, y: (-220) (90) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (1) seconds\nWrite [go away! this game isn't finished yet!] at x, y: (-220) (70) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (3) seconds\nWrite [do you know how embarrassing it is to have] at x, y: (-220) (50) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nWrite [people play your unfinished, glitchy games?] at x, y: (-220) (30) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (3) seconds\nWrite [oh, fine. you win, okay?! you win!] at x, y: (-220) (-20) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (2) seconds\nWrite [happy now?!] at x, y: (-220) (-40) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\nwait (3) seconds\nWrite [oh, and thanks for playing. i guess.] at x, y: (-220) (-90) color (RGBA): (100) (125) (150) (0) size: (1.5) boldness: (1.5) spacing: (1.1)\n\nWrite [blue-gray sky] at x, y: (-204) (100) color (RGBA): (100) (125) (150) (0) size: (5) boldness: (1.5) spacing: (1.1)\nWrite [blue-gray sky] at x, y: (-202) (100) color (RGBA): (75) (90) (105) (0) size: (5) boldness: (1.5) spacing: (1.1)\nWrite [blue-gray sky] at x, y: (-200) (100) color (RGBA): (50) (66) (75) (0) size: (5) boldness: (1.5) spacing: (1.1)\n\nwhen I receive [level # v]\nif <<(\[G\]\[P\] ded ;-;) = [0]> and <(\[G\] fade) < [5]>> then\n    Write (\[G\] level) at x, y: (-220) (150) color (RGBA): (100) (125) (150) (0) size: (3) boldness: (1.5) spacing: (1)\nend\n\n