アイテムを使えるプラットフォーマー / Platformer where you can use items #all #game

Instructions: アイテムを使えるプラットフォーマー\nPlatformer where you can use items\n\n日本語の説明は下にあります。\n\nEnglish\n✏How to operate\nOperate with arrow keys or WASD keys.\nWall kicks are not allowed.\nYou can jump in the air.\n\n✏Character\nCat: moves fast\nGobo: You can double jump by pressing the up key twice.\nTerra: You can adjust the jump height by releasing the up key at just the right time.\n\n✏Item\nCat, Gobo, Terra: You can transform into them.\nNekote: Can climb walls\nShrink: become smaller\nClouds: Press the up key to increase flight time\n\n\n日本語\n\n✏操作方法\n矢印キーかWASDキーで操作します。\n壁キックはできません。\n空中でジャンプをする事ができます。\n\n✏キャラクター\n猫:動くのが速い\nゴボ:二段ジャンプができる　二回上キーを押す\nテラ:ジャンプの高さを調節できる　上キーをちょうどいいタイミングで離す\n\n✏アイテム\n猫,ゴボ,テラ:それに変身できる\n猫手:壁を上ることができる\n縮小:小さくなる\n雲:上キーを押すと滞空時間が長くなる

@Stage\n\nwhen I receive [かわれ v]\nrepeat (10)\n    change [brightness v] effect by (10)\nend\nclear graphic effects\n\nwhen flag clicked\nswitch backdrop to (くろ v)\nset [brightness v] effect to (-100)\n\nwhen I receive [イントロ終了 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nnext backdrop\nclear graphic effects\n\n@BGM\n\nwhen I receive [本編 v]\nset volume to (50) %\nclear sound effects\nforever\n    play sound [Peace Out Delight by Ikson v] until done\nend\n\nwhen I receive [本編 v]\nset [雑用 | ピッチ v] to [0]\nforever\n    if <(制御 | ストップ) = [1]> then\n        change [雑用 | ピッチ v] by (((-100) - (雑用 | ピッチ)) / (5))\n        change volume by (((20) - (volume)) / (5))\n    else\n        change [雑用 | ピッチ v] by (((0) - (雑用 | ピッチ)) / (5))\n        change volume by (((20) - (volume)) / (5))\n    end\n    set [pitch v] effect to (雑用 | ピッチ)\nend\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\nwhen I receive [本編 v]\nset [共通 | 雲 v] to [0]\nset [共通 | 雲 v] to [0]\nset [共通 | 縮小 v] to [0]\nset [共通 | 猫手ある？ v] to [0]\nbroadcast (アイテムリセット v)\nset [共通 | 鍵ゲット v] to [0]\nshow\nswitch costume to (共通 | 現在選んでいるもの)\nset [制御 | ストップ v] to [0]\ngo to x: (-184) y: (-17)\nset [速さ | x速さ v] to [0]\nset [速さ | y速さ v] to [0]\nset [制御 | 上入力中 v] to [0]\nset [制御 | 残りjump回数 v] to [0]\nforever\n    set rotation style [left-right v]\n    if <(制御 | ストップ) = [0]> then\n        if <(共通 | 縮小) = [0]> then\n            set size to (80) %\n        else\n            set size to (40) %\n        end\n        switch costume to (当たり判定 v)\n        向き判定\n        set [保存 | 向き v] to (direction)\n        point in direction (90)\n        if <(共通 | 縮小) = [1]> then\n            一つの操作(縮小版)\n        else\n            一つの操作\n        end\n        point in direction (保存 | 向き)\n        if <(共通 | 猫手ある？) = [0]> then\n            switch costume to (共通 | 現在選んでいるもの)\n        else\n            switch costume to (join (共通 | 現在選んでいるもの) [n])\n        end\n    end\nend\n\nset volume to (50) %\n\ndefine 一つの操作\ngo to [front v] layer\ngo [backward v] (1) layers\nif <<(速さ | y速さ) < [-4]> and <<(入力 | 上入力) = [1]> and <(共通 | 雲) = [1]>>> then\n    change [速さ | y速さ v] by (((-4) - (速さ | y速さ)) / (5))\nelse\n    if <(共通 | 現在選んでいるもの) = [3]> then\n        change [速さ | y速さ v] by (-0.9)\n    else\n        if <(共通 | 現在選んでいるもの) = [2]> then\n            change [速さ | y速さ v] by (-1)\n        else\n            change [速さ | y速さ v] by (-0.9)\n        end\n    end\nend\nchange y by (速さ | y速さ)\nif <<touching (地面2 v)?> or <touching (地面 v)?>> then\n    if <[0] < (速さ | y速さ)> then\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.9))\n        else\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.5))\n        end\n    else\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.5))\n        else\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to [0]\n        end\n        if <(共通 | 現在選んでいるもの) = [2]> then\n            set [制御 | 残りjump回数 v] to [2]\n        else\n            set [制御 | 残りjump回数 v] to [1]\n        end\n    end\nend\nif <(入力 | 上入力) = [0]> then\n    set [制御 | 上入力中 v] to [0]\nend\nif <<[0] < (制御 | 残りjump回数)> and <<(制御 | 上入力中) = [0]> and <(入力 | 上入力) = [1]>>> then\n    if <(共通 | 現在選んでいるもの) = [3]> then\n        point in direction (保存 | 向き)\n        switch costume to (ゲージ v)\n        create clone of (_myself_ v)\n        switch costume to (指す v)\n        create clone of (_myself_ v)\n        if <(共通 | 猫手ある？) = [0]> then\n            switch costume to (共通 | 現在選んでいるもの)\n        else\n            switch costume to (join (共通 | 現在選んでいるもの) [n])\n        end\n        wait until <(入力 | 上入力) = [0]>\n        switch costume to (当たり判定 v)\n        set [速さ | y速さ v] to ((雑用 | ジャンプの高さ) * (1.5))\n        start sound [Motion-Pop42-1 v]\n        point in direction (90)\n    else\n        if <<(制御 | 残りjump回数) = [1]> and <(共通 | 現在選んでいるもの) = [2]>> then\n            set [速さ | y速さ v] to [10]\n            start sound [Motion-Pop42-2 v]\n        else\n            set [速さ | y速さ v] to [15]\n            start sound [Motion-Pop42-1 v]\n        end\n    end\n    change [制御 | 残りjump回数 v] by (-1)\n    set [制御 | 上入力中 v] to [1]\n    start sound [SNES-Action01-06\(Land\) v]\nend\nif <touching (台風 v)?> then\n    change [速さ | y速さ v] by (2)\nend\nset [雑用 | 本物x座標 v] to (x position)\nset [雑用 | 本物y座標 v] to (y position)\nif <(共通 | 現在選んでいるもの) = [2]> then\n    set [速さ | x速さ v] to ((速さ | x速さ) * (0.8))\nelse\n    set [速さ | x速さ v] to ((速さ | x速さ) * (0.9))\nend\nif <(共通 | 現在選んでいるもの) = [1]> then\n    change [速さ | x速さ v] by ((1.4) * ((入力 | 右入力) - (入力 | 左入力)))\nelse\n    if <(共通 | 現在選んでいるもの) = [2]> then\n        change [速さ | x速さ v] by ((1.5) * ((入力 | 右入力) - (入力 | 左入力)))\n    else\n        change [速さ | x速さ v] by ((1.2) * ((入力 | 右入力) - (入力 | 左入力)))\n    end\nend\nchange x by (速さ | x速さ)\nif <<touching (地面2 v)?> or <touching (地面 v)?>> then\n    if <(共通 | 猫手ある？) = [1]> then\n        change x by (() - (速さ | x速さ))\n        set [速さ | x速さ v] to [0]\n        set [制御 | 残りjump回数 v] to [0]\n        if <(入力 | 上入力) = [1]> then\n            change [速さ | y速さ v] by (1)\n            change [速さ | y速さ v] by (((8) - (速さ | y速さ)) / (8))\n        else\n            change [速さ | y速さ v] by (((5) - (速さ | y速さ)) / (8))\n        end\n    else\n        start sound [壁にぶつかった時 v]\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change x by (() - (速さ | x速さ))\n            set [速さ | x速さ v] to ((-1.5) * (速さ | x速さ))\n        else\n            change x by ((-1) * (速さ | x速さ))\n            set [速さ | x速さ v] to ((-0.9) * (速さ | x速さ))\n        end\n    end\nend\n死 <<<touching (針 v)?> or <(y position) < [-180]>> or <<touching (地面2 v)?> or <touching (地面 v)?>>>\nset [共通 | 鍵に触れた v] to ((0) + <<touching color (#f2de00)?> and <touching (出口と鍵 v)?>>)\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    go to [front v] layer\n    set size to (80) %\n    show\n    wait until <(入力 | 上入力) = [0]>\n    repeat (30)\n        change x by (((雑用 | 本物x座標) - (x position)) / (5))\n        change y by (((雑用 | 本物y座標) - (y position)) / (5))\n        change [ghost v] effect by (3.4)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    go to [front v] layer\n    set size to (80) %\n    show\n    set [雑用 | y保存 v] to (y position)\n    repeat until <(入力 | 上入力) = [0]>\n        set y to ((雑用 | y保存) + ((([cos v] of ((timer) * (500)) ) * (25)) - (26)))\n    end\n    set [雑用 | y保存 v] to ((雑用 | 本物y座標) - (y position))\n    set [雑用 | ジャンプの高さ v] to ((4) + ((((([cos v] of ((timer) * (500)) ) * (25)) - (26)) + (51)) / (7)))\n    repeat (30)\n        change x by (((雑用 | 本物x座標) - (x position)) / (5))\n        change y by ((((雑用 | 本物y座標) - (雑用 | y保存)) - (y position)) / (5))\n        change [ghost v] effect by (3.4)\n    end\n    delete this clone\nend\n\nwhen I receive [次のステージ v]\nset [共通 | 雲 v] to [0]\nset [制御 | ストップ v] to [0]\ngo to x: (-184) y: (-17)\nset [速さ | x速さ v] to [0]\nset [速さ | y速さ v] to [0]\nset [制御 | 上入力中 v] to [0]\nset [制御 | 残りjump回数 v] to [0]\nset [共通 | 現在選んでいるもの v] to (共通 | 最初に選んだもの)\nset [共通 | 猫手ある？ v] to [0]\nset [共通 | 縮小 v] to [0]\n\nset [共通 | 最初に選んだもの v] to [1]\n\ndefine 向き判定\nif <((0) + <<key (d v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>>>) = [1]> then\n    point in direction (90)\nelse\n    if <((0) + <<key (a v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>>>) = [1]> then\n        point in direction (-90)\n    end\nend\n\ndefine 一つの操作(縮小版)\ngo to [front v] layer\nif <<(速さ | y速さ) < [0]> and <<(入力 | 上入力) = [1]> and <(共通 | 雲) = [1]>>> then\n    change [速さ | y速さ v] by (((-2) - (速さ | y速さ)) / (5))\nelse\n    if <(共通 | 現在選んでいるもの) = [3]> then\n        change [速さ | y速さ v] by (-0.6)\n    else\n        if <(共通 | 現在選んでいるもの) = [2]> then\n            change [速さ | y速さ v] by (-0.7)\n        else\n            change [速さ | y速さ v] by (-0.6)\n        end\n    end\nend\nchange y by (速さ | y速さ)\nif <<touching (地面2 v)?> or <touching (地面 v)?>> then\n    if <[0] < (速さ | y速さ)> then\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.5))\n        else\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.2))\n        end\n    else\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to ((速さ | y速さ) * (-0.3))\n        else\n            change y by (() - (速さ | y速さ))\n            set [速さ | y速さ v] to [0]\n        end\n        if <(共通 | 現在選んでいるもの) = [2]> then\n            set [制御 | 残りjump回数 v] to [2]\n        else\n            set [制御 | 残りjump回数 v] to [1]\n        end\n    end\nend\nif <(入力 | 上入力) = [0]> then\n    set [制御 | 上入力中 v] to [0]\nend\nif <<[0] < (制御 | 残りjump回数)> and <<(制御 | 上入力中) = [0]> and <(入力 | 上入力) = [1]>>> then\n    if <(共通 | 現在選んでいるもの) = [3]> then\n        point in direction (保存 | 向き)\n        switch costume to (ゲージ v)\n        create clone of (_myself_ v)\n        switch costume to (指す v)\n        create clone of (_myself_ v)\n        if <(共通 | 猫手ある？) = [0]> then\n            switch costume to (共通 | 現在選んでいるもの)\n        else\n            switch costume to (join (共通 | 現在選んでいるもの) [n])\n        end\n        wait until <(入力 | 上入力) = [0]>\n        switch costume to (当たり判定 v)\n        set [速さ | y速さ v] to (雑用 | ジャンプの高さ)\n        start sound [Motion-Pop42-1 v]\n        point in direction (90)\n    else\n        if <<(制御 | 残りjump回数) = [1]> and <(共通 | 現在選んでいるもの) = [2]>> then\n            set [速さ | y速さ v] to [7]\n            start sound [Motion-Pop42-2 v]\n        else\n            set [速さ | y速さ v] to [10]\n            start sound [Motion-Pop42-1 v]\n        end\n    end\n    change [制御 | 残りjump回数 v] by (-1)\n    set [制御 | 上入力中 v] to [1]\n    start sound [SNES-Action01-06\(Land\) v]\nend\nif <touching (台風 v)?> then\n    change [速さ | y速さ v] by (2)\nend\nset [雑用 | 本物x座標 v] to (x position)\nset [雑用 | 本物y座標 v] to (y position)\nif <(共通 | 現在選んでいるもの) = [2]> then\n    set [速さ | x速さ v] to ((速さ | x速さ) * (0.8))\nelse\n    set [速さ | x速さ v] to ((速さ | x速さ) * (0.9))\nend\nif <(共通 | 現在選んでいるもの) = [1]> then\n    change [速さ | x速さ v] by ((1) * ((入力 | 右入力) - (入力 | 左入力)))\nelse\n    if <(共通 | 現在選んでいるもの) = [2]> then\n        change [速さ | x速さ v] by ((1.7) * ((入力 | 右入力) - (入力 | 左入力)))\n    else\n        change [速さ | x速さ v] by ((0.9) * ((入力 | 右入力) - (入力 | 左入力)))\n    end\nend\nchange x by (速さ | x速さ)\nif <<touching (地面2 v)?> or <touching (地面 v)?>> then\n    if <(共通 | 猫手ある？) = [1]> then\n        change x by (() - (速さ | x速さ))\n        set [速さ | x速さ v] to [0]\n        set [制御 | 残りjump回数 v] to [0]\n        if <(入力 | 上入力) = [1]> then\n            change [速さ | y速さ v] by (1)\n            change [速さ | y速さ v] by (((8) - (速さ | y速さ)) / (8))\n        else\n            change [速さ | y速さ v] by (((5) - (速さ | y速さ)) / (8))\n        end\n    else\n        start sound [壁にぶつかった時 v]\n        if <<touching color (#4f7cd6)?> or <<touching color (#c04fd6)?> or <<touching color (#84d64f)?> or <touching color (#c04fd6)?>>>> then\n            change x by (() - (速さ | x速さ))\n            set [速さ | x速さ v] to ((-1.5) * (速さ | x速さ))\n        else\n            change x by ((-1) * (速さ | x速さ))\n            set [速さ | x速さ v] to ((-0.9) * (速さ | x速さ))\n        end\n    end\nend\n死 <<<touching (針 v)?> or <(y position) < [-180]>> or <<touching (地面2 v)?> or <touching (地面 v)?>>>\nset [共通 | 鍵に触れた v] to ((0) + <<touching color (#f2de00)?> and <touching (出口と鍵 v)?>>)\n\ndefine 死 <死>\nif <死> then\n    set [共通 | 縮小 v] to [0]\n    start sound [Motion-Pop40-1 v]\n    set [共通 | 猫手ある？ v] to [0]\n    go to x: (-184) y: (-17)\n    set [速さ | x速さ v] to [0]\n    set [速さ | y速さ v] to [0]\n    set [制御 | 上入力中 v] to [0]\n    set [制御 | 残りjump回数 v] to [0]\n    broadcast (アイテムリセット v)\n    broadcast (更新 v)\n    set [共通 | 雲 v] to [0]\n    set [共通 | 現在選んでいるもの v] to (共通 | 最初に選んだもの)\nend\n\nwhen I receive [本編 v]\nforever\n    set [入力 | 上入力 v] to ((0) + <<key (w v) pressed?> or <<key (space v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>>>>)\n    set [入力 | 右入力 v] to ((0) + <<key (d v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>>>)\n    set [入力 | 左入力 v] to ((0) + <<key (a v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>>>)\nend\n\n@針\n\nwhen flag clicked\nhide\n\nwhen I receive [本編 v]\npoint in direction (90)\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nshow\ngo to [back v] layer\ngo [forward v] (1) layers\nwait until <(costume [number v]) = [3]>\nrepeat until <not <(costume [number v]) = [3]>>\n    point in direction (90)\n    go to x: (57) y: (-80)\n    repeat (25)\n        change y by (((-10) - (y position)) / (7))\n    end\n    repeat (10)\n        change y by (((-80) - (y position)) / (4))\n    end\n    go to x: (57) y: (-80)\n    point in direction (-90)\n    repeat (25)\n        change y by (((-150) - (y position)) / (7))\n    end\n    repeat (10)\n        change y by (((-80) - (y position)) / (4))\n    end\nend\n\nwhen I receive [次のステージ v]\nif <(costume [number v]) = [3]> then\n    stop [other scripts in sprite v]\nend\npoint in direction (90)\ngo to x: (0) y: (0)\nnext costume\n\nswitch costume to (14 v)\nshow\ngo to [front v] layer\n\n@地面\n\nwhen flag clicked\nswitch costume to (1 v)\nhide\n\nwhen I receive [本編 v]\nshow\n\nwhen I receive [次のステージ v]\nnext costume\nbroadcast (アイテムリセット v)\n\nswitch costume to (15 v)\ngo to [front v] layer\nshow\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\nhide variable [あなたの記録 v]\nwait until <(costume [number v]) = [15]>\nset [あなたの記録 v] to (timer)\nif <(あなたの記録) < (☁ 世界記録)> then\n    set [☁ 世界記録 v] to (あなたの記録)\nend\nshow variable [☁ 世界記録 v]\nshow variable [あなたの記録 v]\n\n@アイテム\n\nwhen flag clicked\nアイテム座標追加\nhide\nset size to (70) %\n\ndefine アイテム座標追加\ndelete all of [保存 | アイテムリスト v]\nadd [,,,,,,] to [保存 | アイテムリスト v]\nadd [,,187^94^:,,,,] to [保存 | アイテムリスト v]\nadd [,,,,,,] to [保存 | アイテムリスト v]\nadd [,,,0^-100^:,,,] to [保存 | アイテムリスト v]\nadd [,,,,,,] to [保存 | アイテムリスト v]\nadd [,-190^-90^:,,,,,] to [保存 | アイテムリスト v]\nadd [,-190^-90^:,,177^-100^:,,,] to [保存 | アイテムリスト v]\nadd [,,,-143^-96^:,,,] to [保存 | アイテムリスト v]\nadd [,,,,-102^-120^:,,] to [保存 | アイテムリスト v]\nadd [,,,,-116^150^:,-116^101^:,] to [保存 | アイテムリスト v]\nadd [,,,,,,] to [保存 | アイテムリスト v]\nadd [,,,,-150^-35:,,] to [保存 | アイテムリスト v]\nadd [,,,,,-150^-35:,] to [保存 | アイテムリスト v]\nadd [,,,,-195^-28^:,,] to [保存 | アイテムリスト v]\n\nwhen I receive [アイテムリセット v]\nif <[] = []> then\n    delete this clone\nend\n([costume # v] of [地面 v]) 番目のデータ\nswitch costume to (1 v)\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | 猫x v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | 猫x v]) y: (item (雑用 | index1) of [保存 | 猫y v])\n    create clone of (_myself_ v)\nend\nswitch costume to (2 v)\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | ゴボx v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | ゴボx v]) y: (item (雑用 | index1) of [保存 | ゴボy v])\n    create clone of (_myself_ v)\nend\nswitch costume to (3 v)\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | ナノx v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | ナノx v]) y: (item (雑用 | index1) of [保存 | ナノy v])\n    create clone of (_myself_ v)\nend\nswitch costume to (4 v)\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | 猫手x v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | 猫手x v]) y: (item (雑用 | index1) of [保存 | 猫手y v])\n    create clone of (_myself_ v)\nend\nswitch costume to ((4) + (共通 | 最初に選んだもの))\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | 縮小x v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | 縮小x v]) y: (item (雑用 | index1) of [保存 | 縮小y v])\n    create clone of (_myself_ v)\nend\nswitch costume to (8 v)\nset [雑用 | index1 v] to [0]\nrepeat (length of [保存 | 雲x v])\n    change [雑用 | index1 v] by (1)\n    go to x: (item (雑用 | index1) of [保存 | 雲x v]) y: (item (雑用 | index1) of [保存 | 雲y v])\n    create clone of (_myself_ v)\nend\n\ndefine (番目) 番目のデータ\ndelete all of [保存 | 猫x v]\ndelete all of [保存 | 猫y v]\ndelete all of [保存 | ゴボx v]\ndelete all of [保存 | ゴボy v]\ndelete all of [保存 | ナノx v]\ndelete all of [保存 | ナノy v]\ndelete all of [保存 | 猫手x v]\ndelete all of [保存 | 猫手y v]\ndelete all of [保存 | 縮小x v]\ndelete all of [保存 | 縮小y v]\ndelete all of [保存 | 雲x v]\ndelete all of [保存 | 雲y v]\n文字列 (item (番目) of [保存 | アイテムリスト v]) を [,] ごとに区切る\nset [雑用 | index2 v] to [0]\ndelete all of [雑用 | 雑用1 v]\nrepeat (6)\n    change [雑用 | index2 v] by (1)\n    add (item (雑用 | index2) of [雑用 | 結果 v]) to [雑用 | 雑用1 v]\nend\nset [雑用 | index2 v] to [0]\nrepeat (6)\n    change [雑用 | index2 v] by (1)\n    文字列 (item (雑用 | index2) of [雑用 | 雑用1 v]) を [:] ごとに区切る\n    set [雑用 | index1 v] to [0]\n    delete all of [雑用 | 雑用2 v]\n    repeat (length of [雑用 | 結果 v])\n        change [雑用 | index1 v] by (1)\n        add (item (雑用 | index1) of [雑用 | 結果 v]) to [雑用 | 雑用2 v]\n    end\n    set [雑用 | index3 v] to [0]\n    repeat (length of [雑用 | 雑用2 v])\n        change [雑用 | index3 v] by (1)\n        文字列 (item (雑用 | index3) of [雑用 | 雑用2 v]) を [^] ごとに区切る\n        if <(雑用 | index2) = [1]> then\n            add (item (1) of [雑用 | 結果 v]) to [保存 | 猫x v]\n            add (item (2) of [雑用 | 結果 v]) to [保存 | 猫y v]\n        else\n            if <(雑用 | index2) = [2]> then\n                add (item (1) of [雑用 | 結果 v]) to [保存 | ゴボx v]\n                add (item (2) of [雑用 | 結果 v]) to [保存 | ゴボy v]\n            else\n                if <(雑用 | index2) = [3]> then\n                    add (item (1) of [雑用 | 結果 v]) to [保存 | ナノx v]\n                    add (item (2) of [雑用 | 結果 v]) to [保存 | ナノy v]\n                else\n                    if <(雑用 | index2) = [4]> then\n                        add (item (1) of [雑用 | 結果 v]) to [保存 | 猫手x v]\n                        add (item (2) of [雑用 | 結果 v]) to [保存 | 猫手y v]\n                    else\n                        if <(雑用 | index2) = [5]> then\n                            add (item (1) of [雑用 | 結果 v]) to [保存 | 縮小x v]\n                            add (item (2) of [雑用 | 結果 v]) to [保存 | 縮小y v]\n                        else\n                            if <(雑用 | index2) = [6]> then\n                                add (item (1) of [雑用 | 結果 v]) to [保存 | 雲x v]\n                                add (item (2) of [雑用 | 結果 v]) to [保存 | 雲y v]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 文字列 (文字列) を (区切り文字) ごとに区切る\nset [雑用 | index1 v] to [0]\nset [雑用 | 文字保存用 v] to []\ndelete all of [雑用 | 結果 v]\nrepeat (length of (文字列))\n    change [雑用 | index1 v] by (1)\n    if <(letter (雑用 | index1) of (文字列)) = (区切り文字)> then\n        add (雑用 | 文字保存用) to [雑用 | 結果 v]\n        set [雑用 | 文字保存用 v] to []\n    else\n        set [雑用 | 文字保存用 v] to (join (雑用 | 文字保存用) (letter (雑用 | index1) of (文字列)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) < [4]> then\n    show\n    repeat until <touching (プレイヤー v)?>\n        point in direction ((90) + ((15) * ([sin v] of ((timer) * (200)) )))\n    end\n    set [共通 | 現在選んでいるもの v] to (costume [number v])\n    repeat (30)\n        change size by (-4)\n        change [ghost v] effect by (10)\n        point in direction ((90) + ((30) * ([sin v] of ((timer) * (360)) )))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    show\n    repeat until <touching (プレイヤー v)?>\n        point in direction ((90) + ((15) * ([sin v] of ((timer) * (200)) )))\n    end\n    set [共通 | 猫手ある？ v] to [1]\n    repeat (30)\n        change size by (-4)\n        change [ghost v] effect by (10)\n        point in direction ((90) + ((30) * ([sin v] of ((timer) * (360)) )))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif < [5,6,7,] contains (costume [number v])?> then\n    show\n    repeat until <touching (プレイヤー v)?>\n        point in direction ((90) + ((15) * ([sin v] of ((timer) * (200)) )))\n    end\n    set [共通 | 縮小 v] to [1]\n    repeat (30)\n        change size by (-4)\n        change [ghost v] effect by (10)\n        point in direction ((90) + ((30) * ([sin v] of ((timer) * (360)) )))\n    end\n    delete this clone\nend\n\n[14] 番目のデータ\n\nwhen I start as a clone\nif <(costume [number v]) = [8]> then\n    show\n    repeat until <touching (プレイヤー v)?>\n        point in direction ((90) + ((15) * ([sin v] of (((20) + (timer)) * (200)) )))\n    end\n    set [共通 | 雲 v] to [1]\n    repeat (30)\n        change size by (-4)\n        change [ghost v] effect by (10)\n        point in direction ((90) + ((30) * ([sin v] of ((timer) * (360)) )))\n    end\n    delete this clone\nend\n\n[14] 番目のデータ\n\n@出口と鍵\n\nwhen flag clicked\nhide\n出口のデータ\n\nwhen I receive [本編 v]\nswitch costume to (2 v)\nrepeat (2)\n    next costume\n    create clone of (_myself_ v)\nend\n\ndefine 出口のデータ\ndelete all of [保存 | 出口x v]\ndelete all of [保存 | 出口y v]\ndelete all of [保存 | 鍵x v]\ndelete all of [保存 | 鍵y v]\nadd [184] to [保存 | 出口x v]\nadd [-4] to [保存 | 出口y v]\nadd [-75] to [保存 | 鍵x v]\nadd [122] to [保存 | 鍵y v]\nadd [206] to [保存 | 出口x v]\nadd [-50] to [保存 | 出口y v]\nadd [-60] to [保存 | 鍵x v]\nadd [-20] to [保存 | 鍵y v]\nadd [206] to [保存 | 出口x v]\nadd [-50] to [保存 | 出口y v]\nadd [-60] to [保存 | 鍵x v]\nadd [-20] to [保存 | 鍵y v]\nadd [185] to [保存 | 出口x v]\nadd [0] to [保存 | 出口y v]\nadd [-60] to [保存 | 鍵x v]\nadd [-20] to [保存 | 鍵y v]\nadd [206] to [保存 | 出口x v]\nadd [100] to [保存 | 出口y v]\nadd [0] to [保存 | 鍵x v]\nadd [50] to [保存 | 鍵y v]\nadd [206] to [保存 | 出口x v]\nadd [100] to [保存 | 出口y v]\nadd [0] to [保存 | 鍵x v]\nadd [0] to [保存 | 鍵y v]\nadd [110] to [保存 | 出口x v]\nadd [95] to [保存 | 出口y v]\nadd [40] to [保存 | 鍵x v]\nadd [-80] to [保存 | 鍵y v]\nadd [193] to [保存 | 出口x v]\nadd [61] to [保存 | 出口y v]\nadd [-172] to [保存 | 鍵x v]\nadd [105] to [保存 | 鍵y v]\nadd [185] to [保存 | 出口x v]\nadd [60] to [保存 | 出口y v]\nadd [215] to [保存 | 鍵x v]\nadd [-70] to [保存 | 鍵y v]\nadd [155] to [保存 | 出口x v]\nadd [-66] to [保存 | 出口y v]\nadd [-52] to [保存 | 鍵x v]\nadd [-32] to [保存 | 鍵y v]\nadd [180] to [保存 | 出口x v]\nadd [-33] to [保存 | 出口y v]\nadd [-32] to [保存 | 鍵x v]\nadd [124] to [保存 | 鍵y v]\nadd [180] to [保存 | 出口x v]\nadd [-36] to [保存 | 出口y v]\nadd [0] to [保存 | 鍵x v]\nadd [-45] to [保存 | 鍵y v]\nadd [200] to [保存 | 出口x v]\nadd [60] to [保存 | 出口y v]\nadd [0] to [保存 | 鍵x v]\nadd [0] to [保存 | 鍵y v]\nadd [200] to [保存 | 出口x v]\nadd [100] to [保存 | 出口y v]\nadd [0] to [保存 | 鍵x v]\nadd [14] to [保存 | 鍵y v]\nadd [211] to [保存 | 出口x v]\nadd [19] to [保存 | 出口y v]\nadd [100] to [保存 | 鍵x v]\nadd [-155] to [保存 | 鍵y v]\n\nwhen I start as a clone\npoint in direction (90)\ngo to [front v] layer\ngo [forward v] (3) layers\nif <(costume [number v]) = [1]> then\n    go to x: (item ([costume # v] of [地面 v]) of [保存 | 出口x v]) y: (item ([costume # v] of [地面 v]) of [保存 | 出口y v])\n    show\n    wait until <<(共通 | 鍵ゲット) = [1]> and <touching (プレイヤー v)?>>\n    start sound [SNES-Action01-09\(Door\) v]\n    set [共通 | 猫手ある？ v] to [0]\n    broadcast (次のステージ v)\n    broadcast (更新 v)\n    set [共通 | 鍵ゲット v] to [0]\nelse\n    show\n    repeat until <<(共通 | 鍵に触れた) = [1]> and <touching (プレイヤー v)?>>\n        go to x: ((item ([costume # v] of [地面 v]) of [保存 | 鍵x v]) + (([sin v] of (((timer) + (50)) * (70)) ) * (5))) y: ((item ([costume # v] of [地面 v]) of [保存 | 鍵y v]) + (([sin v] of ((timer) * (80)) ) * (5)))\n        point in direction ((90) + (([sin v] of (((timer) + (15)) * (80)) ) * (13)))\n    end\n    start sound [SNES-Action01-15\(Item\) v]\n    set [共通 | 鍵ゲット v] to [1]\n    repeat (10)\n        change [ghost v] effect by (10)\n        change y by (2)\n    end\n    delete this clone\nend\n\nwhen I receive [更新 v]\nset [共通 | 鍵ゲット v] to [0]\nif <[] = []> then\n    delete this clone\nend\nswitch costume to (2 v)\nrepeat (2)\n    next costume\n    create clone of (_myself_ v)\nend\n\n@装飾\n\nwhen flag clicked\nhide\n\nwhen I receive [本編 v]\nリスト追加\nswitch costume to (1 v)\ncreate clone of (_myself_ v)\nswitch costume to (join [説明] (共通 | 現在選んでいるもの))\nshow\nset size to (70) %\npoint in direction (pick random (85) to (95))\ngo to [back v] layer\nset [雑用 | 場所 v] to (pick random (1) to (6))\ngo to x: (item (雑用 | 場所) of [雑用 | 看板x v]) y: (item (雑用 | 場所) of [雑用 | 看板y v])\nchange y by (10)\nwait until <([costume # v] of [地面 v]) = [8]>\nset size to (100) %\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\ngo [backward v] (10) layers\nshow\ngo to x: (-84) y: (150)\npoint in direction (90)\nwait until <not <([costume # v] of [地面 v]) = [8]>>\nhide\n\ndefine リスト追加\ndelete all of [雑用 | 看板x v]\ndelete all of [雑用 | 看板y v]\nadd [-106] to [雑用 | 看板x v]\nadd [-92] to [雑用 | 看板y v]\nadd [-156] to [雑用 | 看板x v]\nadd [-92] to [雑用 | 看板y v]\nadd [-152] to [雑用 | 看板x v]\nadd [-90] to [雑用 | 看板y v]\nadd [38] to [雑用 | 看板x v]\nadd [18] to [雑用 | 看板y v]\nadd [104] to [雑用 | 看板x v]\nadd [15] to [雑用 | 看板y v]\nadd [153] to [雑用 | 看板x v]\nadd [16] to [雑用 | 看板y v]\n\nwhen this sprite clicked\nif <(join [説明] (共通 | 現在選んでいるもの)) = (costume [name v])> then\n    set [制御 | ストップ v] to [1]\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(join [説明] (共通 | 現在選んでいるもの)) = (costume [name v])> then\n    set [雑用 | 移動中 v] to [1]\n    go to [front v] layer\n    point in direction (90)\n    switch costume to (join (join [説明] (共通 | 現在選んでいるもの)) [<])\n    set size to (100) %\n    go to x: (0) y: (360)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    set [雑用 | 移動中 v] to [0]\nend\n\nwhen this sprite clicked\nif <<(雑用 | 移動中) = [0]> and <(join (join [説明] (共通 | 現在選んでいるもの)) [<]) = (costume [name v])>> then\n    set [制御 | ストップ v] to [0]\n    repeat (30)\n        switch costume to (移動用 v)\n        change y by (((-420) - (y position)) / (5))\n        switch costume to (join (join [説明] (共通 | 現在選んでいるもの)) [<])\n    end\n    delete this clone\nend\n\nwhen I receive [次のステージ v]\nif <(costume [number v]) < [7]> then\n    hide\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [1]> then\n    show\n    set size to (100) %\n    point in direction (90)\n    go to x: (0) y: (0)\n    go to [front v] layer\n    go [backward v] (15) layers\n    wait until <([costume # v] of [地面 v]) = [2]>\n    delete this clone\nend\n\n@サムネイル\n\nwhen flag clicked\nforever\n    switch costume to (コスチューム3 v)\n    show\n    set size to (100) %\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    go to [front v] layer\nend\n\n@イントロ\n\nwhen flag clicked\nshow\ngo to x: (0) y: (-193)\nswitch backdrop to (くろ v)\nswitch costume to (コスチューム2 v)\nset [雑用 | y速さ v] to [25]\nrepeat (25)\n    change [雑用 | y速さ v] by (-1)\n    change y by (雑用 | y速さ)\nend\nrepeat (85)\n    change [雑用 | y速さ v] by (-1)\n    change y by (雑用 | y速さ)\n    if <(y position) < [0]> then\n        change y by (() - (雑用 | y速さ))\n        set [雑用 | y速さ v] to ((() - (雑用 | y速さ)) * (0.7))\n        set volume to ((10) * ([abs v] of (雑用 | y速さ) )) %\n        start sound [Tap Conga v]\n    end\nend\nrepeat (5)\n    change [雑用 | y速さ v] by (-1)\n    change y by (雑用 | y速さ)\nend\nswitch costume to (コスチューム1 v)\nset [雑用 | 明るさ v] to [0]\nbroadcast (かわれ v)\nrepeat (20)\n    change [雑用 | 明るさ v] by (((-100) - (雑用 | 明るさ)) / (3))\n    change y by (((0) - (y position)) / (3))\nend\nwait (0.5) seconds\nrepeat (10)\n    change [ghost v] effect by (((-3) - (雑用 | 明るさ)) / (3))\n    change [雑用 | 明るさ v] by (((-3) - (雑用 | 明るさ)) / (3))\n    change y by (((10) - (y position)) / (3))\nend\nhide\nbroadcast (イントロ終了 v)\n\n@選択画面\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\nset [選ぶの完了 v] to [0]\nset [共通 | 現在選んでいるもの v] to [1]\nwait (0.3) seconds\nクローン\nrepeat until <(選ぶの完了) = [1]>\n    if <not <(共通 | 現在選んでいるもの) = [1]>> then\n        if <key (left arrow v) pressed?> then\n            change [共通 | 現在選んでいるもの v] by (-1)\n            start sound (pick random (1) to (pick random (1) to (10)))\n        end\n        wait until <not <key (left arrow v) pressed?>>\n    end\n    if <not <(共通 | 現在選んでいるもの) = [3]>> then\n        if <key (right arrow v) pressed?> then\n            change [共通 | 現在選んでいるもの v] by (1)\n            start sound (pick random (1) to (pick random (1) to (10)))\n        end\n        wait until <not <key (right arrow v) pressed?>>\n    end\n    set volume to (50) %\nend\n\nwhen I start as a clone\nif <(costume [number v]) < [4]> then\n    show\n    set size to (150) %\n    go to x: (0) y: (0)\n    set [雑用 | 幽霊の効果 v] to [0]\n    repeat until <(選ぶの完了) = [1]>\n        if <touching (mouse-pointer v)?> then\n            change size by (((180) - (size)) / (5))\n        else\n            change size by (((150) - (size)) / (5))\n        end\n        change x by (((((costume [number v]) - (共通 | 現在選んでいるもの)) * (50)) - (x position)) / (5))\n        change [雑用 | 幽霊の効果 v] by ((([abs v] of (((costume [number v]) - (共通 | 現在選んでいるもの)) * (40)) ) - (雑用 | 幽霊の効果)) / (5))\n        set [ghost v] effect to (雑用 | 幽霊の効果)\n        change size by ((([abs v] of (((2) - ([abs v] of ((共通 | 現在選んでいるもの) - (costume [number v])) )) * (70)) ) - (size)) / (5))\n        point in direction (90)\n        if <(共通 | 現在選んでいるもの) = (costume [number v])> then\n            go to [front v] layer\n            point in direction ((90) + (([sin v] of ((timer) * (200)) ) * (5)))\n            change y by (((([sin v] of ((timer) * (194)) ) * (3)) - (y position)) / (3))\n            change x by (((([sin v] of ((timer) * (179)) ) * (3)) - (x position)) / (3))\n        end\n    end\nend\n\nwhen I start as a clone\nif < [_右_左_] contains (join [_] (join (costume [name v]) [_]))?> then\n    show\n    set size to (150) %\n    forever\n        set [ghost v] effect to (30)\n        point in direction ((90) + (([sin v] of ((timer) * (230)) ) * ((3) * (((costume [number v]) - (4.5)) * (2)))))\n        go to x: ((((costume [number v]) - (4.5)) * (-300)) + (([sin v] of ((timer) * (320)) ) * (5))) y: (0)\n    end\nend\n\nwhen this sprite clicked\nif < [_右_左_] contains (join [_] (join (costume [name v]) [_]))?> then\n    set volume to (50) %\n    show\n    set size to (150) %\n    if <(costume [name v]) = [右]> then\n        if <not <(共通 | 現在選んでいるもの) = [3]>> then\n            change [共通 | 現在選んでいるもの v] by (1)\n            start sound (pick random (1) to (pick random (1) to (10)))\n        end\n    end\n    if <(costume [name v]) = [左]> then\n        if <not <(共通 | 現在選んでいるもの) = [1]>> then\n            change [共通 | 現在選んでいるもの v] by (-1)\n            start sound (pick random (1) to (pick random (1) to (10)))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [説明1]> then\n    forever\n        show\n        set size to (100) %\n        go to x: (0) y: (130)\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [説明2]> then\n    forever\n        show\n        set size to (80) %\n        go to x: (-15) y: (100)\n    end\nend\n\nwhen this sprite clicked\nif <(costume [number v]) < [4]> then\n    set [共通 | 現在選んでいるもの v] to (costume [number v])\n    start sound (pick random (1) to (pick random (1) to (10)))\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [選択完了]> then\n    show\n    set size to (100) %\n    go to x: (0) y: (-120)\n    forever\n        if <touching (mouse-pointer v)?> then\n            change size by (((120) - (size)) / (5))\n        else\n            change size by (((100) - (size)) / (5))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [背景]> then\n    forever\n        show\n        go to x: (0) y: (0)\n        go to [back v] layer\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [特徴枠]> then\n    forever\n        show\n        set size to (150) %\n        go to x: (-150) y: (-110)\n    end\nend\n\nwhen I start as a clone\nif < [_特徴1_特徴2_特徴3_] contains (join [_] (join (costume [name v]) [_]))?> then\n    set [雑用 | 幽霊の効果 v] to [0]\n    forever\n        show\n        set size to (100) %\n        go to x: (-150) y: (-110)\n        if <(join [特徴] (共通 | 現在選んでいるもの)) = (costume [name v])> then\n            change [雑用 | 幽霊の効果 v] by (((0) - (雑用 | 幽霊の効果)) / (5))\n        else\n            change [雑用 | 幽霊の効果 v] by (((100) - (雑用 | 幽霊の効果)) / (5))\n        end\n        set [ghost v] effect to (雑用 | 幽霊の効果)\n    end\nend\n\ndefine クローン\nswitch costume to (bgm v)\nrepeat (14)\n    next costume\n    create clone of (_myself_ v)\nend\n\nwhen this sprite clicked\nset [共通 | 最初に選んだもの v] to (共通 | 現在選んでいるもの)\nif <(costume [name v]) = [選択完了]> then\n    broadcast (選択完了 v)\n    set [選ぶの完了 v] to [1]\nend\n\nwhen I receive [選択完了 v]\nif <not <(costume [name v]) = [背景]>> then\n    stop [other scripts in sprite v]\n    if <(costume [name v]) = [選択完了]> then\n        repeat (10)\n            change [ghost v] effect by (10)\n            change size by (10)\n        end\n        broadcast (本編 v)\n        stop all sounds\n        delete this clone\n    else\n        repeat (20)\n            change [ghost v] effect by (5)\n            change volume by (-5)\n        end\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [BGM]> then\n    set volume to (30) %\n    forever\n        play sound [Specification v] until done\n    end\nend\n\n@空白\n\n@台風\n\nwhen flag clicked\nhide\nwait (1) seconds\nwait until <([costume # v] of [地面 v]) = [12]>\nrepeat until <not <([costume # v] of [地面 v]) = [12]>>\n    set [雑用 | x v] to (([sin v] of ((timer) * (100)) ) * (50))\nend\nrepeat until <not <([costume # v] of [地面 v]) = [13]>>\n    set [雑用 | x v] to ((([sin v] of ((timer) * (100)) ) * (50)) + (90))\nend\n\nwhen I start as a clone\nif <([costume # v] of [地面 v]) = [12]> then\n    show\n    go [backward v] (31) layers\n    set [雑用 | y v] to [-100]\n    set [雑用 | 乱数 v] to (pick random (-30) to (30))\n    set [ghost v] effect to (pick random (50) to (10))\n    repeat (30)\n        change [雑用 | y v] by (5)\n        go to x: ((([sin v] of (((timer) + (雑用 | 乱数)) * (300)) ) * (((雑用 | y) / (5)) + (20))) + (雑用 | x)) y: (雑用 | y)\n    end\n    delete this clone\nelse\n    show\n    go [backward v] (31) layers\n    set [雑用 | y v] to [-150]\n    set [雑用 | 乱数 v] to (pick random (-30) to (30))\n    set [ghost v] effect to (pick random (50) to (10))\n    repeat (30)\n        change [雑用 | y v] by (7)\n        go to x: ((([sin v] of (((timer) + (雑用 | 乱数)) * (300)) ) * (((雑用 | y) / (5)) + (30))) + (雑用 | x)) y: (雑用 | y)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nhide\nwait (1) seconds\nwait until <([costume # v] of [地面 v]) = [12]>\nrepeat until <not <([costume # v] of [地面 v]) = [12]>>\n    create clone of (_myself_ v)\nend\nrepeat until <not <([costume # v] of [地面 v]) = [13]>>\n    create clone of (_myself_ v)\nend\n\n@地面2\n\nwhen flag clicked\nhide\nwait (1) seconds\n\nwhen I receive [次のステージ v]\nwait (0.001) seconds\nif <not < [,5,] contains (join (join [,] ([costume # v] of [地面 v])) [,])?>> then\n    stop [other scripts in sprite v]\n    hide\nend\n\nwhen I receive [次のステージ v]\nwait (0.001) seconds\nif <([costume # v] of [地面 v]) = [5]> then\n    show\n    switch costume to (コスチューム1 v)\n    go to x: (70) y: (70)\n    forever\n        wait (0.7) seconds\n        go to x: (-70) y: (-70)\n        wait (0.7) seconds\n        go to x: (0) y: (0)\n        wait (0.7) seconds\n        go to x: (70) y: (70)\n    end\nelse\nend\n\n