Pen Platformer v1.9.6
@Stage\n\n@Engine\n\nwhen flag clicked\nset [mode v] to [s]\nrepeat (10)\n    set [lp2 v] to [0]\nend\nset [screen x v] to [0]\nset [screen y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [y change v] to [0]\nset [roland v] to [0]\nset [x change v] to [0]\nhide\nset [gates v] to [1]\nwait (1) seconds\nforever\n    pen up\n    if <not <(Mode) = [c]>> then\n        if <not <(Mode) = [a]>> then\n            set [screen x v] to ((screen x) * (0.9))\n            set [screen y v] to ((screen y) * (0.9))\n            change [screen x v] by (x change)\n            change [screen y v] by ((0) - (y change))\n            change [scroll x v] by (x change)\n            change [scroll y v] by (y change)\n            change [y change v] by (0.3)\n            set [x change v] to ((x change) * (0.9))\n            if <key (left arrow v) pressed?> then\n                change [x change v] by (0.5)\n            end\n            if <key (right arrow v) pressed?> then\n                change [x change v] by (-0.5)\n            end\n            if <(y change) > [5]> then\n                set [y change v] to [5]\n            end\n            if <[200] < (Scroll y)> then\n                Dead\n            end\n        end\n    end\n    if <(Mode) = [a]> then\n        repeat until <not <(Mode) = [a]>>\n            change [screen x v] by (x change)\n            change [screen y v] by (y change)\n            set [y change v] to ((y change) * (0.9))\n            set [x change v] to ((x change) * (0.9))\n            if <key (left arrow v) pressed?> then\n                change [x change v] by (1)\n            end\n            if <key (right arrow v) pressed?> then\n                change [x change v] by (-1)\n            end\n            if <key (up arrow v) pressed?> then\n                change [y change v] by (-1)\n            end\n            if <key (down arrow v) pressed?> then\n                change [y change v] by (1)\n            end\n        end\n    end\nend\n\ndefine Create Blocks from: (x) (y) to: (x2) (y2) type: (type) jump to level: (level)\nswitch costume to (bühnenbild1 v)\npen up\nset pen size to (((Zoom %) / (100)) * (5))\nif <(type) = [0]> then\n    set pen color to (#2682de)\nend\nif <(type) = [1]> then\n    set pen color to (#bababa)\nend\nif <(type) = [2]> then\n    set pen color to (#da5e5e)\nend\nif <(type) = [3]> then\n    set pen color to (#2682de)\n    set pen size to (((Zoom %) / (100)) * (8))\nend\nif <(type) = [4]> then\n    set pen color to (#505050)\n    set pen size to (((Zoom %) / (100)) * (8))\nend\nif <(type) = [5]> then\n    set pen color to (#505050)\n    set pen size to (((Zoom %) / (100)) * (8))\nend\nif <(type) = [6]> then\n    set pen color to (#ffcb79)\n    set pen size to (((Zoom %) / (100)) * (8))\nend\nif <not <(type) = [5]>> then\n    if <not <(type) = [0]>> then\n        if <<((y) + (Scroll y)) > [-10]> and <((y2) + (Scroll y)) < [10]>> then\n            if <not <(Mode) = [a]>> then\n                if <(y change) < [0]> then\n                    if <((y) + (Scroll y)) > [15]> then\n                        if <<((x) + (Scroll x)) < [10]> and <((x2) + (Scroll x)) > [-10]>> then\n                            if <((y2) + (Scroll y)) < [10]> then\n                                if <(type) = [2]> then\n                                    Dead\n                                else\n                                    set [y change v] to [0.5]\n                                    set [scroll y v] to (((0) - (y2)) + (15))\n                                    if <(type) = [6]> then\n                                        set [y change v] to [10]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        if <<((y) + (Scroll y)) > [-10]> and <((y2) + (Scroll y)) < [10]>> then\n            if <<((x) + (Scroll x)) < [15]> and <((x2) + (Scroll x)) > [0]>> then\n                if <not <(Mode) = [a]>> then\n                    if <(type) = [2]> then\n                        Dead\n                    else\n                        set [scroll x v] to (((0) - (x)) + (15))\n                        set [x change v] to [0]\n                    end\n                end\n            end\n            if <<((x2) + (Scroll x)) > [-15]> and <((x) + (Scroll x)) < [0]>> then\n                if <not <(Mode) = [a]>> then\n                    if <(type) = [2]> then\n                        Dead\n                    else\n                        set [scroll x v] to (((0) - (x2)) + (-15))\n                        set [x change v] to [0]\n                    end\n                end\n            end\n        end\n        if <<((x) + (Scroll x)) < [10]> and <((x2) + (Scroll x)) > [-10]>> then\n            if <[0] < (y change)> then\n                if <((y) + (Scroll y)) > [-15]> then\n                    if <((y2) + (Scroll y)) < [-15]> then\n                        if <not <(Mode) = [a]>> then\n                            if <(type) = [2]> then\n                                Dead\n                            else\n                                set [y change v] to [0]\n                                set [scroll y v] to ((-15) - (y))\n                                if <(type) = [3]> then\n                                    set [checkpoint v] to (level)\n                                    broadcast (t2 v)\n                                end\n                                if <(type) = [6]> then\n                                    set [y change v] to [-10]\n                                end\n                                if <<key (up arrow v) pressed?> or <(toch jump) = [ja]>> then\n                                    if <not <(type) = [6]>> then\n                                        set [y change v] to [-7]\n                                    end\n                                end\n                                set [touch ground v] to [ja]\n                                if <(type) = [4]> then\n                                    broadcast (touch v)\n                                    broadcast (Gates v)\n                                end\n                                if <<key (down arrow v) pressed?> or <(Spectade) = [ja]>> then\n                                    set [spectade v] to [ja]\n                                    set [mode v] to [a]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n        pen down\n        go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y2) + (Scroll y)) + (screen y)))\n        go to x: (((Zoom %) / (100)) * (((x2) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y2) + (Scroll y)) + (screen y)))\n        go to x: (((Zoom %) / (100)) * (((x2) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n        go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n    else\n        go to x: (((Zoom %) / (100)) * ((x) + (screen x))) y: (((Zoom %) / (100)) * ((y) + (screen y)))\n        pen down\n        go to x: (((Zoom %) / (100)) * ((x) + (screen x))) y: (((Zoom %) / (100)) * ((y2) + (screen y)))\n        go to x: (((Zoom %) / (100)) * ((x2) + (screen x))) y: (((Zoom %) / (100)) * ((y2) + (screen y)))\n        go to x: (((Zoom %) / (100)) * ((x2) + (screen x))) y: (((Zoom %) / (100)) * ((y) + (screen y)))\n        go to x: (((Zoom %) / (100)) * ((x) + (screen x))) y: (((Zoom %) / (100)) * ((y) + (screen y)))\n    end\nelse\n    if <<((y) + (Scroll y)) > [-10]> and <(((y2) + (Scroll y)) + (Move Gates)) < [10]>> then\n        if <(y change) < [0]> then\n            if <((y) + (Scroll y)) > [15]> then\n                if <<((x) + (Scroll x)) < [10]> and <((x2) + (Scroll x)) > [-10]>> then\n                    if <(((y2) + (Scroll y)) + (Move Gates)) < [10]> then\n                        if <not <(Mode) = [a]>> then\n                            set [y change v] to [0.5]\n                            set [scroll y v] to ((((0) - (y2)) + (15)) - (Move Gates))\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <<((y) + (Scroll y)) > [-10]> and <(((y2) + (Scroll y)) + (Move Gates)) < [10]>> then\n        if <<((x) + (Scroll x)) < [15]> and <((x2) + (Scroll x)) > [0]>> then\n            if <not <(Mode) = [a]>> then\n                set [scroll x v] to (((0) - (x)) + (15))\n                set [x change v] to [0]\n            end\n        end\n        if <<((x2) + (Scroll x)) > [-15]> and <((x) + (Scroll x)) < [0]>> then\n            if <not <(Mode) = [a]>> then\n                set [scroll x v] to (((0) - (x2)) + (-15))\n                set [x change v] to [0]\n            end\n        end\n    end\n    if <<((x) + (Scroll x)) < [10]> and <((x2) + (Scroll x)) > [-10]>> then\n        if <[0] < (y change)> then\n            if <((y) + (Scroll y)) > [-15]> then\n                if <(((y2) + (Scroll y)) + (Move Gates)) < [-15]> then\n                    if <not <(Mode) = [a]>> then\n                        set [scroll y v] to ((-15) - (y))\n                        set [y change v] to [0]\n                    end\n                end\n            end\n        end\n    end\n    go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n    pen down\n    go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((y2) + (Move Gates)) + (Scroll y)) + (screen y)))\n    go to x: (((Zoom %) / (100)) * (((x2) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((y2) + (Move Gates)) + (Scroll y)) + (screen y)))\n    go to x: (((Zoom %) / (100)) * (((x2) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n    go to x: (((Zoom %) / (100)) * (((x) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((y) + (Scroll y)) + (screen y)))\n    pen up\n    if <(Gates) = [1]> then\n        set pen color to (#d07773)\n    end\n    if <(Gates) = [2]> then\n        set pen color to (#86d073)\n    end\n    if <(Move Gates) = [0]> then\n        set pen color to (#7398d0)\n    end\n    if <(Move Gates) = [80]> then\n        set pen color to (#d0c873)\n    end\n    go to x: (((Zoom %) / (100)) * (((((x2) + (x)) / (2)) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((y) - (5)) + (Scroll y)) + (screen y)))\n    pen down\nend\n\nwhen flag clicked\nerase all\nset [checkpoint v] to [1]\nwait (1) seconds\nforever\n    erase all\n    Create Blocks from: [30] [35] to: [100] [25] type: [1] jump to level: [-]\n    Create Blocks from: [-30] [-30] to: [30] [-38] type: [3] jump to level: [1]\n    Create Blocks from: [-250] [90] to: [-70] [80] type: [1] jump to level: [-]\n    Create Blocks from: [10] [170] to: [210] [160] type: [1] jump to level: [-]\n    Create Blocks from: [230] [169] to: [290] [161] type: [3] jump to level: [2]\n    broadcast (map1 v)\nend\n\nwhen flag clicked\nforever\n    wait until <(Gates) = [2]>\n    wait (5) seconds\n    set [gates v] to [1]\nend\n\nwhen I receive [gates v]\nset [gates v] to [2]\nwait (5) seconds\nset [gates v] to [1]\n\nwhen flag clicked\nset [zoom % v] to [100]\nforever\n    change [move gates v] by ((((Gates) * (2)) - (3)) / (0.5))\n    if <(Move Gates) > [80]> then\n        set [move gates v] to [80]\n    end\n    if <[0] > (Move Gates)> then\n        set [move gates v] to [0]\n    end\nend\n\nwhen flag clicked\nset [move gates v] to [0]\nset [change gates 2 v] to [0]\nset [stand2 v] to [0]\nset [change gates v] to [0]\nset [zoom % v] to [100]\nset [stand v] to [0]\nforever\n    wait until <(stand) = [1]>\n    repeat (20)\n        change [change gates v] by (-0.1)\n        change [zoom % v] by (change gates)\n    end\n    repeat (20)\n        change [change gates v] by (0.1)\n        change [zoom % v] by (change gates)\n    end\n    wait until <(stand) = [0]>\n    repeat (20)\n        change [change gates v] by (0.1)\n        change [zoom % v] by (change gates)\n    end\n    repeat (20)\n        change [change gates v] by (-0.1)\n        change [zoom % v] by (change gates)\n    end\nend\n\nwhen I receive [touch v]\nzoom\n\ndefine zoom\nif <not <(Mode) = [c]>> then\n    if <not <(Mode) = [t]>> then\n        set [stand v] to [1]\n        wait (0.2) seconds\n        set [stand v] to [0]\n    end\nend\n\nwhen I receive [t2 v]\nzoom2\n\ndefine zoom2\nif <not <(Mode) = [c]>> then\n    if <not <(Mode) = [t]>> then\n        set [stand2 v] to [1]\n        wait (0.2) seconds\n        set [stand2 v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    wait until <(stand2) = [1]>\n    repeat (20)\n        change [change gates 2 v] by (0.1)\n        change [zoom % v] by (Change gates 2)\n    end\n    repeat (20)\n        change [change gates 2 v] by (-0.1)\n        change [zoom % v] by (Change gates 2)\n    end\n    wait until <(stand2) = [0]>\n    repeat (20)\n        change [change gates 2 v] by (-0.1)\n        change [zoom % v] by (Change gates 2)\n    end\n    repeat (20)\n        change [change gates 2 v] by (0.1)\n        change [zoom % v] by (Change gates 2)\n    end\nend\n\ndefine Dead\nif <not <(Mode) = [c]>> then\n    if <not <(Mode) = [t]>> then\n        set [screen x v] to ((Scroll x) - (item (Checkpoint) of [respawn x v]))\n        set [screen y v] to ((Scroll y) - (item (Checkpoint) of [respawn y v]))\n        set [scroll x v] to (item (Checkpoint) of [respawn x v])\n        set [scroll y v] to (item (Checkpoint) of [respawn y v])\n        set [x change v] to [0]\n        set [y change v] to [0]\n        start sound [Dead v]\n    end\nend\n\nwhen flag clicked\nwait until <<not <(Move Gates) = [80]>> and <not <(Move Gates) = [0]>>>\nforever\n    if <<not <(Move Gates) = [0]>> and <not <(Move Gates) = [80]>>> then\n        play sound [Machine3 v] until done\n    end\n    if <<(Move Gates) = [80]> or <(Move Gates) = [0]>> then\n        start sound [Machine v]\n        wait until <<not <(Move Gates) = [80]>> and <not <(Move Gates) = [0]>>>\n    end\nend\n\nplay sound [Machine v] until done\n\nwhen flag clicked\nwait (3.5) seconds\nforever\n    play sound [Chill v] until done\nend\n\nwhen flag clicked\nset [my slot v] to [0]\nset [next v] to [0]\nset [found gameslot v] to [no]\nwait (5) seconds\nbroadcast (check v)\n\nwhen flag clicked\nset [fast chat v] to [00]\nset [stoppuhr v] to [0]\nwait until <(found gameslot) = [ja]>\nforever\n    repeat until <(Stoppuhr) > [1]>\n        set [check x v] to (round ((Scroll x) + (1000)))\n        set [check y v] to (round ((Scroll y) + (1000)))\n        if <(length of (check x)) < [4]> then\n            set [check x v] to (join [0] (check x))\n            if <(length of (check x)) < [4]> then\n                set [check x v] to (join [0] (check x))\n                if <(length of (check x)) < [4]> then\n                    set [check x v] to (join [0] (check x))\n                end\n            end\n        end\n        if <(length of (check y)) < [4]> then\n            set [check y v] to (join [0] (check y))\n            if <(length of (check y)) < [4]> then\n                set [check y v] to (join [0] (check y))\n                if <(length of (check y)) < [4]> then\n                    set [check y v] to (join [0] (check y))\n                end\n            end\n        end\n        if <(Spectade) = [ja]> then\n            set [fast chat v] to [14]\n        end\n        if <(Spectade) = [no]> then\n            if <(fast chat) = [14]> then\n                set [fast chat v] to [00]\n            end\n        end\n        if <(my slot) = [1]> then\n            set [☁ player1 v] to (join (join (next) (join (fast chat) (join (check x) (check y)))) (# code))\n        end\n        if <(my slot) = [2]> then\n            set [☁ player2 v] to (join (join (next) (join (fast chat) (join (check x) (check y)))) (# code))\n        end\n        if <(my slot) = [3]> then\n            set [☁ player3 v] to (join (join (next) (join (fast chat) (join (check x) (check y)))) (# code))\n        end\n        if <(my slot) = [4]> then\n            set [☁ player4 v] to (join (join (next) (join (fast chat) (join (check x) (check y)))) (# code))\n        end\n    end\n    set [stoppuhr v] to [0]\n    change [next v] by (1)\n    if <(next) = [3]> then\n        set [next v] to [1]\n    end\nend\n\ndefine Create Name\nset [# insgesamt id v] to (length of (username))\nset [# code v] to []\nset [# next v] to [0]\nif <not <(username) = []>> then\n    repeat until <(# next) = (# insgesamt ID)>\n        change [# next v] by (1)\n        if <(letter (# next) of (username)) = [A]> then\n            set [# code v] to (join (# code) [01])\n        end\n        if <(letter (# next) of (username)) = [B]> then\n            set [# code v] to (join (# code) [02])\n        end\n        if <(letter (# next) of (username)) = [C]> then\n            set [# code v] to (join (# code) [03])\n        end\n        if <(letter (# next) of (username)) = [D]> then\n            set [# code v] to (join (# code) [04])\n        end\n        if <(letter (# next) of (username)) = [E]> then\n            set [# code v] to (join (# code) [05])\n        end\n        if <(letter (# next) of (username)) = [F]> then\n            set [# code v] to (join (# code) [06])\n        end\n        if <(letter (# next) of (username)) = [G]> then\n            set [# code v] to (join (# code) [07])\n        end\n        if <(letter (# next) of (username)) = [H]> then\n            set [# code v] to (join (# code) [08])\n        end\n        if <(letter (# next) of (username)) = [I]> then\n            set [# code v] to (join (# code) [09])\n        end\n        if <(letter (# next) of (username)) = [J]> then\n            set [# code v] to (join (# code) [10])\n        end\n        if <(letter (# next) of (username)) = [K]> then\n            set [# code v] to (join (# code) [11])\n        end\n        if <(letter (# next) of (username)) = [L]> then\n            set [# code v] to (join (# code) [12])\n        end\n        if <(letter (# next) of (username)) = [M]> then\n            set [# code v] to (join (# code) [13])\n        end\n        if <(letter (# next) of (username)) = [N]> then\n            set [# code v] to (join (# code) [14])\n        end\n        if <(letter (# next) of (username)) = [O]> then\n            set [# code v] to (join (# code) [15])\n        end\n        if <(letter (# next) of (username)) = [P]> then\n            set [# code v] to (join (# code) [16])\n        end\n        if <(letter (# next) of (username)) = [Q]> then\n            set [# code v] to (join (# code) [17])\n        end\n        if <(letter (# next) of (username)) = [R]> then\n            set [# code v] to (join (# code) [18])\n        end\n        if <(letter (# next) of (username)) = [S]> then\n            set [# code v] to (join (# code) [19])\n        end\n        if <(letter (# next) of (username)) = [T]> then\n            set [# code v] to (join (# code) [20])\n        end\n        if <(letter (# next) of (username)) = [U]> then\n            set [# code v] to (join (# code) [21])\n        end\n        if <(letter (# next) of (username)) = [V]> then\n            set [# code v] to (join (# code) [22])\n        end\n        if <(letter (# next) of (username)) = [W]> then\n            set [# code v] to (join (# code) [23])\n        end\n        if <(letter (# next) of (username)) = [X]> then\n            set [# code v] to (join (# code) [24])\n        end\n        if <(letter (# next) of (username)) = [Y]> then\n            set [# code v] to (join (# code) [25])\n        end\n        if <(letter (# next) of (username)) = [Z]> then\n            set [# code v] to (join (# code) [26])\n        end\n        if <(letter (# next) of (username)) = [1]> then\n            set [# code v] to (join (# code) [27])\n        end\n        if <(letter (# next) of (username)) = [2]> then\n            set [# code v] to (join (# code) [28])\n        end\n        if <(letter (# next) of (username)) = [3]> then\n            set [# code v] to (join (# code) [29])\n        end\n        if <(letter (# next) of (username)) = [4]> then\n            set [# code v] to (join (# code) [30])\n        end\n        if <(letter (# next) of (username)) = [5]> then\n            set [# code v] to (join (# code) [31])\n        end\n        if <(letter (# next) of (username)) = [6]> then\n            set [# code v] to (join (# code) [32])\n        end\n        if <(letter (# next) of (username)) = [7]> then\n            set [# code v] to (join (# code) [33])\n        end\n        if <(letter (# next) of (username)) = [8]> then\n            set [# code v] to (join (# code) [34])\n        end\n        if <(letter (# next) of (username)) = [9]> then\n            set [# code v] to (join (# code) [35])\n        end\n        if <(letter (# next) of (username)) = [0]> then\n            set [# code v] to (join (# code) [36])\n        end\n        if <(letter (# next) of (username)) = [_]> then\n            set [# code v] to (join (# code) [37])\n        end\n        if <(letter (# next) of (username)) = [-]> then\n            set [# code v] to (join (# code) [38])\n        end\n    end\nend\n\nwhen flag clicked\nset [# code v] to []\nCreate Name\nwait (0.5) seconds\nrepeat until <not <(# code) = [0]>>\n    Create Name\n    wait (0.5) seconds\nend\n\nwhen flag clicked\nforever\n    if <(Mode) = [c]> then\n        set [zoom % v] to [50]\n        if <key (left arrow v) pressed?> then\n            change [scroll x v] by (8)\n        end\n        if <key (right arrow v) pressed?> then\n            change [scroll x v] by (-8)\n        end\n        if <key (up arrow v) pressed?> then\n            change [scroll y v] by (-8)\n        end\n        if <key (down arrow v) pressed?> then\n            change [scroll y v] by (8)\n        end\n    end\nend\n\ndefine stack one\n\nwhen I receive [map1 v]\nCreate Blocks from: [-248] [105] to: [-190] [100] type: [4] jump to level: [-]\nCreate Blocks from: [11] [270] to: [19] [180] type: [5] jump to level: [-]\nCreate Blocks from: [310] [170] to: [370] [160] type: [1] jump to level: [-]\nCreate Blocks from: [380] [220] to: [390] [160] type: [2] jump to level: [-]\nCreate Blocks from: [401] [189] to: [479] [181] type: [4] jump to level: [-]\nCreate Blocks from: [490] [220] to: [500] [160] type: [2] jump to level: [-]\nCreate Blocks from: [510] [170] to: [570] [160] type: [1] jump to level: [-]\nbroadcast (map2 v)\n\nwhen I receive [map2 v]\nCreate Blocks from: [580] [220] to: [590] [160] type: [2] jump to level: [-]\nCreate Blocks from: [600] [170] to: [660] [160] type: [1] jump to level: [-]\nCreate Blocks from: [670] [220] to: [680] [160] type: [2] jump to level: [-]\nCreate Blocks from: [690] [170] to: [750] [160] type: [1] jump to level: [-]\nCreate Blocks from: [760] [220] to: [770] [160] type: [2] jump to level: [-]\nCreate Blocks from: [781] [169] to: [840] [161] type: [3] jump to level: [3]\nbroadcast (map3 v)\n\nwhen I receive [map3 v]\nCreate Blocks from: [761] [320] to: [769] [230] type: [5] jump to level: [-]\nCreate Blocks from: [401] [170] to: [479] [160] type: [1] jump to level: [-]\nCreate Blocks from: [850] [169] to: [1300] [161] type: [1] jump to level: [-]\nCreate Blocks from: [910] [189] to: [1300] [181] type: [6] jump to level: [-]\nCreate Blocks from: [850] [189] to: [900] [181] type: [4] jump to level: [-]\nCreate Blocks from: [-10] [10] to: [10] [-10] type: [0] jump to level: [-]\nCreate Blocks from: [910] [350] to: [940] [342] type: [6] jump to level: [-]\nCreate Blocks from: [1270] [350] to: [1300] [342] type: [6] jump to level: [-]\nCreate Blocks from: [1000] [350] to: [1200] [342] type: [1] jump to level: [-]\nbroadcast (map4 v)\n\nwhen I receive [map4 v]\nCreate Blocks from: [1350] [169] to: [1850] [161] type: [1] jump to level: [-]\nCreate Blocks from: [1350] [189] to: [1850] [181] type: [6] jump to level: [-]\nCreate Blocks from: [1350] [350] to: [1850] [342] type: [1] jump to level: [-]\nCreate Blocks from: [1350] [350] to: [1400] [335] type: [2] jump to level: [-]\nCreate Blocks from: [1500] [350] to: [1550] [335] type: [2] jump to level: [-]\nCreate Blocks from: [1650] [350] to: [1700] [335] type: [2] jump to level: [-]\nCreate Blocks from: [1800] [350] to: [1850] [335] type: [2] jump to level: [-]\nCreate Blocks from: [1350] [370] to: [1850] [360] type: [2] jump to level: [-]\nbroadcast (map5 v)\n\nwhen I receive [end map v]\nif <(my slot) = [1]> then\n    if <(length of (☁ Player2)) > [9]> then\n        set [lp2 v] to (☁ Player2)\n    end\n    if <(☁ Player2) = [0]> then\n        set [lp2 v] to [0]\n    end\n    if <(length of (☁ Player3)) > [9]> then\n        set [lp3 v] to (☁ Player3)\n    end\n    if <(☁ Player3) = [0]> then\n        set [lp3 v] to [0]\n    end\n    if <(length of (☁ Player4)) > [9]> then\n        set [lp4 v] to (☁ Player4)\n    end\n    if <(☁ Player4) = [0]> then\n        set [lp4 v] to [0]\n    end\nend\nif <(my slot) = [2]> then\n    if <(length of (☁ Player1)) > [9]> then\n        set [lp2 v] to (☁ Player1)\n    end\n    if <(☁ Player1) = [0]> then\n        set [lp2 v] to [0]\n    end\n    if <(length of (☁ Player3)) > [9]> then\n        set [lp3 v] to (☁ Player3)\n    end\n    if <(☁ Player3) = [0]> then\n        set [lp3 v] to [0]\n    end\n    if <(length of (☁ Player4)) > [9]> then\n        set [lp4 v] to (☁ Player4)\n    end\n    if <(☁ Player4) = [0]> then\n        set [lp4 v] to [0]\n    end\nend\nif <(my slot) = [3]> then\n    if <(length of (☁ Player1)) > [9]> then\n        set [lp2 v] to (☁ Player1)\n    end\n    if <(☁ Player1) = [0]> then\n        set [lp2 v] to [0]\n    end\n    if <(length of (☁ Player2)) > [9]> then\n        set [lp3 v] to (☁ Player2)\n    end\n    if <(☁ Player2) = [0]> then\n        set [lp3 v] to [0]\n    end\n    if <(length of (☁ Player4)) > [9]> then\n        set [lp4 v] to (☁ Player4)\n    end\n    if <(☁ Player4) = [0]> then\n        set [lp4 v] to [0]\n    end\nend\nif <(my slot) = [4]> then\n    if <(length of (☁ Player1)) > [9]> then\n        set [lp2 v] to (☁ Player1)\n    end\n    if <(☁ Player1) = [0]> then\n        set [lp2 v] to [0]\n    end\n    if <(length of (☁ Player2)) > [9]> then\n        set [lp3 v] to (☁ Player2)\n    end\n    if <(☁ Player2) = [0]> then\n        set [lp3 v] to [0]\n    end\n    if <(length of (☁ Player3)) > [9]> then\n        set [lp4 v] to (☁ Player3)\n    end\n    if <(☁ Player3) = [0]> then\n        set [lp4 v] to [0]\n    end\nend\nbroadcast (end map 2 v)\n\nwhen I receive [map5 v]\nCreate Blocks from: [2200] [264] to: [2260] [190] type: [1] jump to level: [-]\nCreate Blocks from: [1900] [350] to: [2120] [342] type: [6] jump to level: [-]\nCreate Blocks from: [2340] [350] to: [2500] [342] type: [6] jump to level: [-]\nCreate Blocks from: [1900] [189] to: [2500] [181] type: [6] jump to level: [-]\nCreate Blocks from: [2000] [270] to: [2020] [250] type: [2] jump to level: [-]\nCreate Blocks from: [2100] [270] to: [2120] [250] type: [2] jump to level: [-]\nCreate Blocks from: [2100] [270] to: [2120] [250] type: [2] jump to level: [-]\nCreate Blocks from: [2200] [264] to: [2260] [256] type: [3] jump to level: [4]\nCreate Blocks from: [2340] [270] to: [2360] [250] type: [2] jump to level: [-]\nCreate Blocks from: [2440] [270] to: [2460] [250] type: [2] jump to level: [-]\nCreate Blocks from: [2550] [190] to: [3000] [180] type: [1] jump to level: [-]\nCreate Blocks from: [2745] [200] to: [2810] [192] type: [3] jump to level: [5]\nmap 5.1\n\nset [# code v] to [0]\n\nwhen flag clicked\nforever\n    if <key (1 v) pressed?> then\n        set [fast chat v] to [01]\n        broadcast (chat v)\n    end\n    if <key (2 v) pressed?> then\n        set [fast chat v] to [02]\n        broadcast (chat v)\n    end\n    if <key (3 v) pressed?> then\n        set [fast chat v] to [03]\n        broadcast (chat v)\n    end\n    if <key (4 v) pressed?> then\n        set [fast chat v] to [04]\n        broadcast (chat v)\n    end\n    if <key (5 v) pressed?> then\n        set [fast chat v] to [05]\n        broadcast (chat v)\n    end\n    if <key (6 v) pressed?> then\n        set [fast chat v] to [06]\n        broadcast (chat v)\n    end\n    if <key (7 v) pressed?> then\n        set [fast chat v] to [07]\n        broadcast (chat v)\n    end\n    if <key (8 v) pressed?> then\n        set [fast chat v] to [08]\n        broadcast (chat v)\n    end\n    if <key (9 v) pressed?> then\n        set [fast chat v] to [09]\n        broadcast (chat v)\n    end\n    if <key (q v) pressed?> then\n        set [fast chat v] to [10]\n        broadcast (chat v)\n    end\n    if <key (w v) pressed?> then\n        set [fast chat v] to [11]\n        broadcast (chat v)\n    end\n    if <key (e v) pressed?> then\n        set [fast chat v] to [12]\n        broadcast (chat v)\n    end\n    if <key (r v) pressed?> then\n        set [fast chat v] to [13]\n        broadcast (chat v)\n    end\nend\n\nwhen I receive [chat v]\nwait (5) seconds\nset [fast chat v] to [00]\n\nwait (3) seconds\n\nset [☁ player1 v] to [0]\n\nwhen I receive [check v]\nforever\n    set [check1 v] to (☁ Player1)\n    set [check2 v] to (☁ Player2)\n    set [check3 v] to (☁ Player3)\n    set [check4 v] to (☁ Player4)\n    wait (1) seconds\n    if <(check1) = (☁ Player1)> then\n        set [check1 v] to (☁ Player1)\n        wait (1) seconds\n        if <(check1) = (☁ Player1)> then\n            set [☁ player1 v] to [0]\n            if <(found gameslot) = [no]> then\n                set [found gameslot v] to [ja]\n                set [my slot v] to [1]\n            end\n        end\n    end\n    if <(☁ Player2) = (check2)> then\n        set [check2 v] to (☁ Player2)\n        wait (1) seconds\n        if <(check2) = (☁ Player2)> then\n            set [☁ player2 v] to [0]\n            if <(found gameslot) = [no]> then\n                set [found gameslot v] to [ja]\n                set [my slot v] to [2]\n            end\n        end\n    end\n    if <(☁ Player3) = (check3)> then\n        set [check3 v] to (☁ Player3)\n        wait (1) seconds\n        if <(check3) = (☁ Player3)> then\n            set [☁ player3 v] to [0]\n            if <(found gameslot) = [no]> then\n                set [found gameslot v] to [ja]\n                set [my slot v] to [3]\n            end\n        end\n    end\n    if <(☁ Player4) = (check4)> then\n        set [check4 v] to (☁ Player4)\n        wait (1) seconds\n        if <(☁ Player4) = (check4)> then\n            set [☁ player4 v] to [0]\n            if <(found gameslot) = [no]> then\n                set [found gameslot v] to [ja]\n                set [my slot v] to [4]\n            end\n        end\n    end\nend\n\nif <not <(Mode) = [s]>> then\n\nwhen I receive [end map 2 v]\nif <(length of (lp2)) > [9]> then\n    set [last pos v] to (lp2)\n    Create Blocks from: (((-10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) - (1000))) + (Scroll x)) (((10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) + (-1000))) + (Scroll y)) to: (((10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) + (-1000))) + (Scroll x)) (((-10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) - (1000))) + (Scroll y)) type: [0] jump to level: [-]\nend\nif <(length of (lp3)) > [9]> then\n    set [last pos v] to (lp3)\n    Create Blocks from: (((-10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) - (1000))) + (Scroll x)) (((10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) + (-1000))) + (Scroll y)) to: (((10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) + (-1000))) + (Scroll x)) (((-10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) - (1000))) + (Scroll y)) type: [0] jump to level: [-]\nend\nif <(length of (lp4)) > [9]> then\n    set [last pos v] to (lp4)\n    Create Blocks from: (((-10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) - (1000))) + (Scroll x)) (((10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) + (-1000))) + (Scroll y)) to: (((10) - ((join (letter (4) of (last pos)) (join (letter (5) of (last pos)) (join (letter (6) of (last pos)) (letter (7) of (last pos))))) + (-1000))) + (Scroll x)) (((-10) - ((join (letter (8) of (last pos)) (join (letter (9) of (last pos)) (join (letter (10) of (last pos)) (letter (11) of (last pos))))) - (1000))) + (Scroll y)) type: [0] jump to level: [-]\nend\nswitch costume to (bühnenbild1 v)\npen up\ngo to x: (-240) y: (-180)\nset pen color to (#ffffff)\nset pen size to (13)\npen down\ngo to x: (240) y: (-180)\ngo to x: (240) y: (180)\ngo to x: (-240) y: (180)\ngo to x: (-240) y: (-180)\npen up\nif <(found gameslot) = [ja]> then\n    switch costume to ((my slot) + (2))\n    point in direction (90)\n    go to x: (-164) y: (-155)\n    stamp\nelse\n    point in direction (90)\n    go to x: (-164) y: (-155)\n    change [roland v] by (20)\n    switch costume to (kostüm1 v)\n    stamp\n    go to x: (-84) y: (-153)\n    point in direction (Roland)\n    switch costume to (bühnenbild1 v)\n    stamp\nend\n\nwhen flag clicked\nset [mode v] to [s]\nforever\n    wait until <(Mode) = [a]>\n    repeat (22)\n        change [change gates v] by (-0.1)\n        change [zoom % v] by (change gates)\n    end\n    repeat (22)\n        change [change gates v] by (0.1)\n        change [zoom % v] by (change gates)\n    end\n    wait until <(Mode) = [s]>\n    repeat (22)\n        change [change gates v] by (0.1)\n        change [zoom % v] by (change gates)\n    end\n    repeat (22)\n        change [change gates v] by (-0.1)\n        change [zoom % v] by (change gates)\n    end\nend\n\nwhen flag clicked\nset [mode v] to [s]\nforever\n    wait until <(Mode) = [a]>\n    wait until <<key (space v) pressed?> or <(Spectade) = [no]>>\n    set [mode v] to [s]\n    set [spectade v] to [no]\nend\n\nwhen flag clicked\nforever\n    set [touch ground v] to [no]\n    wait (0.51) seconds\nend\n\nforever\n\nwhen flag clicked\nforever\n    set [maus x v] to (((Scroll x) + (mouse x)) + (screen x))\n    set [maus y v] to ((screen y) + ((Scroll y) + (mouse y)))\nend\n\ndefine map 5.1\nset [hn v] to [0]\nrepeat ((length of [hoch v]) - (1))\n    change [hn v] by (1)\n    Create Blocks from: (((2780) + (item (hn) of [hoch v])) - (30)) ((180) + ((80) * (hn))) to: (((2780) + (item (hn) of [hoch v])) + (30)) (((180) + ((80) * (hn))) - (10)) type: [1] jump to level: [-]\nend\nchange [hn v] by (1)\nCreate Blocks from: (((2780) + (item (hn) of [hoch v])) - (30)) ((180) + ((80) * (hn))) to: (((2780) + (item (hn) of [hoch v])) + (30)) (((180) + ((80) * (hn))) - (10)) type: [6] jump to level: [-]\nset [hn v] to [0]\nrepeat ((length of [hoch 2 v]) - (1))\n    change [hn v] by (1)\n    Create Blocks from: (((2780) + (item (hn) of [hoch 2 v])) - (30)) ((180) + ((80) * (hn))) to: (((2780) + (item (hn) of [hoch 2 v])) + (30)) (((180) + ((80) * (hn))) - (10)) type: [1] jump to level: [-]\nend\nchange [hn v] by (1)\nCreate Blocks from: (((2780) + (item (hn) of [hoch 2 v])) - (30)) ((180) + ((80) * (hn))) to: (((2780) + (item (hn) of [hoch 2 v])) + (30)) (((180) + ((80) * (hn))) - (10)) type: [6] jump to level: [-]\nCreate Blocks from: (((2780) + (-132)) - (30)) ((300) + ((80) * (hn))) to: (((2780) + (147)) + (30)) (((300) + ((80) * (hn))) - (10)) type: [1] jump to level: [-]\nbroadcast (end map v)\n\nchange [hn v] by (1)\n\nwhen flag clicked\nforever\n    change [stoppuhr v] by (0.1)\n    wait (0.05) seconds\nend\n\nwhen flag clicked\n\nstop [other scripts in sprite v]\nforever\n    set x to (0)\n    reset timer\n    show\n    switch costume to (kostüm5 v)\n    set y to (0)\n    go to [front v] layer\n    point in direction (90)\nend\n\n@Text Engine\n\nwhen flag clicked\nset [lp2 v] to [0]\nset [lp3 v] to [0]\nrepeat (10)\n    set [id name p2 v] to [0]\n    set [id name p3 v] to [0]\nend\nhide\nwait (3) seconds\nwait until <(found gameslot) = [ja]>\nswitch costume to (kostüm1 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm2 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm3 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm4 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm5 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm6 v)\ncreate clone of (_myself_ v)\nswitch costume to (kostüm7 v)\ncreate clone of (_myself_ v)\nforever\n    set size to (70) %\n    show\n    switch costume to (kostüm46 v)\n    go to x: (159) y: (17)\n    set [ghost v] effect to (20)\nend\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nif <(costume [number v]) = [1]> then\n    show\n    change [id name p2 v] by (1)\n    set [my id v] to (Id name p2)\n    if <(my ID) = [31]> then\n        delete this clone\n    end\n    create clone of (_myself_ v)\n    forever\n        hide\n        set [ghost v] effect to (100)\n        if <(length of (lp2)) > ((((my ID) - (1)) * (2)) + (10))> then\n            show\n        end\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * (((((0) - ((join (letter (4) of (lp2)) (join (letter (5) of (lp2)) (join (letter (6) of (lp2)) (letter (7) of (lp2))))) - (1000))) + (Scroll x)) + (screen x)) + ((((my ID) - (1)) - (((length of (☁ Player2)) - (10)) / (4))) * (8)))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp2)) (join (letter (9) of (lp2)) (join (letter (10) of (lp2)) (letter (11) of (lp2))))) - (1000))) + (Scroll y)) + (screen y)) + (20)))\n        switch costume to (join (letter ((11) + ((((my ID) - (1)) * (2)) + (1))) of (lp2)) (letter ((11) + ((((my ID) - (1)) * (2)) + (2))) of (lp2)))\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    show\n    go to [front v] layer\n    forever\n        hide\n        set [ghost v] effect to (100)\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp2)) (join (letter (5) of (lp2)) (join (letter (6) of (lp2)) (letter (7) of (lp2))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp2)) (join (letter (9) of (lp2)) (join (letter (10) of (lp2)) (letter (11) of (lp2))))) - (1000))) + (Scroll y)) + (screen y)) + (40)))\n        if <(length of (lp2)) > [2]> then\n            show\n            switch costume to ((join (letter (2) of (lp2)) (letter (3) of (lp2))) + (39))\n        end\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [52]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [3]> then\n    show\n    go to [front v] layer\n    forever\n        hide\n        show\n        set [ghost v] effect to (100)\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * (screen x)) y: (((Zoom %) / (100)) * ((screen y) + (20)))\n        switch costume to ((fast chat) + (39))\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [5]> then\n    show\n    go to [front v] layer\n    forever\n        hide\n        set [ghost v] effect to (100)\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp3)) (join (letter (5) of (lp3)) (join (letter (6) of (lp3)) (letter (7) of (lp3))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp3)) (join (letter (9) of (lp3)) (join (letter (10) of (lp3)) (letter (11) of (lp3))))) - (1000))) + (Scroll y)) + (screen y)) + (40)))\n        if <(length of (lp3)) > [2]> then\n            show\n            switch costume to ((join (letter (2) of (lp3)) (letter (3) of (lp3))) + (39))\n        end\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [4]> then\n    show\n    change [id name p3 v] by (1)\n    set [my id v] to (id name p3)\n    if <(my ID) = [31]> then\n        delete this clone\n    end\n    create clone of (_myself_ v)\n    forever\n        hide\n        set [ghost v] effect to (100)\n        if <(length of (lp3)) > ((((my ID) - (1)) * (2)) + (10))> then\n            show\n        end\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * (((((0) - ((join (letter (4) of (lp3)) (join (letter (5) of (lp3)) (join (letter (6) of (lp3)) (letter (7) of (lp3))))) - (1000))) + (Scroll x)) + (screen x)) + ((((my ID) - (1)) - (((length of (lp3)) - (10)) / (4))) * (8)))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp3)) (join (letter (9) of (lp3)) (join (letter (10) of (lp3)) (letter (11) of (lp3))))) - (1000))) + (Scroll y)) + (screen y)) + (20)))\n        switch costume to (join (letter ((11) + ((((my ID) - (1)) * (2)) + (1))) of (lp3)) (letter ((11) + ((((my ID) - (1)) * (2)) + (2))) of (lp3)))\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [6]> then\n    show\n    go to [front v] layer\n    forever\n        hide\n        set [ghost v] effect to (100)\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp4)) (join (letter (5) of (lp4)) (join (letter (6) of (lp4)) (letter (7) of (lp4))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp4)) (join (letter (9) of (lp4)) (join (letter (10) of (lp4)) (letter (11) of (lp4))))) - (1000))) + (Scroll y)) + (screen y)) + (40)))\n        if <(length of (lp4)) > [2]> then\n            show\n            switch costume to ((join (letter (2) of (lp4)) (letter (3) of (lp4))) + (39))\n        end\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [7]> then\n    show\n    change [id name p4 v] by (1)\n    set [my id v] to (id name p4)\n    if <(my ID) = [31]> then\n        delete this clone\n    end\n    create clone of (_myself_ v)\n    forever\n        hide\n        set [ghost v] effect to (100)\n        if <(length of (lp4)) > ((((my ID) - (1)) * (2)) + (10))> then\n            show\n        end\n        switch costume to (kostüm9 v)\n        set size to ((70) * ((Zoom %) / (100))) %\n        go to x: (((Zoom %) / (100)) * (((((0) - ((join (letter (4) of (lp4)) (join (letter (5) of (lp4)) (join (letter (6) of (lp4)) (letter (7) of (lp4))))) - (1000))) + (Scroll x)) + (screen x)) + ((((my ID) - (1)) - (((length of (lp4)) - (10)) / (4))) * (8)))) y: (((Zoom %) / (100)) * (((((0) - ((join (letter (8) of (lp4)) (join (letter (9) of (lp4)) (join (letter (10) of (lp4)) (letter (11) of (lp4))))) - (1000))) + (Scroll y)) + (screen y)) + (20)))\n        switch costume to (join (letter ((11) + ((((my ID) - (1)) * (2)) + (1))) of (lp4)) (letter ((11) + ((((my ID) - (1)) * (2)) + (2))) of (lp4)))\n        set [ghost v] effect to (0)\n        if <(costume [number v]) > [53]> then\n            hide\n        end\n    end\nend\n\nif <(my slot) = [1]> then\n    if <(length of [Apfel]) > [50]> then\n        show\n    end\nelse\n    \n        show\n    end\nend\n\n\n\ndelete all of [hoch v]\nrepeat (10)\n    add (pick random (-250) to (-100)) to [hoch v]\nend\n\ndelete all of [hoch 2 v]\nrepeat (10)\n    add (pick random (100) to (250)) to [hoch 2 v]\nend\n\n@Banner\n\nwhen flag clicked\nrepeat (10)\n    hide\nend\nwait until <(found gameslot) = [Ja]>\nswitch costume to (kostüm5 v)\ncreate clone of (_myself_ v)\nforever\n    set [online v] to [0]\n    if <not <(☁ Player1) = [0]>> then\n        change [online v] by (1)\n    end\n    if <not <(☁ Player2) = [0]>> then\n        change [online v] by (1)\n    end\n    if <not <(☁ Player3) = [0]>> then\n        change [online v] by (1)\n    end\n    if <not <(☁ Player4) = [0]>> then\n        change [online v] by (1)\n    end\n    switch costume to (Online)\n    show\n    go to x: (-262) y: (24)\nend\n\nswitch costume to (kostüm2 v)\n\nwhen I start as a clone\nhide\nset [lp2 v] to [0]\nset [lp3 v] to [0]\nnext costume\nif <(costume [number v]) = [1]> then\n    delete this clone\nend\ncreate clone of (_myself_ v)\nif <(costume [number v]) = [5]> then\n    forever\n        go to x: (screen x) y: (screen y)\n        set [ghost v] effect to (((0) - (distance to [player 2 pos v])) + (220))\n        point towards (player 2 pos v)\n        move ((distance to [player 2 pos v]) / (1.3)) steps\n        move (+arrows) steps\n        hide\n        if <(length of (lp2)) > [10]> then\n            show\n        end\n        if <(y position) < [-100]> then\n            set y to (-100)\n        end\n    end\nend\nif <(costume [number v]) = [6]> then\n    forever\n        go to x: (screen x) y: (screen y)\n        set [ghost v] effect to (((0) - (distance to [player 3 pos v])) + (220))\n        point towards (player 3 pos v)\n        move ((distance to [player 3 pos v]) / (1.3)) steps\n        move (+arrows) steps\n        hide\n        if <(length of (lp3)) > [10]> then\n            show\n        end\n        if <(y position) < [-100]> then\n            set y to (-100)\n        end\n    end\nend\nif <(costume [number v]) = [7]> then\n    forever\n        go to x: (screen x) y: (screen y)\n        set [ghost v] effect to (((0) - (distance to [player 4 pos v])) + (220))\n        point towards (player 4 pos v)\n        move ((distance to [player 4 pos v]) / (1.3)) steps\n        move (+arrows) steps\n        hide\n        if <(length of (lp4)) > [10]> then\n            show\n        end\n        if <(y position) < [-100]> then\n            set y to (-100)\n        end\n    end\nend\n\nwhen flag clicked\nset [+arrows v] to [0]\nset [change arrows v] to [0]\nforever\n    repeat (20)\n        change [change arrows v] by (-0.05)\n        change [+arrows v] by (Change arrows)\n    end\n    repeat (20)\n        change [change arrows v] by (0.05)\n        change [+arrows v] by (Change arrows)\n    end\n    repeat (20)\n        change [change arrows v] by (0.05)\n        change [+arrows v] by (Change arrows)\n    end\n    repeat (20)\n        change [change arrows v] by (-0.05)\n        change [+arrows v] by (Change arrows)\n    end\nend\n\n@Player 2 Pos\n\nwhen flag clicked\nforever\n    if <(length of (lp2)) > [2]> then\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp2)) (join (letter (5) of (lp2)) (join (letter (6) of (lp2)) (letter (7) of (lp2))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((0) - ((join (letter (8) of (lp2)) (join (letter (9) of (lp2)) (join (letter (10) of (lp2)) (letter (11) of (lp2))))) - (1000))) + (Scroll y)) + (screen y)))\n    end\n    hide\nend\n\n@Player 3 Pos\n\nwhen flag clicked\nforever\n    if <(length of (lp3)) > [2]> then\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp3)) (join (letter (5) of (lp3)) (join (letter (6) of (lp3)) (letter (7) of (lp3))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((0) - ((join (letter (8) of (lp3)) (join (letter (9) of (lp3)) (join (letter (10) of (lp3)) (letter (11) of (lp3))))) - (1000))) + (Scroll y)) + (screen y)))\n    end\n    hide\nend\n\n@Player 4 Pos\n\nwhen flag clicked\nforever\n    if <(length of (lp4)) > [2]> then\n        go to x: (((Zoom %) / (100)) * ((((0) - ((join (letter (4) of (lp4)) (join (letter (5) of (lp4)) (join (letter (6) of (lp4)) (letter (7) of (lp4))))) - (1000))) + (Scroll x)) + (screen x))) y: (((Zoom %) / (100)) * ((((0) - ((join (letter (8) of (lp4)) (join (letter (9) of (lp4)) (join (letter (10) of (lp4)) (letter (11) of (lp4))))) - (1000))) + (Scroll y)) + (screen y)))\n    end\n    hide\nend\n\n@Arrows\n\nwhen flag clicked\ngo to x: (146) y: (-131)\nswitch costume to (kostüm1 v)\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\nset [toch jump v] to [no]\nset [spectade v] to [no]\nshow\nnext costume\nnext costume\nif <(costume [number v]) = [13]> then\n    delete this clone\nend\ncreate clone of (_myself_ v)\nif <(costume [number v]) = [11]> then\n    switch costume to (kostüm12 v)\nend\nforever\n    set [ghost v] effect to (20)\n    if <(touch ground) = [no]> then\n        if <(Spectade) = [no]> then\n            if <(costume [number v]) > [10]> then\n                set [ghost v] effect to (60)\n            end\n        end\n    end\n    if <(costume [number v]) = [9]> then\n        if <(Spectade) = [no]> then\n            set [ghost v] effect to (60)\n        end\n    end\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        next costume\n        repeat until <not <mouse down?>>\n            if <(Spectade) = [no]> then\n                if <(costume [number v]) = [4]> then\n                    change [x change v] by (0.5)\n                end\n                if <(costume [number v]) = [6]> then\n                    set [toch jump v] to [ja]\n                end\n                if <(costume [number v]) = [8]> then\n                    change [x change v] by (-0.5)\n                end\n            end\n            if <(Spectade) = [ja]> then\n                if <(costume [number v]) = [4]> then\n                    change [x change v] by (1)\n                end\n                if <(costume [number v]) = [6]> then\n                    change [y change v] by (-1)\n                end\n                if <(costume [number v]) = [8]> then\n                    change [x change v] by (-1)\n                end\n                if <(costume [number v]) = [10]> then\n                    change [y change v] by (1)\n                end\n            end\n        end\n        if <(costume [number v]) = [12]> then\n            switch costume to (kostüm12 v)\n            set [spectade v] to [no]\n        else\n            if <(costume [number v]) = [14]> then\n                if <(touch ground) = [ja]> then\n                    switch costume to (kostüm13 v)\n                    set [spectade v] to [ja]\n                end\n                if <(touch ground) = [no]> then\n                    switch costume to ((costume [number v]) - (1))\n                end\n            else\n                switch costume to ((costume [number v]) - (1))\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(costume [number v]) = [5]> then\n        set [toch jump v] to [no]\n    end\nend\n\nwhen I start as a clone\nforever\n    if <key (any v) pressed?> then\n        repeat (20)\n            change size by (-5)\n        end\n        delete this clone\n    end\nend\n\nset [checkpoint v] to [5]\n\n@Figur1\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nreset timer\nshow\ngo to [front v] layer\n\n@Logo\n\ndefine zoom size to (val)\nset [size change v] to (((size change) * (0.8)) + (((val) - (size)) * (0.1)))\n\nwhen flag clicked\nbroadcast (go to front layer v)\nset x to (0)\npoint in direction (90)\nset y to (0)\nswitch costume to (54464650_32x32 v)\nshow\ncreate clone of (_myself_ v)\nset size to (0) %\nforever\n    point in direction ((size change) + (90))\n    change size by (size change)\n    change size by (size change 2)\n    if <(size change 2) < [0]> then\n        turn right (((0) - ((size change 2) * (size change 2))) / (3)) degrees\n    end\nend\n\nwhen I start as a clone\nset x to (0)\npoint in direction (90)\nset y to (0)\nswitch costume to (kostüm1 v)\nset size to (100) %\n\nwhen flag clicked\nset [size change 2 v] to [0]\nrepeat (70)\n    zoom size to [150]\nend\nset [size change 2 v] to [10]\nrepeat (30)\n    change [size change 2 v] by (-1)\nend\nbroadcast (hide logo v)\nhide\n\nwhen I receive [hide logo v]\nif <(costume [number v]) = [2]> then\n    switch costume to (kostüm1 v)\n    repeat (7)\n        next costume\n    end\nend\n\nwhen I receive [go to front layer v]\nforever\n    go to [front v] layer\n    if <(costume [number v]) > [1]> then\n        go [backward v] (1) layers\n    end\nend\n\n
--- Pen Platformer ---\n\nIf your game is connecting for over 10sec, the game is full. Max. 4 Players in the game at the same time.\n\nNew: spectator mode. Press Down arrow to spectate and press space to stop spectating.\n\nThis game has a multiplayer function, so you can play with someone else you don’t know. You can move with the arrow keys. You are the blue square and other player are also blue squares.\nYou can open gates if you jump on the dark grey squares. Red squares are bad. If you touch them you will die and respawn at the blue square. You will respawn at the last blue square you touched...\nYellow squares make you jump very high. If somebody else is playing, a blue arrow will point at him if you can't see him.\n\nHave fun! :D\n\n--- Updates ---\n\nv1.1 27.3.2020\n-multiplayer added\n\nv1.2 2.4.2020:\n-bigger map\n\nv1.3 3.4.2020\n-3. player slot\n\nv1.4 4.4.2020\n-4. player slot\n\nv1.5 5.4.2020\n-new BG\n\nv1.6 5.4.2020\n-new music theme\n\nv1.7 5.4.2020\n-Spectator mode function\n\nv1.8 5.4.2020\n-Mobile friendly\n\nv1.9 10.4.2020\n-bigger map\n\nv1.9.5 10.4.2020\n-Title pic.\n\nv1.9.6 24.5.2020\n-logo added\n\n--- special thanks ---\n\nthank you @ShrewdHampster for giving me good ideas\n\nthank you @GreenBeanRevolution for finding bugs in the game\n\nthank you for looking at this game