{{360*Gravity-Platformer}}

Instructions: Here's a Platformer Concept... Feel free to use it with Credits.\n\nI want to make an improved version, with a better theme. Arrowkeys or WSDA to move\n\n

@Stage\n\n@Pen Engine\n\nwhen flag clicked\nforever\n    play sound [Disfigure v] until done\nend\n\nwhen flag clicked\nLETTER_NAME-SETUP\nLETTER_AIRGAP_SETUP\nset [mode v] to [Game]\nset [checkpoint v] to [1]\ndelete all of [platforms v]\nadd [-50] to [platforms v]\nadd [-400] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nadd [200] to [platforms v]\nadd [-350] to [platforms v]\nadd [0] to [platforms v]\nadd [40] to [platforms v]\nadd [400] to [platforms v]\nadd [-250] to [platforms v]\nadd [0] to [platforms v]\nadd [40] to [platforms v]\nadd [200] to [platforms v]\nadd [-150] to [platforms v]\nadd [0] to [platforms v]\nadd [40] to [platforms v]\nadd [-100] to [platforms v]\nadd [-100] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nadd [-300] to [platforms v]\nadd [75] to [platforms v]\nadd [80] to [platforms v]\nadd [75] to [platforms v]\nadd [-100] to [platforms v]\nadd [150] to [platforms v]\nadd [0] to [platforms v]\nadd [50] to [platforms v]\nadd [200] to [platforms v]\nadd [150] to [platforms v]\nadd [-20] to [platforms v]\nadd [100] to [platforms v]\nadd [500] to [platforms v]\nadd [150] to [platforms v]\nadd [20] to [platforms v]\nadd [40] to [platforms v]\nadd [700] to [platforms v]\nadd [100] to [platforms v]\nadd [30] to [platforms v]\nadd [10] to [platforms v]\nadd [900] to [platforms v]\nadd [150] to [platforms v]\nadd [-20] to [platforms v]\nadd [10] to [platforms v]\nadd [1100] to [platforms v]\nadd [325] to [platforms v]\nadd [-70] to [platforms v]\nadd [50] to [platforms v]\nadd [1300] to [platforms v]\nadd [300] to [platforms v]\nadd [0] to [platforms v]\nadd [50] to [platforms v]\nadd [1550] to [platforms v]\nadd [250] to [platforms v]\nadd [30] to [platforms v]\nadd [10] to [platforms v]\nadd [1720] to [platforms v]\nadd [200] to [platforms v]\nadd [70] to [platforms v]\nadd [10] to [platforms v]\nadd [1950] to [platforms v]\nadd [300] to [platforms v]\nadd [-80] to [platforms v]\nadd [100] to [platforms v]\nadd [2100] to [platforms v]\nadd [400] to [platforms v]\nadd [-20] to [platforms v]\nadd [50] to [platforms v]\nadd [2300] to [platforms v]\nadd [450] to [platforms v]\nadd [-20] to [platforms v]\nadd [10] to [platforms v]\nadd [2500] to [platforms v]\nadd [450] to [platforms v]\nadd [20] to [platforms v]\nadd [10] to [platforms v]\nadd [2700] to [platforms v]\nadd [450] to [platforms v]\nadd [-20] to [platforms v]\nadd [10] to [platforms v]\nadd [2900] to [platforms v]\nadd [450] to [platforms v]\nadd [-40] to [platforms v]\nadd [10] to [platforms v]\nadd [3100] to [platforms v]\nadd [400] to [platforms v]\nadd [0] to [platforms v]\nadd [10] to [platforms v]\nadd [3300] to [platforms v]\nadd [400] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nadd [3650] to [platforms v]\nadd [400] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nadd [4000] to [platforms v]\nadd [400] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nadd [4400] to [platforms v]\nadd [400] to [platforms v]\nadd [0] to [platforms v]\nadd [100] to [platforms v]\nforever\n    if <(Mode) = [Thumbnail]> then\n        erase all\n        set pen color to (#000000)\n        Background\n        Movement\n        set [scrollx v] to [120]\n        set [scrolly v] to [250]\n        delete all of [platforms v]\n        add [200] to [platforms v]\n        add [150] to [platforms v]\n        add [-20] to [platforms v]\n        add [100] to [platforms v]\n        add [-100] to [platforms v]\n        add [150] to [platforms v]\n        add [0] to [platforms v]\n        add [50] to [platforms v]\n        set [colour v] to [50]\n        RenderPlatform\n        Player [-20] [30] []\n        set pen color to (#ffffff)\n        Colour SBCT [0] [100] [50] [8] PenSize [10]\n        Text [0] [100] [360-Degree-Gravity] [400] [70] [] [] [3]\n        Colour SBCT [0] [80] [50] [8] PenSize [5]\n        Text [0] [100] [360-Degree-Gravity] [400] [70] [] [] [3]\n        Colour SBCT [0] [100] [100] [0] PenSize [10]\n        Text [0] [-120] [PLATFORMER] [300] [50] [] [] [2]\n        Colour SBCT [0] [80] [100] [0] PenSize [5]\n        Text [0] [-120] [PLATFORMER] [300] [50] [] [] [2]\n    end\n    if <(Mode) = [Game]> then\n        set [colour v] to [0]\n        set [activeplatform v] to [1]\n        set [platformplayerx v] to [-50]\n        set [platformplayery v] to [50]\n        set [scrollx v] to (item (((Checkpoint) * (4)) + (-3)) of [platforms v])\n        set [scrolly v] to (item (((Checkpoint) * (4)) + (-2)) of [platforms v])\n        set [lastplatform v] to (ActivePlatform)\n        set [controlmode v] to [1]\n        set [xvol v] to [7]\n        set [yvol v] to [0]\n        repeat until <not <(Mode) = [Game]>>\n            ActivePlatform\n            GravityConverter\n            Checkpoints\n            erase all\n            set pen color to (#000000)\n            Background\n            Controls [10]\n            RenderPlatform\n            Movement\n            Player (item ((ActivePlatform) + (2)) of [platforms v]) [30] [0]\n            change [colour v] by (0.1)\n            if <(PlatformPlayerY) < [-200]> then\n                set [mode v] to [Lobby]\n            end\n            PlatformerText [-50] [-300] (join [Welcome-] (username)) [200]\n            PlatformerText [-125] [50] [<-Jump] [90]\n            PlatformerText [200] [-50] [lets-make-it-more-fun] [315]\n            PlatformerText [200] [300] [The-Gravity-rotates] [275]\n            PlatformerText [600] [300] [Hard-landing] [180]\n            PlatformerText [1300] [400] [Checkpoint] [165]\n            PlatformerText [2600] [600] [Do-you-like-this-concept] [345]\n            PlatformerText [3000] [600] [Please-comment-your-ideas] [345]\n            PlatformerText [3300] [550] [You-made-it-to-the-end] [255]\n            PlatformerText [3300] [500] [Maybe-like-fave-or-follow] [345]\n            PlatformerText [3650] [500] [Is-it-to-short] [210]\n            PlatformerText [4000] [500] [Answer-in-the-comments] [315]\n            PlatformerText [4400] [500] [Theres-nothing-more] [285]\n        end\n    end\n    if <(Mode) = [Lobby]> then\n        set [mode v] to [Game]\n    end\nend\n\ndefine Rectangle (x) (y) (sx) (sy)\npen up\ngo to x: ((x) - ((sx) / (2))) y: ((y) - ((sy) / (2)))\npen down\ngo to x: ((x) - ((sx) / (2))) y: ((y) + ((sy) / (2)))\ngo to x: ((x) + ((sx) / (2))) y: ((y) + ((sy) / (2)))\ngo to x: ((x) + ((sx) / (2))) y: ((y) - ((sy) / (2)))\ngo to x: ((x) - ((sx) / (2))) y: ((y) - ((sy) / (2)))\n\ndefine Filled Rectangle (x) (y) (sx) (sy)\nset [fillx v] to [0]\nset [filly v] to [0]\nrepeat ((round ((sx) / (7))) + (1))\n    Rectangle (x) (y) ((sx) - (FillX)) ((sy) - (FillY))\n    change [fillx v] by (7)\n    change [filly v] by ((sy) / ((round ((sx) / (7))) + (1)))\nend\n\ndefine Buttonbase (x) (y) (xs) (ys) (framesize) (send) (changeable)\nif <<<(mouse x) > ((x) - ((xs) / (2)))> and <((x) + ((xs) / (2))) > (mouse x)>> and <<(mouse y) > ((y) - ((ys) / (2)))> and <((y) + ((ys) / (2))) > (mouse y)>>> then\n    set pen size to (framesize)\n    Filled Rectangle (x) (y) ((xs) - ((xs) / (7))) ((ys) - ((ys) / (7)))\n    if <mouse down?> then\n        if <(changeable) = [1]> then\n            start sound [Low Boing v]\n            wait until <not <mouse down?>>\n        else\n            set [mode v] to (send)\n            start sound [Low Boing v]\n        end\n    end\nelse\n    set pen size to (framesize)\n    Filled Rectangle (x) (y) (xs) (ys)\nend\n\ndefine Buttonframe (x) (y) (xs) (ys) (framesize)\nif <<<(mouse x) > ((x) - ((xs) / (2)))> and <((x) + ((xs) / (2))) > (mouse x)>> and <<(mouse y) > ((y) - ((ys) / (2)))> and <((y) + ((ys) / (2))) > (mouse y)>>> then\n    set pen size to (framesize)\n    Rectangle (x) (y) ((xs) - ((xs) / (7))) ((ys) - ((ys) / (7)))\nelse\n    set pen size to (framesize)\n    Rectangle (x) (y) (xs) (ys)\nend\n\ndefine Text (x) (y) (word) (xs) (ys) (xframe) (yframe) (gapinbetween)\nset [letterdata v] to [0]\nset [total_word_size v] to [1]\nrepeat (length of (word))\n    change [letterdata v] by (1)\n    change [total_word_size v] by (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])\nend\nchange [total_word_size v] by ((xframe) * (2))\nchange [total_word_size v] by (((length of (word)) - (1)) * (gapinbetween))\nset [letterdata v] to [0]\nrepeat (length of (word))\n    change [letterdata v] by (1)\n    set [word_size v] to [0]\n    change [word_size v] by (xframe)\n    change [word_size v] by (((LetterData) * (gapinbetween)) - ((gapinbetween) + (1)))\n    repeat (LetterData)\n        change [word_size v] by (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])\n    end\n    A (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [A]>\n    B (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [B]>\n    C (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [C]>\n    D (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [D]>\n    E (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [E]>\n    F (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [F]>\n    G (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [G]>\n    H (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [H]>\n    I (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [I]>\n    J (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [J]>\n    K (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [K]>\n    L (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [L]>\n    M (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [M]>\n    N (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [N]>\n    O (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [O]>\n    P (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [P]>\n    Q (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [Q]>\n    R (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [R]>\n    S (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [S]>\n    T (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [T]>\n    U (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [U]>\n    V (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [V]>\n    W (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [W]>\n    X (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [X]>\n    Y (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [Y]>\n    Z (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [Z]>\n    0 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [0]>\n    1 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [1]>\n    2 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [2]>\n    3 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [3]>\n    4 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [4]>\n    5 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [5]>\n    6 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [6]>\n    7 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [7]>\n    8 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [8]>\n    9 (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [9]>\n    Percent (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [%]>\n    : (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [:]>\n    < (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [>]>\n    > (((x) - ((xs) / (2))) + (((xs) / (Total_Word_Size)) * (Word_Size))) (y) (((xs) / (Total_Word_Size)) * (item (item # of (letter (LetterData) of (word)) in [letter_name v]) of [letter_airgap v])) ((ys) - ((yframe) * (2))) <(letter (LetterData) of (word)) = [<]>\nend\n\ndefine LETTER_NAME-SETUP\ndelete all of [letter_name v]\nadd [0] to [letter_name v]\nadd [1] to [letter_name v]\nadd [2] to [letter_name v]\nadd [3] to [letter_name v]\nadd [4] to [letter_name v]\nadd [5] to [letter_name v]\nadd [6] to [letter_name v]\nadd [7] to [letter_name v]\nadd [8] to [letter_name v]\nadd [9] to [letter_name v]\nadd [A] to [letter_name v]\nadd [B] to [letter_name v]\nadd [C] to [letter_name v]\nadd [D] to [letter_name v]\nadd [E] to [letter_name v]\nadd [F] to [letter_name v]\nadd [G] to [letter_name v]\nadd [H] to [letter_name v]\nadd [I] to [letter_name v]\nadd [J] to [letter_name v]\nadd [K] to [letter_name v]\nadd [L] to [letter_name v]\nadd [M] to [letter_name v]\nadd [N] to [letter_name v]\nadd [O] to [letter_name v]\nadd [P] to [letter_name v]\nadd [Q] to [letter_name v]\nadd [R] to [letter_name v]\nadd [S] to [letter_name v]\nadd [T] to [letter_name v]\nadd [U] to [letter_name v]\nadd [V] to [letter_name v]\nadd [W] to [letter_name v]\nadd [X] to [letter_name v]\nadd [Y] to [letter_name v]\nadd [Z] to [letter_name v]\nadd [-] to [letter_name v]\nadd [%] to [letter_name v]\nadd [:] to [letter_name v]\nadd [>] to [letter_name v]\nadd [<] to [letter_name v]\n\ndefine LETTER_AIRGAP_SETUP\ndelete all of [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\nadd [3] to [letter_airgap v]\n\ndefine A (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: (y)\nend\n\ndefine B (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (3)) * (2))) y: ((y) + ((ys) / (2)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (3)) * (2))) y: (y)\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine C (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine D (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (3)) * (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (((y) - ((ys) / (2))) + (((ys) / (5)) * (4)))\n    go to x: ((x) + ((xs) / (2))) y: (((y) - ((ys) / (2))) + (((ys) / (5)) * (1)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (3)) * (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine E (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\nend\n\ndefine F (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\nend\n\ndefine G (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: (x) y: (y)\nend\n\ndefine H (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\nend\n\ndefine I (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: (x) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: (x) y: ((y) + ((ys) / (2)))\nend\n\ndefine J (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (6))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (6))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (6))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (6))) y: ((y) - ((ys) / (4)))\nend\n\ndefine K (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine L (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine M (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: (x) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine N (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine O (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine P (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: (y)\nend\n\ndefine Q (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (((y) - ((ys) / (2))) + (((ys) / (5)) * (2)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (6)) * (4))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen up\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (6)) * (4))) y: (((y) - ((ys) / (2))) + (((ys) / (5)) * (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine R (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine S (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine T (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: (x) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: (x) y: ((y) - ((ys) / (2)))\nend\n\ndefine U (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine V (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: (x) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine W (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (4)) * (1))) y: ((y) - ((ys) / (2)))\n    go to x: (x) y: ((y) + ((ys) / (2)))\n    go to x: (((x) - ((xs) / (2))) + (((xs) / (4)) * (3))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine X (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine Y (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: (x) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: (x) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: (x) y: (y)\nend\n\ndefine Z (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine ButtonText (x) (y) (xs) (ys) (text) (buttongap) (framegap) (framesize)\nif <<<(mouse x) > ((x) - ((xs) / (2)))> and <((x) + ((xs) / (2))) > (mouse x)>> and <<(mouse y) > ((y) - ((ys) / (2)))> and <((y) + ((ys) / (2))) > (mouse y)>>> then\n    set pen size to (framesize)\n    Text (x) (y) (text) ((xs) - ((xs) / (7))) ((ys) - ((ys) / (7))) (framegap) ((framegap) * (2)) (buttongap)\nelse\n    set pen size to (framesize)\n    Text (x) (y) (text) (xs) (ys) (framegap) ((framegap) * (2)) (buttongap)\nend\n\ndefine Button (x) (y) (xs) (ys) (text) (frame) (send) (framegap) (lettergap) (changeable?) (colour)\nif <(colour) = [1]> then\n    set pen color to (#30a200)\nelse\n    set pen color to (#ff0000)\nend\nif <(frame) > [5]> then\n    Buttonbase (x) (y) (xs) (ys) (frame) (send) (changeable?)\nelse\n    Buttonbase (x) (y) (xs) (ys) [5] (send) (changeable?)\nend\nif <(colour) = [1]> then\n    set pen color to (#000000)\nelse\n    set pen color to (#ffffff)\nend\nButtonframe (x) (y) (xs) (ys) (frame)\nset pen color to (#ffffff)\nButtonText (x) (y) (xs) (ys) (text) (lettergap) (framegap) [5]\nset pen color to (#000000)\nButtonText (x) (y) (xs) (ys) (text) (lettergap) (framegap) [2]\n\ndefine Background\nset pen size to (480)\npen up\ngo to x: (0) y: (-180)\npen down\ngo to x: (0) y: (180)\n\ndefine 1 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (4))) y: ((y) + ((ys) / (4)))\n    pen down\n    go to x: ((x) + ((xs) / (4))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (4))) y: ((y) - ((ys) / (2)))\nend\n\ndefine 2 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine 3 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: (y)\nend\n\ndefine 4 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (3))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (3))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: (y)\nend\n\ndefine 5 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\nend\n\ndefine 6 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: (y)\nend\n\ndefine 7 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine 8 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: (y)\nend\n\ndefine 9 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine 0 (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine Percent (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen down\n    go to x: ((x) - ((xs) / (3))) y: ((y) + ((ys) / (2)))\n    go to x: ((x) - ((xs) / (3))) y: ((y) + ((ys) / (3)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (3)))\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (2)))\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\n    pen down\n    go to x: ((x) + ((xs) / (3))) y: ((y) - ((ys) / (2)))\n    go to x: ((x) + ((xs) / (3))) y: ((y) - ((ys) / (3)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (3)))\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (2)))\nend\n\ndefine : (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: (x) y: ((y) - ((ys) / (3)))\n    pen down\n    pen up\n    go to x: (x) y: ((y) + ((ys) / (3)))\n    pen down\nend\n\ndefine > (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) + ((xs) / (2))) y: ((y) + ((ys) / (3)))\n    pen down\n    go to x: ((x) - ((xs) / (2))) y: (y)\n    go to x: ((x) + ((xs) / (2))) y: ((y) - ((ys) / (3)))\nend\n\ndefine < (x) (y) (xs) (ys) <true?>\nif <true?> then\n    pen up\n    go to x: ((x) - ((xs) / (2))) y: ((y) + ((ys) / (3)))\n    pen down\n    go to x: ((x) + ((xs) / (2))) y: (y)\n    go to x: ((x) - ((xs) / (2))) y: ((y) - ((ys) / (3)))\nend\n\ndefine Line (x) (y) (angle) (size)\npen up\ngo to x: ((x) + (([sin v] of ((90) + (angle)) ) * (size))) y: ((y) + (([cos v] of ((90) + (angle)) ) * (size)))\npen down\ngo to x: ((x) + (([sin v] of ((270) + (angle)) ) * (size))) y: ((y) + (([cos v] of ((270) + (angle)) ) * (size)))\ngo to x: ((x) + (([sin v] of ((270) + (angle)) ) * (size))) y: ((y) + (([cos v] of ((270) + (angle)) ) * (size)))\n\ndefine Platform (x) (y) (angle) (size)\nif <<<[-240] < (x)> and <(x) < [240]>> and <<[-180] < (y)> and <(y) < [180]>>> then\n    Colour SBCT [100] [100] (Colour) [60] PenSize [60]\n    Line ((x) + (([sin v] of (angle) ) * (20))) ((y) + (([cos v] of (angle) ) * (20))) (angle) (size)\n    Colour SBCT [100] [100] (Colour) [60] PenSize [60]\n    Line ((x) + (([sin v] of (angle) ) * (10))) ((y) + (([cos v] of (angle) ) * (10))) (angle) (size)\n    Line (x) (y) (angle) (size)\n    Colour SBCT [100] [100] (Colour) [0] PenSize [60]\n    Line (x) (y) (angle) (size)\n    Colour SBCT [50] [100] (Colour) [0] PenSize [50]\n    Line (x) (y) (angle) (size)\n    Colour SBCT [0] [10] (Colour) [0] PenSize [40]\n    Line (x) (y) (angle) (size)\n    Colour SBCT [0] [15] (Colour) [0] PenSize [30]\n    Line (x) (y) (angle) (size)\nend\n\ndefine Colour SBCT (sarutation) (brightness) (colour) (transparency) PenSize (size)\nset pen size to (size)\nset pen (color v) to (colour)\nset pen (saturation v) to (sarutation)\nset pen (brightness v) to (brightness)\nset pen (transparency v) to (transparency)\n\ndefine Player (angle) (size) (y)\nColour SBCT [100] [100] ((Colour) + (50)) [0] PenSize [10]\npen up\ngo to x: (([sin v] of ((45) + (angle)) ) * (size)) y: ((([cos v] of ((45) + (angle)) ) * (size)) + (y))\npen down\ngo to x: (([sin v] of ((135) + (angle)) ) * (size)) y: ((([cos v] of ((135) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((225) + (angle)) ) * (size)) y: ((([cos v] of ((225) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((315) + (angle)) ) * (size)) y: ((([cos v] of ((315) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((45) + (angle)) ) * (size)) y: ((([cos v] of ((45) + (angle)) ) * (size)) + (y))\nColour SBCT [100] [75] ((Colour) + (50)) [0] PenSize [5]\npen up\ngo to x: (([sin v] of ((45) + (angle)) ) * (size)) y: ((([cos v] of ((45) + (angle)) ) * (size)) + (y))\npen down\ngo to x: (([sin v] of ((135) + (angle)) ) * (size)) y: ((([cos v] of ((135) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((225) + (angle)) ) * (size)) y: ((([cos v] of ((225) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((315) + (angle)) ) * (size)) y: ((([cos v] of ((315) + (angle)) ) * (size)) + (y))\ngo to x: (([sin v] of ((45) + (angle)) ) * (size)) y: ((([cos v] of ((45) + (angle)) ) * (size)) + (y))\n\ndefine GravityConverter\nset [player/platformdistance v] to ([sqrt v] of ((((item ((ActivePlatform) + ()) of [platforms v]) - (ScrollX)) * ((item ((ActivePlatform) + ()) of [platforms v]) - (ScrollX))) + (((item ((ActivePlatform) + (1)) of [platforms v]) - (ScrollY)) * ((item ((ActivePlatform) + (1)) of [platforms v]) - (ScrollY)))) )\nset [platformangledistancex v] to ((item ((ActivePlatform) + ()) of [platforms v]) + (([sin v] of (item ((ActivePlatform) + (2)) of [platforms v]) ) * (Player/PlatformDistance)))\nset [platformangledistancey v] to ((item ((ActivePlatform) + (1)) of [platforms v]) + (([cos v] of (item ((ActivePlatform) + (2)) of [platforms v]) ) * (Player/PlatformDistance)))\nset [player/padistance v] to (([sqrt v] of ((((PlatformAngleDistanceX) - (ScrollX)) * ((PlatformAngleDistanceX) - (ScrollX))) + (((PlatformAngleDistanceY) - (ScrollY)) * ((PlatformAngleDistanceY) - (ScrollY)))) ) / (2))\nset [player-pa/platformdistance v] to ([sqrt v] of (((Player/PlatformDistance) * (Player/PlatformDistance)) - ((Player/PADistance) * (Player/PADistance))) )\nset [angledifference v] to ((2) * ([atan v] of ((Player/PADistance) / (Player-PA/PlatformDistance)) ))\nset [0degreeplayerx v] to ((item ((ActivePlatform) + ()) of [platforms v]) + (([sin v] of (AngleDifference) ) * (Player/PlatformDistance)))\nset [0degreeplayery v] to ((item ((ActivePlatform) + (1)) of [platforms v]) + (([cos v] of (AngleDifference) ) * (Player/PlatformDistance)))\nset [platformplayerx v] to ((0DegreePlayerX) - (item ((ActivePlatform) + ()) of [platforms v]))\nif <(round (ScrollX)) = (round ((item ((ActivePlatform) + ()) of [platforms v]) + ((([sin v] of ((90) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * ((0DegreePlayerX) - (item ((ActivePlatform) + ()) of [platforms v]))) + (([sin v] of ((0) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * ((0DegreePlayerY) - (item ((ActivePlatform) + (1)) of [platforms v]))))))> then\n    set [platformplayerx v] to ((0DegreePlayerX) - (item ((ActivePlatform) + ()) of [platforms v]))\nelse\n    set [platformplayerx v] to (join [-] ((0DegreePlayerX) - (item ((ActivePlatform) + ()) of [platforms v])))\nend\nset [platformplayery v] to ((0DegreePlayerY) - (item ((ActivePlatform) + (1)) of [platforms v]))\n\ndefine RenderPlatform\nset [data v] to [1]\nrepeat ((length of [platforms v]) / (4))\n    Platform ((item ((Data) + ()) of [platforms v]) - (ScrollX)) ((item ((Data) + (1)) of [platforms v]) - (ScrollY)) (item ((Data) + (2)) of [platforms v]) (item ((Data) + (3)) of [platforms v])\n    change [data v] by (4)\nend\n\ndefine Movement\nset [scrollx v] to ((item ((ActivePlatform) + ()) of [platforms v]) + ((([sin v] of ((90) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * (PlatformPlayerX)) + (([sin v] of ((0) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * (PlatformPlayerY))))\nset [scrolly v] to ((item ((ActivePlatform) + (1)) of [platforms v]) + ((([cos v] of ((90) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * (PlatformPlayerX)) + (([cos v] of ((0) + (item ((ActivePlatform) + (2)) of [platforms v])) ) * (PlatformPlayerY))))\n\ndefine Controls (xvol)\nif <not <(PlatformPlayerY) < [0]>> then\n    if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n        set [xvol v] to (xvol)\n    end\n    if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n        set [xvol v] to ((xvol) - ((xvol) * (2)))\n    end\nend\nif <<key (w v) pressed?> or <key (up arrow v) pressed?>> then\n    if <(Jumps) < [2]> then\n        set [yvol v] to [12]\n        change [jumps v] by (1)\n    end\nend\nchange [platformplayery v] by (Yvol)\nif <<<[0] < ((PlatformPlayerY) - (50))> or <(PlatformPlayerY) < [0]>> or <((item ((ActivePlatform) + (3)) of [platforms v]) + (30)) < ([abs v] of (PlatformPlayerX) )>> then\n    change [yvol v] by (-1)\nelse\n    set [yvol v] to [0]\n    set [platformplayery v] to [50]\n    set [jumps v] to [0]\nend\nset [xvol v] to ((Xvol) * (0.9))\nchange [platformplayerx v] by (Xvol)\n\ndefine ActivePlatform\nif <(Yvol) < [1]> then\n    set [activeplatform v] to [1]\n    set [platformdata v] to [1]\n    set [closestplatform v] to (([abs v] of ((ScrollX) - (item ((PlatformData) + (0)) of [platforms v])) ) + ([abs v] of ((ScrollY) - (item ((PlatformData) + (1)) of [platforms v])) ))\n    repeat (((length of [platforms v]) / (4)) - (1))\n        change [platformdata v] by (4)\n        if <(([abs v] of ((ScrollX) - (item ((PlatformData) + (0)) of [platforms v])) ) + ([abs v] of ((ScrollY) - (item ((PlatformData) + (1)) of [platforms v])) )) < (ClosestPlatform)> then\n            set [activeplatform v] to (PlatformData)\n            set [closestplatform v] to (([abs v] of ((ScrollX) - (item ((PlatformData) + (0)) of [platforms v])) ) + ([abs v] of ((ScrollY) - (item ((PlatformData) + (1)) of [platforms v])) ))\n        end\n    end\nend\n\nset [platformplayery v] to ((0DegreePlayerY) - (item ((ActivePlatform) + (1)) of [platforms v]))\n\nset [scrolly v] to [0]\n\nadd (x) to [platforms v]\nadd (y) to [platforms v]\nadd (angle) to [platforms v]\nadd (size) to [platforms v]\ndelete (1) of [platforms v]\ndelete (1) of [platforms v]\ndelete (1) of [platforms v]\ndelete (1) of [platforms v]\nif <(ActivePlatform) = [5]> then\n    set [activeplatform v] to [1]\nend\n\ndefine Movement2\n\ndefine PlatformerText (x) (y) (value) (width)\nif <<[240] > ([abs v] of ((x) - (ScrollX)) )> and <[180] > ([abs v] of ((y) - (ScrollY)) )>> then\n    Colour SBCT [50] [100] ((Colour) + (50)) [0] PenSize [3]\n    Text ((x) - (ScrollX)) ((y) - (ScrollY)) (value) (width) [20] [] [] [3]\n    Colour SBCT [100] [100] ((Colour) + (50)) [0] PenSize [1]\n    Text ((x) - (ScrollX)) ((y) - (ScrollY)) (value) (width) [20] [] [] [3]\nend\n\ndefine Checkpoints\ndelete all of [checkpoints v]\nadd [1] to [checkpoints v]\nadd [13] to [checkpoints v]\nadd [22] to [checkpoints v]\nif <<[checkpoints v] contains ((((ActivePlatform) - (1)) / (4)) - (0))?> and <(Checkpoint) < (ActivePlatform)>> then\n    set [checkpoint v] to ((((ActivePlatform) - (1)) / (4)) - (0))\nend\n\nadd [120] to [checkpoints v]\nadd [180] to [checkpoints v]\n\nif <((round ((round (Colour)) / (4))) * (4)) = ((round ((round (Colour)) / (2))) * (2))> then\n    Platform ((item ((Data) + ()) of [platforms v]) - (ScrollX)) ((item ((Data) + (1)) of [platforms v]) - (ScrollY)) (item ((Data) + (2)) of [platforms v]) (item ((Data) + (3)) of [platforms v])\nend\n\nif <(ActivePlatform) < (Data)> then\n\nActivePlatform\n\nchange [activeplatform v] by (-4)\n\nset [mode v] to [Thumbnail]\n\n