マリオプラットフォーマー Mario platformer

Instructions: ［ーーEnglish is belowーーI'm sorry…］\nーー日本語ーー\nマリオのプラットフォーマーです！！\nゴールの時に、♡と☆を押して隠しステージに行け！！\nたまにバグってしまいますが,ご了承ください。\n但し,致命的なバグなら直ちに修正いたします。\nコメ欄にてお早めにお知らせください。↓原作が消えた…\n原作の@--XPlatformerBoy--さんに感謝致します！！\n✦✦✦使い方✦✦✦\n矢印キーを使ってマリオを動かします。\nモバイルにも対応！！\n✦✦✦クレジット✦✦✦\n@gan_man→\n                     https://scratch.mit.edu/projects/735564241\n@SAKURA793→\n                     https://scratch.mit.edu/projects/802080772\n✦✦✦バグ修正＆報告✦✦✦\n2023/02/12 19:00頃 マリオプラフォ公開！！\n2023/02/20 フォロ好きに載った！\nーーEnglishーー\nIt's Mario's platformer!!\nWhen you reach the goal, \npress ♡ and ☆ to go to the hidden stage!!\nPlease note that it sometimes becomes a bug.\nHowever, if it is a fatal bug, we will fix it immediately.\nPlease let us know as soon as possible in the Comment section. ↓The original has disappeared...\nThank you to the original @--XPlatformerBoy--!!\n✦✦✦How to use✦✦✦\nUse the arrow keys to move the mario.\n It also supports mobile!\n✦✦✦Credit✦✦✦\n@gan_man→\n                     https://scratch.mit.edu/projects/735564241\n@SAKURA793→\n                     https://scratch.mit.edu/projects/802080772

