Pokemon Platformer 

Instructions: Controls: Arrow Keys\nDon't touch spikes and voltorbs but they afraid of you :)\nyou can swim on water but don't swim on lava \n\n\n\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\nwait (1) seconds\nswitch backdrop to (backdrop1 v)\n\n@player\n\nwhen flag clicked\nhide\nhide variable [level v]\nwait (1.5) seconds\nshow\nshow variable [level v]\nbroadcast (restart v)\nset [level v] to [1]\nforever\n    if <key (left arrow v) pressed?> then\n        change [x vel v] by (-1)\n        switch costume to (costume1 v)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x vel v] by (1)\n        switch costume to (kostüm 1 v)\n    end\n    set [x vel v] to ((x vel) * (0.9))\n    change x by (x vel)\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 vel) * (-1))\n        if <key (up arrow v) pressed?> then\n            if <(x vel) > [0]> then\n                set [x vel v] to [-10]\n            else\n                set [x vel v] to [10]\n            end\n            set [y vel v] to [15]\n        else\n            set [x vel v] to [0]\n        end\n    end\n    if <touching (water v)?> then\n        change [y vel v] by (0.5)\n    else\n        change [y vel v] by (-1)\n    end\n    change y by (y vel)\n    if <touching (level v)?> then\n        change y by ((y vel) - ((y vel) * (2)))\n        set [y vel v] to [0]\n    end\n    change y by (-1)\n    if <<touching (level v)?> and <key (up arrow v) pressed?>> then\n        set [y vel v] to [15]\n    end\n    change y by (1)\n    create clone of (_myself_ v)\n    if <(x position) > [239]> then\n        broadcast (next level v) and wait\n        change [level v] by (1)\n        if <(level) = [21]> then\n            hide variable [level v]\n        end\n    end\n    if <touching (spike v)?> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        broadcast (restart v)\n    end\n    if <touching (lava v)?> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        broadcast (restart v)\n    end\nend\n\nwhen I start as a clone\nclear graphic effects\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [next level v]\nbroadcast (restart v)\n\nwhen I receive [restart v]\nset [x vel v] to [0]\nset [y vel v] to [0]\ngo to x: (-162) y: (31)\n\nwhen I receive [bounce v]\nset [y vel v] to [16]\n\n@votorb\n\nwhen flag clicked\nforever\n    show\n    switch costume to (level)\nend\n\nwhen flag clicked\nforever\n    if <([x position v] of [player v]) < (x position)> then\n        change [x vel v] by (-0.5)\n    end\n    if <(x position) < ([x position v] of [player v])> then\n        change [x vel v] by (0.5)\n    end\n    set [x vel v] to ((x vel) * (0.9))\n    change x by (x vel)\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 vel) * (-1))\n        if <(([x position v] of [player v]) - (70)) < (y position)> then\n            if <(x vel) > [0]> then\n                set [x vel v] to [-10]\n            else\n                set [x vel v] to [10]\n            end\n            set [y vel v] to [15]\n        else\n            set [x vel v] to [1]\n        end\n    end\n    if <touching (water v)?> then\n        change [y vel v] by (0.5)\n    else\n        change [y vel v] by (-1)\n    end\n    change y by (y vel)\n    if <touching (level v)?> then\n        change y by ((y vel) - ((y vel) * (2)))\n        set [y vel v] to [0]\n    end\n    change y by (-1)\n    if <touching (water v)?> then\n        if <(([x position v] of [player v]) - (50)) < (y position)> then\n            set [level v] to [15]\n        end\n    end\n    if <touching (spike v)?> then\n        broadcast (22 v)\n    end\n    if <touching (player v)?> then\n        broadcast (restart v)\n    end\nend\n\nwhen I receive [22 v]\nhide\ngo to x: (-19) y: (-19)\n\n@level\n\nwhen flag clicked\nhide\nwait (1) seconds\nshow\nforever\n    switch costume to (level)\nend\n\n@spike\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\n@water\n\nwhen flag clicked\nforever\n    set [tide v] to [0]\n    repeat (10)\n        change [tide v] by (1)\n    end\n    repeat (20)\n        change [tide v] by (-1)\n    end\n    repeat (10)\n        change [tide v] by (1)\n    end\nend\n\nwhen flag clicked\nforever\n    set y to (tide)\n    switch costume to (level)\nend\n\n@bounce\n\nwhen flag clicked\nforever\n    switch costume to (level)\n    if <touching (player v)?> then\n        broadcast (bounce v)\n    end\nend\n\ndefine clone (x) (y)\ngo to x: (x) y: (y)\ncreate clone of (_myself_ v)\n\n@lava\n\nwhen flag clicked\nforever\n    set [tide v] to [0]\n    repeat (10)\n        change [tide v] by (1)\n    end\n    repeat (20)\n        change [tide v] by (-1)\n    end\n    repeat (10)\n        change [tide v] by (1)\n    end\nend\n\nwhen flag clicked\nforever\n    set y to (tide)\n    switch costume to (level)\nend\n\n