♢snow world♢//A platformer

Instructions: 【English】\n~ How to use ~\nOperate with tap or cross key.\nThe game is over if you touch the needle, touch the snow ball, or fall off the ground. Have fun!\n【日本語】\n【旗2回押し推奨】\n~使い方~\nタップまたは十字キーで操作。\n針にまたは、雪玉に触れるか、地面から落ちてしまうとゲームオーバーになります。それでは楽しんでくださいね！\n-Credit / クレジット-\nPlogram/プログラム…-Fluorite-様\n背景…hati32様\nIntro/イントロ…@mariokenta様\nNext/ネクスト…@Weather_man\n-Tags/タグ-\n#all #platformer #game #tutorial #music #scratch #art #animations #stories#doozumann #snow#snowwarld\n#hakaiheiki1gou\n-Memo-/メモ\n12月15日…傾向3ページ！\n12月18日…傾向1ページ！ありがとうぉぉぉ！\n12月20日…参照数10000突破！

@Stage\n\nwhen flag clicked\n\nstop all sounds\n\nwhen I receive [game start! v]\nforever\n    play sound [bgm v] until done\nend\n\n@player\n\nwhen flag clicked\nset [☁ p1 v] to []\nset [☁ time v] to [0]\nset [ステージ v] to [0]\nhide\ngo to [front v] layer\ngo [backward v] (2) layers\npoint in direction (90)\nset size to (100) %\ngo to x: (-201) y: (-50)\n\nwhen I receive [game start! v]\ngo to x: (-200) y: (50)\nshow\nforever\n    if <(☁ P1) = []> then\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム3 v)\n            change [動力\(x\) v] by (-0.85)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム2 v)\n            change [動力\(x\) v] by (0.85)\n        end\n        set [動力\(x\) v] to ((動力\(x\)) * (0.9))\n        change x by (動力\(x\))\n        if <<not <mouse down?>> and <not <key (any v) pressed?>>> then\n            switch costume to (コスチューム1 v)\n        end\n        if <touching (ステージ v)?> then\n            change y by (1)\n            if <touching (ステージ v)?> then\n                change y by (1)\n                if <touching (ステージ v)?> then\n                    change y by (1)\n                    if <touching (ステージ v)?> then\n                        change y by (1)\n                        if <touching (ステージ v)?> then\n                            change y by (1)\n                            if <touching (ステージ v)?> then\n                                change x by ((動力\(x\)) * (-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 <(動力\(x\)) > [0]> then\n                                        set [動力\(x\) v] to [-8]\n                                    else\n                                        set [動力\(x\) v] to [8]\n                                    end\n                                    set [動力\(y\) v] to [13]\n                                else\n                                    set [動力\(x\) 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 (ステージ v)?> then\n            if <<<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> or <key (w v) pressed?>> then\n                set [動力\(y\) v] to [15]\n            end\n        end\n        change y by (1)\n        change [動力\(y\) v] by (-1)\n        change y by (動力\(y\))\n        if <touching (ステージ v)?> then\n            change y by ((動力\(y\)) * (-1))\n            set [動力\(y\) v] to [0]\n        end\n        hide variable [動力\(x\) v]\n        if <(x position) > [230]> then\n            if <not <([costume # v] of [ステージ v]) = [12]>> then\n                set [動力\(y\) v] to [0]\n                set [動力\(x\) v] to [0]\n                change [ステージ v] by (1)\n                go to x: (-201) y: (-50)\n                set [☁ p1 v] to [Next]\n                broadcast (Next v)\n            end\n        end\n        if <(y position) < [-170]> then\n            broadcast (死んだ v) and wait\n            start sound [Oops v]\n        end\n        if <<touching (spiks v)?> or <touching (snow boll v)?>> then\n            start sound [Oops v]\n            broadcast (死んだ v) and wait\n        end\n    end\nend\n\nhide\n\nshow\n\nchange y by (1)\n\nwhen flag clicked\nforever\n    if <(y position) < [-120]> then\n        broadcast (AWA v)\n    end\n    wait (3) seconds\nend\n\ndefine お前はもう死んでいる\nswitch costume to (コスチューム1 v)\nset [動力\(y\) v] to [0]\nset [動力\(x\) v] to [0]\nbroadcast (飛んで飛んで飛んで飛んで飛んで回って回って回って回ーるー v)\nrepeat (5)\n    change y by (10)\nend\nrepeat (3)\n    change y by (7)\nend\nrepeat (3)\n    change y by (4)\nend\nrepeat (3)\n    change y by (2)\nend\nrepeat (2)\n    change y by (-2)\nend\nrepeat (3)\n    change y by (-5)\nend\nrepeat (3)\n    change y by (-7)\nend\nrepeat until <(y position) < [-170]>\n    change y by (-15)\nend\nset rotation style [don't rotate v]\ngo to x: (-201) y: (-50)\n\nお前はもう死んでいる\n\nwhen I receive [飛んで飛んで飛んで飛んで飛んで回って回って回って回ーるー v]\nset rotation style [all around v]\nrepeat until <(y position) < [-170]>\n    turn right (15) degrees\nend\n\nset size to (100) %\nset rotation style [don't rotate v]\ngo to x: (-201) y: (-50)\nshow\ngo to [front v] layer\n\nhide\n\nwhen I receive [死んだ v]\nお前はもう死んでいる\n\nwhen I receive [隠せ v]\nhide\n\nif <touching (_edge_ v)?> then\n    broadcast (SHIBUKI v)\n    if <<<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> or <key (w v) pressed?>> then\n        set [動力\(y\) v] to [6]\n        change [動力\(y\) v] by (-0.2)\n        change y by ((動力\(y\)) * (0.5))\n    end\nend\n\nstop [this script v]\n\nwhen I receive [game start! v]\nshow variable [☁ time v]\nset [☁ time v] to [0]\nforever\n    wait (1) seconds\n    change [☁ time v] by (1)\n    if <(ステージ) = [11]> then\n        wait (0.5) seconds\n        stop [all v]\n    end\nend\n\nbroadcast (game start! v)\n\n@ステージ\n\nwhen I receive [game start! v]\nshow\ngo to x: (0) y: (-19)\n\nwhen I receive [プディング v]\nnext costume\n\nwhen I receive [隠せ v]\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\ngo to [front v] layer\n\ngo to [front v] layer\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [back v] layer\nhide\n\nwhen I receive [game start! v]\nshow\n\n@spiks\n\nwhen I receive [隠せ v]\nhide\n\nwhen flag clicked\nhide\ngo to [front v] layer\n\nwhen I receive [game start! v]\nshow\ngo to x: (0) y: (-19)\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\n\nwhen I receive [プディング v]\ngo to x: (0) y: (0)\nnext costume\n\nwhen flag clicked\ngo to [back v] layer\ngo [forward v] (1) layers\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nhide\n\nshow\n\n@snow\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset size to (100) %\nhide\n\nwhen I start as a clone\nshow\nrepeat until <<touching (ステージ v)?> or <[-177] > (y position)>>\n    change y by (-7)\n    if <<touching (spiks v)?> and <<touching (snow boll v)?> and <touching (player v)?>>> then\n        delete this clone\n    end\nend\nswitch costume to (コスチューム2 v)\nwait (0.5) seconds\nrepeat (10)\n    wait (0.05) seconds\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [game start! v]\nforever\n    go to (random position v)\n    set y to (178)\n    wait (pick random (0.1) to (0.3)) seconds\n    create clone of (_myself_ v)\nend\n\n@サムネ\n\nwhen flag clicked\nhide\nset [ghost v] effect to (100)\nshow\n\nforever\n    go to [front v] layer\nend\n\n@snow boll\n\nwhen flag clicked\npoint in direction (90)\nhide\nforever\n    if <<([costume # v] of [ステージ v]) = [7]> or <([costume # v] of [ステージ v]) = [10]>> then\n        wait (pick random (1) to (2.5)) seconds\n        create clone of (_myself_ v)\n    else\n        hide\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nif <<([costume # v] of [ステージ v]) = [7]> or <([costume # v] of [ステージ v]) = [10]>> then\n    show\nelse\n    hide\nend\ngo to x: (207) y: (-55)\nrepeat until <[-230] > (x position)>\n    change x by (-10)\n    turn left (15) degrees\n    if <<([costume # v] of [ステージ v]) = [7]> or <([costume # v] of [ステージ v]) = [10]>> then\n        show\n    else\n        hide\n    end\nend\ndelete this clone\n\n@intro\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nreset timer\nstart sound [PIKASONIC - Myself v]\nクローン [icon]\nset size to (100) %\nset [kesu v] to [0]\nset [削除 v] to [0]\nset [さくじょ v] to [0]\nset [いいよ v] to [0]\nwait until <[.35] < (timer)>\nrepeat (5)\n    クローン [まく]\n    change [brightness v] effect by (-5)\n    wait (.1) seconds\nend\nクローン [まく2]\nクローン [背景]\nwait until <[2] < (timer)>\nクローン [たま]\nclear graphic effects\nwait until <(いいよ) = [1]>\nset [brightness v] effect to (0)\nクローン [たまのまく]\nwait (.2) seconds\nset [brightness v] effect to (100)\nクローン [たまのまく]\nclear graphic effects\nset [brightness v] effect to (-10)\n高速化 [15] [50]\nclear graphic effects\nswitch costume to (ブランク v)\nrepeat (9)\n    next costume\n    create clone of (_myself_ v)\nend\nwait until <[6] < (timer)>\nクローン [背景2]\ngo to x: (-100) y: (0)\n高速化 [15] [25]\nクローン [D上]\nwait until <[6.8] < (timer)>\ngo to x: (100) y: (0)\n高速化 [15] [25]\nクローン [D右]\nwait until <[7.76] < (timer)>\ngo to x: (0) y: (-80)\n高速化 [15] [25]\nクローン [D下]\nwait until <[9.22] < (timer)>\nクローン [まる]\nwait (1) seconds\nbroadcast (game start! v)\n\ndefine クローン (id)\nswitch costume to (id)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    go to x: (0) y: (-200)\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) * (0.1))\n    end\n    wait until <(いいよ) = [1]>\n    delete this clone\nelse\n    if <(costume [number v]) = [2]> then\n        switch costume to (ブランク v)\n        set size to (100) %\n        switch costume to (まく v)\n        point in direction (45)\n        go to x: (-240) y: (-180)\n        repeat until <(round (direction)) = [90]>\n            turn right (((90) - (direction)) * (0.15)) degrees\n        end\n        delete this clone\n    else\n        if <(costume [number v]) = [3]> then\n            switch costume to (ブランク v)\n            set size to (100) %\n            switch costume to (まく2 v)\n            point in direction (45)\n            go to x: (-240) y: (-185)\n            repeat until <(round (direction)) = [181]>\n                turn right (((181) - (direction)) * (0.15)) degrees\n            end\n            delete this clone\n        else\n            if <(costume [number v]) = [4]> then\n                go to x: (0) y: (45)\n                point in direction (90)\n                set size to (100) %\n                set [power v] to [12]\n                set [ghost v] effect to (100)\n                go [backward v] (2) layers\n                repeat until <(y position) < [45]>\n                    change [ghost v] effect by (-5)\n                    change y by (Power)\n                    change [power v] by (-1.5)\n                end\n                set [いいよ v] to [1]\n                delete this clone\n            else\n                if <(costume [number v]) = [5]> then\n                    point in direction (90)\n                    go to x: (0) y: (0)\n                    clear graphic effects\n                    repeat until <(さくじょ) = [1]>\n                        go to [back v] layer\n                    end\n                    delete this clone\n                else\n                    if <(costume [number v]) = [6]> then\n                        point in direction (90)\n                        go to x: (0) y: (0)\n                        set size to (100) %\n                        repeat until <(round (size)) = [1250]>\n                            switch costume to (ブランク v)\n                            change size by (((1250) - (size)) * (.2))\n                            switch costume to (たまのまく v)\n                        end\n                        delete this clone\n                    else\n                        if <<[6] < (costume [number v])> and <(costume [number v]) < [17]>> then\n                            go to x: (0) y: (0)\n                            point in direction (90)\n                            show\n                            set size to (75) %\n                            go to [front v] layer\n                            set [ghost v] effect to (100)\n                            set [s v] to [20]\n                            repeat (40)\n                                go to [front v] layer\n                                set [s v] to (((s) * (.75)) + (((100) - (size)) * (.15)))\n                                change size by (s)\n                                change [ghost v] effect by (-5)\n                            end\n                            wait until <((4) + ((costume [number v]) / (20))) < (timer)>\n                            set [a v] to [0]\n                            repeat (30)\n                                point in direction ((([tan v] of ((a) * (150)) ) * (8)) + (90))\n                                change [a v] by ((1) / (30))\n                            end\n                            repeat until <(round (direction)) = [90]>\n                                turn right (((90) - (direction)) * (0.2)) degrees\n                                change [ghost v] effect by (10)\n                            end\n                            delete this clone\n                        else\n                            if <<[16] < (costume [number v])> and <(costume [number v]) < [25]>> then\n                                set [なめらか v] to (pick random (5) to (25))\n                                repeat until <(round (なめらか)) = [0]>\n                                    change [なめらか v] by (((0) - (なめらか)) * (.15))\n                                    move (なめらか) steps\n                                end\n                                repeat (10)\n                                    change [ghost v] effect by (10)\n                                    change size by (((0) - (size)) * (.05))\n                                end\n                                delete this clone\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    wait until <[91] < (direction)>\n    set [削除 v] to [1]\nelse\n    if <(costume [number v]) = [2]> then\n        wait until <(削除) = [1]>\n        delete this clone\n    else\n        if <(costume [number v]) = [25]> then\n            set [ghost v] effect to (100)\n            point in direction (90)\n            go to x: (0) y: (0)\n            set size to (50) %\n            repeat until <(round (size)) = [100]>\n                change size by (((100) - (size)) * (.2))\n                change [ghost v] effect by (-5)\n            end\n            set [さくじょ v] to [1]\n            repeat until <(kesu) = [1]>\n                go to [back v] layer\n            end\n            delete this clone\n        else\n            if <(costume [number v]) = [26]> then\n                point in direction (90)\n                go to x: (-240) y: (0)\n                set [s v] to [0]\n                repeat (40)\n                    go to [front v] layer\n                    set [s v] to (((s) * (.75)) + (((0) - (x position)) * (.12)))\n                    change x by (s)\n                end\n            else\n                if <(costume [number v]) = [27]> then\n                    point in direction (90)\n                    go to x: (240) y: (0)\n                    set [s v] to [0]\n                    repeat (40)\n                        go to [front v] layer\n                        set [s v] to (((s) * (.75)) + (((0) - (x position)) * (.12)))\n                        change x by (s)\n                    end\n                else\n                    if <(costume [number v]) = [28]> then\n                        point in direction (90)\n                        go to x: (0) y: (-180)\n                        set [s v] to [0]\n                        repeat (40)\n                            go to [front v] layer\n                            set [s v] to (((s) * (.75)) + (((0) - (y position)) * (.12)))\n                            change y by (s)\n                        end\n                    else\n                        if <(costume [number v]) = [29]> then\n                            go to x: (0) y: (0)\n                            set size to (100) %\n                            repeat until <(round (size)) = [1300]>\n                                go to [front v] layer\n                                switch costume to (ブランク v)\n                                change size by (((1300) - (size)) * (.15))\n                                switch costume to (まる v)\n                            end\n                            set [kesu v] to [1]\n                            wait (.5) seconds\n                            repeat until <(round (size)) = [10]>\n                                go to [front v] layer\n                                switch costume to (ブランク v)\n                                change size by (((10) - (size)) * (.15))\n                                switch costume to (まる v)\n                                change [ghost v] effect by (5)\n                            end\n                            delete this clone\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 高速化 (数) (大きさ)\nset size to (大きさ) %\nrepeat (数)\n    switch costume to (join [_] (pick random (1) to (8)))\n    point in direction (pick random (1) to (360))\n    create clone of (_myself_ v)\nend\nset size to (100) %\n\nwhen I start as a clone\nif <<(costume [number v]) = [26]> or <<(costume [number v]) = [27]> or <(costume [number v]) = [28]>>> then\n    wait until <[8.21] < (timer)>\n    repeat until <<(round (direction)) = [115]> and <(round (size)) = [120]>>\n        turn right (((115) - (direction)) * (.2)) degrees\n        change size by (((120) - (size)) * (.2))\n    end\n    wait (.75) seconds\n    set [kesu v] to [1]\n    delete this clone\nend\n\n@Next level\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [next v]\nif <not <(コース) = [1]>> then\n    start sound [Connect v]\n    go to [front v] layer\n    go [forward v] (1) layers\n    set x to (500)\n    show\n    repeat (6)\n        change x by (-80)\n    end\n    change x by (-15)\n    wait (0.3) seconds\n    repeat (5)\n        change x by (-80)\n    end\n    hide\nend\nbroadcast (プディング v)\nwait (0.3) seconds\nset [☁ p1 v] to []\n\n