@Stage\n\nwhen flag clicked\nwait (12) seconds\nbroadcast (\[Intro\] over v)\nforever\n    play sound (pick random (1) to (3)) until done\nend\n\n@マリオ\n\nwhen flag clicked\ndelete all of [状態 v]\nset rotation style [left-right v]\nreset\nsetup platformer\nbroadcast (Next Level v)\n\ndefine reset\nset [xベル v] to [0]\nset [yベル v] to [0]\ngo to x: (-216) y: (0)\nstart sound [High Whoosh v]\n\nwhen I receive [next level v]\nreset\n\ndefine setup platformer\nset [状態 v] to [7]\nset [重力 v] to [10]\nset [ジャンプ力 v] to [15]\nset [速度 v] to [1]\nset [ステージ/a stage v] to [1]\n\nwhen I receive [\[intro\] over v]\nforever\n    Show Health (状態) of [7] offset y [-40]\n    if <(状態) < [1]> then\n        start sound [Wood Tap v]\n        broadcast (__Screen Wipe v)\n        if <<[0] < (ステージ/A stage)> and <[8] > (ステージ/A stage)>> then\n            set [ステージ/a stage v] to [1]\n            set [状態 v] to [7]\n        else\n            if <[7] = (ステージ/A stage)> then\n                set [ステージ/a stage v] to [7]\n                set [状態 v] to [7]\n            end\n            if <[8] = (ステージ/A stage)> then\n                set [ステージ/a stage v] to [8]\n                set [状態 v] to [7]\n            end\n        end\n    end\n    left and right controls\n    wall sensing bug\n    wall sensing bug\n    wall sensing bug\n    wall sensing bug\n    walljumping/sensing\n    wall sensing\n    jumping\n    if <touching (ゴール v)?> then\n        change [ステージ/a stage v] by (1)\n        broadcast (__Screen Wipe v)\n        broadcast (Next Level v) and wait\n    end\n    if <touching (管理所 v)?> then\n        broadcast (die v)\n        start sound [Wood Tap v]\n        change [状態 v] by (-1)\n        hide\n        wait (1) seconds\n        show\n        reset\n    end\n    if <touching (trampoline v)?> then\n        start sound [jump1 v]\n        set [yベル v] to [20]\n    end\nend\n\ndefine left and right controls\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n    change [xベル v] by ((速度) - ((速度) * (2)))\n    set [方向 v] to [-90]\nend\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    change [xベル v] by (速度)\n    set [方向 v] to [90]\nend\nset [xベル v] to ((xベル) * (0.9))\nchange x by (xベル)\n\ndefine walljumping/sensing\nif <<touching (地面 v)?> or <touching (movin platformer v)?>> then\n    change y by (-4)\n    change x by ((xベル) * (-1))\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <(xベル) > ((重力) + ((重力) - ((重力) * (2))))> then\n            set [xベル v] to (round ((重力) - ((重力) * (2))))\n        else\n            set [xベル v] to (round (重力))\n        end\n        set [yベル v] to ((重力) + ((重力) - ((重力) / (2))))\n    else\n        set [xベル v] to ((重力) + ((重力) - ((重力) * (2))))\n    end\nend\n\ndefine wall sensing\nchange [yベル v] by ((((重力) + ((重力) - ((重力) * (2)))) + (1)) * (-1))\nchange y by (yベル)\nif <<touching (地面 v)?> or <touching (movin platformer v)?>> then\n    change y by ((yベル) - ((yベル) * (2)))\n    set [yベル v] to ((重力) + ((重力) - ((重力) * (2))))\nend\nchange y by (-1)\n\ndefine jumping\nif <<<<touching (地面 v)?> or <touching (movin platformer v)?>> or <touching (地面エレベーター v)?>> and <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n    start sound [jump1 v]\n    set [yベル v] to (ジャンプ力)\nend\nchange y by (1)\n\nwhen I receive [\[intro\] over v]\nshow\nforever\n    broadcast (forever loop v)\nend\n\nwhen I receive [forever loop v]\npoint in direction (方向)\nset [x v] to (round (x position))\nset [y v] to (round (y position))\n\ndefine Show Health (health) of (max) offset y (y)\nadd (x position) to [状態 v]\nadd ((y position) + (y)) to [状態 v]\nadd ((health) / (max)) to [状態 v]\ncreate clone of (hpバー v)\n\nwhen flag clicked\nswitch costume to (マリオ v)\nhide\n\ndefine wall sensing bug\nif <<touching (地面 v)?> or <touching (movin platformer v)?>> then\n    change y by (1)\nend\n\nwhen I receive [\[intro\] over v]\nif <(username) = [hero-1011]> then\n    forever\n        set [状態 v] to [7]\n        wait (1) seconds\n    end\nend\n\nwhen I receive [\[intro\] over v]\nforever\n    if <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> or <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        switch costume to (チビ＿歩く1 v)\n        wait (0) seconds\n        switch costume to (チビ＿歩く2 v)\n        wait (0) seconds\n    end\n    if <<not <<[0.1] < (yベル)> or <(yベル) < [-0.1]>>> and <<<<not <key (left arrow v) pressed?>> or <not <key (a v) pressed?>>> or <not <mouse down?>>> and <<<not <key (right arrow v) pressed?>> or <not <key (d v) pressed?>>> or <not <mouse down?>>>>> then\n        switch costume to (マリオ v)\n    end\n    if <<[0.1] < (yベル)> or <(yベル) < [-0.1]>> then\n        switch costume to (チビ＿ジャンプ v)\n    end\nend\n\n@地面\n\nwhen I receive [\[intro\] over v]\nshow\nset [ステージ/a stage v] to [1]\ngo to x: (0) y: (0)\ngo to [front v] layer\ngo [backward v] (3) layers\nforever\n    switch costume to (ステージ/A stage)\nend\n\nwhen flag clicked\nhide variable [タイム/a thyme v]\nhide\n\n@管理所\n\nwhen I receive [\[intro\] over v]\nshow\nset [ステージ/a stage v] to [1]\n\nwhen flag clicked\nhide variable [タイム/a thyme v]\nhide variable [ステージ/a stage v]\nhide\n\nwhen I receive [\[intro\] over v]\nhide variable [ステージ/a stage v]\nhide variable [タイム/a thyme v]\nhide variable [タイム予備 v]\nset [タイム/a thyme v] to [0]\nreset timer\nforever\n    set [タイム/a thyme v] to (timer)\n    if <(ステージ/A stage) = [8]> then\n        if <(タイム/A thyme) < (☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____The fastest time!)> then\n            if <not <(username) = [hero-1011]>> then\n                set [☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____the fastest time! v] to (タイム/A thyme)\n            end\n        end\n        show variable [タイム/a thyme v]\n        show variable [☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____the fastest time! v]\n        stop [this script v]\n    end\nend\n\nwhen I receive [\[intro\] over v]\nset [タイム予備 v] to [0]\nreset timer\nforever\n    set [タイム予備 v] to (timer)\nend\n\nset [タイム/a thyme v] to [0]\nset [タイム予備 v] to [0]\n\nwhen [timer v] > (タイム予備)\nhide variable [☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____the fastest time! v]\nhide variable [ステージ/a stage v]\nhide variable [タイム/a thyme v]\nhide variable [タイム予備 v]\n\nset [ステージ/a stage v] to [8]\n\nwhen flag clicked\nforever\n    if <(ステージ/A stage) = [8]> then\n        show variable [☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____the fastest time! v]\n    else\n        hide variable [☁ 最速タイム！＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿____the fastest time! v]\n    end\nend\n\nset [ステージ/a stage v] to [9]\n\nwhen flag clicked\nforever\n    if <(ステージ/A stage) = [9]> then\n        show variable [☁ 隠しゴールを見つけた人＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿the person who found a hidden goal v]\n    else\n        hide variable [☁ 隠しゴールを見つけた人＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿the person who found a hidden goal v]\n    end\nend\n\nwhen I receive [\[intro\] over v]\nhide variable [ステージ/a stage v]\nhide variable [タイム/a thyme v]\nhide variable [タイム予備 v]\nset [タイム/a thyme v] to [0]\nwait until <(ステージ/A stage) = [9]>\nforever\n    if <not <(username) = [hero-1011]>> then\n        change [☁ 隠しゴールを見つけた人＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿the person who found a hidden goal v] by (1)\n    end\n    hide variable [タイム/a thyme v]\n    show variable [☁ 隠しゴールを見つけた人＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿the person who found a hidden goal v]\n    stop [this script v]\nend\n\n@HPバー\n\nwhen flag clicked\nhide\ndelete all of [状態 v]\n\nwhen I start as a clone\nset x to (item (1) of [状態 v])\nset y to (item (2) of [状態 v])\nswitch costume to ((10) * (item (3) of [状態 v]))\ndelete (1) of [状態 v]\ndelete (1) of [状態 v]\ndelete (1) of [状態 v]\nif <not <touching (_edge_ v)?>> then\n    go to [front v] layer\n    show\n    wait (0) seconds\nend\ndelete this clone\n\ndefine show health bar (health) of (max) offset y (y)\nadd (x position) to [状態 v]\nadd ((y position) + (y)) to [状態 v]\nadd ((health) / (max)) to [状態 v]\ncreate clone of (hpバー v)\n\nwhen I start as a clone\nforever\n    if <(次へ) = [die]> then\n        go to [front v] layer\n        hide\n        wait (0) seconds\n        delete this clone\n    else\n        show\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\n\n@モバイル対応\n\nwhen I receive [\[intro\] over v]\nhide\nforever\n    if <mouse down?> then\n        set [ghost v] effect to (50)\n        go to (mouse-pointer v)\n        show\n        wait until <not <mouse down?>>\n        hide\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nhide\nforever\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\nwhen I receive [\[intro\] over v]\nforever\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n@ゴール\n\nwhen flag clicked\nhide\n\nwhen I receive [\[intro\] over v]\nshow\nforever\n    go to [front v] layer\n    go to x: (0) y: (0)\n    if <(ステージ/A stage) = [12]> then\n        repeat until <(ステージ/A stage) = [13]>\n            set drag mode [draggable v]\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                go to x: (mouse x) y: (mouse y)\n            end\n        end\n    else\n        set drag mode [not draggable v]\n    end\nend\n\nwhen flag clicked\nwait until <(ステージ/A stage) = [13]>\nhide\nstop [other scripts in sprite v]\n\n@隠し地面\n\nwhen I receive [\[intro\] over v]\nforever\n    go to [front v] layer\n    hide\n    show variable [ステージ/a stage v]\n    if <(ステージ/A stage) = [3]> then\n        show\n        if <touching (マリオ v)?> then\n            set [ghost v] effect to (40)\n            wait until <([x position v] of [マリオ v]) = [-216]>\n        else\n            set [ghost v] effect to (0)\n        end\n    end\nend\n\nwhen flag clicked\nhide variable [ステージ/a stage v]\nhide\n\n@モバイル対応 \n\ndefine block name\nif <(mouse x) > (x position)> then\n    repeat until <<(round (x position)) = (round (mouse x))> or <(round (x position)) > (([x position v] of [モバイル対応 v]) + (19))>>\n        change x by (1)\n    end\nelse\n    if <(x position) > (mouse x)> then\n        repeat until <<(round (x position)) = (round (mouse x))> or <(([x position v] of [モバイル対応 v]) + (-19)) > (round (x position))>>\n            change x by (-1)\n        end\n    end\nend\nif <(mouse y) > (y position)> then\n    repeat until <<(round (y position)) = (round (mouse y))> or <(round (y position)) > (([y position v] of [モバイル対応 v]) + (19))>>\n        change y by (1)\n    end\nelse\n    if <(y position) > (mouse y)> then\n        repeat until <<(round (y position)) = (round (mouse y))> or <(([y position v] of [モバイル対応 v]) + (-19)) > (round (y position))>>\n            change y by (-1)\n        end\n    end\nend\n\nwhen I receive [\[intro\] over v]\npoint in direction (90)\nhide\nforever\n    if <mouse down?> then\n        set [ghost v] effect to (50)\n        go to (モバイル対応 v)\n        show\n        repeat until <not <mouse down?>>\n            block name\n        end\n        hide\n    end\nend\n\n@hero-1011\n\nwhen flag clicked\nhide\npoint in direction (90)\ngo to x: (0) y: (0)\ncreate clone of (_myself_ v)\nswitch costume to (h v)\nset size to (100) %\nswitch costume to (囲い v)\nstart sound [Far Out - Strangers v]\nwait (3.6) seconds\nbroadcast (1 v)\nwait (2) seconds\nshow\nswitch costume to (h v)\ngo to x: (500) y: (0)\nrepeat (20)\n    set x to ((x position) * (0.8))\nend\nset [\(￣▽￣\) v] to [0]\npoint in direction (90)\nrepeat (20)\n    change [\(￣▽￣\) v] by (1)\n    turn right (\(￣▽￣\)) degrees\nend\nrepeat (15)\n    change [\(￣▽￣\) v] by (-1.25)\n    turn right (\(￣▽￣\)) degrees\nend\nrepeat (20)\n    set x to ((x position) * (0.8))\nend\nset [\(￣▽￣\) v] to [0]\nrepeat (25)\n    change [\(￣▽￣\) v] by (-1)\n    change x by (\(￣▽￣\))\nend\nhide\n\nwhen I start as a clone\nwait (11.5) seconds\ndelete this clone\n\nwhen I start as a clone\nshow\nswitch costume to (囲い v)\nwait (3.6) seconds\nrepeat (3)\n    point in direction (90)\n    set [私の変数 v] to [0]\n    set size to (100) %\n    repeat (2)\n        change size by (-10)\n    end\n    repeat (10)\n        change [私の変数 v] by (0.5)\n        change size by (私の変数)\n    end\n    wait (0.15) seconds\n    point in direction (90)\n    set [私の変数 v] to [0]\n    set size to (100) %\n    repeat (2)\n        change size by (-10)\n    end\n    repeat (10)\n        change [私の変数 v] by (0.5)\n        change size by (私の変数)\n    end\n    point in direction (90)\n    set [私の変数 v] to [0]\n    set size to (100) %\n    repeat (2)\n        change size by (-10)\n    end\n    repeat (10)\n        change [私の変数 v] by (0.5)\n        change size by (私の変数)\n    end\n    wait (0.65) seconds\n    point in direction (90)\n    set [私の変数 v] to [0]\n    set size to (100) %\n    repeat (2)\n        change size by (-10)\n    end\n    repeat (10)\n        change [私の変数 v] by (0.5)\n        change size by (私の変数)\n    end\n    point in direction (90)\n    set [私の変数 v] to [0]\n    set size to (100) %\n    repeat (2)\n        change size by (-10)\n    end\n    repeat (10)\n        change [私の変数 v] by (0.5)\n        change size by (私の変数)\n    end\n    wait (0.5) seconds\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@花火\n\ndefine set X: (x) Y: (y) 向き (向き) 色 (色) 明るさ (明るさ) パターン (パターン)\nset [x v] to (x)\nset [y v] to (y)\nset [向き v] to (向き)\nset [色 v] to (色)\nset [明るさ v] to (明るさ)\nset [パターン v] to (パターン)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(パターン) = [花火]> then\n    clear graphic effects\n    show\n    set size to (100) %\n    point in direction (向き)\n    go to x: (花火_X) y: (花火_Y)\n    switch costume to (fw//fw_3 v)\n    go to [front v] layer\n    set [brightness v] effect to (明るさ)\n    set [ghost v] effect to (100)\n    set size to (50) %\n    show\n    set [花火みたいなやつのスピード v] to [25]\n    repeat (10)\n        move (花火みたいなやつのスピード) steps\n        set [花火みたいなやつのスピード v] to ((花火みたいなやつのスピード) * (0.8))\n        change [ghost v] effect by (-50)\n    end\n    repeat (7)\n        move (花火みたいなやつのスピード) steps\n        set [花火みたいなやつのスピード v] to ((花火みたいなやつのスピード) * (0.8))\n        next costume\n    end\n    repeat (7)\n        move (花火みたいなやつのスピード) steps\n        set [花火みたいなやつのスピード v] to ((花火みたいなやつのスピード) * (0.8))\n        next costume\n        change [ghost v] effect by (15)\n    end\n    delete this clone\nend\n\ndefine 花火 X: (x) y: (y)\nset [花火_x v] to (x)\nset [花火_y v] to (y)\nset X: (花火_X) Y: (花火_Y) 向き [0] 色 [] 明るさ [100] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [36] 色 [] 明るさ [] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [72] 色 [] 明るさ [100] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [108] 色 [] 明るさ [] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [144] 色 [] 明るさ [100] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [180] 色 [] 明るさ [] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [216] 色 [] 明るさ [100] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [252] 色 [] 明るさ [] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [288] 色 [] 明るさ [100] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [324] 色 [] 明るさ [] パターン [花火]\nset X: (花火_X) Y: (花火_Y) 向き [360] 色 [] 明るさ [100] パターン [花火]\n\nwhen I receive [1 v]\n花火 X: [50] y: [100]\n花火 X: [50] y: [-100]\n花火 X: [-50] y: [100]\n花火 X: [-50] y: [-100]\n\nwhen I receive [2 v]\n花火 X: [0] y: [0]\n花火 X: [150] y: [100]\n花火 X: [150] y: [-100]\n花火 X: [-150] y: [100]\n花火 X: [-150] y: [-100]\n\nwhen I receive [3 v]\n花火 X: [-150] y: [100]\n花火 X: [-150] y: [-100]\nwait (0.1) seconds\n花火 X: [-75] y: [100]\n花火 X: [-75] y: [-100]\nwait (0.1) seconds\n花火 X: [0] y: [100]\n花火 X: [0] y: [-100]\nwait (0.1) seconds\n花火 X: [75] y: [100]\n花火 X: [75] y: [-100]\nwait (0.1) seconds\n花火 X: [150] y: [100]\n花火 X: [150] y: [-100]\nwait (0.1) seconds\n花火 X: [150] y: [100]\n花火 X: [150] y: [-100]\nwait (0.1) seconds\n花火 X: [75] y: [100]\n花火 X: [75] y: [-100]\nwait (0.1) seconds\n花火 X: [0] y: [100]\n花火 X: [0] y: [-100]\nwait (0.1) seconds\n花火 X: [-75] y: [100]\n花火 X: [-75] y: [-100]\nwait (0.1) seconds\n花火 X: [-150] y: [100]\n花火 X: [-150] y: [-100]\n\n@丸\n\ndefine set X: (x) Y: (y) 向き (向き) 色 (色) 明るさ (明るさ) パターン (パターン)\nset [x v] to (x)\nset [y v] to (y)\nset [向き v] to (向き)\nset [色 v] to (色)\nset [明るさ v] to (明るさ)\nset [パターン v] to (パターン)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(パターン) = [丸]> then\n    go to x: (X) y: (Y)\n    switch costume to (丸 v)\n    set [brightness v] effect to (明るさ)\n    set [color v] effect to (色)\n    show\n    set size to (0) %\nend\nset [fisheye v] effect to (250)\ngo to [front v] layer\nrepeat (12)\n    change size by (((200) - (size)) / (5))\n    change [fisheye v] effect by ((7500) / ((200) - (size)))\nend\nrepeat (10)\n    change size by (((200) - (size)) / (5))\n    change [fisheye v] effect by ((7500) / ((200) - (size)))\nend\ndelete this clone\n\nwhen I receive [1 v]\nwait (1) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.5) seconds\nset X: [0] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [0] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [200] Y: [0] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-200] Y: [0] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (1.5) seconds\nset X: [0] Y: [0] 向き [] 色 [] 明るさ [100] パターン [丸]\nbroadcast (2 v)\n\nwhen I receive [3 v]\nwait (1) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [100] Y: [75] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-100] Y: [75] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [0] Y: [0] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [-100] Y: [-75] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [100] Y: [-75] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [-100] Y: [-75] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [100] Y: [-75] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [0] Y: [0] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [100] Y: [75] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-100] Y: [75] 向き [] 色 [] 明るさ [100] パターン [丸]\nwait (0.1) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [100] パターン [丸]\n\n@ダイヤ\n\ndefine set X: (x) Y: (y) 向き (向き) 色 (色) 明るさ (明るさ) パターン (パターン)\nset [x v] to (x)\nset [y v] to (y)\nset [向き v] to (向き)\nset [色 v] to (色)\nset [明るさ v] to (明るさ)\nset [パターン v] to (パターン)\npoint in direction (向き)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(パターン) = [ダイヤ]> then\n    go to [back v] layer\n    go to x: (X) y: (Y)\n    clear graphic effects\n    show\n    set size to () %\n    switch costume to (ダイヤ v)\n    repeat (14)\n        change size by (((100) - (size)) / (3))\n    end\n    repeat (14)\n        switch costume to (大きさ変更 v)\n        change size by (((300) - (size)) / (3))\n        switch costume to (ダイヤ v)\n    end\n    repeat (19)\n        switch costume to (大きさ変更 v)\n        change size by (((500) - (size)) / (3))\n        switch costume to (ダイヤ v)\n    end\n    hide\n    delete this clone\nend\n\nwhen I receive [1 v]\nset X: [200] Y: [200] 向き [0] 色 [] 明るさ [50] パターン [ダイヤ]\nset X: [200] Y: [-200] 向き [0] 色 [] 明るさ [50] パターン [ダイヤ]\nset X: [-200] Y: [200] 向き [90] 色 [] 明るさ [50] パターン [ダイヤ]\nset X: [-200] Y: [-200] 向き [] 色 [] 明るさ [50] パターン [ダイヤ]\n\nwhen I receive [3 v]\nset X: [250] Y: [] 向き [] 色 [] 明るさ [] パターン [ダイヤ]\nset X: [-250] Y: [] 向き [] 色 [] 明るさ [] パターン [ダイヤ]\n\n@ダイヤ \n\ndefine set X: (x) Y: (y) 向き (向き) 色 (色) 明るさ (明るさ) パターン (パターン)\nset [x v] to (x)\nset [y v] to (y)\nset [向き v] to (向き)\nset [色 v] to (色)\nset [明るさ v] to (明るさ)\nset [パターン v] to (パターン)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(パターン) = [ダイヤ2]> then\n    go to [back v] layer\n    go to x: (X) y: (Y)\n    clear graphic effects\n    show\n    set size to () %\n    switch costume to (ダイヤモンド v)\n    repeat (14)\n        change size by (((100) - (size)) / (3))\n    end\n    repeat (13)\n        switch costume to (大きさ変更 v)\n        change size by (((300) - (size)) / (3))\n        switch costume to (ダイヤモンド v)\n    end\n    repeat (14)\n        switch costume to (大きさ変更 v)\n        change size by (((500) - (size)) / (3))\n        switch costume to (ダイヤモンド v)\n    end\n    hide\n    delete this clone\nend\n\nwhen I receive [1 v]\nset X: [200] Y: [-200] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [200] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (2) seconds\nset X: [150] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-150] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\n\nwhen I receive [2 v]\nset X: [0] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\n\nwhen I receive [2 v]\nset X: [200] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.5) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.5) seconds\nwait (0.1) seconds\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [-100] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [100] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [0] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [100] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-100] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nbroadcast (3 v)\nset X: [0] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [0] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [200] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.5) seconds\nset X: [0] Y: [0] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nwait (0.2) seconds\nset X: [200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nwait (0.2) seconds\nset X: [200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\nset X: [-200] Y: [-150] 向き [] 色 [] 明るさ [] パターン [ダイヤ2]\n\n