(DARK!) 3 (Mobile Friendly Platformer)

Instructions:                          ◆◆Instructions◆◆ \n>Use The W,A,S,D or Arrow Keys To Move.\n>Jump Over Enemies.\n>Hard.\n>Your Aim Is To Be Colored\n >Part 2: https://scratch.mit.edu/projects/421336908/\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen [timer v] > (0)\nset volume to (50) %\nstart sound [AMONG US - Menu Theme v]\n\nwhen [timer v] > (0)\nswitch backdrop to (背景 v)\nrepeat (50)\n    change volume by (1)\nend\n\nwhen I receive [game start v]\nstop all sounds\nforever\n    play sound [Among Us Trap Remix \(Among Drip Theme Song Original\) - BlueConvert v] until done\nend\n\nwhen I receive [オンライン v]\nstop all sounds\nforever\n    play sound [Among Us Trap Remix \(Among Drip Theme Song Original\) - BlueConvert v] until done\nend\n\n@ぷれいやー\n\nwhen flag clicked\nhide\nset rotation style [left-right v]\n\nwhen flag clicked\nforever\n    if <<key (w v) pressed?> or <key (up arrow v) pressed?>> then\n        switch costume to (jump v)\n        repeat until <touching (ground v)?>\n            switch costume to (jump v)\n        end\n    end\nend\n\nwhen flag clicked\n\nwhen I receive [end v]\nswitch costume to (idle v)\ngo to x: (-200) y: (-100)\nstop [other scripts in sprite v]\n\nwhen I receive [game start v]\nshow\nforever\n    if <<key (w v) pressed?> or <key (up arrow v) pressed?>> then\n        switch costume to (jump v)\n    end\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n        if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n            point in direction (-90)\n            next costume\n            wait (0.04) seconds\n            if <(costume [number v]) = [11]> then\n                switch costume to (walk v)\n            end\n            if <(costume [number v]) = [12]> then\n                switch costume to (walk v)\n            end\n        end\n        if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n            point in direction (90)\n            next costume\n            wait (0.04) seconds\n            if <(costume [number v]) = [11]> then\n                switch costume to (walk v)\n            end\n            if <(costume [number v]) = [12]> then\n                switch costume to (walk v)\n            end\n        end\n    else\n        switch costume to (idle v)\n    end\nend\n\nwhen I receive [game start v]\nforever\n    show\n    go to (player v)\nend\n\nwhen I receive [game start v]\nforever\n    if <(costume [number v]) = [3]> then\n        play sound [Footstep2 v] until done\n    end\n    if <(costume [number v]) = [8]> then\n        play sound [Footstep2 v] until done\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    show\n    go to (キャラクター v)\nend\n\nwhen I receive [オンライン v]\nshow\nforever\n    if <<key (w v) pressed?> or <key (up arrow v) pressed?>> then\n        switch costume to (jump v)\n    end\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n        if <<key (a v) pressed?> or <key (left arrow v) pressed?>> then\n            point in direction (-90)\n            next costume\n            wait (0.04) seconds\n            if <(costume [number v]) = [11]> then\n                switch costume to (walk v)\n            end\n            if <(costume [number v]) = [12]> then\n                switch costume to (walk v)\n            end\n        end\n        if <<key (d v) pressed?> or <key (right arrow v) pressed?>> then\n            point in direction (90)\n            next costume\n            wait (0.04) seconds\n            if <(costume [number v]) = [11]> then\n                switch costume to (walk v)\n            end\n            if <(costume [number v]) = [12]> then\n                switch costume to (walk v)\n            end\n        end\n    else\n        switch costume to (idle v)\n    end\nend\n\n@Among Us\n\nwhen flag clicked\nset [押されたみんなバナナ食べよう v] to [0]\nchange [ghost v] effect by (100)\n\nwhen [timer v] > (0)\nshow\nswitch costume to (ashampoo_snap_2 v)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nforever\n    go to [back v] layer\nend\n\nif <touching (mouse-pointer v)?> then\n    if <(mouse x) = [50]> then\nend\n\nwhen I receive [collar v]\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen I receive [game start v]\nhide\n\nwhen I receive [オンライン v]\nhide\n\n@shhhhhhh\n\nwhen I start as a clone\nif <(id) = [0]> then\n    forever\n        switch costume to (costume3 v)\n        show\n        go to [back v] layer\n        turn right (-0.5) degrees\n    end\nend\nif <(id) = [1]> then\n    hide\n    wait (0.5) seconds\n    switch costume to (costume1 v)\n    show\n    go to [front v] layer\n    go [backward v] (1) layers\n    go to x: (0) y: (-140)\n    set size to (115) %\n    wait (0.08) seconds\n    set size to (100) %\n    wait (1) seconds\n    broadcast (be.end v)\nend\nif <(id) = [2]> then\n    go to x: (120) y: (-120)\n    point in direction (180)\n    forever\n        change x by ((x position) / (-5))\n        change y by ((y position) / (-3))\n        turn right (((direction) - (90)) / (-3)) degrees\n        switch costume to (ashampoo_snap_2020 v)\n        show\n        go to [front v] layer\n        set size to (100) %\n    end\nend\ndelete this clone\n\nwhen flag clicked\ngo to x: (0) y: (0)\nwait (0.3) seconds\nset size to (100) %\nset [id v] to [0]\ncreate clone of (_myself_ v)\nset [id v] to [1]\ncreate clone of (_myself_ v)\nset [id v] to [2]\ncreate clone of (_myself_ v)\nset [alive? v] to [1]\nshow\npoint in direction (90)\nset size to (100) %\nswitch costume to (costume2 v)\ngo to [front v] layer\nwait (0.5) seconds\nset size to (115) %\nwait (0.08) seconds\nset size to (100) %\nstop [other scripts in sprite v]\ngo to [back v] layer\n\nwhen I receive [shhhhh v]\n\ndelete this clone\n\nset [id v] to [0]\n\ndelete this clone\n\nwhen I receive [be.end v]\nwait (2) seconds\nhide\nstop [all v]\n\n@PC\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\n\nshow\n\nwhen this sprite clicked\n\nbroadcast (オンライン v)\n\nhide\n\nhide\n\nwhen I receive [game start v]\n\nwhen I receive [オンライン v]\n\n@PC2\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\nshow\n\nwhen this sprite clicked\nbroadcast (game start v)\n\nwhen I receive [game start v]\nhide\n\nwhen I receive [オンライン v]\nhide\n\n@道\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\n\nwhen I receive [suta-to  v]\n\nwhen flag clicked\nset [time v] to [0]\nhide variable [time v]\nhide variable [☁ world record v]\n\nwhen flag clicked\n\nwhen I receive [game start v]\ngo to [back v] layer\nshow\n\nwhen I receive [next v]\nnext costume\n\ngo to [back v] layer\n\nwhen I receive [オンライン v]\n\ngo to [back v] layer\nshow\n\n@player\n\nwhen flag clicked\nset [ghost v] effect to (100)\nhide\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nchange [ghost v] effect by (100)\n\nwhen [z v] key pressed\n\nwhen flag clicked\n\nclear graphic effects\n\nwait (0.1) seconds\n\nwhen flag clicked\nforever\n    set size to (大きさ（）) %\nend\n\n\nwait until <not <key (space v) pressed?>>\n\nchange size by (10)\n\nwhen flag clicked\nforever\n\nif <key (space v) pressed?> then\n    change size by (10)\nend\nwait until <not <key (space v) pressed?>>\n\nwhen I receive [game start v]\nshow\nset [ghost v] effect to (100)\nset size to (70) %\ngo to x: (-220) y: (-98)\ngo to [back v] layer\n\nwhen I receive [game start v]\nset rotation style [left-right v]\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<touching (innpoduta-2 v)?> or <<touching (innpoduta- v)?> or <(y position) < [-160]>>> then\n        go to x: (-250) y: (-91)\n    end\n    if <<<(x position) > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [xのやつ v] by (-0.5)\n        point in direction (-90)\n    end\n    if <<<(mouse x) > (x position)> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [xのやつ v] by (0.5)\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                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (道 v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            set [ｙだー v] to [10]\n        end\n    end\n    change y by (1)\n    change [ｙだー v] by (-1)\n    change y by (ｙだー)\n    if <touching (道 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        go to x: (-216) y: (-98)\n    end\n    if <touching (ばね v)?> then\n        set [ｙだー v] to [22]\n    end\nend\n\nif <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\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]\nelse\n    set [xのやつ v] to [0]\nend\n\n@Intro:FlyingPlayers\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nset size to (pick random (50) to (130)) %\nshow\nswitch costume to (pick random (1) to (7))\nif <(pick random (1) to (3)) = [1]> then\n    go to x: (-340) y: (pick random (-250) to (250))\n    set [dir_move v] to (pick random (20) to (160))\nelse\n    if <(pick random (1) to (2)) = [1]> then\n        go to x: (340) y: (pick random (-250) to (250))\n        set [dir_move v] to (pick random (-20) to (-160))\n    else\n        if <(pick random (1) to (1)) = [1]> then\n            go to x: (pick random (-340) to (340)) y: (250)\n            set [dir_move v] to (pick random (90) to (180))\n        end\n    end\nend\nset [dir_show_ch v] to (pick random (0.2) to (3.2))\nforever\n    change [ghost v] effect by (-10)\n    show\n    point in direction (dir_move)\n    move (1) steps\n    change [dir_show v] by (dir_show_ch)\n    point in direction (dir_show)\n    if <<([abs v] of (x position) ) > [331]> and <([abs v] of (y position) ) > [251]>> then\n        delete this clone\n    end\nend\n\nwhen I receive [before.createnewgame v]\ndelete this clone\n\nwhen I receive [game start v]\ndelete this clone\n\nwhen I receive [on-lineですか v]\ndelete this clone\n\nwhen I receive [intro v]\n\nwhen I receive [crashed v]\nhide\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\nset [すたと v] to [0]\nhide\nforever\n    if <not <(すたと) = [1]>> then\n        create clone of (_myself_ v)\n        wait (4) seconds\n    end\nend\n\nwhen [timer v] > (0)\nset size to (pick random (50) to (130)) %\nshow\nswitch costume to (pick random (1) to (5))\nset [me:direction v] to [90]\nset [dir_move v] to (pick random (-180) to (180))\nset [dir_show_ch v] to (pick random (0.2) to (3.2))\ngo to x: (pick random (100) to (-100)) y: (pick random (100) to (-100))\nforever\n    hide\n    go to [back v] layer\n    point in direction (dir_move)\n    move (1) steps\n    change [dir_show v] by (dir_show_ch)\n    point in direction (dir_show)\nend\n\nwhen I receive [game start v]\nset [すたと v] to [1]\n\nwhen I receive [オンライン v]\nset [すたと v] to [1]\n\nwhen I receive [オンライン v]\ndelete this clone\n\n@スプライト3\n\ndefine コピー\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\nhide\nset rotation style [left-right v]\nif <(costume [number v]) = [1]> then\n    forever\n        if <<not <(☁ p1) = [0]>> and <not <(1p？) = [1]>>> then\n            go to x: ((join (letter (41) of (☁ p1)) (join (letter (42) of (☁ p1)) (letter (43) of (☁ p1)))) - (500)) y: ((join (letter (44) of (☁ p1)) (join (letter (45) of (☁ p1)) (letter (46) of (☁ p1)))) - (500))\n            point in direction ((join (letter (49) of (☁ p1)) (join (letter (50) of (☁ p1)) (letter (51) of (☁ p1)))) - (200))\n            if <((join (letter (47) of (☁ p1)) (letter (48) of (☁ p1))) - (10)) = ([costume # v] of [地面 v])> then\n                say (1)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p1) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    forever\n        if <<not <(☁ p2) = [0]>> and <not <(1p？) = [2]>>> then\n            go to x: ((join (letter (41) of (☁ p2)) (join (letter (42) of (☁ p2)) (letter (43) of (☁ p2)))) - (500)) y: ((join (letter (44) of (☁ p2)) (join (letter (45) of (☁ p2)) (letter (46) of (☁ p2)))) - (500))\n            point in direction ((join (letter (49) of (☁ p2)) (join (letter (50) of (☁ p2)) (letter (51) of (☁ p2)))) - (200))\n            if <((join (letter (47) of (☁ p2)) (letter (48) of (☁ p2))) - (10)) = ([costume # v] of [地面 v])> then\n                say (2)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p2) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [3]> then\n    forever\n        if <<not <(☁ p3) = [0]>> and <not <(1p？) = [3]>>> then\n            go to x: ((join (letter (41) of (☁ p3)) (join (letter (42) of (☁ p3)) (letter (43) of (☁ p3)))) - (500)) y: ((join (letter (44) of (☁ p3)) (join (letter (45) of (☁ p3)) (letter (46) of (☁ p3)))) - (500))\n            point in direction ((join (letter (49) of (☁ p3)) (join (letter (50) of (☁ p3)) (letter (51) of (☁ p3)))) - (200))\n            if <((join (letter (47) of (☁ p3)) (letter (48) of (☁ p3))) - (10)) = ([costume # v] of [地面 v])> then\n                say (3)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p3) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [4]> then\n    forever\n        if <<not <(☁ p4) = [0]>> and <not <(1p？) = [4]>>> then\n            go to x: ((join (letter (41) of (☁ p4)) (join (letter (42) of (☁ p4)) (letter (43) of (☁ p4)))) - (500)) y: ((join (letter (44) of (☁ p4)) (join (letter (45) of (☁ p4)) (letter (46) of (☁ p4)))) - (500))\n            point in direction ((join (letter (49) of (☁ p4)) (join (letter (50) of (☁ p4)) (letter (51) of (☁ p4)))) - (200))\n            if <((join (letter (47) of (☁ p4)) (letter (48) of (☁ p4))) - (10)) = ([costume # v] of [地面 v])> then\n                say (4)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p4) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [5]> then\n    forever\n        if <<not <(☁ p5) = [0]>> and <not <(1p？) = [3]>>> then\n            go to x: ((join (letter (41) of (☁ p5)) (join (letter (42) of (☁ p5)) (letter (43) of (☁ p5)))) - (500)) y: ((join (letter (44) of (☁ p5)) (join (letter (45) of (☁ p5)) (letter (46) of (☁ p5)))) - (500))\n            point in direction ((join (letter (49) of (☁ p5)) (join (letter (50) of (☁ p5)) (letter (51) of (☁ p5)))) - (200))\n            if <((join (letter (47) of (☁ p5)) (letter (48) of (☁ p5))) - (10)) = ([costume # v] of [地面 v])> then\n                say (5)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p5) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [6]> then\n    forever\n        if <<not <(☁ p6) = [0]>> and <not <(1p？) = [6]>>> then\n            go to x: ((join (letter (41) of (☁ p6)) (join (letter (42) of (☁ p6)) (letter (43) of (☁ p6)))) - (500)) y: ((join (letter (44) of (☁ p6)) (join (letter (45) of (☁ p6)) (letter (46) of (☁ p6)))) - (500))\n            point in direction ((join (letter (49) of (☁ p6)) (join (letter (50) of (☁ p6)) (letter (51) of (☁ p6)))) - (200))\n            if <((join (letter (47) of (☁ p6)) (letter (48) of (☁ p6))) - (10)) = ([costume # v] of [地面 v])> then\n                say (6)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p6) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [7]> then\n    forever\n        if <<not <(☁ p7) = [0]>> and <not <(1p？) = [7]>>> then\n            go to x: ((join (letter (41) of (☁ p7)) (join (letter (42) of (☁ p7)) (letter (43) of (☁ p7)))) - (500)) y: ((join (letter (44) of (☁ p7)) (join (letter (45) of (☁ p7)) (letter (46) of (☁ p7)))) - (500))\n            point in direction ((join (letter (49) of (☁ p7)) (join (letter (50) of (☁ p7)) (letter (51) of (☁ p7)))) - (200))\n            if <((join (letter (47) of (☁ p7)) (letter (48) of (☁ p7))) - (10)) = ([costume # v] of [地面 v])> then\n                say (7)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p7) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [8]> then\n    forever\n        if <<not <(☁ p8) = [0]>> and <not <(1p？) = [8]>>> then\n            go to x: ((join (letter (41) of (☁ p8)) (join (letter (42) of (☁ p8)) (letter (43) of (☁ p8)))) - (500)) y: ((join (letter (44) of (☁ p8)) (join (letter (45) of (☁ p8)) (letter (46) of (☁ p8)))) - (500))\n            point in direction ((join (letter (49) of (☁ p8)) (join (letter (50) of (☁ p8)) (letter (51) of (☁ p8)))) - (200))\n            if <((join (letter (47) of (☁ p8)) (letter (48) of (☁ p8))) - (10)) = ([costume # v] of [地面 v])> then\n                say (8)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p8) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [9]> then\n    forever\n        if <<not <(☁ p9) = [0]>> and <not <(1p？) = [9]>>> then\n            go to x: ((join (letter (41) of (☁ p9)) (join (letter (42) of (☁ p9)) (letter (43) of (☁ p9)))) - (500)) y: ((join (letter (44) of (☁ p9)) (join (letter (45) of (☁ p9)) (letter (46) of (☁ p9)))) - (500))\n            point in direction ((join (letter (49) of (☁ p9)) (join (letter (50) of (☁ p9)) (letter (51) of (☁ p9)))) - (200))\n            if <((join (letter (47) of (☁ p9)) (letter (48) of (☁ p9))) - (10)) = ([costume # v] of [地面 v])> then\n                say (9)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p9) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [10]> then\n    forever\n        if <<not <(☁ p10) = [0]>> and <not <(1p？) = [10]>>> then\n            go to x: ((join (letter (41) of (☁ p10)) (join (letter (42) of (☁ p10)) (letter (43) of (☁ p10)))) - (500)) y: ((join (letter (44) of (☁ p10)) (join (letter (45) of (☁ p10)) (letter (46) of (☁ p10)))) - (500))\n            point in direction ((join (letter (49) of (☁ p10)) (join (letter (50) of (☁ p10)) (letter (51) of (☁ p10)))) - (200))\n            if <((join (letter (47) of (☁ p10)) (letter (48) of (☁ p10))) - (10)) = ([costume # v] of [地面 v])> then\n                say (10)\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p10) = [0]> then\n            hide\n        end\n    end\nend\n\nwhen I receive [オンライン！ v]\n\nhide\nset [color v] effect to (pick random (1) to (200))\nコピー\n\n@オンライン\n\nwhen I receive [オンライン v]\n\nset [オンライン v] to [1]\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p7 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([costume # v] of [キャラクター v]) + (100)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [ユーザー v] to [0]\nset [ユーザー名数値化 v] to []\nrepeat (length of (username))\n    change [ユーザー v] by (1)\n    switch costume to (letter (ユーザー) of (username))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) (costume [number v]))\nend\nrepeat ((40) - (length of (ユーザー名数値化)))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\nset [読み込み v] to [0]\nset [1 v] to []\nrepeat ((length of (☁ p1)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p1)) (letter ((読み込み) + (2)) of (☁ p1))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p1)) (letter (読み込み) of (☁ p1)))\n        set [1 v] to (join (1) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [2 v] to []\nrepeat ((length of (☁ p2)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p2)) (letter ((読み込み) + (2)) of (☁ p2))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p2)) (letter (読み込み) of (☁ p2)))\n        set [2 v] to (join (2) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [3 v] to []\nrepeat ((length of (☁ p3)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p3)) (letter ((読み込み) + (2)) of (☁ p3))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p3)) (letter (読み込み) of (☁ p3)))\n        set [3 v] to (join (3) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [4 v] to []\nrepeat ((length of (☁ p4)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p4)) (letter ((読み込み) + (2)) of (☁ p4))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p4)) (letter (読み込み) of (☁ p4)))\n        set [4 v] to (join (4) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [5 v] to []\nrepeat ((length of (☁ p5)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p5)) (letter ((読み込み) + (2)) of (☁ p5))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p5)) (letter (読み込み) of (☁ p5)))\n        set [5 v] to (join (5) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [6 v] to []\nrepeat ((length of (☁ p6)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p6)) (letter ((読み込み) + (2)) of (☁ p6))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p6)) (letter (読み込み) of (☁ p6)))\n        set [6 v] to (join (6) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [7 v] to []\nrepeat ((length of (☁ p7)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p7)) (letter ((読み込み) + (2)) of (☁ p7))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p7)) (letter (読み込み) of (☁ p7)))\n        set [7 v] to (join (7) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [8 v] to []\nrepeat ((length of (☁ p8)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p8)) (letter ((読み込み) + (2)) of (☁ p8))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p8)) (letter (読み込み) of (☁ p8)))\n        set [8 v] to (join (8) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [9 v] to []\nrepeat ((length of (☁ p9)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p9)) (letter ((読み込み) + (2)) of (☁ p9))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p9)) (letter (読み込み) of (☁ p9)))\n        set [9 v] to (join (9) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [10 v] to []\nrepeat ((length of (☁ p10)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p10)) (letter ((読み込み) + (2)) of (☁ p10))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p10)) (letter (読み込み) of (☁ p10)))\n        set [10 v] to (join (10) (costume [name v]))\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [1p確認 v] to (☁ p1)\n    wait (3) seconds\n    if <(letter (length of (1p確認)) of (1p確認)) = (letter (length of (☁ p1)) of (☁ p1))> then\n        set [☁ p1 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [2p確認 v] to (☁ p2)\n    wait (3) seconds\n    if <(letter (length of (2p確認)) of (2p確認)) = (letter (length of (☁ p2)) of (☁ p2))> then\n        set [☁ p2 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [3p確認 v] to (☁ p3)\n    wait (3) seconds\n    if <(letter (length of (3p確認)) of (3p確認)) = (letter (length of (☁ p3)) of (☁ p3))> then\n        set [☁ p3 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [4p確認 v] to (☁ p4)\n    wait (3) seconds\n    if <(letter (length of (4p確認)) of (4p確認)) = (letter (length of (☁ p4)) of (☁ p4))> then\n        set [☁ p4 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [5p確認 v] to (☁ p5)\n    wait (3) seconds\n    if <(letter (length of (5p確認)) of (5p確認)) = (letter (length of (☁ p5)) of (☁ p5))> then\n        set [☁ p5 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [6p確認 v] to (☁ p6)\n    wait (3) seconds\n    if <(letter (length of (6p確認)) of (6p確認)) = (letter (length of (☁ p6)) of (☁ p6))> then\n        set [☁ p6 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [7p確認 v] to (☁ p7)\n    wait (3) seconds\n    if <(letter (length of (7p確認)) of (7p確認)) = (letter (length of (☁ p7)) of (☁ p7))> then\n        set [☁ p7 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [8p確認 v] to (☁ p8)\n    wait (3) seconds\n    if <(letter (length of (8p確認)) of (8p確認)) = (letter (length of (☁ p8)) of (☁ p8))> then\n        set [☁ p8 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [9p確認 v] to (☁ p9)\n    wait (3) seconds\n    if <(letter (length of (9p確認)) of (9p確認)) = (letter (length of (☁ p9)) of (☁ p9))> then\n        set [☁ p9 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [10p確認 v] to (☁ p10)\n    wait (3) seconds\n    if <(letter (length of (10p確認)) of (10p確認)) = (letter (length of (☁ p10)) of (☁ p10))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\n@キャラクター\n\nwhen I receive [オンライン！ v]\nset [ghost v] effect to (100)\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nset size to (75) %\ngo to x: (-200) y: (0)\nset [x2 v] to [0]\nset [y2 v] to [0]\nforever\n    if <(ねくすと) = [0]> then\n        switch costume to (コスチューム1 v)\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n            point in direction (90)\n            if <(X2) < [8]> then\n                change [x2 v] by (0.5)\n            else\n                set [x2 v] to [8]\n            end\n        end\n        if <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>> then\n            point in direction (-90)\n            if <(X2) < [-8]> then\n                set [x2 v] to [-8]\n            else\n                change [x2 v] by (-0.5)\n            end\n        end\n        set [x2 v] to ((X2) * (0.91))\n        change x by (X2)\n        change y by (-1)\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 y by (1)\n                            if <touching (道 v)?> then\n                                change y by (1)\n                                if <touching (道 v)?> then\n                                    change x by ((0) - (X2))\n                                    change y by (-5)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change [y2 v] by (-1)\n        change y by (Y2)\n        if <touching (道 v)?> then\n            地面\n            set [y2 v] to [0]\n        end\n        change y by (-2)\n        if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n            if <touching (道 v)?> then\n                set [y2 v] to [9]\n            end\n        end\n        change y by (1)\n        if <[235] < (x position)> then\n            go to x: (-200) y: (-91)\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n            broadcast (next v)\n        end\n        if <touching (棘 v)?> then\n            if <([costume # v] of [地面 v]) = [7]> then\n                go to x: (-200) y: (150)\n            else\n                go to x: (-200) y: (0)\n            end\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n        end\n        if <(y position) < [-180]> then\n            go to x: (-200) y: (0)\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n        end\n        switch costume to (1 v)\n    end\nend\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\n\ndefine 地面\nset [着地 v] to [0]\nif <[0] < (Y2)> then\n    repeat until <not <touching (地面 v)?>>\n        change y by (-1)\n        change [着地 v] by (1)\n        if <[300] < (着地)> then\n            go to x: (-200) y: (0)\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n        end\n    end\nelse\n    repeat until <not <touching (道 v)?>>\n        change y by (1)\n        change [着地 v] by (1)\n        if <[300] < (着地)> then\n            go to x: (-200) y: (0)\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n        end\n    end\nend\n\nwhen flag clicked\n\nwhen flag clicked\nforever\n    if <(x position) < [-235]> then\n        wait (1) seconds\n        if <(x position) < [-235]> then\n            go to x: (200) y: (0)\n            set [x2 v] to [0]\n            set [y2 v] to [0]\n            set [前 v] to [0]\n            broadcast (前 v)\n        end\n    end\nend\n\nwhen I receive [オンライン v]\nforever\n    say (username)\nend\n\nwhen I receive [game start v]\nhide\n\nwhen [timer v] > (0)\nset [ghost v] effect to (100)\n\n@さむね\n\nwhen flag clicked\nhide\n\n@innpoduta-\n\nwhen I receive [game start v]\nforever\n    set rotation style [left-right v]\n    if <([costume # v] of [道 v]) = [2]> then\n        repeat (25)\n            change x by (((99) - (x position)) / (4))\n        end\n        point in direction (-90)\n        wait (1) seconds\n        repeat (25)\n            change x by (((209) - (x position)) / (4))\n        end\n        point in direction (90)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nhide\ngo to x: (209) y: (-101)\n\nwhen I receive [game start v]\nforever\n    set rotation style [left-right v]\n    if <([costume # v] of [道 v]) = [2]> then\n        show\n    else\n        hide\n    end\nend\n\nshow\n\n@innpoduta-2\n\nwhen I receive [game start v]\nforever\n    set rotation style [left-right v]\n    if <([costume # v] of [道 v]) = [7]> then\n        repeat (100)\n            change x by (((99) - (x position)) / (10))\n        end\n        point in direction (-90)\n        wait (1) seconds\n        repeat (100)\n            change x by (((209) - (x position)) / (10))\n        end\n        point in direction (90)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nhide\ngo to x: (209) y: (-101)\n\nwhen I receive [game start v]\nforever\n    set rotation style [left-right v]\n    if <([costume # v] of [道 v]) = [7]> then\n        show\n    else\n        hide\n    end\nend\n\nshow\n\n