Barrage Platformer -弾幕アクション- コラボ作品

Instructions: ※この作品はPen PlatformerとBarrage(弾幕)がコラボしている作品です!弾幕を避けながら進んでいきましょう!\n※This game is a collaboration between Pen Platformer and Barrage. Try to avoid the barrage while moving forward!\n\n矢印キーまたはWADキーまたは画面をタップすると動きます!\nUse the arrow keys or WAD keys or tap the screen to move.\n\n弾幕の動きの順番は完全ランダムです!

@Stage\n\nwhen I receive [タイトルが〜めん v]\nforever\n    play sound [World Three v] until done\nend\n\n@Hero\n\nwhen I receive [タイトルが〜めん v]\ngo to [front v] layer\ngo [backward v] (1) layers\nshow\nset size to (60) %\nswitch costume to ( v)\nset drag mode [not draggable v]\ngo to x: (-190) y: (-50)\npoint in direction (90)\nset [ステージ v] to [1]\nset [move okay? v] to [1]\nset [xvel v] to [0]\nset [yvel v] to [0]\nforever\n    if <(move okay?) = [1]> then\n        set rotation style [left-right v]\n        if <<<<mouse down?> and <(x position) > (mouse x)>> or <key (left arrow v) pressed?>> or <key (a v) pressed?>> then\n            change [xv v] by (-1)\n            point in direction (-90)\n        end\n        if <<<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> or <key (d v) pressed?>> then\n            change [xv v] by (1)\n            point in direction (90)\n        end\n        set [xv v] to ((Xv) * (0.9))\n        change x by (Xv)\n        if <touching color (#86ff37)?> then\n            change y by (1)\n            if <touching color (#86ff37)?> then\n                change y by (1)\n                if <touching color (#86ff37)?> then\n                    change y by (1)\n                    if <touching color (#86ff37)?> then\n                        change y by (1)\n                        if <touching color (#86ff37)?> then\n                            change y by (1)\n                            if <touching color (#86ff37)?> then\n                                change x by ((Xv) * (-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 <(Xv) > [0]> then\n                                        set [xv v] to [-7]\n                                    else\n                                        set [xv v] to [7]\n                                    end\n                                    set [yv v] to [10]\n                                else\n                                    set [xv v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (-1)\n        if <touching color (#86ff37)?> then\n            if <<<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> or <key (w v) pressed?>> then\n                set [yv v] to [15]\n                start sound [ぷよん v]\n                point in direction ((Yv) * (0.5))\n            end\n        end\n        change y by (1)\n        change [yv v] by (-1)\n        change y by (Yv)\n        if <touching color (#86ff37)?> then\n            change y by ((Yv) * (-1))\n            set [yv v] to [0]\n        end\n        hide variable [xv v]\n        if <(x position) > [230]> then\n            broadcast (next level v)\n            change [ステージ v] by (1)\n            set [yv v] to [0]\n            set [xv v] to [0]\n            go to x: (-190) y: (-50)\n        end\n        if <(y position) < [-170]> then\n            set [xv v] to [0]\n            set [yv v] to [0]\n            go to x: (-190) y: (-50)\n        end\n    end\n    if <touching color (#ff0000)?> then\n        set [xv v] to [0]\n        set [yv v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <touching (弾幕 v)?> then\n        set [xv v] to [0]\n        set [yv v] to [0]\n        go to x: (-190) y: (-50)\n    end\nend\n\nwhen flag clicked\nhide\n\n@Pen\n\ndefine Pen position: (x) (y) to (x!) (y!) color (beautiful) big! (fat??)\nif <(beautiful) = [a]> then\n    set pen color to (#87ff38)\nelse\n    if <(beautiful) = [b]> then\n        set pen color to (#4fbd06)\n    else\n        if <(beautiful) = [c]> then\n            set pen color to (#45841c)\n        else\n            if <(beautiful) = [d]> then\n                set pen color to (#a76305)\n            else\n                if <(beautiful) = [e]> then\n                    set pen color to (#d67e06)\n                else\n                    if <(beautiful) = [f]> then\n                        set pen color to (#ff0000)\n                    else\n                        if <(beautiful) = [g]> then\n                            set pen color to (#ff8800)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <(fat??) = []> then\n    set pen size to (30)\nelse\n    set pen size to (fat??)\nend\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x!) y: (y!)\npen up\n\ndefine floor\nPen position: [-240] [-180] to [240] [-180] color [d] big! [100]\nPen position: [-150] [-130] to [-180] [-180] color [e] big! []\nPen position: [-70] [-130] to [-100] [-180] color [e] big! []\nPen position: [10] [-130] to [-20] [-180] color [e] big! []\nPen position: [90] [-130] to [60] [-180] color [e] big! []\nPen position: [170] [-130] to [140] [-180] color [e] big! []\nPen position: [-240] [-130] to [240] [-130] color [c] big! [25]\nPen position: [-240] [-110] to [240] [-110] color [b] big! [20]\nPen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n\nwhen I receive [タイトルが〜めん v]\nerase all\nfloor\n\nwhen I receive [next level v]\nif <(ステージ) = [2]> then\n    erase all\n    Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n    Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n    Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n    Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n    Pen position: [90] [-130] to [60] [-180] color [e] big! []\n    Pen position: [170] [-130] to [140] [-180] color [e] big! []\n    Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n    Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n    Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n    Pen position: [-90] [-75] to [100] [-75] color [g] big! [15]\n    Pen position: [-90] [-60] to [100] [-60] color [f] big! [15]\n    Pen position: [-100] [-85] to [-100] [30] color [a] big! []\n    Pen position: [-90] [30] to [-110] [30] color [a] big! []\n    Pen position: [110] [-85] to [110] [60] color [a] big! []\n    Pen position: [100] [60] to [120] [60] color [a] big! []\nelse\n    if <(ステージ) = [3]> then\n        erase all\n        Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n        Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n        Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n        Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n        Pen position: [90] [-130] to [60] [-180] color [e] big! []\n        Pen position: [170] [-130] to [140] [-180] color [e] big! []\n        Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n        Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n        Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n        Pen position: [-90] [-75] to [0] [-75] color [g] big! [15]\n        Pen position: [-90] [-60] to [0] [-60] color [f] big! [15]\n        Pen position: [100] [-75] to [0] [-75] color [g] big! [15]\n        Pen position: [100] [-60] to [0] [-60] color [f] big! [15]\n        Pen position: [-100] [-85] to [-100] [30] color [a] big! []\n        Pen position: [-90] [30] to [-110] [30] color [a] big! []\n        Pen position: [0] [-85] to [0] [60] color [a] big! []\n        Pen position: [-10] [60] to [10] [60] color [a] big! []\n        Pen position: [100] [-85] to [100] [30] color [a] big! []\n        Pen position: [90] [30] to [110] [30] color [a] big! []\n    else\n        if <(ステージ) = [4]> then\n            erase all\n            Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n            Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n            Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n            Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n            Pen position: [90] [-130] to [60] [-180] color [e] big! []\n            Pen position: [170] [-130] to [140] [-180] color [e] big! []\n            Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n            Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n            Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n            Pen position: [-100] [-85] to [-100] [60] color [a] big! []\n            Pen position: [-10] [180] to [-10] [35] color [a] big! []\n            Pen position: [80] [-85] to [80] [60] color [a] big! []\n            Pen position: [170] [180] to [170] [35] color [a] big! []\n        else\n            if <(ステージ) = [5]> then\n                erase all\n                Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n                Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n                Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n                Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n                Pen position: [90] [-130] to [60] [-180] color [e] big! []\n                Pen position: [170] [-130] to [140] [-180] color [e] big! []\n                Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n                Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n                Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n                Pen position: [-50] [-75] to [240] [-75] color [g] big! [15]\n                Pen position: [-50] [-60] to [240] [-60] color [f] big! [15]\n                Pen position: [-50] [-85] to [-50] [30] color [a] big! []\n                Pen position: [-60] [30] to [-40] [30] color [a] big! []\n            else\n                if <(ステージ) = [6]> then\n                    erase all\n                    Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n                    Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n                    Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n                    Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n                    Pen position: [90] [-130] to [60] [-180] color [e] big! []\n                    Pen position: [170] [-130] to [140] [-180] color [e] big! []\n                    Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n                    Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n                    Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n                    Pen position: [-100] [-75] to [240] [-75] color [g] big! [15]\n                    Pen position: [-100] [-60] to [240] [-60] color [f] big! [15]\n                    Pen position: [-100] [-85] to [-100] [30] color [a] big! []\n                    Pen position: [-110] [30] to [-90] [30] color [a] big! []\n                    Pen position: [0] [-43] to [50] [-43] color [a] big! [20]\n                    Pen position: [130] [180] to [130] [110] color [a] big! []\n                    Pen position: [120] [110] to [140] [110] color [a] big! []\n                else\n                    if <(ステージ) = [7]> then\n                        erase all\n                        Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n                        Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n                        Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n                        Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n                        Pen position: [90] [-130] to [60] [-180] color [e] big! []\n                        Pen position: [170] [-130] to [140] [-180] color [e] big! []\n                        Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n                        Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n                        Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n                        Pen position: [-50] [-75] to [-50] [-20] color [f] big! []\n                        Pen position: [-40] [-20] to [-60] [-20] color [f] big! []\n                        Pen position: [100] [-75] to [100] [-20] color [f] big! []\n                        Pen position: [90] [-20] to [110] [-20] color [f] big! []\n                        Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n                    else\n                        if <(ステージ) = [8]> then\n                            erase all\n                            Pen position: [-240] [-180] to [240] [-180] color [d] big! [100]\n                            Pen position: [-150] [-130] to [-180] [-180] color [e] big! []\n                            Pen position: [-70] [-130] to [-100] [-180] color [e] big! []\n                            Pen position: [10] [-130] to [-20] [-180] color [e] big! []\n                            Pen position: [90] [-130] to [60] [-180] color [e] big! []\n                            Pen position: [170] [-130] to [140] [-180] color [e] big! []\n                            Pen position: [-240] [-130] to [240] [-130] color [c] big! [25]\n                            Pen position: [-240] [-110] to [240] [-110] color [b] big! [20]\n                            Pen position: [-240] [-90] to [240] [-90] color [a] big! [20]\n                            Pen position: [240] [-80] to [240] [180] color [a] big! []\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nerase all\n\n@弾幕\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトルが〜めん v]\nhide\nforever\n    wait (pick random (2) to (4)) seconds\n    set [弾幕 v] to (item (pick random (1) to (length of [動き v])) of [動き v])\n    if <(弾幕) = [星形]> then\n        point in direction (90)\n        go to x: (0) y: (0)\n        set [どうぞ v] to [0]\n        repeat (5)\n            repeat (15)\n                create clone of (_myself_ v)\n                move (10) steps\n            end\n            turn right (144) degrees\n        end\n        set [どうぞ v] to [1]\n    else\n        if <(弾幕) = [だー\(縦\)]> then\n            point in direction (0)\n            set [どうぞ v] to [1]\n            go to x: (-240) y: (-160)\n            repeat (6)\n                create clone of (_myself_ v)\n                change x by (80)\n                wait (.05) seconds\n            end\n            hide\n        else\n            if <(弾幕) = [だー\(横\)]> then\n                point in direction (90)\n                set [どうぞ v] to [1]\n                go to x: (-220) y: (180)\n                repeat (4)\n                    create clone of (_myself_ v)\n                    change y by (-92)\n                    wait (.05) seconds\n                end\n                hide\n            else\n                if <(弾幕) = [丸]> then\n                    repeat (3)\n                        go to x: (0) y: (0)\n                        repeat (8)\n                            turn right (45) degrees\n                            move (10) steps\n                            create clone of (_myself_ v)\n                            wait (.01) seconds\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nshow\nwait until <(どうぞ) = [1]>\nrepeat until <touching (_edge_ v)?>\n    move (10) steps\nend\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (0)\nset volume to (100) %\nshow\nset size to (0) %\ngo to x: (0) y: (-180)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (39)\n    change [縦 v] by (-1)\n    change y by (縦)\n    change size by (0.5)\nend\ngo to x: (0) y: (-165)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (35)\n    change [縦 v] by (-1)\n    change y by (縦)\n    change size by (1)\nend\ngo to x: (0) y: (-140)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (32)\n    change [縦 v] by (-0.948)\n    change y by (縦)\n    change size by (1.36)\nend\nstart sound [Collect v]\nwait (.25) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (タイトルが〜めん v)\ngo to [front v] layer\n\n