List Platformer: Mr. Smiley’s Adventurer (games, stories)


@Stage\n\ndefine level6\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (28)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (22)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (6)\n    set [x-testor#4 v] to (join (x-testor#4) [^])\nend\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine level12\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (6)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (17)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nset [x-testor#4 v] to (join (x-testor#4) [o])\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\n\ndefine level16\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nadd [See how a beautiful land is destroyed by Sadness] to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    add (x-testor#4) to [list# v]\nend\nrepeat (3)\n    set [x-testor#4 v] to []\n    repeat (60)\n        set [random- v] to (pick random (1) to (3))\n        if <(random-) = [1]> then\n            set [x-testor#4 v] to (join (x-testor#4) [~])\n        else\n            set [x-testor#4 v] to (join (x-testor#4) [_])\n        end\n    end\n    add (x-testor#4) to [list# v]\nend\n\nwhen flag clicked\nchange [☁ view v] by (1)\nhide list [list v]\nset-text\nset-chat\nset-teleportor\ndelete all of [list v]\nset [emoji v] to [1]\nset [level v] to [1]\nset [x v] to [1]\nset [y v] to [5]\nset [jump v] to [0]\nset [dead v] to [0]\nset [star-count v] to [0]\nset [story v] to [0]\ndelete all of [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nadd (join [level] (level)) to [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nlevel1\nwait (1) seconds\nset [level-updating v] to [0]\nforever\n    if <(level-updating) = [0]> then\n        if <(dead) = [0]> then\n            if <<(letter (x) of (item ((12) - (y)) of [list# v])) = [o]> or <(letter ((x) + (1)) of (item ((12) - (y)) of [list# v])) = [o]>> then\n                set [x v] to (item (level) of [teleportor-x v])\n                set [y v] to (item (level) of [teleportor-y v])\n            end\n            if <<(letter (x) of (item ((12) - (y)) of [list# v])) = [^]> or <(letter ((x) + (1)) of (item ((12) - (y)) of [list# v])) = [^]>> then\n                if <(jump) = [0]> then\n                    broadcast (jump#2 v)\n                end\n            end\n            if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                if <<<(letter (x) of (item ((13) - (y)) of [list# v])) = [~]> or <(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [~]>> or <<(letter (x) of (item ((13) - (y)) of [list# v])) = [▓]> or <(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [▓]>>> then\n                    if <(jump) = [0]> then\n                        if <(story) = [0]> then\n                            broadcast (jump v)\n                        end\n                    end\n                end\n            end\n            if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n                if <<not <(letter ((x) + (1)) of (item ((12) - (y)) of [list# v])) = [~]>> and <not <(letter ((x) + (2)) of (item ((12) - (y)) of [list# v])) = [~]>>> then\n                    if <(story) = [0]> then\n                        change [x v] by (1)\n                    end\n                end\n            end\n            if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n                if <<not <(letter (x) of (item ((12) - (y)) of [list# v])) = [~]>> and <not <(letter ((x) + (-1)) of (item ((12) - (y)) of [list# v])) = [~]>>> then\n                    if <(story) = [0]> then\n                        change [x v] by (-1)\n                    end\n                end\n            end\n            if <(x) < [1]> then\n                set [x v] to [1]\n            end\n            if <<not <(letter (x) of (item ((13) - (y)) of [list# v])) = [~]>> and <not <(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [~]>>> then\n                if <(jump) = [0]> then\n                    if <<not <(letter (x) of (item ((13) - (y)) of [list# v])) = [▓]>> and <not <(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [▓]>>> then\n                        change [y v] by (-0.5)\n                    end\n                end\n            end\n            if <<(x) > [59]> or <key (s v) pressed?>> then\n                if <not <(level) = [17]>> then\n                    if <not <(level) = [21]>> then\n                        broadcast (next-level v)\n                    end\n                end\n            end\n            if <<(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [▓]> or <(letter (x) of (item ((13) - (y)) of [list# v])) = [▓]>> then\n                broadcast (boat v)\n            end\n            if <<(letter ((x) + (1)) of (item ((12) - (y)) of [list# v])) = [◆]> or <(letter (x) of (item ((12) - (y)) of [list# v])) = [◆]>> then\n                broadcast (star-get v)\n            end\n            if <(star-count) = [3]> then\n                if <(level) = [15]> then\n                    if <key (space v) pressed?> then\n                        broadcast (magic! v)\n                    end\n                end\n            end\n            test-die\n            replace list\n            wait (0) seconds\n        end\n    end\nend\n\nwhen I receive [star-get v]\nstart sound [Coin v]\nset [star-target v] to ((12) - (y))\nset [star-pos v] to [1]\nset [x-testor#6 v] to []\nrepeat (60)\n    if <(letter (star-pos) of (item (star-target) of [list# v])) = [◆]> then\n        set [x-testor#6 v] to (join (x-testor#6) [_])\n    else\n        set [x-testor#6 v] to (join (x-testor#6) (letter (star-pos) of (item (star-target) of [list# v])))\n    end\n    change [star-pos v] by (1)\nend\nreplace item (star-target) of [list# v] with (x-testor#6)\nchange [star-count v] by (1)\nif <(star-count) = [3]> then\n    replace item (1) of [list# v] with [You get all the energy-stars! :P \(press space\)]\nend\n\nwhen I receive [jump#2 v]\nstart sound [Drum Boing v]\nset [jump v] to [1]\nchange y [1]\nwait (0.04) seconds\nchange y [1]\nrepeat (6)\n    wait (0.05) seconds\n    change y [1]\nend\nwait (0.12) seconds\nchange y [-1]\nwait (0.12) seconds\nchange y [-1]\nrepeat (6)\n    wait (0.05) seconds\n    change y [-1]\nend\nwait (0.04) seconds\nset [jump v] to [0]\n\ndefine set-chat\ndelete all of [chat v]\nadd [You: So you're Mr. Sadness. \(press q\)] to [chat v]\nadd [Mr. Sadness: Of course, young man. Why do you come to my grand kingdom?] to [chat v]\nadd [You: I'm going to make the world a better place] to [chat v]\nadd [You: By removing all the sadness in the world] to [chat v]\nadd [Mr. Sadness: But the world is already perfect, Mr. Smiley] to [chat v]\nadd [Mr. Sadness: Join me, and you'll realise the power of sadness] to [chat v]\nadd [You: No, you're destroying your kingdom...] to [chat v]\nadd [Mr. Sadness: So then i'll destroy you, unless you join my group!] to [chat v]\nadd [You: But, see what i have got - energy stars!] to [chat v]\nadd [Mr. Sadness: Oh NO!! Oh, oh, oh... no... ] to [chat v]\nadd [Mr. Sadness: Come out, Sadness army!] to [chat v]\nadd [You: But I think my energy stars are more powerful than your army] to [chat v]\nadd [Sadness: Well, I have to fight you by myself] to [chat v]\ndelete all of [chat#2 v]\nadd [You: I know you didn't die, Mr. Sadness. \(press q\)] to [chat#2 v]\nadd [You: Where are you?] to [chat#2 v]\nadd [Sadness: I'm in your body... do you noticed the tears on your face?] to [chat#2 v]\nadd [Sadness: In fact, the power of the stars make us together] to [chat#2 v]\nadd [You: But... why?] to [chat#2 v]\nadd [Sadness: It's the destiny... We have to be together] to [chat#2 v]\nadd [Sadness: We are a same person, but opposite parts of the character] to [chat#2 v]\nadd [Sadness: All the sadness is removed, what shell we do next? ] to [chat#2 v]\nadd [You: I know what we have to do. We should make the world a better place] to [chat#2 v]\nadd [You: The world without spikes, challenges, and sadness is not complete ] to [chat#2 v]\nadd [You: The world without smile, happiness, and sunshine is also not complete] to [chat#2 v]\nadd [You: Mr. Sadness, do you want to join me?] to [chat#2 v]\n\ndefine level1\ndelete all of [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (item (level) of [text v]) to [list# v]\nrepeat (8)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\nwhen I receive [next-level v]\nset [level-updating v] to [1]\nchange [level v] by (1)\nif <(level) = [2]> then\n    level2\nelse\n    if <(level) = [3]> then\n        level3\n    else\n        if <(level) = [4]> then\n            level4\n        else\n            if <(level) = [5]> then\n                level5\n            else\n                if <(level) = [6]> then\n                    level6\n                else\n                    if <(level) = [7]> then\n                        level7\n                    else\n                        if <(level) = [8]> then\n                            level8\n                        else\n                            if <(level) = [9]> then\n                                level9\n                            else\n                                if <(level) = [10]> then\n                                    level1\n                                else\n                                    if <(level) = [11]> then\n                                        level11\n                                    else\n                                        if <(level) = [12]> then\n                                            level12\n                                        else\n                                            if <(level) = [13]> then\n                                                level13\n                                            else\n                                                if <(level) = [14]> then\n                                                    level14\n                                                else\n                                                    if <(level) = [15]> then\n                                                        level15\n                                                    else\n                                                        if <(level) = [16]> then\n                                                            level16\n                                                        else\n                                                            if <(level) = [17]> then\n                                                                level1\n                                                            else\n                                                                if <(level) = [18]> then\n                                                                    level1\n                                                                else\n                                                                    if <(level) = [19]> then\n                                                                        level3\n                                                                    else\n                                                                        if <(level) = [20]> then\n                                                                            level20\n                                                                        else\n                                                                            if <(level) = [21]> then\n                                                                                level1\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\n                    end\n                end\n            end\n        end\n    end\nend\ndelete all of [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nadd (join [level] (level)) to [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nset [x v] to [1]\nset [y v] to [5]\nset [jump v] to [0]\nwait (1) seconds\nset [level-updating v] to [0]\nset [dead v] to [0]\nif <(level) = [17]> then\n    broadcast (story-mode v)\nend\nif <(level) = [21]> then\n    broadcast (story#2 v)\nend\n\ndefine set-teleportor\ndelete all of [teleportor-x v]\nrepeat (7)\n    add [] to [teleportor-x v]\nend\nadd [43] to [teleportor-x v]\nadd [2] to [teleportor-x v]\nrepeat (2)\n    add [] to [teleportor-x v]\nend\nadd [44] to [teleportor-x v]\ndelete all of [teleportor-y v]\nrepeat (7)\n    add [] to [teleportor-y v]\nend\nadd [4] to [teleportor-y v]\nadd [10] to [teleportor-y v]\nrepeat (2)\n    add [] to [teleportor-y v]\nend\nadd [3] to [teleportor-y v]\n\ndefine level14\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (50)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [▓])\nend\nrepeat (55)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\n\ndefine level11\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (36)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (16)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (28)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (8)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (8)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (24)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (28)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (37)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (16)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\n\nwhen I receive [story-mode v]\nset [story v] to [1]\nwait (2) seconds\nset [x v] to [1]\nrepeat (15)\n    wait (0.1) seconds\n    change [x v] by (1)\nend\nwait (1) seconds\nset [x-testor#5 v] to []\nrepeat (44)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nset [x-testor#5 v] to (join (x-testor#5) [☹️])\nrepeat (14)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nset [story-pos v] to (item (2) of [list# v])\nset [story-pos#2 v] to [2]\nrepeat (8)\n    replace item (story-pos#2) of [list# v] with (x-testor#5)\n    wait (0.07) seconds\n    replace item (story-pos#2) of [list# v] with (story-pos)\n    change [story-pos#2 v] by (1)\nend\nreplace item ((story-pos#2) - (1)) of [list# v] with (x-testor#5)\nwait (1) seconds\nset [story-pos v] to [1]\nrepeat (11)\n    set [story-pos#2 v] to [1]\n    set [x-testor#5 v] to []\n    repeat (length of (item (story-pos) of [chat v]))\n        set [x-testor#5 v] to (join (x-testor#5) (letter (story-pos#2) of (item (story-pos) of [chat v])))\n        change [story-pos#2 v] by (1)\n        replace item (1) of [list# v] with (x-testor#5)\n        wait (0.04) seconds\n    end\n    wait (0.1) seconds\n    wait until <key (q v) pressed?>\n    change [story-pos v] by (1)\nend\nwait (1) seconds\nreplace item (1) of [list# v] with []\nset [x-testor#5 v] to []\nrepeat (44)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nset [x-testor#5 v] to (join (x-testor#5) [☹️])\nrepeat (7)\n    set [x-testor#5 v] to (join (x-testor#5) [😥])\nend\nreplace item (9) of [list# v] with (x-testor#5)\nset [x-testor#5 v] to []\nrepeat (44)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nrepeat (8)\n    set [x-testor#5 v] to (join (x-testor#5) [😥])\nend\nstart sound [Dun Dun Dunnn v]\nset [story-pos v] to [8]\nrepeat (4)\n    replace item (story-pos) of [list# v] with (x-testor#5)\n    wait (0.4) seconds\n    change [story-pos v] by (-1)\nend\nset [x-testor#5 v] to []\nset [story-pos#2 v] to [1]\nrepeat (length of (item (12) of [chat v]))\n    set [x-testor#5 v] to (join (x-testor#5) (letter (story-pos#2) of (item (12) of [chat v])))\n    change [story-pos#2 v] by (1)\n    replace item (1) of [list# v] with (x-testor#5)\n    wait (0.04) seconds\nend\nwait (0.1) seconds\nwait until <key (q v) pressed?>\nrepeat until <key (space v) pressed?>\n    replace item (1) of [list# v] with [*hold space*]\n    wait (0.6) seconds\n    replace item (1) of [list# v] with []\n    wait (0.6) seconds\nend\nset [x-testor#5 v] to []\nrepeat (40)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nrepeat (20)\n    set [x-testor#5 v] to (join (x-testor#5) [~])\nend\nset [story-pos v] to [2]\nset [sadness-x v] to [44]\nrepeat (7)\n    if <(story-pos) > [2]> then\n        replace item ((story-pos) - (1)) of [list# v] with [____________________________________________________________]\n    end\n    replace item (story-pos) of [list# v] with (x-testor#5)\n    set [x-testor#7 v] to []\n    repeat (sadness-x)\n        set [x-testor#7 v] to (join (x-testor#7) [_])\n    end\n    set [x-testor#7 v] to (join (x-testor#7) [☹️])\n    repeat ((44) - (sadness-x))\n        set [x-testor#7 v] to (join (x-testor#7) [_])\n    end\n    repeat (7)\n        set [x-testor#7 v] to (join (x-testor#7) [😥])\n    end\n    replace item (9) of [list# v] with (x-testor#7)\n    wait (0.2) seconds\n    change [story-pos v] by (1)\n    change [sadness-x v] by (-2)\nend\nset [x-testor#7 v] to []\nrepeat (30)\n    set [x-testor#7 v] to (join (x-testor#7) [_])\nend\nset [x-testor#7 v] to (join (x-testor#7) [☹️])\nrepeat (8)\n    set [x-testor#7 v] to (join (x-testor#7) [_])\nend\nrepeat (20)\n    set [x-testor#7 v] to (join (x-testor#7) [~])\nend\nreplace item (9) of [list# v] with (x-testor#7)\nreplace item (8) of [list# v] with [____________________________________________________________]\nset [x-testor#5 v] to []\nset [story-pos#2 v] to [1]\nrepeat (length of (item (13) of [chat v]))\n    set [x-testor#5 v] to (join (x-testor#5) (letter (story-pos#2) of (item (13) of [chat v])))\n    change [story-pos#2 v] by (1)\n    replace item (1) of [list# v] with (x-testor#5)\n    wait (0.04) seconds\nend\nwait (0.1) seconds\nwait until <key (q v) pressed?>\nreplace item (1) of [list# v] with []\nrepeat (7)\n    change [x v] by (1)\n    change [sadness-x v] by (-1)\n    set [x-testor#7 v] to []\n    repeat (sadness-x)\n        set [x-testor#7 v] to (join (x-testor#7) [_])\n    end\n    set [x-testor#7 v] to (join (x-testor#7) [☹️])\n    repeat ((38) - (sadness-x))\n        set [x-testor#7 v] to (join (x-testor#7) [_])\n    end\n    repeat (20)\n        set [x-testor#7 v] to (join (x-testor#7) [~])\n    end\n    replace item (9) of [list# v] with (x-testor#7)\n    wait (0.1) seconds\nend\nset [story-pos v] to [2]\nset [level-updating v] to [1]\nrepeat (12)\n    replace item (story-pos) of [list v] with []\n    change [story-pos v] by (1)\nend\nwait (3) seconds\nbroadcast (next-level v)\nset [story v] to [0]\n\ndefine level3\ndelete all of [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (item (level) of [text v]) to [list# v]\nrepeat (6)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (25)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (35)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (15)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (45)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine level2\ndelete all of [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (item (level) of [text v]) to [list# v]\nrepeat (9)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine test-die\nif <(y) < [0]> then\n    die\n    set [ups v] to [You fall!]\nend\nif <(letter (x) of (item ((12) - (y)) of [list# v])) = [∆]> then\n    set [ups v] to [You’re killed by the spikes!]\n    die\nend\nif <(letter ((x) + (1)) of (item ((12) - (y)) of [list# v])) = [∆]> then\n    set [ups v] to [You’re killed by the spikes!]\n    die\nend\n\ndefine level9\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (50)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (50)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (55)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (22)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nset [x-testor#4 v] to (join (x-testor#4) [o])\nrepeat (22)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (11)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (37)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (17)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (8)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (25)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\n\ndefine replace list\nset [replace-pos v] to [1]\nrepeat (13)\n    if <not <(replace-pos) = ((12) - (y))>> then\n        if <(replace-pos) < [10]> then\n            replace item (replace-pos) of [list v] with (join [_] (item (replace-pos) of [list# v]))\n        else\n            replace item (replace-pos) of [list v] with (item (replace-pos) of [list# v])\n        end\n    end\n    change [replace-pos v] by (1)\nend\nif <((12) - (y)) < [10]> then\n    set [x-testor v] to [_]\nelse\n    set [x-testor v] to []\nend\nset [x-pos v] to [1]\nrepeat ((x) - (1))\n    set [x-testor v] to (join (x-testor) (letter (x-pos) of (item ((12) - (y)) of [list# v])))\n    change [x-pos v] by (1)\nend\nset [x-pos v] to [1]\nset [x-testor-#2 v] to []\nrepeat ((59) - (x))\n    set [x-testor-#2 v] to (join (x-testor-#2) (letter (((x-pos) + (x)) + (1)) of (item ((12) - (y)) of [list# v])))\n    change [x-pos v] by (1)\nend\nif <(level) < [18]> then\n    replace item ((12) - (y)) of [list v] with (join (x-testor) (join [🙂] (x-testor-#2)))\nelse\n    if <(emoji) = [2]> then\n        replace item ((12) - (y)) of [list v] with (join (x-testor) (join [🙂] (x-testor-#2)))\n    else\n        replace item ((12) - (y)) of [list v] with (join (x-testor) (join [😂] (x-testor-#2)))\n    end\nend\n\ndefine level20\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (6)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine level5\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (40)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (55)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (43)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (36)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (17)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (36)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (55)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (55)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (43)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (7)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (25)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (50)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\nwhen I receive [magic! v]\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nreplace item (13) of [list# v] with (x-testor#4)\nset [star-count v] to [#]\n\ndefine level7\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (15)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [^])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [^])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [^])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine level15\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nset [x-testor#4 v] to (join (x-testor#4) [◆])\nrepeat (59)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (12)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nset [x-testor#4 v] to (join (x-testor#4) [◆])\nrepeat (44)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (46)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (16)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (40)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (17)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nset [x-testor#4 v] to (join (x-testor#4) [◆])\nrepeat (4)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (36)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (45)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (40)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\n\nwhen I receive [jump v]\nset [jump v] to [1]\nchange y [1]\nwait (0.08) seconds\nchange y [1]\nwait (0.1) seconds\nchange y [1]\nwait (0.12) seconds\nchange y [-1]\nwait (0.12) seconds\nchange y [-1]\nwait (0.1) seconds\nchange y [-1]\nwait (0.08) seconds\nset [jump v] to [0]\n\ndefine level4\ndelete all of [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (item (level) of [text v]) to [list# v]\nrepeat (8)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (3)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [∆])\nend\nrepeat (2)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (30)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nadd (x-testor#4) to [list# v]\n\ndefine die\nstart sound [fallbig2 v]\nset [dead v] to [1]\nset [jump v] to [0]\nset [x v] to [1]\nset [y v] to [5]\ndelete all of [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nadd (UPS) to [list v]\nrepeat (6)\n    add [                                                                      ] to [list v]\nend\nif <(level) = [13]> then\n    level13\nend\nif <(level) = [14]> then\n    level14\nend\nwait (1) seconds\nset [dead v] to [0]\n\ndefine change y (yv)\nif <<not <(letter (x) of (item (((12) - (yv)) - (y)) of [list# v])) = [~]>> and <not <(letter ((x) + (1)) of (item (((12) - (yv)) - (y)) of [list# v])) = [~]>>> then\n    change [y v] by (yv)\nend\n\ndefine set-text\ndelete all of [text v]\nadd [Welcome to list world, Mr. Smiley! :\) Arrow keys or “wasd” to move] to [text v]\nadd [Don't fall!...] to [text v]\nadd [Go ahead --> your mission is to make the world a happy and peaceful place.] to [text v]\nadd [Don't touch the spikes!] to [text v]\nadd [If a level is too hard, press s to skip.] to [text v]\nadd [Bounce!] to [text v]\nadd [In my opinion, tranpolines are not always good...] to [text v]\nadd [Go through the teleporting door.] to [text v]\nadd [Bad teleporting doors...... \(In my opinion\)] to [text v]\nadd [To find the defeat Mr. Sadness, you need to travel through a very long distance] to [text v]\nadd [Go over the mountains...] to [text v]\nadd [Go through the tunnel...] to [text v]\nadd [From land to the ocean... \(go on the boat!\)] to [text v]\nadd [From ocean to the land...] to [text v]\nadd [Collect those energy-star and then press space to use the magic power] to [text v]\nadd [You're now close to Mr. Sadness's kingdom.] to [text v]\nadd [] to [text v]\nadd [Umm... Where am I? \(Still arrow keys to move\) ] to [text v]\nadd [Oh my god! All the spikes dispear! ... But... I feel a little bit sad... ] to [text v]\nadd [I know what to have to do] to [text v]\n\ndefine level8\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (4)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (14)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nset [x-testor#4 v] to (join (x-testor#4) [o])\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (20)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (50)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\n\nwhen I receive [boat v]\nrepeat until <not <<(letter ((x) + (1)) of (item ((13) - (y)) of [list# v])) = [▓]> or <(letter (x) of (item ((13) - (y)) of [list# v])) = [▓]>>>\n    set [x-testor#5 v] to []\n    repeat ((x) - (2))\n        set [x-testor#5 v] to (join (x-testor#5) [_])\n    end\n    repeat (5)\n        set [x-testor#5 v] to (join (x-testor#5) [▓])\n    end\n    repeat ((57) - (x))\n        set [x-testor#5 v] to (join (x-testor#5) [_])\n    end\n    replace item (11) of [list# v] with (x-testor#5)\nend\n\ndefine level13\ndelete all of [list# v]\nadd (item (level) of [text v]) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (8)\n    add (x-testor#4) to [list# v]\nend\nset [x-testor#4 v] to []\nrepeat (8)\n    set [x-testor#4 v] to (join (x-testor#4) [~])\nend\nrepeat (52)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (10)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (5)\n    set [x-testor#4 v] to (join (x-testor#4) [▓])\nend\nrepeat (45)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nadd (x-testor#4) to [list# v]\nset [x-testor#4 v] to []\nrepeat (60)\n    set [x-testor#4 v] to (join (x-testor#4) [_])\nend\nrepeat (2)\n    add (x-testor#4) to [list# v]\nend\n\nwhen I receive [story#2 v]\nset [story v] to [1]\nwait (2) seconds\nset [x v] to [1]\nrepeat (25)\n    wait (0.06) seconds\n    change [x v] by (1)\nend\nwait (1) seconds\nset [story-pos v] to [1]\nrepeat (12)\n    set [story-pos#2 v] to [1]\n    set [x-testor#5 v] to []\n    repeat (length of (item (story-pos) of [chat#2 v]))\n        set [x-testor#5 v] to (join (x-testor#5) (letter (story-pos#2) of (item (story-pos) of [chat#2 v])))\n        change [story-pos#2 v] by (1)\n        replace item (1) of [list# v] with (x-testor#5)\n        wait (0.04) seconds\n    end\n    wait (0.1) seconds\n    wait until <key (q v) pressed?>\n    change [story-pos v] by (1)\nend\nwait (3) seconds\nreplace item (1) of [list# v] with []\nset [emoji v] to [2]\nchange [x v] by (-1)\nset [x-testor#5 v] to []\nrepeat (31)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nset [x-testor#5 v] to (join (x-testor#5) [☹️])\nrepeat (27)\n    set [x-testor#5 v] to (join (x-testor#5) [_])\nend\nreplace item (9) of [list# v] with (x-testor#5)\nwait (5) seconds\nset [level-updating v] to [1]\ndelete all of [list v]\nrepeat (6)\n    add [] to [list v]\nend\nadd [                                                      ~ The End ~] to [list v]\nrepeat (5)\n    add [] to [list v]\nend\nadd [Hit the heart and star below for more!] to [list v]\n\nwhen flag clicked\nforever\n    play sound [music v] until done\nend\n\nwhen flag clicked\nset volume to (0) %\nrepeat (100)\n    change volume by (1)\nend\n\n