Dinosaurs PlatFormer Remixed

Instructions: This Is a normal Platformer. Yes Normal. Move with arrow keys.

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\n\nwhen I receive [next page v]\nswitch backdrop to (instructs 2 v)\n\nwhen I receive [previous page v]\nswitch backdrop to (instructs 1 v)\n\n@Dinosaur\n\nwhen flag clicked\nhide\nforever\n    Platform Gravity [-1] Jump Height [16] Side Movement Speed [3] Friction [0.7] Slope [8]\nend\n\nwhen backdrop switches to [backdrop1 v]\nshow\nset size to (65) %\nswitch costume to (purple 1 v)\nset [y velocity v] to [0]\nset [x velocity v] to [0]\ngo to x: (-65) y: (-20)\nforever\n    if <key (p v) pressed?> then\n        switch costume to (purple 1 v)\n    end\n    if <key (r v) pressed?> then\n        switch costume to (red 1 v)\n    end\n    if <key (b v) pressed?> then\n        switch costume to (blue 1 v)\n    end\n    if <key (y v) pressed?> then\n        switch costume to (yellow 1 v)\n    end\n    if <key (g v) pressed?> then\n        switch costume to (green 1 v)\n    end\n    if <key (o v) pressed?> then\n        switch costume to (orange 1 v)\n    end\n    if <key (w v) pressed?> then\n        switch costume to (white 1 v)\n    end\n    if <key (i v) pressed?> then\n        switch costume to (pink 1 v)\n    end\n    if <key (k v) pressed?> then\n        switch costume to (brown 1 v)\n    end\n    if <key (l v) pressed?> then\n        switch costume to (blue 2 v)\n    end\n    if <key (z v) pressed?> then\n        switch costume to (black v)\n    end\n    if <key (d v) pressed?> then\n        switch costume to (dark green v)\n    end\n    if <touching (switch 1 v)?> then\n        broadcast (Level v)\n        go to x: (-65) y: (-20)\n        play sound [High Whoosh v] until done\n    end\n    if <touching (lava v)?> then\n        go to x: (-65) y: (-20)\n        play sound [Low Whoosh v] until done\n    end\nend\n\ndefine Platform Gravity (gravity) Jump Height (jump height) Side Movement Speed (side movement) Friction (friction) Slope (slope)\nchange [y velocity v] by (gravity)\nchange y by (Y Velocity)\nif <touching (stages v)?> then\n    repeat until <not <touching (stages v)?>>\n        change y by ((([abs v] of (Y Velocity) ) / (Y Velocity)) * (-1))\n    end\n    set [y velocity v] to (<<key (up arrow v) pressed?> and <(([abs v] of (Y Velocity) ) / (Y Velocity)) = [-1]>> * (jump height))\nend\nset [x velocity v] to (((X Velocity) + ((<key (left arrow v) pressed?> * ((side movement) * (-1))) + (<key (right arrow v) pressed?> * (side movement)))) * (friction))\nchange x by (X Velocity)\nset [my variable v] to [0]\nif <touching (stages v)?> then\n    change y by (1)\n    repeat until <not <touching (stages v)?>>\n        change x by ((([abs v] of (X Velocity) ) / (X Velocity)) * (-1))\n    end\nend\n\nwhen flag clicked\nforever\n    start sound [Dance Funky v]\n    wait (5.00) seconds\nend\n\n@Stages\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [backdrop1 v]\nshow\nswitch costume to (costume2 v)\n\nwhen I receive [switch 1 v]\nswitch costume to (costume3 v)\n\nwhen I receive [level v]\nnext costume\n\n@Play\n\nwhen flag clicked\nshow\n\nwhen this sprite clicked\nhide\nswitch backdrop to (backdrop1 v)\nplay sound [pop v] until done\n\nwhen backdrop switches to [instructs 1 v]\nhide\n\nwhen backdrop switches to [backdrop2 v]\nshow\n\n@Help\n\nwhen flag clicked\nshow\n\nwhen backdrop switches to [backdrop1 v]\nhide\n\nwhen this sprite clicked\nswitch backdrop to (instructs 1 v)\nhide\nplay sound [pop v] until done\n\nwhen backdrop switches to [backdrop2 v]\nshow\n\n@Switch 1\n\nwhen backdrop switches to [backdrop1 v]\nshow\n\nwhen flag clicked\nhide\n\n@Sprite1\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [instructs 1 v]\nshow\n\nwhen this sprite clicked\nbroadcast (Next Page v)\nplay sound [pop v] until done\n\nwhen backdrop switches to [instructs 2 v]\nhide\n\nwhen backdrop switches to [backdrop2 v]\nhide\n\n@Back\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [instructs 2 v]\nshow\n\nwhen this sprite clicked\nbroadcast (Previous page v)\nplay sound [pop v] until done\n\nwhen backdrop switches to [instructs 1 v]\nhide\n\nwhen backdrop switches to [backdrop2 v]\nhide\n\n@Lava\n\nwhen flag clicked\nhide\n\nwhen I receive [level v]\nnext costume\n\nwhen backdrop switches to [backdrop1 v]\nshow\nswitch costume to (costume1 v)\n\n@Home\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [instructs 1 v]\nshow\n\nwhen this sprite clicked\nswitch backdrop to (backdrop2 v)\nplay sound [pop v] until done\n\nwhen backdrop switches to [backdrop2 v]\nhide\n\n