Terraformer - a Survival Platformer #games

Instructions: WASD, arrow keys | (r) to restart\nwatch out for the lasers\nfullscreen not recommended\nTry pressing (r) if it lags, it might help\nLOVE AND FAVE or else I steal your Donut you wanted to eat right now and give it to someone who faved >:D

@Stage\n\nwhen flag clicked\nforever\n    play sound (pick random (1) to (6)) until done\nend\n\nwhen flag clicked\nswitch backdrop to (草原の背景昼 v)\nwait until <(stge) = [23]>\nswitch backdrop to (背景2 v)\nwait until <(stge) = [25]>\nswitch backdrop to (草原の背景昼 v)\nwait until <(stge) = [30]>\nswitch backdrop to (背景2 v)\nwait until <(stge) = [32]>\nswitch backdrop to (背景3 v)\nwait until <(stge) = [36]>\nswitch backdrop to (背景4 v)\nwait until <(stge) = [37]>\nswitch backdrop to (草原の背景夜 v)\nwait until <(stge) = [42]>\nswitch backdrop to (コスチューム2 v)\nwait until <(stge) = [47]>\nswitch backdrop to (コスチューム3 v)\nwait until <(stge) = [48]>\nswitch backdrop to (草原の背景明け方 v)\nwait until <(stge) = [51]>\nswitch backdrop to (草原の背景朝 v)\n\n@スプライト1\n\n@platformer\n\nwhen flag clicked\nset [stge v] to [1]\n初期\nforever\n    if <touching (見ず v)?> then\n        platfomer code [0.7] [1] [-0.01] [7]\n    else\n        platfomer code [1] [14] [-1] [7]\n    end\n    if <<(♥) = [1]> and <(★) = [1]>> then\n        change [color v] effect by (2)\n    else\n        clear graphic effects\n        if <<touching (とげ v)?> or <<<(JUMP) = [0]> and <touching (敵 v)?>> or <<touching (toge v)?> or <<(y position) < [-170]> and <not >>>>> then\n            start sound [Crunch v]\n            初期\n            broadcast (ぷらいやーしぼう v)\n        end\n    end\n    if <not <<< or <(stge) = [28]>> or <(stge) = [24]>> or <<(stge) = [23]> or <(stge) = [22]>>>> then\n        if <[235] < (x position)> then\n            broadcast (NEXT v)\n            start sound [Rip v]\n            change [stge v] by (1)\n            set [死んだか？ v] to [0]\n            初期\n        end\n    else\n        if <<< or <(stge) = [35]>> or <(stge) = [28]>> or <<(stge) = [23]> or <(stge) = [22]>>> then\n            if <[180] < (y position)> then\n                broadcast (NEXT v)\n                start sound [Rip v]\n                change [stge v] by (1)\n                set [死んだか？ v] to [0]\n                初期\n            end\n        else\n            if < or <(stge) = [24]>> then\n                if <(y position) < [-170]> then\n                    broadcast (NEXT v)\n                    start sound [Rip v]\n                    change [stge v] by (1)\n                    set [死んだか？ v] to [0]\n                    初期\n                end\n            end\n        end\n    end\nend\n\ndefine platfomer code (x) (y) (y) (x)\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n    change [x v] by (x)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [x v] by ((x) * (-1))\n    point in direction (-90)\nend\nset [x v] to ((X) * (0.9))\nchange x by (X)\nchange [y v] by (y)\nchange y by (Y)\nif <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n    set [jump v] to [0]\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\n地面調整 [-1]\nif <touching (見ず v)?> then\n地面調整 [1]\nif <touching (見ず v)?> then\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n        set [y v] to (y)\n    end\nend\nif <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n    地面調整 [1]\n    if <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n        地面調整 [1]\n        if <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n            地面調整 [1]\n            if <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n                地面調整 [1]\n                if <<<touching (動く地面2 v)?> or <touching (動く地面 v)?>> or <touching (地面 v)?>> then\n                    change x by ((X) * (-1))\n                    地面調整 [-4]\n                    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                        start sound [ジャンプの着地 v]\n                        set [y v] to (y)\n                        set [x v] to ((x) - (<[0] < (X)> * (14)))\n                    else\n                        set [x v] to [0]\n                    end\n                end\n            end\n        end\n    end\nend\nif <touching (ばね v)?> then\n    start sound [jump-anime1 v]\n    set [y v] to ((y) + (10))\nend\n\ndefine 初期\nif < or <<(stge) = [39]> or <(stge) = [41]>>> then\n    go to x: (-201) y: (150)\nelse\n    go to x: (-201) y: (66)\nend\nset [x v] to [0]\nset [y v] to [0]\n\ndefine 地面調整 (￥な)\nchange y by (￥な)\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <<(♥) = [1]> and <(★) = [1]>> then\n    if <(した確認) = [1]> then\n        switch costume to (コスチューム8 v)\n    else\n        switch costume to (コスチューム6 v)\n    end\nelse\n    if <(した確認) = [1]> then\n        switch costume to (コスチューム5 v)\n    else\n        switch costume to (コスチューム2 v)\n    end\nend\nrepeat (5)\n    change [ghost v] effect by (20)\nend\ndelete this clone\n\nwhen flag clicked\nset [jump v] to [0]\nset [した確認 v] to [0]\nforever\n    if <<(♥) = [1]> and <(★) = [1]>> then\n        if <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>> then\n            set [した確認 v] to [1]\n            switch costume to (コスチューム7 v)\n        else\n            set [した確認 v] to [0]\n            switch costume to (コスチューム1 v)\n        end\n    else\n        if <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>> then\n            set [した確認 v] to [1]\n            switch costume to (コスチューム4 v)\n        else\n            set [した確認 v] to [0]\n            switch costume to (コスチューム3 v)\n        end\n    end\nend\n\nwhen flag clicked\nset [死んだか？ v] to [0]\nforever\n    if <<(死んだか？) = [0]> and <<(JUMP) = [1]> and <touching (敵 v)?>>> then\n        broadcast (死んだんじゃないの～ v)\n        set [y v] to [10]\n        set [死んだか？ v] to [1]\n    else\n        \n    end\nend\n\nwhen flag clicked\nwait until <(stge) = [29]>\nrepeat (50)\n    change x by (((-100) - (x position)) / (5))\n    change y by (((30) - (y position)) / (5))\nend\n\nwhen I receive [♥と★ v]\n\nwhen flag clicked\nwait until <<(stge) = [31]> and <touching (見ず v)?>>\nstart sound [水1 v]\nwait until <<(stge) = [44]> and <touching (見ず v)?>>\nstart sound [水1 v]\n\n@地面\n\nwhen flag clicked\nforever\n    switch costume to (stge)\nend\n\n@見ず\n\nwhen flag clicked\nforever\n    switch costume to (stge)\nend\n\n@とげ\n\nwhen flag clicked\nforever\n    switch costume to (stge)\nend\n\nwhen flag clicked\nset [clone制限 v] to [0]\nforever\n    if <<(stge) = [25]> or <(stge) = [7]>> then\n        set y to (([sin v] of ((timer) * (300)) ) * (5))\n    else\n        if <(stge) = [16]> then\n            go to x: (0) y: (60)\n            turn left (3) degrees\n        else\n            if <(stge) = [17]> then\n                go to x: (-60) y: (60)\n                turn left (5) degrees\n                if <(clone制限) = [0]> then\n                    kuro-n\n                    set [clone制限 v] to [1]\n                end\n            else\n                if <(stge) = [27]> then\n                    repeat (50)\n                        change y by (((0) - (y position)) / (9))\n                    end\n                    wait (pick random (0.01) to (10)) seconds\n                    repeat (50)\n                        change y by (((-200) - (y position)) / (9))\n                    end\n                    wait (pick random (0.01) to (10)) seconds\n                else\n                    if <(stge) = [43]> then\n                        broadcast (uu v)\n                        go to x: (0) y: (-150)\n                        repeat (50)\n                            change y by (((0) - (y position)) / (5))\n                        end\n                        wait (1) seconds\n                        broadcast (gyaaaaa v)\n                        repeat (50)\n                            change y by (((-100) - (y position)) / (5))\n                        end\n                        wait (1) seconds\n                    else\n                        if <(stge) = [50]> then\n                            go to x: (pick random (-240) to (240)) y: (150)\n                            create clone of (_myself_ v)\n                            wait (pick random (0.0) to (1)) seconds\n                        else\n                            \n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine kuro-n\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(stge) = [17]> then\n    switch costume to (トゲ2 v)\n    go to x: (120) y: (60)\n    forever\n        turn left (5) degrees\n    end\nend\n\nwhen I receive [next v]\ndelete this clone\n\nwhen flag clicked\n\nwhen I start as a clone\nif <(stge) = [50]> then\n    set [toge y v] to [0]\n    repeat until <<touching (platformer v)?> or < or <touching (地面 v)?>>>\n        change [toge y v] by (-1)\n        change y by (toge Y)\n    end\n    delete this clone\nend\n\nset [toge y v] to [0]\n\n@ばね\n\ndefine bane\nswitch costume to (コスチューム1  v)\nrepeat (6)\n    next costume\nend\nrepeat (6)\n    switch costume to ((costume [number v]) - (1))\nend\nwait until <not <touching (platformer v)?>>\n\nwhen flag clicked\nforever\n    if <touching (platformer v)?> then\n        bane\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(stge) = [10]> or <<(stge) = [11]> or <<(stge) = [38]> or <(stge) = [40]>>>> then\n        show\n        if <(stge) = [10]> then\n            go to x: (-90) y: (-44)\n        else\n            if <(stge) = [11]> then\n                go to x: (-130) y: (-44)\n            else\n                if <(stge) = [38]> then\n                    go to x: (-105) y: (-44)\n                else\n                    if <(stge) = [40]> then\n                        go to x: (10) y: (-44)\n                    end\n                end\n            end\n        end\n    else\n        hide\n    end\nend\n\n@オブジェクト\n\nwhen flag clicked\nforever\n    if <<<(stge) = [17]> or > or <(stge) = [16]>> then\n        show\n        if <(stge) = [16]> then\n            switch costume to (コスチューム1 v)\n        else\n            if <(stge) = [17]> then\n                switch costume to (コスチューム2 v)\n            else\n                if <(stge) = [41]> then\n                    switch costume to (コスチューム3 v)\n                end\n            end\n        end\n    else\n        hide\n    end\nend\n\n@敵\n\nwhen flag clicked\nhide\nくろーん [18]\nくろーん [19]\nくろーん [20]\nくろーん [24]\nくろーん [28]\nくろーん [34]\nくろーん [44]\n\ndefine くろーん (wait)\nwait until <(stge) = (wait)>\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nswitch costume to (コスチューム1 v)\nしょき\nshow\nforever\n    if <([x position v] of [platformer v]) < (x position)> then\n        point in direction (-90)\n        change [x v] by (-0.8)\n    end\n    if <(x position) < ([x position v] of [platformer v])> then\n        point in direction (90)\n        change [x v] by (0.8)\n    end\n    set [x v] to ((x) * (0.8))\n    change x by (x)\n    if <touching (見ず v)?> then\n        change [y v] by (-0.01)\n    else\n        change [y v] by (-1)\n    end\n    change y by (y)\n    if <touching (地面 v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n        if <(pick random (1) to (100)) = [30]> then\n            if <not <touching (見ず v)?>> then\n                set [y v] to [13]\n            end\n        end\n    end\n    if <(pick random (1) to (50)) = [30]> then\n        if <touching (見ず v)?> then\n            set [y v] to [1]\n        end\n    end\n    if <touching (地面 v)?> then\n        change x by ((x) * (-1))\n        if <not <touching (見ず v)?>> then\n            if <(y position) < ([y position v] of [platformer v])> then\n                set [y v] to [9]\n                if <(x position) < ([x position v] of [platformer v])> then\n                    set [x v] to [-7]\n                else\n                    set [x v] to [7]\n                end\n            else\n                set [x v] to [0]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\nend\n\ndefine しょき\nswitch costume to (コスチューム1 v)\nif <(stge) = [40]> then\n    go to x: (220) y: (150)\nelse\n    if <(stge) = [44]> then\n        if <(pick random (2) to (1)) = [1]> then\n            go to x: (0) y: (-10)\n        else\n            go to x: (220) y: (0)\n        end\n    else\n        go to x: (220) y: (0)\n    end\nend\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [死んだんじゃないの～ v]\nstart sound [つぶれる v]\nswitch costume to (コスチューム1 v)\nrepeat (4)\n    next costume\nend\ndelete this clone\n\nwhen I receive [next v]\ndelete this clone\n\nwhen I receive [ぷらいやーしぼう v]\nしょき\n\n@動く地面\n\nwhen flag clicked\nhide\nwait until <(stge) = [26]>\nshow\ngo to x: (240) y: (0)\nrepeat until <(stge) = [27]>\n    repeat (50)\n        change x by (((0) - (x position)) / (5))\n    end\n    wait (pick random (0.01) to (10)) seconds\n    repeat (50)\n        change x by (((240) - (x position)) / (5))\n    end\n    wait (pick random (0.01) to (10)) seconds\nend\n\ngo to x: (240) y: (y position)\n\nwhen flag clicked\nwait until <(stge) = [26]>\nrepeat until <(stge) = [27]>\n    point in direction ((90) + (([cos v] of ((timer) * (300)) ) * (20)))\nend\nhide\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\n@動く地面2\n\nwhen flag clicked\nhide\nwait until <(stge) = [28]>\nshow\ngo to x: (0) y: (0)\nrepeat until <(stge) = [29]>\n    set [y v] to [0]\n    repeat (10)\n        change [y v] by (1)\n        change y by (y)\n    end\n    wait (pick random (0.01) to (5)) seconds\n    set [yy v] to [0]\n    repeat (10)\n        change [yy v] by (-1)\n        change y by (Yy)\n    end\n    wait (pick random (0.01) to (5)) seconds\nend\n\ngo to x: (240) y: (y position)\n\nwhen flag clicked\nwait until <(stge) = [28]>\nrepeat until <(stge) = [29]>\n    point in direction ((90) + (([cos v] of ((timer) * (300)) ) * (20)))\nend\nhide\n\nwhen I start as a clone\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\n@samune\n\nwhen flag clicked\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@Detector\n\nwhen flag clicked\nhide\nset [★ v] to [0]\nset [♥ v] to [0]\nset [どっち v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [どっち v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(♥) = [1]> and <(★) = [1]>>\nbroadcast (♥と★ v)\n\nwhen I start as a clone\nif <(どっち) = [0]> then\n    go to x: (-15) y: (0)\n    set [♥ v] to [0]\n    switch costume to (love v)\n    forever\n        set [♥? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [♥ v] to [1]\n        end\n    end\nend\nif <(どっち) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [★ v] to [0]\n    forever\n        set [星? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [★ v] to [1]\n        end\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nrepeat until <<(♥) = [1]> and <(★) = [1]>>\n    hide\n    go to x: (0) y: (-150)\n    show\n    repeat (50)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait (pick random (1) to (10)) seconds\n    repeat (50)\n        change y by (((-150) - (y position)) / (5))\n    end\n    hide\nend\nhide\n\nglide (1) secs to x: (0) y: (-150)\n\n@ｊく\n\n@toge\n\nwhen flag clicked\nhide\nwait until <(stge) = [43]>\nshow\ngo to x: (0) y: (0)\nwait until <(stge) = [44]>\nhide\n\nwhen I receive [gyaaaaa v]\nrepeat (50)\n    change y by (((0) - (y position)) / (5))\nend\n\nwhen I receive [uu v]\nrepeat (50)\n    change y by (((-100) - (y position)) / (15))\nend\n\n@usugurai\n\nwhen flag clicked\nforever\n    if < (backdrop [name v]) contains [コスチューム]?> then\n        show\n        if <(stge) = [47]> then\n            switch costume to (コスチューム2 v)\n        else\n            switch costume to (コスチューム1 v)\n        end\n    else\n        hide\n    end\nend\n\n