Dino Land | A Platformer

Instructions: OMG!! 1000+ views :D! \n\nUp arrow key - Jump\nRight arrow key - go right\nLeft arrow key -  go left\nR - restart the level\nS - skip\nAvoid lava and spikes.\nPlease drop a love and a favorite!\nEnjoy!\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nHi :)

@Stage\n\nwhen flag clicked\nforever\n    play sound [Dance Celebrate v] until done\n    wait (0.1) seconds\nend\n\n@Level\n\nwhen flag clicked\nshow\nswitch costume to (costume1 v)\ngo to x: (34) y: (3)\n\nwhen I receive [next level v]\nnext costume\n\nwhen [s v] key pressed\nnext costume\n\n@Spikes\n\nwhen flag clicked\nshow\nswitch costume to (costume2 v)\ngo to x: (1) y: (-33)\ngo to [front v] layer\n\nwhen I receive [next level v]\nnext costume\n\nwhen [s v] key pressed\nnext costume\n\n@dino dude\n\nwhen I start as a clone\nswitch costume to (effect v)\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (-5)\nend\ndelete this clone\n\ndefine Play\nif <key (right arrow v) pressed?> then\n    change [x vel v] by (1)\nend\nif <key (left arrow v) pressed?> then\n    change [x vel v] by (-1)\nend\nchange x by (X vel)\nset [x vel v] to ((X vel) * (0.9))\nif <touching (level v)?> then\n    change y by (1)\n    if <touching (level v)?> then\n        change y by (1)\n        if <touching (level v)?> then\n            change y by (1)\n            if <touching (level v)?> then\n                change y by (1)\n                if <touching (level v)?> then\n                    change y by (1)\n                    if <touching (level v)?> then\n                        change x by ((X vel) * (-1))\n                        change y by (-5)\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                end\n            end\n        end\n    end\nend\nchange [y vel v] by (-1)\nchange y by (Y vel)\nif <touching (level v)?> then\n    change y by ((Y vel) * (-1))\n    set [y vel v] to [0]\nend\nchange y by (-1)\nif <key (up arrow v) pressed?> then\n    if <touching (level v)?> then\n        set [y vel v] to [13]\n    end\nend\nchange y by (1)\nchange [scroll y v] by ((y position) * (-1))\nif <touching (spikes v)?> then\n    go to x: (-196) y: (-61)\nend\nif <[240] < (x position)> then\n    go to x: (-196) y: (-61)\n    broadcast (next level v)\nend\n\nwhen flag clicked\nshow\nreset timer\ngo to [front v] layer\nswitch costume to (center v)\ngo to x: (-186) y: (-12)\nset [x vel v] to [0]\nset [y vel v] to [0]\nforever\n    Play\nend\n\nwhen [r v] key pressed\ngo to x: (-238) y: (-98)\n\n@fireworks\n\nwhen flag clicked\nhide\n\nwhen [m v] key pressed\ngo to x: (2) y: (7)\npoint in direction (90)\nshow\nwait (1) seconds\nrepeat (3)\n    go to (random position v)\n    wait (1) seconds\nend\nturn left (45) degrees\nwait (1) seconds\nturn right (45) degrees\nwait (1) seconds\nturn right (45) degrees\nwait (1) seconds\nturn left (45) degrees\nwait (1) seconds\ngo to x: (2) y: (7)\nhide\n\n