〜モバイル対応!!刀プラットフォーマー　Mobile compatible!!katanaplatformer〜 #all#game#games#platformer

Instructions: 日本語は下\n【English】\n〈PC〉\nSwing the sword with the space bar\nright key or d key to move right\nMove left with left key or a key\nJump with up key or w key\n<mobile〉\nSwing the sword with the sword button\nTap right to move right\nTap left to move left\nTap the top to jump\n\n【日本語】\n〈PC〉\nスペースキーで刀を振る\n右キーまたはdキーで右に動く\n左キーまたはaキーで左に動く\n上キーまたはwキーでジャンプ\n〈モバイル〉\n刀ボタンで刀を振る\n右側をタップで右に移動\n左側をタップで左に移動\n上側をタップでジャンプ

@Stage\n\nwhen flag clicked\nset [time: v] to [0]\nhide variable [time: v]\nhide variable [☁ besttime 最高タイム v]\n\nwhen I receive [start v]\nshow variable [time: v]\nrepeat until <(ステージ) = [7]>\n    wait (1) seconds\n    change [time: v] by (1)\nend\nshow variable [☁ besttime 最高タイム v]\nif <(time:) < (☁ besttime 最高タイム)> then\n    set [☁ besttime 最高タイム v] to (time:)\nend\n\nwhen I receive [start v]\nstart sound [Starship v]\n\nif <[3] > (Turbo)> then\nend\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset rotation style [all around v]\nclear graphic effects\npoint in direction (90)\nrepeat (10)\n    change size by (-5)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\ndefine 初期設定\nshow\nset [y v] to [0]\nset [x v] to [0]\ngo to x: (-201) y: (0)\n\nwhen flag clicked\nforever\n    wait (0.01) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I receive [死んだ v]\nstart sound [Oops v]\nrepeat (10)\n    change [pixelate v] effect by (10)\n    change [ghost v] effect by (2)\nend\nclear graphic effects\n\nwhen I receive [start v]\nset [ステージ v] to [1]\n初期設定\nif <touching (ステージ v)?> then\n    go to x: (-201) y: (50)\nend\npoint in direction (90)\nforever\n    set rotation style [left-right v]\n    if <<<<mouse down?> and <[50] < (mouse x)>> or <key (right arrow v) pressed?>> or <key (d v) pressed?>> then\n        change [x v] by (0.85)\n        point in direction (90)\n    end\n    if <<<<mouse down?> and <[-50] > (mouse x)>> or <key (left arrow v) pressed?>> or <key (a v) pressed?>> then\n        change [x v] by (-0.85)\n        point in direction (-90)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (ステージ v)?> then\n        change y by (1)\n        if <touching (ステージ v)?> then\n            change y by (1)\n            if <touching (ステージ v)?> then\n                change y by (1)\n                if <touching (ステージ v)?> then\n                    change y by (1)\n                    if <touching (ステージ v)?> then\n                        change y by (1)\n                        if <touching (ステージ v)?> then\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            if <<<<mouse down?> and <[50] < (mouse y)>> or <key (up arrow v) pressed?>> or <key (w v) pressed?>> then\n                                if <(x) > [0]> then\n                                    set [x v] to [-8]\n                                else\n                                    set [x v] to [8]\n                                end\n                                set [y v] to [13]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (ステージ v)?> then\n        if <<<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> or <key (w v) pressed?>> then\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (ステージ v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <(x position) > [230]> then\n        change [ステージ v] by (1)\n        broadcast (NEXT v)\n        wait (2.5) seconds\n        初期設定\n    end\n    if <(y position) < [-170]> then\n        broadcast (死んだ v)\n        wait (0.3) seconds\n        初期設定\n    end\n    if <<touching (スプライト1 v)?> or <touching (敵 v)?>> then\n        broadcast (死んだ v)\n        wait (0.3) seconds\n        初期設定\n        set [y v] to [0]\n        set [x v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(ハートB) = [yes]> and <(星B) = [yes]>> then\n        change [color v] effect by (25)\n    end\nend\n\n@ステージ\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\nshow\n\n@NEXT\n\nwhen I receive [みんな集まったぞ！ v]\nset [終 v] to [1]\n\nwhen I receive [next v]\nset [next終了 v] to [0]\nstart sound [文字表示の衝撃音2 v]\nset [終 v] to [0]\ngo to [front v] layer\nNEXTのクローン作製\n幕を [-100] の明るさでクローンを作る\nwait (0.1) seconds\n幕を [-50] の明るさでクローンを作る\nwait (0.1) seconds\n幕を [-30] の明るさでクローンを作る\nwait (0.1) seconds\n幕を [0] の明るさでクローンを作る\nwait until <(NEXT終了) = [1]>\n\ndefine NEXTのクローン作製\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    clear graphic effects\n    go to [front v] layer\n    show\n    go to x: (0) y: (-381)\n    repeat until <[-1] < (y position)>\n        change y by (((0) - (y position)) / (5))\n    end\n    broadcast (みんな集まったぞ！ v)\n    broadcast (隠す v)\n    change y by (1)\n    repeat until <[250] < (y position)>\n        change y by ((y position) / (5))\n    end\n    set [next終了 v] to [1]\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    show\n    go to [front v] layer\n    go [backward v] (2) layers\n    go to x: (-228) y: (0)\n    repeat until <[-1] < (x position)>\n        change x by (((0) - (x position)) / (7))\n    end\n    wait until <(終) = [1]>\n    change x by (-1)\n    repeat until <(x position) < [-227]>\n        change x by ((x position) / (7))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    show\n    go to [front v] layer\n    go [backward v] (2) layers\n    go to x: (228) y: (0)\n    repeat until <(x position) < [1]>\n        change x by (((0) - (x position)) / (7))\n    end\n    wait until <(終) = [1]>\n    change x by (1)\n    start sound [文字表示の衝撃音1 v]\n    repeat until <[224] < (x position)>\n        change x by ((x position) / (7))\n    end\n    delete this clone\nend\n\ndefine 幕を (明るさ) の明るさでクローンを作る\nswitch costume to (コスチューム2 v)\nset [brightness v] effect to (明るさ)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\nset [brightness v] effect to (明るさ)\ncreate clone of (_myself_ v)\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (1 v)\nshow\n\nwhen I receive [start v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@かたな\n\nwhen [space v] key pressed\nstart sound [sword-swinging-1 v]\nset [振る v] to [1]\nif <([direction v] of [プレイヤー v]) = [90]> then\n    repeat (5)\n        turn right (15) degrees\n    end\n    repeat (5)\n        turn left (15) degrees\n    end\n    set [振る v] to [0]\n    point in direction (90)\nelse\n    repeat (5)\n        turn left (15) degrees\n    end\n    repeat (5)\n        turn right (15) degrees\n    end\n    set [振る v] to [0]\n    point in direction (90)\nend\n\nwhen I receive [start v]\nshow\npoint in direction (90)\nforever\n    if <([direction v] of [プレイヤー v]) = [90]> then\n        go to x: (([x position v] of [プレイヤー v]) + (30)) y: (([y position v] of [プレイヤー v]) + (10))\n        switch costume to (刀 v)\n    else\n        switch costume to (刀2 v)\n        go to x: (([x position v] of [プレイヤー v]) - (30)) y: (([y position v] of [プレイヤー v]) + (10))\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    if <<(ハートB) = [yes]> and <(星B) = [yes]>> then\n        change [color v] effect by (25)\n    end\nend\n\nwhen I receive [刀 v]\nstart sound [sword-swinging-1 v]\nset [振る v] to [1]\nif <([direction v] of [プレイヤー v]) = [90]> then\n    repeat (5)\n        turn right (15) degrees\n    end\n    repeat (5)\n        turn left (15) degrees\n    end\n    set [振る v] to [0]\n    point in direction (90)\nelse\n    repeat (5)\n        turn left (15) degrees\n    end\n    repeat (5)\n        turn right (15) degrees\n    end\n    set [振る v] to [0]\n    point in direction (90)\nend\n\n@敵\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    set [hp v] to [1]\nelse\n    set [hp v] to [5]\nend\nshow\nset [敵: x v] to [0]\nset [敵: y v] to [0]\ngo to x: (219) y: (0)\nforever\n    if <<touching (かたな v)?> and <(振る) = [1]>> then\n        change [hp v] by (-1)\n        set [向き v] to [左]\n        set [敵: y v] to [15]\n        set [敵: x v] to [30]\n        wait (0.1) seconds\n        if <(HP) < [1]> then\n            delete this clone\n        end\n    end\n    point towards (プレイヤー v)\n    if < (direction) contains [-]?> then\n        set [向き v] to [左]\n    else\n        set [向き v] to [右]\n    end\n    if <(向き) = [右]> then\n        change [敵: x v] by (pick random (0.5) to (1))\n    end\n    if <(向き) = [左]> then\n        change [敵: x v] by (pick random (-0.5) to (-1))\n    end\n    set [敵: x v] to ((敵: x) * (0.85))\n    change x by (敵: x)\n    if <touching (ステージ v)?> then\n        change y by (1)\n        if <touching (ステージ v)?> then\n            change y by (1)\n            if <touching (ステージ v)?> then\n                change y by (1)\n                if <touching (ステージ v)?> then\n                    change y by (1)\n                    if <touching (ステージ v)?> then\n                        change y by (1)\n                        if <touching (ステージ v)?> then\n                            change x by ((敵: x) * (-1))\n                            change y by (-5)\n                            if <key (up arrow v) pressed?> then\n                                if <(敵: x) > [0]> then\n                                    set [敵: x v] to [-15]\n                                else\n                                    set [敵: x v] to [15]\n                                end\n                                set [敵: y v] to [14.5]\n                            else\n                                set [敵: x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [敵: y v] by (-1)\n    change y by (敵: y)\n    if <touching (ステージ v)?> then\n        change y by ((敵: y) * (-1))\n        set [敵: y v] to [0]\n    end\n    change y by (-1)\n    if <<touching (ステージ v)?> and <(pick random (1) to (10)) = [1]>> then\n        change [敵: y v] by (14)\n    end\n    change y by (1)\nend\n\nwhen I receive [next v]\nif <(ステージ) = [2]> then\n    repeat (2)\n        switch costume to (雑魚 v)\n        create clone of (_myself_ v)\n    end\nelse\n    if <(ステージ) = [3]> then\n        repeat (5)\n            switch costume to (雑魚 v)\n            create clone of (_myself_ v)\n        end\n    else\n        if <(ステージ) = [ 4]> then\n            switch costume to (ボス v)\n            create clone of (_myself_ v)\n        else\n            if <(ステージ) = [5]> then\n                switch costume to (雑魚 v)\n                repeat (2)\n                    create clone of (_myself_ v)\n                end\n                switch costume to (ボス v)\n                create clone of (_myself_ v)\n            else\n                if <(ステージ) = [6]> then\n                    repeat (2)\n                        switch costume to (雑魚 v)\n                        create clone of (_myself_ v)\n                        switch costume to (ボス v)\n                        create clone of (_myself_ v)\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [死んだ v]\ngo to x: (219) y: (0)\n\nwhen I receive [start v]\nhide\nswitch costume to (雑魚 v)\ncreate clone of (_myself_ v)\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\nset size to (100) %\nset [太陽の大きさ v] to [0]\nforever\n    go to [back v] layer\n    change [太陽の大きさ v] by (3)\n    change size by ([cos v] of (太陽の大きさ) )\nend\n\n@Free Intro\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    go to [front v] layer\n    switch costume to (size hack v)\n    set size to (140) %\n    show\n    repeat (50)\n        go to [front v] layer\n        go [forward v] (1000) layers\n        switch costume to (size hack v)\n        change size by (((100) - (size)) / (5))\n        switch costume to (screen v)\n    end\n    wait (7) seconds\n    delete this clone\nend\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nset size to (100) %\npoint in direction (90)\nclear graphic effects\nset [color v] effect to (0)\nset [ghost v] effect to (0)\nset [brightness v] effect to (0)\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    go to x: (-1000) y: (-1000)\n    point in direction (0)\n    go to [front v] layer\n    switch costume to (name v)\n    set size to (100) %\n    wait (1.33) seconds\n    show\n    Smooth Glide x [0] y [0] size [100] direction [90] speed [6]\nend\n\ndefine bounce finished size (size) bounciness (bounciness) elasticity (elasticity)\nset [size v] to [0]\nrepeat (40)\n    set [size v] to (((size) * (bounciness)) + (((size) - (size)) / (elasticity)))\n    change size by (size)\nend\n\ndefine Smooth Glide x: (x) y: (y) speed: (speed)\nrepeat until <<(round (x)) = (round (x position))> and <(round (y)) = (round (y position))>>\n    change x by (((x) - (x position)) / (speed))\n    change y by (((y) - (y position)) / (speed))\nend\ngo to x: (x) y: (y)\n\ndefine Smooth Size: (size) speed: (speed)\nrepeat until <(round (size)) = (round (size))>\n    change size by (((size) - (size)) / (speed))\nend\nset size to (size) %\n\ndefine Smooth Rotate to (d) degrees at speed (s)\nrepeat until <(round (direction)) = (round (d))>\n    turn right (((round (d)) - (round (direction))) / (s)) degrees\nend\npoint in direction (d)\n\ndefine Smooth Glide x (x) y (y) size (size) direction (direction) speed (speed)\nrepeat until <<(round (x)) = (round (x position))> and <<(round (y)) = (round (y position))> and <<(round (size)) = (round (size))> and <(round (direction)) = (round (direction))>>>>\n    change x by (((x) - (x position)) / (speed))\n    change y by (((y) - (y position)) / (speed))\n    change size by (((size) - (size)) / (speed))\n    turn right (((direction) - (direction)) / (speed)) degrees\nend\ngo to x: (x) y: (y)\nset size to (size) %\npoint in direction (direction)\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow2]> then\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow1]> then\n    show\n    switch costume to (arrow v)\n    set size to (100) %\n    point in direction (90)\n    go to x: (0) y: (0)\n    Smooth Glide x: [200] y: [0] speed: [8]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow2]> then\n    show\n    switch costume to (arrow v)\n    set size to (100) %\n    point in direction (-90)\n    go to x: (0) y: (0)\n    Smooth Glide x: [-200] y: [0] speed: [8]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Arrow1]> then\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen flag clicked\nCreate Clone [Background]\nwait (3.55) seconds\nCreate Clone [Screen]\n\nwhen I start as a clone\nif <(Clone ID) = [Background]> then\n    go to [back v] layer\n    go [backward v] (1000) layers\n    switch costume to (size hack v)\n    set size to (100) %\n    show\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (background v)\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [brightness v] effect by (-10)\n        change [ghost v] effect by (-10)\n    end\n    wait (13.4) seconds\n    delete this clone\nend\n\ndefine Create Clone (id)\nset [clone id v] to (id)\ncreate clone of (_myself_ v)\nwait (0) seconds\n\nwhen I start as a clone\nif <(Clone ID) = [White End]> then\n    switch costume to (size hack v)\n    set size to (150) %\n    switch costume to (end v)\n    show\n    set [brightness v] effect to (100)\n    go to x: (500) y: (500)\n    point in direction (135)\n    repeat (50)\n        change x by (((22) - (x position)) / (6))\n        change y by (((22) - (y position)) / (6))\n        go to [front v] layer\n        go [backward v] (1) layers\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Black End]> then\n    switch costume to (size hack v)\n    set size to (150) %\n    switch costume to (end v)\n    show\n    go to x: (500) y: (500)\n    point in direction (135)\n    repeat (50)\n        change x by (((20) - (x position)) / (10))\n        change y by (((20) - (y position)) / (10))\n        go to [front v] layer\n    end\n    repeat (20)\n        change x by (((20) - (x position)) / (10))\n        change y by (((20) - (y position)) / (10))\n        go to [front v] layer\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Cheveron]> then\n    switch costume to (cheveron v)\n    set size to (5) %\n    go to [front v] layer\n    go [backward v] (1) layers\n    show\n    repeat (50)\n        go to [front v] layer\n        go [backward v] (2) layers\n        switch costume to (size hack v)\n        change size by (((360) - (size)) / (12))\n        switch costume to (cheveron v)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (3.55) seconds\nCreate Clone [Cheveron]\n\nwhen flag clicked\nwait (12) seconds\nCreate Clone [Black End]\nCreate Clone [White End]\n\nwhen flag clicked\nstart sound [Nurko & luma - tonight \[NIGHTCORE\] v]\n\nwhen I start as a clone\nif <(Clone ID) = [Pinwheel]> then\n    switch costume to (pinwheel v)\n    set size to (100) %\n    go to [front v] layer\n    go [backward v] (3) layers\n    set [ghost v] effect to (0)\n    set [brightness v] effect to (0)\n    show\n    repeat (238)\n        turn right (3) degrees\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (3.55) seconds\nCreate Clone [Pinwheel]\n\nwhen flag clicked\nwait (5.17) seconds\nCreate Clone [Cheveron]\n\nwhen flag clicked\nwait (6.74) seconds\nCreate Clone [Arrow1]\nCreate Clone [Arrow2]\n\nwhen flag clicked\nwait (0) seconds\nCreate Clone [Name]\n\ndefine Shake (size)\nset size to (size) %\ngo to x: (0) y: (0)\nrepeat (26)\n    go to [front v] layer\n    change size by (((100) - (size)) / (10))\n    go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (100)) * (0.1)))\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (3.48) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (5.09) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (6.7) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (8.28) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (9.86) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (11.41) seconds\n    repeat (34)\n        change [ghost v] effect by (4)\n        change size by (((30) - (size)) / (8))\n        go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (100)) * (0.1)))\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (9.86) seconds\nCreate Clone [Cheveron]\n\ndefine Frame Tween Size: (s) speed: (spd)\nset [c v] to (costume [name v])\nswitch costume to (size hack v)\nchange size by (((round (s)) - (round (size))) / (spd))\nswitch costume to (c)\n\nwhen I start as a clone\nif <(Clone ID) = [Circles]> then\n    go to [front v] layer\n    go [backward v] (2) layers\n    show\n    switch costume to (circles v)\n    go to x: (0) y: (0)\n    set size to (1) %\n    point in direction (0)\n    set [ghost v] effect to (0)\n    repeat (38)\n        Frame Tween Size: [400] speed: [7]\n        Frame tween rotation: [90] speed: [13]\n        go to [front v] layer\n        go [backward v] (2) layers\n        change [ghost v] effect by ((100) / (38))\n        change [brightness v] effect by (3.3333)\n    end\n    delete this clone\nend\n\ndefine Frame tween rotation: (r) speed: (spd)\nturn right (((round (r)) - (round (direction))) / (spd)) degrees\n\nwhen flag clicked\nwait (3.49) seconds\nCreate Clone [Circles]\n\nwhen flag clicked\nwait (8.29) seconds\nCreate Clone [Circles]\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    switch costume to (size hack v)\n    set size to (100) %\n    switch costume to (grid v)\n    go to [back v] layer\n    go [forward v] (1) layers\n    show\n    set [ghost v] effect to (100)\n    set [brightness v] effect to (100)\n    repeat (50)\n        change [brightness v] effect by (-2)\n        change [ghost v] effect by (-2)\n    end\n    wait (2.9) seconds\n    switch costume to (diamonds v)\n    wait (1.65) seconds\n    switch costume to (hexagon pattern v)\n    wait (1.55) seconds\n    switch costume to (triangle pattern v)\n    wait (1.55) seconds\n    switch costume to (checkerboard pattern v)\n    wait (1.2) seconds\n    repeat (20)\n        change [brightness v] effect by (5)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (0) seconds\nwait (.5) seconds\nCreate Clone [Grid]\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (3) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (4.6) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (6.24) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (7.8) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (9.4) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (4.38) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (5.9) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (7.51) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (9.02) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Name]> then\n    wait (10.6) seconds\n    Shake [200]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (3.88) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (5.4) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (7) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (8.5) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Grid]> then\n    wait (10.1) seconds\n    point in direction (105)\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\n    repeat (10)\n        set [degrees v] to (((Degrees) * (0.75)) + (((90) - (direction)) / (3)))\n        turn right (Degrees) degrees\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Lines]> then\n    show\n    go to [front v] layer\n    go [backward v] (2) layers\n    clear graphic effects\n    go to x: (0) y: (0)\n    set size to (1) %\n    switch costume to (1 v)\n    set [line size v] to [20]\n    repeat (15)\n        change size by (Line Size)\n        change [line size v] by (-1)\n        next costume\n    end\n    repeat (20)\n        change [ghost v] effect by (20)\n        change size by (Line Size)\n    end\nend\n\nwhen flag clicked\nwait (4.4) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (5.92) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (7.53) seconds\nCreate Clone [Lines]\n\nwhen flag clicked\nwait (10.62) seconds\nCreate Clone [Lines]\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl # v] to (((Whirl #) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (Whirl #)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (1.54) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl # v] to (((Whirl #) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (Whirl #)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (3.15) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl # v] to (((Whirl #) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (Whirl #)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (4.73) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl # v] to (((Whirl #) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (Whirl #)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen I start as a clone\nif <(Clone ID) = [Screen]> then\n    wait (6.31) seconds\n    go to x: (0) y: (0)\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\n    point in direction (70)\n    repeat (25)\n        set [whirl # v] to (((Whirl #) * (.2)) + (((Whirl:) - (Whirl)) / (5)))\n        change [whirl v] by (Whirl #)\n        set [whirl v] effect to (Whirl)\n        set [bounce v] to (((Bounce) * (.2)) + (((90) - (direction)) / (5)))\n        turn right (Bounce) degrees\n    end\n    set [whirl v] to [200]\n    set [whirl: v] to [0]\nend\n\nwhen flag clicked\nswitch costume to (name v)\n\nwhen flag clicked\nwait (9.02) seconds\nCreate Clone [Arrow1]\nCreate Clone [Arrow2]\n\nwhen flag clicked\nwait (14) seconds\nbroadcast (start v)\n\n@題名\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\nend\n\n@ハートと星とフォロー\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\ngo to x: (0) y: (187)\nglide (1) secs to x: (0) y: (150)\nwait (1) seconds\nglide (1) secs to x: (0) y: (187)\nhide\n\n@ハートと星\n\nwhen I start as a clone\nset [星b v] to [No]\nswitch costume to (コスチューム2 v)\nforever\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n    end\nend\n\nwhen flag clicked\nset [ハートb v] to [No]\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nforever\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\ngo to x: (0) y: (-135)\nhide\n\nwhen I receive [start v]\ngo to [front v] layer\nshow\n\nwhen this sprite clicked\nbroadcast (刀 v)\n\n@タボフィー\n\nwhen flag clicked\nforever\n    set [turbo v] to [0]\n    wait (0.001) seconds\n    if <[3] < (Turbo)> then\n        show\n    else\n        hide\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    go to [front v] layer\n    change [turbo v] by (1)\nend\n\n