Universe / platformer

Instructions: ~宇宙に飛び立とう！~\n~ Let's fly into space! ~\n＿＿＿＿＿＿＿＿＿＿日本語＿＿＿＿＿＿＿＿＿＿＿\n<使い方>\n矢印キー、WASDキー、タップで移動。\n針か、下に落ちるとゲームオーバーです。\n面白かったら、❤と★を押してね！\n＿＿＿＿＿＿＿＿＿＿English＿＿＿＿＿＿＿＿＿＿＿\n<How to use>\nMove with the arrow keys, WASD key, and tap.\nThe game is over when the needle or falls down.\nIf you find it interesting, press ❤ and ★!

@Stage\n\n@player\n\nwhen flag clicked\npoint in direction (90)\nset size to (100) %\nhide variable [☁ 世界記録 v]\nhide variable [タイム v]\nhide\nwait (12) seconds\nbroadcast (表示してくれー v)\ngo to x: (-186) y: (-69)\nshow\nbroadcast (ゆき降らせるぞ v)\nforever\n    操作\nend\n\ndefine 操作\nset rotation style [left-right v]\nforever\n    change [y v] by (-1)\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.9))\n    change x by (X)\n    if <touching color (#766ffa)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#0b00fa)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (ufo v)?> then\n        set [y v] to [0]\n        change y by (Y)\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#79cbff)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (Y)\n    if <touching color (#0b00fa)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (ufo v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [15]\n        end\n    end\n    if <touching color (#79cbff)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching color (#999999)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching color (#626262)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (岩 v)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <(x position) > [240]> then\n        hide\n        broadcast (次！ v)\n        wait (3) seconds\n        初期化\n        show\n    end\n    if <(y position) = [-185]> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (バネ v)?> then\n        start sound [ボヨン v]\n        set [y v] to [20]\n    end\nend\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-186) y: (-30)\n\nwhen [timer v] > (0)\nset rotation style [all around v]\nshow\npoint in direction (83)\ngo to x: (44) y: (-17)\nset size to (200) %\nhide variable [☁ 世界記録 v]\nhide variable [タイム v]\n\nwhen I receive [表示してくれー v]\nforever\n    play sound [Electro-Light - Symbolism _NCS Release_ v] until done\n    wait (148.10) seconds\nend\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [次いくでー v]\nnext costume\nif <(costume [number v]) = [2]> then\n    broadcast (2表示 v)\nend\n\nwhen I receive [変えろ v]\nswitch costume to (コスチューム6 v)\nwait (2.615) seconds\nswitch costume to (コスチューム7 v)\n\ndefine タイマースタート\nset [タイム v] to [0]\nrepeat until <([costume # v] of [地面 v]) = [10]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\nshow variable [☁ 世界記録 v]\nshow variable [タイム v]\nif <(☁ 世界記録) > (タイム)> then\n    set [☁ 世界記録 v] to (タイム)\nend\n\nwhen I receive [表示してくれー v]\nshow\nswitch costume to (コスチューム1 v)\nタイマースタート\n\nwhen flag clicked\ngo to x: (39) y: (21)\nswitch backdrop to (背景3 v)\nset size to (100) %\n\nset [☁ 世界記録 v] to [66]\n\nwhen [timer v] > (0)\nshow\ngo to x: (-118) y: (89)\nset size to (130) %\nswitch costume to (コスチューム7 v)\n\n@intro\n\nwhen I start as a clone\nif <(cloneID) = [logo]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (rogo v)\n    repeat until <[101] > (size)>\n        switch costume to (bit v)\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (rogo v)\n    end\n    repeat until <[66] > (size)>\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n    end\n    set [clone_dir v] to [0.5]\n    repeat until <(size) > [100]>\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n    end\n    repeat (7)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n        switch costume to (rogo v)\n    end\n    hide\n    switch costume to (square1 v)\n    set [cloneid v] to [square2]\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    set [cloneid v] to [square3]\n    create clone of (_myself_ v)\n    set [cloneid v] to [kirbyzaz]\n    create clone of (_myself_ v)\n    set [cloneid v] to [back3]\n    create clone of (_myself_ v)\n    repeat (8)\n        set [clone_size v] to [50]\n        set [cloneid v] to [square1]\n        create clone of (_myself_ v)\n        set [cloneid v] to [back2]\n        create clone of (_myself_ v)\n        broadcast (\[INTRO\]size v)\n        switch costume to (square1 v)\n        wait (0.561) seconds\n    end\n    broadcast (\[INTRO\]spin v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (blackbar1 v)\n    repeat until <[175] > (size)>\n        switch costume to (bit v)\n        change size by (((174) - (size)) / (6.9))\n        change [clone_dir v] by (((65) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (back v)\n    end\n    set [clone_dir v] to [0.5]\n    repeat (15)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        switch costume to (back v)\n        turn right ((clone_dir) / (12)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [b1]> then\n    switch costume to (blackbar1 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((125) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((-1) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [b2]> then\n    switch costume to (blackbar2 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((-125) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((1) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\nend\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\npoint in direction (90)\nreset timer\nwait (0.7) seconds\nhide\nset [cloneid v] to [b1]\ncreate clone of (_myself_ v)\nset [cloneid v] to [b2]\ncreate clone of (_myself_ v)\nwait (0.3) seconds\nset [cloneid v] to [back]\ncreate clone of (_myself_ v)\nset [cloneid v] to [logo]\ncreate clone of (_myself_ v)\nswitch backdrop to (背景3 v)\nstart sound [DEAF KEV - Invincible _NCS Release_ v]\n\nwhen I start as a clone\nif <(cloneID) = [square1]> then\n    go to [back v] layer\n    go [forward v] (3) layers\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    repeat until <(size) > [100]>\n        change size by (((clone_size) - (size)) / (5))\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by (((clone_size) - (size)) / (5))\n        switch costume to (clone_cos)\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back2]> then\n    switch costume to (back2 v)\n    clear graphic effects\n    set [ghost v] effect to (50)\n    show\n    go to [front v] layer\n    repeat (25)\n        change [ghost v] effect by (2)\n    end\n    hide\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back3]> then\n    go to x: (0) y: (0)\n    show\n    switch costume to (back3 v)\n    set [s v] to [90]\n    show\n    set [clone_dir v] to [90]\n    \n        switch costume to (bit v)\n        set size to (100) %\n        go to [back v] layer\n        change [clone_dir v] by (((s) - (clone_dir)) / (5))\n        point in direction (clone_dir)\n        switch costume to (back3 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [square3]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [square2]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\]size v]\nif < (cloneID) contains [square]?> then\n    if <[350] < (clone_dir)> then\n        set [clone_dir v] to [0]\n    end\n    change [clone_size v] by ((clone_size) * (1.5))\n    change [clone_dir v] by (22.5)\nend\nif <(cloneID) = [back3]> then\n    change [s v] by (90)\nend\n\nwhen I receive [\[intro\]spin v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [kirbyzaz]> then\n    set [clone_cos v] to (pick random (5) to (10))\n    change size by (30)\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\n    wait (1) seconds\n    broadcast (始まり v)\n    broadcast (表示してくれー v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [kirbyzaz]> then\n    show\n    set [clone_dir v] to [90]\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (bit v)\n    set size to (200) %\n    switch costume to (yourname v)\n    \n        switch costume to (bit v)\n        change size by (((120) - (size)) / (5))\n        switch costume to (yourname v)\n        go to [front v] layer\n        go [backward v] (2) layers\n    end\nend\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [b1]> then\n    set [clone_cos v] to [2]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\nif <(cloneID) = [b2]> then\n    set [clone_cos v] to [-5]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I receive [\[intro\]end v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n    wait (1) seconds\n    if <(cloneID) = [b1]> then\n        change y by (1.5)\n        repeat until <(y position) > [200]>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar1 v)\n        end\n    else\n        change y by (-1.5)\n        repeat until <[-200] > (y position)>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar2 v)\n        end\n    end\n    delete this clone\nelse\n    hide\n    delete this clone\nend\n\nwhen [timer v] > (0)\nhide\n\n@Next!\n\nwhen I receive [次！ v]\nif <([costume # v] of [地面 v]) = [7]> then\n    broadcast (変えろ v)\nend\nhide\nstart sound [High Whoosh v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    wait (2.2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (2.1) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.9) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.8) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    broadcast (次いくでー v)\n    delete this clone\nend\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\ngo to [front v] layer\n\n@バネ\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\nhide\ngo to [back v] layer\nforever\n    if <touching (player v)?> then\n        switch costume to (コスチューム2 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム3 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム4 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム5 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム6 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム7 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム6 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム5 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム4 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム3 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム2 v)\n        wait (0.01) seconds\n        switch costume to (コスチューム1 v)\n        wait (0.01) seconds\n    end\n    if <([costume # v] of [地面 v]) = [6]> then\n        show\n        go to x: (19) y: (190)\n        if <not <([costume # v] of [地面 v]) = [6]>> then\n            hide\n        end\n        repeat until <[-187] > (y position)>\n            change y by (-7)\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n        end\n        go to x: (19) y: (190)\n        hide\n        wait (1) seconds\n        if <not <([costume # v] of [地面 v]) = [6]>> then\n            hide\n        end\n    else\n        hide\n    end\nend\n\nwhen [timer v] > (0)\nhide\n\n@タイトル\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nshow\ngo to [front v] layer\n\n@ぴょん\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\nshow\n\n@Yzx\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\nshow\n\n@岩\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\ngo to x: (51) y: (-74)\nhide\ngo to [back v] layer\nforever\n    if <([costume # v] of [地面 v]) = [4]> then\n        go to x: (51) y: (196)\n        show\n        repeat until <(y position) < [-70]>\n            turn right (15) degrees\n            change y by (-8)\n            if <not <([costume # v] of [地面 v]) = [4]>> then\n                hide\n            end\n        end\n        hide\n        wait (0.5) seconds\n    else\n        hide\n    end\nend\n\n@ラストの表示\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    if <([costume # v] of [地面 v]) = [10]> then\n        show\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\n