Happy Day!! ~Sclloring platformer~

Instructions: ➤PCの方は矢印キーです\n➤モバイルの方は画面タップです\n➤赤いマグマに触れると死にます\n➤針に触れると死にます

@Stage\n\nwhen flag clicked\nif <<[5] < (current [hour v])> and <(current [hour v]) < [19]>> then\n    switch backdrop to (noon v)\nelse\n    switch backdrop to (night v)\nend\nforever\n    play sound [Distrion & Alex Skrindo - Entropy \[NCS Release\] v] until done\nend\n\nwhen flag clicked\nset [は？ v] to [0]\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nif <(は？) = [0]> then\n    change [は？ v] by (1)\n    broadcast (は? v)\nend\n\n@スプライト1\n\n@Player\n\nwhen flag clicked\nset [上限設定 v] to [2000]\nbroadcast (Set Player v)\ngo to [front v] layer\ngo [backward v] (1) layers\nRe:Start [0] [50]\n\ndefine Re:Start (player_x) (player_y)\nswitch costume to (a v)\nclear graphic effects\nset [player_x v] to (player_x)\nset [player_y v] to (player_y)\nset [back_x v] to (player_x)\nset [back_y v] to (player_y)\nset [power_x v] to [0]\nset [power_y v] to [0]\nset [jumping? v] to [0]\npoint in direction (90)\nshow\n\ndefine Set Player\nbroadcast (Set Zone v)\nswitch costume to (a v)\nSet Player's X&Y\nif <touching (zone v)?> then\n    change [back_y v] by (5)\n    Set Player's X&Y\n    if <not <touching (zone v)?>> then\n        stop [this script v]\n    end\n    change [back_y v] by (-5)\n    repeat until <not <touching (zone v)?>>\n        if <[0] < (Power_X)> then\n            change [back_x v] by (-1)\n        else\n            change [back_x v] by (1)\n        end\n        Set Player's X&Y\n    end\n    if <<<key (space v) pressed?> or <key (up arrow v) pressed?>> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n        set [power_x v] to (() - ((Power_X) * (2)))\n        set [power_y v] to [10]\n    else\n        set [power_x v] to [0]\n    end\n    Set Player's X&Y\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n    change [power_x v] by (2)\n    switch costume to (b v)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n    change [power_x v] by (-2)\n    switch costume to (c v)\nend\nif <<<key (space v) pressed?> or <key (up arrow v) pressed?>> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n    if <(Jumping?) = [0]> then\n        set [power_y v] to [13]\n    end\nend\nchange [power_y v] by (-1)\nchange [back_y v] by (Power_Y)\nset [jumping? v] to [1]\nSet Player's X&Y\nSet Player's Y\nif <touching (jumper v)?> then\n    set [power_y v] to [18]\nend\nSet Player's X for Moving Zone\nif <<touching (out v)?> or <<(上限設定) < (Back_Y)> or <(Player_Y) < [-500]>>> then\n    if <[2000] < (Player_X)> then\n        Re:Start [2000] [-100]\n    else\n        Re:Start [0] [50]\n    end\nend\nSet Player's X&Y\nchange [player_x v] by (round (((Back_X) - (Player_X)) / (5)))\nchange [player_y v] by (round (((Back_Y) - (Player_Y)) / (15)))\nset [power_x v] to ((Power_X) * (0.75))\nchange [back_x v] by (round ((Power_X) * (1.25)))\nSet Player's X&Y\n\ndefine Set Player's X&Y\ngo to x: (round ((Back_X) - (Player_X))) y: (round ((Back_Y) - (Player_Y)))\n\nwhen I receive [set player v]\nif <(Back_X) < [-230]> then\n    set [back_x v] to [-230]\nend\nif <(Power_Y) < [-9]> then\n    set [power_y v] to [-9]\nend\nif <[5725] < (Back_X)> then\n    set [back_x v] to [5720]\nend\nSet Player\n\ndefine Set Player's Y\nrepeat until <not <touching (zone v)?>>\n    if <[0] < (Power_Y)> then\n        change [back_y v] by (-1)\n    else\n        change [back_y v] by (1)\n        if <not <key (up arrow v) pressed?>> then\n            set [jumping? v] to [0]\n        end\n    end\n    Set Player's X&Y\n    set [power_y v] to [0]\nend\n\ndefine Set Player's X for Moving Zone\nif <<touching (moving zone v)?> and <not <touching (zone v)?>>> then\n    change [back_x v] by ([x position v] of [moving zone v])\n    change [player_x v] by ([x position v] of [moving zone v])\nend\nrepeat until <not <touching (moving zone v)?>>\n    if <[0] < (Power_Y)> then\n        change [back_y v] by (-1)\n    else\n        change [back_y v] by (1)\n        if <not <key (up arrow v) pressed?>> then\n            set [jumping? v] to [0]\n        end\n    end\n    Set Player's X&Y\n    set [power_y v] to [0]\nend\n\n@Zone\n\nwhen I receive [set zone v]\nif <not <(costume [number v]) = [1]>> then\n    go to x: (round ((Zone_X) - (Player_X))) y: (round ((Zone_Y) - (Player_Y)))\n    if <<(x position) = (round ((Zone_X) - (Player_X)))> and <(y position) = (round ((Zone_Y) - (Player_Y)))>> then\n        show\n    else\n        hide\n    end\n    broadcast (Set Player v)\nend\n\nwhen I start as a clone\nhide\n\ndefine Set Zone (cosutume num) (x) (y) (direct) (size)\nswitch costume to ((cosutume num) + (1))\nset [zone_x v] to (x)\nset [zone_y v] to (y)\npoint in direction (direct)\nset size to (size) %\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\ngo to [front v] layer\nSet Zone [1] [0] [0] [90] [100]\nSet Zone [2] [600] [0] [90] [100]\nSet Zone [3] [1200] [0] [90] [100]\nSet Zone [4] [1680] [-400] [90] [100]\nSet Zone [5] [2500] [0] [90] [100]\nSet Zone [6] [3250] [0] [90] [100]\nSet Zone [7] [4200] [180] [90] [100]\nSet Zone [8] [4800] [540] [90] [100]\nSet Zone [9] [5500] [775] [90] [100]\nforever\n    switch costume to (none v)\nend\n\nwhen I receive [ﾀﾋ v]\ndelete this clone\n\n@Out\n\nwhen I receive [set zone v]\nif <not <(costume [number v]) = [1]>> then\n    go to x: (round ((Zone_X) - (Player_X))) y: (round ((Zone_Y) - (Player_Y)))\n    if <<(x position) = (round ((Zone_X) - (Player_X)))> and <(y position) = (round ((Zone_Y) - (Player_Y)))>> then\n        show\n    else\n        hide\n    end\n    broadcast (Set Player v)\nend\n\nwhen I start as a clone\nhide\n\ndefine Set Zone (cosutume num) (x) (y) (direct) (size)\nswitch costume to ((cosutume num) + (1))\nset [zone_x v] to (x)\nset [zone_y v] to (y)\npoint in direction (direct)\nset size to (size) %\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\nSet Zone [1] [1200] [0] [90] [100]\nSet Zone [2] [1680] [-400] [90] [100]\nSet Zone [3] [2500] [0] [90] [100]\nSet Zone [4] [3250] [0] [90] [100]\nSet Zone [5] [4200] [180] [90] [100]\nforever\n    switch costume to (none v)\nend\n\n@Woods\n\nwhen I receive [set zone v]\nif <not <(costume [number v]) = [1]>> then\n    go to x: (round ((Zone_X) - (Player_X))) y: (round ((Zone_Y) - (Player_Y)))\n    if <<(x position) = (round ((Zone_X) - (Player_X)))> and <(y position) = (round ((Zone_Y) - (Player_Y)))>> then\n        show\n    else\n        hide\n    end\n    broadcast (Set Player v)\nend\n\nwhen I start as a clone\nhide\n\ndefine Set Zone (cosutume num) (x) (y) (direct) (size)\nswitch costume to ((cosutume num) + (1))\nset [zone_x v] to (x)\nset [zone_y v] to (y)\npoint in direction (direct)\nset size to (size) %\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\nSet Zone [1] [0] [0] [90] [100]\nSet Zone [2] [600] [0] [90] [100]\nSet Zone [3] [1680] [-400] [90] [100]\nSet Zone [4] [2500] [0] [90] [100]\nSet Zone [5] [4200] [180] [90] [100]\nforever\n    switch costume to (none v)\nend\n\n@サムネ\n\nwhen flag clicked\nset [ghost v] effect to (100)\nshow\nforever\n    go to x: (0) y: (0)\n    go to [front v] layer\nend\n\n@outro\n\ndefine クローン (name)\nset [id v] to (name)\ncreate clone of (_myself_ v)\nwait (0) seconds\n\ndefine Flash\nset [id v] to [Flash]\ncreate clone of (_myself_ v)\nwait (0) seconds\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [Flash]> then\n    go to x: (0) y: (0)\n    switch costume to (flash v)\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    repeat (30)\n        change [ghost v] effect by (3.4)\n        go to [front v] layer\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [背景]> then\n    go to x: (0) y: (-1000)\n    go to [back v] layer\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    repeat until <[1] < (y position)>\n        switch costume to (背景2 v)\n        change y by (((0) - (y position)) / (8))\n        switch costume to (背景 v)\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [みてくれてありがとう]> then\n    go to x: (0) y: (0)\n    go to [back v] layer\n    go [forward v] (1) layers\n    switch costume to ( v)\n    set size to (1000) %\n    point in direction (90)\n    clear graphic effects\n    show\n    repeat (49)\n        switch costume to ( v)\n        go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (100)) * (0.1)))\n        change size by (((100) - (size)) / (8))\n        switch costume to (みてくれてありがとう！！ v)\n    end\n    wait until <[2.6] < (timer)>\n    start sound [指パッチン v]\n    delete this clone\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [左上]> then\n    go to x: (0) y: (1000)\n    go to [front v] layer\n    go [forward v] (3) layers\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    repeat (40)\n        switch costume to (左上 v)\n        change y by (((0) - (y position)) / (8))\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [右下]> then\n    go to x: (0) y: (-1000)\n    go to [front v] layer\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    repeat (40)\n        switch costume to (右下 v)\n        change y by (((0) - (y position)) / (8))\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [玉]> then\n    switch costume to (玉 v)\n    go to x: (0) y: (-180)\n    point in direction (90)\n    set size to (100) %\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\n    repeat (27)\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n        change size by (((size) - (101)) / (6.3))\n        change y by (((y position) - (-181)) / (4.5))\n        turn right (((90) - (direction)) / (6)) degrees\n    end\n    set [cc v] to [10]\n    repeat until <(y position) < [20]>\n        go to [front v] layer\n        change size by (((20) - (size)) / (4))\n        change [cc v] by (-1.3)\n        change y by (cc)\n    end\n    set [cc v] to [2]\n    set y to (0)\n    Flash\n    クローン [夜空]\n    repeat (40)\n        switch costume to ( v)\n        change size by (((700) - (size)) / (8))\n        switch costume to (玉 v)\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [夜空]> then\n    go to x: (0) y: (0)\n    go to [front v] layer\n    set size to (100) %\n    point in direction (0)\n    clear graphic effects\n    show\n    switch costume to (夜空 v)\n    go to [front v] layer\n    go to [front v] layer\n    repeat (40)\n        turn right (((90) - (direction)) / (8)) degrees\n    end\n    クローン [左上1]\n    クローン [右下1]\n    forever\n        change y by (([sin v] of ((timer) * (375)) ) * (2))\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [右下1]> then\n    go to x: (0) y: (-1000)\n    go to [front v] layer\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (右下 v)\n        change y by (((0) - (y position)) / (8))\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [左上1]> then\n    go to x: (0) y: (1000)\n    go to [front v] layer\n    go [forward v] (3) layers\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (左上 v)\n        change y by (((0) - (y position)) / (8))\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [Logo]> then\n    go to [back v] layer\n    hide\n    wait until <[2.6] < (timer)>\n    go to x: (0) y: (0)\n    switch costume to (logo v)\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    forever\n        go to [front v] layer\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [Logo]> then\n    play sound [Axol x Alex Skrindo - You \[NCS Release\].mp2 v] until done\n    forever\n        play sound [Axol x Alex Skrindo - You \[NCS Release\].mp3 v] until done\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <<(ID) = [Logo]> or <(ID) = [name]>> then\n    forever\n        if <(costume [number v]) = [1]> then\n            change size by (((100) - (size)) / (8))\n            point in direction ((([sin v] of ((timer) * (400)) ) * (7.5)) + (85))\n            change [cc v] by (((0) - (cc)) / (4))\n            set [brightness v] effect to (cc)\n        else\n            change size by (((100) - (size)) / (8))\n            point in direction ((([sin v] of ((timer) * (400)) ) * (7.5)) + (90))\n            change [cc v] by (((0) - (cc)) / (4))\n            set [whirl v] effect to (cc)\n        end\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <<(ID) = [Logo]> or <(ID) = [name]>> then\n    wait until <[2.6] < (timer)>\n    forever\n        wait (0.4) seconds\n        set size to (110) %\n        set [cc v] to [50]\n        クローン [影]\n    end\nend\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [影]> then\n    if <(costume [number v]) = [1]> then\n        go to x: (0) y: (0)\n        set size to (0) %\n        point in direction (90)\n        clear graphic effects\n        show\n        repeat (20)\n            change [ghost v] effect by (5)\n            change size by (((150) - (size)) / (8))\n        end\n        delete this clone\n    else\n        go to x: (0) y: (-100)\n        set size to (0) %\n        point in direction (90)\n        clear graphic effects\n        show\n        repeat (20)\n            change [ghost v] effect by (5)\n            change size by (((150) - (size)) / (8))\n        end\n        delete this clone\n    end\nend\n\nwait until <[2.6] < (timer)>\nstart sound [指パッチン v]\ndelete this clone\n\nswitch costume to (logo v)\n\nwhen I start as a clone\nset [cc v] to [0]\nif <(ID) = [name]> then\n    go to [back v] layer\n    hide\n    wait until <[2.6] < (timer)>\n    go to x: (240) y: (-1000)\n    switch costume to (name v)\n    set size to (100) %\n    point in direction (90)\n    clear graphic effects\n    show\n    forever\n        go to [front v] layer\n        change x by (((0) - (x position)) / (8))\n        change y by (((-100) - (y position)) / (8))\n    end\nend\n\nwhen I receive [は? v]\nreset timer\nhide\nクローン [Logo]\nクローン [name]\nクローン [背景]\nクローン [左上]\nクローン [右下]\nクローン [みてくれてありがとう]\nwait until <[1] < (timer)>\nクローン [玉]\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I receive [は? v]\nforever\n    go to [front v] layer\nend\n\nwhen I start as a clone\ngo to [front v] layer\n\n