Pen Platformer


@Stage\n\nwhen I receive [次 v]\nnext backdrop\n\nwhen flag clicked\nswitch backdrop to (1 v)\n\n@プラフォ イントロ\n\nwhen flag clicked\n\nwhen flag clicked\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\n\nwhen I receive [project;start v]\nforever\n    play sound [平凡音楽 v] until done\nend\n\nwhen I receive [project;start v]\nif <touching color (#e1ff00)?> then\n    go to x: (158) y: (-91)\nend\n\nwhen I receive [project;start v]\ngo to x: (-210) y: (13)\nset rotation style [left-right v]\nset size to (100) %\npoint in direction (90)\nshow\nhide variable [x v]\nhide variable [y v]\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<key (right arrow v) pressed?> or <<(mouse x) > (x position)> and <mouse down?>>> then\n        change [x v] by (0.8)\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<(x position) > (mouse x)> and <mouse down?>>> then\n        change [x v] by (-0.8)\n        point in direction (-90)\n    end\n    set [x v] to ((x) * (0.92))\n    change x by (x)\n    if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n        change y by (1)\n        if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n            change y by (1)\n            if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n                change y by (1)\n                if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n                    change y by (1)\n                    if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n                        change y by (1)\n                        if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n                            change y by (1)\n                            if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n                                change x by ((0) - (x))\n                                change y by (-5)\n                                if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n                                    start sound [壁キック v]\n                                    if <[0] < (x)> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                    set [y v] to [15]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <<touching color (#00d412)?> or <touching color (#986000)?>> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-2)\n    if <<<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> and <<touching color (#00d412)?> or <touching color (#986000)?>>> then\n        start sound [ジャンプ音 v]\n        set [y v] to [17]\n    end\n    change y by (1)\n    if <<(costume [number v]) = [1]> or <(costume [number v]) = [2]>> then\n        if <<touching color (#ff0000)?> or <[-160] > (y position)>> then\n            set [x v] to [0]\n            set [y v] to [0]\n            set rotation style [left-right v]\n            start sound [Roblox Death Sound - OOF Sound Effect v]\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            go to x: (-186) y: (13)\n            repeat (10)\n                change [ghost v] effect by (-10)\n            end\n        end\n        if <(x position) > [240]> then\n            broadcast (次 v)\n            set [x v] to [0]\n            set [y v] to [0]\n            go to x: (-186) y: (13)\n        end\n        if <<key (down arrow v) pressed?> or <<(y position) > (mouse y)> and <mouse down?>>> then\n            switch costume to (主人公2 v)\n        else\n            switch costume to (主人公 v)\n        end\n    end\nend\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [次のステージ2 v]\nshow\ngo to [back v] layer\ngo to x: (205) y: (137)\nset size to (100) %\nset [太陽 v] to [100]\nforever\n    change size by ([cos v] of (太陽) )\n    change [太陽 v] by (7)\nend\n\nwhen I receive [project;start v]\nshow\ngo to [back v] layer\ngo to x: (220) y: (137)\nset size to (70) %\nset [太陽 v] to [100]\nforever\n    change size by ([cos v] of (太陽) )\n    change [太陽 v] by (7)\nend\n\n@スプライト3\n\nwhen flag clicked\nhide\n\nwhen I receive [project;start v]\nhide\nforever\n    wait (pick random (8) to (5)) seconds\n    show\n    start sound [ポップ v]\n    go to x: (-150) y: (180)\n    point in direction (90)\n    set size to (100) %\n    repeat until <[135] > (y position)>\n        change y by (((2) - (y position)) / (20))\n    end\n    wait (2.9) seconds\n    repeat until <(y position) > [207]>\n        change y by ((y position) / (20))\n    end\n    hide\nend\n\n@スプライト1\n\nwhen flag clicked\nbroadcast (intro:start v)\n\nwhen I receive [intro:start v]\nhide\nreset timer\npoint in direction (90)\ngo to x: (0) y: (0)\nstart sound [Jim Yosef - Eclipse \[NCS Release\]2 v]\nset size to (100) %\nclone [circles]\nwait (0) seconds\nclone [back2]\nwait (0) seconds\nclone [black1]\nwait (0) seconds\nclone [black2]\nwait until <(timer) > [3.07]>\nclone [logo]\nwait until <(timer) > [5.06]>\nclone [back]\nwait until <(timer) > [5.48]>\nclone [square]\nwait until <(timer) > [6]>\nclone [square]\nwait until <(timer) > [6.4]>\nclone [square]\nwait until <(timer) > [6.91]>\nclone [square]\nwait until <(timer) > [7.4]>\nclone [square]\nwait until <(timer) > [8]>\nclone [square]\nwait until <(timer) > [8.4]>\nclone [square]\nwait until <(timer) > [9]>\nclone [square]\nwait until <(timer) > [9.4]>\nclone [square]\nwait until <(timer) > [10]>\nclone [square]\nwait until <(timer) > [10.4]>\nclone [square]\nwait until <(timer) > [11]>\nclone [square]\nwait until <(timer) > [11.4]>\nclone [square]\n\ndefine clone (id)\nset [cloneid v] to (id)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(cloneID) = [logo]> then\n    switch costume to (brank v)\n    show\n    set size to (2400) %\n    go to x: (0) y: (0)\n    point in direction (-90)\n    switch costume to (logo v)\n    repeat until <(timer) > [5.06]>\n        switch costume to (brank v)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        switch costume to (logo v)\n    end\n    point in direction (150)\n    [90] bom!\n    wait until <(timer) > [5.48]>\n    point in direction (30)\n    [90] bom!\n    wait until <(timer) > [6]>\n    point in direction (60)\n    [90] bom!\n    wait until <(timer) > [6.4]>\n    point in direction (120)\n    [90] bom!\n    wait until <(timer) > [6.91]>\n    [90] bom!\n    wait until <(timer) > [7.4]>\n    [90] bom!\n    wait until <(timer) > [8]>\n    [90] bom!\n    wait until <(timer) > [8.4]>\n    switch costume to (subaru_raimu v)\n    [90] bom!\n    wait until <(timer) > [9]>\n    [90] bom!\n    wait until <(timer) > [9.4]>\n    [90] bom!\n    wait until <(timer) > [10]>\n    [90] bom!\n    wait until <(timer) > [10.4]>\n    [90] bom!\n    wait until <(timer) > [11]>\n    [90] bom!\n    wait until <(timer) > [11.4]>\n    [90] bom!\n    wait until <(timer) > [12]>\n    set [s v] to [0]\n    repeat (15)\n        turn right (s) degrees\n        change [s v] by (3)\n    end\n    repeat (20)\n        turn right (((90) - (direction)) / (3)) degrees\n    end\n    repeat (50)\n        turn right (((135) - (direction)) / (20)) degrees\n        change y by (((-100) - (y position)) / (10))\n        change [ghost v] effect by (10)\n    end\nend\n\ndefine (d) bom!\nshow\nset size to (200) %\nrepeat (15)\n    change size by (((100) - (size)) / (4))\n    turn right (((d) - (direction)) / (2)) degrees\n    go to x: ((([sin v] of ((timer) * (1000)) ) * (((100) - (size)) / (2))) + (0)) y: ((([cos v] of ((timer) * (800)) ) * (((100) - (size)) / (2))) + <(round (y position)) = (round (0))>)\nend\nset size to (100) %\npoint in direction (90)\n\nwhen I start as a clone\nif <(cloneID) = [back]> then\n    switch costume to (brank v)\n    go to [back v] layer\n    show\n    set size to (0) %\n    switch costume to (back v)\n    repeat until <(size) > [100]>\n        change size by (((3000) - (size)) / (10))\n    end\n    repeat until <(size) > [3000]>\n        switch costume to (brank v)\n        change size by (((3000) - (size)) / (10))\n        switch costume to (back v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [back2]> then\n    switch costume to (back2 v)\n    show\n    set [ghost v] effect to (40)\n    wait until <(timer) > [5.48]>\n    don! [60]\n    wait until <(timer) > [6]>\n    don! [120]\n    wait until <(timer) > [6.4]>\n    don! [60]\n    wait until <(timer) > [6.91]>\n    don! [120]\n    wait until <(timer) > [7.4]>\n    don! [60]\n    wait until <(timer) > [8]>\n    don! [120]\n    wait until <(timer) > [8.4]>\n    don! [60]\n    wait until <(timer) > [9]>\n    don! [120]\n    wait until <(timer) > [9.4]>\n    don! [60]\n    wait until <(timer) > [10]>\n    don! [120]\n    wait until <(timer) > [10.4]>\n    don! [60]\n    wait until <(timer) > [11]>\n    don! [120]\n    wait until <(timer) > [11.4]>\n    don! [60]\nend\n\ndefine don! (d)\npoint in direction (d)\nrepeat (15)\n    turn right (((90) - (direction)) / (3)) degrees\nend\n\nwhen I start as a clone\nif <(cloneID) = [square]> then\n    switch costume to (brank v)\n    go to [back v] layer\n    go [forward v] (3) layers\n    show\n    set size to (0) %\n    switch costume to (square v)\n    repeat until <(size) = [300]>\n        change size by (((300) - (size)) / (3))\n    end\n    repeat until <(size) = [600]>\n        switch costume to (brank v)\n        turn right (((180) - (direction)) / (3)) degrees\n        change size by (((600) - (size)) / (3))\n        switch costume to (square v)\n    end\n    repeat until <(size) = [1500]>\n        switch costume to (brank v)\n        change size by (((1500) - (size)) / (3))\n        switch costume to (square v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [circles]> then\n    switch costume to (brank v)\n    set [ghost v] effect to (70)\n    set size to (130) %\n    show\n    wait until <(timer) > [5.48]>\n    shockwave\n    wait until <(timer) > [6]>\n    shockwave\n    wait until <(timer) > [6.4]>\n    shockwave\n    wait until <(timer) > [6.91]>\n    shockwave\n    wait until <(timer) > [7.4]>\n    shockwave\n    wait until <(timer) > [8]>\n    shockwave\n    wait until <(timer) > [8.4]>\n    shockwave\n    wait until <(timer) > [9]>\n    shockwave\n    wait until <(timer) > [9.4]>\n    shockwave\n    wait until <(timer) > [10]>\n    shockwave\n    wait until <(timer) > [10.4]>\n    shockwave\n    wait until <(timer) > [11]>\n    shockwave\n    wait until <(timer) > [11.4]>\n    shockwave\nend\n\ndefine shockwave\nswitch costume to (circles9 v)\nrepeat (11)\n    next costume\nend\nswitch costume to (brank v)\n\nwhen I start as a clone\nif <(cloneID) = [black1]> then\n    go to x: (0) y: (0)\n    switch costume to (black1 v)\n    show\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait (1.5) seconds\n    repeat until <(timer) > [13.2]>\n        go to [front v] layer\n        change y by (((100) - (y position)) / (10))\n    end\n    repeat (50)\n        go to [front v] layer\n        change y by (((0) - (y position)) / (10))\n    end\n    broadcast (intro:end v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [black2]> then\n    go to x: (0) y: (0)\n    switch costume to (black2 v)\n    show\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait (1.5) seconds\n    repeat until <(timer) > [13.2]>\n        go to [front v] layer\n        change y by (((-100) - (y position)) / (10))\n    end\n    repeat (50)\n        go to [front v] layer\n        change y by (((0) - (y position)) / (10))\n    end\nend\n\nwhen I receive [intro:end v]\nif < (cloneID) contains [black]?> then\n    wait (2) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    broadcast (project;start v)\nelse\n    delete this clone\nend\n\nwhen I receive [project;start v]\n\n@サムネだお〜\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nwhen I receive [project;start v]\nforever\n    reset timer\nend\n\n