Greenworld // A Platformer  #Games #all
@Stage\n\nwhen flag clicked\nforever\n    play sound [Vexento - Tevo \(Original Mix\) v] until done\nend\n\n@Figur1\n\nwhen flag clicked\nset [x v] to [0]\nset [y v] to [0]\nset [level v] to [0]\ngo to x: (-200) y: (0)\nset size to (70) %\nforever\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        point in direction (180)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.9))\n    change x by (X)\n    if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n        change y by (1)\n        if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n            change y by (1)\n            if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n                change y by (1)\n                if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n                    change y by (1)\n                    if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n                        change y by (1)\n                        if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n                            change y by (1)\n                        end\n                        if <<touching (figur2 v)?> or <touching (figur4 v)?>> then\n                            change y by (-4)\n                            change x by ((X) * (-1))\n                            Wall\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> and <<touching (figur2 v)?> or <touching (figur4 v)?>>> then\n        set [y v] to [12]\n    end\n    change y by (1)\n    change y by (Y)\n    if <touching (figur2 v)?> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    if <<touching (figur3 v)?> or <touching (figur4 v)?>> then\n        go to x: (-200) y: (0)\n    end\n    if <[200] < (x position)> then\n        broadcast (Nachricht1 v)\n        go to x: (-200) y: (0)\n        change [level v] by (1)\n    end\n    if <touching (figur5 v)?> then\n        set [y v] to [20]\n    end\nend\n\ndefine Wall\nif <key (up arrow v) pressed?> then\n    set [y v] to [8]\n    if <(X) > [0]> then\n        change [x v] by (-8)\n    else\n        change [x v] by (8)\n    end\nelse\n    set [x v] to [0]\nend\n\n@Figur2\n\nwhen flag clicked\nswitch costume to (kostüm1 v)\ngo to x: (0) y: (0)\n\nwhen I receive [nachricht1 v]\nnext costume\n\ngo to x: (0) y: (0)\ngo to [front v] layer\n\n@Figur3\n\nwhen flag clicked\nswitch costume to (kostüm1 v)\ngo to x: (0) y: (0)\ngo to [front v] layer\n\nwhen I receive [nachricht1 v]\nnext costume\n\n@Figur5\n\nwhen flag clicked\nswitch costume to (kostüm1 v)\ngo to x: (0) y: (0)\nforever\n    if <(Level) = [0]> then\n        hide\n    end\n    if <(Level) = [1]> then\n        show\n        go to x: (0) y: (0)\n    end\n    if <(Level) = [2]> then\n        show\n    end\n    if <(Level) = [3]> then\n        go to x: (110) y: (0)\n    end\n    if <(Level) = [4]> then\n        hide\n    end\n    if <(Level) = [5]> then\n        go to x: (-90) y: (0)\n        show\n    end\n    if <(Level) = [6]> then\n        hide\n    end\n    if <(Level) = [7]> then\n        hide\n    end\n    if <(Level) = [7]> then\n        go to x: (-100) y: (0)\n        show\n    end\n    if <(Level) = [8]> then\n        go to x: (-50) y: (0)\n        hide\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\nforever\n    if <touching (figur1 v)?> then\n        repeat (4)\n            next costume\n            wait (0.03) seconds\n        end\n    end\nend\n\n@Figur6\n\nwhen flag clicked\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@Figur4\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [back v] layer\nswitch costume to (kostüm1 v)\nset [y2 v] to [0]\nforever\n    change y by ([cos v] of (Y2) )\n    change [y2 v] by (3)\nend\n\nwhen I receive [nachricht1 v]\nnext costume\n\n