Pixel Platformer

Instructions: 日本語は下にあるかも。宣伝はokなので\n傾向8位ありがとうふ！さらなる上へ\n\nEnglish\n【How to play】\nOperate left, right, up and down.\nPlease note that there is a slight lag.\nI am grateful to everyone who always plays.\n\n日本語\n【遊び方】\n左右上下で操作します。\n少しラグがありますがご了承ください。\nいつも遊んでくれてる皆様に感謝です。

@Stage\n\nwhen flag clicked\nforever\n    play sound [Dark Cave Music - Trickster Imps v] until done\nend\n\n@Sprite1\n\nwhen flag clicked\nset [ghost v] effect to (0)\nswitch costume to (costume v)\nshow\ngo to x: (-180) y: (-127)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <key (right arrow v) pressed?> then\n        change [x v] by (0.5)\n    end\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-0.5)\n    end\n    change x by (X)\n    set [x v] to ((X) * (0.9))\n    if <touching (sprite2 v)?> then\n        change y by (0.5)\n        if <touching (sprite2 v)?> then\n            change y by (0.5)\n            if <touching (sprite2 v)?> then\n                change y by (0.5)\n                if <touching (sprite2 v)?> then\n                    change y by (0.5)\n                    if <touching (sprite2 v)?> then\n                        change y by (0.5)\n                        if <touching (sprite2 v)?> then\n                            change y by (0.5)\n                            if <touching (sprite2 v)?> then\n                                change y by (0.5)\n                                if <touching (sprite2 v)?> then\n                                    change y by (0.5)\n                                    if <key (up arrow v) pressed?> then\n                                        if <[0] < (X)> then\n                                            set [x v] to [-7]\n                                        else\n                                            set [x v] to [7]\n                                        end\n                                        set [y v] to [10]\n                                    else\n                                        set [x v] to ((X) * (-1.3))\n                                        change x by (X)\n                                        set [x v] to [0]\n                                        change x by ((X) / (5))\n                                    end\n                                    change y by (-4)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-0.5)\n    change y by (Y)\n    if <touching (sprite2 v)?> then\n        set [y v] to ((Y) * (-0.25))\n        change y by (Y)\n        if <touching (sprite2 v)?> then\n            change y by (Y)\n            if <touching (sprite2 v)?> then\n                change y by (Y)\n                if <touching (sprite2 v)?> then\n                    change y by (Y)\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> and <touching (sprite2 v)?>> then\n        set [y v] to [10]\n    end\n    change y by (1)\n    if <touching (sprite3 v)?> then\n        switch costume to (costume1 v)\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        go to x: (-180) y: (-127)\n        set [ghost v] effect to (0)\n        switch costume to (costume v)\n    end\nend\n\nwhen I receive [next v]\ngo to x: (-180) y: (-127)\n\n@Sprite3\n\nwhen flag clicked\nswitch costume to (costume2 v)\n\nwhen I receive [next v]\nnext costume\n\n@Sprite2\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nswitch costume to (costume1 v)\nforever\n    if <(costume [number v]) = [5]> then\n        broadcast (note? v)\n    end\n    if <(costume [number v]) = [6]> then\n        broadcast (no note again v)\n    end\n    if <(costume [number v]) = [10]> then\n        broadcast (end v)\n    end\n    if <(costume [number v]) = [11]> then\n        broadcast (jk v)\n        switch backdrop to (backdrop3 v)\n    end\n    if <(costume [number v]) = [13]> then\n        broadcast (end for real v)\n        switch backdrop to (backdrop4 v)\n    end\n    if <(costume [number v]) = [14]> then\n        broadcast (now for real v)\n        stop [this script v]\n    end\nend\n\n@Background stuff\n\nwhen I start as a clone\nshow\ngo to [back v] layer\npoint in direction (pick random (-70) to (-100))\ngo to x: (300) y: (pick random (-180) to (180))\nset size to (pick random (5) to (10)) %\nset [ghost v] effect to (pick random (50) to (70))\ngo to [back v] layer\nrepeat until <(x position) < [-220]>\n    move (10) steps\nend\ndelete this clone\n\nwhen flag clicked\nshow\nswitch costume to (costume1 v)\nforever\n    hide\n    create clone of (_myself_ v)\nend\n\nset [ghost v] effect to (0)\n\nwhen I receive [jk v]\nswitch costume to (costume2 v)\n\nwhen I receive [end for real v]\nswitch costume to (costume3 v)\n\n@Sprite4\n\nwhen flag clicked\nset [ghost v] effect to (100)\nforever\n    if <touching (sprite1 v)?> then\n        broadcast (next v)\n    end\nend\n\n@Sprite5\n\nwhen flag clicked\nshow\nswitch costume to (costume1 v)\nset [ghost v] effect to (100)\n\nwhen I receive [next v]\nchange [ghost v] effect by (-10)\n\nset [ghost v] effect to (50)\n\nwhen I receive [end v]\nswitch costume to (costume2 v)\n\nwhen I receive [jk v]\nhide\n\n@Text\n\ndefine (text) at (x) (y) with color (red/white) with sound (value)\nset [ghost v] effect to (0)\ngo to x: (x) y: (y)\nbroadcast (zrtext v) and wait\nset [i v] to [1]\nrepeat (length of (text))\n    if <(red/white) = [red]> then\n        set [brightness v] effect to (0)\n        if <not <(costume [number v]) = [1]>> then\n            start sound (value)\n        end\n    else\n        if <(red/white) = [gray]> then\n            set [brightness v] effect to ()\n            if <not <(costume [number v]) = [1]>> then\n                start sound (value)\n            end\n        else\n            set [brightness v] effect to (-100)\n            if <not <(costume [number v]) = [1]>> then\n                start sound (value)\n            end\n        end\n    end\n    set [letter v] to (letter (i) of (text))\n    change [i v] by (1)\n    switch costume to (null v)\n    switch costume to (letter)\n    if <(costume [number v]) = [1]> then\n        switch costume to (join (letter) [_])\n    end\n    create clone of (_myself_ v)\n    change x by (16)\n    if <(letter (i) of (text)) = [@]> then\n        set x to (-180)\n        change y by (-30)\n    end\n    wait (0.05) seconds\nend\nif <(tak) = [1]> then\n    wait (2) seconds\n    broadcast (zrtext v) and wait\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nwait until <(i) = [0]>\ndelete this clone\n\nwhen flag clicked\nset [tak v] to [1]\n\nwhen flag clicked\nswitch backdrop to (backdrop2 v)\n[Everything is gone.] at [-135] [50] with color [white] with sound [1]\n[The infection wiped @them all out.] at [-135] [50] with color [white] with sound [1]\n[Its a miracle you @survived.] at [-135] [50] with color [white] with sound [1]\n[Find the place that @is not infected.] at [-135] [50] with color [white] with sound [1]\n[It will get cloudier @the more you travel.] at [-135] [50] with color [white] with sound [1]\n[Good luck.] at [-135] [50] with color [white] with sound [1]\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [zrtext v]\nset [i v] to [0]\ndelete this clone\n\nset [nam v] to [0]\nset [i v] to [0]\n\nwhen [s v] key pressed\nswitch backdrop to (backdrop1 v)\nstop [other scripts in sprite v]\ndelete this clone\n\n@Sprite6\n\nwhen flag clicked\nhide\n\nwhen I receive [note? v]\nshow\nforever\n    if <touching (sprite1 v)?> then\n        broadcast (note v)\n    else\n        broadcast (no note v)\n    end\nend\n\nwhen I receive [no note again v]\nhide\nstop [other scripts in sprite v]\n\n@Sprite7\n\nwhen flag clicked\nhide\n\nwhen I receive [note v]\nshow\n\nwhen I receive [no note v]\nhide\n\n@Text2\n\ndefine (text) at (x) (y) with color (red/white) with sound (value)\nset [ghost v] effect to (0)\ngo to x: (x) y: (y)\nbroadcast (zrtext v) and wait\nset [i v] to [1]\nrepeat (length of (text))\n    if <(red/white) = [red]> then\n        set [brightness v] effect to (0)\n        if <not <(costume [number v]) = [1]>> then\n            start sound (value)\n        end\n    else\n        if <(red/white) = [gray]> then\n            set [brightness v] effect to ()\n            if <not <(costume [number v]) = [1]>> then\n                start sound (value)\n            end\n        else\n            set [brightness v] effect to (-100)\n            if <not <(costume [number v]) = [1]>> then\n                start sound (value)\n            end\n        end\n    end\n    set [letter v] to (letter (i) of (text))\n    change [i v] by (1)\n    switch costume to (null v)\n    switch costume to (letter)\n    if <(costume [number v]) = [1]> then\n        switch costume to (join (letter) [_])\n    end\n    create clone of (_myself_ v)\n    change x by (16)\n    if <(letter (i) of (text)) = [@]> then\n        set x to (-180)\n        change y by (-30)\n    end\n    wait (0.05) seconds\nend\nif <(tak) = [1]> then\n    wait (2) seconds\n    broadcast (zrtext v) and wait\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nwait until <(i) = [0]>\ndelete this clone\n\nwhen flag clicked\nset [tak v] to [1]\n\nwhen flag clicked\n\nwhen I receive [zrtext v]\nset [i v] to [0]\ndelete this clone\n\nset [nam v] to [0]\n\nwhen I receive [now for real v]\nset [i v] to [1]\n[You did it.] at [-135] [50] with color [white] with sound [1]\n[But what do you @do now?] at [-135] [50] with color [white] with sound [1]\nbroadcast (end end end v)\nstop [all v]\n\nswitch backdrop to (backdrop2 v)\n\n@Sprite8\n\nwhen flag clicked\nhide\n\n@Sprite9\n\nwhen I receive [end end end v]\nshow\n\nwhen flag clicked\nhide\n\n