Red - A Platformer (Mobile Friendly)

Instructions: Instructions:\n- arrow keys or WASD to move\n- mobile friendly\n- spikes kill you\n- s to skip\n- 10 levels\n- all levels are possible\n-------------------------------------------------------------------------\nStoryline: \nYou are a little circle who is going on a quest. You have to get the crystals from the seven color worlds to go to the rainbow world. The seven world are: World Red, World Orange, World Yellow, World Green, World Blue, World Indigo, and World Purple. Now, you arrived World Red.\n-------------------------------------------------------------------------\nPlease tell me in the comment if there are any bugs and glitches! This is my first time making mobile platformer so there might be things to fix.\nLove, favorite, and follow or I'll steal your cupcakes!\n10 hearts and stars and I will make part 2! 

@Stage\n\nwhen flag clicked\nforever\n    switch backdrop to (L)\nend\n\nwhen flag clicked\nset volume to (50) %\nforever\n    play sound [Itro & Tobu - Cloud 9 \[NCS Release\] v] until done\nend\n\n@player\n\nwhen I start as a clone\nset [ghost v] effect to (10)\nrepeat (10)\n    change [ghost v] effect by (15)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\ndefine Platform Gravity: (gravity) Jump H (jump h) S Movement S (sm) F (f) S (s)\nchange [yv v] by (gravity)\nchange y by (YV)\nif <touching (platform v)?> then\n    repeat until <not <touching (platform v)?>>\n        change y by ((([abs v] of (YV) ) / (YV)) * (-1))\n    end\n    set [yv v] to (<<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <((mouse y) - (y position)) > [50]>>>> and <(([abs v] of (YV) ) / (YV)) = [-1]>> * (jump h))\nend\nset [xv v] to (((XV) + ((<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> * ((sm) * (-1))) + (<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> * (sm)))) * (f))\nchange x by (XV)\nset [s v] to [0]\nrepeat until <<(S) = ((s) * (-1))> or <not <touching (platform v)?>>>\n    change y by (1)\n    change [s v] by (-1)\nend\nif <touching (platform v)?> then\n    change y by (S)\n    repeat until <not <touching (platform v)?>>\n        change x by ((([abs v] of (XV) ) / (XV)) * (-1))\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (-180) y: (-86)\nset [skip v] to [0]\nset [l v] to [1]\nset [yv v] to [0]\nset [xv v] to [0]\nforever\n    Platform Gravity: [-1] Jump H [15] S Movement S [4] F [.7] S [8]\nend\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        go to x: (-180) y: (-87)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(x position) > [240]> then\n        start sound [Magic Spell v]\n        change [l v] by (1)\n        go to x: (-180) y: (-86)\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(y position) < [-180]> or <touching (spikes v)?>> then\n        wait (.01) seconds\n        start sound [Crunch v]\n        go to x: (-180) y: (-86)\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (s v) pressed?> then\n        change [l v] by (1)\n        wait (1) seconds\n    end\nend\n\n@platform\n\nwhen flag clicked\ngo to x: (0) y: (-44)\nforever\n    switch costume to (L)\nend\n\n@circle\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nset [ghost v] effect to (pick random (40) to (90))\nset size to (pick random (40) to (80)) %\ngo to x: (240) y: (pick random (180) to (-180))\nglide (pick random (1) to (3)) secs to x: (-240) y: (pick random (180) to (-180))\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <key (p v) pressed?> then\n        hide\n        delete this clone\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    create clone of (_myself_ v)\n    wait (.05) seconds\nend\n\n@spikes\n\nwhen flag clicked\ngo to x: (71) y: (-25)\nforever\n    switch costume to (L)\nend\n\n@Sprite1\n\nwhen flag clicked\nforever\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n