”Cold Platformer„   真冬のプラットフォーマー

Instructions:             　 〜雪の世界へ冒険に出かけよう！〜\n　〜Let's go on an adventure to the snowy world！〜\n\n《使い方》《How to use》\n/矢印キーで操作します\n Operate with arrow keys\n/画面の右端に着いたら次のステージへ行きます\n When you reach the right edge of the screen, go to the next stage\n/コースは全部で8ステージあります\n There are 8 courses in total\n/トゲに当たったら死にます\n If you hit a thorn, you will die\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (雪景色2 v)\nbroadcast (Pentro v)\nwait (8) seconds\n\nwhen I receive [スタート v]\nswitch backdrop to (雪景色 v)\nforever\n    wait (2) seconds\n    play sound [snow-dance v] until done\nend\n\n@cube\n\ndefine 初期化\nshow\ngo to x: (-202) y: (0)\nswitch costume to (cube1 v)\nset size to (100) %\nset [ghost v] effect to (100)\npoint in direction (90)\ngo to [front v] layer\ngo [backward v] <key (down arrow v) pressed?> layers\nset [このスプライトのx v] to [0]\nset [このスプライトのy v] to [0]\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nwhen flag clicked\nhide\nset [レベル v] to [0]\n\nwhen I receive [スタート v]\nshow\n初期化\nforever\n    switch costume to (cube1 v)\n    if <key (down arrow v) pressed?> then\n        switch costume to (cube2 v)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        change [このスプライトのx v] by (0.7)\n        if <key (down arrow v) pressed?> then\n            switch costume to (cube2 v)\n        else\n            switch costume to (cube1 v)\n        end\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        change [このスプライトのx v] by (-0.7)\n        if <key (down arrow v) pressed?> then\n            switch costume to (cube2 v)\n        else\n            switch costume to (cube1 v)\n        end\n    end\n    change x by (このスプライトのx)\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 y by (1)\n                            if <touching (地面 v)?> then\n                                change x by ((0) - (このスプライトのx))\n                                change y by (-5)\n                                if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                                    if <(このスプライトのx) > [0]> then\n                                        set [このスプライトのx v] to [-6]\n                                    else\n                                        set [このスプライトのx v] to [6]\n                                    end\n                                    set [このスプライトのy v] to [12]\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    set [このスプライトのx v] to ((このスプライトのx) * (0.93))\n    change [このスプライトのy v] by (-1)\n    change y by (このスプライトのy)\n    if <touching (地面 v)?> 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 <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <touching (地面 v)?> then\n            set [このスプライトのy v] to [15]\n        end\n    end\n    change y by (1)\n    if <[220] < (x position)> then\n        broadcast (next v)\n        hide\n        wait (2.5) seconds\n        初期化\n    end\n    if <(y position) < [-170]> then\n        初期化\n    end\n    if <touching (トゲ v)?> then\n        switch costume to (cube1 v)\n        set rotation style [all around v]\n        change y by (4)\n        set [このスプライトのy v] to [15]\n        set [このスプライトのx v] to [10]\n        repeat until <(y position) < [-180]>\n            turn right (14) degrees\n            change [このスプライトのy v] by (-1)\n            change y by (このスプライトのy)\n        end\n        初期化\n    end\n    if <key (r v) pressed?> then\n        初期化\n    end\nend\n\nwhen flag clicked\nforever\n    change [ターボ v] by (1)\nend\n\nwhen flag clicked\nforever\n    set [ターボ v] to [0]\n    wait (0.001) seconds\n    if <[3] < (ターボ)> then\n        stop [all v]\n    end\nend\n\nwhen [timer v] > (time)\nhide\n\n@地面\n\nwhen flag clicked\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nswitch costume to (コスチューム1 v)\nhide\nforever\n    go to x: (0) y: (0)\n    if <(costume [number v]) = [9]> then\n        set [ゲームの進行具合 v] to [終わり]\n    end\n    go to [back v] layer\n    go [forward v] (2) layers\nend\n\nwhen I receive [スタート v]\nswitch costume to (コスチューム1 v)\nshow\n\nwhen I receive [next v]\nwait (1) seconds\nset size to (100) %\nnext costume\n\n@NEXT\n\ndefine クローン (クローンid)\nswitch costume to (クローンid)\ncreate clone of (_myself_ v)\n\nwhen I receive [next v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I start as a clone\ngo to x: (468) y: (0)\nshow\nrepeat until <(round (x position)) = [0]>\n    go to [front v] layer\n    change x by (((0) - (x position)) / (7))\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    delete this clone\nend\ndelete this clone\n\n@トゲ\n\nwhen flag clicked\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nswitch costume to (コスチューム2 v)\ngo [forward v] (1) layers\nhide\nforever\n    go to x: (0) y: (0)\n    go to [back v] layer\n    go [forward v] (1) layers\nend\n\nwhen I receive [スタート v]\nshow\n\nwhen I receive [next v]\nwait (1) seconds\nnext costume\n\n@サムネイル\n\nwhen flag clicked\nset x to (0)\nset y to (340)\nswitch costume to (雪景色2 v)\nhide\nforever\n    go to [front v] layer\n    set [time v] to (timer)\nend\n\nwhen [timer v] > (time)\nswitch costume to (雪景色2 v)\nhide\nset x to (0)\nset y to (340)\ngo to [front v] layer\nshow\nrepeat (36)\n    go to [front v] layer\n    change y by (((-1) * (y position)) / (6))\n    set volume to ((-100) / (36)) %\nend\nforever\n    go to [front v] layer\n    go [backward v] (1) layers\nend\n\n@time\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ゲームの進行具合 v] to [イントロ]\n\nwhen I receive [スタート v]\nset [ゲームの進行具合 v] to [ゲーム中]\n\nwhen I receive [スタート v]\nreset timer\nrepeat until <(ゲームの進行具合) = [終わり]>\n    time [-220] [-140] []\nend\n\ndefine time (x) (y) (桁)\ngo to [front v] layer\nbroadcast (削除 v)\nset [time表示用 v] to [0]\nset size to (大きさ) %\ngo to x: ((x) + ((0.425) * (size))) y: ((y) - ((0.25) * (size)))\nswitch costume to (time v)\ncreate clone of (_myself_ v)\nchange x by ((((42.5) + (10)) * (size)) / (100))\nrepeat (length of ([floor v] of (timer) ))\n    change x by (((11.5) * (size)) / (100))\n    change [time表示用 v] by (1)\n    switch costume to ((letter (TIME表示用) of (timer)) + (2))\n    create clone of (_myself_ v)\n    change x by (((11.5) * (size)) / (100))\nend\nif <not <((桁) * (1)) = [0]>> then\n    change x by ((0.065) * (size))\n    change [time表示用 v] by (1)\n    switch costume to (透明 v)\n    create clone of (_myself_ v)\n    change x by ((0.065) * (size))\n    repeat ((桁) - (letter (1) of ((桁) - (3))))\n        change x by (((11.5) * (size)) / (100))\n        change [time表示用 v] by (1)\n        switch costume to ((letter (TIME表示用) of (timer)) + (2))\n        create clone of (_myself_ v)\n        change x by (((11.5) * (size)) / (100))\n    end\nend\nhide\n\nwhen I start as a clone\ngo to [back v] layer\ngo [forward v] (4) layers\nshow\n\nwhen flag clicked\nhide\nswitch costume to (透明 v)\nset [大きさ v] to [100]\n\nwhen I receive [削除 v]\ndelete this clone\n\n@イントロ\n\nset [y・x v] to [250]\nrepeat (((全体のサイズ) / (4)) * (10))\n    go to x: (Y・X) y: (200)\n    pen down\n    go to x: (Y・X) y: (-200)\n    pen up\n    change [y・x v] by (() - ((全体のサイズ) / (5)))\nend\n\ndefine 枠\n絵画 　　　x (枠x) y (枠y) 角度 (枠向) 大きさ ((定義に入力する変数) mod (100))\n\ndefine 描き描き太郎 (x) (y) (角度) (サイズ)\nset [度 v] to (角度)\nset [size v] to (サイズ)\nrepeat (うえい)\n    repeat (5)\n        go to x: ((([sin v] of (度) ) * (size)) + (x)) y: ((([cos v] of (度) ) * (size)) + (y))\n        change [度 v] by (90)\n        pen down\n    end\n    pen up\n    change [size v] by (全体のサイズ)\nend\npen up\n\ndefine ● (太さ)\npoint in direction (90)\nswitch costume to (pentro v)\nset size to ((1) / ()) %\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (350)\nset pen color to (#ffffff)\nset pen size to ((太さ) + (50))\npen down\nrepeat (360)\n    move (6) steps\n    turn right (1) degrees\nend\npen up\nset pen color to (#000000)\nset pen size to (太さ)\npen down\nrepeat (360)\n    move (6) steps\n    turn right (1) degrees\nend\npen up\n\ndefine name (x) (y) (向き) (大きさ)\nswitch costume to (pentro v)\nset size to ((1) / ()) %\ngo to x: (x) y: (y)\nswitch costume to (template v)\nset size to ((大きさ) - ((100) - (全体のサイズ))) %\npoint in direction (向き)\nstamp\n\ndefine 背景\npoint in direction (90)\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nset size to (100) %\nstamp\n\ndefine 芋虫絵画専用\nrepeat (芋虫　長さ)\n    set y to ((芋虫y) + (([sin v] of (進行度) ) * ((全体のサイズ) * (1))))\n    set x to ((芋虫x) + (([cos v] of (進行度) ) * ((全体のサイズ) * (2))))\n    pen down\n    change [進行度 v] by (芋虫　速さ)\nend\nchange [進行度 v] by ((-1) - (芋虫　速さ))\nrepeat (芋虫　長さ)\n    set y to ((芋虫y) + (([sin v] of (進行度) ) * ((全体のサイズ) * (1))))\n    set x to ((芋虫x) + (([cos v] of (進行度) ) * ((全体のサイズ) * (2))))\n    change [進行度 v] by (() - (芋虫　速さ))\nend\nchange [進行度 v] by (芋虫　速さ)\npen up\n\ndefine 芋虫\n\ndefine 芋虫絵画専用2\nrepeat (芋虫　長さ)\n    set y to ((芋虫y) + (([sin v] of (進行度2) ) * ((全体のサイズ) * (1))))\n    set x to ((芋虫x) + (([cos v] of (進行度2) ) * ((全体のサイズ) * (2))))\n    pen down\n    change [進行度2 v] by (芋虫　速さ)\nend\nchange [進行度2 v] by ((-1) - (芋虫　速さ))\nrepeat (芋虫　長さ)\n    set y to ((芋虫y) + (([sin v] of (進行度2) ) * ((全体のサイズ) * (1))))\n    set x to ((芋虫x) + (([cos v] of (進行度2) ) * ((全体のサイズ) * (2))))\n    change [進行度2 v] by (() - (芋虫　速さ))\nend\nchange [進行度2 v] by (芋虫　速さ)\npen up\n\ndefine 〇 (太さ) (x) (y) (大きさ) (粗さ) (透明度)\nset pen size to (太さ)\nset pen color to (#ff0000)\nset pen (saturation v) to (-100)\nset pen (transparency v) to (透明度)\nset [エフェクト〇 v] to [0]\nrepeat (360)\n    pen up\n    set x to ((([sin v] of (エフェクト〇) ) * (大きさ)) + (x))\n    set y to ((([cos v] of (エフェクト〇) ) * (大きさ)) + (y))\n    change [エフェクト〇 v] by (粗さ)\n    pen down\nend\npen up\n\ndefine 背景柄\n\npen up\nset pen size to ((全体のサイズ) / (15))\nset pen color to (#10ff00)\nset [y・x v] to [200]\nrepeat (((全体のサイズ) / (5)) * (10))\n    go to x: (-250) y: (Y・X)\n    pen down\n    go to x: (250) y: (Y・X)\n    pen up\n    change [y・x v] by (() - ((全体のサイズ) / (5)))\nend\n\nwhen I receive [pentro v]\nerase all\nreset timer\ngo to x: (0) y: (0)\nswitch costume to (pentro v)\nset size to ((1) / (0)) %\nswitch costume to (コスチューム1 v)\nhide\nset [向き v] to [90]\nset [大きさ v] to [500]\nset [グ湾 v] to [50]\nwait (4) seconds\nrepeat (100)\n    erase all\n    ●● (〆制御) []\n    change [〆制御 v] by (((600) - (〆制御)) / (20))\nend\nset [向き v] to [90]\nset [大きさ v] to [500]\nset [グ湾 v] to [50]\nrepeat (20)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    set [向き v] to ((90) + (([cos v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\nend\nset [向き v] to [90]\nset [グ湾 v] to [25]\nrepeat (15)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    set [向き v] to ((90) + (([cos v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\n    change [全体のサイズ v] by (((40) - (全体のサイズ)) / (7))\nend\nset [向き v] to [90]\nset [グ湾 v] to [25]\nrepeat (15)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    set [向き v] to ((90) + (([cos v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\n    change [全体のサイズ v] by (((100) - (全体のサイズ)) / (7))\nend\nrepeat (4)\n    set [向き v] to [90]\n    set [グ湾 v] to [25]\n    repeat (10)\n        erase all\n        背景\n        枠\n        name (枠x) (枠y) (向き) (大きさ)\n        芋虫\n        ● (〆制御)\n        change [〆制御 v] by (((0) - (〆制御)) / (7))\n        set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n        change [大きさ v] by (1)\n        set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n        set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n        set [向き v] to ((90) + (([cos v] of (2) ) * (グ湾)))\n        change [2 v] by (25)\n        change [グ湾 v] by (((0) - (グ湾)) / (7))\n        set [芋虫y v] to (枠y)\n        set [芋虫x v] to (枠x)\n        change [全体のサイズ v] by (((100) - (全体のサイズ)) / (7))\n    end\nend\nset [向き v] to [90]\nset [グ湾 v] to [25]\nrepeat (15)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\n    change [全体のサイズ v] by (((100) - (全体のサイズ)) / (7))\n    change [向き v] by (((-90) - (向き)) / (7))\nend\nset [グ湾 v] to [25]\nrepeat (15)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\n    change [全体のサイズ v] by (((100) - (全体のサイズ)) / (7))\n    change [向き v] by (((90) - (向き)) / (7))\nend\nset [グ湾 v] to [25]\nrepeat (30)\n    erase all\n    背景\n    枠\n    name (枠x) (枠y) (向き) (大きさ)\n    芋虫\n    ● (〆制御)\n    change [〆制御 v] by (((700) - (〆制御)) / (7))\n    set [1 v] to (((1) * (0.75)) + (((100) - (大きさ)) * (0.1)))\n    change [大きさ v] by (1)\n    set [枠x v] to ((0) + (([cos v] of (2) ) * (グ湾)))\n    set [枠y v] to ((0) + (([sin v] of (2) ) * (グ湾)))\n    change [2 v] by (25)\n    change [グ湾 v] by (((0) - (グ湾)) / (7))\n    set [芋虫y v] to (枠y)\n    set [芋虫x v] to (枠x)\n    change [全体のサイズ v] by (((100) - (全体のサイズ)) / (7))\n    change [向き v] by (((90) - (向き)) / (7))\nend\nset [グ湾 v] to [25]\nrepeat (30)\n    erase all\n    ● (〆制御)\n    change [〆制御 v] by (((0) - (〆制御)) / (7))\nend\n\nwhen I receive [pentro v]\nset [進行度 v] to [0]\nset [進行度2 v] to [180]\nset [芋虫　長さ v] to [50]\nset [芋虫　速さ v] to [1.5]\nset [枠向 v] to [0]\nset [枠x v] to [0]\nset [枠y v] to [0]\nset [大きさ v] to [0]\nset [うえい v] to [10]\nset [x v] to [0]\nset [y v] to [0]\nset [向き v] to [90]\nset [大きさ v] to [0]\nset [枠x v] to [0]\nset [枠y v] to [0]\nset [枠向 v] to [0]\nset [芋虫x v] to [0]\nset [芋虫y v] to [0]\nset [全体のサイズ v] to [100]\nset [〆制御 v] to [0]\n\nwhen I receive [pentro v]\nset [ぐふ v] to [0]\nreset timer\nforever\n    set [ぐふ v] to ((timer) + (0.5))\n    repeat until <(ぐふ) < (timer)>\n        change [定義に入力する変数 v] by (((全体のサイズ) - (定義に入力する変数)) / (5))\n    end\n    set [定義に入力する変数 v] to [0]\nend\n\nwhen I receive [pentro v]\nset volume to (0) %\nplay sound [y2meta2 v] until done\nbroadcast (スタート v)\n\nwhen I receive [pentro v]\n\nset [e v] to [100]\nset [b v] to [0]\nrepeat (20)\n    change [e v] by (((0) - (E)) / (5))\n    change [b v] by (((100) - (B)) / (10))\n    〇 (E) [0] [0] [100] [1] (B)\nend\n\ndefine paa (太さ) (x) (y) (大きさ) (粗さ) (透明度)\nset pen size to (太さ)\nset pen color to (#ffffff)\nset pen (transparency v) to (透明度)\nset [エフェクト〇 v] to [0]\npoint in direction (80)\nmove (10) steps\nrepeat (18)\n    turn right (100) degrees\n    pen up\n    move (大きさ) steps\n    set x to ((([sin v] of (エフェクト〇) ) * (大きさ)) + (x))\n    set y to ((([cos v] of (エフェクト〇) ) * (大きさ)) + (y))\n    change [エフェクト〇 v] by (粗さ)\n    pen down\n    move (() - (大きさ)) steps\nend\npen up\n\nwhen I receive [pentro v]\nwait (8) seconds\nset [e v] to [150]\nset [b v] to [0]\nset [a v] to [0]\nrepeat (30)\n    change [e v] by (((0) - (E)) / (7))\n    change [a v] by (((100) - (A)) / (7))\n    change [b v] by (((100) - (B)) / (20))\n    paa (E) [] [] (A) [100] (B)\nend\n\n〇 [] [] [] [] [] []\n\ndefine ●● (太さ) (透明度)\ngo to x: (0) y: (0)\nset pen color to (#ff0000)\nset pen (brightness v) to (-100)\nset pen size to (太さ)\npen down\npen up\n\ndefine 絵画 　　　x (x) y (y) 角度 (角度) 大きさ (大きさ)\nset pen size to ((全体のサイズ) / (5))\nset pen color to (#85ff89)\n描き描き太郎 (x) (y) (角度) (大きさ)\n背景柄\nset pen size to ((全体のサイズ) / (5))\nset pen color to (#00bb1c)\n描き描き太郎 (x) (y) (角度) ((大きさ) - ((全体のサイズ) / (5)))\n\ndefine 絵画 　　　x (x) y (y) 角度 (角度) 大きさ (大きさ)\n\nwhen I receive [pentro v]\nwait (9) seconds\nset [e v] to [100]\nset [b v] to [0]\nrepeat (20)\n    change [e v] by (((0) - (E)) / (5))\n    change [b v] by (((100) - (B)) / (10))\n    effect (E) [0] [0] [100] [1] (B) []\nend\n\ndefine effect (太さ) (x) (y) (大きさ) (粗さ) (透明度) (向き)\nset pen size to (太さ)\nset pen color to (#ff0000)\nset pen (saturation v) to (-100)\nset pen (transparency v) to (透明度)\nset [エフェクト〇 v] to (向き)\nrepeat (90)\n    pen up\n    set x to ((([sin v] of (エフェクト〇) ) * (大きさ)) + (x))\n    set y to ((([cos v] of (エフェクト〇) ) * (大きさ)) + (y))\n    change [エフェクト〇 v] by (粗さ)\n    pen down\nend\npen up\n\nwhen I receive [pentro v]\nwait (9.4) seconds\nset [a v] to [100]\nset [c v] to [0]\nrepeat (20)\n    change [a v] by (((0) - (A)) / (5))\n    change [c v] by (((100) - (C)) / (10))\n    effect (A) [0] [0] [100] [1] (A) [90]\nend\n\nwhen I receive [pentro v]\nwait (9.8) seconds\nset [d v] to [100]\nset [f v] to [0]\nrepeat (20)\n    change [d v] by (((0) - (D)) / (5))\n    change [f v] by (((100) - (F)) / (10))\n    effect (D) [0] [0] [100] [1] (F) [180]\nend\n\nwhen I receive [pentro v]\nwait (10.2) seconds\nset [e v] to [100]\nset [b v] to [0]\nrepeat (20)\n    change [e v] by (((0) - (E)) / (5))\n    change [b v] by (((100) - (B)) / (10))\n    effect (E) [0] [0] [100] [1] (B) [-90]\nend\n\nwhen flag clicked\nset volume to (0) %\nwait () seconds\nrepeat (50)\n    change volume by (2)\n    wait (0.01) seconds\nend\nset volume to (100) %\n\n@雪\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nset [s v] to (pick random (1) to (50))\nset size to (s) %\nset [雪x v] to (pick random (1) to (12))\nset [雪y v] to (pick random (1) to (-10))\npoint in direction (130)\nset rotation style [all around v]\nif <(size) < [40]> then\n    go to [back v] layer\nend\nif <[40] < (size)> then\n    go to [front v] layer\nend\nrepeat until <touching (_edge_ v)?>\n    turn right ((s) / (10)) degrees\n    change x by ((s) - ((s) * (1.1)))\n    change y by ((雪y) - ((雪y) * (0.7)))\nend\ndelete this clone\n\nwhen I receive [スタート v]\nhide\npoint in direction (28)\nforever\n    go to x: (pick random (-190) to (190)) y: (170)\n    repeat (5)\n        create clone of (_myself_ v)\n        wait () seconds\n    end\nend\n\n@雪2\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nset [s v] to (pick random (1) to (50))\nset size to (s) %\nset [雪x v] to (pick random (1) to (12))\nset [雪y v] to (pick random (1) to (-10))\npoint in direction (130)\nset rotation style [all around v]\nif <(size) < [40]> then\n    go to [back v] layer\nend\nif <[40] < (size)> then\n    go to [front v] layer\nend\nrepeat until <touching (_edge_ v)?>\n    turn right ((s) / (10)) degrees\n    change x by ((s) - ((s) * (1.1)))\n    change y by ((雪y) - ((雪y) * (0.7)))\nend\ndelete this clone\n\nwhen I receive [スタート v]\nhide\npoint in direction (28)\nforever\n    go to x: (220) y: (pick random (-190) to (190))\n    repeat (5)\n        create clone of (_myself_ v)\n        wait () seconds\n    end\nend\n\n