PLATFORMER ~ IN THE FOREST ~  プラットフォーマー〜森林の中で〜

Instructions: 日本語説明は下です。↓\n\n(English)\nOperate with arrow keys, WASD keys, and taps.\n First, select 3 stages to start.\n Level 1 is easy.  Level 2 is normal.  Level 3 is difficult.  The score on the upper left is the number of coins earned.\n The score on the upper right is the total of everyone's coins.\n Let's get coins and go to the goal!\n\n(日本語)\n矢印キー､WASDキー､タップで操作。\n初めに3つのステージを選択してスタートです。\nレベル1は簡単。レベル2は普通。レベル3は難しいです。左上のスコアは自分のコイン獲得数。\n右上のスコアはみんなのコインの合計です。\nそれではコインをゲットしてゴールまで行こう！

@Stage\n\nwhen I receive [始め v]\nswitch backdrop to (背景3 v)\n\nwhen I receive [ゲーム v]\nswitch backdrop to (背景1 v)\nforever\n    play sound [Techno2 v] until done\nend\n\nwhen I receive [元 v]\nswitch backdrop to (背景3 v)\n\nwhen [timer v] > (time)\nif <(ゴール) = [0]> then\n    switch backdrop to (背景1 v)\nend\n\n@プレイヤー\n\ndefine 動き\nif <<<(mouse x) > [0]> and <mouse down?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n    point in direction (1)\n    change [x v] by (1)\nend\nif <<<[0] > (mouse x)> and <mouse down?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n    point in direction (-1)\n    change [x v] by (-1)\nend\nset [加速速度 v] to [0.9]\nset [x v] to ((x) * (加速速度))\nchange x by (x)\nrepeat (15)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    壁\nend\nset [重力 v] to [-1]\nchange [y v] by (重力)\nchange y by (y)\nif <touching (地面 v)?> then\n    床\nend\nchange y by (重力)\nif <touching (地面 v)?> then\n    if <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n        start sound [Jump v]\n        set [y v] to [15]\n    end\nend\nchange y by (() - (重力))\nif <<touching (障害物 v)?> or <(視点y) < [-300]>> then\n    start sound [Pew v]\n    broadcast (もう一回 v)\nend\n\ndefine 床\nrepeat until <not <touching (地面 v)?>>\n    change y by ((((0) - (y)) / ([abs v] of (y) )) * ([abs v] of (重力) ))\nend\nset [y v] to [0]\n\ndefine 壁\nchange y by (-15)\nrepeat until <not <touching (地面 v)?>>\n    change x by (([floor v] of (((0) - (x)) / ([abs v] of (x) )) ) * ([abs v] of (加速速度) ))\nend\nif <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n    start sound [Jump v]\n    set [y v] to [15]\n    set [x v] to ((((0) - (x)) / ([abs v] of (x) )) * (7))\nelse\n    set [x v] to [0]\nend\n\nwhen I receive [もう一回 v]\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to (復活y)\nset [視点x v] to (復活x)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\n\nwhen flag clicked\nhide\n\nwhen I receive [ゲーム v]\nshow\nset [ステージクリア v] to [0]\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to [0]\nset [視点x v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\nforever\n    if <(ステージクリア) = [0]> then\n        動き\n    end\nend\n\nwhen I receive [ゲーム v]\nforever\n    if <[0] < (x)> then\n        change [視点x v] by ([ceiling v] of ((x position) / (10)) )\n    else\n        change [視点x v] by ([floor v] of ((x position) / (10)) )\n    end\n    change [視点y v] by ([floor v] of ((y position) / (5)) )\n    set [視点y v] to ((視点y) + (5))\n    if <[0] < (x)> then\n        change x by ([floor v] of (((0) - (x position)) / (10)) )\n    else\n        change x by ([ceiling v] of (((0) - (x position)) / (10)) )\n    end\n    change y by ([ceiling v] of (((0) - (y position)) / (5)) )\n    set y to ((y position) - (5))\nend\n\nwhen I receive [元 v]\nhide\n\nwhen [timer v] > (time)\nhide\n\n@地面\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\n動き (item (a) of [地面x v]) (item (a) of [地面y v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [地面x v]\nadd (y) to [地面y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [ゲーム v]\ndelete all of [地面x v]\ndelete all of [地面y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [0] [0] [1]\n    配置 [500] [0] [2]\n    配置 [1000] [100] [3]\n    配置 [1500] [100] [4]\n    配置 [2000] [200] [5]\n    配置 [2500] [300] [6]\nend\nif <(ステージ) = [2]> then\n    配置 [0] [0] [7]\n    配置 [500] [100] [8]\n    配置 [1000] [200] [9]\n    配置 [1500] [400] [10]\n    配置 [2000] [400] [11]\n    配置 [2500] [400] [12]\n    配置 [3000] [600] [13]\n    配置 [3500] [600] [14]\nend\nif <(ステージ) = [3]> then\n    配置 [0] [0] [15]\n    配置 [500] [0] [16]\n    配置 [1000] [0] [17]\n    配置 [1500] [0] [18]\n    配置 [2000] [0] [19]\n    配置 [2500] [0] [20]\n    配置 [3000] [200] [21]\n    配置 [3500] [400] [22]\n    配置 [4000] [800] [23]\n    配置 [4500] [800] [24]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\n@障害物\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\n動き (item (a) of [障害物x v]) (item (a) of [障害物y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [障害物x v]\nadd (y) to [障害物y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [ゲーム v]\ngo to [back v] layer\ngo [forward v] (1) layers\ndelete all of [障害物x v]\ndelete all of [障害物y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [500] [0] [1]\n    配置 [1000] [100] [2]\n    配置 [1500] [100] [3]\n    配置 [2000] [200] [4]\n    配置 [2500] [300] [5]\nend\nif <(ステージ) = [2]> then\n    配置 [0] [0] [7]\n    配置 [500] [100] [8]\n    配置 [1000] [200] [9]\n    配置 [1500] [400] [10]\n    配置 [2000] [400] [11]\n    配置 [2500] [400] [12]\n    配置 [3000] [600] [13]\n    配置 [3500] [600] [14]\nend\nif <(ステージ) = [3]> then\n    配置 [0] [0] [15]\n    配置 [500] [0] [16]\n    配置 [1000] [0] [17]\n    配置 [1500] [0] [18]\n    配置 [2000] [0] [19]\n    配置 [2500] [0] [20]\n    配置 [3000] [200] [21]\n    配置 [3500] [400] [22]\n    配置 [4000] [800] [23]\n    配置 [4500] [800] [24]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\n@背景\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\n動き (item (a) of [背景x v]) (item (a) of [背景y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [背景x v]\nadd (y) to [背景y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [ゲーム v]\ngo to [back v] layer\ndelete all of [背景x v]\ndelete all of [背景y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [0] [0] [1]\n    配置 [500] [0] [2]\n    配置 [1000] [200] [3]\n    配置 [1500] [400] [4]\n    配置 [2000] [400] [5]\n    配置 [2500] [300] [6]\nend\nif <(ステージ) = [2]> then\n    配置 [0] [0] [7]\n    配置 [500] [100] [8]\n    配置 [1000] [200] [9]\n    配置 [1500] [400] [10]\n    配置 [2000] [400] [11]\n    配置 [2500] [400] [12]\n    配置 [3000] [600] [13]\n    配置 [3500] [600] [14]\nend\nif <(ステージ) = [3]> then\n    配置 [0] [0] [15]\n    配置 [500] [0] [16]\n    配置 [1000] [0] [17]\n    配置 [1500] [0] [18]\n    配置 [2000] [0] [19]\n    配置 [2500] [0] [20]\n    配置 [3000] [200] [21]\n    配置 [3500] [400] [22]\n    配置 [4000] [800] [23]\n    配置 [4500] [800] [24]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\n@モンスター\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nset rotation style [left-right v]\nif <<([abs v] of ((item (a) of [モンスターy v]) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of (((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <([ceiling v] of (([cos v] of (((timer) - (0.1)) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) ) < ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )> then\n    point in direction (1)\nelse\n    point in direction (-1)\nend\nswitch costume to (コスチューム)\nif <(item (a) of [表示 v]) = [0]> then\n    hide\nend\n\nwhen I start as a clone\nhide\nif <(item (a) of [表示 v]) = [1]> then\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム) (移動範囲)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [モンスターx v]\nadd (y) to [モンスターy v]\nadd (移動範囲) to [モンスター移動範囲 v]\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd [1] to [表示 v]\n\nwhen I receive [もう一回 v]\nモンスター復活\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\n    if <<touching (プレイヤー v)?> and <not <(y) < [0]>>> then\n        if <(item (a) of [表示 v]) = [1]> then\n            start sound [Pew v]\n            broadcast (もう一回 v)\n        end\n    end\n    if <<touching (プレイヤー v)?> and <[0] > (y)>> then\n        start sound [Coin v]\n        set [y v] to [15]\n        replace item (a) of [表示 v] with [0]\n        set [踏んだよコインよろしく！ v] to ((視点x) + (x position))\n        set [踏んだよコインよろしく！2 v] to ((視点y) + (y position))\n        broadcast (コインへ v)\n    end\n    hide\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine モンスター復活\ndelete all of [表示 v]\nrepeat (length of [コスチューム v])\n    add [1] to [表示 v]\nend\n\nwhen I receive [ゲーム v]\ndelete all of [モンスター移動範囲 v]\ndelete all of [モンスターx v]\ndelete all of [モンスターy v]\ndelete all of [コスチューム v]\ndelete all of [表示 v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [1800] [185] [1] [200]\n    配置 [2500] [322] [1] [100]\nend\nif <(ステージ) = [2]> then\n    配置 [1200] [117] [1] [100]\n    配置 [2075] [427] [1] [50]\n    配置 [3050] [532] [1] [100]\nend\nif <(ステージ) = [3]> then\n    配置 [650] [12] [1] [100]\n    配置 [1250] [195] [1] [75]\n    配置 [3150] [265] [1] [75]\n    配置 [4250] [823] [1] [100]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\n@チェックポイント\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <(item (a) of [到達 v]) = [1]> then\n    switch costume to (コスチューム)\nelse\n    switch costume to ((コスチューム) + (-1))\nend\n\nwhen I start as a clone\nforever\n    動き (item (a) of [チェックポイントx v]) (item (a) of [チェックポイントy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nrepeat (2)\n    add (x) to [チェックポイントx v]\n    add (y) to [チェックポイントy v]\n    add [0] to [到達 v]\nend\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd ((コスチューム) + (2)) to [コスチューム v]\n\nwhen I start as a clone\nforever\n    if <touching (プレイヤー v)?> then\n        if <(item (a) of [到達 v]) = [0]> then\n            start sound [Collect v]\n            set [復活x v] to (item (a) of [チェックポイントx v])\n            set [復活y v] to (item (a) of [チェックポイントy v])\n            replace item (a) of [到達 v] with [1]\n        end\n        stop [this script v]\n    end\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine ブロック名\nset [a v] to [0]\nrepeat ((length of [コスチューム v]) / (2))\n    change [a v] by (2)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [ゲーム v]\ngo to [back v] layer\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [コスチューム v]\ndelete all of [到達 v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [1450] [355] [1]\n    配置 [2250] [340] [1]\nend\nif <(ステージ) = [2]> then\n    配置 [1840] [315] [1]\nend\nif <(ステージ) = [3]> then\n    配置 [1850] [-42] [1]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\n@ゴール\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\n動き (item (a) of [ゴールx v]) (item (a) of [ゴールy v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [ゴールx v]\nadd (y) to [ゴールy v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [ゲーム v]\ndelete all of [ゴールx v]\ndelete all of [ゴールy v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [2750] [370] [1]\nend\nif <(ステージ) = [2]> then\n    配置 [3750] [670] [1]\nend\nif <(ステージ) = [3]> then\n    配置 [4750] [870] [1]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\nwhen I receive [ゲームクリア v]\nset [ステージクリア v] to [1]\n\nwhen I start as a clone\nforever\n    if <touching (プレイヤー v)?> then\n        next costume\n        broadcast (ゲームクリア v)\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [ゲーム v]\nset [ステージクリア v] to [0]\nforever\n    if <(ステージクリア) = [1]> then\n        go to [front v] layer\n        show\n        go to x: (0) y: (999)\n        repeat until <(y position) < [3]>\n            change y by ((() - (y position)) / (10))\n        end\n        broadcast (元 v)\n        set [ゴール v] to [1]\n        stop [all v]\n    end\nend\n\nwhen I receive [元 v]\nbroadcast (元2 v)\n\nwhen I receive [元2 v]\nwait (0.1) seconds\nrepeat until <[357] < (y position)>\n    change y by (((364) - (y position)) / (10))\nend\nhide\nbroadcast (始め v)\nset [ゴール v] to [0]\nstop [this script v]\n\nwhen [timer v] > (time)\nif <(ゴール) = [0]> then\n    hide\nend\n\n@スプライト2\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    forever\n        change y by (((85) - (y position)) / (10))\n    end\nend\nif <(costume [number v]) = [2]> then\n    forever\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <(costume [number v]) = [3]> then\n    forever\n        change x by (((-150) - (x position)) / (3))\n        if <(選択) = [1]> then\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                set [ステージ v] to [1]\n                broadcast (開始？ v)\n                stop [this script v]\n            end\n        end\n    end\nend\nif <(costume [number v]) = [4]> then\n    forever\n        change x by (((0) - (x position)) / (3))\n        if <(選択) = [1]> then\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                set [ステージ v] to [2]\n                broadcast (開始？ v)\n                stop [this script v]\n            end\n        end\n    end\nend\nif <(costume [number v]) = [5]> then\n    forever\n        change x by (((150) - (x position)) / (3))\n        if <(選択) = [1]> then\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                set [ステージ v] to [3]\n                broadcast (開始？ v)\n                stop [this script v]\n            end\n        end\n    end\nend\n\nwhen I receive [始め v]\nset [選択 v] to [0]\nhide\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (999)\ncreate clone of (_myself_ v)\nstart sound [Rip v]\nwait (1.5) seconds\nswitch costume to (コスチューム2 v)\ngo to x: (0) y: (-999)\ncreate clone of (_myself_ v)\nstart sound [Rip v]\nwait (1.5) seconds\nswitch costume to (コスチューム3 v)\ngo to x: (999) y: (-100)\ncreate clone of (_myself_ v)\nstart sound [Rip v]\nwait (0.25) seconds\nswitch costume to (コスチューム4 v)\ngo to x: (999) y: (-100)\ncreate clone of (_myself_ v)\nstart sound [Rip v]\nwait (0.25) seconds\nswitch costume to (コスチューム5 v)\ngo to x: (999) y: (-100)\ncreate clone of (_myself_ v)\nstart sound [Rip v]\n\nwhen flag clicked\nbroadcast (始め v)\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    forever\n        if <((150) - (x position)) < [3]> then\n            set [選択 v] to [1]\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [開始？ v]\nset [選択 v] to [0]\nstart sound [Coin v]\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nhide\nbroadcast (ゲーム v)\ndelete this clone\n\nwhen I start as a clone\nforever\n    point in direction ((90) + ([cos v] of ((timer) * (200)) ))\nend\n\n@コイン\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\nset [ghost v] effect to (0)\n動き (item (a) of [地面x v]) (item (a) of [地面y v]) (コスチューム)\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [地面x v]\nadd (y) to [地面y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [ghost v] effect to (100)\nshow\nset [a v] to [0]\nrepeat (length of [地面x v])\n    change [a v] by (1)\n    go to x: ((item (a) of [地面x v]) - (視点x)) y: ((item (a) of [地面y v]) - (視点y))\n    if <touching (プレイヤー v)?> then\n        delete (a) of [地面x v]\n        delete (a) of [地面y v]\n        change [コイン v] by (1)\n        change [☁ 世界のコイン v] by (1)\n        start sound [Coin v]\n    else\n        if <not <(item (a) of [地面x v]) = []>> then\n            create clone of (_myself_ v)\n        end\n    end\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [コイン配置 v]\ndelete all of [地面x v]\ndelete all of [地面y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\nif <(ステージ) = [1]> then\n    配置 [50] [-50] [1]\n    配置 [125] [-50] [1]\n    配置 [200] [-50] [1]\n    配置 [340] [40] [1]\n    配置 [590] [-50] [1]\n    配置 [800] [30] [1]\n    配置 [875] [40] [1]\n    配置 [950] [50] [1]\n    配置 [1100] [70] [1]\n    配置 [1300] [240] [1]\n    配置 [2140] [260] [1]\n    配置 [2670] [340] [1]\nend\nif <(ステージ) = [2]> then\n    配置 [50] [-50] [1]\n    配置 [250] [40] [1]\n    配置 [325] [40] [1]\n    配置 [400] [40] [1]\n    配置 [460] [130] [1]\n    配置 [825] [130] [1]\n    配置 [1450] [310] [1]\n    配置 [1525] [310] [1]\n    配置 [1600] [310] [1]\n    配置 [2275] [310] [1]\n    配置 [2460] [390] [1]\n    配置 [2610] [455] [1]\n    配置 [3420] [636] [1]\n    配置 [3625] [636] [1]\nend\nif <(ステージ) = [3]> then\n    配置 [50] [-50] [1]\n    配置 [125] [-50] [1]\n    配置 [200] [-50] [1]\n    配置 [400] [-50] [1]\n    配置 [950] [124] [1]\n    配置 [1440] [174] [1]\n    配置 [1585] [78] [1]\n    配置 [1730] [-10] [1]\n    配置 [1925] [-47] [1]\n    配置 [2000] [-47] [1]\n    配置 [2075] [-47] [1]\n    配置 [2320] [-10] [1]\n    配置 [2465] [96] [1]\n    配置 [2600] [182] [1]\n    配置 [2740] [208] [1]\n    配置 [2900] [279] [1]\n    配置 [3300] [407] [1]\n    配置 [3375] [407] [1]\n    配置 [3600] [407] [1]\n    配置 [3675] [407] [1]\n    配置 [3700] [500] [1]\n    配置 [3700] [575] [1]\n    配置 [3700] [650] [1]\n    配置 [3700] [725] [1]\n    配置 [3820] [836] [1]\n    配置 [4060] [836] [1]\n    配置 [4460] [836] [1]\n    配置 [4650] [836] [1]\nend\nhide\n\nwhen I receive [ゲーム v]\nforever\n    ブロック名\nend\n\nwhen I receive [ゲーム v]\nbroadcast (コイン配置 v)\nswitch costume to (コスチューム1 v)\nset [コスチューム v] to [0]\nforever\n    set [コスチューム v] to [1]\n    repeat until <(コスチューム) = [9]>\n        change [コスチューム v] by (1)\n        wait (0.025) seconds\n    end\nend\n\nwhen I receive [コインへ v]\nwait until <(y) = [0]>\n配置 (踏んだよコインよろしく！) ((踏んだよコインよろしく！2) + (25)) [1]\n\nwhen I receive [始め v]\nset [ghost v] effect to (100)\nshow\n\nwhen I receive [元2 v]\nset [ghost v] effect to (100)\nshow\n\nwhen I receive [もう一回 v]\nbroadcast (コイン配置 v)\n\nwhen flag clicked\nset [コイン v] to [0]\n\n@スプライト3\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [0]> then\n    forever\n        show\n        switch costume to (letter (1) of (コイン))\n    end\nend\nif <(costume [name v]) = [1]> then\n    forever\n        if <[1] < (length of (コイン))> then\n            show\n            switch costume to (letter (2) of (コイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [2]> then\n    forever\n        if <[2] < (length of (コイン))> then\n            show\n            switch costume to (letter (3) of (コイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [3]> then\n    forever\n        if <[3] < (length of (コイン))> then\n            show\n            switch costume to (letter (4) of (コイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [4]> then\n    forever\n        show\n        switch costume to (letter (1) of (☁ 世界のコイン))\n    end\nend\nif <(costume [name v]) = [5]> then\n    forever\n        if <[1] < (length of (☁ 世界のコイン))> then\n            show\n            switch costume to (letter (2) of (☁ 世界のコイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [6]> then\n    forever\n        if <[2] < (length of (☁ 世界のコイン))> then\n            show\n            switch costume to (letter (3) of (☁ 世界のコイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [7]> then\n    forever\n        if <[3] < (length of (☁ 世界のコイン))> then\n            show\n            switch costume to (letter (4) of (☁ 世界のコイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [8]> then\n    forever\n        if <[4] < (length of (☁ 世界のコイン))> then\n            show\n            switch costume to (letter (5) of (☁ 世界のコイン))\n        else\n            hide\n        end\n    end\nend\nif <(costume [name v]) = [9]> then\n    forever\n        if <[5] < (length of (☁ 世界のコイン))> then\n            show\n            switch costume to (letter (6) of (☁ 世界のコイン))\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [ゲーム v]\n置く\ndelete this clone\n\ndefine 置く\nwait (0) seconds\ngo to [front v] layer\nhide\nswitch costume to (コスチューム1 v)\ngo to x: (-190) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (0 v)\ngo to x: (-145) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (1 v)\ngo to x: (-120) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (2 v)\ngo to x: (-95) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (3 v)\ngo to x: (-70) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ngo to x: (0) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (4 v)\ngo to x: (70) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (5 v)\ngo to x: (95) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (6 v)\ngo to x: (120) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (7 v)\ngo to x: (145) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (8 v)\ngo to x: (170) y: (150)\ncreate clone of (_myself_ v)\nswitch costume to (9 v)\ngo to x: (195) y: (150)\ncreate clone of (_myself_ v)\n\nwhen I receive [始め v]\n置く\ndelete this clone\n\n@サムネ\n\nwhen [timer v] > (time)\nif <(ゴール) = [0]> then\n    show\n    go to x: (0) y: (999)\n    repeat until <[0] = (y position)>\n        change y by ((() - (y position)) / (10))\n    end\nend\n\nwhen I receive [始め v]\nset [ゴール v] to [0]\nhide\nforever\n    set [time v] to (timer)\nend\n\n