プラットフォーマー  Platformer
@Stage\n\nwhen flag clicked\nbroadcast (スタート v)\n\nwhen I receive [スタート v]\nset [ステージ v] to [1]\nforever\n    play sound [Nebula v] until done\nend\n\n@空白\n\n@プレイヤー\n\nwhen I receive [スタート v]\ngo to x: (-200) y: (-50)\nswitch costume to (上前向き v)\nset drag mode [not draggable v]\ngo to [front v] layer\ngo [forward v] (1) layers\nset [x v] to [0]\nset [y v] to [0]\nset size to (100) %\npoint in direction (90)\nwait until <<mouse down?> or <key (any v) pressed?>>\nforever\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<[50] < (mouse x)> and <mouse down?>>>> then\n        set [左右 v] to [右]\n        change [x v] by (1)\n    else\n        if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<(mouse x) < [-50]> and <mouse down?>>>> then\n            set [左右 v] to [左]\n            change [x v] by (-1)\n        else\n            set [左右 v] to [前]\n        end\n    end\n    change x by (x)\n    set [x v] to ((x) * (0.9))\n    if <touching (地面 v)?> then\n        x座標補正\n    end\n    change y by (y)\n    if <touching (地面 v)?> then\n        y座標補正\n    end\n    if <touching (バネ v)?> then\n        set [y v] to [22]\n    end\n    if <<touching (障害物 v)?> or <<<(costume [number v]) < [4]> and <(y position) < [-180]>> or <<[3] < (costume [number v])> and <(y position) < [-165]>>>> then\n        set [x v] to [0]\n        set [y v] to [0]\n        start sound [Crunch v]\n        go to x: (-200) y: (-50)\n        set [判定 v] to [1]\n        wait until <(判定) = [0]>\n    end\n    if <[240] < (x position)> then\n        set [x v] to [0]\n        set [y v] to [0]\n        change [ステージ v] by (1)\n        start sound [High Whoosh v]\n        go to x: (-200) y: (-50)\n        if <(ステージ) < [9]> then\n            set [判定 v] to [1]\n            wait until <(判定) = [0]>\n        end\n    end\nend\n\ndefine y座標補正\nif <[0] < (y)> then\n    repeat until <not <touching (地面 v)?>>\n        change y by (-1)\n    end\nelse\n    repeat until <not <touching (地面 v)?>>\n        change y by (1)\n    end\nend\nset [y v] to [0]\nif <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n    set [y v] to [15]\nend\n\ndefine x座標補正\nif <[0] < (x)> then\n    repeat until <not <touching (地面 v)?>>\n        change x by (-1)\n    end\nelse\n    repeat until <not <touching (地面 v)?>>\n        change x by (1)\n    end\nend\nif <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n    set [y v] to [14]\n    if <(x) < [0]> then\n        set [x v] to [10]\n    else\n        set [x v] to [-10]\n    end\nelse\n    set [x v] to [0]\nend\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nrepeat (10)\n    change size by (-5)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I start as a clone\nset [固有ステージ v] to (ステージ)\nwait until <not <(固有ステージ) = (ステージ)>>\nrepeat (2)\n    change size by (-10)\n    change [ghost v] effect by (30)\nend\ndelete this clone\n\nwhen I receive [スタート v]\nforever\n    switch costume to (join (join (上下) (左右)) [向き])\nend\n\nwhen I receive [スタート v]\nforever\n    if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<(mouse y) < [-120]> and <mouse down?>>> then\n        set [上下 v] to [下]\n    else\n        set [上下 v] to [上]\n    end\nend\n\n@地面\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@バネ\n\nwhen I receive [スタート v]\ngo to x: (0) y: (5)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@背景\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\ngo to [front v] layer\ngo [backward v] (1) layers\nset size to (100) %\npoint in direction (90)\nshow\n言語は？\nforever\n    switch costume to ((ステージ) + (<(言語) = [English]> * (10)))\nend\n\ndefine 言語は？\nif <(language::translate) = [日本語]> then\n    set [言語 v] to [日本語]\nelse\n    set [言語 v] to [English]\nend\n\n@太陽\n\nwhen I receive [スタート v]\ngo to x: (210) y: (140)\nswitch costume to (太陽 v)\nset [cos v] to [0]\ngo to [back v] layer\nset size to (90) %\npoint in direction (90)\nforever\n    change [cos v] by (8)\n    change size by ([cos v] of (cos) )\nend\n\n@クローン\n\nwhen I receive [スタート v]\nswitch costume to (click to start v)\ngo to x: (0) y: (0)\nset drag mode [not draggable v]\nset size to (100) %\npoint in direction (90)\nhide\nset [id v] to [1]\n\nwhen I start as a clone\nif <(ID) = [1]> then\n    set [雑用 v] to [0]\n    go to [front v] layer\n    show\n    forever\n        change [雑用 v] by (8)\n        turn right ([cos v] of (雑用) ) degrees\n        change size by ([sin v] of (雑用) )\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [1]> then\n    set [ghost v] effect to (100)\n    repeat (2)\n        change [ghost v] effect by (-50)\n    end\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    stop [other scripts in sprite v]\n    set [判定 v] to [0]\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    delete this clone\nelse\n    show\nend\n\nwhen I receive [スタート v]\nset [判定 v] to [1]\nforever\n    wait until <(判定) = [1]>\n    create clone of (_myself_ v)\n    wait until <(判定) = [0]>\nend\n\nwhen I receive [スタート v]\nset [time v] to [0]\nforever\n    if <(判定) = [0]> then\n        change [time v] by (1)\n        wait (1) seconds\n    end\nend\n\nwhen I receive [スタート v]\nwait (0) seconds\nwait until <(ステージ) = [10]>\nstop [other scripts in sprite v]\nif <(Time) < (☁ Best Time)> then\n    set [☁ best time v] to (Time)\nend\nset [id v] to [2]\nクローン (Time) [-154] [160]\nクローン (☁ Best Time) [-154] [138]\ngo to x: (-200) y: (160)\nswitch costume to ((11) + <(言語) = [English]>)\nset size to (60) %\nshow\n\ndefine クローン (何？) (x) (y)\ngo to x: (x) y: (y)\nset [雑用 v] to [0]\nset size to (50) %\nrepeat (length of (何？))\n    change [雑用 v] by (1)\n    switch costume to (letter (雑用) of (何？))\n    create clone of (_myself_ v)\n    change x by (13)\nend\n\n@雲\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\n    wait (pick random (1.5) to (2)) seconds\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset [必需品 v] to (pick random (50) to (120))\ngo to x: (280) y: ((170) - (必需品))\nswitch costume to (pick random (1) to (2))\nset [ghost v] effect to (pick random (0) to (50))\ngo to [back v] layer\ngo [forward v] (5) layers\nset rotation style [left-right v]\npoint in direction (pick random (-90) to (90))\nset size to ((85) + ((必需品) / (2))) %\nshow\nrepeat until <(x position) < [-260]>\n    change x by ((0) - (round ((必需品) / (15))))\nend\nrepeat (5)\n    change [ghost v] effect by (20)\n    change x by ((0) - (round ((必需品) / (15))))\nend\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (サムネ v)\nset size to (100) %\nshow\nforever\n    go to [front v] layer\nend\n\n
English is below!\n一応タイムあるから速くゴールしてね！\nステージ少なくてごめん。\n続編作りました↓\nhttps://scratch.mit.edu/projects/629028409/\nI have time, so please finish immediately!\nI'm sorry I didn't have enough stages.\nI made a sequel↓\nhttps://scratch.mit.edu/projects/629028409/