Move -A Platformer-

Instructions: Disclaimer: It's a engine, not game. Also The Update Broke It So I Just Converted Back. Still Updating.\n\nHow To Play:\nUse Arrow Keys Or WASD To Move Or Mobile\nThere Is Wall Jump On Mobile And PC\nSaws And Spikes = Death\nCoins = Good\nLandscape = Good

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景3 v)\n\nwhen I receive [プレイ v]\nwait (1) seconds\nforever\n    play sound [c418-sweden-minecraft-volume-alpha v] until done\nend\n\nwhen I receive [プレイ v]\nswitch backdrop to (背景2 v)\nset volume to (100) %\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (intro v)\nwait (2) seconds\nclear graphic effects\nswitch backdrop to (空 v)\n\nwhen stage clicked\nshow list [cloud記録\(☁クラウド記録\) v]\n\n@スプライト1\n\nwhen I receive [英語 v]\nwait (0.1) seconds\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム5 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\nwhen I receive [日本語 v]\nwait (0.1) seconds\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム6 v)\ncreate clone of (_myself_ v)\n\nwhen I receive [英語 v]\ndelete this clone\n\nwhen I receive [日本語 v]\ndelete this clone\n\nset [☁ クリア回数☆ v] to [0]\nset [☁ プレイ回数 v] to [0]\nset [☁ 正解回数 v] to [0]\n\nadd (translate [旗を2回以上押してください] to (en v)::translate) to [翻訳よう v]\n\nwhen flag clicked\nset [言語\(1日本語　2英語\) v] to [1]\nhide\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    go to x: (-130) y: (100)\nend\nif <(costume [number v]) = [2]> then\n    go to x: (-130) y: (30)\nend\nif <(costume [number v]) = [3]> then\n    go to x: (-130) y: (-40)\nend\nif <(costume [number v]) = [4]> then\n    go to x: (-130) y: (100)\nend\nif <(costume [number v]) = [5]> then\n    go to x: (-130) y: (30)\nend\nif <(costume [number v]) = [6]> then\n    go to x: (-130) y: (-40)\nend\n\nwhen I start as a clone\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (75) %\n    else\n        set size to (70) %\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <<(costume [number v]) = [1]> or <(costume [number v]) = [4]>> then\n            broadcast (プレイ v)\n            change [☁ プレイ回数 v] by (1)\n        end\n        if <<(costume [number v]) = [2]> or <(costume [number v]) = [5]>> then\n            hide list [cloud記録\(☁クラウド記録\) v]\n            wait (1) seconds\n        end\n        if <<(costume [number v]) = [3]> or <(costume [number v]) = [6]>> then\n            if <(言語\(1日本語　2英語\)) = [1]> then\n                set [言語\(1日本語　2英語\) v] to [2]\n                broadcast (英語 v)\n                say [English] for (1) seconds\n            else\n                set [言語\(1日本語　2英語\) v] to [1]\n                broadcast (日本語 v)\n                say [日本語] for (1) seconds\n            end\n            wait (0.5) seconds\n        end\n    end\nend\n\nwhen I receive [プレイ v]\ndelete this clone\n\nwhen flag clicked\nshow list [cloud記録\(☁クラウド記録\) v]\nforever\n    replace item (2) of [cloud記録\(☁クラウド記録\) v] with (join (☁ プレイ回数) [回])\n    replace item (5) of [cloud記録\(☁クラウド記録\) v] with (join (☁ クリア回数☆) [回])\n    replace item (8) of [cloud記録\(☁クラウド記録\) v] with (join (((☁ クリア回数☆) / (☁ プレイ回数)) * (100)) [％])\n    replace item (11) of [cloud記録\(☁クラウド記録\) v] with (join (☁ 正解回数) [回])\nend\n\ndelete all of [cloud記録\(☁クラウド記録\) v]\nadd (join [☁プレイ回数] (join [　] (join [\(] (join (translate [☁プレイ回数] to (en v)::translate) [\)])))) to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd (join [☁クリア回数] (join [　] (join [\(] (join (translate [☁クリア回数] to (en v)::translate) [\)])))) to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd (join [☁クリア率] (join [　] (join [\(] (join (translate [☁クリア率] to (en v)::translate) [\)])))) to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd (join [☁正解回数] (join [　] (join [\(] (join (translate [☁正解回数] to (en v)::translate) [\)])))) to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd [] to [cloud記録\(☁クラウド記録\) v]\nadd (join [他の場所をクリックで戻る] (join [\(] (join (translate [他の場所をクリックで戻る] to (en v)::translate) [\)]))) to [cloud記録\(☁クラウド記録\) v]\n\nwhen I start as a clone\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(costume [number v]) = [1]> then\n            say (translate [プレイ] to (en v)::translate) for (0.5) seconds\n        end\n        if <(costume [number v]) = [2]> then\n            say (translate [クラウド記録] to (en v)::translate) for (0.5) seconds\n        end\n        if <(costume [number v]) = [3]> then\n            say [言語設定] for (0.8) seconds\n        end\n        if <(costume [number v]) = [4]> then\n            say [プレイ] for (0.5) seconds\n        end\n        if <(costume [number v]) = [5]> then\n            say [cloud記録] for (0.5) seconds\n        end\n        if <(costume [number v]) = [6]> then\n            say (translate [言語設定] to (en v)::translate) for (0.8) seconds\n        end\n    end\nend\n\nset [☁ クリア回数☆ v] to [0]\nset [☁ プレイ回数 v] to [0]\nset [☁ 正解回数 v] to [0]\n\n@player\n\nwhen I receive [suta-to  v]\nset volume to (100) %\n\nwhen I start as a clone\nrepeat (9)\n    change [ghost v] effect by (7)\n    change size by (-5.2)\nend\ndelete this clone\n\nwhen I receive [プレイ v]\n\nwhen I receive [プレイ v]\nwait (1) seconds\nshow\nwait (2.4) seconds\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nset rotation style [left-right v]\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <touching (spike v)?> then\n        start sound [crashed oof v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        clear graphic effects\n        go to x: (-210) y: (100)\n    end\n    if <<<(x position) > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        create clone of (_myself_ v)\n        change [xのやつ v] by (-1)\n        point in direction (-90)\n    end\n    if <<<(mouse x) > (x position)> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        create clone of (_myself_ v)\n        change [xのやつ v] by (1)\n        point in direction (90)\n    end\n    set [xのやつ v] to ((xのやつ) * (0.9))\n    change x by (xのやつ)\n    if <touching (road- v)?> then\n        change y by (1)\n        if <touching (road- v)?> then\n            change y by (1)\n            if <touching (road- v)?> then\n                change y by (1)\n                if <touching (road- v)?> then\n                    change y by (1)\n                    if <touching (road- v)?> then\n                        change y by (1)\n                        if <touching (road- v)?> then\n                            change x by ((xのやつ) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n                                start sound [ニュッ v]\n                                if <(xのやつ) > [0]> then\n                                    set [xのやつ v] to [-7]\n                                else\n                                    set [xのやつ v] to [7]\n                                end\n                                set [ｙだー v] to [15]\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 (road- v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            set [ｙだー v] to [16.3]\n            start sound [ニュッ v]\n        end\n    end\n    change y by (1)\n    change [ｙだー v] by (-1)\n    change y by (ｙだー)\n    if <touching (road- v)?> then\n        change y by ((ｙだー) * (-1))\n        set [ｙだー v] to [0]\n    end\n    if <(x position) > [230]> then\n        broadcast (next v)\n        start sound [Rip v]\n        wait (0.5) seconds\n        go to x: (-216) y: (50)\n    end\nend\n\nwhen I receive [プレイ v]\nhide\nset size to (60) %\ngo to x: (-220) y: (150)\nset [ghost v] effect to (100)\ngo to [back v] layer\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nbroadcast (next v)\n\nwhen I receive [next v]\ngo to x: (-220) y: (150)\nwait (1) seconds\ngo to x: (-220) y: (150)\n\nwhen I receive [結果発表 v]\ngo to x: (-220) y: (150)\n\nwhen [space v] key pressed\ngo to x: (-220) y: (150)\n\n@road-\n\nwhen I receive [next v]\nwait (0.1) seconds\ngo to [front v] layer\ngo [backward v] (3) layers\nif <(選択肢番号) = [6]> then\n    broadcast (ゴール v)\n    switch costume to (コスチューム4 v)\nelse\n    switch costume to (コスチューム1 v)\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [ghost v] effect to (100)\ndelete all of [出題順 v]\nadd [1] to [出題順 v]\nadd [2] to [出題順 v]\nadd [3] to [出題順 v]\nadd [4] to [出題順 v]\nadd [5] to [出題順 v]\nadd [6] to [出題順 v]\nadd [7] to [出題順 v]\nadd [8] to [出題順 v]\nadd [9] to [出題順 v]\nset [出題問題 v] to (item (pick random (1) to (length of [出題順 v])) of [出題順 v])\ndelete (item # of (出題問題) in [出題順 v]) of [出題順 v]\n\nadd [10] to [出題順 v]\nadd [11] to [出題順 v]\nadd [12] to [出題順 v]\nadd [13] to [出題順 v]\nadd [14] to [出題順 v]\nadd [15] to [出題順 v]\nadd [16] to [出題順 v]\nadd [17] to [出題順 v]\nadd [18] to [出題順 v]\nadd [19] to [出題順 v]\n\nwhen I receive [プレイ v]\nshow\nswitch costume to (コスチューム1 v)\nwait (2.4) seconds\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nwhen flag clicked\n\nwhen I receive [結果発表 v]\nswitch costume to (コスチューム2 v)\nwait (0.1) seconds\n\nwhen I receive [正解 v]\nswitch costume to (コスチューム2 v)\n\nwhen I receive [不正解 v]\nswitch costume to (コスチューム4 v)\n\nwhen I receive [結果発表 v]\nwait (0.5) seconds\nif <not <(選択肢番号) = [0]>> then\n    set [出題問題 v] to (item (pick random (1) to (length of [出題順 v])) of [出題順 v])\n    delete (item # of (出題問題) in [出題順 v]) of [出題順 v]\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\nadd (translate [え～どれだ?] to (en v)::translate) to [翻訳よう v]\n\n@NEXT\n\nwhen I receive [next v]\nset [動く v] to [0]\ngo to [front v] layer\nstart sound [Coin v]\nshow\nswitch costume to (コスチューム1 v)\nrepeat (5)\n    next costume\nend\nwait (1) seconds\nrepeat (5)\n    next costume\nend\nset [動く v] to [1]\nhide\nbroadcast (next Stage v)\n\nwhen flag clicked\nhide\n\n@Button1\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\nshow\nwait (0) seconds\nset [ghost v] effect to (25)\ngo to [front v] layer\nforever\n    go to x: (-197.5) y: (-130)\n    if <mouse down?> then\n        point towards (mouse-pointer v)\n        if <[30] < (distance to [mouse-pointer v])> then\n            move (30) steps\n        else\n            move (distance to [mouse-pointer v]) steps\n        end\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\nshow\n\n@選択肢日本語\n\nwhen flag clicked\ngo to [front v] layer\nset [選択肢番号 v] to [1]\ngo to x: (36) y: (0)\nhide\n\nwhen I receive [プレイ v]\ngo to [back v] layer\nwait (3) seconds\nswitch costume to (出題問題)\nif <(言語\(1日本語　2英語\)) = [1]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [next v]\nhide\nwait (1) seconds\nswitch costume to (出題問題)\nif <(言語\(1日本語　2英語\)) = [1]> then\n    show\nelse\n    hide\nend\n\nchange [選択肢番号 v] by (1)\n\nwhen I receive [結果発表 v]\nhide\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen [space v] key pressed\nnext costume\n\nwhen I receive [ゴール v]\nforever\n    hide\nend\n\nif <(出題問題) = []> then\n    switch costume to (コスチューム14 v)\nend\n\n@選択肢英語\n\nwhen flag clicked\ngo to [front v] layer\nset [選択肢番号 v] to [1]\ngo to x: (36) y: (0)\nhide\n\nwhen I receive [プレイ v]\ngo to [back v] layer\nwait (3) seconds\nswitch costume to (出題問題)\nif <(言語\(1日本語　2英語\)) = [2]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [next v]\nhide\nwait (1) seconds\nswitch costume to (出題問題)\nchange [選択肢番号 v] by (1)\nif <(言語\(1日本語　2英語\)) = [2]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [結果発表 v]\nhide\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen [space v] key pressed\nnext costume\n\nwhen I receive [ゴール v]\nforever\n    hide\nend\n\nif <(出題問題) = []> then\n    switch costume to (コスチューム14 v)\nend\n\n@答え日本語\n\nwhen flag clicked\nhide\n\nwhen I receive [結果発表 v]\ngo to x: (0) y: (35)\nif <(言語\(1日本語　2英語\)) = [2]> then\n    hide\nelse\n    show\nend\n\nwhen I receive [next v]\nhide\n\nwhen I receive [結果発表 v]\nswitch costume to (出題問題)\n\nwait (1) seconds\n\n@答え英語\n\nwhen flag clicked\nhide\n\nwhen I receive [結果発表 v]\ngo to x: (0) y: (35)\nif <(言語\(1日本語　2英語\)) = [1]> then\n    hide\nelse\n    show\nend\n\nwhen I receive [next v]\nhide\n\nwhen I receive [結果発表 v]\nswitch costume to (出題問題)\n\nwait (1) seconds\n\nadd (translate [あなたは50番目にゴールしました！] to (en v)::translate) to [翻訳よう v]\n\n@結果発表\n\nwhen flag clicked\nhide\n\nwhen I receive [結果発表 v]\nshow\n\nwhen I receive [next v]\nhide\n\nwhen I receive [正解 v]\nchange [☁ 正解回数 v] by (1)\nif <(言語\(1日本語　2英語\)) = [1]> then\n    switch costume to (コスチューム2 v)\nelse\n    switch costume to (コスチューム5 v)\nend\n\nwhen I receive [不正解 v]\nif <(言語\(1日本語　2英語\)) = [1]> then\n    switch costume to (コスチューム3 v)\nelse\n    switch costume to (コスチューム6 v)\nend\n\nwhen I receive [ゴール v]\nshow\nchange [☁ クリア回数☆ v] by (1)\nif <(言語\(1日本語　2英語\)) = [1]> then\n    switch costume to (コスチューム4 v)\nelse\n    switch costume to (コスチューム7 v)\nend\n\n@左\n\nwhen flag clicked\nhide\ngo to x: (-73) y: (-143)\nset [ghost v] effect to (100)\nforever\n    if <touching (player v)?> then\n        if <(出題問題) = [1]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [2]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [3]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [4]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [5]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [6]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [7]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [8]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [9]> then\n            broadcast (正解 v)\n        end\n        broadcast (結果発表 v)\n    end\nend\n\nif <(選択肢番号) = [0]> then\n    broadcast (一番左 v)\n    change [☁ プレイ回数 v] by (1)\nend\n\nif <(出題問題) = [10]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [11]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [12]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [13]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [14]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [15]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [16]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [17]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = []> then\n    broadcast (不正解 v)\nend\n\nwhen I receive [プレイ v]\nshow\nset [ghost v] effect to (100)\n\nif <(出題問題) = [18]> then\n    broadcast (不正解 v)\nend\n\n@真ん中\n\nwhen flag clicked\nhide\ngo to x: (33) y: (-143)\nset [ghost v] effect to (100)\nforever\n    if <touching (player v)?> then\n        if <(出題問題) = [1]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [2]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [3]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [4]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [5]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [6]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [7]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [8]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [9]> then\n            broadcast (不正解 v)\n        end\n        broadcast (結果発表 v)\n    end\nend\n\nif <(選択肢番号) = [0]> then\n    broadcast (真ん中 v)\n    change [☁ 中級プレイ回数 v] by (1)\nend\n\nif <(出題問題) = [10]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [11]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [12]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [13]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [14]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [15]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [16]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [17]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = []> then\n    broadcast (正解 v)\nend\n\nwhen I receive [プレイ v]\nshow\nset [ghost v] effect to (100)\n\nif <(出題問題) = [18]> then\n    broadcast (不正解 v)\nend\n\n@右\n\nwhen flag clicked\nhide\ngo to x: (135) y: (-143)\nset [ghost v] effect to (100)\nforever\n    if <touching (player v)?> then\n        if <(出題問題) = [1]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [2]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [3]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [4]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [5]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [6]> then\n            broadcast (正解 v)\n        end\n        if <(出題問題) = [7]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [8]> then\n            broadcast (不正解 v)\n        end\n        if <(出題問題) = [9]> then\n            broadcast (不正解 v)\n        end\n        broadcast (結果発表 v)\n    end\nend\n\nif <(選択肢番号) = [0]> then\n    broadcast (一番右 v)\n    change [☁ 激ムズプレイ回数 v] by (1)\nend\n\nif <(出題問題) = [10]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [11]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [12]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [13]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [14]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [15]> then\n    broadcast (正解 v)\nend\nif <(出題問題) = [16]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = [17]> then\n    broadcast (不正解 v)\nend\nif <(出題問題) = []> then\n    broadcast (不正解 v)\nend\n\nwhen I receive [プレイ v]\nshow\nset [ghost v] effect to (100)\n\nif <(出題問題) = [18]> then\n    broadcast (不正解 v)\nend\n\n@クリア回数\n\nwhen flag clicked\nhide\nforever\n    switch costume to (letter (1) of (☁ クリア回数☆))\n    set [長さ v] to [0]\n    if <[1] < (length of (☁ クリア回数☆))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[2] < (length of (☁ クリア回数☆))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[3] < (length of (☁ クリア回数☆))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[4] < (length of (☁ クリア回数☆))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\n    if <[5] < (length of (☁ クリア回数☆))> then\n        change [長さ v] by (1)\n        create clone of (_myself_ v)\n    end\n    wait (0) seconds\nend\n\nwhen I start as a clone\n位\n\ndefine 位\nset [クローン用長さ v] to (長さ)\nswitch costume to (letter ((クローン用長さ) - (-1)) of (☁ クリア回数☆))\nchange x by (((size) * (0.5)) * (クローン用長さ))\nwait (0.2) seconds\ndelete this clone\n\nwhen I receive [ゴール v]\nshow\n\nwhen flag clicked\nforever\n    if <(言語\(1日本語　2英語\)) = [1]> then\n        go to x: (-124) y: (62)\n    else\n        go to x: (60) y: (57)\n    end\nend\n\n@探知機\n\nwhen [timer v] > ((変数) - <<(distance to [(join [素材] []) v]) = [10000]> or <(distance to [(join [探知機2] []) v]) = [10000]>>)\nrepeat until <not <(変数) > ((変数) - <<(distance to [(join [素材] []) v]) = [10000]> or <(distance to [(join [探知機2] []) v]) = [10000]>>)>>\n    broadcast (メッセージ1 v)\nend\n\n@探知機2\n\nwhen [timer v] > ((変数) - <<(distance to [(join [素材] []) v]) = [10000]> or <(distance to [(join [探知機] []) v]) = [10000]>>)\nrepeat until <not <(変数) > ((変数) - <<(distance to [(join [素材] []) v]) = [10000]> or <(distance to [(join [探知機] []) v]) = [10000]>>)>>\n    broadcast (メッセージ1 v)\nend\n\n@素材\n\nwhen flag clicked\nshow\nforever\n    show\n    go to x: (5) y: (-53)\n    switch costume to (costume1 v)\n    set [report v] to <<touching (mouse-pointer v)?> or <<touching (mouse-pointer v)?> and <mouse down?>>>\n    if <(report) = [true]> then\n        broadcast (メッセージ1 v)\n    end\nend\n\ndefine クローン1\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\ndefine クローン2\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\ncreate clone of (_myself_ v)\n\ndefine クローン3\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\ndefine クローン4\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\ndefine クローン5\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\ndefine クローン6\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\nwhen I start as a clone\ncreate clone of (_myself_ v)\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\ndelete this clone\n\nwhen I receive [メッセージ1 v]\nクローン1\nクローン2\nクローン3\nクローン4\nクローン5\nクローン6\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nshow\nforever\n    show\n    go to x: (5) y: (-53)\n    switch costume to (costume1 v)\n    set [report v] to <<touching (mouse-pointer v)?> or <<touching (mouse-pointer v)?> and <mouse down?>>>\n    if <(report) = [true]> then\n        broadcast (メッセージ1 v)\n    end\nend\n\nwhen [timer v] > (0)\nforever\n    reset timer\nend\n\nwhen flag clicked\nforever\n    set [変数 v] to (timer)\nend\n\nwhen [timer v] > (0)\nforever\n    set [変数 v] to (timer)\nend\n\n