競争！？platformer 1k記念(もう1.6k)

Instructions: 新作！\nhttps://scratch.mit.edu/projects/756536281/\n\n前回のオンラインプラフォが荒らされたので、クラウド変数使わずに作りました。\n\n勝ったか負けたか、コメントで教えてね！\nｱﾄﾊｰﾄﾄﾎｼﾓｵｼﾃｸﾚﾙﾄｳﾚｼｲﾅ()

@Stage\n\nwhen flag clicked\nset [start v] to [0]\nswitch backdrop to (背景1 v)\nwait (0.1) seconds\nbroadcast (スターーと v)\n\nwhen I receive [スターーと v]\nswitch backdrop to (背景1 v)\nreset timer\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nforever\n    play sound [Before You Leave \[Xaf Remix\] v] until done\nend\n\n@　\n\n@キャラ\n\nchange y by (-2)\n\ndefine 落下\nchange y by (-1)\nif <not <(Y) < [0]>> 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\n\nwhen I receive [スターーと v]\npoint in direction (90)\nset size to (75) %\ngo to x: (-200) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nwait (0.3) seconds\nshow\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nforever\n    switch costume to (コスチューム1 v)\n    if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n        point in direction (90)\n        if <[7] < (X)> then\n            set [x v] to [7]\n        else\n            change [x v] by (1)\n        end\n    end\n    if <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>> then\n        point in direction (-90)\n        if <(X) < [-7]> then\n            set [x v] to [-7]\n        else\n            change [x v] by (-1)\n        end\n    end\n    set [x v] to ((X) * (0.91))\n    change x by (X)\n    if <touching (地面 v)?> then\n        壁キックだった気がする((\n    end\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching (地面 v)?> then\n        落下\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n        if <touching (地面 v)?> then\n            set [y v] to [14]\n            start sound [Jump v]\n        end\n    end\n    change y by (1)\n    change y by (1)\n    if <[235] < (x position)> then\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n        broadcast (next v)\n    end\n    if <touching (棘 v)?> then\n        start sound [Teleport2 v]\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <(y position) < [-180]> then\n        start sound [Teleport2 v]\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset [brightness v] effect to (-100)\nrepeat (5)\n    change size by (-5)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\ndefine 壁キックだった気がする((\nrepeat (6)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    change x by ((0) - (X))\n    if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n        set [y v] to [13]\n        if <[0] < (X)> then\n            change [x v] by (-10)\n        else\n            change [x v] by (10)\n        end\n        start sound [Jump v]\n    else\n        set [x v] to [0]\n    end\nend\nchange y by (-8)\n\nwhen I receive [スターーと v]\n\nforever\n    insert (x position) at ((length of [x v]) + (1)) of [x v] \n    insert (y position) at ((length of [y v]) + (1)) of [y v] \n    insert ([costume # v] of [地面 v]) at ((length of [ステージ v]) + (1)) of [ステージ v] \nend\n\n@地面\n\nwhen flag clicked\nerase all\nswitch costume to (コスチューム1 v)\nset size to (100) %\nhide\n\nwhen I receive [next v]\nnext costume\n\n\nwhen I receive [スターーと v]\n\nswitch costume to (コスチューム1 v)\nshow\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen I receive [next v]\ndelete this clone\n\ndefine \nerase all\nset size to (80) %\nset [brightness v] effect to (-20)\nrepeat (20)\n    stamp\n    change size by (1)\n    change [brightness v] effect by (1)\nend\n\n@棘\n\nwhen I receive [next v]\ngo to x: (0) y: (0)\nset [qp v] to [0]\nshow\nnext costume\nwait (0) seconds\n　　　　　　　　　　　　　　　　　　　　　\nset size to (100) %\nif <(costume [number v]) = [4]> then\n    forever\n        change [qp v] by (3)\n        change y by (() - ([sin v] of ((qp) * (3)) ))\n    end\nend\nif <(costume [number v]) = [6]> then\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [スターーと v]\n　　　　　　　　　　　　　　　　　　　　　\nswitch costume to (コスチューム1 v)\nshow\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム12 v)\nforever\n    change [qp v] by (3)\n    change y by (() - ([sin v] of ((qp) * (3)) ))\nend\n\ndefine 　　　　　　　　　　　　　　　　　　　　　\nset size to (90) %\nset [brightness v] effect to (-10)\nrepeat (10)\n    stamp\n    change size by (1)\n    change [brightness v] effect by (1)\nend\n\n@サムネ\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n@s20\n\nwhen I receive [スターーと v]\nshow\nset [わわわ v] to [0]\nset [ghost v] effect to (30)\nforever\n    ブロック名\nend\n\nwhen flag clicked\nhide\n\ndefine ブロック名\nchange [わわわ v] by (1)\ngo to x: (item (わわわ) of [x v]) y: (item (わわわ) of [y v])\nif <(item (わわわ) of [ステージ v]) = ([costume # v] of [地面 v])> then\n    show\nelse\n    hide\nend\n\n