Around the World - A 360° Platformer #games #all

Instructions: arrow keys to move\navoid spikes\ntravel through the world!\n

@Stage\n\n@level\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (0) y: (0)\nset [d vel v] to [0]\nset [y vel v] to [0]\nforever\n    change [y vel v] by (1)\n    if <<key (right arrow v) pressed?> or <<(mouse x) > (x position)> and <mouse down?>>> then\n        change [d vel v] by (-0.2)\n    end\n    if <<key (left arrow v) pressed?> or <<(x position) > (mouse x)> and <mouse down?>>> then\n        change [d vel v] by (0.2)\n    end\n    set [d vel v] to ((d vel) * (0.8))\n    turn right (d vel) degrees\n    if <touching (player v)?> then\n        change y by (-1)\n        if <touching (player v)?> then\n            change y by (-1)\n            if <touching (player v)?> then\n                change y by (-1)\n                if <touching (player v)?> then\n                    change y by (-1)\n                    if <touching (player v)?> then\n                        change y by (4)\n                        turn right ((d vel) * (-1)) degrees\n                        set [d vel v] to [0]\n                    end\n                end\n            end\n        end\n    end\n    change y by (y vel)\n    if <touching (player v)?> then\n        change y by ((y vel) * (-1))\n        set [y vel v] to [0]\n    end\n    change y by (1)\n    if <touching (player v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > [50]> and <mouse down?>>> then\n            start sound [Jump v]\n            set [y vel v] to [-12]\n        end\n    end\n    change y by (-1)\nend\n\nwhen I receive [restart v]\npoint in direction (90)\ngo to x: (0) y: (0)\nset [d vel v] to [0]\nset [y vel v] to [0]\n\nwhen I receive [next level v]\npoint in direction (90)\ngo to x: (-10) y: (-500)\nset [d vel v] to [0]\nset [y vel v] to [0]\nnext costume\n\nwhen flag clicked\nswitch costume to (global v)\n\nwhen flag clicked\nif <touching (mouse-pointer v)?> then\n\nwhen flag clicked\nif <color (#000000) is touching (#ff0000)?> then\n    broadcast (respawn v)\nend\n\nwhen flag clicked\nif <color (#000000) is touching (#cc0000)?> then\n    broadcast (respawn v)\nend\n\n@Player\n\nwhen flag clicked\ngo to x: (-20) y: (160)\n\nwhen I receive [respawn v]\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nforever\n    change y by (-5)\n    if <touching color (#ff0000)?> then\n        broadcast (Restart v)\n    end\n    change y by (5)\nend\n\nwhen flag clicked\nforever\n    if <touching color (#2aff00)?> then\n        broadcast (Next Level v)\n    end\nend\n\nwhen flag clicked\n\nwhen [right arrow v] key pressed\npoint in direction (90)\nwait (0) seconds\nnext costume\n\nwhen [left arrow v] key pressed\npoint in direction (-90)\nwait (0) seconds\nnext costume\n\nforever\n\nwhen flag clicked\nswitch costume to (costume9 v)\n\nwhen flag clicked\nif <touching (level v)?> then\n    switch costume to (costume9 v)\nend\n\n@Clouds\n\nwhen flag clicked\nset [ghost v] effect to (0)\nforever\n    hide\n    create clone of (_myself_ v)\n    wait (pick random (1.5) to (1)) seconds\nend\n\nwhen I start as a clone\nshow\nswitch costume to (pick random (1) to (5))\nif <(pick random (1) to (2)) = [2]> then\n    set [d v] to [-250]\nelse\n    set [d v] to [250]\nend\ngo to x: (d) y: (pick random (-130) to (170))\nset [ghost v] effect to (pick random (40) to (70))\nif <(d) = [250]> then\n    repeat until <(x position) < [-267]>\n        change x by (pick random (-1) to (-3))\n        go to [back v] layer\n        go to [back v] layer\n        go [backward v] (999) layers\n    end\nelse\n    repeat until <(x position) > [267]>\n        change x by (pick random (1) to (3))\n        go to [back v] layer\n        go to [back v] layer\n        go [backward v] (999) layers\n    end\nend\ndelete this clone\n\nwhen I receive [setup v]\ndelete this clone\n\n@sun\n\nwhen flag clicked\ngo [backward v] (2) layers\n\nwhen flag clicked\nforever\n    turn right (1) degrees\nend\n\n@nail`\n\nwhen flag clicked\nhide\n\n