#3 | Space 2.5D Scroll Platformer [DEMO]

Instructions: [DEMO VERSION / テスト版です。]\n操作方法は普通のプラットフォーマーと同じです。\nこれはテスト版なので、とてもステージが短いです。\nすみません。\nThe operation method is the same as a normal platformer.\nThis is demo version so the stage is too short ;(\nEnjoy!

@Stage\n\nwhen flag clicked\nset [edit  mode v] to []\nif <(username) = [Cloudcoder19]> then\n    wait until <key (a v) pressed?>\n    set [edit  mode v] to [Edit]\nelse\nend\n\n@Pen\n\nwhen I receive [a v]\n\n    set [操作 v] to []\n    if <<<[100] < ((0) + (item (6) of [変数リスト v]))> or <(Spikes) = [1]>> and <[] = (Edit  mode)>> then\n        set [操作 v] to [0]\n        repeat until <<<[0] = (round (X座標))> and <[0] = (round (Y座標))>> and <<(round (() - (item (1) of [point v]))) = (round (item (5) of [変数リスト v]))> and <(round ((-50) - (item (2) of [point v]))) = (round (item (6) of [変数リスト v]))>>>\n            Var [5] Lot (((() - (item (1) of [point v])) - (item (5) of [変数リスト v])) / (7)) Change\n            Var [6] Lot ((((-50) - (item (2) of [point v])) - (item (6) of [変数リスト v])) / (7)) Change\n            change [x座標 v] by ((X座標) / (-7))\n            change [y座標 v] by ((Y座標) / (-7))\n        end\n        set [操作 v] to []\n        Set var [3] []\n        Set var [4] []\n    end\nend\n\ndefine Spike\nset pen size to (5)\npen up\nStage pos [1050] [] []\npen down\nStage pos [1100] [] []\nStage pos [1075] [60] []\nStage pos [1050] [] []\nset [memo v] to ((50) * ([sin v] of ((timer) * (100)) ))\npen up\nStage pos [1450] [200] []\npen down\nStage pos ((1450) - ((125) * ([sin v] of (Memo) ))) ((200) - ((125) * ([cos v] of (Memo) ))) []\nset pen size to (10)\npen up\nset [memo v] to ((timer) * (-50))\nStage pos [1900] [200] []\npen down\npen up\nrepeat (3)\n    set pen size to (5)\n    Stage pos [1900] [200] []\n    pen down\n    Stage pos ((1900) - ((50) * ([sin v] of (Memo) ))) ((200) - ((50) * ([cos v] of (Memo) ))) []\n    change [memo v] by (120)\nend\n\nwhen flag clicked\nSet\nrepeat until <[] = (3)>\n    erase all\n    set pen color to (#120e0b)\n    set pen size to (600)\n    go to x: () y: ()\n    pen down\n    pen up\n    set [描画 v] to [0]\n    switch costume to (none v)\n    set size to ((1) / ()) %\n    The particle\n    pen up\nend\nreset timer\nrepeat until <<[0.5] < (timer)> and <mouse down?>>\n    erase all\n    set [描画 v] to [0]\n    switch costume to (none v)\n    set size to ((1) / ()) %\n    Bg\n    The particle\n    C\n    Space\n    Move\nend\nstart sound [決定、ボタン押下23 v]\nreset timer\nrepeat until <(All) = [2]>\n    erase all\n    set [描画 v] to [0]\n    switch costume to (none v)\n    set size to ((1) / ()) %\n    Stage\n    set pen color to (#000000)\n    Spike\n    Player potion \n    Bg\n    The particle\n    3D starge\n    Check point\n    set pen color to (#ff007b)\n    Spike\n    Player\n    Move\n    Effects \nend\nset [ur time v] to (timer)\nrepeat until \n    erase all\n    Result\nend\n\ndefine Bg\npen up\ngo to x: (0) y: (0)\nif <[] = (Edit  mode)> then\n    set pen color to (#000000)\n    set pen size to (600)\n    pen down\n    pen up\nend\n\ndefine Move\nVar [1] Lot (((100) - (item (1) of [変数リスト v])) / (8)) Change\nif <[] = (操作)> then\n    Var [5] Lot (round ((X座標) / (-10))) Change\n    Var [6] Lot (round ((Y座標) / (-10))) Change\n    change [x座標 v] by (round ((X座標) / (-10)))\n    change [y座標 v] by (round ((Y座標) / (-10)))\nend\n\ndefine Set\nDetaset [QWERTYUIOPASDFGHJKLZXCVBNM_-1234567890]\ndelete all of [変数リスト v]\nrepeat (100)\n    add [] to [変数リスト v]\nend\ndelete all of [star deta v]\nrepeat (50)\n    add (pick random (200) to (-200)) to [star deta v]\n    add (pick random (300) to (-300)) to [star deta v]\n    add (pick random (0) to (1)) to [star deta v]\n    add (pick random (1) to (5.00000)) to [star deta v]\nend\nset [x座標 v] to [0]\nset [y座標 v] to [0]\n初期設定\nUser (username)\ndelete all of [point v]\nrepeat (2)\n    add [0] to [point v]\nend\nset [memo3 v] to [100]\nset [px v] to [0]\nset [insane v] to [0]\n\ndefine Var (g) Lot (gg) Change\nreplace item (g) of [変数リスト v] with ((gg) + (item (g) of [変数リスト v]))\n\ndefine Set var (1) (2)\nreplace item (1) of [変数リスト v] with (2)\n\ndefine The particle\npen up\nSet var [2] [1]\nrepeat ((length of [star deta v]) / (4))\n    set pen size to (item ((3) + (item (2) of [変数リスト v])) of [star deta v])\n    set pen color to (#17a6ee)\n    if <[1] = (item ((2) + (item (2) of [変数リスト v])) of [star deta v])> then\n        set pen color to (#ff4a91)\n    end\n    go to x: (item ((1) + (item (2) of [変数リスト v])) of [star deta v]) y: (item (item (2) of [変数リスト v]) of [star deta v])\n    pen down\n    pen up\n    replace item ((1) + (item (2) of [変数リスト v])) of [star deta v] with (((-0.2) * (item ((3) + (item (2) of [変数リスト v])) of [star deta v])) + (item ((1) + (item (2) of [変数リスト v])) of [star deta v]))\n    if <(item ((1) + (item (2) of [変数リスト v])) of [star deta v]) < [-250]> then\n        replace item ((1) + (item (2) of [変数リスト v])) of [star deta v] with [250]\n        replace item (item (2) of [変数リスト v]) of [star deta v] with (pick random (200) to (-200))\n        replace item ((3) + (item (2) of [変数リスト v])) of [star deta v] with (pick random (1) to (5.00))\n    end\n    Var [2] Lot [4] Change\n    change [描画 v] by (1)\nend\n\ndefine Stage\nset pen color to (#ff0000)\nset pen size to (5)\npen up\nStage pos [-240] [300] []\npen down\nStage pos [-240] [-100] []\nStage pos [240] [-100] []\nStage pos [240] [30] []\nStage pos [480] [] []\npen up\nStage pos [700] [] []\npen down\nStage pos [800] [] []\npen up\npen up\nStage pos [1000] [] []\npen down\nStage pos [1200] [] []\npen up\nStage pos [1300] [] []\npen down\nStage pos [1600] [] []\npen up\nStage pos [1600] [200] []\npen down\nStage pos [1300] [200] []\npen up\nStage pos [1700] [] []\npen down\nStage pos [1700] [140] []\nStage pos [1900] [140] []\nStage pos [1900] [] []\npen up\nStage pos [2000] [140] []\npen down\nStage pos [2500] [140] []\npen up\nStage pos [2600] [140] []\npen down\nStage pos [2600] [140] []\nStage pos [2800] [140] []\nStage pos [2800] [200] []\nStage pos [3000] [200] []\nStage pos [3000] [260] []\nStage pos [3200] [260] []\nStage pos [3200] [1000] []\n\ndefine Stage pos (x) (y) (z)\nif <[1000] < ([abs v] of (((1) + (z)) * ((x) + (item (5) of [変数リスト v]))) )> then\n    pen up\n    go to x: (((1) + (z)) * ((x) + (item (5) of [変数リスト v]))) y: (((1) + (z)) * ((y) + (item (6) of [変数リスト v])))\nelse\n    go to x: (((1) + (z)) * ((x) + (item (5) of [変数リスト v]))) y: (((1) + (z)) * ((y) + (item (6) of [変数リスト v])))\n    change [描画 v] by (1)\nend\n\ndefine Player potion \npen up\nif <[] = (操作)> then\n    go to x: (X座標) y: (Y座標)\n    switch costume to (not none v)\n    set size to (100) %\n    Var [3] Lot (<<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> - <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>) Change\n    change x by (item (3) of [変数リスト v])\n    if <touching color (#ff0000)?> then\n        change y by (1)\n        if <touching color (#ff0000)?> then\n            change y by (1)\n            if <touching color (#ff0000)?> then\n                change y by (1)\n                if <touching color (#ff0000)?> then\n                    change y by (1)\n                    if <touching color (#ff0000)?> then\n                        change y by (-4)\n                        change x by ((-1) * (item (3) of [変数リスト v]))\n                        Set var [3] []\n                    end\n                end\n            end\n        end\n    end\n    Set var [3] ((0.9) * (item (3) of [変数リスト v]))\n    Var [4] Lot [-1] Change\n    change y by (item (4) of [変数リスト v])\n    if <touching color (#ff0000)?> then\n        change y by (() - (item (4) of [変数リスト v]))\n        Set var [4] []\n    end\n    change y by (-2)\n    if <<<key (up arrow v) pressed?> or <<((y position) + (15)) < (mouse y)> and <mouse down?>>> and <touching color (#ff0000)?>> then\n        Set var [4] [18]\n    end\n    change y by (2)\n    set [spikes v] to (() + <<touching color (#000000)?> and <[] = (Edit  mode)>>)\n    set [x座標 v] to (x position)\n    set [y座標 v] to (y position)\n    switch costume to (none v)\n    set size to ((1) / ()) %\nend\n\ndefine Player\npen up\ngo to x: (X座標) y: (Y座標)\nswitch costume to (コスチューム1 v)\nset size to (100) %\nstamp\nswitch costume to (none v)\nset size to ((1) / ()) %\nchange [描画 v] by (1)\n\ndefine 3D starge\npen up\nset pen color to (#17a3e9)\nset pen size to (5)\npen up\nStage pos [-240] [-100] [0.2]\npen down\nStage pos [240] [-100] [0.2]\nStage pos [240] [-100] [-0.2]\nStage pos [-240] [-100] [-0.2]\nStage pos [-240] [-100] [0.2]\nStage pos [-240] [-300] [0.2]\nStage pos [240] [-300] [0.2]\nStage pos [240] [-100] [0.2]\npen up\nStage pos [240] [-100] [-0.2]\npen down\nStage pos [240] [-300] [-0.2]\npen up\nStage pos [-240] [400] [-0.2]\npen down\nStage pos [-240] [-300] [-0.2]\npen up\nStage pos [-240] [-100] [0.2]\npen down\nStage pos [-240] [400] [0.2]\npen up\nStage pos [240] [-100] [-0.2]\npen down\nStage pos [240] [30] [-0.2]\nStage pos [480] [] [-0.2]\nStage pos [480] [] [0.2]\nStage pos [240] [30] [0.2]\nStage pos [240] [30] [-0.2]\npen up\nStage pos [240] [30] [0.2]\npen down\nStage pos [240] [-100] [0.2]\npen up\nStage pos [480] [] [0.2]\npen down\nStage pos [480] [-300] [0.2]\npen up\nStage pos [480] [] [-0.2]\npen down\nStage pos [480] [-300] [-0.2]\npen up\nStage pos [700] [] [0.2]\npen down\nStage pos [800] [] [0.2]\nStage pos [800] [] [-0.2]\nStage pos [700] [] [-0.2]\nStage pos [700] [] [0.2]\npen up\nStage pos [700] [] [0.2]\npen down\nStage pos [700] [-300] [0.2]\npen up\nStage pos [800] [] [0.2]\npen down\nStage pos [800] [-300] [0.2]\npen up\nStage pos [700] [] [-0.2]\npen down\nStage pos [700] [-300] [-0.2]\npen up\nStage pos [800] [] [-0.2]\npen down\nStage pos [800] [-300] [-0.2]\npen down\npen up\npen up\npen up\nset pen color to (#009ef6)\nStage pos [1000] [] [-0.2]\npen down\nStage pos [1200] [] [-0.2]\nStage pos [1200] [] [0.2]\nStage pos [1000] [] [0.2]\nStage pos [1000] [] [-0.2]\nStage pos [1000] [-300] [-0.2]\npen up\nStage pos [1200] [] [0.2]\npen down\nStage pos [1200] [-300] [0.2]\npen up\nStage pos [1200] [] [-0.2]\npen down\nStage pos [1200] [-300] [-0.2]\npen up\nStage pos [1000] [] [0.2]\npen down\nStage pos [1000] [-300] [0.2]\npen up\nStage pos [1300] [] [0.2]\npen down\nStage pos [1600] [] [0.2]\nStage pos [1600] [] [-0.2]\nStage pos [1300] [] [-0.2]\nStage pos [1300] [] [0.2]\nStage pos [1300] [-300] [0.2]\npen up\nStage pos [1600] [] [0.2]\npen down\nStage pos [1600] [-300] [0.2]\npen up\nStage pos [1600] [] [-0.2]\npen down\nStage pos [1600] [-300] [-0.2]\npen up\nStage pos [1300] [] [-0.2]\npen down\nStage pos [1300] [-300] [-0.2]\npen up\nStage pos [1300] [200] [-0.2]\npen down\nStage pos [1600] [200] [-0.2]\nStage pos [1600] [200] [0.2]\npen down\nStage pos [1300] [200] [0.2]\npen up\nStage pos [1300] [200] [-0.2]\npen down\nStage pos [1300] [200] [0.2]\npen up\nStage pos [1700] [140] [-0.2]\npen down\nStage pos [1900] [140] [-0.2]\nStage pos [1900] [140] [0.2]\nStage pos [1700] [140] [0.2]\nStage pos [1700] [140] [-0.2]\nStage pos [1700] [-140] [-0.2]\npen up\nStage pos [1700] [140] [0.2]\npen down\nStage pos [1700] [-140] [0.2]\npen up\nStage pos [1900] [140] [0.2]\npen down\nStage pos [1900] [-140] [0.2]\npen up\nStage pos [1900] [140] [-0.2]\npen down\nStage pos [1900] [-140] [-0.2]\npen up\nStage pos [2000] [140] [-0.2]\npen down\nStage pos [2500] [140] [-0.2]\nStage pos [2500] [140] [0.2]\nStage pos [2000] [140] [0.2]\nStage pos [2000] [140] [-0.2]\npen up\nStage pos [2600] [140] [-0.2]\npen down\nStage pos [2800] [140] [-0.2]\nStage pos [2800] [140] [0.2]\nStage pos [2600] [140] [0.2]\nStage pos [2600] [140] [-0.2]\nStage pos [2800] [140] [-0.2]\nStage pos [2800] [200] [-0.2]\nStage pos [2800] [200] [0.2]\nStage pos [2800] [140] [0.2]\nStage pos [2800] [200] [0.2]\nStage pos [3000] [200] [0.2]\nStage pos [3000] [200] [-0.2]\nStage pos [2800] [200] [-0.2]\nStage pos [2800] [200] [-0.2]\npen up\nStage pos [3000] [200] [0.2]\npen down\nStage pos [3000] [260] [0.2]\nStage pos [3000] [260] [-0.2]\nStage pos [3000] [200] [-0.2]\npen up\nStage pos [3000] [260] [0.2]\npen down\nStage pos [3200] [260] [0.2]\nStage pos [3200] [260] [-0.2]\nStage pos [3000] [260] [-0.2]\npen up\nStage pos [3200] [260] [0.2]\npen down\nStage pos [3200] [1000] [0.2]\npen up\nStage pos [3200] [260] [-0.2]\npen down\nStage pos [3200] [1000] [-0.2]\n\ndefine C\nset pen size to (2)\nset pen color to (#17a3e9)\n数字 [Click to start] 大きさ ((0.004) * (item (1) of [変数リスト v])) X ((0) + ((-1) * (item (1) of [変数リスト v]))) Y [-150] 太さ []\n\ndefine 初期設定\nset [all v] to [1]\nswitch costume to (none v)\nset size to ((1) / ()) %\ndelete all of [text v]\ndelete all of [pte用データ v]\n追加 [0] [13971]\n追加 [1] [28]\n追加 [2] [136479]\n追加 [3] [13_46_79_39]\n追加 [4] [1469_36]\n追加 [5] [314697]\n追加 [6] [317964]\n追加 [7] [139]\n追加 [8] [13971_46]\n追加 [9] [13641_697]\n追加 [A] [139_17_46]\n追加 [B] [12541_46974]\n追加 [C] [3179]\n追加 [D] [126871]\n追加 [E] [13_46_79_17]\n追加 [F] [13_46_17]\n追加 [G] [317965]\n追加 [H] [17_39_46]\n追加 [I] [13_79_28]\n追加 [J] [13_287]\n追加 [K] [17_43_49]\n追加 [L] [179]\n追加 [N] [7193]\n追加 [M] [7125239]\n追加 [O] [13971]\n追加 [P] [13641_47]\n追加 [Q] [13971_59]\n追加 [R] [71254_59]\n追加 [S] [314697]\n追加 [T] [13_28]\n追加 [U] [1793]\n追加 [V] [183]\n追加 [W] [17593]\n追加 [X] [19_37]\n追加 [Y] [158_53]\n追加 [Z] [1379]\n追加 [-] [46]\n追加 [_] [79]\n追加 [.] [8]\n\ndefine 追加 (文字) (code)\nadd (文字) to [text v]\nadd (code) to [pte用データ v]\n\ndefine Go (x) (y)\ngo to x: ((Xp) + ((x) * (Big))) y: (((Big) * ((0.8) * (y))) + (Yp))\nchange [描画 v] by (1)\n\ndefine 数字 (数字) 大きさ (大きさ) X (x) Y (y) 太さ (太さ)\nset [big v] to (大きさ)\npen up\ngo to x: (x) y: (y)\nset [x v] to [0]\nset [xp v] to (x position)\nset [yp v] to (y position)\nrepeat (length of (数字))\n    pen up\n    change [x v] by (1)\n    set [y v] to (item (item # of (letter (X) of (数字)) in [text v]) of [pte用データ v])\n    set [z v] to [0]\n    pen up\n    repeat (length of (Y))\n        change [z v] by (1)\n        if <(letter (Z) of (Y)) = [1]> then\n            Go [] [30]\n        end\n        if <(letter (Z) of (Y)) = [2]> then\n            Go [15] [30]\n        end\n        if <(letter (Z) of (Y)) = [3]> then\n            Go [30] [30]\n        end\n        if <(letter (Z) of (Y)) = [4]> then\n            Go [] []\n        end\n        if <(letter (Z) of (Y)) = [5]> then\n            Go [15] []\n        end\n        if <(letter (Z) of (Y)) = [6]> then\n            Go [30] []\n        end\n        if <(letter (Z) of (Y)) = [7]> then\n            Go [] [-30]\n        end\n        if <(letter (Z) of (Y)) = [8]> then\n            Go [15] [-30]\n        end\n        if <(letter (Z) of (Y)) = [9]> then\n            Go [30] [-30]\n        end\n        pen down\n        if <(letter (Z) of (Y)) = [_]> then\n            pen up\n        end\n    end\n    change [xp v] by ((40) * (Big))\nend\n\ndefine User (user)\nset [1 v] to [1]\nset [2 v] to []\nrepeat (length of (user))\n    set [2 v] to (join (2) (item # of (letter (1) of (user)) in [文字データa v]))\n    change [1 v] by (1)\nend\n\ndefine Detaset (a)\ndelete all of [文字データa v]\nrepeat (10)\n    add [] to [文字データa v]\nend\nset [1 v] to [0]\nrepeat (length of (a))\n    change [1 v] by (1)\n    add (letter (1) of (a)) to [文字データa v]\nend\n\ndefine Space\npen up\ngo to x: (0) y: (100)\nswitch costume to (space v)\nset size to (item (1) of [変数リスト v]) %\nchange [描画 v] by (1)\n\ndefine Decode (usern)\nset [1 v] to [1]\nset [2 v] to []\nrepeat ((0.5) * (length of (usern)))\n    set [2 v] to (join (2) (item (join (letter (1) of (usern)) (letter ((1) + (1)) of (usern))) of [文字データa v]))\n    change [1 v] by (2)\nend\n\nset pen color to (#ff0094)\nSpike\npen up\n\ndefine データ取得 (\(\))\nset [memo v] to [4]\nset [memo2 v] to []\nrepeat ((0.5) * ((length of (\(\))) - (4)))\n    set [memo2 v] to (join (Memo2) (item # of (join (letter (Memo) of (\(\))) (letter ((1) + (Memo)) of (\(\)))) in [文字データa v]))\n    change [memo v] by (2)\nend\n\ndefine Score (aa)\nset [memo2 v] to ((-500) + (join (join (letter (1) of (aa)) (letter (2) of (aa))) (letter (3) of (aa))))\n\ndefine Effects \nswitch costume to (none v)\nset size to ((1) / ()) %\nStage pos [1350] [400] []\nswitch costume to (コスチューム2 v)\nset size to (100) %\nset [brightness v] effect to ((5) * ([sin v] of ((timer) * (100)) ))\npoint in direction ((timer) * (2))\nif <<([abs v] of ((y position) - (Y座標)) ) < [30]> and <([abs v] of ((x position) - (X座標)) ) < [30]>> then\n    if <not <[] = (Insane)>> then\n        set [memo3 v] to [0]\n        set [insane v] to []\n        start sound [文字表示の衝撃音1 v]\n    end\nend\nif <not <[] = (Insane)>> then\n    stamp\nend\nclear graphic effects\npoint in direction (90)\ngo to x: (0) y: (0)\nset [brightness v] effect to (Memo3)\nset [ghost v] effect to (Memo3)\nswitch costume to (none v)\nset size to (700) %\nswitch costume to (コスチューム3 v)\nstamp\nswitch costume to (none v)\nset size to ((1) / ()) %\nchange [memo3 v] by (5)\nclear graphic effects\n\ndefine Check point\nset pen color to (#009df6)\nset pen size to (5)\npen up\nStage pos [2100] [140] []\npen down\nStage pos [2100] [220] []\nStage pos [2140] [190] []\nStage pos [2100] [160] []\nCheck it [2140] [140] []\npen up\nStage pos [3100] [260] []\npen down\nStage pos [3100] [350] []\nStage pos [3150] [350] []\nStage pos [3150] [310] []\nStage pos [3100] [310] []\nCheck it [3100] [330] [0]\n\ndefine Check it (x) (y) (xc)\nif <<([abs v] of ((y position) - (Y座標)) ) < [30]> and <([abs v] of ((x position) - (X座標)) ) < [30]>> then\n    if <not <(x) = (item (1) of [point v])>> then\n        start sound [Coin v]\n        replace item (1) of [point v] with (x)\n        replace item (2) of [point v] with (y)\n        if <not <(xc) = []>> then\n            set [all v] to [2]\n        end\n    end\nend\npen up\n\nwhen I receive [a v]\nset [pitch v] effect to ((1) / ())\nwait (0.3) seconds\nset [pitch v] effect to ()\n\nwhen I receive [a v]\n\n    play sound [Pikasonic Cosmos v] until done\nend\n\ndefine Result\ngo to x: () y: ()\nset pen color to (#000000)\nset pen size to (600)\npen down\npen up\nThe particle\nset pen color to (#00aaff)\n数字 (Ur time) 大きさ [1] X ((-20) * (length of (Ur time))) Y [] 太さ [1]\n\n@Intro\n\ndefine D (xdddd)\nset [a v] to (xdddd)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(a) = [1]> then\n    switch costume to (コスチューム2 v)\n    wait until <[1] < (timer)>\n    set [b v] to [0]\n    repeat (20)\n        change [ghost v] effect by (b)\n        change [b v] by (0.5)\n    end\n    delete this clone\nend\nif <(a) = [2]> then\n    switch costume to (c 2 v)\n    start sound [Low Whoosh v]\n    set size to () %\n    repeat until <[1] < (timer)>\n        change size by (((100) - (size)) / (8))\n    end\n    set [b v] to [0]\n    repeat (20)\n        change size by (b)\n        change [b v] by (-0.5)\n    end\n    delete this clone\nend\n\nwhen I receive [intro v]\nreset timer\nshow\ngo to x: () y: ()\npoint in direction (90)\nswitch costume to (コスチューム1 v)\nset size to (100) %\nD [1]\nD [2]\nwait until <[2] < (timer)>\nset [3 v] to []\nset [intro v] to []\nbroadcast (A v)\n\nwhen flag clicked\nset [3 v] to [0]\nswitch costume to (コスチューム1 v)\nhide\nif <[0] = (Intro)> then\n    broadcast (Intro v)\nelse\n    broadcast (A v)\n    set [3 v] to []\nend\n\nset [intro v] to [0]\n\n