Long Platformer　〜大長編プラットフォーマー〜


@Stage\n\nwhen flag clicked\nreset timer\nbroadcast (スタート v)\n\nwhen I receive [スタート v]\nset [ステージ v] to [1]\nforever\n    play sound [Vexento - Snowflakes v] until done\nend\n\n@空白\n\ngo to x: (0) y: (0)\n\n@Scratch Cat\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 [12]\n    if <(x) < [0]> then\n        set [x v] to [8]\n    else\n        set [x v] to [-8]\n    end\nelse\n    set [x v] to [0]\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 [14]\nend\n\nwhen I receive [スタート v]\nforever\n    if <(状態) = [歩]> then\n        if <(コスチューム) = [18]> then\n            set [コスチューム v] to [3]\n        else\n            change [コスチューム v] by (1)\n        end\n    else\n        set [コスチューム v] to [2]\n    end\nend\n\nwhen I receive [スタート v]\ngo to x: (-200) y: (-50)\nswitch costume to (stand v)\nset rotation style [left-right v]\nset drag mode [not draggable v]\ngo to [front v] layer\ngo [forward v] (1) layers\nset [状態 v] to [無]\nset [x v] to [0]\nset [y v] to [0]\nset size to (35) %\npoint in direction (90)\nwait until <<mouse down?> or <key (any v) pressed?>>\nforever\n    switch costume to (hit box v)\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        point in direction (90)\n        change [x v] by (0.8)\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            point in direction (-90)\n            change [x v] by (-0.8)\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 [20]\n    end\n    if <touching (進むやつ v)?> then\n        change [x v] by (0.6)\n    end\n    if <touching (戻るやつ v)?> then\n        change [x v] by (-0.6)\n    end\n    if <touching (浮くやつ v)?> then\n        if <(y) < [-4]> then\n            set [y v] to [-3]\n        end\n        change [y v] by (1.2)\n    end\n    if <<touching (障害物 v)?> or <(y position) < [-178]>> then\n        set [x v] to [0]\n        set [y v] to [0]\n        set [状態 v] to [無]\n        switch costume to (stand v)\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 <[238] < (x position)> then\n        set [x v] to [0]\n        set [y v] to [0]\n        set [状態 v] to [無]\n        change [ステージ v] by (1)\n        switch costume to (stand v)\n        start sound [High Whoosh v]\n        go to x: (-200) y: (-50)\n        if <(ステージ) < [31]> then\n            set [判定 v] to [1]\n            wait until <(判定) = [0]>\n        end\n    end\n    switch costume to (コスチューム)\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 (-4)\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\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: (5)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\nchange [ステージ v] by (27)\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: (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]\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 <(ステージ) = [31]>\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) [-155] [160]\nクローン (☁ Best Time) [-155] [138]\ngo to x: (-101) y: (73)\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@Back\n\nwhen I receive [スタート v]\nクローン [Back] [6]\nクローン [Sun] [2]\n\ndefine クローン (名前) (回数)\nset [名前 v] to (名前)\nset [id v] to [0]\nrepeat (回数)\n    change [id v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(名前) = [Back]> then\n    switch costume to (ID)\n    show\n    set [雑用 v] to (pick random (0) to (360))\n    forever\n        go to x: (0) y: ((0) + (([cos v] of (((timer) + (雑用)) * (200)) ) * (2)))\n        go to [back v] layer\n        go [backward v] (ID) layers\n    end\nend\n\nwhen I start as a clone\nif <(名前) = [Sun]> then\n    switch costume to (sun v)\n    show\n    set [雑用 v] to (pick random (0) to (360))\n    forever\n        go to x: (64) y: (35)\n        set size to ((100) + (([sin v] of ((timer) * (200)) ) * (5))) %\n        go to [back v] layer\n    end\nend\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 (137) %\nshow\nforever\n    go to [front v] layer\nend\n\n