Realms - A Platformer

Instructions: In this world, there are 2 realms.\n\nYou are in one realm physically, but can interact with both. The realms may look similar, but there are a few small differences. If something appears in the 2nd realm, you can still interact with it, even if it doesn't appear in the 1st realm. Good Luck!\n\nRed - Kills\nPink - Bouncy\nBrown - Boxes\nYellow - Goal\n\nMusic from Mario Galaxy\nCoding 100% by me\n100% possible\n100% pen\n\nComment if you beat it.

@Stage\n\nwhen flag clicked\nforever\n    play sound [Realms Main Theme v] until done\nend\n\n@pen\n\ndefine Add Rectangle (x) (y) (width) (height) (tyoe) (realm)\nadd (x) to [level xs v]\nadd (y) to [level ys v]\nadd (width) to [level widths v]\nadd (height) to [level heights v]\nadd (tyoe) to [level types v]\nadd (realm) to [level realms v]\n\ndefine Go To (x) (y) <ground?>\nif <(bg?) = [0]> then\n    go to x: (x) y: (y)\nelse\n    set pen (transparency v) to (35)\n    go to x: (((x) + (xdepth)) * (0.9)) y: (((y) + (ydepth)) * (0.9))\nend\n\ndefine Draw Thumbnail Image\nset pen size to (5)\nset pen color to (#ffffff)\npen up\nerase all\ngo to x: (-200) y: (-100)\npen down\ngo to x: (-200) y: (-50)\nrepeat (400)\n    change x by (1)\n    set y to ((([sin v] of ((x position) * (5)) ) * (5)) - (55))\nend\npen up\ngo to x: (-200) y: (-100)\npen down\nrepeat (400)\n    change x by (1)\n    set y to ((([sin v] of ((x position) * (5)) ) * (5)) - (105))\nend\nchange y by (50)\npen up\nset pen color to (#ff8800)\ngo to x: (-25) y: (([sin v] of ((-20) * (5)) ) * (5))\npen down\nrepeat (50)\n    change x by (1)\n    set y to (([sin v] of ((x position) * (5)) ) * (5))\nend\nchange y by (-50)\nrepeat (50)\n    change x by (-1)\n    set y to ((([sin v] of ((x position) * (5)) ) * (5)) - (50))\nend\nchange y by (50)\n\ndefine Go To (World 1)\n\ndefine Draw Level #\npen up\nset pen color to (#b7b7b7)\nset pen size to (5)\nset [#1 v] to (letter (1) of (Level))\nset [#2 v] to (letter (2) of (Level))\nif <(#1) = [1]> then\n    go to x: (-200) y: (170)\n    pen down\n    change y by (-60)\nend\nif <(#1) = [2]> then\n    go to x: (-230) y: (170)\n    pen down\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\n    change y by (-30)\n    change x by (30)\nend\nif <(#1) = [3]> then\n    go to x: (-230) y: (170)\n    pen down\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\nend\nif <(#1) = [4]> then\n    go to x: (-230) y: (170)\n    pen down\n    change y by (-30)\n    change x by (30)\n    change y by (30)\n    change y by (-60)\nend\nif <(#1) = [5]> then\n    go to x: (-200) y: (170)\n    pen down\n    change x by (-30)\n    change y by (-30)\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\nend\nif <(#1) = [6]> then\n    go to x: (-200) y: (170)\n    pen down\n    change x by (-30)\n    change y by (-60)\n    change x by (30)\n    change y by (30)\n    change x by (-30)\nend\nif <(#1) = [7]> then\n    go to x: (-230) y: (170)\n    pen down\n    change x by (30)\n    change y by (-60)\nend\nif <(#1) = [8]> then\n    go to x: (-230) y: (140)\n    pen down\n    change y by (30)\n    change x by (30)\n    change y by (-60)\n    change x by (-30)\n    change y by (30)\n    change x by (30)\nend\nif <(#1) = [9]> then\n    go to x: (-200) y: (140)\n    pen down\n    change x by (-30)\n    change y by (30)\n    change x by (30)\n    change y by (-60)\nend\nif <(#1) = [0]> then\n    go to x: (-230) y: (170)\n    pen down\n    change x by (30)\n    change y by (-60)\n    change x by (-30)\n    change y by (60)\nend\nDraw Level #2\n\ndefine Draw Level #2\npen up\nif <(#2) = [1]> then\n    go to x: (-160) y: (170)\n    pen down\n    change y by (-60)\nend\nif <(#2) = [2]> then\n    go to x: (-190) y: (170)\n    pen down\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\n    change y by (-30)\n    change x by (30)\nend\nif <(#2) = [3]> then\n    go to x: (-190) y: (170)\n    pen down\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\nend\nif <(#2) = [4]> then\n    go to x: (-190) y: (170)\n    pen down\n    change y by (-30)\n    change x by (30)\n    change y by (30)\n    change y by (-60)\nend\nif <(#2) = [5]> then\n    go to x: (-160) y: (170)\n    pen down\n    change x by (-30)\n    change y by (-30)\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\nend\nif <(#2) = [6]> then\n    go to x: (-160) y: (170)\n    pen down\n    change x by (-30)\n    change y by (-60)\n    change x by (30)\n    change y by (30)\n    change x by (-30)\nend\nif <(#2) = [7]> then\n    go to x: (-190) y: (170)\n    pen down\n    change x by (30)\n    change y by (-60)\nend\nif <(#2) = [8]> then\n    go to x: (-190) y: (140)\n    pen down\n    change y by (30)\n    change x by (30)\n    change y by (-60)\n    change x by (-30)\n    change y by (30)\n    change x by (30)\nend\nif <(#2) = [9]> then\n    go to x: (-160) y: (140)\n    pen down\n    change x by (-30)\n    change y by (30)\n    change x by (30)\n    change y by (-60)\nend\nif <(#2) = [0]> then\n    go to x: (-190) y: (170)\n    pen down\n    change x by (30)\n    change y by (-60)\n    change x by (-30)\n    change y by (60)\nend\n\ndefine Create Level\ndelete (all) of [level xs v]\ndelete (all) of [level ys v]\ndelete (all) of [level widths v]\ndelete (all) of [level heights v]\ndelete (all) of [level types v]\ndelete all of [level realms v]\nif <(Level) = [10]> then\n    Add Rectangle (-150) (-50) (50) (25) (2) [2]\n    Add Rectangle (-100) (-50) (275) (25) (1) [0]\n    Add Rectangle (175) (-50) (50) (25) (2) [2]\n    Add Rectangle (-100) (50) (25) (100) (2) [1]\n    Add Rectangle (-75) (50) (25) (25) (2) [1]\n    Add Rectangle (-75) (88) (25) (25) (2) [1]\n    Add Rectangle (-75) (125) (25) (25) (2) [1]\n    Add Rectangle (-25) (50) (25) (100) (1) [1]\n    Add Rectangle (0) (100) (25) (25) (5) [1]\n    Add Rectangle (25) (75) (25) (25) (5) [1]\n    Add Rectangle (50) (50) (25) (100) (1) [1]\n    Add Rectangle (100) (50) (25) (100) (3) [1]\n    Add Rectangle (125) (50) (25) (25) (3) [1]\n    Add Rectangle (125) (125) (25) (25) (3) [1]\n    Add Rectangle (150) (75) (25) (50) (3) [1]\nend\nif <(Level) = [9]> then\n    Add Rectangle (-275) (-200) (25) (150) (1) [2]\n    Add Rectangle (0) (-200) (50) (25) (2) [0]\n    Add Rectangle (50) (-200) (50) (25) (1) [0]\n    Add Rectangle (-250) (-200) (250) (25) (1) [0]\n    Add Rectangle (75) (-100) (150) (25) (1) [0]\n    Add Rectangle (125) (-75) (25) (75) (3) [2]\n    Add Rectangle (275) (-100) (375) (25) (1) [0]\n    Add Rectangle (250) (-200) (25) (100) (5) [0]\n    Add Rectangle (150) (-225) (400) (25) (1) [0]\n    Add Rectangle (150) (-200) (25) (100) (1) [0]\n    Add Rectangle (275) (-200) (25) (25) (1) [2]\n    Add Rectangle (600) (-75) (25) (200) (5) [0]\n    Add Rectangle (650) (-100) (25) (300) (1) [0]\n    Add Rectangle (575) (-75) (25) (100) (1) [0]\n    Add Rectangle (550) (25) (50) (50) (5) [0]\n    Add Rectangle (400) (-25) (25) (500) (1) [0]\n    Add Rectangle (450) (-200) (50) (25) (3) [2]\n    Add Rectangle (650) (-200) (50) (25) (1) [0]\n    Add Rectangle (350) (0) (50) (25) (1) [0]\n    Add Rectangle (-50) (-50) (50) (25) (1) [0]\n    Add Rectangle (-325) (-200) (50) (25) (4) [0]\n    Add Rectangle (-75) (-50) (25) (150) (3) [0]\n    Add Rectangle (750) (-200) (25) (250) (2) [0]\nend\nif <(Level) = [8]> then\n    Add Rectangle (-450) (-200) (500) (25) (5) [0]\n    Add Rectangle (-50) (-50) (100) (25) (1) [0]\n    Add Rectangle (200) (40) (200) (25) (1) [2]\n    Add Rectangle (400) (40) (50) (25) (2) [2]\n    Add Rectangle (600) (100) (200) (25) (1) [1]\n    Add Rectangle (800) (100) (50) (25) (2) [1]\n    Add Rectangle (0) (250) (800) (25) (1) [0]\n    Add Rectangle (-200) (250) (200) (25) (5) [0]\n    Add Rectangle (-225) (0) (25) (400) (3) [0]\n    Add Rectangle (-500) (-200) (50) (25) (4) [0]\nend\nif <(Level) = [7]> then\n    Add Rectangle (-50) (-50) (100) (25) (1) [0]\n    Add Rectangle (50) (-50) (25) (100) (3) [2]\n    Add Rectangle (75) (-50) (100) (25) (1) [2]\n    Add Rectangle (175) (-50) (50) (25) (2) [0]\n    Add Rectangle (225) (100) (50) (25) (1) [0]\n    Add Rectangle (300) (100) (50) (25) (1) [0]\n    Add Rectangle (350) (100) (100) (30) (3) [1]\n    Add Rectangle (450) (100) (50) (25) (1) [0]\n    Add Rectangle (500) (100) (50) (25) (1) [0]\n    Add Rectangle (550) (100) (100) (30) (3) [2]\n    Add Rectangle (650) (100) (50) (25) (1) [0]\n    Add Rectangle (750) (-150) (25) (400) (1) [0]\n    Add Rectangle (675) (-200) (25) (300) (1) [0]\n    Add Rectangle (675) (-225) (150) (25) (1) [0]\n    Add Rectangle (700) (100) (50) (25) (5) [0]\n    Add Rectangle (775) (-125) (50) (25) (4) [0]\nend\nif <(Level) = [6]> then\n    Add Rectangle (-50) (-50) (1000) (25) (1) [0]\n    Add Rectangle (50) (0) (50) (50) (5) [0]\n    Add Rectangle (50) (100) (50) (25) (1) [2]\n    Add Rectangle (100) (0) (50) (50) (1) [2]\n    Add Rectangle (200) (-25) (50) (25) (1) [2]\n    Add Rectangle (300) (50) (50) (100) (1) [2]\n    Add Rectangle (400) (100) (50) (25) (1) [2]\n    Add Rectangle (450) (0) (50) (50) (1) [2]\n    Add Rectangle (600) (25) (50) (100) (1) [2]\n    Add Rectangle (950) (-50) (50) (150) (1) [0]\n    Add Rectangle (1000) (50) (50) (50) (4) [0]\nend\nif <(Level) = [5]> then\n    Add Rectangle (-50) (-50) (100) (25) (1) [0]\n    Add Rectangle (50) (-25) (200) (25) (5) [2]\n    Add Rectangle (250) (-50) (600) (25) (1) [0]\n    Add Rectangle (700) (75) (50) (25) (5) [0]\n    Add Rectangle (600) (-25) (50) (25) (5) [0]\n    Add Rectangle (850) (-50) (50) (100) (1) [0]\n    Add Rectangle (851) (50) (49) (25) (3) [0]\n    Add Rectangle (900) (-50) (50) (200) (1) [2]\n    Add Rectangle (1000) (-50) (50) (300) (1) [0]\n    Add Rectangle (1000) (250) (50) (25) (4) [0]\nend\nif <(Level) = [4]> then\n    Add Rectangle (-50) (-50) (100) (25) (1) [0]\n    Add Rectangle (-50) (-25) (25) (250) (1) [0]\n    Add Rectangle (-25) (25) (50) (25) (5) [2]\n    Add Rectangle (25) (-25) (25) (75) (1) [0]\n    Add Rectangle (50) (25) (300) (25) (1) [0]\n    Add Rectangle (275) (50) (75) (25) (5) [2]\n    Add Rectangle (400) (25) (25) (250) (1) [0]\n    Add Rectangle (350) (25) (50) (25) (4) [0]\nend\nif <(Level) = [3]> then\n    Add Rectangle (-50) (-50) (500) (25) (1) [1]\n    Add Rectangle (50) (-25) (50) (50) (5) [1]\n    Add Rectangle (200) (-25) (25) (150) (1) [1]\n    Add Rectangle (350) (-25) (50) (50) (4) [1]\nend\nif <(Level) = [2]> then\n    Add Rectangle (-50) (-50) (150) (25) (1) [0]\n    Add Rectangle (100) (-50) (25) (75) (3) [2]\n    Add Rectangle (125) (-50) (75) (25) (1) [0]\n    Add Rectangle (200) (-50) (50) (25) (2) [2]\n    Add Rectangle (250) (-50) (25) (100) (3) [0]\n    Add Rectangle (275) (25) (100) (25) (1) [0]\n    Add Rectangle (375) (25) (25) (100) (4) [2]\nend\nif <(Level) = [1]> then\n    Add Rectangle (-50) (-50) (100) (25) (1) [0]\n    Add Rectangle (50) (-50) (25) (50) (3) [0]\n    Add Rectangle (75) (-50) (125) (25) (1) [0]\n    Add Rectangle (200) (-50) (50) (25) (2) [0]\n    Add Rectangle (250) (-50) (100) (175) (1) [0]\n    Add Rectangle (425) (100) (150) (25) (1) [2]\n    Add Rectangle (650) (100) (100) (25) (1) [0]\n    Add Rectangle (675) (200) (50) (25) (4) [0]\nend\n\nrepeat until \n\nchange [x position v] by (-1)\n\nrepeat until \n\nchange [y position v] by (() - (round (y position)))\n\nset [y position v] to [0]\n\nadd [1] to [touching v]\n\nwhen flag clicked\nset [xdepth v] to [50]\nset [ydepth v] to [50]\nset [level v] to [1]\nif <(username) = [04tmoody]> then\n    set [level v] to [1]\nend\nCreate Level\nset [xv v] to [0]\nset [yv v] to [0]\nset [x position v] to [0]\nset [y position v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nforever\n    set [detection v] to [0]\n    set [xdepth v] to ((Scroll X) / (10))\n    set [ydepth v] to ((50) - ((Scroll Y) / (2)))\n    Draw\n    Update\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [20]>>> then\n        change [xv v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <[0] > (mouse x)>>> then\n        change [xv v] by (-1)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change [x position v] by (Xv)\n    set [detection v] to [x]\n    Update\n    set [detection v] to [0]\n    if <[touching v] contains [1]?> then\n        change [y position v] by (1)\n        Update\n        if <[touching v] contains [1]?> then\n            change [y position v] by (1)\n            Update\n            if <[touching v] contains [1]?> then\n                change [y position v] by (1)\n                Update\n                if <[touching v] contains [1]?> then\n                    change [y position v] by (1)\n                    Update\n                    if <[touching v] contains [1]?> then\n                        change [y position v] by (1)\n                        Update\n                        if <[touching v] contains [1]?> then\n                            change [x position v] by ((Xv) * (-1))\n                            change [y position v] by (-5)\n                            \n                                if <(Xv) > [0]> then\n                                    set [xv v] to [-5]\n                                else\n                                    set [xv v] to [5]\n                                end\n                                set [yv v] to [10]\n                            else\n                                set [xv v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    Update\n    change [yv v] by (-1)\n    change [y position v] by (Yv)\n    set [detection v] to [y]\n    Update\n    set [detection v] to [0]\n    if <[touching v] contains [1]?> then\n        change [y position v] by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    Update\n    change [y position v] by (-1)\n    Update\n    if <[touching v] contains [1]?> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [20]>>> then\n            set [yv v] to [15]\n        end\n    end\n    Update\n    if <[touching v] contains [2]?> then\n        set [yv v] to [20]\n    end\n    Update\n    if <<[touching v] contains [3]?> or <(Scroll Y) > [500]>> then\n        reset timer\n        set [xv v] to [0]\n        set [yv v] to [0]\n        set [x position v] to [0]\n        set [y position v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        Create Level\n    end\n    if <<<[touching v] contains [4]?> or <key (s v) pressed?>> or <<(touching_skip) = [1]> and <mouse down?>>> then\n        wait until <<not <key (s v) pressed?>> and <not <mouse down?>>>\n        reset timer\n        set [xv v] to [0]\n        set [yv v] to [0]\n        set [x position v] to [0]\n        set [y position v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        change [level v] by (1)\n        Create Level\n    end\n    if <<(Level) > [1]> and <key (b v) pressed?>> then\n        wait until <not <key (b v) pressed?>>\n        reset timer\n        set [xv v] to [0]\n        set [yv v] to [0]\n        set [x position v] to [0]\n        set [y position v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        change [level v] by (-1)\n        Create Level\n    end\n    if <key (r v) pressed?> then\n        wait until <not <key (r v) pressed?>>\n        reset timer\n        set [xv v] to [0]\n        set [yv v] to [0]\n        set [x position v] to [0]\n        set [y position v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        Create Level\n    end\n    Update\n    change [y position v] by (1)\n    Scrolling\nend\n\ndefine Go To (x) (y) with shift\nGo To ((x) + (Scroll X)) ((y) + (Scroll Y)) \n\ndefine Scrolling\nchange [scroll x v] by (() - (x position))\nchange [x position v] by (() - (x position))\nchange [scroll y v] by (() - (y position))\nchange [y position v] by (() - (y position))\n\nwhen flag clicked\nhide\nforever\n    set [detection v] to [0]\n    Update\nend\n\ndefine Update\ndelete (all) of [touching v]\nset [i v] to [0]\nrepeat (length of [level xs v])\n    change [i v] by (1)\n    if <<<(x position) < (((item (i) of [level xs v]) + (Scroll X)) + (item (i) of [level widths v]))> and <((x position) + (20)) > ((item (i) of [level xs v]) + (Scroll X))>> and <<(y position) < (((item (i) of [level ys v]) + (Scroll Y)) + (item (i) of [level heights v]))> and <((y position) + (20)) > ((item (i) of [level ys v]) + (Scroll Y))>>> then\n        if <not <[touching v] contains (item (i) of [level types v])?>> then\n            add (item (i) of [level types v]) to [touching v]\n            if <(item (i) of [level types v]) = [5]> then\n                if <(detection) = [x]> then\n                    replace item (i) of [level xs v] with ((item (i) of [level xs v]) + (x position))\n                    set [j v] to [0]\n                    repeat (length of [level xs v])\n                        change [j v] by (1)\n                        if <not <(j) = (i)>> then\n                            if <<<(item (j) of [level xs v]) < ((item (i) of [level xs v]) + (item (i) of [level widths v]))> and <((item (j) of [level xs v]) + (item (j) of [level widths v])) > (item (i) of [level xs v])>> and <<(item (j) of [level ys v]) < ((item (i) of [level ys v]) + (item (i) of [level heights v]))> and <((item (j) of [level ys v]) + (item (j) of [level heights v])) > (item (i) of [level ys v])>>> then\n                                replace item (i) of [level xs v] with ((item (i) of [level xs v]) - (x position))\n                                add [1] to [touching v]\n                            end\n                        end\n                    end\n                else\n                    if <(detection) = [y]> then\n                        replace item (i) of [level ys v] with ((item (i) of [level ys v]) + (y position))\n                        set [j v] to [0]\n                        repeat (length of [level xs v])\n                            change [j v] by (1)\n                            if <not <(j) = (i)>> then\n                                if <<<(item (j) of [level xs v]) < ((item (i) of [level xs v]) + (item (i) of [level widths v]))> and <((item (j) of [level xs v]) + (item (j) of [level widths v])) > (item (i) of [level xs v])>> and <<(item (j) of [level ys v]) < ((item (i) of [level ys v]) + (item (i) of [level heights v]))> and <((item (j) of [level ys v]) + (item (j) of [level heights v])) > (item (i) of [level ys v])>>> then\n                                    replace item (i) of [level ys v] with ((item (i) of [level ys v]) - (round (y position)))\n                                    add [1] to [touching v]\n                                end\n                            end\n                        end\n                    else\n                        add [1] to [touching v]\n                    end\n                end\n            end\n        end\n    end\nend\nset [touching_skip v] to [0]\nif <<<(mouse x) > [200]> and <(mouse x) < [230]>> and <<(mouse y) > [-170]> and <(mouse y) < [-140]>>> then\n    set [touching_skip v] to [1]\nend\n\ndefine Draw\npen up\nerase all\nset pen size to (5)\nset [i v] to [0]\nrepeat (length of [level xs v])\n    change [i v] by (1)\n    if <<<((Scroll Y) + (((item (i) of [level ys v]) + (item (i) of [level heights v])) - (5))) > [-180]> and <((Scroll Y) + ((item (i) of [level ys v]) + (5))) < [240]>> and <<((Scroll X) + (((item (i) of [level xs v]) + (item (i) of [level widths v])) - (5))) > [-240]> and <((Scroll X) + ((item (i) of [level xs v]) + (5))) < [240]>>> then\n        Go To ((item (i) of [level xs v]) + (5)) ((item (i) of [level ys v]) + (5)) with shift\n        set pen color to (#000000)\n        if <(item (i) of [level types v]) = [2]> then\n            set pen color to (#e228c9)\n        end\n        if <(item (i) of [level types v]) = [1]> then\n            set pen color to (#009623)\n        end\n        if <(item (i) of [level types v]) = [3]> then\n            set pen color to (#cb0f0f)\n        end\n        if <(item (i) of [level types v]) = [4]> then\n            set pen color to (#ffaa18)\n        end\n        if <(item (i) of [level types v]) = [5]> then\n            set pen color to (#8c5b00)\n        end\n        if <not <(item (i) of [level realms v]) = [2]>> then\n            set [bg? v] to [0]\n            pen down\n            Go To (((item (i) of [level xs v]) + (item (i) of [level widths v])) - (5)) ((item (i) of [level ys v]) + (5)) with shift\n            Go To (((item (i) of [level xs v]) + (item (i) of [level widths v])) - (5)) (((item (i) of [level ys v]) + (item (i) of [level heights v])) - (5)) with shift\n            Go To ((item (i) of [level xs v]) + (5)) (((item (i) of [level ys v]) + (item (i) of [level heights v])) - (5)) with shift\n            Go To ((item (i) of [level xs v]) + (5)) ((item (i) of [level ys v]) + (5)) with shift\n            pen up\n        end\n        if <not <(item (i) of [level realms v]) = [1]>> then\n            set [bg? v] to [1]\n            Go To ((item (i) of [level xs v]) + (5)) ((item (i) of [level ys v]) + (5)) with shift\n            pen down\n            Go To (((item (i) of [level xs v]) + (item (i) of [level widths v])) - (5)) ((item (i) of [level ys v]) + (5)) with shift\n            Go To (((item (i) of [level xs v]) + (item (i) of [level widths v])) - (5)) (((item (i) of [level ys v]) + (item (i) of [level heights v])) - (5)) with shift\n            Go To ((item (i) of [level xs v]) + (5)) (((item (i) of [level ys v]) + (item (i) of [level heights v])) - (5)) with shift\n            Go To ((item (i) of [level xs v]) + (5)) ((item (i) of [level ys v]) + (5)) with shift\n            pen up\n        end\n        set [bg? v] to [0]\n    end\nend\nset pen color to (#1b00ff)\nGo To (x position) (y position) <>\npen down\nGo To (x position) ((y position) + (20)) <>\nGo To ((x position) + (20)) ((y position) + (20)) <>\nGo To ((x position) + (20)) (y position) <>\nGo To (x position) (y position) <>\npen up\nset [bg? v] to [0]\nset pen color to (#ab00a5)\nif <(touching_skip) = [1]> then\n    set pen color to (#ff00bb)\nend\ngo to x: (200) y: (-140)\npen down\nchange x by (30)\nchange y by (-30)\nchange x by (-30)\nchange y by (30)\npen up\nset pen size to (3)\ngo to x: (220) y: (-150)\npen down\nchange x by (-10)\nchange y by (-5)\nchange x by (10)\nchange y by (-5)\nchange x by (-10)\nDraw Level #\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [show thumbnail v]\n\nwhen [space v] key pressed\nif <(username) = [04tmoody]> then\n    show\n    erase all\n    stop [all v]\nend\n\n