Space platformer　プラットフォーマー　

Instructions: Space　platformer　　宇宙プラットフォーマー\n\n注意\n月から映像が届くため映像が乱れます。(という設定)\n重力軽めです！\n\n操作方法\n矢印キーで操作\n\nintro\n@AZITUKETAMAGO\n\nmusic \nElektronomia - Sky High

@Stage\n\nwait () seconds\n\nwhen I receive [intro end v]\nforever\n    play sound [Elektronomia - Sky High \[NCS Release\].mp3 v] until done\nend\n\n@Player\n\nwhen I receive [intro end v]\nforever\n    clear graphic effects\n    wait (pick random (5) to (10)) seconds\n    repeat (10)\n        change [pixelate v] effect by (10)\n    end\nend\n\nwhen flag clicked\nhide\n\ndefine 動作\nchange [yの力 v] by (-0.7)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    change [xの力 v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    change [xの力 v] by (-1)\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nrepeat (6)\n    if <touching (ステージ v)?> then\n        change y by (1)\n    end\nend\nif <touching (ステージ v)?> then\n    change y by (-6)\n    位置補正x (() - ((xの力) / ([abs v] of (xの力) ))) ([ceiling v] of ([abs v] of (xの力) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        set [yの力 v] to [15]\n        set [xの力 v] to ((7) - (<(xの力) > [0]> * (14)))\n    else\n        set [xの力 v] to [0]\n    end\nend\nchange y by (yの力)\nif <touching (ステージ v)?> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    set [yの力 v] to [15]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Camera_x)))\nchange [y v] by ((y position) - (((Y) - (Camera _y)) - (20)))\nchange [camera_x v] by ([floor v] of (((X) - (Camera_x)) * (0.1)) )\nchange [camera _y v] by ([floor v] of (((Y) - (Camera _y)) * (0.2)) )\nset x to ((X) - (Camera_x))\nset y to (((Y) - (Camera _y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(xの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen I receive [intro end v]\ngo to [front v] layer\nshow\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to [-200]\nset [camera _y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\n@ステージ\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [intro end v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nステージ配置 [3840] [0] [9]\nステージ配置 [4320] [0] [10]\n\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@ステージ（背面）\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [intro end v]\nhide\nステージ配置 [0] [0] [1]\nbroadcast (プログラム v)\n\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nswitch costume to (none v)\n\n@障害物\n\nwhen flag clicked\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [intro end v]\nhide\nステージ配置 [480] [0] [1]\nステージ配置 [1440] [0] [2]\nステージ配置 [2700] [0] [3]\nswitch costume to (none v)\ngo to [back v] layer\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1350) - (Camera_x)) ((-70) - (Camera _y))\ngo to [back v] layer\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (player v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [1350]\n        set [復活y v] to [-50]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\n@Team intro\n\nwhen I receive [team intro start v]\nswitch costume to (name v)\nset size to (100) %\nhide\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (100) %\nstart sound [Abandoned, InfiNoise & Mendum - See You at the End \(CUT\) v]\nreset timer\ngo to [front v] layer\nclear graphic effects\nset [brightness v] effect to (-100)\nset [イントロ制御1 v] to [0]\nswitch costume to (シャッター v)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [イントロ制御1 v] to [1]\nswitch costume to (シャッター v)\ncreate clone of (_myself_ v)\nwait (0) seconds\ngo to [back v] layer\nclear graphic effects\nset [イントロ制御1 v] to [4]\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nwait until <[0.01] < (timer)>\nwait (0) seconds\nset [イントロ制御1 v] to [2]\nswitch costume to (シャッター v)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [イントロ制御1 v] to [3]\nswitch costume to (シャッター v)\ncreate clone of (_myself_ v)\nwait until <[0.8] < (timer)>\ngo to [front v] layer\nset [イントロ制御1 v] to [5]\nswitch costume to (社ッと v)\ncreate clone of (_myself_ v)\nwait until <[1.7] < (timer)>\nset [イントロ制御1 v] to [6]\nF\nwait (0) seconds\nset [イントロ制御1 v] to [7]\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [イントロ制御1 v] to [8]\nswitch costume to (シャッター v)\ncreate clone of (_myself_ v)\nwait until <[2.2] < (timer)>\nclear graphic effects\nset [ghost v] effect to (90)\nset [イントロ制御1 v] to [9]\nswitch costume to (丸 v)\n丸配置\nwait until <[2.6] < (timer)>\nclear graphic effects\nset [color v] effect to (5)\nset [イントロ制御1 v] to [10]\nswitch costume to (丸 v)\nwait (0) seconds\n丸配置\nwait until <[3.4] < (timer)>\nclear graphic effects\nset [イントロ制御1 v] to [6]\nF\nwait (0) seconds\nset [イントロ制御1 v] to [11]\nswitch costume to (oc v)\ncreate clone of (_myself_ v)\nwait until <[4.1] < (timer)>\ngo to [front v] layer\nset [イントロ制御1 v] to [12]\nswitch costume to (社ッと v)\ncreate clone of (_myself_ v)\nwait until <[5] < (timer)>\nbroadcast (intro end v)\n\ndefine シャッター動作 (ここ江) (いつまで) (速度)\nrepeat until <(いつまで) < (timer)>\n    change y by (((ここ江) - (y position)) / (速度))\nend\n\nwhen I start as a clone\nshow\nif <[0] = (イントロ制御1)> then\n    go to x: (0) y: (9000)\n    シャッター動作 [230] [2] [7]\n    delete this clone\nelse\n    if <[1] = (イントロ制御1)> then\n        go to x: (0) y: (-9000)\n        シャッター動作 [-230] [2] [7]\n        delete this clone\n    else\n        if <[2] = (イントロ制御1)> then\n            go to x: (0) y: (9000)\n            シャッター動作 [216] [2] [7]\n            delete this clone\n        else\n            if <[3] = (イントロ制御1)> then\n                go to x: (0) y: (-9000)\n                シャッター動作 [-216] [2] [7]\n                delete this clone\n            else\n                if <[4] = (イントロ制御1)> then\n                    switch costume to (拡大用 v)\n                    set size to (300) %\n                    switch costume to (name v)\n                    point in direction (0)\n                    repeat until <[2] < (timer)>\n                        turn right (((90) - (direction)) / (5)) degrees\n                        change size by (((80) - (size)) / (5))\n                    end\n                    delete this clone\n                else\n                    if <[5] = (イントロ制御1)> then\n                        set [brightness v] effect to (-20)\n                        switch costume to (拡大用 v)\n                        set size to (200) %\n                        switch costume to (社ッと v)\n                        go to x: (900) y: (-900)\n                        repeat until <[5] < (timer)>\n                            change y by (((100) - (y position)) / (5.5))\n                            change x by (((-90) - (x position)) / (5.5))\n                        end\n                        delete this clone\n                    else\n                        if <[6] = (イントロ制御1)> then\n                            move (30) steps\n                            set [イントロ制御2 v] to (pick random (2) to (3))\n                            set [ghost v] effect to (50)\n                            repeat (20)\n                                move (イントロ制御2) steps\n                            end\n                            repeat (10)\n                                move ((イントロ制御2) / (2)) steps\n                                change [ghost v] effect by (5)\n                            end\n                            delete this clone\n                        else\n                            if <[7] = (イントロ制御1)> then\n                                set size to (2000) %\n                                repeat until <[5] < (timer)>\n                                    change size by (((100) - (size)) / (7))\n                                    point in direction ((([sin v] of ((timer) * (1000)) ) * (((size) - (100)) * (0.1))) + (90))\n                                end\n                                delete this clone\n                            else\n                                if <[8] = (イントロ制御1)> then\n                                    repeat (2)\n                                        clear graphic effects\n                                        switch costume to (拡大用 v)\n                                        set size to (200) %\n                                        switch costume to (シャッター v)\n                                        set [brightness v] effect to (100)\n                                        repeat (10)\n                                            go to [front v] layer\n                                            change [ghost v] effect by (10)\n                                        end\n                                        wait until <[3.4] < (timer)>\n                                    end\n                                    delete this clone\n                                else\n                                    if <[9] = (イントロ制御1)> then\n                                        set [イントロ制御2 v] to [2]\n                                        repeat until <[1500] < (size)>\n                                            switch costume to (拡大用 v)\n                                            change size by (イントロ制御2)\n                                            switch costume to (丸 v)\n                                            set [イントロ制御2 v] to ((イントロ制御2) * (1.5))\n                                        end\n                                        wait (1) seconds\n                                        delete this clone\n                                    else\n                                        if <[10] = (イントロ制御1)> then\n                                            set [イントロ制御2 v] to [10]\n                                            repeat until <[1500] < (size)>\n                                                switch costume to (拡大用 v)\n                                                change size by (イントロ制御2)\n                                                switch costume to (丸 v)\n                                                set [イントロ制御2 v] to ((イントロ制御2) * (1.5))\n                                            end\n                                            wait until <[5] < (timer)>\n                                            delete this clone\n                                        else\n                                            if <[11] = (イントロ制御1)> then\n                                                go to x: (0) y: (0)\n                                                switch costume to (拡大用 v)\n                                                set size to (400) %\n                                                switch costume to (oc v)\n                                                repeat until <[5] < (timer)>\n                                                    change size by (((100) - (size)) / (4))\n                                                end\n                                                delete this clone\n                                            else\n                                                if <[12] = (イントロ制御1)> then\n                                                    set [brightness v] effect to (-20)\n                                                    switch costume to (拡大用 v)\n                                                    set size to (200) %\n                                                    switch costume to (社ッと v)\n                                                    go to x: (900) y: (-900)\n                                                    repeat until <[5] < (timer)>\n                                                        change y by (((100) - (y position)) / (5.5))\n                                                        change x by (((-90) - (x position)) / (5.5))\n                                                    end\n                                                    repeat (50)\n                                                        change [ghost v] effect by (2)\n                                                    end\n                                                    delete this clone\n                                                else\n                                                end\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 F\ngo to x: (0) y: (0)\nrepeat (20)\n    point in direction (pick random (-180) to (180))\n    switch costume to (pick random (7) to (10))\n    create clone of (_myself_ v)\nend\npoint in direction (90)\n\ndefine 丸配置\ngo to x: (274) y: (-214)\ncreate clone of (_myself_ v)\nwait (0) seconds\ngo to x: (274) y: (214)\ncreate clone of (_myself_ v)\nwait (0) seconds\ngo to x: (-274) y: (-214)\ncreate clone of (_myself_ v)\nwait (0) seconds\ngo to x: (-274) y: (214)\ncreate clone of (_myself_ v)\nwait (0) seconds\n\nwhen flag clicked\nbroadcast (Team intro start v)\n\n@スプライト5\n\nwhen I start as a clone\ngo to x: (pick random (-240) to (240)) y: (190)\nforever\n    change y by (-1)\n    turn right (pick random (1) to (10)) degrees\nend\n\nwhen I start as a clone\nset size to (pick random (100) to (30)) %\nset [ghost v] effect to (30)\nshow\nrepeat (pick random (50) to (400))\n    change [ghost v] effect by (0.2)\nend\ndelete this clone\n\nwhen I receive [intro end v]\nhide\nforever\n    create clone of (_myself_ v)\n    next costume\n    wait (0.1) seconds\nend\n\n@スプライト1\n\nwhen flag clicked\nforever\n    hide\n    set volume to (0) %\n    wait (pick random (8) to (10)) seconds\n    start sound [テレビの砂嵐.mp3 v]\n    set volume to (100) %\n    repeat (10)\n        go to [front v] layer\n        show\n        next costume\n    end\nend\n\ngo to [front v] layer\n\nwhen flag clicked\nhide\n\n@スクリーンショット 2021-03-31 111136\n\nwhen flag clicked\nhide\n\nshow\ngo to [front v] layer\n\n