Waffle - A Platformer

Instructions: Just an average platformer. wasd, up down left and right arrow, don't touch what i say not to touch.\nyup, that's it.\nFind your waffle friends!\nFOLLOW     ME      PLZ      !!!     Delay due to schdool 

@Stage\n\nwhen flag clicked\nforever\n    play sound [Monkeys-Spinning-Monkeys v] until done\nend\n\nwhen I receive [next level v]\nnext costume\n\nwhen flag clicked\nswitch costume to (1 v)\n\n@de game\n\nwhen I receive [next level v]\nnext costume\n\nwhen flag clicked\nswitch costume to (1 v)\n\n@waffle\n\nwhen flag clicked\nforever\n    if <touching (_edge_ v)?> then\n        broadcast (start v)\n        broadcast (next level v)\n        change [times v] by (1)\n    end\n    if <<touching (ouchy v)?> or <touching (liquid v)?>> then\n        broadcast (start v)\n    end\nend\n\ndefine sonic\nrepeat (6)\n    if <touching (de game v)?> then\n        change y by (1)\n    end\nend\n\ndefine ycoll\nrepeat until <not <touching (de game v)?>>\n    if <(y) > [0]> then\n        change y by (-1)\n    else\n        change y by (1)\n    end\nend\n\ndefine xcoll\nrepeat until <not <touching (de game v)?>>\n    if <(x) > [0]> then\n        change x by (-1)\n    else\n        change x by (1)\n    end\nend\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\nwhen flag clicked\nforever\n    if <not <<<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>>> then\n        switch costume to (3a v)\n    end\nend\n\nwhen I receive [start v]\nswitch costume to (3a v)\ngo to x: (-200) y: (0)\npoint in direction (90)\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nforever\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [x v] by (1.5)\n        switch costume to (1a v)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [x v] by (-1.5)\n        switch costume to (1a2 v)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (de game v)?> then\n        sonic\n        if <touching (de game v)?> then\n            change y by (-6)\n            xcoll\n            if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                set [y v] to [12]\n                if <([abs v] of (x) ) = (x)> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            else\n                set [x v] to [0]\n            end\n        end\n    end\n    change y by (y)\n    if <touching (de game v)?> then\n        ycoll\n        if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> and <(y) < [0]>> then\n            set [y v] to [14]\n            switch costume to (6a v)\n        else\n            set [y v] to [0]\n        end\n    end\n    if <touching (trampoline v)?> then\n        change [y v] by (15)\n        broadcast (trampoline jumped v)\n    else\n        broadcast (trampoline not jumped v)\n    end\nend\n\nwhen flag clicked\nset [time v] to [0]\nforever\n    wait (1) seconds\n    change [time v] by (1)\n    if <(times) = []> then\n        stop [this script v]\n    end\nend\n\n@ouchy\n\nwhen flag clicked\nhide\n\nwhen flag clicked\ngo to [front v] layer\nset [times v] to [0]\ngo to x: (0) y: (0)\nforever\n    if <(times) = [2]> then\n        switch costume to (costume1 v)\n        show\n    end\n    if <(times) = [3]> then\n        hide\n    end\n    if <(times) = [4]> then\n        switch costume to (costume2 v)\n        show\n    end\n    if <(times) = [5]> then\n        hide\n    end\n    if <(times) = [6]> then\n        switch costume to (costume3 v)\n        show\n    end\n    if <(times) = [7]> then\n        repeat (1)\n            show\n            switch costume to (download \(12\) v)\n            go to x: (174) y: (-27)\n            glide (1) secs to x: (-200) y: (-115)\n        end\n    end\n    if <(times) = [8]> then\n        show\n        switch costume to (costume4 v)\n        go to x: (0) y: (0)\n        glide (0.5) secs to x: (0) y: (-145)\n        glide (0.5) secs to x: (0) y: (0)\n    end\n    if <(times) = [9]> then\n        hide\n    end\nend\n\nif <(times) = []> then\n    hide\nend\n\n@liquid\n\nwhen flag clicked\nset [times v] to [0]\nhide\nforever\n    if <(times) = [3]> then\n        switch costume to (water v)\n        show\n    end\n    if <(times) = [4]> then\n        hide\n    end\n    if <(times) = [5]> then\n        show\n        switch costume to (water2 v)\n    end\n    if <(times) = [6]> then\n        hide\n    end\nend\n\nif <(times) = []> then\n    show\nend\n\n@thumbnail\n\nwhen flag clicked\nchange [ghost v] effect by (100)\ngo to [front v] layer\n\n@start \n\nwhen flag clicked\nshow\ngo to [front v] layer\nswitch costume to (costume1 v)\nwait (3) seconds\nswitch costume to (costume2 v)\nwait (3) seconds\nswitch costume to (costume3 v)\nwait (3) seconds\nswitch costume to (costume4 v)\nwait (4) seconds\nhide\nbroadcast (start v)\n\n@waffle #1\n\nwhen flag clicked\nhide\ngo to x: (-26) y: (-55)\nforever\n    if <(times) = [9]> then\n        show\n        forever\n            if <touching (waffle v)?> then\n                think [Press space to talk]\n            end\n            if <<key (space v) pressed?> and <touching (waffle v)?>> then\n                say [Oh my pancake! You're alive!] for (2) seconds\n                say [All the others are lost, but also trying to find you!] for (2) seconds\n                say [I'm so happy you are alive!] for (2) seconds\n            end\n        end\n    end\nend\n\n