上を目指す！platformer

Instructions: https://scratch.mit.edu/projects/588275559\nNew game!\n\n傾向2位(　ﾟдﾟ)ｱﾘｶﾞﾄｳ!\nコミュニティーが好きなものに選ばれました！\n参照数130000はえぐいて…\n※音無し\n※例の通りステージは短いです\n\n日本語は下\n\nHow to play\nOperate with the WASD key or the arrow keys.  The goal is on top.  Please do your best to reach that goal!\n\n WASDキーまたは矢印キーで操作します。 ゴールは上にあります。 そのゴールを目指して頑張ってください！\nゴールしたらちゃんとタイムとかが出るのでそこを\n目指してください！ゴールして最初の位置に戻ったのなら、それはダミーのゴールです！\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\n@ステージ\n\ndefine ステージ (x座標) (y座標) (ステージ数)\nswitch costume to (なし v)\nset [x座標 v] to (x座標)\nset [y座標 v] to (y座標)\nswitch costume to ((ステージ数) + (1))\nset [コスチューム v] to ((ステージ数) + (1))\ncreate clone of (_myself_ v)\n\ndefine 動力 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<(終わり) = [1]> or <<([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 (コスチューム)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    動力 ((x座標) - (Camera_x)) ((y座標) - (Camera _y))\nend\n\nwhen I receive [スタート v]\nhide\nステージ [0] [0] [1]\nステージ [0] [250] [2]\nステージ [240] [500] [3]\nステージ [0] [750] [4]\nステージ [0] [900] [5]\nステージ [0] [1100] [6]\nステージ [7] [1800] [7]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\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 <<(終わり) = [1]> or <<([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\nforever\n    if <(終わり) = [1]> then\n        stop [this script v]\n    end\n    if <(costume [number v]) = [5]> then\n        turn right (8) degrees\n    end\nend\n\nwhen I receive [スタート v]\nhide\nステージ配置 [0] [565] [1]\nステージ配置 [0] [1100] [4]\nステージ配置 [0] [1200] [2]\nステージ配置 [7] [1800] [3]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\n@Player\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    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        switch costume to (右上 v)\n    else\n        switch costume to (右 v)\n    end\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    switch costume to (左 v)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        switch costume to (左上 v)\n    else\n        switch costume to (左 v)\n    end\nend\nif <not <<key (any v) pressed?> or <mouse down?>>> then\n    switch costume to (正面 v)\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 [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    set [y v] to [15]\n    switch costume to (上 v)\nend\nchange y by (1.1)\nif <touching (ゴール v)?> then\n    hide\n    set [終わり v] to [1]\nend\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)?>>)))\nif <touching (ばね v)?> then\n    set [y v] to [50]\nend\n\ndefine 位置y (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 (y座標)\nend\nchange y by (() - ((y座標) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\nset [y v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\npoint in direction (90)\nset size to (65) %\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]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen I receive [スタート v]\nset [ゲーム開始 v] to [1]\nset [ghost v] effect to (100)\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]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nset [ゲーム開始 v] to [0]\nset [終わり v] to [0]\nhide\n\n@スプライト2\n\nwhen this sprite clicked\nrepeat (4)\n    change size by (((0) - (size)) / (8))\n    change [ghost v] effect by (12.5)\nend\nhide\nbroadcast (スタート v)\n\nwhen flag clicked\ngo to x: (0) y: (-75)\nshow\nset size to (100) %\n\nwhen I receive [世界記録 v]\nrepeat (4)\n    change size by (((0) - (size)) / (8))\n    change [ghost v] effect by (12.5)\nend\nhide\n\n@スプライト1\n\nwhen flag clicked\ngo to [back v] layer\nset size to (150) %\nhide\ngo to x: (220) y: (150)\n\nwhen I receive [スタート v]\nshow\nforever\n    repeat (30)\n        change size by (2)\n    end\n    repeat (30)\n        change size by (-2)\n    end\nend\n\n@看板\n\ndefine ステージ (x座標) (y座標) (ステージ数)\nswitch costume to (なし 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 (なし v)\ngo to x: (x) y: (y)\nif <<(終わり) = [1]> or <<([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 [スタート v]\nhide\nステージ [0] [0] [1]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nforever\n    if <touching (player v)?> then\n        broadcast (表示 v)\n    else\n        broadcast (隠す v)\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nshow\npoint in direction (90)\nset size to (100) %\ngo to x: (0) y: (60)\nwait (0.01) seconds\nrepeat until <(ゲーム開始) = [1]>\n    change y by ([cos v] of ((timer) * (200)) )\n    turn right (([cos v] of ((timer) * (100)) ) / (3)) degrees\nend\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (10)\nend\nhide\n\nwhen I receive [世界記録 v]\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (10)\nend\nhide\n\n@世界記録\n\ndefine 表示\nset [スプライト4: カウンター v] to [1]\nrepeat (length of (☁ 世界記録))\n    クローン ((50) + ((22) * (スプライト4: カウンター))) (letter (スプライト4: カウンター) of (☁ 世界記録))\n    change [スプライト4: カウンター v] by (1)\nend\n\nwhen I start as a clone\nshow\nwait (0.01) seconds\ndelete this clone\n\ndefine クローン (1) (数)\nswitch costume to (数)\nset x to (1)\ncreate clone of (_myself_ v)\n\nwhen I receive [終わり v]\nset y to (-90)\nhide\nset size to (200) %\ngo to [front v] layer\nforever\n    表示\nend\n\n@ゴール\n\ndefine ステージ (x座標) (y座標) (ステージ数)\nswitch costume to (なし 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 (なし v)\ngo to x: (x) y: (y)\nif <<(終わり) = [1]> or <<([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 [スタート v]\nhide\nステージ [0] [1800] [1]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [終わり v]\nshow\n\n@スプライト5\n\nwhen flag clicked\nhide\n\nwhen I receive [終わり v]\nif <(タイム) = (☁ 世界記録)> then\n    show\nend\nforever\n    repeat (5)\n        change [ghost v] effect by (20)\n    end\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@記録\n\ndefine 表示\nset [スプライト4: カウンター v] to [1]\nrepeat (length of (タイム))\n    クローン ((50) + ((22) * (スプライト4: カウンター))) (letter (スプライト4: カウンター) of (タイム))\n    change [スプライト4: カウンター v] by (1)\nend\n\nwhen I start as a clone\nshow\nwait (0.01) seconds\ndelete this clone\n\ndefine クローン (1) (数)\nswitch costume to (数)\nset x to (1)\ncreate clone of (_myself_ v)\n\nwhen I receive [終わり v]\nset y to (20)\nhide\nset size to (200) %\ngo to [front v] layer\nforever\n    表示\nend\n\nwhen flag clicked\nset [タイム v] to [0]\nhide\n\nwhen I receive [スタート v]\nrepeat until <(終わり) = [1]>\n    change [タイム v] by (1)\n    wait (1) seconds\nend\nbroadcast (終わり v)\nstop [this script v]\n\nwhen I receive [終わり v]\nif <<(タイム) < (☁ 世界記録)> or <(タイム) = (☁ 世界記録)>> then\n    set [☁ 世界記録 v] to (タイム)\nend\nbroadcast (表示 v)\n\n@ばね\n\ndefine ステージ (x座標) (y座標) (ステージ数)\nswitch costume to (なし 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 (なし v)\ngo to x: (x) y: (y)\nif <<(終わり) = [1]> or <<([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 receive [スタート v]\nhide\nステージ [0] [1200] [1]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\nforever\n    if <touching (player v)?> then\n        set [y v] to [35]\n    end\nend\n\n@スプライト6\n\nwhen flag clicked\nhide\nforever\n    go to x: ((([x position v] of [player v]) + (40)) * (-1)) y: (([y position v] of [player v]) + (110))\nend\n\nwhen I receive [表示 v]\nshow\n\nwhen I receive [隠す v]\nhide\n\n