Clone Platformer  ver.1.6

Instructions: ★ How to play\n・Use the arrow keys\n・tap the screen to move.\n★遊び方\n・矢印キーで操作\n・モバイルにも一応対応\n\n・The stages are managed by a list, so you can also create your own stages.\n・I plan to add more stages in the future.\n\n・一応リストでステージは管理しているので、自分でステージを作ることもできます。\n　背景のところにブロックがあると思うので、そこに\n　ある数字をいじると、反映されます。

@Stage\n\nwhen flag clicked\nhide variable [☁ time v]\nhide variable [☁ world record v]\nswitch backdrop to (背景1 v)\nset [stage v] to [0]\n\nwhen I receive [start v]\nswitch backdrop to (背景2 v)\n\nwhen I receive [ok v]\nreset timer\nrepeat until <(stage) = [6]>\n    set [time v] to ([floor v] of (timer) )\nend\nif <(stage) = [6]> then\n    switch backdrop to (背景3 v)\n    set [☁ time v] to (time)\n    show variable [☁ time v]\n    if <(☁ time) < (☁ world record)> then\n        set [☁ world record v] to (☁ time)\n    end\n    show variable [☁ world record v]\nend\n\n@主人公\n\ndefine reset (x) (y)\nset [x v] to [0]\nset [y v] to [0]\nset [ghost v] effect to (0)\nset rotation style [left-right v]\ngo to x: (x) y: (y)\n\nwhen I receive [ok v]\nshow\nreset [-230] [-140]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <[25] < (mouse x)>>> then\n        change [x v] by (1)\n        point in direction ([abs v] of (direction) )\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [-25]>>> then\n        change [x v] by (-1)\n        point in direction ((-1) * ([abs v] of (direction) ))\n    end\n    set [x v] to ((x) * (.82))\n    change x by (x)\n    if <touching (1,2:ステージ v)?> then\n        change y by (1.11)\n        if <touching (1,2:ステージ v)?> then\n            change y by (1.11)\n            if <touching (1,2:ステージ v)?> then\n                change y by (1.11)\n                if <touching (1,2:ステージ v)?> then\n                    change y by (1.11)\n                    if <touching (1,2:ステージ v)?> then\n                        change y by (1.11)\n                        if <touching (1,2:ステージ v)?> then\n                            change y by (1.11)\n                            if <touching (1,2:ステージ v)?> then\n                                change y by (1.11)\n                                if <touching (1,2:ステージ v)?> then\n                                    change x by ((-1) * (x))\n                                    change y by (-7.77)\n                                    if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n                                        if <(x) = ([abs v] of (x) )> then\n                                            set [x v] to [-6]\n                                        else\n                                            set [x v] to [6]\n                                        end\n                                        set [y v] to [9]\n                                    else\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (1,2:ステージ v)?> then\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n            set [y v] to [9]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (1,2:ステージ v)?> then\n        change y by ((-1) * (y))\n        set [y v] to [0]\n    end\n    if <touching (6:ゴール v)?> then\n        set [消える判定 v] to [1]\n        wait (.001) seconds\n        set [消える判定 v] to [0]\n        change [stage v] by (1)\n        broadcast (next v)\n        reset [-230] [-140]\n        wait (1) seconds\n    end\n    if <<[-170] > (y position)> or <<touching (3,4,9:障害物 v)?> or <<touching (4:マグマ下 v)?> or <touching (9:とげ v)?>>>> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        reset [-230] [-140]\n    end\n    if <(x position) < [-230]> then\n        set x to (-230)\n    end\n    if <(x position) > [230]> then\n        set x to (230)\n    end\n    if <touching (5:ジャンプ v)?> then\n        set [y v] to [13]\n    end\n    if <touching (d;ダッシュ v)?> then\n        set [x v] to [10]\n    end\n    if <touching (b;バックダッシュ v)?> then\n        set [x v] to [-10]\n    end\nend\n\nwhen flag clicked\nset [消える判定 v] to [0]\nhide\n\n@1,2:ステージ\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [1]?> then\n            switch costume to (コスチューム1 v)\n            create clone of (_myself_ v)\n        else\n            if < (letter (a) of (item (b) of [1 v])) contains [2]?> then\n                switch costume to (コスチューム2 v)\n                create clone of (_myself_ v)\n            end\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\nbroadcast (OK v)\n\n@3,4,9:障害物\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [3]?> then\n            switch costume to (コスチューム1 v)\n            create clone of (_myself_ v)\n        else\n            if < (letter (a) of (item (b) of [1 v])) contains [4]?> then\n                switch costume to (コスチューム2 v)\n                create clone of (_myself_ v)\n            else\n                if < (letter (a) of (item (b) of [1 v])) contains [9]?> then\n                    switch costume to (コスチューム3 v)\n                    create clone of (_myself_ v)\n                end\n            end\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\n\n@5:ジャンプ\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\ngo to x: (-230) y: (170)\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [5]?> then\n            create clone of (_myself_ v)\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\n\n@6:ゴール\n\nwhen I receive [next v]\n配置\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [6]?> then\n            create clone of (_myself_ v)\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [start v]\n配置\n\n@7,8,a:飾り\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [7]?> then\n            switch costume to (コスチューム1 v)\n            create clone of (_myself_ v)\n        else\n            if < (letter (a) of (item (b) of [1 v])) contains [8]?> then\n                switch costume to (コスチューム2 v)\n                create clone of (_myself_ v)\n            else\n                if < (letter (a) of (item (b) of [1 v])) contains [a]?> then\n                    switch costume to (コスチューム3 v)\n                    create clone of (_myself_ v)\n                end\n            end\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\n\n@d;ダッシュ\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [d]?> then\n            switch costume to (コスチューム1 v)\n            create clone of (_myself_ v)\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nshow\npoint in direction (80)\ngo to x: (550) y: (0)\nrepeat (20)\n    change x by (((x position) - (0)) / (-5))\nend\nrepeat (21)\n    change x by (((x position) - (-550)) / (-5))\nend\nhide\n\n@おサムネ\n\nwhen flag clicked\nshow\nchange [ghost v] effect by (100)\n\n@入\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [7]> then\n    if <(M) = [1]> then\n        go to [front v] layer\n        go to x: (550) y: (0)\n        repeat (20)\n            change x by (((x position) - (0)) / (-5))\n        end\n        repeat (21)\n            change x by (((x position) - (-550)) / (-5))\n        end\n    else\n        go to [front v] layer\n        go to x: (550) y: (0)\n        repeat (20)\n            change x by (((x position) - (0)) / (-5))\n        end\n        set [↻ v] to [1]\n        repeat (21)\n            change x by (((x position) - (-550)) / (-5))\n        end\n    end\n    delete this clone\nend\nif <(costume [number v]) = [6]> then\n    go to x: (0) y: (0)\n    show\n    go to [back v] layer\n    repeat until <(M) = [1]>\n        turn right (5) degrees\n    end\n    if <(M) = [1]> then\n        delete this clone\n    end\nend\nif <(costume [number v]) = [4]> then\n    point in direction (90)\n    go to x: (0) y: (0)\n    set size to (75) %\n    go to [front v] layer\n    ↻ [3]\n    repeat (5)\n        change size by (-5)\n    end\n    repeat (5)\n        change size by (-5)\n    end\n    switch costume to (5 v)\n    go to x: (0) y: (0)\n    point in direction (90)\n    set size to (1) %\n    create clone of (_myself_ v)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\nif <(costume [number v]) < [4]> then\n    set size to (pick random (80) to (120)) %\n    go to (random position v)\n    point in direction (pick random (1) to (360))\n    repeat until <(M) = [1]>\n        move (pick random (0) to (1)) steps\n        if on edge, bounce\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    go to [front v] layer\n    repeat (18)\n        change size by (5)\n        point in direction (((12) * ([sin v] of ((timer) * (300)) )) + (90))\n    end\n    repeat (80)\n        point in direction (((12) * ([sin v] of ((timer) * (300)) )) + (90))\n    end\n    set [m v] to [1]\n    delete this clone\nend\n\nwhen flag clicked\nset size to (100) %\nswitch costume to (7 v)\ncreate clone of (_myself_ v)\nwait until <(↻) = [1]>\nif <(↻) = [1]> then\n    start sound [ v]\n    set size to (100) %\n    hide\n    switch costume to (6 v)\n    create clone of (_myself_ v)\n    switch costume to (4 v)\n    create clone of (_myself_ v)\n    go to x: (300) y: (300)\n    repeat (80)\n        switch costume to (pick random (1) to (3))\n        create clone of (_myself_ v)\n    end\nend\nwait until <(M) = [1]>\nif <(M) = [1]> then\n    switch costume to (7 v)\n    create clone of (_myself_ v)\nend\nwait (1.1) seconds\nbroadcast (start v)\n\nwhen flag clicked\nset [m v] to [0]\nset [↻ v] to [0]\nforever\n    set [角度 v] to (pick random (15) to (30))\n    set [速度 v] to (pick random (3) to (7))\nend\n\ndefine ↻ ()\nrepeat ()\n    wait (.1) seconds\n    point in direction (90)\n    set [↻ v] to [0]\n    repeat (45)\n        point in direction ((90) + (([tan v] of (↻) ) * (7)))\n        change [↻ v] by (4)\n    end\n    point in direction (90)\nend\n\n@b;バックダッシュ\n\nwhen I start as a clone\nforever\n    if <not <(消える判定) = [0]>> then\n        delete this clone\n    end\nend\n\ndefine 配置\nshow\ngo to x: (-230) y: (170)\nset [a v] to [1]\nset [b v] to (((stage) * (18)) + (1))\nrepeat (18)\n    set x to (-230)\n    repeat (25)\n        change [a v] by (1)\n        if < (letter (a) of (item (b) of [1 v])) contains [b]?> then\n            switch costume to (コスチューム1 v)\n            create clone of (_myself_ v)\n        end\n        change x by (20)\n    end\n    set [a v] to [1]\n    change [b v] by (1)\n    change y by (-20)\nend\nhide\n\nwhen I receive [next v]\n配置\n\nwhen I receive [start v]\n配置\n\n