Platformer Starter! 
@Stage\n\n@Player\n\nwhen flag clicked\nset [gravity v] to [-1.5]\nset [jump force v] to [15]\nset [acceleration v] to [1.5]\nset [resistents v] to [0.8]\nset [animation v] to [1]\nset [dir v] to [90]\nset [speed y v] to [0]\ngo to x: (-150) y: (55)\nforever\n    if <key (up arrow v) pressed?> then\n        if <(falling) < [3]> then\n            set [speed y v] to (JUMP FORCE)\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        set [dir v] to [-90]\n        change [speed x v] by ((0) - (ACCELERATION))\n    end\n    if <key (right arrow v) pressed?> then\n        set [dir v] to [90]\n        change [speed x v] by (ACCELERATION)\n    end\n    set [speed x v] to ((speed x) * (RESISTENTS))\n    change [speed y v] by (GRAVITY)\n    Move in steps (([abs v] of (speed x) ) + ([abs v] of (speed y) ))\nend\n\ndefine Move in steps (steps)\nif <(animation) > [18]> then\n    set [animation v] to [1]\nend\nswitch costume to (hitbox v)\nchange [falling v] by (1)\nrepeat (steps)\n    set [last value v] to (x position)\n    change x by ((speed x) / (steps))\n    if <<touching color (#ff6f00)?> or <<touching color (#ff6f00)?> or <touching color (#ff6f00)?>>> then\n        set x to (last value)\n        set [speed x v] to [0]\n    end\n    set [last value v] to (y position)\n    change y by ((speed y) / (steps))\n    if <<touching color (#ff6f00)?> or <<touching color (#ff6f00)?> or <touching color (#ff6f00)?>>> then\n        set y to (last value)\n        if <(speed y) < [0]> then\n            set [falling v] to [0]\n        end\n        set [speed y v] to [0]\n    end\nend\npoint in direction ((dir) - (0))\nswitch costume to (animation)\n\nwhen flag clicked\nforever\n    if <<<key (left arrow v) pressed?> or <key (right arrow v) pressed?>> and <(falling) = [0]>> then\n        if <<<(animation) > [1]> or <(animation) = [1]>> and <not <(animation) = [16]>>> then\n            if <<<(animation) > [1]> or <(animation) = [1]>> and <not <(animation) = [16]>>> then\n                change [animation v] by (1)\n            end\n        else\n            set [animation v] to [1]\n        end\n    end\n    if <(speed y) > [0.1]> then\n        set [animation v] to [17]\n        switch costume to (jump01 v)\n    end\n    if <<(speed y) < [-0.1]> and <not <(falling) = [0]>>> then\n        set [animation v] to [18]\n        switch costume to (run_j2 v)\n    end\n    if <<(falling) = [0]> and <not <key (any v) pressed?>>> then\n        set [animation v] to [1]\n        switch costume to (stand v)\n    end\nend\n\n
Starter on a platformer!