Lost in Egypt-#1- [platformer]
@Stage\n\nwhen flag clicked\nnext backdrop\n\n@Ground\n\nwhen I receive [next level v]\nif <not <(costume [number v]) = [13]>> then\n    next costume\n    next backdrop\nend\n\nwhen flag clicked\n\nif <not <(costume [number v]) = [13]>> then\n\nnext costume\nnext backdrop\n\nwhen I receive [green flag clicked v]\nswitch backdrop to (backdrop1 v)\nswitch costume to (costume1 v)\n\n@Player\n\nwhen I receive [green flag clicked v]\nset size to (40) %\nset rotation style [left-right v]\ngo to x: (-200) y: (100)\nshow\ngo to [front v] layer\nset [speed y v] to [0]\nset [falling? v] to [10]\nforever\n    set [color v] effect to (Color)\n    switch costume to (costume2 v)\n    if <<(speed y) < [4]> or <<key (w v) pressed?> or <<key (space v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>>> then\n        change [speed y v] by (-1)\n    else\n        change [speed y v] by (-2)\n    end\n    change y by (speed y)\n    Touch Ground <(speed y) > [0]>\n    if <(wall jump) > [0]> then\n        change [wall jump v] by (-1)\n    else\n        set [speed x v] to ((speed x) * (0.7))\n        if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n            change [speed x v] by (-1.5)\n        end\n        if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n            change [speed x v] by (1.5)\n        end\n    end\n    if <(speed x) < [-0.5]> then\n        Walk (-90) (speed x)\n    else\n        if <(speed x) > [0.5]> then\n            Walk (90) (speed x)\n        else\n            set [frame v] to [0]\n        end\n    end\n    if <<key (w v) pressed?> or <<key (space v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>> then\n        if <<(jump key) = [0]> and <(falling?) < [3]>> then\n            set [speed y v] to [14]\n            set [falling? v] to [6]\n            set [jump key v] to [1]\n        end\n    else\n        set [jump key v] to [0]\n    end\n    if <(y position) < [-180]> then\n        go to x: (-200) y: (100)\n        set [speed y v] to [0]\n    end\n    if <(x position) > [220]> then\n        go to x: (-200) y: (100)\n        broadcast (Next level v)\n    end\n    if <touching (spikes v)?> then\n        broadcast (Die v)\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        set [ghost v] effect to (0)\n        go to x: (-200) y: (100)\n    end\n    Set Costume\nend\n\ndefine Walk (direction) (speed)\npoint in direction (direction)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(slope) = [8]> or <not <touching (ground v)?>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(slope) = [8]> then\n    change x by ((0) - (speed))\n    change y by ((0) - (slope))\n    if <<<key (w v) pressed?> or <<key (space v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>> and <([abs v] of (speed) ) > [3]>> then\n        if <(wall jump) = [0]> then\n            set [speed x v] to ((-1.2) * (speed))\n            set [speed y v] to [11]\n            set [falling? v] to [6]\n            set [wall jump v] to [15]\n        end\n    else\n        set [speed x v] to [0]\n    end\nend\nif <(speed) < [0]> then\n    change [frame v] by ((speed) / (-10))\nelse\n    change [frame v] by ((speed) / (10))\nend\n\ndefine Touch Ground <up?>\nchange [falling? v] by (1)\nrepeat until <not <touching (ground v)?>>\n    if <up?> then\n        change y by (-1)\n    else\n        change y by (1)\n        set [falling? v] to [0]\n    end\n    set [speed y v] to [0]\nend\n\ndefine Set Costume\nswitch costume to (costume2 v)\n\nwhen I start as a clone\nswitch costume to (costume3 v)\nset [ghost v] effect to (10)\nrepeat (10)\n    change size by (-1)\n    set [color v] effect to (Color)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [green flag clicked v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I receive [next level v]\nset size to (40) %\nset rotation style [left-right v]\ngo to x: (-200) y: (100)\nshow\nset [speed y v] to [0]\nset [falling? v] to [10]\n\nwhen I receive [restart v]\nset size to (40) %\nset rotation style [left-right v]\ngo to x: (-200) y: (100)\nshow\nset [speed y v] to [0]\nset [falling? v] to [10]\n\n@Particle\n\nwhen flag clicked\nhide\nforever\n    switch costume to (pick random (1) to (3))\n    go to x: (pick random (-200) to (200)) y: (-150)\n    repeat (pick random (1) to (5))\n        create clone of (_myself_ v)\n    end\n    wait (pick random (1) to (3)) seconds\nend\n\nwhen I start as a clone\nshow\nswitch costume to (pick random (1) to (3))\ngo to x: (pick random (200) to (-200)) y: (-150)\nset size to (pick random (20) to (100)) %\nset [ghost v] effect to (pick random (45) to (90))\nglide (pick random (2) to (4)) secs to x: (pick random (-200) to (200)) y: (250)\ndelete this clone\n\ngo to x: (-10) y: (184)\n\nwhen flag clicked\nforever\n    point towards (mouse-pointer v)\nend\n\n@Spikes\n\nwhen flag clicked\nswitch costume to (costume2 v)\n\nwhen I receive [next level v]\nif <not <(costume [number v]) = [5]>> then\n    next costume\nend\nif <(costume [number v]) = [5]> then\n\nwhen flag clicked\nforever\n    set [color v] effect to (Color)\nend\n\n@TN\n\nwhen flag clicked\nset [ghost v] effect to (0)\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\n    broadcast (Green Flag clicked v)\nend\nforever\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@Sprite2\n\nwhen flag clicked\nhide\nwait (2) seconds\nshow\nset [ghost v] effect to (54)\n\n
UPDATE: https://scratch.mit.edu/projects/381147237/\n\nSCROLLING!: (Mobile friendly!)\nhttps://scratch.mit.edu/projects/460882798/\n\nHey guys!\nIts been a while now, so why not turn comments back on right? Anyways, my scrolling platformer is way better! Please visit it! Thanks guys!\n\nBackstory:\nYou are exploring aincent Egypt, and you get lost in a pyrimid. You can feel something odd happening inside but you cant quite figure out what. You must find your way out, before you die alone, without anyone ever knowing what happend to you. ENTER IF YOU DARE!!!!! or well, you play so u cant not enter XD