Planets- A Platformer (Mobile)

Instructions: This is and entry for @MJM3 platformer contest.\n\n\nAll of the colors are based of of what it looks like on Earth because it looks better than Venus with a yellowish white atmosphere and a red ground.

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\n\nwhen I receive [play v]\nforever\n    play sound [bensound-evolution2 v] until done\nend\n\nwhen I receive [play v]\nforever\n    switch backdrop to (Level)\nend\n\n@Player\n\ndefine Place Player: (x) (y) Set Size To: (size)\ngo to x: (x) y: (y)\nset size to (size) %\n\ndefine Gravity, Platform Detection, Physics....\nforever\n    change [y v] by (-1)\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> 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 (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level v)?> then\n        change y by (1)\n    end\n    if <touching (level 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?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [y v] to [17]\n            if <(x) > [0]> 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 (level v)?> then\n        change y by ((y) - ((y) * (2)))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <((mouse y) - (y position)) > [50]>>> and <touching (level v)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <<<touching (obstacles v)?> or <(y position) < [-175]>> or <key (r v) pressed?>> then\n        Place Player: [-189] [-115] Set Size To: [40]\n        change [deaths v] by (1)\n        set [y v] to [0]\n        set [x v] to [0]\n    end\n    if <<(x position) > [230]> or <touching (next planet v)?>> then\n        wait (.000001) seconds\n        change [level v] by (1)\n        Place Player: [-189] [-115] Set Size To: [40]\n        broadcast (Black screen v)\n        set [y v] to [0]\n        set [x v] to [0]\n    end\nend\n\nwhen I receive [play v]\nset [level v] to [1]\nshow\nPlace Player: [-173] [-122] Set Size To: [40]\nhide variable [y v]\nhide variable [x v]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    Gravity, Platform Detection, Physics....\nend\n\nwhen I receive [play v]\nforever\n    if <touching (trampoline v)?> then\n        set [y v] to [22]\n    end\nend\n\nwhen I receive [play v]\nswitch costume to (1 v)\nset [deaths v] to [0]\n\nwhen flag clicked\nhide\n\nwhen I receive [next planet v]\nnext costume\n\nwhen I receive [play v]\nforever\n    if <touching (next planet v)?> then\n        next costume\n    end\nend\n\n@Level\n\nwhen I receive [play v]\nshow\nforever\n    switch costume to (Level)\nend\n\nwhen flag clicked\nswitch costume to (16 v)\n\n@Obstacles\n\nwhen I receive [play v]\nshow\nforever\n    switch costume to (Level)\n    go to [back v] layer\nend\n\nwhen flag clicked\nhide\n\n@Trampoline\n\nwhen I receive [play v]\nshow\nforever\n    switch costume to (Level)\nend\n\n@INTRO\n\nwhen flag clicked\nhide variable [deaths v]\nclear graphic effects\nshow\nset [color v] effect to (0)\nset [ghost v] effect to (0)\npoint in direction (90)\nswitch costume to (1 v)\nset size to (100) %\ngo to x: (0) y: (0)\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone id) = [0]> then\n    set [ghost v] effect to (0)\n    point in direction (90)\n    switch costume to (2 v)\n    go to [front v] layer\n    set size to (100) %\n    go to x: (0) y: (0)\n    repeat (7)\n        wait (0.01) seconds\n        change size by (5)\n    end\n    broadcast (TURN v)\nend\nif <(Clone id) = [1]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    set size to (10) %\n    switch costume to (4 v)\n    repeat (20)\n        wait (0.01) seconds\n        change size by (10)\n    end\n    switch costume to (5 v)\n    broadcast (Thumbnail show v)\n    wait (2) seconds\n    broadcast (play v)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\nend\n\nwhen I receive [turn v]\nrepeat (50)\n    turn right (5) degrees\n    change [ghost v] effect by (1)\n    change size by (-1)\nend\ndelete this clone\n\nwhen I receive [turn v]\nrepeat (50)\n    turn right (5) degrees\n    change [ghost v] effect by (1)\n    change size by (-1)\nend\nhide\nswitch costume to (3 v)\nshow\nrepeat (100)\n    turn right (-5) degrees\n    change size by (1)\n    change [ghost v] effect by (-1)\nend\nrepeat (15)\n    change [color v] effect by (25)\nend\nset [color v] effect to (0)\nrepeat (5)\n    move (10) steps\nend\nrepeat (10)\n    move (-10) steps\nend\nrepeat (5)\n    move (10) steps\nend\nset [clone id v] to [1]\ncreate clone of (_myself_ v)\nhide\n\nturn right (4) degrees\n\nchange [color v] effect by (25)\n\nbroadcast (TURN v)\n\nhide\n\nset [ghost v] effect to (0)\n\npoint in direction (90)\n\ngo to x: (0) y: (0)\n\nbroadcast (TURN v)\n\ngo to x: (0) y: (0)\n\ndelete this clone\n\n@Next Planet\n\nwhen I receive [play v]\nshow\nforever\n    if <touching (player v)?> then\n        broadcast (Next Planet v)\n    end\n    forever\n        switch costume to (Level)\n    end\nend\n\n@Thumbnail\n\nwhen I receive [thumbnail show v]\nshow\ngo to [front v] layer\nwait (2) seconds\nhide\n\nwhen I receive [play v]\nforever\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\nwhen flag clicked\nhide\n\n@Moving enemy\n\nwhen flag clicked\nhide\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [play v]\nshow\n\nwhen flag clicked\nforever\n    glide (1) secs to x: (-4) y: (83)\n    wait (.0000001) seconds\n    glide (1) secs to x: (0) y: (0)\nend\n\n