Purple land platformer 
@Stage\n\n@Sprite2\n\nwhen flag clicked\nswitch costume to (costume3 v)\n\nwhen I receive [change level v]\nnext costume\n\n@Sprite1\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (-213) y: (7)\nhide variable [y v]\nhide variable [x v]\nset [y v] to [0]\nset [x v] to [0]\npoint in direction (90)\nforever\n    change [y v] by (-1)\n    if <<key (left arrow v) pressed?> and <not <(x position) < [-224]>>> then\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x v] by (1)\n    end\n    if <(x position) < [-224]> then\n        change [x v] by (1.1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (sprite2 v)?> then\n        change y by (1)\n    end\n    if <touching (sprite2 v)?> then\n        change y by (1)\n    end\n    if <touching (sprite2 v)?> then\n        change y by (1)\n    end\n    if <touching (sprite2 v)?> then\n        change y by (1)\n    end\n    if <touching (sprite2 v)?> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        if <key (up arrow v) pressed?> 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    go to [front v] layer\n    change y by (y)\n    if <touching (sprite2 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?> and <touching (sprite2 v)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <touching (sprite3 v)?> then\n        go to x: (-213) y: (7)\n    end\n    if <(x position) > [201]> then\n        go to x: (-213) y: (7)\n        broadcast (change level v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (costume1 v)\n        wait (0.5) seconds\n        switch costume to (costume2 v)\n        wait (0.5) seconds\n        switch costume to (costume1 v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (costume3 v)\n        wait (0.5) seconds\n        switch costume to (costume4 v)\n        wait (0.5) seconds\n        switch costume to (costume3 v)\n    end\nend\n\nrepeat until \n\nwait (0.2) seconds\n\nrepeat until <(costume [number v]) = [1]>\n    wait (0.5) seconds\n    next costume\n    if <(costume [number v]) = [1]> then\n        switch costume to (costume3 v)\n    end\nend\n\nrepeat until <(costume [number v]) = [3]>\n\nif <(costume [number v]) = [3]> then\n    switch costume to (costume1 v)\nend\n\nnext costume\n\nswitch costume to (costume2 v)\n\nswitch costume to (costume1 v)\n\n@Sprite3\n\nwhen flag clicked\ngo to [back v] layer\nswitch costume to (costume4 v)\n\nwhen I receive [change level v]\ngo to [back v] layer\nnext costume\n\n
arrow keys\nCheck out the sequel, Red Land https://scratch.mit.edu/projects/957504952