Scientific Research Platformer

Instructions: ALL LEVELS ARE POSSIBLE SO STOP CRYING TO ME ABOUT A SKIP BUTTON AND CHECKPOINTS.\n\nAND YESSS, THE TOURNAMENT IS POSSIBLE.\n\n-Arrow keys to move.\n-If you touch liquid, you die.\n-You can touch fire.\n-If you die, click the green flag to start again.\n-To kill the boss, just keep going on to the next level.\n\nI would appreciate some feedback and/or suggestions! Thanks!

@Stage\n\nwhen flag clicked\nforever\n    switch backdrop to (backdrop1 v)\n    play sound [A Bass v] until done\nend\n\n@Bot\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (-200) y: (-23)\nset [xv v] to [0]\nset [yv v] to [0]\nforever\n    Platform [-1] Jump Height [15] Side Movement [3] Friction [0.7] Slope [8]\nend\n\ndefine Platform (gravity) Jump Height (jump height) Side Movement (side movement) Friction (friction) Slope (slope)\nchange [yv v] by (gravity)\nchange y by (Yv)\nif <touching (level v)?> then\n    repeat until <not <touching (level v)?>>\n        change y by ((([abs v] of (Yv) ) / (Yv)) * (-1))\n    end\n    if <<key (up arrow v) pressed?> and <(([abs v] of (Yv) ) / (Yv)) = [-1]>> then\n        set [yv v] to (jump height)\n    else\n        set [yv v] to [0]\n    end\nend\nset [xv v] to (((Xv) + (((<key (left arrow v) pressed?> * (side movement)) * (-1)) + (<key (right arrow v) pressed?> * (side movement)))) * (friction))\nchange x by (Xv)\nset [slope v] to [0]\nrepeat until <<(Slope) = ((slope) * (-1))> or <not <touching (level v)?>>>\n    change y by (1)\n    change [slope v] by (-1)\nend\nif <touching (level v)?> then\n    change y by (Slope)\n    repeat until <not <touching (level v)?>>\n        change x by ((([abs v] of (Xv) ) / (Xv)) * (-1))\n    end\n    set [xv v] to ((Xv) * (friction))\nend\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching (level end v)?> then\n        broadcast (Next Level v)\n    end\nend\n\nwhen I receive [next level v]\ngo to x: (-200) y: (-23)\n\nwhen flag clicked\nforever\n    if <touching (obstacle v)?> then\n        broadcast (Death v)\n        hide\n    end\nend\n\nwhen I receive [death v]\nhide\n\n@Level\n\nwhen flag clicked\nswitch costume to (costume1 v)\nshow\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [death v]\nhide\n\nwhen flag clicked\nforever\n    if <(username) = [Coocalici]> then\n        forever\n            if <key (0 v) pressed?> then\n                broadcast (Next Level v)\n            end\n        end\n    end\nend\n\n@Scientists\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\nswitch costume to (costume1 v)\ngo to [back v] layer\nshow\nforever\n    if <(costume [number v]) = [19]> then\n        switch backdrop to (backdrop3 v)\n    end\nend\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [death v]\nhide\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [20]> then\n        switch backdrop to (backdrop4 v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [41]> then\n        broadcast (Level End Hide v)\n    end\nend\n\n@Level End\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\n\nwhen I receive [level end hide v]\nhide\n\n@Obstacle\n\nwhen flag clicked\nshow\nswitch costume to (costume4 v)\n\nwhen I receive [next level v]\nnext costume\n\nwhen I receive [death v]\nhide\n\n@Death Screen\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [death v]\nshow\n\n