LOST (PLATFORMER)

Instructions: -INSTRUCTIONS- \nUse Arrow Keys, WAD, Your Mouse, Or Finger To Move And Advance To The Next Level

@Stage\n\nwhen flag clicked\nforever\n    play sound [01 - 夢追い人の物語 v] until done\nend\n\n@Player\n\ndefine Y Collision\nif <touching (level v)?> then\n    repeat until <not <touching (level v)?>>\n        change y by ((([abs v] of (YV) ) / (YV)) * (-1))\n    end\n    set [yv v] to [0]\nend\n\ndefine X Collision\nrepeat (8)\n    if <touching (level v)?> then\n        change y by (1)\n    end\nend\nif <touching (level v)?> then\n    change y by (-8)\n    repeat until <not <touching (level v)?>>\n        change x by ((([abs v] of (XV) ) / (XV)) * (-1))\n    end\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> then\n        if <(XV) < [0]> then\n            set [xv v] to ((Speed) * (6))\n        else\n            set [xv v] to ((Speed) * (-6))\n        end\n        set [yv v] to ((Jump Height) - (3))\n    else\n        set [xv v] to [0]\n    end\nend\n\ndefine Jump Height Variation\nif <<(YV) > [0]> and <not <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>>>> then\n    change [yv v] by (-0.9)\nend\n\nwhen flag clicked\nset [lvl v] to [1]\nshow\nclear graphic effects\ngo to [front v] layer\nset size to (100) %\ngo to x: (-200) y: (-85)\nset [xv v] to [0]\nset [yv v] to [0]\nrepeat until <<key (space v) pressed?> or <mouse down?>>\n    say [Where Am I? \(Click Or Press Space To Continue\)] for (0.01) seconds\nend\nglide (3) secs to x: (55) y: (-1)\nrepeat until <<key (space v) pressed?> or <mouse down?>>\n    say [I Must Be Deep Underground] for (0.01) seconds\nend\nwait (0.3) seconds\nrepeat until <<key (space v) pressed?> or <mouse down?>>\n    say [I Need To Get To The Surface] for (0.01) seconds\nend\nwait (0.3) seconds\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<(mouse x) > (x position)> and <mouse down?>>> then\n        change [xv v] by (Speed)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        change [xv v] by ((Speed) * (-1))\n    end\n    set [xv v] to ((XV) * (Friction))\n    change x by (XV)\n    X Collision\n    change [yv v] by ((Gravity) * (-1))\n    change y by (YV)\n    Y Collision\n    change y by (-1)\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> and <touching (level v)?>> then\n        set [yv v] to (Jump Height)\n    end\n    change y by (1)\n    Jump Height Variation\n    if <touching (progression v)?> then\n        change [lvl v] by (1)\n        go to x: (-200) y: (0)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\n    if <<<touching (spikes v)?> or <touching (lava v)?>> or <(y position) < [-170]>> then\n        go to x: (-200) y: (0)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\nend\n\nwhen flag clicked\nset [speed v] to [2]\nset [friction v] to [0.8]\nset [jump height v] to [15]\nset [gravity v] to [1]\n\nwhen flag clicked\nwait until <(Lvl) = [10]>\nsay [It Think I Can See The End Of This Cave] for (4) seconds\nwait until <(Lvl) = [11]>\nsay [Where Am I Now?] for (100000) seconds\n\n@Level\n\nwhen flag clicked\nforever\n    switch costume to (Lvl)\nend\n\n@Spikes\n\nwhen flag clicked\ngo to [back v] layer\nforever\n    switch costume to (Lvl)\nend\n\n@Lava\n\nwhen flag clicked\nforever\n    go to x: (0) y: (([sin v] of ((timer) * (100)) ) * (6))\nend\n\nwhen flag clicked\nforever\n    switch costume to (Lvl)\nend\n\n@Toenail\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n@Progression\n\nwhen flag clicked\nclear graphic effects\nset [ghost v] effect to (100)\nshow\ngo to x: (300) y: (0)\n\n