Neon | a platformer

Instructions: Arrow Keys / Touchscreen to move\n\n\n\n\n\nTags –\n#games #Stories #Art 

@Stage\n\nwhen flag clicked\nforever\n\n@Hyper\n\nwhen I start as a clone\nif <not <<<(costume [number v]) = [7]> or <(costume [number v]) = [8]>> or <(costume [number v]) = [9]>>> then\n    switch costume to (trail v)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\nif <<<(costume [number v]) = [7]> or <(costume [number v]) = [8]>> or <(costume [number v]) = [9]>> then\n    switch costume to (duck trail v)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nforever\n    if <(x-velocity) < [-2]> then\n        switch costume to (left v)\n    end\n    if <[2] < (x-velocity)> then\n        switch costume to (right v)\n    end\n    if <[0] < (y-velocity)> then\n        switch costume to (jump v)\n        if <[2] < (x-velocity)> then\n            switch costume to (walljump right v)\n        end\n        if <(x-velocity) < [-2]> then\n            switch costume to (walljump left v)\n        end\n    end\n    if <<(y-velocity) < [0]> and <<key (down arrow v) pressed?> or <mouse down?>>> then\n        switch costume to (duck v)\n        if <[2] < (round (x-velocity))> then\n            switch costume to (duck right v)\n        end\n        if <(round (x-velocity)) < [-2]> then\n            switch costume to (duck left v)\n        end\n    end\nend\n\nwhen flag clicked\nset [level v] to [1]\npoint in direction (90)\ngo to x: (-200) y: (0)\nclear graphic effects\nswitch costume to (roll v)\nshow\nforever\n    go to [front v] layer\n    change [color v] effect by (2)\n    create clone of (_myself_ v)\n    if <<(y position) < [-175]> or > then\n        go to x: (-200) y: (0)\n        set [x-velocity v] to [0]\n        point in direction (90)\n        set [y-velocity v] to [0]\n    end\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        change [x-velocity v] by (-1)\n    end\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        change [x-velocity v] by (1)\n    end\n    set [x-velocity v] to ((x-velocity) * (0.85))\n    change x by (x-velocity)\n    if <touching (ladders v)?> then\n        set [y-velocity v] to [0.5]\n        if <<touching (ladders v)?> and <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>>> then\n            set [y-velocity v] to [4]\n        end\n        if <<touching (ladders v)?> and <<key (down arrow v) pressed?> or <<(mouse y) < (y position)> and <mouse down?>>>> then\n            set [y-velocity v] to [-4]\n        end\n    end\n    if <touching (platforms v)?> then\n        change y by (-2)\n        if <touching (platforms v)?> then\n            change y by (1)\n            if <touching (platforms v)?> then\n                change y by (1)\n                if <touching (platforms v)?> then\n                    change y by (1)\n                    if <touching (platforms v)?> then\n                        change y by (1)\n                        if <touching (platforms v)?> then\n                            change y by (1)\n                            if <touching (platforms v)?> then\n                                change y by (-5)\n                                change x by ((-1) * (x-velocity))\n                                if <<<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> and <not <(x-velocity) = [0]>>> then\n                                    set [y-velocity v] to [8]\n                                    set [x-velocity v] to (((x-velocity) / ([abs v] of (x-velocity) )) * (-10))\n                                else\n                                    set [x-velocity v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (2)\n    end\n    change y by (-3)\n    if <touching (platforms v)?> then\n        if <(y-velocity) = [-3]> then\n            if <<<key (left arrow v) pressed?> or <key (right arrow v) pressed?>> or <mouse down?>> then\n        end\n    end\n    if <touching (platforms v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            set [y-velocity v] to [10]\n        end\n    end\n    change y by (3)\n    if <touching (bouncy v)?> then\n        set [y-velocity v] to [12]\n    end\n    if <(y-velocity) > [-15]> then\n        change [y-velocity v] by (-0.5)\n    end\n    change y by (-2)\n    if <not <touching (platforms v)?>> then\n        change y by (-1)\n        if <not <touching (platforms v)?>> then\n            change y by (-1)\n            if <not <touching (platforms v)?>> then\n                change y by (-1)\n                if <not <touching (platforms v)?>> then\n                    change y by (-1)\n                    if <not <touching (platforms v)?>> then\n                        change y by (-1)\n                        if <not <touching (platforms v)?>> then\n                            change y by (5)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (2)\n    change y by (y-velocity)\n    if <touching (platforms v)?> then\n        change y by (-2)\n        if <touching (platforms v)?> then\n            change y by ((-1) * (y-velocity))\n            set [y-velocity v] to [-3]\n        end\n        change y by (2)\n    end\nend\n\nwhen flag clicked\nforever\n    if <[225] < (x position)> then\n        change [level v] by (1)\n        glide (1) secs to x: (-200) y: (-100)\n    end\nend\n\n@Platforms\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\n    change [color v] effect by (1)\nend\n\n@Spikes\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\n@Ladders\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\n@Bouncy\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\n@Words\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\n@Thumbnail\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nforever\n    reset timer\nend\n\nwhen flag clicked\nforever\n    play sound [TheFatRat-Time-Lapse v] until done\nend\n\nwhen [timer v] > (0.5)\nforever\n    play sound [TheFatRat-Time-Lapse v] until done\nend\n\n