☀Sunshine / Platformer☀

Instructions: <日本語>\nまぶしい太陽と冒険をしよう！！\nWASDキー、矢印キー、タップで操作。\n針に触れるか、下に落ちるとゲームオーバーです。\n❤と★をよろしく！\n<English>\nLet's have an adventure with the bright sun! !!\nOperate with WASD key, arrow key, tap.\nThe game is over when you touch the needle or fall down.\nBest regards to ❤ and ★!\n

@Stage\n\n@player\n\nwhen flag clicked\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    start sound [Different Heaven - Nekozilla _NCS Release_ v]\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 (#5bff00)?> then\n        change y by (-6)\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 [12]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#3fb300)?> 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 [12]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#001b9a)?> 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 [12]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#ffa000)?> then\n        change x by ((X) * (-1))\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 [12]\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching color (#d78800)?> then\n        change x by ((X) * (-1))\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 [12]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\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 (#3fb300)?> 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 [12]\n        end\n    end\n    if <touching color (#001b9a)?> 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 [12]\n        end\n    end\n    if <touching color (#ffe500)?> 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 [12]\n        end\n    end\n    if <touching color (#ffa406)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n    end\n    if <<touching color (#7e7e7e)?> or <touching color (#595959)?>> then\n        start sound [Rip v]\n        初期化\n    end\n    if <[240] < (x position)> then\n        hide\n        broadcast (次！ v)\n        wait (3.7) 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 [25]\n    end\n    if <touching color (#ffe500)?> 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 [12]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [8]\n                else\n                    set [x v] to [-8]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\nend\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-186) y: (0)\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [次いくでー v]\nnext costume\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\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: (37) y: (27)\nset size to (100) %\nhide variable [タイム v]\nhide variable [☁ 世界記録 v]\nswitch backdrop to (ゲーム画面 v)\n\nset [☁ 世界記録 v] to [70]\n\nwhen I receive [結果はっぴょーーー v]\n\nwhen I receive [タイトルじゃーー v]\nhide variable [タイム v]\nhide variable [☁ 世界記録 v]\nswitch costume to (コスチューム8 v)\ngo to x: (209) y: (19)\nset size to (117) %\nwait (0.01) seconds\ngo to [front v] layer\nshow\n\nwhen I receive [隠せよ v]\nhide\n\nwhen I receive [結果はっぴょーーー v]\nshow variable [タイム v]\nshow variable [☁ 世界記録 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 (ゲーム画面 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\n@NEXT\n\nshow\ngo to x: (468) y: (0)\nset [x座標変化 v] to [-10]\nstart sound [Slide Whistle v]\nrepeat (100 )\n    change x by (X座標変化)\n    change [x座標変化 v] by (([sin v] of (X座標変化) ) * (-1))\nend\nset [x座標変化 v] to [16]\nstart sound [Jump v]\nrepeat until <[-38] > (X座標変化)>\n    change x by (X座標変化)\n    change [x座標変化 v] by (-1)\nend\nhide\n\nwhen I receive [次！ v]\nbroadcast (次いくでー v)\ngo to [front v] layer\nshow\ngo to x: (468) y: (0)\nset [x座標変化 v] to [0]\nrepeat until <[0] > (x position)>\n    change x by (((() - (X座標変化)) * (X座標変化)) - ((X座標変化) * (0.8)))\n    change [x座標変化 v] by (1)\nend\nset [x座標変化 v] to [10]\nrepeat until <(X座標変化) < [0.007556]>\n    change x by (X座標変化)\n    change [x座標変化 v] by (([sin v] of (X座標変化) ) * (-8))\nend\nset [x座標変化 v] to [16]\nrepeat until <[-37] > (X座標変化)>\n    change x by (X座標変化)\n    change [x座標変化 v] by (-1)\nend\nhide\nif <([costume # v] of [地面 v]) = [10]> then\n    broadcast (結果はっぴょーーー v)\nend\n\nwhen flag clicked\nhide\n\n@バネ\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\ngo to x: (-57) y: (-82)\nhide\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\nend\n\nif <([costume # v] of [地面 v]) = [7]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [隠せー v]\nhide\n\n@タイトル\n\nwhen flag clicked\nhide\n\n@タイトル2\n\nwhen flag clicked\nhide\n\n@タイトル3\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトルじゃーー v]\nwait (0.05) seconds\nshow\ngo to [front v] layer\n\nwhen I receive [隠せよ v]\nhide\n\n@⚡ターボ対策\n\nwhen flag clicked\nset [ターボ対策 v] to [0]\nforever\n    set size to (100) %\n    go to [front v] layer\n    go to x: (36) y: (28)\n    forever\n        change [ターボ対策 v] by (1)\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    set [ターボ対策 v] to [0]\n    wait (0.001) seconds\n    if <[3] < (ターボ対策)> then\n        stop [all v]\n    else\n    end\nend\n\n@リフト\n\nwhen flag clicked\nhide\ngo to x: (133) y: (-16)\nforever\n    if <([costume # v] of [地面 v]) = [6]> then\n        show\n        repeat until <not <([costume # v] of [地面 v]) = [6]>>\n            glide (1) secs to x: (22) y: (-16)\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n            glide (1) secs to x: (133) y: (-18)\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n        end\n    else\n        hide\n    end\nend\n\n@障害物\n\nwhen flag clicked\nhide\nforever\n    if <([costume # v] of [地面 v]) = [7]> then\n        show\n        repeat until <not <([costume # v] of [地面 v]) = [7]>>\n            turn right (2) degrees\n        end\n    else\n        hide\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\nshow\ngo to [front v] layer\nbroadcast (タイトルじゃーー v)\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen I receive [隠せよ v]\nhide\n\n@スプライト1\n\nwhen I receive [タイトルじゃーー v]\nwait (0.03) seconds\nshow\ngo to [front v] layer\n\nwhen flag clicked\nhide\n\n