glow - a 100% pen platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [Lensko - Rebirth \[NCS Release\] v] until done\nend\n\n@most things\n\ndefine draw player\ngo to x: (player_x) y: (player_y)\nset pen (transparency v) to (0)\nset pen size to (15)\nset pen color to (#000000)\npen down\npen up\nset pen size to (2)\nset pen color to (#ffffff)\ngo to x: ((player_x) - (2)) y: ((player_y) + (2))\npen down\npen up\ngo to x: ((player_x) - (-2)) y: ((player_y) + (2))\npen down\npen up\n\ndefine draw light\nif <(level) = [20]> then\n    go to x: (player_x) y: (player_y)\n    set [light i v] to [0]\n    set pen color to (#ffffff)\n    repeat (100)\n        change [light i v] by (1)\n        set pen (transparency v) to (99)\n        set pen size to ((light i) * (light fluctuation ii))\n        pen down\n        pen up\n    end\n    change [light fluctuation ii v] by (light fluctuation)\n    if <(light fluctuation i) = [1]> then\n        change [light fluctuation v] by (0.002)\n        if <(light fluctuation) > [0.02]> then\n            set [light fluctuation i v] to [0]\n        end\n    else\n        change [light fluctuation v] by (-0.002)\n        if <[-0.02] > (light fluctuation)> then\n            set [light fluctuation i v] to [1]\n        end\n    end\n    go to x: (100) y: (-50)\n    set [light i v] to [0]\n    set pen color to (#ffffff)\n    repeat (100)\n        change [light i v] by (1)\n        set pen (transparency v) to (99)\n        set pen size to (((light i) * (light fluctuation ii)) / (1.5))\n        pen down\n        pen up\n    end\n    change [light fluctuation ii v] by (light fluctuation)\n    if <(light fluctuation i) = [1]> then\n        change [light fluctuation v] by (0.002)\n        if <(light fluctuation) > [0.02]> then\n            set [light fluctuation i v] to [0]\n        end\n    else\n        change [light fluctuation v] by (-0.002)\n        if <[-0.02] > (light fluctuation)> then\n            set [light fluctuation i v] to [1]\n        end\n    end\n    set pen color to (#c7c7c7)\n    set pen (transparency v) to (0)\n    set pen size to (15)\n    pen down\n    pen up\n    set pen color to (#ffffff)\n    set pen (transparency v) to (0)\n    set pen size to (12)\n    pen down\n    pen up\nelse\n    go to x: (player_x) y: (player_y)\n    set [light i v] to [0]\n    set pen color to (#ffffff)\n    repeat (100)\n        change [light i v] by (1)\n        set pen (transparency v) to (99)\n        set pen size to ((light i) * (light fluctuation ii))\n        pen down\n        pen up\n    end\n    change [light fluctuation ii v] by (light fluctuation)\n    if <(light fluctuation i) = [1]> then\n        change [light fluctuation v] by (0.002)\n        if <(light fluctuation) > [0.02]> then\n            set [light fluctuation i v] to [0]\n        end\n    else\n        change [light fluctuation v] by (-0.002)\n        if <[-0.02] > (light fluctuation)> then\n            set [light fluctuation i v] to [1]\n        end\n    end\nend\n\nwhen flag clicked\nreset vars\nforever\n    erase all\n    broadcast (draw stuff v)\n    draw background\n    move player\n    do\n    draw light\n    draw player\n    draw level\nend\n\ndefine touching black\nset [touching black v] to [0]\nset [touch_black i v] to [0]\nrepeat (length of [black position x1 v])\n    change [touch_black i v] by (1)\n    if <<<((item (touch_black i) of [black position x1 v]) - (5)) < (player_x)> and <(player_x) < ((item (touch_black i) of [black position x2 v]) + (5))>> and <<((item (touch_black i) of [black position y1 v]) - (6)) < (player_y)> and <(player_y) < ((item (touch_black i) of [black position y2 v]) + (6))>>> then\n        set [touching black v] to [1]\n    end\nend\n\ndefine draw level\ndelete all of [black position x1 v]\ndelete all of [black position x2 v]\ndelete all of [black position y1 v]\ndelete all of [black position y2 v]\nif <(level) = [1]> then\n    draw line x: [-250] y: [-100] to x: [240] y: [-100] thickness: [4]\nend\nif <(level) = [2]> then\n    draw line x: [-250] y: [-100] to x: [-50] y: [-100] thickness: [4]\n    draw line x: [50] y: [-100] to x: [240] y: [-100] thickness: [4]\nend\nif <(level) = [3]> then\n    draw line x: [-250] y: [-100] to x: [-120] y: [-100] thickness: [4]\n    draw line x: [-60] y: [-100] to x: [60] y: [-100] thickness: [4]\n    draw line x: [120] y: [-100] to x: [250] y: [-100] thickness: [4]\nend\nif <(level) = [4]> then\n    draw line x: [-250] y: [-100] to x: [250] y: [-100] thickness: [4]\n    draw line x: [0] y: [-100] to x: [0] y: [40] thickness: [4]\nend\nif <(level) = [5]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-140] y: [-50] to x: [-80] y: [-50] thickness: [4]\n    draw line x: [-40] y: [0] to x: [20] y: [0] thickness: [4]\n    draw line x: [60] y: [50] to x: [120] y: [50] thickness: [4]\n    draw line x: [160] y: [100] to x: [220] y: [100] thickness: [4]\n    draw line x: [220] y: [100] to x: [220] y: [200] thickness: [4]\n    draw line x: [160] y: [-70] to x: [160] y: [100] thickness: [4]\n    draw line x: [60] y: [-70] to x: [60] y: [50] thickness: [4]\n    draw line x: [-40] y: [-70] to x: [-40] y: [0] thickness: [4]\n    draw line x: [-140] y: [-100] to x: [-140] y: [-50] thickness: [4]\n    draw line x: [60] y: [-70] to x: [240] y: [-70] thickness: [4]\n    draw line x: [-40] y: [-70] to x: [60] y: [-70] thickness: [4]\n    draw line x: [-80] y: [-160] to x: [250] y: [-160] thickness: [4]\nend\nif <(level) = [6]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [50] y: [-180] to x: [50] y: [0] thickness: [4]\n    draw line x: [50] y: [0] to x: [100] y: [0] thickness: [4]\nend\nif <(level) = [7]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-100] y: [-100] to x: [-80] y: [-100] thickness: [4]\n    draw line x: [-5] y: [-100] to x: [15] y: [-100] thickness: [4]\n    draw line x: [90] y: [-100] to x: [110] y: [-100] thickness: [4]\n    draw line x: [185] y: [-100] to x: [205] y: [-100] thickness: [4]\nend\nif <(level) = [8]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-180] y: [-160] to x: [250] y: [-160] thickness: [4]\n    draw line x: [-180] y: [-160] to x: [-180] y: [120] thickness: [4]\n    draw line x: [-100] y: [-100] to x: [-100] y: [180] thickness: [4]\n    draw line x: [-20] y: [-160] to x: [-20] y: [120] thickness: [4]\n    draw line x: [60] y: [-100] to x: [60] y: [180] thickness: [4]\n    draw line x: [140] y: [-160] to x: [140] y: [120] thickness: [4]\n    draw line x: [220] y: [-100] to x: [220] y: [180] thickness: [4]\nend\nif <(level) = [9]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-180] y: [-100] to x: [-180] y: [-20] thickness: [4]\n    draw line x: [-180] y: [-20] to x: [-100] y: [-20] thickness: [4]\n    draw line x: [-250] y: [100] to x: [207] y: [100] thickness: [4]\n    draw line x: [-40] y: [-20] to x: [240] y: [-20] thickness: [4]\n    draw line x: [-100] y: [-160] to x: [-100] y: [-20] thickness: [4]\n    draw line x: [-100] y: [-160] to x: [240] y: [-160] thickness: [4]\n    draw line x: [230] y: [-160] to x: [230] y: [140] thickness: [4]\n    draw line x: [-200] y: [140] to x: [240] y: [140] thickness: [4]\n    draw line x: [25] y: [40] to x: [230] y: [40] thickness: [4]\n    draw line x: [90] y: [10] to x: [230] y: [10] thickness: [4]\n    draw line x: [90] y: [70] to x: [230] y: [70] thickness: [4]\n    draw line x: [25] y: [-90] to x: [230] y: [-90] thickness: [4]\n    draw line x: [90] y: [-55] to x: [230] y: [-55] thickness: [4]\n    draw line x: [90] y: [-125] to x: [230] y: [-125] thickness: [4]\nend\nif <(level) = [10]> then\n    draw line x: [-250] y: [-100] to x: [-100] y: [-100] thickness: [4]\n    draw line x: [-150] y: [-60] to x: [-85] y: [-60] thickness: [4]\n    draw line x: [-165] y: [-20] to x: [-100] y: [-20] thickness: [4]\n    draw line x: [-150] y: [20] to x: [-85] y: [20] thickness: [4]\n    draw line x: [-165] y: [60] to x: [-100] y: [60] thickness: [4]\n    draw line x: [-150] y: [100] to x: [250] y: [100] thickness: [4]\nend\nif <(level) = [11]> then\n    draw line x: [-250] y: [-100] to x: [-100] y: [-100] thickness: [4]\n    draw line x: [40] y: [-60] to x: [240] y: [-60] thickness: [4]\n    draw line x: [-240] y: [-20] to x: [-100] y: [-20] thickness: [4]\n    draw line x: [40] y: [20] to x: [240] y: [20] thickness: [4]\n    draw line x: [-240] y: [60] to x: [-100] y: [60] thickness: [4]\n    draw line x: [40] y: [100] to x: [240] y: [100] thickness: [4]\n    draw line x: [220] y: [-60] to x: [220] y: [100] thickness: [4]\nend\nif <(level) = [12]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-180] y: [-100] to x: [-180] y: [100] thickness: [4]\n    draw line x: [-180] y: [100] to x: [-100] y: [100] thickness: [4]\n    draw line x: [-100] y: [0] to x: [-100] y: [100] thickness: [4]\n    draw line x: [-60] y: [0] to x: [-60] y: [100] thickness: [4]\n    draw line x: [-20] y: [0] to x: [-20] y: [100] thickness: [4]\n    draw line x: [20] y: [0] to x: [20] y: [180] thickness: [4]\n    draw line x: [-100] y: [-120] to x: [-60] y: [-120] thickness: [4]\n    draw line x: [60] y: [-240] to x: [60] y: [120] thickness: [4]\n    draw line x: [60] y: [120] to x: [100] y: [120] thickness: [4]\n    draw line x: [100] y: [-180] to x: [100] y: [0] thickness: [4]\n    draw line x: [140] y: [-180] to x: [140] y: [0] thickness: [4]\n    draw line x: [180] y: [-175] to x: [180] y: [0] thickness: [4]\n    draw line x: [220] y: [-150] to x: [220] y: [200] thickness: [4]\n    draw line x: [180] y: [-175] to x: [240] y: [-175] thickness: [4]\nend\nif <(level) = [13]> then\n    draw line x: [-250] y: [-100] to x: [-180] y: [-100] thickness: [4]\n    draw line x: [-100] y: [-100] to x: [-90] y: [-100] thickness: [4]\n    draw line x: [-30] y: [-100] to x: [-20] y: [-100] thickness: [4]\n    draw line x: [40] y: [-100] to x: [50] y: [-100] thickness: [4]\n    draw line x: [110] y: [-100] to x: [120] y: [-100] thickness: [4]\n    draw line x: [120] y: [-100] to x: [120] y: [0] thickness: [4]\n    draw line x: [120] y: [25] to x: [120] y: [180] thickness: [4]\nend\nif <(level) = [14]> then\n    draw line x: [-250] y: [-100] to x: [-150] y: [-100] thickness: [4]\n    draw line x: [-150] y: [-60] to x: [-100] y: [-60] thickness: [4]\n    draw line x: [-150] y: [-60] to x: [-150] y: [-10] thickness: [4]\n    draw line x: [-150] y: [-10] to x: [-100] y: [-10] thickness: [4]\n    draw line x: [-100] y: [-60] to x: [-100] y: [-10] thickness: [4]\n    draw line x: [0] y: [0] to x: [20] y: [0] thickness: [4]\n    draw line x: [0] y: [0] to x: [0] y: [20] thickness: [4]\n    draw line x: [20] y: [0] to x: [20] y: [20] thickness: [4]\n    draw line x: [0] y: [20] to x: [20] y: [20] thickness: [4]\n    draw line x: [0] y: [-100] to x: [30] y: [-100] thickness: [4]\n    draw line x: [0] y: [-100] to x: [0] y: [-70] thickness: [4]\n    draw line x: [30] y: [-100] to x: [30] y: [-70] thickness: [4]\n    draw line x: [0] y: [-70] to x: [30] y: [-70] thickness: [4]\n    draw line x: [120] y: [-60] to x: [210] y: [-60] thickness: [4]\n    draw line x: [120] y: [-60] to x: [120] y: [30] thickness: [4]\n    draw line x: [120] y: [30] to x: [210] y: [30] thickness: [4]\n    draw line x: [210] y: [-60] to x: [210] y: [30] thickness: [4]\nend\nif <(level) = [15]> then\n    draw line x: [-250] y: [-100] to x: [-100] y: [-100] thickness: [4]\n    draw line x: [-150] y: [-60] to x: [-90] y: [-60] thickness: [4]\n    draw line x: [-160] y: [-20] to x: [-100] y: [-20] thickness: [4]\n    draw line x: [-150] y: [20] to x: [-95] y: [20] thickness: [4]\n    draw line x: [-150] y: [60] to x: [-100] y: [60] thickness: [4]\n    draw line x: [-150] y: [100] to x: [250] y: [100] thickness: [4]\nend\nif <(level) = [16]> then\n    draw line x: [-250] y: [-100] to x: [-150] y: [-100] thickness: [4]\n    draw line x: [-150] y: [-180] to x: [-150] y: [0] thickness: [4]\n    draw line x: [-150] y: [40] to x: [-150] y: [180] thickness: [4]\n    draw line x: [-75] y: [-180] to x: [-75] y: [-60] thickness: [4]\n    draw line x: [-75] y: [-20] to x: [-75] y: [180] thickness: [4]\n    draw line x: [0] y: [-180] to x: [0] y: [40] thickness: [4]\n    draw line x: [0] y: [80] to x: [0] y: [180] thickness: [4]\n    draw line x: [75] y: [-180] to x: [75] y: [120] thickness: [4]\n    draw line x: [75] y: [160] to x: [75] y: [180] thickness: [4]\n    draw line x: [150] y: [-180] to x: [150] y: [-130] thickness: [4]\n    draw line x: [150] y: [-90] to x: [150] y: [180] thickness: [4]\n    draw line x: [225] y: [-180] to x: [225] y: [80] thickness: [4]\n    draw line x: [225] y: [105] to x: [225] y: [180] thickness: [4]\nend\nif <(level) = [17]> then\n    draw line x: [-250] y: [-100] to x: [-150] y: [-100] thickness: [4]\n    draw line x: [-150] y: [-180] to x: [-150] y: [0] thickness: [4]\n    draw line x: [-240] y: [40] to x: [240] y: [40] thickness: [4]\n    draw line x: [20] y: [-100] to x: [240] y: [-100] thickness: [4]\nend\nif <(level) = [18]> then\n    draw line x: [-250] y: [-100] to x: [-150] y: [-100] thickness: [4]\n    draw line x: [-165] y: [0] to x: [-150] y: [0] thickness: [4]\n    draw line x: [-60] y: [-60] to x: [-45] y: [-60] thickness: [4]\n    draw line x: [-135] y: [-55] to x: [-120] y: [-55] thickness: [4]\n    draw line x: [-120] y: [30] to x: [-106] y: [30] thickness: [4]\n    draw line x: [-30] y: [1] to x: [-5] y: [1] thickness: [4]\n    draw line x: [-6] y: [100] to x: [9] y: [100] thickness: [4]\n    draw line x: [230] y: [-180] to x: [230] y: [150] thickness: [4]\n    draw line x: [40] y: [47] to x: [55] y: [47] thickness: [4]\n    draw line x: [43] y: [-51] to x: [58] y: [-51] thickness: [4]\n    draw line x: [120] y: [87] to x: [135] y: [87] thickness: [4]\n    draw line x: [122] y: [3] to x: [137] y: [3] thickness: [4]\nend\nif <(level) = [19]> then\n    draw line x: [-250] y: [-100] to x: [-150] y: [-100] thickness: [4]\n    draw line x: [-165] y: [0] to x: [-162] y: [0] thickness: [4]\n    draw line x: [-53] y: [-60] to x: [-50] y: [-60] thickness: [4]\n    draw line x: [-132] y: [-55] to x: [-129] y: [-55] thickness: [4]\n    draw line x: [-118] y: [30] to x: [-115] y: [30] thickness: [4]\n    draw line x: [-20] y: [1] to x: [-17] y: [1] thickness: [4]\n    draw line x: [-6] y: [100] to x: [-3] y: [100] thickness: [4]\n    draw line x: [52] y: [47] to x: [55] y: [47] thickness: [4]\n    draw line x: [43] y: [-51] to x: [46] y: [-51] thickness: [4]\n    draw line x: [122] y: [87] to x: [125] y: [87] thickness: [4]\n    draw line x: [130] y: [3] to x: [133] y: [3] thickness: [4]\n    draw line x: [230] y: [-140] to x: [230] y: [180] thickness: [4]\n    draw line x: [225] y: [-175] to x: [230] y: [-175] thickness: [4]\nend\nif <(level) = [20]> then\n    draw line x: [-250] y: [-100] to x: [150] y: [-100] thickness: [4]\n    draw line x: [150] y: [-100] to x: [150] y: [180] thickness: [4]\nend\n\ndefine draw line x: (x1) y: (y1) to x: (x2) y: (y2) thickness: (t)\nset pen color to (#000000)\nset pen (transparency v) to (0)\npen up\nset pen size to (t)\ngo to x: (x1) y: (y1)\npen down\ngo to x: (x2) y: (y2)\nadd ((x1) - (t)) to [black position x1 v]\nadd ((x2) + (t)) to [black position x2 v]\nadd ((y1) - (t)) to [black position y1 v]\nadd ((y2) + (t)) to [black position y2 v]\n\ndefine draw background\nset pen (transparency v) to (99)\nset pen size to (1000)\nset pen color to (#000000)\ngo to x: (0) y: (0)\npen down\npen up\n\ndefine reset vars\nset [level v] to [1]\nset [player_x v] to [-220]\nset [player_y v] to [0]\nset [light fluctuation v] to [0]\nset [light fluctuation i v] to [1]\nset [light fluctuation ii v] to [1.5]\nset [x v v] to [0]\nset [y v v] to [0]\nset [iiii v] to [1]\ndelete all of [black position x1 v]\ndelete all of [black position x2 v]\ndelete all of [black position y1 v]\ndelete all of [black position y2 v]\n\ndefine move player\nchange [y v v] by (-0.5)\nif <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n    change [x v v] by (-0.7)\nend\nif <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n    change [x v v] by (0.7)\nend\nset [x v v] to ((x v) * (0.9))\nchange [player_x v] by (x v)\ntouching black\nif <(touching black) = [1]> then\n    change [player_y v] by (1)\n    touching black\n    if <(touching black) = [1]> then\n        change [player_y v] by (1)\n        touching black\n        if <(touching black) = [1]> then\n            change [player_y v] by (1)\n            touching black\n            if <(touching black) = [1]> then\n                change [player_y v] by (1)\n                touching black\n                if <(touching black) = [1]> then\n                    change [player_y v] by (1)\n                    touching black\n                    if <(touching black) = [1]> then\n                        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                            if <(x v) > [0]> then\n                                set [x v v] to [-7]\n                            else\n                                set [x v v] to [7]\n                            end\n                            set [y v v] to [8]\n                        else\n                            change [player_x v] by ((x v) * (-1))\n                            change [player_y v] by (-5)\n                            set [x v v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange [player_y v] by (y v)\ntouching black\nif <(touching black) = [1]> then\n    change [player_y v] by ((y v) * (-1))\n    set [y v v] to [0]\nend\nchange [player_y v] by (-0.5)\ntouching black\nif <<(touching black) = [1]> and <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n    set [y v v] to [8]\nend\nchange [player_y v] by (0.5)\nif <[-180] > (player_y)> then\n    set [player_x v] to [-220]\n    set [player_y v] to [-40]\n    set [x v v] to [0]\n    set [y v v] to [0]\nend\nif <(player_x) > [233]> then\n    set [player_x v] to [-220]\n    set [player_y v] to [-40]\n    set [x v v] to [0]\n    set [y v v] to [0]\n    change [level v] by (1)\n    change [iiii v] by (1)\nend\nif <(player_y) > [180]> then\n    set [player_y v] to [180]\nend\nif <[-240] > (player_x)> then\n    set [player_x v] to [-240]\nend\n\ndefine do\nif <not <(level) = (iiii)>> then\n    set [level v] to (iiii)\nend\n\n@text engine\n\ndefine print (text) at x: (x) y: (y) size: (size) pen thickness (thickness)\nset pen color to (#fefefe)\npen down\nset [pen v] to [0]\nset [location v] to []\nset [alphabet v] to [abcdefghijklmnopqrstuvwxyz0123456789!#%^*\(\)-+_=/.,?'":]\nset pen size to (thickness)\nif <(length of [chars v]) = [0]> then\n    delete all of [chars v]\n    add [/00/0444404202] to [chars v]\n    add [/00/0434320232424000] to [chars v]\n    add [/44/040040] to [chars v]\n    add [/00/043443413000] to [chars v]\n    add [/40/000232020444] to [chars v]\n    add [/00/0232020444] to [chars v]\n    add [/44/0400404222] to [chars v]\n    add [/00/0402424044] to [chars v]\n    add [/04/4424200040] to [chars v]\n    add [/24/2000] to [chars v]\n    add [/34/010004011240] to [chars v]\n    add [/04/0040] to [chars v]\n    add [/00/04224440] to [chars v]\n    add [/00/044044] to [chars v]\n    add [/00/04444000] to [chars v]\n    add [/00/04444202] to [chars v]\n    add [/00/044440004022] to [chars v]\n    add [/00/043432024240] to [chars v]\n    add [/44/14031232413000] to [chars v]\n    add [/20/240444] to [chars v]\n    add [/04/004044] to [chars v]\n    add [/04/2044] to [chars v]\n    add [/04/00224044] to [chars v]\n    add [/00/44/04/40] to [chars v]\n    add [/04/22202244] to [chars v]\n    add [/04/440040] to [chars v]\n    add [/00/0444400044] to [chars v]\n    add [/13/24201030] to [chars v]\n    add [/04/4442020040] to [chars v]\n    add [/04/444212424000] to [chars v]\n    add [/04/02424044] to [chars v]\n    add [/44/0402424000] to [chars v]\n    add [/44/040242400004] to [chars v]\n    add [/04/4420] to [chars v]\n    add [/00/044440000242] to [chars v]\n    add [/00/404202044442] to [chars v]\n    add [/20/20/22/24] to [chars v]\n    add [/00/14/30/44/01/41/03/43] to [chars v]\n    add [/04/14130304/40/30314140/00/44] to [chars v]\n    add [/13/2433] to [chars v]\n    add [/12/34/32/14] to [chars v]\n    add [/20/111324] to [chars v]\n    add [/20/313324] to [chars v]\n    add [/12/32] to [chars v]\n    add [/21/23221232] to [chars v]\n    add [/00/40] to [chars v]\n    add [/13/33/11/31] to [chars v]\n    add [/00/44] to [chars v]\n    add [/20/20] to [chars v]\n    add [/10/21] to [chars v]\n    add [/20/20/22/424424] to [chars v]\n    add [/23/24] to [chars v]\n    add [/13/14/33/34] to [chars v]\n    add [/21/21/23/23] to [chars v]\nend\nset [iii v] to [1]\nset [ii v] to [1]\nrepeat (length of (text))\n    set [i v] to [0]\n    repeat until <<(letter (i) of (alphabet)) = (letter (ii) of (text))> or <(i) > (length of [chars v])>>\n        change [i v] by (1)\n    end\n    if <(i) > (length of [chars v])> then\n        change [ii v] by (1)\n    else\n        set [iii v] to [1]\n        repeat (length of (item (i) of [chars v]))\n            if <(letter (iii) of (item (i) of [chars v])) = [/]> then\n                if <(pen) = [0]> then\n                    pen up\n                    set [pen v] to [1]\n                else\n                    pen down\n                    set [pen v] to [0]\n                end\n                change [iii v] by (1)\n            else\n                set [location v] to (join (location) (letter (iii) of (item (i) of [chars v])))\n                change [iii v] by (1)\n                if <(length of (location)) = [2]> then\n                    go to x: ((((x) - ((2) * (size))) + ((letter (1) of (location)) * (size))) + ((((ii) - (1)) * (size)) * (6))) y: (((y) - ((2) * (size))) + ((letter (2) of (location)) * (size)))\n                    set [location v] to []\n                end\n            end\n        end\n        change [ii v] by (1)\n    end\nend\n\nwhen flag clicked\ndelete all of [chars v]\n\nwhen I receive [draw stuff v]\nif <(level) = [1]> then\n    print [welcome to glow] at x: [-120] y: [100] size: [3] pen thickness [2]\n    print [arrow keys to move] at x: [-100] y: [60] size: [2] pen thickness [1]\nend\nif <(level) = [2]> then\n    print [the sun has burned out] at x: [-190] y: [100] size: [3] pen thickness [2]\nend\nif <(level) = [3]> then\n    print [and you have been tasked] at x: [-180] y: [100] size: [2.5] pen thickness [2]\n    print [to find another light source] at x: [-200] y: [60] size: [2.5] pen thickness [2]\nend\nif <(level) = [4]> then\n    print [you will have to ] at x: [-120] y: [140] size: [2.5] pen thickness [2]\n    print [climb to great heights] at x: [-170] y: [105] size: [2.5] pen thickness [2]\n    print [you can wall jump] at x: [-100] y: [70] size: [2] pen thickness [1]\nend\nif <(level) = [5]> then\n    print [and you may] at x: [-80] y: [140] size: [2.5] pen thickness [2]\n    print [take some wrong turns] at x: [-150] y: [115] size: [2.5] pen thickness [2]\nend\nif <(level) = [6]> then\n    print [you will have to ] at x: [-120] y: [140] size: [2.5] pen thickness [2]\n    print [take big steps] at x: [-100] y: [115] size: [2.5] pen thickness [2]\nend\nif <(level) = [7]> then\n    print [and you will need] at x: [-120] y: [140] size: [2.5] pen thickness [2]\n    print [to be precise] at x: [-100] y: [115] size: [2.5] pen thickness [2]\nend\nif <(level) = [8]> then\n    print [you will have some ups] at x: [-150] y: [140] size: [2.5] pen thickness [2]\n    print [and downs] at x: [-50] y: [-140] size: [2.5] pen thickness [2]\nend\nif <(level) = [9]> then\n    print [choices...] at x: [-50] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [10]> then\n    print [ladder!] at x: [-50] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [11]> then\n    print [big leaps] at x: [-50] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [12]> then\n    print [which pipe] at x: [-50] y: [140] size: [2.5] pen thickness [2]\n    print [1] at x: [-80] y: [90] size: [2.5] pen thickness [2]\n    print [2] at x: [-40] y: [90] size: [2.5] pen thickness [2]\n    print [3] at x: [0] y: [90] size: [2.5] pen thickness [2]\n    print [1] at x: [80] y: [-10] size: [2.5] pen thickness [2]\n    print [2] at x: [120] y: [-10] size: [2.5] pen thickness [2]\n    print [3] at x: [160] y: [-10] size: [2.5] pen thickness [2]\n    print [4] at x: [200] y: [-10] size: [2.5] pen thickness [2]\nend\nif <(level) = [13]> then\n    print [more precision] at x: [-80] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [14]> then\n    print [floating squares] at x: [-80] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [15]> then\n    print [another ladder] at x: [-80] y: [140] size: [2.5] pen thickness [2]\n    print [still broken] at x: [-40] y: [101] size: [2] pen thickness [1.5]\nend\nif <(level) = [16]> then\n    print [broken walls?] at x: [-80] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [17]> then\n    print [how???] at x: [-30] y: [140] size: [3] pen thickness [2.5]\n    print [what i said in level 4 might help] at x: [-190] y: [100] size: [2] pen thickness [1.5]\nend\nif <(level) = [18]> then\n    print [crazy platforms] at x: [-80] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [19]> then\n    print [crazy dots] at x: [-80] y: [140] size: [2.5] pen thickness [2]\nend\nif <(level) = [20]> then\n    print [it's a glowing coin] at x: [-120] y: [160] size: [2.5] pen thickness [2]\n    print [but we need more to] at x: [-120] y: [135] size: [2.5] pen thickness [2]\n    print [light up the whole village] at x: [-160] y: [110] size: [2.5] pen thickness [2]\n    print [please love, like, follow and] at x: [-150] y: [60] size: [2] pen thickness [1.5]\n    print [remix] at x: [0] y: [30] size: [2] pen thickness [1.5]\nend\n\n@thumbnail\n\nwhen flag clicked\nhide\n\nshow\n\n
                               STORY LINE\nthe sun has burned out and you have to find another light source\n-----------------------------------------------------------------\n\n                               INSTRUCTIONS\n-ALL 20 LEVELS ARE POSSIBLE!!!\n-Other instruction in game