Platformer!

Instructions: [日本語]\n||操作方法\nWASDキーか矢印キー、タッチで操作です！\n||メモ\n今回はギミックを増量しました！！\nちなみに、昼と夜で景色が変わる!?かも…\n♡と☆( ｀・∀・´)ﾉﾖﾛｼｸ\n[English]\n||Operation Method\nWASD keys, arrow keys, or touch!\n||Memo\nThis time we've upped the gimmick!\nBy the way, the scenery changes from day to night! Maybe...\nGive me ♡ and ☆!\n||クレジット(cragits)\nProgram:@4747yuna\nMusic:@-Xaf-\nTEXT:cooltext.com\n||タグ(tags)\n#All #Game #Games #Platformer #sosukeyamakawa

@Stage\n\nwhen flag clicked\nforever\n    play sound [Starship v] until done\nend\n\nwhen flag clicked\nforever\n    if <[昼 v] contains (current [hour v])?> then\n        set [mode v] to [light]\n    else\n        set [mode v] to [dark]\n    end\n    switch backdrop to (mode)\nend\n\nwhen flag clicked\nhide variable [monitor v]\nhide variable [☁ 世界記録 v]\nhide variable [timer v]\nset [timer v] to [0]\nwait (1) seconds\nrepeat until <(stage) = [11]>\n    change [timer v] by (1)\n    wait (1) seconds\nend\nshow variable [timer v]\nif <(☁ 世界記録) > (timer)> then\n    送信\nend\n受信\n\ndefine 送信\nset [user's name v] to []\nset [counter v] to [1]\nrepeat (length of (username))\n    set [user's name v] to (join (user's name) (item # of (letter (counter) of (username)) in [a~z v]))\n    change [counter v] by (1)\nend\nset [☁ 世界記録 v] to (timer)\nset [☁ user number v] to (user's name)\n\ndefine 受信\nset [monitor v] to []\nset [counter v] to [1]\nrepeat ((length of (☁ user number)) / (2))\n    set [monitor v] to (join (MONITOR) (item (join (letter (counter) of (☁ user number)) (letter ((counter) + (1)) of (☁ user number))) of [a~z v]))\n    change [counter v] by (2)\nend\nshow variable [monitor v]\nshow variable [☁ 世界記録 v]\n\ndefine 初期化\nset [☁ user number v] to [2824283020143410221020103210]\nset [☁ 世界記録 v] to [100]\nset [cloud-y v] to [0]\nset [counter v] to [1]\nset [key v] to [yes]\nset [mode v] to [light]\nset [monitor v] to [sosukeyamakawa]\nset [stage v] to [1]\nset [user's name v] to []\ndelete all of [昼 v]\nadd [7] to [昼 v]\nadd [8] to [昼 v]\nadd [9] to [昼 v]\nadd [10] to [昼 v]\nadd [11] to [昼 v]\nadd [12] to [昼 v]\nadd [13] to [昼 v]\nadd [14] to [昼 v]\nadd [15] to [昼 v]\nadd [16] to [昼 v]\nadd [17] to [昼 v]\nadd [18] to [昼 v]\nstop [all v]\n\nwhen flag clicked\nforever\n    change [turbo v] by (1)\n    wait (0) seconds\n    if <(turbo) > [3]> then\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nforever\n    set [turbo v] to [0]\n    wait (0.01) seconds\nend\n\nwhen flag clicked\nforever\n    if <[ban_list v] contains (username)?> then\n        stop [all v]\n    end\nend\n\n@Player\n\nwhen flag clicked\ngo to [front v] layer\npoint in direction (90)\ngo to x: (-210) y: (-90)\nforever\n    set rotation style [left-right v]\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        point in direction (-90)\n        change [x v] by (-0.8)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[0] < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (0.8)\n    end\n    set [x v] to ((X) * (0.9))\n    change x by (X)\n    if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n                            change x by ((X) * (-1))\n                            change y by (-5)\n                            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n                                start sound [Jump v]\n                                if <(X) > [0]> then\n                                    set [x v] to [-7]\n                                else\n                                    set [x v] to [7]\n                                end\n                                set [y v] to [15]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n            start sound [Jump v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (Y)\n    if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    if <<(x position) > [230]> and <not <(stage) = [11]>>> then\n        if <(stage) = [6]> then\n            if <(key) = [yes]> then\n                go to x: (-216) y: (-58)\n                set [x v] to [0]\n                set [y v] to [0]\n                change [stage v] by (1)\n            else\n                say [鍵をとろう！]\n            end\n        else\n            go to x: (-216) y: (-58)\n            set [x v] to [0]\n            set [y v] to [0]\n            change [stage v] by (1)\n            say []\n        end\n    else\n        say []\n    end\n    if <<<[-150] > (y position)> or <touching (障害物 v)?>> or <touching (magma v)?>> then\n        go to x: (-210) y: (50)\n        start sound [Crunch v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    switch costume to (mode)\nend\n\n@地面\n\nwhen flag clicked\nset [stage v] to [1]\nforever\n    switch costume to (stage)\nend\n\n@障害物\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (stage)\nend\n\n@雲\n\nwhen flag clicked\ngo to x: (264) y: (130)\nset size to (50) %\nset [ghost v] effect to (50)\nhide\nforever\n    create clone of (_myself_ v)\n    wait (pick random (1) to (5)) seconds\nend\n\nwhen I start as a clone\ngo to [back v] layer\nshow\nset [cloud-y v] to (pick random (130) to (160))\ngo to x: (264) y: (cloud-y)\nglide (pick random (10) to (15)) secs to x: (-264) y: (cloud-y)\ndelete this clone\n\n@見せかけ地面\n\nwhen flag clicked\nset [ghost v] effect to (0)\nforever\n    switch costume to (stage)\nend\n\nwhen flag clicked\nforever\n    if <touching (player v)?> then\n        set [ghost v] effect to (60)\n    else\n        repeat (10)\n            change [ghost v] effect by (-6)\n        end\n    end\nend\n\n@magma\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (stage)\nend\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <(stage) = [2]> then\n        go to x: (0) y: (-169)\n        glide (2) secs to x: (0) y: (-110)\n        glide (2) secs to x: (0) y: (-169)\n    else\n        if <(stage) = [3]> then\n            go to x: (0) y: (-169)\n            glide (2) secs to x: (0) y: (-140)\n            glide (2) secs to x: (0) y: (-169)\n        else\n            if <(stage) = [4]> then\n                go to x: (0) y: (-169)\n                glide (2) secs to x: (0) y: (-140)\n                glide (2) secs to x: (0) y: (-169)\n            else\n                if <(stage) = [5]> then\n                    go to x: (0) y: (-169)\n                else\n                    if <(stage) = [6]> then\n                        go to x: (0) y: (-95)\n                        turn right (10) degrees\n                    else\n                        if <(stage) = [7]> then\n                            point in direction (90)\n                            go to x: (0) y: (-169)\n                            glide (3) secs to x: (0) y: (-100)\n                            glide (3) secs to x: (0) y: (-169)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@動く地面\n\nwhen flag clicked\nforever\n    switch costume to (stage)\nend\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <(stage) = [4]> then\n        go to x: (0) y: (0)\n        glide (1) secs to x: (50) y: (0)\n        glide (1) secs to x: (0) y: (0)\n    else\n        if <(stage) = [9]> then\n            go to x: (100) y: (0)\n            turn right (1) degrees\n        end\n    end\nend\n\n@key\n\nwhen flag clicked\nset [key v] to [no]\nhide\ngo to x: (74) y: (-107)\nwait (0.01) seconds\nwait until <(stage) = [6]>\nshow\nwait until <touching (player v)?>\nset [key v] to [yes]\nstart sound [Coin v]\nrepeat until <not <(stage) = [6]>>\n    go to x: (([x position v] of [player v]) + (20)) y: (([y position v] of [player v]) - (10))\n    go to [front v] layer\nend\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nhide variable [☁ 世界記録 v]\nhide variable [monitor v]\nhide variable [timer v]\nshow\ngo to [front v] layer\n\n