PAC-MAN The Platformer 3
@Stage\n\nwhen I receive [geht los v]\n\nwhen flag clicked\n\nforever\n    play sound [Police Siren v] until done\nend\n\nwhen flag clicked\n\nwhen flag clicked\n\nforever\n    wait (0.6) seconds\n    play sound [Police Siren v] until done\nend\n\n@Guy (Ghost)\n\nwhen I start as a clone\n\nwhen flag clicked\nshow\nSetup\nbroadcast (Game Loop v)\n\ngo to x: (-190) y: (-24)\ngo to x: (-201) y: (14)\n\nwhen flag clicked\n\ndefine Fix Collisions in direction (dir)\nset [temporary dir v] to (direction)\nset [distance v] to [1]\npoint in direction (dir)\nrepeat (168)\n    Check Touching Solid\n    if <(touching) < [1]> then\n        point in direction (temporary dir)\n        stop [this script v]\n    end\n    move (distance) steps\n    turn right (180) degrees\n    change [distance v] by (1)\nend\n\ndefine Check Touching Solid\nif <touching (ground v)?> then\n    set [touching v] to [1]\nelse\n    set [touching v] to [0]\nend\n\nhide variable [x v]\n\nwhen flag clicked\nforever\n    Check Touching Solid\n    if <(touching) > [0]> then\n        Fix Collisions in direction [0]\n        Fix Collisions in direction [90]\n    end\nend\n\ndefine Setup\ngo to x: (-200) y: (50)\npoint in direction (90)\nshow\ngo to [front v] layer\nclear graphic effects\nset size to (45) %\nset drag mode [not draggable v]\nset [x v] to [0]\nset [y v] to [0]\nset [level v] to [1]\n\nif <(costume [number v]) = [1]> then\n    switch costume to (trail2 v)\nelse\n    switch costume to (trail3 v)\nend\n\ndefine Left / Right Movement\nif <<<mouse down?> and <(x position) > (mouse x)>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n    change [x v] by (-1)\nend\nif <<<mouse down?> and <(x position) < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n    change [x v] by (1)\nend\nset [x v] to ((X) * (0.9))\nchange x by (X)\n\nwhen I receive [game loop v]\nforever\n    Set Costume\n    Left / Right Movement\n    Horizontal Collision and Wall Jump\n    Up / Down Movement\n    Check Death / Win\nend\n\ndefine Horizontal Collision and Wall Jump\nCheck Touching Solid\nif <(touching) = [1]> then\n    change y by (1)\n    Check Touching Solid\n    if <(touching) = [1]> then\n        change y by (1)\n        Check Touching Solid\n        if <(touching) = [1]> then\n            change y by (1)\n            Check Touching Solid\n            if <(touching) = [1]> then\n                change y by (1)\n                Check Touching Solid\n                if <(touching) = [1]> then\n                    change y by (1)\n                    Check Touching Solid\n                    if <(touching) = [1]> then\n                        change x by ((X) * (-1))\n                        change y by (-5)\n                        if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n                            if <(X) > [0]> then\n                                set [x v] to [-7]\n                            else\n                                set [x v] to [7]\n                            end\n                            set [y v] to [14]\n                        else\n                            set [x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-3)\n\ndefine Up / Down Movement\nCheck Touching Solid\nif <(touching) = [1]> then\n    if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        set [y v] to [14]\n    end\nend\nchange y by (3)\nchange [y v] by (-1)\nchange y by (Y)\nCheck Touching Solid\nif <(touching) = [1]> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\n\ndefine Check Death / Win\nif <(x position) > [230]> then\n    change [level v] by (1)\n    broadcast (next level v)\nend\nif <(y position) < [-170]> then\n    broadcast (Death v)\nend\nif <touching (pac man  v)?> then\n    broadcast (Death v)\nend\nif <touching (lava v)?> then\n    broadcast (Death v)\nend\nif <touching (saw v)?> then\n    broadcast (Death v)\nend\n\nwhen I receive [next level v]\nset [y v] to [0]\nset [x v] to [0]\ngo to x: (-245) y: (y position)\n\nwhen I receive [death v]\nstop [other scripts in sprite v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\nclear graphic effects\ngo to x: (-235) y: (-50)\nset [y v] to [0]\nset [x v] to [0]\nshow\nbroadcast (Game Loop v)\ndelete this clone\n\ndefine Set Costume\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<((mouse y) + (-20)) > (y position)> and <mouse down?>>> and <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<((mouse x) + (15)) > (x position)> and <mouse down?>>>> then\n    switch costume to (right v)\nelse\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<((mouse y) + (-20)) > (y position)> and <mouse down?>>> and <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<((mouse x) - (15)) < (x position)> and <mouse down?>>>> then\n        switch costume to (left v)\n    else\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<((mouse y) + (-20)) > (y position)> and <mouse down?>>> then\n            switch costume to (up v)\n        else\n            if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<((mouse x) - (-20)) > (x position)> and <mouse down?>>> then\n                switch costume to (right v)\n            else\n                if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<((mouse x) + (-20)) < (x position)> and <mouse down?>>> then\n                    switch costume to (left v)\n                else\n                    switch costume to (middle v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [death v]\n\nwhen I receive [game loop v]\ndelete this clone\n\nwhen I receive [game loop v]\n\nFix Collisions in direction [0]\nFix Collisions in direction [90]\n\nwhen I receive [next level v]\nwait (0.01) seconds\nFix Collisions in direction [0]\n\nwhen I receive [90 v]\nset [y v] to [20]\nchange y by (Y)\n\nwhen I receive [-90 v]\nset [y v] to [-20]\nchange y by (Y)\n\nstop [this script v]\n\nwhen I receive [180 v]\nset [x v] to [25]\n\nwhen I receive [next level v]\nFix Collisions in direction [0]\n\nwhen I receive [game loop v]\nFix Collisions in direction [0]\n\nwhen I receive [lava  v]\ngo to x: (-175) y: (5)\nshow\n\nhide\n\nmove (10) steps\n\nwhen flag clicked\nset [leben v] to [0]\nforever\n    if <touching (lava v)?> then\n        change [leben v] by (1)\n        wait (1) seconds\n    end\nend\n\nwhen I receive [game over v]\nforever\n    hide\nend\n\nwhen [space v] key pressed\nnext costume\n\n\n\nwhen flag clicked\n\nforever\n    if <touching (rot v)?> then\nend\n\nbroadcast (lava  v)\nchange [leben v] by (1)\nwait (1) seconds\n\ncreate clone of (_myself_ v)\n\nswitch costume to (trail2 v)\nclear graphic effects\nrepeat (8)\n    change size by (-4)\n    change [ghost v] effect by (10)\n    change [brightness v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (ghost links v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (ghost rechts v)\n    end\nend\n\nwhen I receive [game over v]\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (ghost links v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (ghost rechts v)\n    end\nend\n\nwhen I receive [game loop v]\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (ghost links v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (ghost rechts v)\n    end\nend\n\nwhen flag clicked\n\nforever\n    if <touching (pac man 2 v)?> then\n    end\nend\n\nwhen I receive [game loop v]\nforever\n    if <touching (pac man 2 v)?> then\n        broadcast (Death v)\n    end\nend\n\nbroadcast (Game Loop v)\n\n@Pac man \n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\ngo to [back v] layer\nif <(Level) = [2]> then\n    show\n    forever\n        go to x: (56) y: (-141)\n        switch costume to (pacman oben v)\n        glide (1) secs to x: (56) y: (-20)\n        switch costume to (pacman links v)\n        glide (1) secs to x: (196) y: (-20)\n        switch costume to (pacman oben v)\n        switch costume to (pacman unten v)\n        glide (1) secs to x: (196) y: (-157)\n    end\nend\nif <(Level) = [3]> then\n    forever\n        go to x: (138) y: (-77)\n        show\n        switch costume to (pacman oben v)\n        glide (1.5) secs to x: (139) y: (109)\n        switch costume to (pacman links v)\n        glide (0.4) secs to x: (253) y: (109)\n        hide\n        wait (1) seconds\n    end\nend\nif <(Level) = [4]> then\n    hide\nend\nif <(Level) = [5]> then\n    hide\n    forever\n        switch costume to (pacman oben v)\n        show\n        go to x: (44) y: (-181)\n        glide (1) secs to x: (37) y: (25)\n        switch costume to (pacman links v)\n        glide (1) secs to x: (252) y: (22)\n    end\nend\nif <(Level) = [6]> then\n    forever\n        switch costume to (pacman links v)\n        go to x: (-66) y: (-46)\n        glide (1) secs to x: (250) y: (-46)\n        hide\n        wait (1) seconds\n        wait (1) seconds\n        show\n        switch costume to (pacman links2 v)\n        glide (1) secs to x: (-66) y: (-46)\n    end\nend\nif <(Level) = [7]> then\n    go to x: (0) y: (0)\n    hide\n    forever\n        show\n        set size to (85) %\n        switch costume to (pacman oben v)\n        go to x: (45) y: (-187)\n        glide (4) secs to x: (45) y: (147)\n        switch costume to (pacman links v)\n        glide (1.3) secs to x: (238) y: (146)\n        hide\n    end\nend\nif <(Level) = [8]> then\n    hide\nend\nif <(Level) = [9]> then\n    hide\nend\n\nif <(Level) = [11]> then\n    hide\nend\nif <(Level) = [13]> then\n    show\n    switch costume to (13 v)\nend\nif <(Level) = [14]> then\n    show\n    switch costume to (14 v)\nend\nif <(Level) = [15]> then\n    show\n    switch costume to (15 v)\nend\nif <(Level) = [16]> then\n    hide\nend\nif <(Level) = [17]> then\n    show\n    switch costume to (17 v)\nend\nif <(Level) = [18]> then\n    hide\nend\n\nhide\n\n@ground\n\nwhen flag clicked\nswitch costume to (level2 v)\nshow\ngo to x: (2) y: (-29)\npoint in direction (90)\nswitch costume to (join [Level] (Level))\n\nwhen I receive [next level v]\nnext costume\nswitch costume to (join [Level] (Level))\n\nforever\n\nswitch costume to (level1 v)\n\nwhen I receive [game over v]\nforever\n    hide\nend\n\n@Figur1\n\n@player2\n\nwhen flag clicked\ngo to [front v] layer\n\nhide\n\n@Screenshot 2022-02-25 15\n\nwhen I receive [game over v]\ngo to x: (169) y: (-133)\nshow\n\nwhen flag clicked\nhide\n\n@Figur4\n\n@ground2\n\nwhen flag clicked\nswitch costume to (level2 v)\nshow\ngo to x: (2) y: (-29)\npoint in direction (90)\nswitch costume to (join [Level] (Level))\n\nwhen I receive [next level v]\nnext costume\nswitch costume to (join [Level] (Level))\n\nforever\n\nswitch costume to (level1 v)\n\nwhen I receive [game over v]\nforever\n    hide\nend\n\n@Figur5\n\nwhen flag clicked\nwait (3) seconds\nset drag mode [not draggable v]\nforever\n    go to [front v] layer\n    hide\n    go to x: (237) y: (185)\n    show\n    play sound [Plopp v] until done\n    glide (1) secs to x: (237) y: (151)\n    wait (3) seconds\n    glide (1) secs to x: (237) y: (185)\n    hide\n    wait (10) seconds\nend\n\n@Screenshot 2022-03-08 19\n\nwhen flag clicked\nhide\n\nwhen I receive [fertig v]\nshow\nwait (0.2) seconds\nhide\n\n@Affen\n\nwhen flag clicked\nhide\n\n@Hallo\n\nwhen flag clicked\nhide\n\n@Figur2\n\nwhen flag clicked\nhide\n\n@Screenshot 2022-03-28 13\n\nwhen flag clicked\nhide\n\n@Screenshot 2022-03-28 2\n\nwhen flag clicked\nhide\n\n@Pac man 2\n\nwhen flag clicked\nhide\n\nwhen I receive [next level v]\ngo to [back v] layer\nif <(Level) = [2]> then\n    hide\nend\nif <(Level) = [3]> then\n    hide\nend\nif <(Level) = [4]> then\n    hide\nend\nif <(Level) = [5]> then\n    forever\n        show\n        set size to (45) %\n        go to x: (-110) y: (85)\n        switch costume to (pacman rechts v)\n        glide (1) secs to x: (0) y: (85)\n        switch costume to (pacman links v)\n        glide (1) secs to x: (-110) y: (85)\n    end\nend\nif <(Level) = [6]> then\n    hide\nend\nif <(Level) = [7]> then\n    go to x: (-39) y: (56)\n    show\n    switch costume to (4 v)\nend\nif <(Level) = [8]> then\n    hide\nend\nif <(Level) = [9]> then\n    hide\nend\n\nif <(Level) = [11]> then\n    hide\nend\nif <(Level) = [13]> then\n    show\n    switch costume to (13 v)\nend\nif <(Level) = [14]> then\n    show\n    switch costume to (14 v)\nend\nif <(Level) = [15]> then\n    show\n    switch costume to (15 v)\nend\nif <(Level) = [16]> then\n    hide\nend\nif <(Level) = [17]> then\n    show\n    switch costume to (17 v)\nend\nif <(Level) = [18]> then\n    hide\nend\n\nhide\n\n@Figur3\n\nwhen flag clicked\nhide\n\n
P A C M A N  \nT H E    \nP L A T F O R M E R 3\nSkript: @S-sch\nsteuerung/steering\nwasd \nPfeiltasten/arrow keys\nDon't touch pacman(berühre nicht pacman)\nPlatz 2 in den trends danke(leider nur noch3)\nDanke für 635 likes\nUnd 431 faves\n45 Remixe \n\n17000 aufrufe\n(Stand:24.11.2022)