DRAW　Platformer!　winter～

Instructions: 日本語は下\n1Pありがと\nEnglish\nOperate with arrow keys! Mobile ready! Compatible with WASD!\n\n~How to draw~\nYou can press the pencil button and draw from where you want to write. You can erase all with the eraser button.\nPress the pencil button twice to move the character.\nWhen drawing, TIME does not advance.\n矢印キーで操作！モバイル対応！WASDにも対応！\n\n～描き方～\n鉛筆ボタンを押して書きたいところから長押しで描けます。消しゴムボタンで全消しできます。\n鉛筆ボタンを二回押すとキャラを動かせます。\n描いてるときはTIMEは進みません。

@Stage\n\nwhen I receive [gamestart v]\nhide variable [time v]\nset [time v] to [0]\nforever\n    if <not <(pen) = [1]>> then\n        wait (1) seconds\n        change [time v] by (1)\n    end\nend\n\nwhen flag clicked\nhide variable [time v]\nset [time v] to [0]\n\nwhen I receive [gamestart v]\nforever\n    if <([costume # v] of [stage v]) = [11]> then\n        show variable [time v]\n        broadcast (CLEAR v)\n        stop [other scripts in sprite v]\n        stop [this script v]\n    end\nend\n\n@intro\n\nwhen flag clicked\npoint in direction (90)\nstart sound [音 v]\nrepeat (10)\n    switch costume to (b v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    switch costume to (a v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\nend\nswitch costume to (テきスト v)\ncreate clone of (_myself_ v)\nwait (1.2) seconds\nswitch costume to (c v)\ncreate clone of (_myself_ v)\nswitch costume to (背景 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [3]> then\n    switch costume to (a v)\n    point in direction (90)\n    set size to (0) %\n    go to x: (0) y: (0)\n    show\n    set [brightness v] effect to (0)\n    repeat (40)\n        change [brightness v] effect by (-0.3)\n        switch costume to (なし v)\n        change size by ((size) * (.15))\n        switch costume to (a v)\n    end\n    wait (0.1) seconds\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    switch costume to (b v)\n    point in direction (90)\n    set size to (0) %\n    go to x: (0) y: (0)\n    set [brightness v] effect to (0)\n    show\n    repeat (40)\n        switch costume to (なし v)\n        change size by ((size) * (.15))\n        change [brightness v] effect by (-0.3)\n        switch costume to (b v)\n    end\n    wait (0.1) seconds\n    delete this clone\nend\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [2]> then\n    go to [front v] layer\n    set size to (24) %\n    set [ghost v] effect to (100)\n    repeat (38)\n        change size by (2)\n        change [ghost v] effect by (-2.5)\n    end\n    set size to (100) %\n    wait () seconds\n    せん\n    四角\n    point in direction (90)\n    set size to (220) %\n    set [変数 v] to [1]\n    repeat (30)\n        go [forward v] (1) layers\n        set [変数 v] to ((変数) * (1.1))\n        turn right (変数) degrees\n        change size by (-2)\n    end\n    エフェクト\n    扇1\n    扇2\n    switch costume to (テきスト v)\n    repeat (30)\n        go [forward v] (1) layers\n        set [変数 v] to ((変数) * (0.91))\n        turn right (変数) degrees\n        change size by (-2)\n    end\n    repeat until <(direction) < [90]>\n        turn right (1) degrees\n    end\n    set size to (160) %\n    もわん\n    せん\n    エフェクト\n    point in direction (100)\n    set [e v] to [0]\n    repeat (15)\n        set [e v] to (((e) * (0.75)) + (((90) - (direction)) / (5)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-4)\n        go to [front v] layer\n    end\n    point in direction (100)\n    set size to (160) %\n    四角\n    エフェクト\n    もわん\n    set [e v] to [0]\n    repeat (15)\n        set [e v] to (((e) * (0.75)) + (((90) - (direction)) / (5)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-4)\n    end\n    黒\n    wait (0.15) seconds\n    point in direction (100)\n    set size to (140) %\n    エフェクト\n    switch costume to (テスト v)\n    set [e v] to [0]\n    repeat (24)\n        set [e v] to (((e) * (0.75)) + (((90) - (direction)) / (5)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-5)\n    end\n    go [backward v] (1) layers\n    point in direction (100)\n    set size to (140) %\n    扇2\n    右\n    switch costume to (テスト v)\n    set [e v] to [0]\n    repeat (15)\n        set [e v] to (((e) * (0.75)) + (((90) - (direction)) / (5)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-5)\n    end\n    set [どっち v] to [1]\n    エフェクト\n    扇1\n    左\n    point in direction (100)\n    set size to (130) %\n    switch costume to (テスト v)\n    set [e v] to [0]\n    repeat (35)\n        set [e v] to (((e) * (0.75)) + (((90) - (direction)) / (5)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-2)\n    end\n    せん\n    point in direction (90)\n    switch costume to (お先〜 v)\n    create clone of (_myself_ v)\n    switch costume to (テスト v)\n    point in direction (100)\n    set size to (100) %\n    switch costume to (テスト v)\n    set [e v] to [0]\n    repeat (2)\n        set [e v] to (((e) * (0.9)) + (((90) - (direction)) / (10)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-10)\n    end\n    switch costume to (終了 v)\n    create clone of (_myself_ v)\n    switch costume to (テスト v)\n    repeat (43)\n        set [e v] to (((e) * (0.9)) + (((90) - (direction)) / (10)))\n        go to x: ((e) * (5)) y: ((e) * (5))\n        turn right (e) degrees\n        change size by (-6)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    set [ghost v] effect to (0)\n    repeat (50)\n        go to [front v] layer\n        change [ghost v] effect by (2)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [6]> then\n    もわーん\nend\n\ndefine もわーん\nset size to (100) %\nset [ghost v] effect to (0)\npoint in direction (90)\nswitch costume to (もわん v)\nrepeat (40)\n    change size by (4.5)\n    change [ghost v] effect by (4)\nend\ndelete this clone\n\ndefine もわん\nswitch costume to (もわん v)\ncreate clone of (_myself_ v)\nswitch costume to (テきスト v)\n\nwhen I start as a clone\nif < (costume [name v]) contains [d]?> then\n    set y to (120)\n    if < (costume [name v]) contains [1]?> then\n        set x to (item (1) of [あれ v])\n    else\n        if < (costume [name v]) contains [2]?> then\n            set x to (item (2) of [あれ v])\n        else\n            if < (costume [name v]) contains [3]?> then\n                set x to (item (3) of [あれ v])\n            else\n                if < (costume [name v]) contains [4]?> then\n                    set x to (item (4) of [あれ v])\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif < (costume [name v]) contains [e]?> then\n    set y to (0)\n    if < (costume [name v]) contains [1]?> then\n        set x to (item (1) of [あれ v])\n    else\n        if < (costume [name v]) contains [2]?> then\n            set x to (item (2) of [あれ v])\n        else\n            if < (costume [name v]) contains [3]?> then\n                set x to (item (3) of [あれ v])\n            else\n                if < (costume [name v]) contains [4]?> then\n                    set x to (item (4) of [あれ v])\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif < (costume [name v]) contains [f]?> then\n    set y to (-120)\n    if < (costume [name v]) contains [1]?> then\n        set x to (item (1) of [あれ v])\n    else\n        if < (costume [name v]) contains [2]?> then\n            set x to (item (2) of [あれ v])\n        else\n            if < (costume [name v]) contains [3]?> then\n                set x to (item (3) of [あれ v])\n            else\n                if < (costume [name v]) contains [4]?> then\n                    set x to (item (4) of [あれ v])\n                end\n            end\n        end\n    end\nend\n\ndefine エフェクト\nswitch costume to (d1 v)\ncreate clone of (_myself_ v)\nswitch costume to (d2 v)\ncreate clone of (_myself_ v)\nswitch costume to (d3 v)\ncreate clone of (_myself_ v)\nswitch costume to (d4 v)\ncreate clone of (_myself_ v)\nswitch costume to (e1 v)\ncreate clone of (_myself_ v)\nswitch costume to (e2 v)\ncreate clone of (_myself_ v)\nswitch costume to (e3 v)\ncreate clone of (_myself_ v)\nswitch costume to (e4 v)\ncreate clone of (_myself_ v)\nswitch costume to (f1 v)\ncreate clone of (_myself_ v)\nswitch costume to (f2 v)\ncreate clone of (_myself_ v)\nswitch costume to (f3 v)\ncreate clone of (_myself_ v)\nswitch costume to (f4 v)\ncreate clone of (_myself_ v)\nswitch costume to (テきスト v)\n\nwhen I start as a clone\nif <<< (costume [name v]) contains [d]?> or < (costume [name v]) contains [e]?>> or < (costume [name v]) contains [f]?>> then\n    clear graphic effects\n    if <(どっち) = [1]> then\n        set [brightness v] effect to (100)\n    end\n    set size to (100) %\n    repeat (20)\n        switch costume to (なし v)\n        change [fisheye v] effect by (90)\n        change size by (1)\n        switch costume to (d1 v)\n        change [ghost v] effect by (3)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [19]> then\n    set [brightness v] effect to (-30)\n    go to [back v] layer\n    repeat (105)\n        go to x: (([sin v] of ((timer) * (1000)) ) * (((a) - (100)) * (0.09))) y: (([sin v] of ((timer) * (800)) ) * (((a) - (100)) * (0.06)))\n    end\n    set [brightness v] effect to (-10)\n    repeat (115)\n        go to x: (([sin v] of ((timer) * (1000)) ) * (((a) - (100)) * (0.03))) y: (([sin v] of ((timer) * (800)) ) * (((a) - (100)) * (0.02)))\n    end\n    wait (0.2) seconds\n    delete this clone\nend\n\nwhen flag clicked\nwait (4) seconds\nswitch costume to (なし v)\nset [count v] to [0]\nrepeat (5)\n    set [speed v] to [10]\n    switch costume to (シェ v)\n    create clone of (_myself_ v)\n    switch costume to (シェブ v)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    change [count v] by (1)\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [20]> then\n    go to [back v] layer\n    go [forward v] (1) layers\n    show\n    switch costume to (シェ v)\n    go to x: (-280) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    if < ((Count) / (2)) contains [.]?> then\n        set [brightness v] effect to (100)\n    end\n    repeat until <(x position) > [-10]>\n        change x by ([speed v] of [intro v])\n    end\n    switch costume to (シェブロ v)\n    set x to (0)\n    repeat until <(y position) > [220]>\n        change y by ([speed v] of [intro v])\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [21]> then\n    go to [back v] layer\n    go [forward v] (1) layers\n    show\n    switch costume to (シェブ v)\n    go to x: (280) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    if < ((Count) / (2)) contains [.]?> then\n        set [brightness v] effect to (100)\n    end\n    repeat until <(x position) < [10]>\n        change x by ((0) - ([speed v] of [intro v]))\n    end\n    switch costume to (シェブロン v)\n    set x to (0)\n    repeat until <(y position) < [-220]>\n        change y by ((0) - ([speed v] of [intro v]))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    go to [front v] layer\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [24]> then\n    if <(sw) = [1]> then\n        point in direction (70)\n        go to x: (120) y: (0)\n        set [ghost v] effect to (0)\n        set [brightness v] effect to (100)\n        set size to (200) %\n        repeat (15)\n            change [ghost v] effect by (6)\n            next costume\n        end\n        switch costume to (せ v)\n    end\n    if <(sw) = [0]> then\n        point in direction (110)\n        go to x: (-120) y: (0)\n        set [brightness v] effect to (100)\n        set size to (200) %\n        set [ghost v] effect to (0)\n        repeat (15)\n            change [ghost v] effect by (6)\n            next costume\n        end\n        switch costume to (せ v)\n    end\n    delete this clone\nend\n\ndefine 四角\nset [sw v] to [0]\nswitch costume to (あ v)\ncreate clone of (_myself_ v)\nset [sw v] to [1]\nswitch costume to (あ v)\ncreate clone of (_myself_ v)\nswitch costume to (テきスト v)\n\nwhen I start as a clone\nif <(costume [number v]) = [40]> then\n    switch costume to (ち v)\n    repeat (11)\n        next costume\n    end\n    delete this clone\nend\n\ndefine せん\ngo to x: (0) y: (0)\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\nturn right (20) degrees\nswitch costume to (ち v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [52]> then\n    set [ghost v] effect to (100)\n    switch costume to (なし v)\n    set size to (200) %\n    switch costume to (へ v)\n    repeat until <(size) = [100]>\n        point in direction (90)\n        go to [front v] layer\n        switch costume to (なし v)\n        change [ghost v] effect by (-10)\n        change size by (-7)\n        switch costume to (へ v)\n    end\n    repeat (110)\n        point in direction (90)\n        go to x: ((([sin v] of ((timer) * (1000)) ) * (((a) - (100)) * (0.03))) * (-1)) y: ((([sin v] of ((timer) * (800)) ) * (((a) - (100)) * (0.02))) * (-1))\n    end\n    wait (0.5) seconds\n    delete this clone\nend\n\ndefine 黒\nswitch costume to (へ v)\ncreate clone of (_myself_ v)\nswitch costume to (ほ v)\ncreate clone of (_myself_ v)\nswitch costume to (テきスト v)\n\nwhen I start as a clone\nif <(costume [number v]) = [53]> then\n    hide\n    wait (0.2) seconds\n    set [ghost v] effect to (40)\n    go to [front v] layer\n    go to [front v] layer\n    show\n    wait (4) seconds\n    delete this clone\nend\n\ndefine 扇1\nswitch costume to (ショックw v)\ncreate clone of (_myself_ v)\nswitch costume to (テスト v)\n\ndefine 扇2\nswitch costume to (sウェーブ v)\ncreate clone of (_myself_ v)\nswitch costume to (テスト v)\n\nwhen I start as a clone\nif <(costume [number v]) = [55]> then\n    set [fisheye v] effect to (0)\n    set [ghost v] effect to (0)\n    set size to (100) %\n    go to [back v] layer\n    go [forward v] (3) layers\n    repeat (30)\n        change [ghost v] effect by (2)\n        switch costume to (なし v)\n        change [fisheye v] effect by (120)\n        switch costume to (ショックw v)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [56]> then\n    set [fisheye v] effect to (0)\n    set [ghost v] effect to (0)\n    set size to (100) %\n    go to [back v] layer\n    go [forward v] (3) layers\n    repeat (30)\n        change [ghost v] effect by (2)\n        switch costume to (なし v)\n        change [fisheye v] effect by (120)\n        switch costume to (sウェーブ v)\n    end\n    delete this clone\nend\n\ndefine 左\nswitch costume to (カット〜 v)\ncreate clone of (_myself_ v)\nswitch costume to (テスト v)\n\ndefine 右\nswitch costume to (カットー v)\ncreate clone of (_myself_ v)\nswitch costume to (テスト v)\n\nwhen I start as a clone\nif <(costume [number v]) = [57]> then\n    point in direction (90)\n    set size to (100) %\n    set [ghost v] effect to (0)\n    repeat (15)\n        change [ghost v] effect by (6.5)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [58]> then\n    point in direction (90)\n    set size to (100) %\n    set [ghost v] effect to (0)\n    repeat (15)\n        change [ghost v] effect by (6.5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [59]> then\n    set size to (200) %\n    hide\n    show\n    point in direction (90)\n    switch costume to (なし v)\n    go to x: (0) y: (500)\n    switch costume to (終了 v)\n    repeat until <[-150] > (y position)>\n        go to [front v] layer\n        change y by (-20)\n        go to [front v] layer\n    end\n    repeat (7)\n        change y by (-2)\n        go to [front v] layer\n    end\n    repeat (8)\n        change y by (-1)\n        go to [front v] layer\n    end\n    wait (1) seconds\n    set [ghost v] effect to (0)\n    repeat (20)\n        go to [front v] layer\n        change [ghost v] effect by (5)\n    end\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [60]> then\n    clear graphic effects\n    set size to (200) %\n    hide\n    start sound [最後 v]\n    show\n    point in direction (90)\n    switch costume to (なし v)\n    go to x: (0) y: (500)\n    switch costume to (お先〜 v)\n    repeat until <[-170] > (y position)>\n        go to [front v] layer\n        go to [front v] layer\n        change y by (-20)\n    end\n    wait (0.5) seconds\n    delete this clone\nend\n\nwhen flag clicked\nset volume to (100) %\n\nwhen flag clicked\nset [どっち v] to [0]\n\nwhen flag clicked\nhide\n\nエフェクト\nせん\n四角\n\nwhen I start as a clone\nrepeat until <[12] < (timer)>\n    if <(終了) = [1]> then\n        if <<(costume [number v]) = [59]> or <(costume [number v]) = [60]>> then\n            wait (3) seconds\n            delete this clone\n        end\n        wait until <[1] < (timer)>\n        delete this clone\n    end\nend\n\nwhen flag clicked\nreset timer\nset [終了 v] to [0]\nrepeat until <mouse down?>\n    if <[11] < (timer)> then\n        broadcast (イントロ終わり v)\n        stop [this script v]\n    end\nend\nreset timer\nset [終了 v] to [1]\nswitch costume to (お先〜 v)\ncreate clone of (_myself_ v)\nwait (0.1) seconds\nswitch costume to (終了 v)\ncreate clone of (_myself_ v)\nwait until <(終了) = [1]>\nbroadcast (イントロ終わり v)\nstop [this script v]\n\nwhen flag clicked\nrepeat until <mouse down?>\n    if <[10] < (timer)> then\n        stop [this script v]\n    end\nend\nrepeat (20)\n    change volume by (-5)\nend\n\n@Stage\n\nwhen I receive [gamestart v]\ngo to x: (0) y: (24)\nswitch costume to (コスチューム1 v)\nshow\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [reset v]\nerase all\nnext costume\n\n@character\n\nwhen flag clicked\nhide\n\ndefine 内部プログラム\ngo to [front v] layer\ngo [backward v] (1) layers\nswitch backdrop to (背景2 v)\nchange y by (変数)\nchange [変数 v] by (-1)\nswitch costume to (1 v)\nif <<touching color (#afafaf)?> or <touching (stage v)?>> then\n    point in direction (90)\n    set [変数 v] to [0]\n    repeat until <not <<touching color (#afafaf)?> or <touching (stage v)?>>>\n        change y by (1)\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n        set [変数 v] to [12]\n    end\nend\nswitch costume to (4 v)\nif <<touching color (#afafaf)?> or <touching (stage v)?>> then\n    point in direction (90)\n    set [変数 v] to [0]\n    repeat until <not <<touching color (#afafaf)?> or <touching (stage v)?>>>\n        change y by (-1)\n    end\n    change y by (-1)\nend\nswitch costume to (5 v)\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n    change [x v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [x v] by (-1)\nend\nchange x by (x)\nset [x v] to ((x) * (0.88))\nswitch costume to (2 v)\nif <<touching color (#afafaf)?> or <touching (stage v)?>> then\n    point in direction (90)\n    set [x v] to [0]\n    repeat until <not <<touching color (#afafaf)?> or <touching (stage v)?>>>\n        change x by (-1)\n    end\nend\nswitch costume to (3 v)\nif <<touching color (#afafaf)?> or <touching (stage v)?>> then\n    point in direction (90)\n    set [x v] to [0]\n    repeat until <not <<touching color (#afafaf)?> or <touching (stage v)?>>>\n        change x by (1)\n    end\nend\nswitch costume to (5 v)\nif <[0] < (x)> then\n    point in direction ((90) + ((x) + (() - (変数))))\nend\nif <(x) < [0]> then\n    point in direction ((90) + ((x) + (変数)))\nend\nif <not <([costume # v] of [stage v]) = [8]>> then\n    if <[238] < (x position)> then\n        broadcast (reset v)\n    end\nelse\n    if <[238] < (x position)> then\n        if <(key get?) = [get]> then\n            broadcast (reset v)\n        end\n    end\nend\nif <<(y position) < [-175]> or <touching (針 v)?>> then\n    broadcast (death v)\n    change [4数 v] by (1)\nend\n\nwhen I receive [reset v]\ngo to x: (-200) y: (0)\nset [変数 v] to [0]\nset [x v] to [0]\n\nwhen I receive [death v]\ngo to x: (-200) y: (0)\nset [変数 v] to [0]\nset [x v] to [0]\n\nwhen I receive [gamestart v]\nswitch costume to (5 v)\nshow\ngo to x: (-200) y: (0)\nset [変数 v] to [0]\nset [x v] to [0]\nforever\n    if <(pen) = [0]> then\n        内部プログラム\n    end\nend\n\nwhen I receive [イントロ終わり v]\nwait (2.57) seconds\nbroadcast (Gamestart v)\nshow variable [pen太さ v]\n\nwhen flag clicked\nerase all\nhide variable [pen太さ v]\n\nwhen flag clicked\nset [4数 v] to [0]\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [gamestart v]\nset [pen太さ v] to [10]\n\nwhen I receive [penで描く v]\nforever\n    show\n    set pen size to (pen太さ)\n    set pen color to (#afafaf)\n    if <mouse down?> then\n        wait (0.01) seconds\n        go to (mouse-pointer v)\n        repeat until <not <mouse down?>>\n            pen down\n        end\n    else\n        pen up\n    end\nend\n\nwhen I receive [penで描く終わり v]\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [penで描く v]\nforever\n    go to x: (mouse x) y: (mouse y)\nend\n\n@スプライト2\n\nwhen flag clicked\nset [pen v] to [0]\nhide\n\nwhen I receive [gamestart v]\nset [pen v] to [0]\nshow\nforever\n    go to x: (-195) y: (129)\n    go to [front v] layer\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(pen) = [0]> then\n            broadcast (penで描く v)\n            set [pen v] to [1]\n        else\n            set [pen v] to [0]\n            broadcast (penで描く終わり v)\n        end\n        wait until <not <<touching (mouse-pointer v)?> and <mouse down?>>>\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nset [pen v] to [0]\nhide\n\nwhen I receive [penで描く v]\nshow\nforever\n    go to x: (-101) y: (128)\n    go to [front v] layer\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        erase all\n        wait until <not <<touching (mouse-pointer v)?> and <mouse down?>>>\n    end\nend\n\nwhen I receive [penで描く終わり v]\nhide\n\n@Stage2\n\nwhen I receive [gamestart v]\ngo to x: (0) y: (24)\nswitch costume to (コスチューム1 v)\nshow\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [gamestart v]\nforever\n    if <([costume # v] of [stage v]) = [7]> then\n        show\n    else\n        hide\n    end\n    if <touching (character v)?> then\n        set [ghost v] effect to (50)\n    else\n        set [ghost v] effect to (0)\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [gamestart v]\nset [key get? v] to [no get]\nforever\n    go to x: (86) y: (-43)\n    if <not <(key get?) = [get]>> then\n        if <([costume # v] of [stage v]) = [8]> then\n            show\n        else\n            hide\n        end\n        if <touching (character v)?> then\n            start sound [Collect v]\n            set [key get? v] to [get]\n            hide\n        end\n    else\n        hide\n    end\nend\n\nwhen I receive [death v]\nset [key get? v] to [no get]\n\n@針\n\nwhen I receive [gamestart v]\ngo to [back v] layer\ngo to x: (0) y: (0)\nswitch costume to (コスチューム2 v)\nshow\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\nhide\n\nwhen I receive [reset v]\nnext costume\n\n@SCORE\n\nwhen I receive [clear v]\nshow variable [score v]\nスコア計算1\nスコア計算2\nset [score v] to (round ((4数スコア) + (timeSCORE)))\n\ndefine スコア計算1\nset [4数スコア v] to ((100) / (4数))\n\ndefine スコア計算2\nset [timescore v] to ((200) - (time))\n\nwhen flag clicked\nhide variable [score v]\n\n@uta\n\nwhen flag clicked\n\nwhen I receive [gamestart v]\nforever\n    play sound [Nebula v] until done\nend\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n@雪\n\nwhen I receive [gamestart v]\nforever\n    set size to (pick random (50) to (100)) %\n    wait (0.1) seconds\n    go to x: (pick random (240) to (-240)) y: (180)\n    set [yuki v] to (pick random (5) to (10))\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nrepeat until <<touching (stage v)?> or <touching (stage2 v)?>>\n    show\n    change y by ((0) - (yuki))\nend\nset size to (1) %\ndelete this clone\n\n