Space Platformer v1
@Stage\n\n@Sprite1\n\nwhen flag clicked\nhide\n\ngo to x: (0) y: (0)\nshow\ngo to [front v] layer\n\n@Sprite2\n\nwhen flag clicked\nforever\n    platform ;gravity [-.7] jump height; [13.5] side movement speed [2] friction [.859759829] slope; [8]\nend\n\ndefine platform ;gravity (gravity) jump height; (jump height) side movement speed (side movement ) friction (friction) slope; (slope)\nswitch costume to (the thing3 v)\nchange [y v v] by (gravity)\nchange y by (Y v)\nif <touching (level v)?> then\n    repeat until <not <touching (level v)?>>\n        change y by ((([abs v] of (Y v) ) / (Y v)) * (-1))\n    end\n    set [y v v] to (<<<<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> or <key (w v) pressed?>> and <(([abs v] of (Y v) ) / (Y v)) = [-1]>> * (jump height))\nend\nset [x v v] to (((X v) + (((<<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <key (a v) pressed?>> * (side movement )) * (-1)) + (<<<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> or <key (d v) pressed?>> * (side movement )))) * (friction))\nchange x by (X v)\nset [slope v] to [0]\nrepeat until <<(slope) = ((slope) * (-1))> or <not <touching (level v)?>>>\n    change y by (1)\n    change [slope v] by (-1)\nend\nif <touching (level v)?> then\n    change y by (slope)\n    repeat until <not <touching (level v)?>>\n        change x by ((([abs v] of (X v) ) / (X v)) * (-1))\n    end\nend\nchange [scroll yyyy v] by ((y position) * (-1))\nchange [scroll x v] by ((x position) * (-1))\ngo to x: (0) y: (0)\nswitch costume to (the thing2 v)\n\nwhen flag clicked\nforever\n    create clone of (sprite3 v)\n    wait (0.1) seconds\nend\n\nwhen flag clicked\nforever\n    play sound [Sub Urban - Cradles \[OFFICIAL MUSIC VIDEO\] \(4\) v] until done\nend\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n    end\n    if <mouse down?> then\n        point towards (mouse-pointer v)\n    end\nend\n\n@level\n\nwhen flag clicked\nset [scroll x v] to [0]\nset [scroll yyyy v] to [0]\nforever\n    go to x: (scroll x) y: (scroll yyyy)\n    if <key (r v) pressed?> then\n        set [scroll x v] to [0]\n        set [scroll yyyy v] to [0]\n    end\nend\n\n@Sprite3\n\nwhen I start as a clone\nrepeat (15)\n    glide (0.6) secs to x: (scroll x) y: (scroll yyyy)\nend\ndelete this clone\n\nwhen flag clicked\ngo to [back v] layer\nforever\n    go to x: (0) y: (0)\nend\n\n
NOT COMPLETE DONT ASK WHY I AM LAZY