You Thought - Platformer
@Stage\n\nwhen flag clicked\nswitch backdrop to (white v)\n\nwhen I receive [beginning v]\nswitch backdrop to (blue v)\n\nwhen I receive [start v]\nforever\n    if <(Level) < [16]> then\n        if <(Inverted?) = [1]> then\n            switch backdrop to (white v)\n        else\n            switch backdrop to (blue v)\n        end\n    else\n        switch backdrop to (blue v)\n    end\nend\n\nset [inverted? v] to [1]\n\n@Intro\n\nwhen flag clicked\nset [clonetype v] to [0]\nhide\ngo to x: (0) y: (0)\nswitch costume to (original v)\nset [ghost v] effect to (100)\nset size to (150) %\npoint in direction (90)\nbroadcast (Intro_ v)\n\nwhen I start as a clone\nif <<(CloneType) > [0]> and <(CloneType) < [6]>> then\n    show\n    go to x: (0) y: (0)\n    switch costume to ((CloneType) + (1))\n    set [ghost v] effect to (100)\n    set size to (10) %\n    if <(CloneType) = [26]> then\n        go to [front v] layer\n    end\n    point in direction (0)\n    repeat (50)\n        change size by (((100) - (size)) / (8))\n        turn right (((90) - (direction)) / (8)) degrees\n        change [ghost v] effect by (-4)\n    end\n    set size to (100) %\n    wait until <(timer) > [2.5]>\n    repeat (20)\n        change size by (((125) - (size)) / (6))\n    end\n    broadcast (message1 v)\n    repeat (50)\n        change size by (((10) - (size)) / (8))\n        change [ghost v] effect by (4)\n    end\n    delete this clone\nend\n\nwhen I receive [intro_ v]\nset [clonetype v] to [0]\nreset timer\nrepeat (5)\n    change [clonetype v] by (1)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\nend\n\n@Thumnail/Title\n\nwhen I receive [message1 v]\nshow\ngo [backward v] (20) layers\nswitch costume to (blue v)\nset [ghost v] effect to (100)\nwait (0.4) seconds\ngo to [front v] layer\nshow\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (0.25) seconds\nswitch costume to (you v)\ncreate clone of (_myself_ v)\nswitch costume to (thought v)\ncreate clone of (_myself_ v)\nswitch costume to (blue v)\nwait (0.6) seconds\nswitch costume to (plain v)\ncreate clone of (_myself_ v)\nswitch costume to (glow+shadow v)\ncreate clone of (_myself_ v)\nswitch costume to (blue v)\n\nwhen I start as a clone\nset [ghost v] effect to (100)\nif <(costume [number v]) = [3]> then\n    go to x: (-150) y: (0)\n    repeat until <(x position) > [0]>\n        go to [front v] layer\n        change x by ((0.2) * ((1) - (x position)))\n        change [ghost v] effect by (-10)\n    end\n    go to x: (0) y: (0)\nelse\n    if <(costume [number v]) = [4]> then\n        go to x: (150) y: (0)\n        repeat until <(x position) < [0]>\n            go to [front v] layer\n            change x by ((0.2) * ((-1) - (x position)))\n            change [ghost v] effect by (-10)\n        end\n        go to x: (0) y: (0)\n    else\n        if <(costume [number v]) = [5]> then\n            go to [front v] layer\n            go to x: (0) y: (0)\n            repeat (10)\n                change [ghost v] effect by (-10)\n            end\n        else\n            wait (0.25) seconds\n            go to [front v] layer\n            go to x: (0) y: (0)\n            repeat (25)\n                change [ghost v] effect by (-4)\n            end\n            broadcast (message2 v)\n        end\n    end\nend\n\nwhen I receive [message2 v]\nswitch costume to (glow+shadow v)\ndelete this clone\n\nwhen I receive [message2 v]\nwait (0.8) seconds\nbroadcast (Beginning v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\nclear graphic effects\nswitch costume to (thumbnail v)\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\nhide\nswitch costume to (blank v)\ngo to x: (0) y: (0)\n\nmove (-10) steps\n\n@Start\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (plain v)\nhide\n\nwhen I receive [beginning v]\nset [ghost v] effect to (100)\nset size to (100) %\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nshow\nswitch costume to (plain v)\ncreate clone of (_myself_ v)\nswitch costume to (blur v)\nforever\n    if <(costume [number v]) = [2]> then\n        go to x: (0) y: (0)\n        go to [front v] layer\n        if <touching (mouse-pointer v)?> then\n            if <<mouse down?> or <key (space v) pressed?>> then\n                broadcast (Start v)\n                repeat (10)\n                    change [ghost v] effect by (10)\n                end\n                set [ghost v] effect to (100)\n                hide\n                stop [this script v]\n            end\n            change [ghost v] effect by (-10)\n        else\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            set [ghost v] effect to (100)\n        end\n    else\n        go to x: (0) y: (0)\n        clear graphic effects\n        show\n    end\nend\n\nwhen I receive [start v]\ndelete this clone\n\nwhen I receive [game end. v]\nswitch costume to (last level blur v)\nset [ghost v] effect to (100)\nshow\ngo to [front v] layer\nrepeat (50)\n    change [ghost v] effect by (-2)\nend\nbroadcast (Game End Blur v)\nwait (0.6) seconds\nhide\n\n@Player\n\nwhen I receive [start v]\nset [eligible4hs? v] to [1]\nforever\n    if <<key (space v) pressed?> or <key (r v) pressed?>> then\n        Go to spawn\n        broadcast (Necx Level v)\n        wait (0.01) seconds\n    end\n    if <key (v v) pressed?> then\n        ask [Skip to which level? 1-16] and wait\n        if <<(answer) > [0]> and <(answer) < [17]>> then\n            if <(Level) = (answer)> then\n                change [deaths/resets v] by (1)\n            end\n            change [skips v] by ((answer) - (Level))\n            set [level v] to (answer)\n            Go to spawn\n            broadcast (Necx Level v)\n            wait (0.01) seconds\n        else\n            say [Invalid Level] for (1) seconds\n        end\n    end\n    if <(Level) < [16]> then\n        if <key (n v) pressed?> then\n            change [skips v] by (1)\n            change [level v] by (1)\n            Go to spawn\n            broadcast (Necx Level v)\n            set [eligible4hs? v] to [0]\n            wait (0.01) seconds\n        end\n    end\n    if <(Level) > [1]> then\n        if <key (b v) pressed?> then\n            change [skips v] by (-1)\n            change [level v] by (-1)\n            Go to spawn\n            broadcast (Necx Level v)\n            wait (0.01) seconds\n        end\n    end\nend\n\ndefine Go to spawn\nset [inverted? v] to [0]\nset [y v] to [0]\nset [x v] to [0]\nset [easter egg #1 v] to [0]\nif <(Level) < [6]> then\n    go to x: (-202) y: (-151)\nend\nif <(Level) = [6]> then\n    go to x: (-202) y: (115)\nend\nif <<(Level) > [6]> and <(Level) < [14]>> then\n    go to x: (-202) y: (-151)\nend\nif <(Level) = [14]> then\n    go to x: (-220) y: (-151)\nend\nif <(Level) = [15]> then\n    go to x: (-220) y: (-151)\nend\n\nwhen I receive [start v]\nforever\n    if <(Inverted?) = [0]> then\n        switch costume to (nplayer v)\n    end\n    if <(Inverted?) = [1]> then\n        switch costume to (iplayer v)\n    end\nend\n\nwhen I receive [necx level v]\nif <(Level) = [16]> then\n    broadcast (Game end. v)\n    set [gameended? v] to [1]\n    set [inverted? v] to [0]\n    hide\n    stop [other scripts in sprite v]\n    stop [this script v]\nend\n\nwhen I receive [game end blur v]\nset [inverted? v] to [0]\n\nwhen I receive [start v]\nset [gameended? v] to [0]\ngo to x: (-202) y: (-151)\nset [level v] to [1]\nshow\nset [x v] to [0]\nset [y v] to [0]\nforever\n    change [y v] by (-1)\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [x v] by (-1)\n    end\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (levels v)?> then\n        change y by (1)\n    end\n    if <touching (levels v)?> then\n        change y by (1)\n    end\n    if <touching (levels v)?> then\n        change y by (1)\n    end\n    if <touching (levels v)?> then\n        change y by (1)\n    end\n    if <touching (levels v)?> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            set [y v] to [10]\n            if <([abs v] of (x) ) = (x)> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (levels v)?> then\n        change y by ((y) - ((y) * (2)))\n        set [y v] to [0]\n        if <(Level) = [5]> then\n            set [easter egg #1 v] to [0]\n        end\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <touching (levels v)?>> then\n        set [y v] to [10]\n    end\n    change y by (1)\n    if <(Inverted?) = [1]> then\n        if <<touching (obstacles/boosters v)?> and <touching color (#2375ff)?>> then\n            Go to spawn\n            change [deaths/resets v] by (1)\n            broadcast (Restart v)\n        end\n    end\n    if <(Inverted?) = [0]> then\n        if <<touching (obstacles/boosters v)?> and <touching color (#ffffff)?>> then\n            Go to spawn\n            change [deaths/resets v] by (1)\n            broadcast (Restart v)\n        end\n    end\n    if <<touching (obstacles/boosters v)?> and <touching color (#4aff3e)?>> then\n        set [y v] to [15]\n        if <(Level) = [5]> then\n            change [easter egg #1 v] by (1)\n        end\n    end\n    if <<touching (obstacles/boosters v)?> and <touching color (#ff0000)?>> then\n        set [y v] to [-15]\n    end\n    if <<touching (obstacles/boosters v)?> and <<touching color (#00cc44)?> or <touching color (#5eff86)?>>> then\n        if <(Inverted?) = [1]> then\n            go to x: (1Portal x) y: (1Portal y)\n        else\n            go to x: (2Portal x) y: (2Portal y)\n        end\n    end\n    if <touching (goal v)?> then\n        if <(Level) = [15]> then\n            change [level v] by (1)\n            broadcast (Game end. v)\n            set [gameended? v] to [1]\n            hide\n            stop [other scripts in sprite v]\n            stop [this script v]\n        else\n            set [inverted? v] to [0]\n            change [level v] by (1)\n            broadcast (Necx Level v)\n            go to [front v] layer\n            Go to spawn\n        end\n    end\n    go to [front v] layer\n    go [backward v] (1) layers\nend\n\nwhen flag clicked\nset [score sec or min? v] to [0]\nset [deaths/resets v] to [0]\nset [skips v] to [0]\nset [time \(secs\) v] to [0]\nset [time \(mins\) v] to [0]\nset [y v] to [0]\nset [inverted? v] to [0]\nset [level v] to [0]\nset [gameended? v] to [0]\nhide\n\n@Text\n\nwhen flag clicked\nerase all\nhide\n\ndefine Write text\nerase all\nif <(Level) = [1]> then\n    Write [???:You finally woke up!] at x: (-230) y: (165)\nelse\n    if <(Level) = [2]> then\n        Write [???:Woah there...  you just woke up...] at x: (-230) y: (165)\n    else\n        if <(Level) = [3]> then\n            Write [???:You're heading in the wrong direction.] at x: (-230) y: (165)\n            Write [Your workspace is in the other direction...] at x: (-189) y: (145)\n        else\n            if <(Level) = [4]> then\n                Write [???:Oh... I see....] at x: (-230) y: (165)\n            else\n                if <(Level) = [5]> then\n                    Write [???:I'm afraid you can't see your family... ] at x: (-230) y: (165)\n                else\n                    if <(Level) = [6]> then\n                        if <(username) = []> then\n                            Write [???:We did something terrible,Garth.] at x: (-230) y: (165)\n                        else\n                            Write (join (join [???:We did something terrible,] (username)) [.]) at x: (-230) y: (165)\n                        end\n                    else\n                        if <(Level) = [7]> then\n                            Write [???:It put you in a] at x: (-230) y: (165)\n                            Write [coma... ] at x: (-230) y: (145)\n                        else\n                            if <(Level) = [8]> then\n                                Write [???:You see that thing? You made that...] at x: (-230) y: (165)\n                                Write [It changed things... made people corrupt... ] at x: (-230) y: (18)\n                            else\n                                if <(Level) = [9]> then\n                                    Write [???:They destroyed our homes and families.] at x: (-230) y: (165)\n                                    Write [Your family is not out there... ] at x: (-189) y: (145)\n                                else\n                                    if <(Level) = [10]> then\n                                        Write [???:Why do you not believe me? ] at x: (-230) y: (165)\n                                    else\n                                        if <(Level) = [11]> then\n                                            Write [???:If you go out there, you will be hurt...] at x: (-230) y: (165)\n                                        else\n                                            if <(Level) = [12]> then\n                                                Write [???:...By them.] at x: (-230) y: (165)\n                                            else\n                                                if <(Level) = [13]> then\n                                                    Write [???:Please stop, you're gonna hurt yourself.] at x: (-230) y: (30)\n                                                else\n                                                    if <(Level) = [14]> then\n                                                        Write [???:You can't go out there.] at x: (-200) y: (156)\n                                                        Write [You know what we did...] at x: (-80) y: (50)\n                                                    else\n                                                        if <(Level) = [15]> then\n                                                            Write [???:Last warning.] at x: (-200) y: (156)\n                                                            Write [you can't go out there...] at x: (-88) y: (74)\n                                                            Write [your family is corrupted.] at x: (-27) y: (-23)\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [game end. v]\nwait (0.01) seconds\nerase all\n\nwhen I receive [game end blur v]\ngo to [front v] layer\nWrite [] at x: (-226) y: (161)\n\nwhen I receive [click space v]\nWrite [-Click Space-] at x: (113) y: (-170)\n\nwhen I receive [hide space v]\nerase all\nif <(Story ending line #) = [1]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\nend\nif <(Story ending line #) = [2]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\n    Write [Finally, you could see your family again. ] at x: (-225) y: (113)\nend\nif <(Story ending line #) = [3]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\n    Write [Finally, you could see your family again. ] at x: (-225) y: (113)\n    Write [But as you looked around, your smile started] at x: (-225) y: (83)\n    Write [to turn into a frown.] at x: (-225) y: (63)\nend\nif <(Story ending line #) = [4]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\n    Write [Finally, you could see your family again. ] at x: (-225) y: (113)\n    Write [But as you looked around, your smile started] at x: (-225) y: (83)\n    Write [to turn into a frown.] at x: (-225) y: (63)\n    Write [A dystopian world lay beneath your feet.] at x: (-225) y: (33)\n    Write [Rubble was everywhere. fires in random places.] at x: (-225) y: (13)\nend\nif <(Story ending line #) = [5]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\n    Write [Finally, you could see your family again. ] at x: (-225) y: (113)\n    Write [But as you looked around, your smile started] at x: (-225) y: (83)\n    Write [to turn into a frown.] at x: (-225) y: (63)\n    Write [A dystopian world lay beneath your feet.] at x: (-225) y: (33)\n    Write [Rubble was everywhere. fires in random places.] at x: (-225) y: (13)\n    Write [In the distance, were some creatures.] at x: (-225) y: (-17)\n    Write [The corrupted, That's what he called them.] at x: (-225) y: (-37)\nend\nif <(Story ending line #) = [6]> then\n    Write [A smile streaked across your face as you] at x: (-225) y: (163)\n    Write [stepped out of the bunker...] at x: (-225) y: (143)\n    Write [Finally, you could see your family again. ] at x: (-225) y: (113)\n    Write [But as you looked around, your smile started] at x: (-225) y: (83)\n    Write [to turn into a frown.] at x: (-225) y: (63)\n    Write [A dystopian world lay beneath your feet.] at x: (-225) y: (33)\n    Write [Rubble was everywhere. fires in random places.] at x: (-225) y: (13)\n    Write [In the distance, were some creatures.] at x: (-225) y: (-17)\n    Write [The corrupted, That's what he called them.] at x: (-225) y: (-37)\n    Write [A tear rolled down your cheek. you thought] at x: (-225) y: (-67)\n    Write [you could see your family...] at x: (-225) y: (-87)\nend\n\ndefine Write (text) at x: (x) y: (y)\ngo to x: (x) y: (y)\nhide\nset [text number v] to [1]\nrepeat (length of (text))\n    if <(Inverted?) = [1]> then\n        if <<(letter (Text number) of (text)) = [A]> or <(letter (Text number) of (text)) = [a]>> then\n            switch costume to (a2 v)\n        end\n        if <<(letter (Text number) of (text)) = [B]> or <(letter (Text number) of (text)) = [b]>> then\n            switch costume to (b2 v)\n        end\n        if <<(letter (Text number) of (text)) = [C]> or <(letter (Text number) of (text)) = [c]>> then\n            switch costume to (c2 v)\n        end\n        if <<(letter (Text number) of (text)) = [D]> or <(letter (Text number) of (text)) = [d]>> then\n            switch costume to (d2 v)\n        end\n        if <<(letter (Text number) of (text)) = [E]> or <(letter (Text number) of (text)) = [e]>> then\n            switch costume to (e2 v)\n        end\n        if <<(letter (Text number) of (text)) = [F]> or <(letter (Text number) of (text)) = [f]>> then\n            switch costume to (f2 v)\n        end\n        if <<(letter (Text number) of (text)) = [G]> or <(letter (Text number) of (text)) = [g]>> then\n            switch costume to (g2 v)\n        end\n        if <<(letter (Text number) of (text)) = [H]> or <(letter (Text number) of (text)) = [h]>> then\n            switch costume to (h2 v)\n        end\n        if <<(letter (Text number) of (text)) = [I]> or <(letter (Text number) of (text)) = [i]>> then\n            switch costume to (i2 v)\n        end\n        if <<(letter (Text number) of (text)) = [J]> or <(letter (Text number) of (text)) = [j]>> then\n            switch costume to (j2 v)\n        end\n        if <<(letter (Text number) of (text)) = [K]> or <(letter (Text number) of (text)) = [k]>> then\n            switch costume to (k2 v)\n        end\n        if <<(letter (Text number) of (text)) = [L]> or <(letter (Text number) of (text)) = [l]>> then\n            switch costume to (l2 v)\n        end\n        if <<(letter (Text number) of (text)) = [M]> or <(letter (Text number) of (text)) = [m]>> then\n            switch costume to (m2 v)\n        end\n        if <<(letter (Text number) of (text)) = [N]> or <(letter (Text number) of (text)) = [n]>> then\n            switch costume to (n2 v)\n        end\n        if <<(letter (Text number) of (text)) = [O]> or <(letter (Text number) of (text)) = [o]>> then\n            switch costume to (o2 v)\n        end\n        if <<(letter (Text number) of (text)) = [P]> or <(letter (Text number) of (text)) = [p]>> then\n            switch costume to (p2 v)\n        end\n        if <<(letter (Text number) of (text)) = [Q]> or <(letter (Text number) of (text)) = [q]>> then\n            switch costume to (q2 v)\n        end\n        if <<(letter (Text number) of (text)) = [R]> or <(letter (Text number) of (text)) = [r]>> then\n            switch costume to (r2 v)\n        end\n        if <<(letter (Text number) of (text)) = [S]> or <(letter (Text number) of (text)) = [s]>> then\n            switch costume to (s2 v)\n        end\n        if <<(letter (Text number) of (text)) = [T]> or <(letter (Text number) of (text)) = [t]>> then\n            switch costume to (t2 v)\n        end\n        if <<(letter (Text number) of (text)) = [U]> or <(letter (Text number) of (text)) = [u]>> then\n            switch costume to (u2 v)\n        end\n        if <<(letter (Text number) of (text)) = [V]> or <(letter (Text number) of (text)) = [v]>> then\n            switch costume to (v2 v)\n        end\n        if <<(letter (Text number) of (text)) = [W]> or <(letter (Text number) of (text)) = [w]>> then\n            switch costume to (w2 v)\n        end\n        if <<(letter (Text number) of (text)) = [X]> or <(letter (Text number) of (text)) = [x]>> then\n            switch costume to (x2 v)\n        end\n        if <<(letter (Text number) of (text)) = [Y]> or <(letter (Text number) of (text)) = [y]>> then\n            switch costume to (y2 v)\n        end\n        if <<(letter (Text number) of (text)) = [Z]> or <(letter (Text number) of (text)) = [z]>> then\n            switch costume to (z2 v)\n        end\n        if <(letter (Text number) of (text)) = [ ]> then\n            switch costume to (space v)\n        else\n            switch costume to (join (letter (Text number) of (text)) [2])\n        end\n        stamp\n        move (10) steps\n        change [text number v] by (1)\n    else\n        if <<(letter (Text number) of (text)) = [A]> or <(letter (Text number) of (text)) = [a]>> then\n            switch costume to (a v)\n        end\n        if <<(letter (Text number) of (text)) = [B]> or <(letter (Text number) of (text)) = [b]>> then\n            switch costume to (b v)\n        end\n        if <<(letter (Text number) of (text)) = [C]> or <(letter (Text number) of (text)) = [c]>> then\n            switch costume to (c v)\n        end\n        if <<(letter (Text number) of (text)) = [D]> or <(letter (Text number) of (text)) = [d]>> then\n            switch costume to (d v)\n        end\n        if <<(letter (Text number) of (text)) = [E]> or <(letter (Text number) of (text)) = [e]>> then\n            switch costume to (e v)\n        end\n        if <<(letter (Text number) of (text)) = [F]> or <(letter (Text number) of (text)) = [f]>> then\n            switch costume to (f v)\n        end\n        if <<(letter (Text number) of (text)) = [G]> or <(letter (Text number) of (text)) = [g]>> then\n            switch costume to (g v)\n        end\n        if <<(letter (Text number) of (text)) = [H]> or <(letter (Text number) of (text)) = [h]>> then\n            switch costume to (h v)\n        end\n        if <<(letter (Text number) of (text)) = [I]> or <(letter (Text number) of (text)) = [i]>> then\n            switch costume to (i v)\n        end\n        if <<(letter (Text number) of (text)) = [J]> or <(letter (Text number) of (text)) = [j]>> then\n            switch costume to (j v)\n        end\n        if <<(letter (Text number) of (text)) = [K]> or <(letter (Text number) of (text)) = [k]>> then\n            switch costume to (k v)\n        end\n        if <<(letter (Text number) of (text)) = [L]> or <(letter (Text number) of (text)) = [l]>> then\n            switch costume to (l v)\n        end\n        if <<(letter (Text number) of (text)) = [M]> or <(letter (Text number) of (text)) = [m]>> then\n            switch costume to (m v)\n        end\n        if <<(letter (Text number) of (text)) = [N]> or <(letter (Text number) of (text)) = [n]>> then\n            switch costume to (n v)\n        end\n        if <<(letter (Text number) of (text)) = [O]> or <(letter (Text number) of (text)) = [o]>> then\n            switch costume to (o v)\n        end\n        if <<(letter (Text number) of (text)) = [P]> or <(letter (Text number) of (text)) = [p]>> then\n            switch costume to (p v)\n        end\n        if <<(letter (Text number) of (text)) = [Q]> or <(letter (Text number) of (text)) = [q]>> then\n            switch costume to (q v)\n        end\n        if <<(letter (Text number) of (text)) = [R]> or <(letter (Text number) of (text)) = [r]>> then\n            switch costume to (r v)\n        end\n        if <<(letter (Text number) of (text)) = [S]> or <(letter (Text number) of (text)) = [s]>> then\n            switch costume to (s v)\n        end\n        if <<(letter (Text number) of (text)) = [T]> or <(letter (Text number) of (text)) = [t]>> then\n            switch costume to (t v)\n        end\n        if <<(letter (Text number) of (text)) = [U]> or <(letter (Text number) of (text)) = [u]>> then\n            switch costume to (u v)\n        end\n        if <<(letter (Text number) of (text)) = [V]> or <(letter (Text number) of (text)) = [v]>> then\n            switch costume to (v v)\n        end\n        if <<(letter (Text number) of (text)) = [W]> or <(letter (Text number) of (text)) = [w]>> then\n            switch costume to (w v)\n        end\n        if <<(letter (Text number) of (text)) = [X]> or <(letter (Text number) of (text)) = [x]>> then\n            switch costume to (x v)\n        end\n        if <<(letter (Text number) of (text)) = [Y]> or <(letter (Text number) of (text)) = [y]>> then\n            switch costume to (y v)\n        end\n        if <<(letter (Text number) of (text)) = [Z]> or <(letter (Text number) of (text)) = [z]>> then\n            switch costume to (z v)\n        end\n        if <(letter (Text number) of (text)) = [ ]> then\n            switch costume to (space v)\n        else\n            switch costume to (letter (Text number) of (text))\n        end\n        stamp\n        move (10) steps\n        change [text number v] by (1)\n    end\nend\n\nwhen I receive [restart v]\nWrite text\n\nwhen I receive [invert v]\nWrite text\n\nwhen I receive [necx level v]\nWrite text\n\nwhen I receive [start v]\nwait (0.1) seconds\nWrite text\n\n@Levels\n\nwhen flag clicked\nset [level v] to [0]\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\nforever\n    if <(Inverted?) = [1]> then\n        switch costume to (join (Level) [B])\n        go to x: (0) y: (0)\n    else\n        switch costume to (join (Level) [A])\n        go to x: (0) y: (0)\n    end\nend\n\nwhen I receive [game end blur v]\nswitch costume to (16a v)\nset [ghost v] effect to (100)\ngo to [front v] layer\nrepeat (25)\n    change [ghost v] effect by (-4)\nend\nwait (0.2) seconds\nbroadcast (story end v)\nhide\n\n@Obstacles/Boosters\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nhide\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nif <(costume [number v]) = [7]> then\n    set [1portal x v] to (x position)\n    set [1portal y v] to (y position)\nelse\n    if <(costume [number v]) = [8]> then\n        set [2portal x v] to (x position)\n        set [2portal y v] to (y position)\n    end\nend\nforever\n    if <(costume [number v]) = [1]> then\n        if <(Inverted?) = [1]> then\n            switch costume to (ispike v)\n        end\n    else\n        if <(costume [number v]) = [2]> then\n            if <(Inverted?) = [0]> then\n                switch costume to (nspike v)\n            end\n        else\n            if <(costume [number v]) = [3]> then\n                if <(Inverted?) = [1]> then\n                    switch costume to (iinverter v)\n                end\n                if <touching (player v)?> then\n                    set [inverted? v] to [1]\n                    broadcast (Invert v)\n                    delete this clone\n                end\n            else\n                if <(costume [number v]) = [4]> then\n                    if <(Inverted?) = [0]> then\n                        switch costume to (ninverter v)\n                    end\n                    if <touching (player v)?> then\n                        set [inverted? v] to [0]\n                        broadcast (Invert v)\n                        delete this clone\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [restart v]\ndelete this clone\n\nwhen I receive [invert v]\nif <(costume [number v]) = [5]> then\n    switch costume to (downboost v)\nelse\n    if <(costume [number v]) = [6]> then\n        switch costume to (jumpboost v)\n    else\n        if <(costume [number v]) = [7]> then\n            switch costume to (2portal v)\n        else\n            if <(costume [number v]) = [8]> then\n                switch costume to (1portal v)\n            end\n        end\n    end\nend\n\nwhen I receive [game end blur v]\ndelete this clone\n\nwhen I receive [necx level v]\ndelete this clone\n\ndefine Clones\nhide\npoint in direction (90)\nif <(Level) = [4]> then\n    switch costume to (nspike v)\n    go to x: (-130) y: (-165)\n    create clone of (_myself_ v)\n    change x by (14)\n    create clone of (_myself_ v)\n    switch costume to (nspike v)\n    go to x: (-46) y: (-165)\n    repeat (6)\n        create clone of (_myself_ v)\n        switch costume to (nspike v)\n        change x by (14)\n    end\n    switch costume to (nspike v)\n    go to x: (92) y: (-165)\n    create clone of (_myself_ v)\n    change x by (14)\n    create clone of (_myself_ v)\nelse\n    if <(Level) = [5]> then\n        switch costume to (jumpboost v)\n        go to x: (-114) y: (-164)\n        create clone of (_myself_ v)\n        switch costume to (nspike v)\n        go to x: (-103) y: (-178)\n        repeat (15)\n            create clone of (_myself_ v)\n            switch costume to (nspike v)\n            change x by (14)\n        end\n    else\n        if <(Level) = [6]> then\n            switch costume to (downboost v)\n            go to x: (-4) y: (95)\n            repeat (18)\n                create clone of (_myself_ v)\n                switch costume to (downboost v)\n                change x by (14)\n            end\n            switch costume to (nspike v)\n            go to x: (-4) y: (-178)\n            repeat (12)\n                create clone of (_myself_ v)\n                switch costume to (nspike v)\n                change x by (14)\n            end\n        else\n            if <(Level) = [7]> then\n                switch costume to (1portal v)\n                go to x: (-25) y: (-159)\n                create clone of (_myself_ v)\n                switch costume to (2portal v)\n                go to x: (25) y: (-159)\n                create clone of (_myself_ v)\n            else\n                if <(Level) = [8]> then\n                    switch costume to (ninverter v)\n                    go to x: (0) y: (-164)\n                    create clone of (_myself_ v)\n                    switch costume to (nspike v)\n                    go to x: (-180) y: (90)\n                    create clone of (_myself_ v)\n                    switch costume to (jumpboost v)\n                    go to x: (-108) y: (90)\n                    create clone of (_myself_ v)\n                    switch costume to (downboost v)\n                    go to x: (-36) y: (90)\n                    create clone of (_myself_ v)\n                    switch costume to (1portal v)\n                    go to x: (36) y: (90)\n                    create clone of (_myself_ v)\n                    switch costume to (2portal v)\n                    go to x: (108) y: (90)\n                    create clone of (_myself_ v)\n                    switch costume to (ninverter v)\n                    go to x: (180) y: (90)\n                    create clone of (_myself_ v)\n                else\n                    if <(Level) = [9]> then\n                        switch costume to (nspike v)\n                        go to x: (-8) y: (-145)\n                        create clone of (_myself_ v)\n                        switch costume to (nspike v)\n                        go to x: (-8) y: (-93)\n                        create clone of (_myself_ v)\n                        switch costume to (nspike v)\n                        go to x: (6) y: (-73)\n                        create clone of (_myself_ v)\n                        switch costume to (nspike v)\n                        go to x: (16) y: (-178)\n                        repeat (7)\n                            create clone of (_myself_ v)\n                            switch costume to (nspike v)\n                            move (14) steps\n                        end\n                    else\n                        if <(Level) = [10]> then\n                            switch costume to (jumpboost v)\n                            go to x: (-81) y: (-164)\n                            repeat (13)\n                                create clone of (_myself_ v)\n                                switch costume to (jumpboost v)\n                                change x by (14)\n                            end\n                            point in direction (-90)\n                            switch costume to (nspike v)\n                            go to x: (-67) y: (-67)\n                            repeat (11)\n                                create clone of (_myself_ v)\n                                switch costume to (nspike v)\n                                change x by (14)\n                            end\n                            point in direction (90)\n                        else\n                            if <(Level) = [11]> then\n                                switch costume to (nspike v)\n                                go to x: (-28) y: (-178)\n                                repeat (17)\n                                    create clone of (_myself_ v)\n                                    switch costume to (nspike v)\n                                    change x by (14)\n                                end\n                                switch costume to (ninverter v)\n                                go to x: (-28) y: (-91)\n                                create clone of (_myself_ v)\n                                switch costume to (downboost v)\n                                go to x: (-28) y: (-26)\n                                create clone of (_myself_ v)\n                            else\n                                if <(Level) = [12]> then\n                                    switch costume to (1portal v)\n                                    go to x: (50) y: (-155)\n                                    create clone of (_myself_ v)\n                                    switch costume to (2portal v)\n                                    go to x: (160) y: (147)\n                                    create clone of (_myself_ v)\n                                    switch costume to (ninverter v)\n                                    go to x: (174) y: (130)\n                                    create clone of (_myself_ v)\n                                else\n                                    if <(Level) = [13]> then\n                                        switch costume to (nspike v)\n                                        go to x: (46) y: (-178)\n                                        repeat (6)\n                                            create clone of (_myself_ v)\n                                            switch costume to (nspike v)\n                                            move (14) steps\n                                        end\n                                        switch costume to (nspike v)\n                                        go to x: (144) y: (-178)\n                                        repeat (7)\n                                            create clone of (_myself_ v)\n                                            switch costume to (nspike v)\n                                            move (14) steps\n                                        end\n                                        switch costume to (ninverter v)\n                                        go to x: (-205) y: (-72)\n                                        create clone of (_myself_ v)\n                                    else\n                                        if <(Level) = [14]> then\n                                            switch costume to (ninverter v)\n                                            go to x: (210) y: (-164)\n                                            create clone of (_myself_ v)\n                                            switch costume to (ninverter v)\n                                            go to x: (-210) y: (-8)\n                                            create clone of (_myself_ v)\n                                            switch costume to (nspike v)\n                                            go to x: (-197) y: (-178)\n                                            repeat (27)\n                                                create clone of (_myself_ v)\n                                                switch costume to (nspike v)\n                                                move (14) steps\n                                            end\n                                        else\n                                            if <(Level) = [15]> then\n                                                switch costume to (jumpboost v)\n                                                go to x: (-170) y: (-164)\n                                                repeat (24)\n                                                    create clone of (_myself_ v)\n                                                    switch costume to (jumpboost v)\n                                                    move (14) steps\n                                                end\n                                                switch costume to (nspike v)\n                                                go to x: (-154) y: (-106)\n                                                point in direction (-90)\n                                                repeat (23)\n                                                    create clone of (_myself_ v)\n                                                    switch costume to (nspike v)\n                                                    move (-14) steps\n                                                end\n                                                switch costume to (nspike v)\n                                                go to x: (-126) y: (-90)\n                                                point in direction (90)\n                                                repeat (21)\n                                                    create clone of (_myself_ v)\n                                                    switch costume to (nspike v)\n                                                    move (14) steps\n                                                end\n                                                switch costume to (ninverter v)\n                                                go to x: (50) y: (-74)\n                                                create clone of (_myself_ v)\n                                                switch costume to (ninverter v)\n                                                go to x: (195) y: (-88)\n                                                create clone of (_myself_ v)\n                                                switch costume to (ninverter v)\n                                                go to x: (-149) y: (32)\n                                                create clone of (_myself_ v)\n                                                switch costume to (ninverter v)\n                                                go to x: (207) y: (148)\n                                                create clone of (_myself_ v)\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [necx level v]\nClones\n\nwhen I receive [restart v]\nset [inverted? v] to [0]\nClones\n\n@Goal\n\nwhen flag clicked\ngo to x: (223) y: (-164)\nhide\n\nwhen I receive [start v]\nshow\nforever\n    if <(Inverted?) = [1]> then\n        switch costume to (iflag v)\n    else\n        switch costume to (nflag v)\n    end\nend\n\ndefine Go to location\nif <(Level) = [1]> then\n    go to x: (223) y: (-164)\nelse\n    if <(Level) = [2]> then\n        go to x: (228) y: (-92)\n    else\n        if <<(Level) > [2]> and <(Level) < [11]>> then\n            go to x: (223) y: (-164)\n        else\n            if <(Level) = [11]> then\n                go to x: (227) y: (52)\n            else\n                if <(Level) = [12]> then\n                    go to x: (223) y: (-164)\n                else\n                    if <(Level) = [13]> then\n                        go to x: (223) y: (153)\n                    else\n                        if <(Level) = [14]> then\n                            go to x: (222) y: (128)\n                        else\n                            if <(Level) = [15]> then\n                                go to x: (223) y: (-164)\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [necx level v]\nGo to location\n\nwhen I receive [restart v]\nGo to location\n\nwhen I receive [game end. v]\nwait (0.01) seconds\nhide\n\n@Music toggler and Easter eggs.\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (toggled v)\ngo [backward v] (100) layers\nset [ghost v] effect to (100)\nset volume to (50) %\nhide\nset [music on/off v] to [0]\nforever\n    play sound [RobbanRobbin - Falling Star v] until done\nend\n\nwhen flag clicked\nforever\n    if <not <((music on/off) / (2)) = (round ((music on/off) / (2)))>> then\n        set volume to (0) %\n        stop all sounds\n    else\n        set volume to (50) %\n    end\nend\n\nwhen I receive [necx level v]\nif <(Level) = [5]> then\n    switch costume to (ee1 v)\n    create clone of (_myself_ v)\n    switch costume to (toggled v)\nend\n\nwhen I start as a clone\nhide\nclear graphic effects\nforever\n    if <(costume [number v]) = [2]> then\n        go to (player v)\n        if <<(Easter Egg #1) = [5]> or <(Easter Egg #1) > [5]>> then\n            show\n        end\n        if <not <<(Easter Egg #1) = [5]> or <(Easter Egg #1) > [5]>>> then\n            hide\n        end\n        if <<(Level) = [6]> or <(Level) > [6]>> then\n            delete this clone\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (m v) pressed?> then\n        change [music on/off v] by (1)\n        go to [front v] layer\n        repeat (10)\n            change [ghost v] effect by (-10)\n            go to x: (0) y: (0)\n            go to [front v] layer\n            show\n        end\n        go to [front v] layer\n        repeat (10)\n            change [ghost v] effect by (10)\n            go to x: (0) y: (0)\n            go to [front v] layer\n            show\n        end\n        go [backward v] (100) layers\n        hide\n        wait (0.1) seconds\n    end\nend\n\n@Ending text\n\nwhen flag clicked\nset [eligible4hs? v] to [1]\nerase all\nhide\n\nwhen I receive [story end v]\nerase all\ngo to [front v] layer\nWrite [A smile streaked across your face as you] at x: (-225) y: (163)\nWrite [stepped out of the bunker...] at x: (-225) y: (143)\nset [story ending line # v] to [1]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [Finally, you could see your family again.] at x: (-225) y: (113)\nset [story ending line # v] to [2]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [But as you looked around, your smile started] at x: (-225) y: (83)\nWrite [to turn into a frown.] at x: (-225) y: (63)\nset [story ending line # v] to [3]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [A dystopian world lay beneath your feet.] at x: (-225) y: (33)\nWrite [Rubble was everywhere. fires in random places.] at x: (-225) y: (13)\nset [story ending line # v] to [4]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [In the distance, were some creatures.] at x: (-225) y: (-17)\nWrite [The corrupted, That's what he called them.] at x: (-225) y: (-37)\nset [story ending line # v] to [5]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [A tear rolled down your cheek. you thought] at x: (-225) y: (-67)\nWrite [you could see your family...] at x: (-225) y: (-87)\nset [story ending line # v] to [6]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [but you thought wrong.] at x: (-225) y: (-117)\nset [story ending line # v] to [0]\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nWrite [To be continued?] at x: (-225) y: (163)\nbroadcast (Click Space v)\nwait until <key (space v) pressed?>\nbroadcast (Hide Space v)\nwait (0.01) seconds\nbroadcast (Player stats v)\n\nwhen I receive [player stats v]\nWrite [Session stats:] at x: (-225) y: (163)\nif <(username) = []> then\n    Write [Player:Not signed in.] at x: (-225) y: (143)\nelse\n    Write (join [Player:] (username)) at x: (-225) y: (143)\nend\nWrite (join [Deaths and resets:] (Deaths/Resets)) at x: (-225) y: (123)\nif <(Score Sec or Min?) = [1]> then\n    if <(Time \(Mins\)) > [1]> then\n        Write (join [Your time:] (join (Time \(Mins\)) [ mins])) at x: (-225) y: (103)\n    else\n        Write (join [Your time:] (join (Time \(Mins\)) [ min])) at x: (-225) y: (103)\n    end\nelse\n    Write (join [Your time:] (join (Time \(Secs\)) [ secs])) at x: (-225) y: (103)\nend\nWrite (join [Skips:] (Skips)) at x: (-225) y: (83)\nif <(Eligible4HS?) = [1]> then\n    if <(☁ Lowest Death) = (Deaths/Resets)> then\n        Write (join [New! World's least deaths: ] (☁ Lowest Death)) at x: (-225) y: (53)\n        if <(item (1) of [highest player v]) = (username)> then\n            Write [Least deaths holder:you] at x: (-225) y: (33)\n        else\n            Write (join [Least death holder:] (item (1) of [highest player v])) at x: (-225) y: (33)\n        end\n    else\n        Write (join [World's least deaths:] (☁ Lowest Death)) at x: (-225) y: (53)\n        if <(item (1) of [highest player v]) = (username)> then\n            Write [Least deaths holder:you] at x: (-225) y: (33)\n        else\n            Write (join [least deaths holder:] (item (1) of [highest player v])) at x: (-225) y: (33)\n        end\n    end\n    if <(☁ Time \(Secs\)) = (Time \(Secs\))> then\n        if <(☁ HS Secs or Min?) = [1]> then\n            if <(☁ Time \(Mins\)) > [1]> then\n                Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ mins])) at x: (-225) y: (3)\n            else\n                Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ min])) at x: (-225) y: (3)\n            end\n        else\n            Write (join [Fastest time:] (join (☁ Time \(Secs\)) [ secs])) at x: (-225) y: (3)\n        end\n        if <(item (2) of [highest player v]) = (username)> then\n            Write [Fastest time holder:you] at x: (-225) y: (-17)\n        else\n            Write (join [Fastest time holder:] (item (2) of [highest player v])) at x: (-225) y: (-17)\n        end\n        Write [If you skipped, you cannot get the Highscores.] at x: (-225) y: (-47)\n    else\n        if <(☁ HS Secs or Min?) = [1]> then\n            if <(☁ Time \(Mins\)) > [1]> then\n                Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ mins])) at x: (-225) y: (3)\n            else\n                Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ min])) at x: (-225) y: (3)\n            end\n        else\n            Write (join [Fastest time:] (join (☁ Time \(Secs\)) [ secs])) at x: (-225) y: (3)\n        end\n        if <(item (2) of [highest player v]) = (username)> then\n            Write [Fastest time holder:you] at x: (-225) y: (-17)\n        else\n            Write (join [Fastest time holder:] (item (2) of [highest player v])) at x: (-225) y: (-17)\n        end\n        Write [If you skipped, you cannot get the Highscores.] at x: (-225) y: (-47)\n    end\nelse\n    Write (join [World's least deaths: ] (☁ Lowest Death)) at x: (-225) y: (53)\n    if <(item (1) of [highest player v]) = (username)> then\n        Write [Least deaths holder:you] at x: (-225) y: (33)\n    else\n        Write (join [Least deaths holder:] (item (1) of [highest player v])) at x: (-225) y: (33)\n    end\n    if <(☁ HS Secs or Min?) = [1]> then\n        if <(☁ Time \(Mins\)) > [1]> then\n            Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ mins])) at x: (-225) y: (3)\n        else\n            Write (join [Fastest time:] (join (☁ Time \(Mins\)) [ min])) at x: (-225) y: (3)\n        end\n    else\n        Write (join [Fastest time:] (join (☁ Time \(Secs\)) [ secs])) at x: (-225) y: (3)\n    end\n    if <(item (2) of [highest player v]) = (username)> then\n        Write [Fastest time holder:you] at x: (-225) y: (-17)\n    else\n        Write (join [Fastest time holder:] (item (2) of [highest player v])) at x: (-225) y: (-17)\n    end\n    Write [If you skipped, you cannot get the Highscores.] at x: (-225) y: (-47)\nend\nWrite [Click the flag if you want to play again.] at x: (-225) y: (-77)\nWrite [- NecxGen :\)] at x: (-225) y: (-97)\n\nwhen I receive [necx level v]\nif <(Skips) < [0]> then\n    set [skips v] to [0]\nend\n\ndefine None\ngo to x: (x) y: (y)\nhide\nset [text number v] to [1]\nrepeat (length of (text))\n    if <<(letter (Text number) of (text)) = [A]> or <(letter (Text number) of (text)) = [a]>> then\n        switch costume to (a v)\n    end\n    if <<(letter (Text number) of (text)) = [B]> or <(letter (Text number) of (text)) = [b]>> then\n        switch costume to (b v)\n    end\n    if <<(letter (Text number) of (text)) = [C]> or <(letter (Text number) of (text)) = [c]>> then\n        switch costume to (c v)\n    end\n    if <<(letter (Text number) of (text)) = [D]> or <(letter (Text number) of (text)) = [d]>> then\n        switch costume to (d v)\n    end\n    if <<(letter (Text number) of (text)) = [E]> or <(letter (Text number) of (text)) = [e]>> then\n        switch costume to (e v)\n    end\n    if <<(letter (Text number) of (text)) = [F]> or <(letter (Text number) of (text)) = [f]>> then\n        switch costume to (f v)\n    end\n    if <<(letter (Text number) of (text)) = [G]> or <(letter (Text number) of (text)) = [g]>> then\n        switch costume to (g v)\n    end\n    if <<(letter (Text number) of (text)) = [H]> or <(letter (Text number) of (text)) = [h]>> then\n        switch costume to (h v)\n    end\n    if <<(letter (Text number) of (text)) = [I]> or <(letter (Text number) of (text)) = [i]>> then\n        switch costume to (i v)\n    end\n    if <<(letter (Text number) of (text)) = [J]> or <(letter (Text number) of (text)) = [j]>> then\n        switch costume to (j v)\n    end\n    if <<(letter (Text number) of (text)) = [K]> or <(letter (Text number) of (text)) = [k]>> then\n        switch costume to (k v)\n    end\n    if <<(letter (Text number) of (text)) = [L]> or <(letter (Text number) of (text)) = [l]>> then\n        switch costume to (l v)\n    end\n    if <<(letter (Text number) of (text)) = [M]> or <(letter (Text number) of (text)) = [m]>> then\n        switch costume to (m v)\n    end\n    if <<(letter (Text number) of (text)) = [N]> or <(letter (Text number) of (text)) = [n]>> then\n        switch costume to (n v)\n    end\n    if <<(letter (Text number) of (text)) = [O]> or <(letter (Text number) of (text)) = [o]>> then\n        switch costume to (o v)\n    end\n    if <<(letter (Text number) of (text)) = [P]> or <(letter (Text number) of (text)) = [p]>> then\n        switch costume to (p v)\n    end\n    if <<(letter (Text number) of (text)) = [Q]> or <(letter (Text number) of (text)) = [q]>> then\n        switch costume to (q v)\n    end\n    if <<(letter (Text number) of (text)) = [R]> or <(letter (Text number) of (text)) = [r]>> then\n        switch costume to (r v)\n    end\n    if <<(letter (Text number) of (text)) = [S]> or <(letter (Text number) of (text)) = [s]>> then\n        switch costume to (s v)\n    end\n    if <<(letter (Text number) of (text)) = [T]> or <(letter (Text number) of (text)) = [t]>> then\n        switch costume to (t v)\n    end\n    if <<(letter (Text number) of (text)) = [U]> or <(letter (Text number) of (text)) = [u]>> then\n        switch costume to (u v)\n    end\n    if <<(letter (Text number) of (text)) = [V]> or <(letter (Text number) of (text)) = [v]>> then\n        switch costume to (v v)\n    end\n    if <<(letter (Text number) of (text)) = [W]> or <(letter (Text number) of (text)) = [w]>> then\n        switch costume to (w v)\n    end\n    if <<(letter (Text number) of (text)) = [X]> or <(letter (Text number) of (text)) = [x]>> then\n        switch costume to (x v)\n    end\n    if <<(letter (Text number) of (text)) = [Y]> or <(letter (Text number) of (text)) = [y]>> then\n        switch costume to (y v)\n    end\n    if <<(letter (Text number) of (text)) = [Z]> or <(letter (Text number) of (text)) = [z]>> then\n        switch costume to (z v)\n    end\n    if <(letter (Text number) of (text)) = [ ]> then\n        switch costume to (space v)\n    else\n        switch costume to (letter (Text number) of (text))\n    end\n    go to [front v] layer\n    stamp\n    move (10) steps\n    change [text number v] by (1)\nend\n\nwhen I receive [story end v]\nif <(Skips) < [1]> then\n    set [eligible4hs? v] to [1]\nelse\n    set [eligible4hs? v] to [0]\nend\nif <(Eligible4HS?) = [1]> then\n    if <<(Deaths/Resets) = (☁ Lowest Death)> or <(Deaths/Resets) < (☁ Lowest Death)>> then\n        set [☁ lowest death v] to (Deaths/Resets)\n    end\n    if <<(Time \(Secs\)) = (☁ Time \(Secs\))> or <(Time \(Secs\)) < (☁ Time \(Secs\))>> then\n        set [☁ time \(secs\) v] to (Time \(Secs\))\n        if <(Score Sec or Min?) = [1]> then\n            set [☁ time \(mins\) v] to (Time \(Mins\))\n            set [☁ hs secs or min? v] to [1]\n        else\n            set [☁ hs secs or min? v] to [0]\n        end\n    end\nend\n\nreplace item (2) of [highest player v] with [MB-4728]\n\n@☁ List\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\ndefine Add Extra Character []\nif <(length of (character)) = [1]> then\n    if <[chars v] contains (character)?> then\n        add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (character) [' is already added.]))) to [error log v]\n    else\n        if <(length of [chars v]) > [999]> then\n            add (join (join (days since 2000) (join [/] (timer))) [: There cannot be more than 999 characters.]) to [error log v]\n        else\n            add (letter (1) of (character)) to [chars v]\n            if <(item (last) of [chars v]) = (character)> then\n                Create Variable (character) with value (length of [chars v]) DO NOT USE\n            else\n                add (join (join (days since 2000) (join [/] (timer))) (join [: Could not add character '] (join (character) [' for unknown reasons.]))) to [error log v]\n                delete (last) of [chars v]\n            end\n            set [chars v] to (Chars)\n        end\n    end\nelse\n    add (join (join (days since 2000) (join [/] (timer))) (join [: Character/string '] (join (character) [' is not supported or contains 2 or more characters.]))) to [error log v]\nend\n\ndefine None\ndelete (all) of [temp v]\nif <(custom chars) = [1]> then\n    add [1] to [temp v]\n    if <(error detect) = [1]> then\n        set [i1 v] to [1]\n        repeat (length of [\['getparam', 'list', 'r'\] v])\n            set [i2 v] to [1]\n            repeat (length of (item (i1) of [\['getparam', 'list', 'r'\] v]))\n                set [n1 v] to ([\['letter:of:', \['readvariable', 'i2'\], \['getline:oflist:', \['readvariable', 'i1'\], \['getparam', 'list', 'r'\]\]\] v] of [☁ list v])\n                if <(n1) = [0]> then\n                    add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (letter (i2) of (item (i1) of [\['getparam', 'list', 'r'\] v])) [' is not added and will be replaced with '*'.]))) to [error log v]\n                    add [0] to [temp v]\n                    add [8] to [temp v]\n                    add [3] to [temp v]\n                else\n                    add (letter (1) of (n1)) to [temp v]\n                    add (letter (2) of (n1)) to [temp v]\n                    add (letter (3) of (n1)) to [temp v]\n                end\n                change [i2 v] by (1)\n            end\n            change [i1 v] by (1)\n            add [0] to [temp v]\n            add [0] to [temp v]\n            add [0] to [temp v]\n        end\n    else\n        set [i1 v] to [1]\n        repeat (length of [\['getparam', 'list', 'r'\] v])\n            set [i2 v] to [1]\n            repeat (length of (item (i1) of [\['getparam', 'list', 'r'\] v]))\n                set [n1 v] to ([\['letter:of:', \['readvariable', 'i2'\], \['getline:oflist:', \['readvariable', 'i1'\], \['getparam', 'list', 'r'\]\]\] v] of [☁ list v])\n                add (letter (1) of (n1)) to [temp v]\n                add (letter (2) of (n1)) to [temp v]\n                add (letter (3) of (n1)) to [temp v]\n                change [i2 v] by (1)\n            end\n            change [i1 v] by (1)\n            add [0] to [temp v]\n            add [0] to [temp v]\n            add [0] to [temp v]\n        end\n    end\nelse\n    add [0] to [temp v]\n    if <(error detect) = [1]> then\n        set [i1 v] to [1]\n        repeat (length of [\['getparam', 'list', 'r'\] v])\n            set [i2 v] to [1]\n            repeat (length of (item (i1) of [\['getparam', 'list', 'r'\] v]))\n                set [n1 v] to ([\['letter:of:', \['readvariable', 'i2'\], \['getline:oflist:', \['readvariable', 'i1'\], \['getparam', 'list', 'r'\]\]\] v] of [☁ list v])\n                if <(n1) = [0]> then\n                    add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (letter (i2) of (item (i1) of [\['getparam', 'list', 'r'\] v])) [' is not added and will be replaced with '*'.]))) to [error log v]\n                    add [8] to [temp v]\n                    add [3] to [temp v]\n                else\n                    if <(n1) > [98]> then\n                        add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (letter (i2) of (item (i1) of [\['getparam', 'list', 'r'\] v])) [' is a custom character and will be replaced with '*'.]))) to [error log v]\n                        add [8] to [temp v]\n                        add [3] to [temp v]\n                    else\n                        add (letter (2) of (n1)) to [temp v]\n                        add (letter (3) of (n1)) to [temp v]\n                    end\n                end\n                change [i2 v] by (1)\n            end\n            change [i1 v] by (1)\n            add [0] to [temp v]\n            add [0] to [temp v]\n        end\n    else\n        set [i1 v] to [1]\n        repeat (length of [\['getparam', 'list', 'r'\] v])\n            set [i2 v] to [1]\n            repeat (length of (item (i1) of [\['getparam', 'list', 'r'\] v]))\n                set [n1 v] to ([\['letter:of:', \['readvariable', 'i2'\], \['getline:oflist:', \['readvariable', 'i1'\], \['getparam', 'list', 'r'\]\]\] v] of [☁ list v])\n                add (letter (2) of (n1)) to [temp v]\n                add (letter (3) of (n1)) to [temp v]\n                change [i2 v] by (1)\n            end\n            change [i1 v] by (1)\n            add [0] to [temp v]\n            add [0] to [temp v]\n        end\n    end\nend\nset [\['getparam', 'variable', 'r'\] v] to (Temp)\n\ndefine None\nif <(letter (1) of (variable)) = [1]> then\n    if <(error detect) = [1]> then\n        if <(((length of (variable)) mod (3)) - (1)) = [0]> then\n            delete (all) of [\['getparam', 'list', 'r'\] v]\n            delete (all) of [temp v]\n            set [i3 v] to [2]\n            set [n2 v] to (((length of (variable)) - (1)) / (3))\n            repeat (n2)\n                set [n2 v] to (join (letter (i3) of (variable)) (join (letter ((i3) + (1)) of (variable)) (letter ((i3) + (2)) of (variable))))\n                if <(n2) = [000]> then\n                    add (Temp) to [\['getparam', 'list', 'r'\] v]\n                    delete (all) of [temp v]\n                else\n                    if <(n2) > (length of [chars v])> then\n                        add (join (join (days since 2000) (join [/] (timer))) [: Character number is not stored and will be replaced with "*"]) to [error log v]\n                        add [*] to [temp v]\n                    else\n                        add (letter (n2) of (chars)) to [temp v]\n                    end\n                end\n                change [i3 v] by (3)\n            end\n        else\n            add (join (join (days since 2000) (join [/] (timer))) [: Variable cannot be loaded because of incorrect format]) to [error log v]\n            stop [this script v]\n        end\n    else\n        delete (all) of [\['getparam', 'list', 'r'\] v]\n        delete (all) of [temp v]\n        set [i3 v] to [2]\n        set [n2 v] to (((length of (variable)) - (1)) / (3))\n        repeat (n2)\n            set [n2 v] to (join (letter (i3) of (variable)) (join (letter ((i3) + (1)) of (variable)) (letter ((i3) + (2)) of (variable))))\n            if <(n2) = [000]> then\n                add (Temp) to [\['getparam', 'list', 'r'\] v]\n                delete (all) of [temp v]\n            else\n                add (letter (n2) of (chars)) to [temp v]\n            end\n            change [i3 v] by (3)\n        end\n    end\nelse\n    if <(error detect) = [1]> then\n        if <(((length of (variable)) - (1)) mod (2)) = [0]> then\n            delete (all) of [\['getparam', 'list', 'r'\] v]\n            delete (all) of [temp v]\n            set [i3 v] to [2]\n            set [n2 v] to (((length of (variable)) - (1)) / (2))\n            repeat (n2)\n                set [n2 v] to (join (letter (i3) of (variable)) (letter ((i3) + (1)) of (variable)))\n                if <(n2) = [00]> then\n                    add (Temp) to [\['getparam', 'list', 'r'\] v]\n                    delete (all) of [temp v]\n                else\n                    add (letter (n2) of (chars)) to [temp v]\n                end\n                change [i3 v] by (2)\n            end\n        else\n            add (join (join (days since 2000) (join [/] (timer))) [: Variable cannot be loaded because of incorrect format]) to [error log v]\n            stop [this script v]\n        end\n    else\n        delete (all) of [\['getparam', 'list', 'r'\] v]\n        delete (all) of [temp v]\n        set [i3 v] to [2]\n        set [n2 v] to (((length of (variable)) - (1)) / (2))\n        repeat (n2)\n            set [n2 v] to (join (letter (i3) of (variable)) (letter ((i3) + (1)) of (variable)))\n            if <(n2) = [00]> then\n                add (Temp) to [\['getparam', 'list', 'r'\] v]\n                delete (all) of [temp v]\n            else\n                add (letter (n2) of (chars)) to [temp v]\n            end\n            change [i3 v] by (2)\n        end\n    end\nend\n\ndelete (all) of [error log v]\n\ndefine /!\\ Delete Extra Character []\nif <[chars v] contains (character)?> then\n    set [n1 v] to ([\['getparam', 'character', 'r'\] v] of [☁ list v])\n    if <(n1) > [98]> then\n        set [\['getparam', 'character', 'r'\] v] to [0]\n        delete (n1) of [chars v]\n        set [i1 v] to [1]\n        repeat (length of [chars v])\n            if <(i1) < [10]> then\n                Create Variable (item (i1) of [chars v]) with value (join [00] (i1)) DO NOT USE\n            else\n                if <(i1) < [100]> then\n                    Create Variable (item (i1) of [chars v]) with value (join [0] (i1)) DO NOT USE\n                else\n                    Create Variable (item (i1) of [chars v]) with value (i1) DO NOT USE\n                end\n            end\n            change [i1 v] by (1)\n        end\n        set [chars v] to (Chars)\n    else\n        add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (character) [' is an original character and cannot be removed.]))) to [error log v]\n    end\nelse\n    add (join (join (days since 2000) (join [/] (timer))) (join [: Character '] (join (character) [' is not added and cannot be removed.]))) to [error log v]\nend\n\nwhen I receive [start v]\nrepeat until <(GameEnded?) = [1]>\n    wait (1) seconds\n    change [time \(secs\) v] by (1)\nend\nif <not <(Time \(Secs\)) < [60]>> then\n    set [time \(mins\) v] to (round ((Time \(Secs\)) / (60)))\n    set [score sec or min? v] to [1]\nend\n\nwhen I receive [story end v]\nwait (0.02) seconds\nif <(Eligible4HS?) = [1]> then\n    if <<(Deaths/Resets) = (☁ Lowest Death)> or <(Deaths/Resets) < (☁ Lowest Death)>> then\n        replace item (1) of [highest player v] with (username)\n        repeat (100)\n            Save %m.list to %m.var Settings: (Highest player) (☁ Highest Players)\n        end\n    else\n        repeat (10)\n            Load %m.list from (Highest player) Settings: (☁ Highest Players)\n        end\n    end\n    if <<(Time \(Secs\)) = (☁ Time \(Secs\))> or <(Time \(Secs\)) < (☁ Time \(Secs\))>> then\n        replace item (2) of [highest player v] with (username)\n        repeat (100)\n            Save %m.list to %m.var Settings: (Highest player) (☁ Highest Players)\n        end\n    else\n        repeat (10)\n            Load %m.list from (Highest player) Settings: (☁ Highest Players)\n        end\n    end\nend\n\ndefine Create Variable [] with value [] DO NOT USE\nset [\['getparam', 'variable', 'r'\] v] to (value)\n\n