MinecraftScroll Platformer (アスレチック)#all #games

Instructions: このゲームは12/25くらい？に公開されたものです\nプレイする前に❤と⭐を押そう！(義務)\n「もうやだ( ；∀；)」←これを流行らせようｗ((\n↑元ネタ：@kashiwa_0064(リア友)\n今回はマインクラフトスクロールプラットフォーマーを作りました！！\n❤と⭐、フォロー、拡散をよろしくお願いします。\n《操作方法》\n矢印キーまたはタップで操作します。\nゾンビはいないでs(\nアスレチック的なものです\n《クレジット》\nBGMなど：@kuri-pa-2\nキャラ：@kuri-pa-2\nプログラムの参考@hiron0413_sub\n

@Stage\n\nwhen flag clicked\nset volume to (70) %\nforever\n    play sound [-minecraft- v] until done\nend\n\n@player\n\nwhen flag clicked\nset [checkpoint v] to [0]\n初期\n\ndefine いつもの(((\nif <(すｓ) = [0]> then\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        point in direction (90)\n        change [x player v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        point in direction (-90)\n        change [x player v] by (-1)\n    end\n    set [x player v] to ((X player) * (0.9))\n    change x by (X player)\n    if <touching (ground v)?> then\n        change y by ((() + (1)) * (5))\n    end\n    if <touching (ground v)?> then\n        change y by (-5)\n        壁　補正 (((X player) / ([abs v] of (X player) )) * (-1)) ([ceiling v] of ([abs v] of (X player) ) )\n        if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n            if <(X player) < [0]> then\n                set [x player v] to [7]\n            else\n                set [x player v] to [-7]\n            end\n            start sound [壁キック v]\n            set [y player v] to [12]\n        else\n            set [x player v] to [0]\n        end\n    end\n    change [y player v] by (-1)\n    change y by (Y player)\n    if <touching (ground v)?> then\n        床　補正 (((Y player) / ([abs v] of (Y player) )) * (-1)) ([ceiling v] of ([abs v] of (Y player) ) )\n        if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n            set [y player v] to [14]\n        end\n    end\n    if <<(Y) < [-350]> or <touching (障害物 v)?>> then\n        初期\n    end\n    処理\n    broadcast (ち v)\nend\n\nwhen I receive [か v]\nいつもの(((\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (cam X)))\nchange [y v] by ((y position) - (((Y) - (cam Y)) - (20)))\nchange [cam x v] by ([floor v] of (((X) - (cam X)) * (0.1)) )\nchange [cam y v] by ([floor v] of (((Y) - (cam Y)) * (0.2)) )\nset x to ((X) - (cam X))\nset y to (((Y) - (cam Y)) - (20))\n\ndefine 壁　補正 (向き) (回数)\nif <(X player) = [0]> then\n    stop [this script v]\nend\nset [当たり判定 v] to [0]\nrepeat until <<not <touching (ground v)?>> or <(当たり判定) = ((回数) + (1))>>\n    change [当たり判定 v] by (1)\n    change x by (向き)\nend\nchange x by (((向き) * (((回数) + (1)) * <<(当たり判定) = ((回数) + (1))> and <touching (ground v)?>>)) * (-1))\n\ndefine 床　補正 (向き) (回数)\nif <(Y player) = [0]> then\n    stop [this script v]\nend\nset [当たり判定 v] to [0]\nrepeat until <<not <touching (ground v)?>> or <(当たり判定) = ((回数) + (1))>>\n    change [当たり判定 v] by (1)\n    change y by (向き)\nend\nchange y by (((向き) * (((回数) + (1)) * <<(当たり判定) = ((回数) + (1))> and <touching (ground v)?>>)) * (-1))\nset [y player v] to [0]\n\ndefine 初期\ngo to x: (0) y: (0)\nset size to (90) %\npoint in direction (90)\nset [x player v] to [0]\nset [y player v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nif <(checkpoint) = [0]> then\n    set [cam x v] to [-70]\n    set [cam y v] to [0]\nelse\n    set [cam x v] to [2400]\n    set [cam y v] to [-50]\nend\n\n@ground\n\nwhen flag clicked\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1400] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [-1] [6]\nステージ配置 [2900] [-1] [7]\nステージ配置 [3600] [0] [8]\nステージ配置 [4100] [0] [9]\nswitch costume to (blank v)\nbroadcast (か v)\n\ndefine ステージ配置 (x) (y) (n)\nswitch costume to (blank v)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nswitch costume to ((n) + (1))\nset [scroll n v] to ((n) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (blank 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 (scroll n)\n\nwhen I receive [ち v]\nif <(costume [number v]) = [1]> then\n    broadcast (か v)\nelse\n    移動 ((scroll X) - (cam X)) ((scroll Y) - (cam Y))\nend\n\nwhen I start as a clone\nshow\n\n@checkpoint\n\nwhen flag clicked\nhide\nset [brightness v] effect to (-100)\nステージ配置 [2400] [-80] [1]\nswitch costume to (blank v)\n\ndefine ステージ配置 (x) (y) (n)\nswitch costume to (blank v)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nswitch costume to ((n) + (1))\nset [scroll n v] to ((n) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (blank 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 (scroll n)\n\nwhen I receive [ち v]\nif <(costume [number v]) = [1]> then\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\n\n@ground2\n\nwhen flag clicked\nhide\nステージ配置 [4100] [0] [1]\nswitch costume to (blank v)\nbroadcast (か v)\n\ndefine ステージ配置 (x) (y) (n)\nswitch costume to (blank v)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nswitch costume to ((n) + (1))\nset [scroll n v] to ((n) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (blank 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 (scroll n)\n\nwhen I receive [ち v]\nif <(costume [number v]) = [1]> then\nelse\n    移動 ((scroll X) - (cam X)) ((scroll Y) - (cam Y))\n    if <touching (player v)?> then\n        broadcast (ｈびうふいふいひう v)\n    end\nend\n\nwhen I start as a clone\nshow\n\n@スプライト1\n\nwhen I receive [ｈびうふいふいひう v]\nshow\n\nwhen flag clicked\nhide\n\n@e\n\nwhen flag clicked\nset [time v] to [0]\nshow variable [time v]\nhide\nforever\n    go to [front v] layer\n    reset timer\nend\n\nwhen [timer v] > (0)\nhide variable [time v]\nshow\n\nwhen flag clicked\nset [すｓ v] to [0]\nforever\n    repeat until <(すｓ) = [1]>\n        wait (0.05) seconds\n        change [time v] by (0.1)\n    end\nend\n\nwhen I receive [ｈびうふいふいひう v]\nset [すｓ v] to [1]\nforever\n    if <(すｓ) = [1]> then\n        change [time v] by (0)\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\n