neon lights 100%pen MMO platformer
@Stage\n\nwhen flag clicked\ndelete all of [x1 v]\ndelete all of [x2 v]\ndelete all of [y1 v]\ndelete all of [y2 v]\ndelete all of [color v]\nadd [200] to [x1 v]\nadd [-200] to [x2 v]\nadd [-100] to [y1 v]\nadd [0] to [y2 v]\nadd [1] to [color v]\nadd [-160] to [x1 v]\nadd [-180] to [x2 v]\nadd [-140] to [y1 v]\nadd [-120] to [y2 v]\nadd [3] to [color v]\nadd [-200] to [x1 v]\nadd [-250] to [x2 v]\nadd [-300] to [y1 v]\nadd [0] to [y2 v]\nadd [1] to [color v]\nadd [-550] to [x1 v]\nadd [-600] to [x2 v]\nadd [-300] to [y1 v]\nadd [0] to [y2 v]\nadd [1] to [color v]\nadd [-600] to [x1 v]\nadd [-800] to [x2 v]\nadd [-50] to [y1 v]\nadd [0] to [y2 v]\nadd [1] to [color v]\nadd [-950] to [x1 v]\nadd [-1000] to [x2 v]\nadd [-50] to [y1 v]\nadd [0] to [y2 v]\nadd [3] to [color v]\nadd [-1100] to [x1 v]\nadd [-1200] to [x2 v]\nadd [-325] to [y1 v]\nadd [-300] to [y2 v]\nadd [1] to [color v]\nadd [-1500] to [x1 v]\nadd [-1600] to [x2 v]\nadd [-325] to [y1 v]\nadd [-300] to [y2 v]\nadd [1] to [color v]\nadd [-1600] to [x1 v]\nadd [-1625] to [x2 v]\nadd [-325] to [y1 v]\nadd [-150] to [y2 v]\nadd [1] to [color v]\nadd [-1600] to [x1 v]\nadd [-1800] to [x2 v]\nadd [-150] to [y1 v]\nadd [-125] to [y2 v]\nadd [1] to [color v]\nadd [-2100] to [x1 v]\nadd [-2700] to [x2 v]\nadd [-150] to [y1 v]\nadd [-125] to [y2 v]\nadd [1] to [color v]\nadd [-2200] to [x1 v]\nadd [-2225] to [x2 v]\nadd [-230] to [y1 v]\nadd [-150] to [y2 v]\nadd [2] to [color v]\nadd [-2350] to [x1 v]\nadd [-2375] to [x2 v]\nadd [-240] to [y1 v]\nadd [-150] to [y2 v]\nadd [2] to [color v]\nadd [-2500] to [x1 v]\nadd [-2525] to [x2 v]\nadd [-249] to [y1 v]\nadd [-150] to [y2 v]\nadd [2] to [color v]\nadd [-2700] to [x1 v]\nadd [-2725] to [x2 v]\nadd [-220] to [y1 v]\nadd [-125] to [y2 v]\nadd [1] to [color v]\nadd [-2700] to [x1 v]\nadd [-2725] to [x2 v]\nadd [-500] to [y1 v]\nadd [-290] to [y2 v]\nadd [1] to [color v]\nadd [-2725] to [x1 v]\nadd [-2900] to [x2 v]\nadd [-220] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-2300] to [x1 v]\nadd [-2800] to [x2 v]\nadd [-500] to [y1 v]\nadd [-475] to [y2 v]\nadd [1] to [color v]\nadd [-2900] to [x1 v]\nadd [-3000] to [x2 v]\nadd [-275] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-3000] to [x1 v]\nadd [-3100] to [x2 v]\nadd [-325] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-3100] to [x1 v]\nadd [-3200] to [x2 v]\nadd [-375] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-3200] to [x1 v]\nadd [-3500] to [x2 v]\nadd [-425] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-3475] to [x1 v]\nadd [-3500] to [x2 v]\nadd [-1000] to [y1 v]\nadd [-425] to [y2 v]\nadd [1] to [color v]\nadd [-3375] to [x1 v]\nadd [-3400] to [x2 v]\nadd [-1200] to [y1 v]\nadd [-500] to [y2 v]\nadd [1] to [color v]\nadd [-3200] to [x1 v]\nadd [-4100] to [x2 v]\nadd [-1200] to [y1 v]\nadd [-1175] to [y2 v]\nadd [1] to [color v]\nadd [-3500] to [x1 v]\nadd [-4000] to [x2 v]\nadd [-1000] to [y1 v]\nadd [-975] to [y2 v]\nadd [1] to [color v]\nadd [-4075] to [x1 v]\nadd [-4100] to [x2 v]\nadd [-1175] to [y1 v]\nadd [-300] to [y2 v]\nadd [1] to [color v]\nadd [-3975] to [x1 v]\nadd [-4000] to [x2 v]\nadd [-975] to [y1 v]\nadd [-200] to [y2 v]\nadd [1] to [color v]\nadd [-3975] to [x1 v]\nadd [-4500] to [x2 v]\nadd [-200] to [y1 v]\nadd [-175] to [y2 v]\nadd [1] to [color v]\nadd [-3675] to [x1 v]\nadd [-3700] to [x2 v]\nadd [-1095] to [y1 v]\nadd [-1000] to [y2 v]\nadd [2] to [color v]\nadd [-3825] to [x1 v]\nadd [-3850] to [x2 v]\nadd [-1175] to [y1 v]\nadd [-1060] to [y2 v]\nadd [2] to [color v]\nadd [-3975] to [x1 v]\nadd [-4000] to [x2 v]\nadd [-1095] to [y1 v]\nadd [-1000] to [y2 v]\nadd [2] to [color v]\nadd [-4325] to [x1 v]\nadd [-4350] to [x2 v]\nadd [-295] to [y1 v]\nadd [-200] to [y2 v]\nadd [2] to [color v]\nadd [-4575] to [x1 v]\nadd [-4600] to [x2 v]\nadd [-200] to [y1 v]\nadd [-175] to [y2 v]\nadd [3] to [color v]\nadd [-4625] to [x1 v]\nadd [-5000] to [x2 v]\nadd [-475] to [y1 v]\nadd [-450] to [y2 v]\nadd [1] to [color v]\nadd [-5050] to [x1 v]\nadd [-5075] to [x2 v]\nadd [-475] to [y1 v]\nadd [-450] to [y2 v]\nadd [3] to [color v]\nadd [-5100] to [x1 v]\nadd [-5300] to [x2 v]\nadd [-750] to [y1 v]\nadd [-725] to [y2 v]\nadd [1] to [color v]\nadd [-5350] to [x1 v]\nadd [-5375] to [x2 v]\nadd [-750] to [y1 v]\nadd [-725] to [y2 v]\nadd [3] to [color v]\nadd [-6000] to [x1 v]\nadd [-5400] to [x2 v]\nadd [-1050] to [y1 v]\nadd [-1025] to [y2 v]\nadd [1] to [color v]\nadd [-5425] to [x1 v]\nadd [-5450] to [x2 v]\nadd [-1135] to [y1 v]\nadd [-1050] to [y2 v]\nadd [2] to [color v]\nadd [-5700] to [x1 v]\nadd [-6000] to [x2 v]\nadd [-1175] to [y1 v]\nadd [-1475] to [y2 v]\nadd [4] to [color v]\n\nwhen flag clicked\nif <<(username) = [saeto]> or <(username) = [ei01]>> then\n    set [user v] to (join (username) (join [ #] (join (join (pick random (0) to (9)) (pick random (0) to (9))) (pick random (0) to (9)))))\nelse\n    set [user v] to (username)\nend\n\nwhen flag clicked\nforever\n    play sound [Goodbye v] until done\nend\n\nwhen flag clicked\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [チェックポイント判定 v]\nadd [0] to [チェックポイントx v]\nadd [-150] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-575] to [チェックポイントx v]\nadd [-315] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-2125] to [チェックポイントx v]\nadd [-160] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-2825] to [チェックポイントx v]\nadd [-235] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-3550] to [チェックポイントx v]\nadd [-1010] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-4200] to [チェックポイントx v]\nadd [-210] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\nadd [-5200] to [チェックポイントx v]\nadd [-760] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\n\nwhen I receive [メッセージ1 v]\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [チェックポイント判定 v]\nadd [0] to [チェックポイントx v]\nadd [-150] to [チェックポイントy v]\nadd [0] to [チェックポイント判定 v]\ndelete all of [x1 v]\ndelete all of [x2 v]\ndelete all of [y1 v]\ndelete all of [y2 v]\ndelete all of [color v]\nadd [200] to [x1 v]\nadd [-200] to [x2 v]\nadd [-100] to [y1 v]\nadd [0] to [y2 v]\nadd [1] to [color v]\n\nwhen flag clicked\nwait () seconds\nif <key (t v) pressed?> then\n    チート\nend\n\ndefine チート\nset [色々変数 v] to [1]\nrepeat (9)\n    if <key ((色々変数) v) pressed?> then\n        set [チェックポイント v] to ((色々変数) - (1))\n        set [x v] to (item (色々変数) of [チェックポイントx v])\n        set [y v] to ((item (色々変数) of [チェックポイントy v]) - (50))\n    end\n    change [色々変数 v] by (1)\nend\n\n@真オンラインシステム\n\ndefine (文字) を数値化する\nset [色々変数 v] to [0]\nset [answer v] to []\nrepeat (length of (文字))\n    change [色々変数 v] by (1)\n    if <[文字リスト v] contains (letter (色々変数) of (文字))?> then\n        set [answer v] to (join (Answer) (join (item # of (letter (色々変数) of (文字)) in [文字リスト v]) [0]))\n    else\n        set [answer v] to [Error]\n        stop [this script v]\n    end\nend\n\ndefine (数値) を復元\nset [色々変数 v] to [0]\nset [answer v] to []\nrepeat until <(length of (数値)) < ((色々変数) + (1))>\n    set [復元用変数 v] to []\n    repeat until <(letter ((色々変数) + (1)) of (数値)) = [0]>\n        change [色々変数 v] by (1)\n        set [復元用変数 v] to (join (復元用変数) (letter (色々変数) of (数値)))\n        if <[9999] < (色々変数)> then\n            set [answer v] to [Error]\n            stop [this script v]\n        end\n    end\n    set [answer v] to (join (Answer) (item (復元用変数) of [文字リスト v]))\n    change [色々変数 v] by (1)\nend\n\ndefine (数値) を保存する\nset [色々変数 v] to (pick random (1) to (10))\nif <(色々変数) = [1]> then\n    set [☁ 1 v] to (数値)\nend\nif <(色々変数) = [2]> then\n    set [☁ 2 v] to (数値)\nend\nif <(色々変数) = [3]> then\n    set [☁ 3 v] to (数値)\nend\nif <(色々変数) = [4]> then\n    set [☁ 4 v] to (数値)\nend\nif <(色々変数) = [5]> then\n    set [☁ 5 v] to (数値)\nend\nif <(色々変数) = [6]> then\n    set [☁ 6 v] to (数値)\nend\nif <(色々変数) = [7]> then\n    set [☁ 7 v] to (数値)\nend\nif <(色々変数) = [8]> then\n    set [☁ 8 v] to (数値)\nend\nif <(色々変数) = [9]> then\n    set [☁ 9 v] to (数値)\nend\nif <(色々変数) = [10]> then\n    set [☁ 10 v] to (数値)\nend\n\nwhen flag clicked\nrepeat (5)\n    データ管理\n    delete all of [x v]\n    delete all of [y v]\n    delete all of [px v]\n    delete all of [py v]\n    delete all of [時 v]\n    delete all of [名 v]\n    wait (0.2) seconds\nend\nforever\n    if <<(spectate?) = [0]> and <(GOAL?) = [0]>> then\n        (user) を数値化する\n        (join ((round ((days since 2000) * (1000000))) - (7900000000)) (join (round ((x) + (7000))) (join (round ((y) + (7000))) (Answer)))) を保存する\n        wait (pick random (0) to (0.02)) seconds\n    end\nend\n\ndefine (数値) を読み込む\nset [色々変数 v] to [17]\nset [answer v] to []\nrepeat ((length of (数値)) - (17))\n    change [色々変数 v] by (1)\n    set [answer v] to (join (Answer) (letter (色々変数) of (数値)))\nend\n(Answer) を復元\nif <[名 v] contains (Answer)?> then\n    set [名仮保存用 v] to (Answer)\n    set [色々変数 v] to [0]\n    set [answer v] to []\n    repeat (9)\n        change [色々変数 v] by (1)\n        set [answer v] to (join (Answer) (letter (色々変数) of (数値)))\n    end\n    if <(item (item # of (名仮保存用) in [名 v]) of [時 v]) < (Answer)> then\n        replace item (item # of (名仮保存用) in [名 v]) of [時 v] with (Answer)\n        replace item (item # of (名仮保存用) in [名 v]) of [x v] with ((join (letter (10) of (数値)) (join (letter (11) of (数値)) (join (letter (12) of (数値)) (letter (13) of (数値))))) - (7000))\n        replace item (item # of (名仮保存用) in [名 v]) of [y v] with ((join (letter (14) of (数値)) (join (letter (15) of (数値)) (join (letter (16) of (数値)) (letter (17) of (数値))))) - (7000))\n    end\nelse\n    set [色々変数 v] to [0]\n    set [answer v] to []\n    repeat (9)\n        change [色々変数 v] by (1)\n        set [answer v] to (join (Answer) (letter (色々変数) of (数値)))\n    end\n    add (Answer) to [時 v]\n    add ((join (letter (10) of (数値)) (join (letter (11) of (数値)) (join (letter (12) of (数値)) (letter (13) of (数値))))) - (7000)) to [x v]\n    add ((join (letter (14) of (数値)) (join (letter (15) of (数値)) (join (letter (16) of (数値)) (letter (17) of (数値))))) - (7000)) to [y v]\n    add ((join (letter (10) of (数値)) (join (letter (11) of (数値)) (join (letter (12) of (数値)) (letter (13) of (数値))))) - (7000)) to [px v]\n    add ((join (letter (14) of (数値)) (join (letter (15) of (数値)) (join (letter (16) of (数値)) (letter (17) of (数値))))) - (7000)) to [py v]\n    set [answer v] to []\n    set [色々変数 v] to [17]\n    repeat ((length of (数値)) - (17))\n        change [色々変数 v] by (1)\n        set [answer v] to (join (Answer) (letter (色々変数) of (数値)))\n    end\n    (Answer) を復元\n    add (Answer) to [名 v]\nend\n\nreplace item (item # of (名仮保存用) in [名 v]) of [px v] with ((item (item # of (名仮保存用) in [名 v]) of [px v]) + (((item (item # of (名仮保存用) in [名 v]) of [x v]) - (item (item # of (名仮保存用) in [名 v]) of [px v])) / (3)))\nreplace item (item # of (名仮保存用) in [名 v]) of [py v] with ((item (item # of (名仮保存用) in [名 v]) of [py v]) + (((item (item # of (名仮保存用) in [名 v]) of [y v]) - (item (item # of (名仮保存用) in [名 v]) of [py v])) / (3)))\n\nwhen flag clicked\nrepeat (5)\n    データ管理\n    delete all of [x v]\n    delete all of [y v]\n    delete all of [px v]\n    delete all of [py v]\n    delete all of [時 v]\n    delete all of [名 v]\n    wait (0.2) seconds\nend\nset [削除用カウント v] to [30]\nforever\n    データ管理\nend\n\ndefine データ管理\nif <[29] < (削除用カウント)> then\n    delete all of [x v]\n    delete all of [y v]\n    delete all of [px v]\n    delete all of [py v]\n    delete all of [時 v]\n    delete all of [名 v]\n    set [削除用カウント v] to [0]\nend\n(☁ 1) を読み込む\n(☁ 2) を読み込む\n(☁ 3) を読み込む\n(☁ 4) を読み込む\n(☁ 5) を読み込む\n(☁ 6) を読み込む\n(☁ 7) を読み込む\n(☁ 8) を読み込む\n(☁ 9) を読み込む\n(☁ 10) を読み込む\nset [色々変数 v] to [1]\nrepeat (length of [時 v])\n    if <([abs v] of (((round ((days since 2000) * (1000000))) - (7900000000)) - (item (色々変数) of [時 v])) ) > [1000]> then\n        delete (色々変数) of [x v]\n        delete (色々変数) of [y v]\n        delete (色々変数) of [時 v]\n        delete (色々変数) of [名 v]\n        delete (色々変数) of [px v]\n        delete (色々変数) of [py v]\n    end\n    change [色々変数 v] by (1)\nend\nchange [削除用カウント v] by (1)\n\nwhen flag clicked\nrepeat (2)\n    set [☁ 1 v] to [0]\n    set [☁ 2 v] to [0]\n    set [☁ 3 v] to [0]\n    set [☁ 4 v] to [0]\n    set [☁ 5 v] to [0]\n    set [☁ 6 v] to [0]\n    set [☁ 7 v] to [0]\n    set [☁ 8 v] to [0]\n    set [☁ 9 v] to [0]\n    set [☁ 10 v] to [0]\n    wait (0.4) seconds\nend\n\nwhen I receive [spectate v]\nrepeat (5)\n    データ管理\n    delete all of [x v]\n    delete all of [y v]\n    delete all of [px v]\n    delete all of [py v]\n    delete all of [時 v]\n    delete all of [名 v]\n    wait (0.2) seconds\nend\nset [削除用カウント v] to [30]\nforever\n    データ管理\nend\n\n@スプライト1\n\ndefine 文字　x (x) y (y) size (size) 文字 (文字) 間隔 (間隔) color (color)\nset pen color to (color)\nset pen size to ((size) / (10))\nset [x v] to (x)\nset [y v] to (y)\nset [i v] to [1]\ngo to x: (X) y: (Y)\nrepeat (length of (文字))\n    set [i v] to [1]\n    repeat ((length of (item (item # of (letter (I) of (文字)) in [文字 v]) of [data v])) / (4))\n        go to x: ((X) + (((letter (i) of (item (item # of (letter (I) of (文字)) in [文字 v]) of [data v])) - (3)) * ((3) * ((size) / (7))))) y: ((Y) + (((letter ((i) + (1)) of (item (item # of (letter (I) of (文字)) in [文字 v]) of [data v])) - (3)) * ((3) * ((size) / (7)))))\n        pen down\n        go to x: ((X) + (((letter ((i) + (2)) of (item (item # of (letter (I) of (文字)) in [文字 v]) of [data v])) - (3)) * ((3) * ((size) / (7))))) y: ((Y) + (((letter ((i) + (3)) of (item (item # of (letter (I) of (文字)) in [文字 v]) of [data v])) - (3)) * ((3) * ((size) / (7)))))\n        pen up\n        change [i v] by (4)\n    end\n    change [i v] by (1)\n    change [x v] by (間隔)\nend\n\ndefine ボタン描画 (x) (y) (塗りつぶし?) (押す前の色) (押した時の色) (大きさ) (押した時の戻り値) (キー)\nif <<key ((キー) v) pressed?> or <<mouse down?> and <<(mouse x) > ((x) + ((大きさ) / (-2)))> and <<(mouse x) < ((x) + ((大きさ) / (2)))> and <<(mouse y) > ((y) + ((大きさ) / (-2)))> and <(mouse y) < ((y) + ((大きさ) / (2)))>>>>>> then\n    set pen color to (押した時の色)\n    set [押された v] to (join (押された) (押した時の戻り値))\n    set [ボタン v] to [1]\nelse\n    set pen color to (押す前の色)\nend\ngo to x: (x) y: (y)\nset pen (transparency v) to (50)\nif <(塗りつぶし?) = [1]> then\n    set pen size to (大きさ)\n    pen down\n    pen up\nend\nset pen size to ((大きさ) / (3.3))\nchange x by ((大きさ) / (-2))\nchange y by ((大きさ) / (2))\npen down\nchange x by (大きさ)\nchange y by ((大きさ) * (-1))\nchange x by ((大きさ) * (-1))\nchange y by (大きさ)\npen up\nif <(キー) = [up arrow]> then\n    文字　x (x) y (y) size (round ((大きさ) / (-2.25))) 文字 [↓] 間隔 ((round ((大きさ) / (-2.25))) * (2.2)) color [#ffffff]\nend\nif <(キー) = [left arrow]> then\n    文字　x (x) y (y) size (round ((大きさ) / (-2.25))) 文字 [→] 間隔 ((round ((大きさ) / (-2.25))) * (2.2)) color [#ffffff]\nend\nif <(キー) = [right arrow]> then\n    文字　x (x) y (y) size (round ((大きさ) / (-2.25))) 文字 [←] 間隔 ((round ((大きさ) / (-2.25))) * (2.2)) color [#ffffff]\nend\nif <(押した時の戻り値) = [→↑]> then\n    文字　x (x) y (y) size (round ((大きさ) / (-2.25))) 文字 [↙] 間隔 ((round ((大きさ) / (-2.25))) * (2.2)) color [#ffffff]\nend\nif <(押した時の戻り値) = [←↑]> then\n    文字　x (x) y (y) size (round ((大きさ) / (-2.25))) 文字 [↘] 間隔 ((round ((大きさ) / (-2.25))) * (2.2)) color [#ffffff]\nend\nif <(押した時の戻り値) = [l]> then\n    set pen color to (#ffffff)\n    set pen size to (1)\n    go to x: (190) y: (-135)\n    pen down\n    go to x: (190) y: (-165)\n    go to x: (215) y: (-165)\n    pen up\nend\n\nwhen flag clicked\ndelete all of [当たり判定 v]\nset [spectate? v] to [0]\nwait (0) seconds\nset [x v] to [0]\nset [y v] to [-150]\nset [mx v] to [0]\nset [my v] to [-150]\nset [xs v] to [0]\nset [ys v] to [0]\nset [チェックポイント v] to [1]\nset [goal? v] to [0]\ngo to x: (0) y: (0)\nrepeat until <[当たり判定 v] contains [4]?>\n    erase all\n    描画\n    オンライン\n    動作\n    change [mx v] by (((x) - (mx)) / (7))\n    change [my v] by (((y) - (my)) / (7))\n    文字　x [-220] y [160] size [10] 文字 (join [time:] (time)) 間隔 [20] color [#ffffff]\nend\nset [目x v] to [0]\nset [目y v] to [0]\nset [カウント v] to [100]\nrepeat until <[5] > (([abs v] of ((((item (length of [x1 v]) of [x1 v]) + (item (length of [x1 v]) of [x2 v])) / (2)) - (x)) ) + ([abs v] of ((((item (length of [x1 v]) of [y1 v]) + (item (length of [x1 v]) of [y2 v])) / (2)) - (y)) ))>\n    erase all\n    描画\n    オンライン\n    change [x v] by (((((item (length of [x1 v]) of [x1 v]) + (item (length of [x1 v]) of [x2 v])) / (2)) - (x)) / (15))\n    change [y v] by (((((item (length of [x1 v]) of [y1 v]) + (item (length of [x1 v]) of [y2 v])) / (2)) - (y)) / (15))\n    change [mx v] by (((x) - (mx)) / (7))\n    change [my v] by (((y) - (my)) / (7))\n    文字　x [-220] y [160] size [10] 文字 (join [time:] (time)) 間隔 [20] color [#ffffff]\n    set pen size to (10000)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    set pen (transparency v) to (カウント)\n    pen down\n    pen up\n    change [カウント v] by (-2)\nend\nrepeat (30)\n    描画\n    オンライン\n    change [mx v] by (((x) - (mx)) / (7))\n    change [my v] by (((y) - (my)) / (7))\n    文字　x [-220] y [160] size [10] 文字 (join [time:] (time)) 間隔 [20] color [#000000]\n    set pen size to (10000)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    set pen (transparency v) to (カウント)\n    pen down\n    pen up\nend\nbroadcast (メッセージ1 v)\nset [x v] to [0]\nset [y v] to [-150]\nset [xs v] to [0]\nset [ys v] to [0]\nset [チェックポイント v] to [1]\nset [goal? v] to [1]\nforever\n    erase all\n    描画\n    文字　x (((mx) - (0)) - (((length of (join [time:] (time))) / (2)) * (36))) y ((my) - (-200)) size [18] 文字 (join [time:] (time)) 間隔 [36] color [#ffffff]\n    数値復元 (なんかの変数)\n    文字　x (((mx) - (0)) - (230)) y ((my) - (-300)) size [9] 文字 (join [password:] (ぱすわーど)) 間隔 [18] color [#ffffff]\n    set [ぱすわーど v] to [0]\n    動作\n    change [mx v] by (((x) - (mx)) / (7))\n    change [my v] by (((y) - (my)) / (7))\n    set pen size to (10000)\n    set pen color to (#000000)\n    go to x: (0) y: (0)\n    set pen (transparency v) to (カウント)\n    pen down\n    pen up\n    change [カウント v] by (3)\nend\n\ndefine 当たり判定 (自機サイズ)\ndelete all of [当たり判定 v]\nset [i v] to [1]\nrepeat (length of [color v])\n    if <<([abs v] of ((x) - (item (i) of [x1 v])) ) < [240]> or <<([abs v] of ((x) - (item (i) of [x2 v])) ) < [240]> or <<([abs v] of ((y) - (item (i) of [y1 v])) ) < [180]> or <([abs v] of ((y) - (item (i) of [y2 v])) ) < [180]>>>> then\n        if <<(join (<<(item (i) of [x1 v]) < ((x) + ((自機サイズ) / (2)))> and <((x) - ((自機サイズ) / (2))) < (item (i) of [x2 v])>> - ()) (<<<([abs v] of ((y) - (item (i) of [y2 v])) ) < ((自機サイズ) / (2))> or <([abs v] of ((y) - (item (i) of [y1 v])) ) < ((自機サイズ) / (2))>> and <<(item (i) of [y1 v]) < ((y) + ((自機サイズ) / (2)))> and <((y) - ((自機サイズ) / (2))) < (item (i) of [y2 v])>>> + ())) = [11]> and <(item (i) of [x1 v]) < (item (i) of [x2 v])>> then\n            add (item (i) of [color v]) to [当たり判定 v]\n        end\n        if <<(join (<<(item (i) of [x2 v]) < ((x) + ((自機サイズ) / (2)))> and <((x) - ((自機サイズ) / (2))) < (item (i) of [x1 v])>> - ()) (<<<([abs v] of ((y) - (item (i) of [y2 v])) ) < ((自機サイズ) / (2))> or <([abs v] of ((y) - (item (i) of [y1 v])) ) < ((自機サイズ) / (2))>> or <<(item (i) of [y1 v]) < ((y) + ((自機サイズ) / (2)))> and <((y) - ((自機サイズ) / (2))) < (item (i) of [y2 v])>>> + ())) = [11]> and <(item (i) of [x2 v]) < (item (i) of [x1 v])>> then\n            add (item (i) of [color v]) to [当たり判定 v]\n        end\n    end\n    change [i v] by (1)\nend\n\ndefine 描画\nset pen color to (#000000)\nset pen size to (10000)\ngo to x: (0) y: (0)\npen down\npen up\ngo to x: ((0) - ((x) - (mx))) y: ((0) - ((y) - (my)))\nset pen color to (#eeff00)\nset pen size to (200)\nset pen (transparency v) to ((<(lag) = [0]> * (100)) + ((<(lag) = [1]> * (90)) + (<(lag) = [2]> * (85))))\nrepeat ((30) / ((lag) + (1)))\n    pen down\n    pen up\n    change pen (transparency v) by (((lag) + (1)) * (-1))\n    change pen size by ((-225) / ((30) / ((lag) + (1))))\nend\nset [i v] to [1]\nrepeat (length of [color v])\n    if <<([abs v] of ((mx) - (item (i) of [x1 v])) ) < [240]> or <<([abs v] of ((mx) - (item (i) of [x2 v])) ) < [240]> or <<([abs v] of ((my) - (item (i) of [y1 v])) ) < [180]> or <([abs v] of ((my) - (item (i) of [y2 v])) ) < [180]>>>> then\n        if <(item (i) of [color v]) = [1]> then\n            set pen color to (#00a9ff)\n        end\n        if <(item (i) of [color v]) = [2]> then\n            set pen color to (#ff0000)\n        end\n        if <(item (i) of [color v]) = [3]> then\n            set pen color to (#0015ff)\n        end\n        if <(item (i) of [color v]) = [4]> then\n            set pen color to (#2aff00)\n        end\n        set pen size to ((30) - (<(lag) = [2]> * (10)))\n        set pen (transparency v) to ((<(lag) = [0]> * (100)) + (<(lag) = [1]> * (60)))\n        repeat (((<(lag) = [0]> * (4)) + (<(lag) = [1]> * (2))) + (1))\n            go to x: ((mx) - (item (i) of [x1 v])) y: ((my) - (item (i) of [y1 v]))\n            pen down\n            set y to ((my) - (item (i) of [y2 v]))\n            set x to ((mx) - (item (i) of [x2 v]))\n            set y to ((my) - (item (i) of [y1 v]))\n            set x to ((mx) - (item (i) of [x1 v]))\n            pen up\n            change pen (transparency v) by ((<(lag) = [0]> * (-20)) + (<(lag) = [1]> * (-40)))\n            change pen size by ((<(lag) = [0]> * (-4)) + (<(lag) = [1]> * (-8)))\n        end\n    end\n    change [i v] by (1)\nend\nset [i v] to [2]\nrepeat ((length of [チェックポイントx v]) - (1))\n    set pen color to (#ff9400)\n    set pen size to (7)\n    go to x: (((mx) - (item (i) of [チェックポイントx v])) + (-25)) y: (((my) - (item (i) of [チェックポイントy v])) + (-2))\n    pen down\n    go to x: (((mx) - (item (i) of [チェックポイントx v])) + (25)) y: (((my) - (item (i) of [チェックポイントy v])) + (-2))\n    go to x: (((mx) - (item (i) of [チェックポイントx v])) + (0)) y: (((my) - (item (i) of [チェックポイントy v])) + (-2))\n    go to x: (((mx) - (item (i) of [チェックポイントx v])) + (0)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n    pen up\n    if <(item (i) of [チェックポイント判定 v]) = [1]> then\n        set pen color to (#2aff00)\n        set pen size to (5)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        pen down\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (40)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (20))\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        pen up\n        set pen size to (25)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (14)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        pen down\n        pen up\n        set pen size to (10)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (30)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        pen down\n        pen up\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (0)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        set pen size to (40)\n        set pen (transparency v) to (100)\n        repeat (<(lag) = [0]> * (10))\n            pen down\n            pen up\n            change pen (transparency v) by (-10)\n            change pen size by (-5)\n        end\n    else\n        set pen color to (#ff0000)\n        set pen size to (5)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        pen down\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (40)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (20))\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (4)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        pen up\n        set pen size to (25)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (14)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        pen down\n        pen up\n        set pen size to (10)\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (30)) y: (((my) - (item (i) of [チェックポイントy v])) + (35))\n        pen down\n        pen up\n        go to x: (((mx) - (item (i) of [チェックポイントx v])) + (0)) y: (((my) - (item (i) of [チェックポイントy v])) + (50))\n        set pen size to (40)\n        set pen (transparency v) to (100)\n        repeat (<(lag) = [0]> * (10))\n            pen down\n            pen up\n            change pen (transparency v) by (-10)\n            change pen size by (-5)\n        end\n        if <<[50] > ([abs v] of ((x) - (item (i) of [チェックポイントx v])) )> and <[70] > ([abs v] of ((y) - (item (i) of [チェックポイントy v])) )>> then\n            repeat (pick random (10) to (20))\n                add ((item (i) of [チェックポイントx v]) + (pick random (-5) to (5))) to [光x v]\n                add ((item (i) of [チェックポイントy v]) + (pick random (-45) to (-55))) to [光y v]\n                add (pick random (0) to (360)) to [光向き v]\n                add [10] to [光大きさ v]\n                add [#00ff00] to [光色 v]\n                add [0] to [光tick v]\n            end\n            replace item (i) of [チェックポイント判定 v] with [1]\n            change [チェックポイント v] by (1)\n        end\n    end\n    change [i v] by (1)\nend\nif <(pick random (1) to (4)) = [1]> then\n    add (pick random (0) to (-6000)) to [光x v]\n    add (pick random (0) to (-1750)) to [光y v]\n    add (pick random (0) to (360)) to [光向き v]\n    add [30] to [光大きさ v]\n    add [#ffff00] to [光色 v]\n    add [0] to [光tick v]\nend\nset [i v] to [1]\nrepeat (length of [光x v])\n    go to x: ((mx) - (item (i) of [光x v])) y: ((my) - (item (i) of [光y v]))\n    if <<[260] > ([abs v] of ((mx) - (item (i) of [光x v])) )> and <[200] > ([abs v] of ((my) - (item (i) of [光y v])) )>> then\n        set pen size to ((item (i) of [光大きさ v]) + ())\n        set pen color to (item (i) of [光色 v])\n        if <(item (i) of [光色 v]) = [#00ff00]> then\n            if <[90] < (item (i) of [光tick v])> then\n                set pen (transparency v) to (100)\n                repeat ((<(lag) = [0]> * (10)) + ((<(lag) = [1]> * (5)) + (<(lag) = [2]> * (3))))\n                    pen down\n                    pen up\n                    change pen (transparency v) by (((190) - (item (i) of [光tick v])) / ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-5)) + (<(lag) = [2]> * (-3)))))\n                    change pen size by ((item (i) of [光大きさ v]) / ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-5)) + (<(lag) = [2]> * (-3)))))\n                end\n            else\n                set pen (transparency v) to (100)\n                repeat ((<(lag) = [0]> * (10)) + ((<(lag) = [1]> * (5)) + (<(lag) = [2]> * (3))))\n                    pen down\n                    pen up\n                    change pen (transparency v) by ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-20)) + (<(lag) = [2]> * (-33))))\n                    change pen size by ((item (i) of [光大きさ v]) / ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-5)) + (<(lag) = [2]> * (-3)))))\n                end\n            end\n        else\n            set pen (transparency v) to (100)\n            repeat ((<(lag) = [0]> * (10)) + ((<(lag) = [1]> * (5)) + (<(lag) = [2]> * (3))))\n                pen down\n                pen up\n                change pen (transparency v) by ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-20)) + (<(lag) = [2]> * (-33))))\n                change pen size by ((item (i) of [光大きさ v]) / ((<(lag) = [0]> * (-10)) + ((<(lag) = [1]> * (-5)) + (<(lag) = [2]> * (-3)))))\n            end\n        end\n    end\n    replace item (i) of [光x v] with ((item (i) of [光x v]) + (([sin v] of (item (i) of [光向き v]) ) * (3)))\n    replace item (i) of [光y v] with ((item (i) of [光y v]) + (([cos v] of (item (i) of [光向き v]) ) * (3)))\n    replace item (i) of [光向き v] with ((item (i) of [光向き v]) + ((pick random (3) to (-3)) * (0.75)))\n    replace item (i) of [光tick v] with ((item (i) of [光tick v]) + (1))\n    if <<<(item (i) of [光色 v]) = [#00ff00]> and <(item (i) of [光tick v]) = [190]>> or <<(pick random (1) to (120)) = [1]> and <<[260] < ([abs v] of ((mx) - (item (i) of [光x v])) )> or <[200] < ([abs v] of ((my) - (item (i) of [光y v])) )>>>> then\n        delete (i) of [光x v]\n        delete (i) of [光y v]\n        delete (i) of [光向き v]\n        delete (i) of [光大きさ v]\n        delete (i) of [光色 v]\n        delete (i) of [光tick v]\n        change [i v] by (-1)\n    end\n    change [i v] by (1)\nend\nif <(spectate?) = [0]> then\n    set pen color to (#bfff00)\n    set pen size to (5)\n    go to x: ((-15) - ((x) - (mx))) y: ((15) - ((y) - (my)))\n    pen down\n    go to x: ((15) - ((x) - (mx))) y: ((15) - ((y) - (my)))\n    go to x: ((15) - ((x) - (mx))) y: ((-15) - ((y) - (my)))\n    go to x: ((-15) - ((x) - (mx))) y: ((-15) - ((y) - (my)))\n    go to x: ((-15) - ((x) - (mx))) y: ((15) - ((y) - (my)))\n    go to x: ((15) - ((x) - (mx))) y: ((15) - ((y) - (my)))\n    pen up\n    set pen size to (35)\n    go to x: ((0) - ((x) - (mx))) y: ((0) - ((y) - (my)))\n    pen down\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (25)\n    go to x: ((0) - ((x) - (mx))) y: ((0) - ((y) - (my)))\n    pen down\n    pen up\n    set pen color to (#000000)\n    set pen size to (15)\n    go to x: ((目x) - ((x) - (mx))) y: ((目y) - ((y) - (my)))\n    pen down\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (5)\n    go to x: ((目x) - ((x) - (mx))) y: ((目y) - ((y) - (my)))\n    pen down\n    pen up\n    set [ボタン v] to [0]\n    set [押された v] to []\n    if <(ボタン表示) = [1]> then\n        ボタン描画 [-150] [-100] [1] [#888888] [#444444] [35] [↑] [up arrow]\n        ボタン描画 [-100] [-150] [1] [#888888] [#444444] [35] [→] [right arrow]\n        ボタン描画 [-200] [-150] [1] [#888888] [#444444] [35] [←] [left arrow]\n        ボタン描画 [-200] [-100] [1] [#888888] [#444444] [35] [←↑] []\n        ボタン描画 [-100] [-100] [1] [#888888] [#444444] [35] [→↑] []\n    end\nend\nif <(ボタン表示) = [1]> then\n    ボタン描画 [200] [-150] [1] [#888888] [#444444] [35] [L] [L]\nend\nif <(lag) = [1]> then\n    文字　x [-230] y [-170] size [5] 文字 [light lag mode:low] 間隔 [12] color [#ffffff]\nend\nif <(lag) = [2]> then\n    文字　x [-230] y [-170] size [5] 文字 [light lag mode:high] 間隔 [12] color [#ffffff]\nend\n\ndefine 動作\nset [xs v] to (((xs) + (( - ) * (-1.5))) * (0.88))\nset [目x v] to (((目x) + (( - ) * (0.75))) * (0.88))\nset [目y v] to (((目y) - (ys)) / (5))\nif <[5] < (目y)> then\n    set [目y v] to [5]\nend\nif <(目y) < [-5]> then\n    set [目y v] to [-5]\nend\nchange [x v] by (xs)\nrepeat (2)\n    当たり判定 [45]\n    if <[当たり判定 v] contains [1]?> then\n        change [y v] by (-3)\n    end\nend\n当たり判定 [45]\nif <[当たり判定 v] contains [1]?> then\n    change [y v] by (6)\n    change [x v] by ((0) - (xs))\n    if  then\n        set [ys v] to [-12]\n        set [xs v] to ((7.5) - ((15) * <(xs) = ([abs v] of (xs) )>))\n    else\n        set [xs v] to [0]\n    end\nend\nchange [y v] by (5)\n当たり判定 [45]\nif <<[当たり判定 v] contains [1]?> and << (押された) contains [↑]?> or >> then\n    set [ys v] to [-15]\nend\nchange [y v] by (-5)\nchange [ys v] by (1)\nchange [y v] by (ys)\n当たり判定 [45]\nif <[当たり判定 v] contains [1]?> then\n    change [y v] by ((ys) * (-1))\n    set [ys v] to [0]\nend\n当たり判定 [45]\nif <<(y) > [500]> or <[当たり判定 v] contains [2]?>> then\n    set [x v] to (item (チェックポイント) of [チェックポイントx v])\n    set [y v] to ((item (チェックポイント) of [チェックポイントy v]) - (20))\n    set [xs v] to [0]\n    set [ys v] to [0]\n    set [目x v] to [0]\n    set [目y v] to [0]\nend\nif <[当たり判定 v] contains [3]?> then\n    set [ys v] to [-25]\nend\n\nwhen flag clicked\ndelete all of [当たり判定 v]\nwait (0) seconds\nset [time v] to [0]\nrepeat until <[当たり判定 v] contains [4]?>\n    change [time v] by (0.033)\n    set [time v] to ((round ((time) * (10000))) / (10000))\nend\n\ndefine online演算　x (x) y (y) 名 (名)\ngo to x: ((mx) - (x)) y: ((my) - (y))\nif <<([abs v] of (x position) ) < [360]> and <([abs v] of (y position) ) < [270]>> then\n    set pen color to (#bfff00)\n    set pen size to (5)\n    change x by (-15)\n    change y by (15)\n    pen down\n    change x by (30)\n    change y by (-30)\n    change x by (-30)\n    change y by (30)\n    pen up\n    change x by (15)\n    change y by (-15)\n    set pen size to (35)\n    pen down\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (25)\n    pen down\n    pen up\n    set pen color to (#000000)\n    set pen size to (15)\n    pen down\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (5)\n    pen down\n    pen up\nend\n文字　x (((mx) - (x)) + (((length of (名)) / (2)) * (-8))) y (((my) - (y)) + (30)) size [4] 文字 (名) 間隔 [8] color [#fff]\n\ndefine オンライン\nset [count v] to [1]\nrepeat (length of [x v])\n    if <not <(item (count) of [名 v]) = (user)>> then\n        online演算　x (item (count) of [px v]) y (item (count) of [py v]) 名 (item (count) of [名 v])\n    end\n    change [count v] by (1)\nend\n\nwhen [d v] key pressed\nif <not <is compiled?>> then\n    show variable [☁ 1 v]\n    show variable [☁ 2 v]\n    show variable [☁ 3 v]\n    show variable [☁ 4 v]\n    show variable [☁ 5 v]\n    show variable [☁ 6 v]\n    show variable [☁ 7 v]\n    show variable [☁ 8 v]\n    show variable [☁ 9 v]\n    show variable [☁ 10 v]\n    show variable [x v]\n    show variable [y v]\n    wait until <not <key (d v) pressed?>>\n    wait until <key (d v) pressed?>\n    hide variable [☁ 1 v]\n    hide variable [☁ 2 v]\n    hide variable [☁ 3 v]\n    hide variable [☁ 4 v]\n    hide variable [☁ 5 v]\n    hide variable [☁ 6 v]\n    hide variable [☁ 7 v]\n    hide variable [☁ 8 v]\n    hide variable [☁ 9 v]\n    hide variable [☁ 10 v]\n    hide variable [x v]\n    hide variable [y v]\nend\n\nwhen flag clicked\ndelete all of [光x v]\ndelete all of [光y v]\ndelete all of [光向き v]\ndelete all of [光大きさ v]\ndelete all of [光色 v]\ndelete all of [光tick v]\nrepeat (75)\n    add (pick random (0) to (-6000)) to [光x v]\n    add (pick random (0) to (-1750)) to [光y v]\n    add (pick random (0) to (360)) to [光向き v]\n    add [30] to [光大きさ v]\n    add [#ffff00] to [光色 v]\n    add [0] to [光tick v]\nend\nset [ボタン表示 v] to [0]\nforever\n    if <mouse down?> then\n        set [ボタン表示 v] to [1]\n    else\n        if <key (any v) pressed?> then\n            set [ボタン表示 v] to [0]\n        end\n    end\nend\n\nwhen [d v] key pressed\nif <is compiled?> then\n    wait until <not <key (d v) pressed?>>\n    repeat until <key (d v) pressed?>\n        文字　x [-235] y [170] size [5] 文字 (☁ 1) 間隔 [11] color [#888888]\n        文字　x [-235] y [160] size [5] 文字 (☁ 2) 間隔 [11] color [#888888]\n        文字　x [-235] y [150] size [5] 文字 (☁ 3) 間隔 [11] color [#888888]\n        文字　x [-235] y [140] size [5] 文字 (☁ 4) 間隔 [11] color [#888888]\n        文字　x [-235] y [130] size [5] 文字 (☁ 5) 間隔 [11] color [#888888]\n        文字　x [-235] y [120] size [5] 文字 (☁ 6) 間隔 [11] color [#888888]\n        文字　x [-235] y [110] size [5] 文字 (☁ 7) 間隔 [11] color [#888888]\n        文字　x [-235] y [100] size [5] 文字 (☁ 8) 間隔 [11] color [#888888]\n        文字　x [-235] y [90] size [5] 文字 (☁ 9) 間隔 [11] color [#888888]\n        文字　x [-235] y [80] size [5] 文字 (☁ 10) 間隔 [11] color [#888888]\n        文字　x [-235] y [-100] size [5] 文字 (join [x:] (x)) 間隔 [11] color [#888888]\n        文字　x [-235] y [-110] size [5] 文字 (join [y:] (y)) 間隔 [11] color [#888888]\n    end\nend\n\nset [lag v] to [0]\n\ndefine 数値復元 (数値)\nset [i v] to [1]\nset [ぱすわーど v] to []\nrepeat ((length of (数値)) / (2))\n    set [ぱすわーど v] to (join (ぱすわーど) (item (item # of (join (letter (i) of (数値)) (letter ((i) + (1)) of (数値))) in [00 v]) of [abc v]))\n    change [i v] by (2)\nend\n\nwhen flag clicked\nforever\n    if <<key (l v) pressed?> or < (押された) contains [L]?>> then\n        if <(lag) = [2]> then\n            set [lag v] to [0]\n        else\n            if <(lag) = [1]> then\n                set [lag v] to [2]\n            else\n                set [lag v] to [1]\n            end\n        end\n        wait until <not <<key (l v) pressed?> or < (押された) contains [L]?>>>\n    end\nend\n\nwhen I receive [spectate v]\nforever\n    if <<key (l v) pressed?> or < (押された) contains [L]?>> then\n        if <(lag) = [2]> then\n            set [lag v] to [0]\n        else\n            if <(lag) = [1]> then\n                set [lag v] to [2]\n            else\n                set [lag v] to [1]\n            end\n        end\n        wait until <not <<key (l v) pressed?> or < (押された) contains [L]?>>>\n    end\nend\n\nwhen I receive [spectate v]\nset [time v] to [0]\n\nwhen I receive [spectate v]\nset [spectate? v] to [0]\nforever\n    erase all\n    set [x v] to (item (spectate player) of [px v])\n    set [y v] to (item (spectate player) of [py v])\n    set [mx v] to (item (spectate player) of [px v])\n    set [my v] to (item (spectate player) of [py v])\n    描画\n    オンライン\n    文字　x [-220] y [160] size [10] 文字 (join [spectate player:] (spectate player)) 間隔 [20] color [#ffffff]\nend\n\nwhen [1 v] key pressed\nstop [other scripts in sprite v]\nbroadcast (spectate v)\n\nwhen I receive [spectate v]\nset [spectate player v] to [1]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <<(押された) = []> and <[90] < (mouse x)>>>> then\n        if <(spectate player) = (length of [px v])> then\n            set [spectate player v] to [1]\n        else\n            change [spectate player v] by (1)\n        end\n        wait until <not <<key (right arrow v) pressed?> or <<mouse down?> and <<(押された) = []> and <[90] < (mouse x)>>>>>\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <<(押された) = []> and <(mouse x) < [-90]>>>> then\n        if <(spectate player) = [1]> then\n            set [spectate player v] to (length of [px v])\n        else\n            change [spectate player v] by (-1)\n        end\n        wait until <not <<key (left arrow v) pressed?> or <<mouse down?> and <<(押された) = []> and <(mouse x) < [-90]>>>>>\n    end\nend\n\n@lights scratch\n\nwhen flag clicked\nset [ghost v] effect to (100)\nforever\n    演算処理\nend\n\ndefine 演算処理\nset [色々変数 v] to [1]\nrepeat (length of [px v])\n    replace item (色々変数) of [px v] with ((item (色々変数) of [px v]) + (((item (色々変数) of [x v]) - (item (色々変数) of [px v])) / (3)))\n    replace item (色々変数) of [py v] with ((item (色々変数) of [py v]) + (((item (色々変数) of [y v]) - (item (色々変数) of [py v])) / (3)))\n    change [色々変数 v] by (1)\nend\n\nwhen I receive [spectate v]\nset [ghost v] effect to (100)\nforever\n    演算処理\nend\n\n
arrow key or tap...move\nL key...fix lag\nvery very hard\nthanks for 50k+ !