first Scroll platformer!【拡散希望!】

Instructions: If you don't mind, I would appreciate it if you could give me a star and a heart.  follow me.\nもし良ければ星とハート付けていただけると幸いです。\nさらに,フォローもいただけると幸いです。\n\nSince this is my first scroll, I would appreciate it if you could give me a good evaluation.\n初スクロールなので、良い評価を頂けると幸いです。\n\nーーEnglishーーー\nThis is the "first scroll platformer" that I made as the first scroll, even though it took two days.\nIt is a work with confidence for the first scroll.\n{Method of operation}\nThe main operation is the arrow key, but since it is also mobile compatible, you can tap the screen.\nWhen you touch the magma, you will return to the beginning.\n\nIf there are any bugs, please leave a comment in the comments section.\n\n❐ Credits\nSCROLL program\n@whitekeita\nbackground music\n@-xaf-\nsun fist\n@Coltroc\ncloud\n@kuri-pa-2\ntrees and grass\n@kurappi-\nSound effect\n@saimon0620\nplatformer logo\n@takuno\n高クオ\n-hinomaru-\nーー日本語ーーー\n2日間かかるも、初スクロールとして作成させて頂いた、「初scroll platformer」です。\n初スクロールにしては自信のある作品です。\n{操作方法}\n主な操作は矢印キーですが、モバイル対応もしていますので、画面をタップでも構いません。\nマグマに触れた際は、最初に戻ります。\n\nバグなどがあれば、コメント欄でコメントを頂けると幸いです。\n\n❐クレジット\nSCROLLプログラム\n @whitekeita様\nBGM\n@-xaf-様\n太陽拳\n@Coltroc様\n雲\n@kuri-pa-2様\n木や草\n@kurappi-様\n効果音\n@saimon0620様\nロゴ、背景\n@takuno様\n高クオ\n@-Hinomaru-\n⇓タグ\n#all\n#ALL\n#game\n#games\n#platformer \n#alawan\n©2023年10月29日 

@Stage\n\n@Player\n\nwhen flag clicked\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]\n\ndefine 動作\nchange [yの力 v] by (-1)\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)\n    point in direction (90)\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)\n    point in direction (-90)\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        start sound [壁キック v]\n        set [yの力 v] to [12]\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    start sound [ジャンプ v]\n    set [yの力 v] to [15]\nend\nchange y by (1.1)\nif <touching (ゴール v)?> then\n    broadcast (Thanks v)\n    初期位置\nend\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    start sound [Crunch v]\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 [0]\nset [camera _y v] to [0]\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\nswitch costume to (コスチューム1 \(1\) v)\nforever\n    point towards (mouse-pointer v)\n    set rotation style [left-right v]\nend\n\nwhen flag clicked\nforever\n    play sound [Goodbye v] until done\nend\n\n@障害物\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 flag clicked\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]\nswitch costume to (none v)\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@ステージ\n\nwhen flag clicked\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]\nswitch costume to (none v)\nbroadcast (プログラム v)\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 [thanks v]\nhide\nステージ配置 [-480] [0] [10]\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] [11]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@雲\n\nwhen I start as a clone\ngo to [back v] layer\ngo [forward v] (1) layers\nset [cloud y v] to (pick random (100) to (90))\nset [ghost v] effect to (20)\nif <(#Biome) = [2]> then\n    go [forward v] (5) layers\n    set [cloud y v] to (pick random (-80) to (0))\n    set [ghost v] effect to (50)\nend\nswitch costume to ((1) + (pick random (1) to (10)))\nset y to (cloud y)\nrepeat until <(cloud x) < [-400]>\n    show\n    set x to (cloud x)\n    change [cloud x v] by (-0.4)\n    if <(#Biome) = [3]> then\n        repeat (20)\n            change [ghost v] effect by (5)\n        end\n        change [cloud_num v] by (-1)\n        delete this clone\n    end\n    if <(#Biome) = [4]> then\n        set [ghost v] effect to (20)\n    end\nend\nchange [cloud_num v] by (-1)\ndelete this clone\n\nwhen I receive [スタート v]\nhide\nset [cloud_num v] to [0]\nset [cloud x v] to [-100]\ncreate clone of (_myself_ v)\nchange [cloud_num v] by (1)\nset [cloud x v] to [100]\ncreate clone of (_myself_ v)\nchange [cloud_num v] by (1)\nforever\n    if <(Cloud_Num) < [10]> then\n        if <(pick random (1) to (5)) = [1]> then\n            set [cloud x v] to [300]\n            change [cloud_num v] by (1)\n            create clone of (_myself_ v)\n        end\n        wait (3) seconds\n    end\n    if <(Dead) = [1]> then\n        delete this clone\n    end\nend\n\nwhen flag clicked\nshow\nbroadcast (スタート v)\n\n@後ろの\n\nwhen flag clicked\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]\nswitch costume to (none v)\nbroadcast (プログラム v)\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 [thanks v]\nhide\nステージ配置 [-480] [0] [10]\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] [11]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\n@ゴール\n\nwhen flag clicked\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]\nswitch costume to (none v)\nbroadcast (プログラム v)\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 [thanks v]\nhide\nステージ配置 [-480] [0] [10]\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] [11]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\n@スプライト1\n\nwhen flag clicked\nhide\nset size to (10) %\nset [ghost v] effect to (25)\n\nwhen I receive [thanks v]\ngo to [front v] layer\nshow\nrepeat (18)\n    change size by (5)\nend\nwait (2) seconds\nrepeat (18)\n    change size by (-5)\nend\nhide\n\nwhen I receive [thanks v]\nplay sound [Rip v] until done\n\n@スプライト2\n\nwhen flag clicked\nhide\n\n