September Platformer! セプテンバープラットフォーマー! #All #games 
@Stage\n\nwhen flag clicked\nshow list [thanks for playing! v]\nforever\n    play sound [Radiant v] until done\nend\n\nwhen [timer v] > (0.1)\nshow list [thanks for playing! v]\nswitch backdrop to (背景2 v)\nforever\n    play sound [Radiant v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nforever\n    reset timer\nend\n\nwhen flag clicked\nset [タイム v] to [0]\nrepeat until <(ステージ) = [15]>\n    change [タイム v] by (1)\n    wait (1) seconds\nend\nif <(タイム) < (☁ time - 1)> then\n    set [☁ time - 4 v] to (☁ time - 3)\n    set [☁ name - 4 v] to (☁ name - 3)\n    set [☁ time - 3 v] to (☁ time - 2)\n    set [☁ name - 3 v] to (☁ name - 2)\n    set [☁ time - 2 v] to (☁ time - 1)\n    set [☁ name - 2 v] to (☁ name - 1)\n    set [☁ time - 1 v] to (タイム)\n    set [☁ name - 1 v] to (ユーザー名)\nelse\n    if <(タイム) < (☁ time - 2)> then\n        set [☁ time - 4 v] to (☁ time - 3)\n        set [☁ name - 4 v] to (☁ name - 3)\n        set [☁ time - 3 v] to (☁ time - 2)\n        set [☁ name - 3 v] to (☁ name - 2)\n        set [☁ time - 2 v] to (タイム)\n        set [☁ name - 2 v] to (ユーザー名)\n    else\n        if <(タイム) < (☁ time - 3)> then\n            set [☁ time - 4 v] to (☁ time - 3)\n            set [☁ name - 4 v] to (☁ name - 3)\n            set [☁ time - 3 v] to (タイム)\n            set [☁ name - 3 v] to (ユーザー名)\n        else\n            if <(タイム) < (☁ time - 4)> then\n                set [☁ time - 4 v] to (タイム)\n                set [☁ name - 4 v] to (ユーザー名)\n            end\n        end\n    end\nend\nhide list [thanks for playing! v]\ndelete all of [thanks for playing! v]\n解読 (☁ name - 1)\nadd (join [1st] (join [ ] (join (item (51) of [user name v]) (join [ - ] (join (☁ time - 1) [s]))))) to [thanks for playing! v]\n解読 (☁ name - 2)\nadd (join [2nd] (join [ ] (join (item (51) of [user name v]) (join [ - ] (join (☁ time - 2) [s]))))) to [thanks for playing! v]\n解読 (☁ name - 3)\nadd (join [3rd] (join [ ] (join (item (51) of [user name v]) (join [ - ] (join (☁ time - 3) [s]))))) to [thanks for playing! v]\n解読 (☁ name - 4)\nadd (join [4th] (join [ ] (join (item (51) of [user name v]) (join [ - ] (join (☁ time - 4) [s]))))) to [thanks for playing! v]\nadd [] to [thanks for playing! v]\nadd (join [time：] (join (タイム) [s])) to [thanks for playing! v]\n\nwhen flag clicked\nset [ユーザー名 v] to []\nreplace item (50) of [user name v] with [0]\nrepeat (20)\n    replace item (50) of [user name v] with ((item (50) of [user name v]) + (1))\n    set [ユーザー名 v] to (join (ユーザー名) (item # of (letter (item (50) of [user name v]) of (username)) in [user name v]))\nend\n\ndefine 解読 (txt)\nreplace item (50) of [user name v] with [0]\nreplace item (51) of [user name v] with []\nrepeat (20)\n    replace item (50) of [user name v] with ((item (50) of [user name v]) + (2))\n    replace item (51) of [user name v] with (join (item (51) of [user name v]) (item (join (letter ((item (50) of [user name v]) - (1)) of (txt)) (letter (item (50) of [user name v]) of (txt))) of [user name v]))\nend\n\nwhen flag clicked\nforever\n    if <(turbo) > [200]> then\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nforever\n    wait (1) seconds\n    set [turbo v] to [100]\nend\n\nwhen flag clicked\nset [turbo v] to [100]\nforever\n    change [turbo v] by (1)\nend\n\n@NEXT\n\nwhen I receive [next v]\nstart sound [High Whoosh v]\nswitch costume to (5 v)\nrepeat (5)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\ngo to x: (646) y: (0)\ngo to [front v] layer\nshow\nrepeat until <(round (x position)) = [0]>\n    change x by ((() - (x position)) / (7))\nend\nwait (((10) + (costume [name v])) / (10)) seconds\nrepeat until <(round (x position)) < [-643]>\n    change x by (((-700) - (x position)) / (7))\nend\ndelete this clone\n\n@Moon\n\nwhen flag clicked\nforever\n    set x to ((160) - ((([x position v] of [player v]) + ((486) * (ステージ))) / (25)))\n    go to [back v] layer\n    if <(ステージ) < [14]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@Player\n\nwhen I start as a clone\nif <(ステージ) = [14]> then\n    switch costume to (captain rocket2 v)\n    repeat (6)\n        set y to (-185)\n        change size by (-6)\n        change [ghost v] effect by (10)\n    end\nelse\n    switch costume to (player2 v)\n    repeat (6)\n        change size by (-6)\n        change [ghost v] effect by (10)\n    end\nend\ndelete this clone\n\ndefine X (x) Y (y)\ngo to x: (x) y: (y)\nset [y v] to [0]\nset [x v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\nclear graphic effects\n\ndefine 動作\nchange [y v] by (() - (重力))\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n    change [x v] by (1)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n    change [x v] by (-1)\n    point in direction (-90)\nend\nset [x v] to ((X) * (0.88))\nchange x by (X)\nrepeat (8)\n    if <touching (地面 v)?> then\n        change y by <<touching (地面 v)?> or <touching (地面 v)?>>\n    end\nend\nif <touching (地面 v)?> then\n    change x by (() - (X))\n    change y by (-8)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n        set [y v] to ((11) * (重力))\n        set [x v] to ((5) - ((14) * <[0] < (X)>))\n    end\nend\nchange y by (Y)\nif <touching (地面 v)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n    if <touching (地面 v)?> then\n        set [y v] to [14]\n    end\nend\nchange y by (1)\n\nwhen I receive [next v]\nrepeat (100)\n    if <(ステージ) = [14]> then\n        X [0] Y [0]\n    else\n        X [-200] Y [-10]\n    end\nend\n\ndefine リスポーン\nset [ok v] to [1]\nset rotation style [all around v]\nset [y v] to [10]\nstart sound [Crunch v]\nrepeat (20)\n    change [y v] by (-1)\n    change [ghost v] effect by (5)\n    turn right (8) degrees\n    change y by (Y)\nend\nset [ok v] to [0]\nX [-200] Y [-10]\n\nwhen flag clicked\nswitch costume to (player1 v)\nforever\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nshow\nX [-200] Y [-10]\nset [ok v] to [0]\nforever\n    if <(ステージ) = [14]> then\n        switch costume to (captain rocket1 v)\n        if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n            change x by (5)\n            if <touching (地面 v)?> then\n                change x by (-5)\n            end\n        end\n        if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n            change x by (-5)\n            if <touching (地面 v)?> then\n                change x by (5)\n            end\n        end\n        if <touching (宇宙 v)?> then\n            start sound [Crunch v]\n            set [隕石 v] to [x]\n        end\n    else\n        switch costume to (player1 v)\n        動作\n        if <<touching (地面 v)?> or <<touching (障害物 v)?> or <(y position) < [-175]>>> then\n            リスポーン\n        end\n        if <[240] < (x position)> then\n            if <(ステージ) = [16]> then\n        end\n    end\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@地面\n\nwhen flag clicked\nshow\nset [ステージ v] to [1]\nforever\n    switch costume to (ステージ)\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@障害物\n\nwhen flag clicked\nforever\n    switch costume to ((ステージ) - (3))\n    go to [back v] layer\n    go [forward v] (1) layers\n    if <(ステージ) < [4]> then\n        hide\n    else\n        show\n    end\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@ジャンプ台\n\nwhen flag clicked\nforever\n    switch costume to ((ステージ) - (6))\n    go to [back v] layer\n    go [forward v] (2) layers\n    if <(ステージ) < [7]> then\n        hide\n    else\n        show\n    end\n    if <touching (player v)?> then\n        set [y v] to [15]\n    end\nend\n\nwhen [timer v] > (0.1)\nhide\n\n@宇宙\n\nwhen flag clicked\nset [隕石 v] to [0]\nforever\n    if <(ステージ) = [13]> then\n        switch costume to (locket v)\n        show\n        if <touching (player v)?> then\n            change [ステージ v] by (1)\n            broadcast (next v)\n        end\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    if <(ステージ) = [14]> then\n        set [隕石 v] to [0]\n        broadcast (damage v)\n        宇宙\n    else\n        set [隕石 v] to [0]\n    end\nend\n\nwhen I start as a clone\ngo to [back v] layer\nswitch costume to (join [I] (pick random (1) to (2)))\ngo to x: (pick random (-230) to (230)) y: (230)\nshow\nif <(pick random (1) to (7)) = [1]> then\n    point towards (player v)\n    repeat until <(y position) < [-230]>\n        move (10) steps\n    end\nelse\n    glide (2) secs to x: (x position) y: (-230)\nend\ndelete this clone\n\ndefine 宇宙\nwait (3) seconds\nrepeat (20)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    if <(隕石) = [x]> then\n        stop [this script v]\n    end\nend\nwait (4) seconds\nif <(隕石) = [0]> then\n    change [ステージ v] by (1)\n    broadcast (next v)\nend\n\nwhen I receive [damage v]\ndelete this clone\n\n