List platformer 2

Instructions: Hi, this is my game, my list platformer! use arrow keys or WAD to move.  Since i am using characters, the platformer can be a bit confusing so here is a quick explanation:\n\n'~' = ground\n'∆' = spikes\n'=' = trampoline\n'_' = empty space\n\nThat's all! Enjoy!\n\nFor all those who are wondering how this works, go here: https://scratch.mit.edu/projects/479865824

@Stage\n\nwhen flag clicked\nhide list [yousmomentumsag's list platformemr v]\nset [level v] to [1]\nset [player y v] to [12]\nset [player x v] to [1]\nforever\n    if <(round (Player Y)) = [1]> then\n        change [player y v] by (2)\n    end\n    set [player v] to (PLAYER)\n    if <(letter ((Player X) + (3)) of (item (Player Y) of [yousmomentumsag's list platformemr v])) = [-]> then\n        change [player x v] by (-2)\n    end\n    if <(letter ((Player X) + (0)) of (item (Player Y) of [yousmomentumsag's list platformemr v])) = [-]> then\n        change [player x v] by (2)\n    end\n    if <[1] > (Player X)> then\n        set [player x v] to [2]\n    end\n    if <(Player X) > [60]> then\n        change [level v] by (1)\n        set [player y v] to [12]\n        set [player x v] to [1]\n    end\n    if <(letter ((round (Player X)) + (1)) of (item ((Player Y) - (1)) of [yousmomentumsag's list platformemr v])) = [.]> then\n        set [y vel v] to [0]\n        change [player y v] by (1)\n    end\n    if <(letter (round (Player X)) of (item ((Player Y) - (-1)) of [yousmomentumsag's list platformemr v])) = [∆]> then\n        set [player v] to [😖]\n        change [player y v] by (-1)\n        render\n        wait (1) seconds\n        set [player y v] to [12]\n        set [player x v] to [1]\n    end\n    if <(block_replaced) = [∆]> then\n        change [player y v] by (-2)\n        render\n        wait (1) seconds\n        set [player y v] to [12]\n        set [player x v] to [1]\n        set [player v] to [😖]\n    end\n    if <(letter (round (Player X)) of (item ((Player Y) - (-1)) of [yousmomentumsag's list platformemr v])) = [=]> then\n        set [y vel v] to [0]\n        set [y vel v] to [-1.3]\n    end\n    if <(Player Y) > [13]> then\n        change [player y v] by (((round (Player Y)) - (11)) * (-1))\n        render\n        wait (1) seconds\n        set [player y v] to [12]\n        set [player x v] to [1]\n    end\n    if <(letter ((round (Player X)) + (1)) of (item (round ((Player Y) - (-1))) of [yousmomentumsag's list platformemr v])) = [~]> then\n        if <[0] > (y vel)> then\n            change [y vel v] by (0.1)\n            set [in air? v] to [1]\n            change [player y v] by (y vel)\n        end\n        set [in air? v] to [0]\n        set [y vel v] to [0]\n    else\n        change [y vel v] by (0.1)\n        set [in air? v] to [1]\n        change [player y v] by (y vel)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [player x v] by (-2)\n    end\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [player x v] by (2)\n    end\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <(in air?) = [0]>> then\n        set [y vel v] to [-0.8]\n    end\n    render\n    wait (0) seconds\nend\n\ndefine render\ndelete all of [yousmomentumsag's list platformemr v]\ndelete all of [rows v]\nrepeat (13)\n    add [ _________________________________________________________________] to [yousmomentumsag's list platformemr v]\nend\nif <(level) = [1]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [__________________________Use ^, > , < to move________________________]\n    draw player (player)\n    replace item (11) of [yousmomentumsag's list platformemr v] with [__________________________________~~~~~~~~~~___________________]\n    replace item (12) of [yousmomentumsag's list platformemr v] with [__________________________________~~~~~~~~~~___________________]\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]\n    add [11] to [rows v]\n    add [12] to [rows v]\n    add [13] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item (round ((Player X) + (1))) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [2]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [______________________________Spikes!______________________________]\n    draw player (player)\n    replace item (10) of [yousmomentumsag's list platformemr v] with [___________________________~~~~~~~~~~~~~______________________]\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆]\n    add [10] to [rows v]\n    add [13] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item (round ((Player X) + (1))) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [3]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_______________Use the trampoline to get to the top of the wall!______________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~======~~~∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆]\n    replace item (12) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    replace item (11) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    replace item (10) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    replace item (9) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    replace item (8) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    replace item (7) of [yousmomentumsag's list platformemr v] with [__________________________~~~~~~________________________________]\n    add [13] to [rows v]\n    add [12] to [rows v]\n    add [11] to [rows v]\n    add [10] to [rows v]\n    add [9] to [rows v]\n    add [8] to [rows v]\n    add [7] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item (round ((Player X) + (1))) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [4]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_____________________________Don't fall!______________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~_____________________________________________________]\n    add [13] to [rows v]\n    replace item (10) of [yousmomentumsag's list platformemr v] with [___________________________________~~~~~~~~~~~___________________]\n    add [10] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [5]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_____________________________Tight jumps...______________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~_____________________~~~__________________~~~~~~~~~~~~~~~~~~~]\n    add [13] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [6]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_____________________________Be careful!_____________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]\n    replace item (9) of [yousmomentumsag's list platformemr v] with [____________________________~~~~~~~~~~~~~~~~~~___________________]\n    replace item (8) of [yousmomentumsag's list platformemr v] with [____________________________~~~~~~~~~~~~~~~~~~___________________]\n    add [13] to [rows v]\n    add [9] to [rows v]\n    add [8] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [7]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [___________________________Leap of Faith!____________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~~~~____________________________________]\n    add [13] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [8]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_______________________Hard, but not impossible...______________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~∆∆∆∆∆∆∆~~~~~~~~~~~~~~~~∆∆∆∆∆∆∆~~~~~~~~~~~~]\n    add [13] to [rows v]\n    replace item (9) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]\n    add [9] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [9]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [__________________________Can you make it?__________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆]\n    add [13] to [rows v]\n    replace item (10) of [yousmomentumsag's list platformemr v] with [_________~~~∆∆∆∆∆∆~~~~~_________________________________________]\n    add [10] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [10]> then\n    replace item (1) of [yousmomentumsag's list platformemr v] with [____________________________Last level!______________________________]\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~∆∆∆∆∆∆∆~~~~~~~~~~~~~~~~~~========~~~~~~]\n    add [13] to [rows v]\n    replace item (9) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~_____________~~~~]\n    add [9] to [rows v]\n    replace item (8) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~∆∆∆∆∆∆∆~~~~~~~~~~~~~~_____________~~~~]\n    add [8] to [rows v]\n    replace item (12) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [12] to [rows v]\n    replace item (11) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [11] to [rows v]\n    replace item (10) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [10] to [rows v]\n    replace item (11) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [11] to [rows v]\n    replace item (4) of [yousmomentumsag's list platformemr v] with [~~~~~______________~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]\n    add [4] to [rows v]\n    replace item (7) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [7] to [rows v]\n    replace item (6) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [6] to [rows v]\n    replace item (5) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [5] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\nif <(level) = [11]> then\n    draw player (player)\n    replace item (13) of [yousmomentumsag's list platformemr v] with [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]\n    add [13] to [rows v]\n    replace item (12) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [12] to [rows v]\n    replace item (11) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [11] to [rows v]\n    replace item (10) of [yousmomentumsag's list platformemr v] with [_____________________________________________________________~~~~]\n    add [10] to [rows v]\n    replace item (9) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [9] to [rows v]\n    replace item (8) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [8] to [rows v]\n    replace item (7) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [7] to [rows v]\n    replace item (6) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [6] to [rows v]\n    replace item (5) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [5] to [rows v]\n    replace item (4) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [4] to [rows v]\n    replace item (3) of [yousmomentumsag's list platformemr v] with [______________________________________________________________~~~~]\n    add [3] to [rows v]\n    replace item (2) of [yousmomentumsag's list platformemr v] with [_________________________Thanks for playing!______________________~~~~]\n    add [2] to [rows v]\n    replace item (1) of [yousmomentumsag's list platformemr v] with [_____________________________You Win!__________________________~~~~]\n    add [1] to [rows v]\n    if <[rows v] contains (round (Player Y))?> then\n        convert (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) to list\n        set [block_replaced v] to (item (round ((Player X) + (1))) of [str v])\n        replace item ((Player X) + (1)) of [str v] with (player)\n        convert (str) to string\n        replace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (str return)\n    end\nend\n\ndefine draw player (player)\nset space (round (Player X))\nreplace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (join (space) (player))\nset space ((63) - (Player X))\nreplace item (round (Player Y)) of [yousmomentumsag's list platformemr v] with (join (item (round (Player Y)) of [yousmomentumsag's list platformemr v]) (space))\n\ndefine set space (space)\nset [space v] to []\nrepeat (space)\n    set [space v] to (join (space) [_])\nend\n\ndefine convert (string) to list\nset [counter v] to [1]\nrepeat (length of (string))\n    add (letter (counter) of (string)) to [str v]\n    change [counter v] by (1)\nend\ndelete (item # of [_] in [str v]) of [str v]\n\ndefine convert (list) to string\nset [str return v] to []\nrepeat (length of [str v])\n    set [str return v] to (join (str return) (item (1) of [str v]))\n    delete (1) of [str v]\nend\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nshow list [yousmomentumsag's list platformemr v]\n\nwhen flag clicked\nset [store on v] to [0]\nforever\n    if <(store on) = [0]> then\n        hide variable [player skin v]\n    end\n    if <(store on) = [1]> then\n        show variable [player skin v]\n    end\n    if <(player skin) = [0]> then\n        set [player v] to [😀 ]\n    end\n    if <(player skin) = [1]> then\n        set [player v] to [😎]\n    end\n    if <(player skin) = [2]> then\n        set [player v] to [🤠]\n    end\n    if <(player skin) = [3]> then\n        set [player v] to [🤖]\n    end\nend\n\nwhen flag clicked\nset [store on v] to [0]\nforever\n    if <key (s v) pressed?> then\n        change [level v] by (1)\n    end\n    wait until <not <key (s v) pressed?>>\nend\n\n