Spring Scrolling Platformer || 春のスクロールプラットフォーマー

Instructions: 傾向4位ゲームの傾向2位\n||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\n操作方法\nEnglish language↓\n＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿\n日本語\nPC             矢印キー　WASDキー\nモバイル　タッチ\nフォローよろしく！\n￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣\n___________________________________________________\nEnglish\nPC       Arrow Keys WASD Keys\nMobile Touch\nFollow me\n￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣\n___________________________________________________\nプログラム　katsuo777   様\n音楽　-Xaf-   様\n桜の花びら　 -Fluorite-   様\n━━━━━━━━━━━━━━━━━━━━━━━━━\n

@Stage\n\nwhen flag clicked\nforever\n    play sound [Anna Yvette - Waves \[Xaf Remix\] v] until done\nend\n\n@花びら\n\nwhen flag clicked\nhide\ngo to x: (180) y: (170)\npoint in direction (28)\nforever\n    repeat (5)\n        create clone of (_myself_ v)\n        wait (pick random (0.3) to (0.5)) seconds\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nswitch costume to (pick random (1) to (2))\nset [ghost v] effect to (pick random (25) to (100))\nshow\nset [s v] to (pick random (1) to (50))\nset size to (s) %\nset [スプライト10: x v] to (pick random (1) to (12))\nset [スプライト10: y v] to (pick random (1) to (-10))\npoint in direction (130)\nset rotation style [all around v]\nif <(size) < [40]> then\n    go to [back v] layer\nend\nif <[40] < (size)> then\n    go to [front v] layer\nend\nrepeat until <touching (_edge_ v)?>\n    turn right ((s) / (10)) degrees\n    change x by ((s) - ((s) * (1.05)))\n    change y by ((スプライト10: y) - ((スプライト10: y) * (0.6)))\n    if <(hsu) = [0]> then\n        go to [front v] layer\n    else\n        go to [back v] layer\n    end\nend\ndelete this clone\n\nwhen I receive [隠せ v]\nhide\nstop [all v]\n\n@花びら2\n\nwhen flag clicked\nhide\ngo to x: (180) y: (170)\npoint in direction (28)\nforever\n    repeat (5)\n        create clone of (_myself_ v)\n        wait (pick random (0.3) to (0.5)) seconds\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nswitch costume to (pick random (1) to (2))\nset [ghost v] effect to (pick random (25) to (100))\nshow\nset [s v] to (pick random (1) to (50))\nset size to (s) %\nset [スプライト10: x v] to (pick random (1) to (12))\nset [スプライト10: y v] to (pick random (1) to (-10))\npoint in direction (130)\nset rotation style [all around v]\nif <(size) < [40]> then\n    go to [back v] layer\nend\nif <[40] < (size)> then\n    go to [front v] layer\nend\nrepeat until <touching (_edge_ v)?>\n    turn right ((s) / (10)) degrees\n    change x by ((s) - ((s) * (1.05)))\n    change y by ((スプライト10: y) - ((スプライト10: y) * (0.6)))\n    if <(hsu) = [0]> then\n        go to [front v] layer\n    else\n        go to [back v] layer\n    end\nend\ndelete this clone\n\nwhen I receive [隠せ v]\nhide\nstop [all v]\n\n@帽子\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nforever\n    change [変数 v] by (1)\n    go to [front v] layer\nend\n\nwhen flag clicked\nhide variable [変数 v]\nforever\n    set [変数 v] to [0]\n    wait (0.001) seconds\n    if <[3] < (変数)> then\n        hide variable [タイム:time v]\n        switch costume to (ターボだめ絶対 v)\n        show\n        stop [all v]\n    else\n        hide\n    end\nend\n\n@危険物\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ndelete all of [障害物x v]\ndelete all of [障害物y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [150] [0] [1]\n配置 [700] [0] [2]\n配置 [5000] [300] [3]\n配置 [5500] [300] [4]\n配置 [5500] [50] [5]\n配置 [5500] [750] [6]\n配置 [5700] [1300] [7]\nhide\n\nwhen I start as a clone\n動き (item (a) of [障害物x v]) (item (a) of [障害物y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [障害物x v]\nadd (y) to [障害物y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\n@ばね\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ndelete all of [バネx v]\ndelete all of [バネy v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\n配置 [1000] [0] [1]\n配置 [3000] [400] [2]\n配置 [3200] [400] [3]\n配置 [3400] [400] [4]\n配置 [3700] [400] [5]\n配置 [4000] [400] [6]\n配置 [5490] [350] [7]\n配置 [5800] [920] [8]\n配置 [5800] [1300] [9]\n配置 [5800] [1800] [10]\nhide\n\nwhen I start as a clone\n動き (item (a) of [バネx v]) (item (a) of [バネy v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [バネx v]\nadd (y) to [バネy v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    ブロック名\n    if <touching (キャラ v)?> then\n        switch costume to (コスチューム2 v)\n    end\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\n@背景\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ngo to [back v] layer\ndelete all of [背景x v]\ndelete all of [背景y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n配置 [2000] [200] [6]\n配置 [2500] [200] [7]\n配置 [4500] [200] [8]\n配置 [5000] [200] [9]\n配置 [5500] [200] [10]\n配置 [5600] [750] [11]\nhide\n\nwhen I start as a clone\n動き (item (a) of [背景x v]) (item (a) of [背景y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [背景x v]\nadd (y) to [背景y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\nwhen flag clicked\nwait (1.8) seconds\nforever\n    go to [front v] layer\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\n@背景2\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ngo to [back v] layer\ndelete all of [背景x v]\ndelete all of [背景y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [5300] [200] [4]\n\nwhen I start as a clone\n動き (item (a) of [背景x v]) (item (a) of [背景y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [背景x v]\nadd (y) to [背景y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nhide\n\n@サムネ\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\nset [ghost v] effect to (0)\ngo to [front v] layer\nwait (1) seconds\ngo to [front v] layer\nrepeat (25)\n    change [ghost v] effect by (1)\n    go to [front v] layer\nend\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nhide variable [タイム:time v]\nhide variable [☁ 世界記録:world record v]\nforever\n    go to [front v] layer\n    show\n    switch costume to (コスチューム2 v)\nend\n\nshow\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\n\n@ステージ\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nswitch costume to (コスチューム)\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\n\nwhen flag clicked\ndelete all of [地面x v]\ndelete all of [地面y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n配置 [2000] [200] [6]\n配置 [2500] [200] [7]\n配置 [4500] [200] [8]\n配置 [5000] [200] [9]\n配置 [5500] [200] [10]\n配置 [5000] [100] [11]\n配置 [5500] [50] [12]\n配置 [5500] [550] [13]\n配置 [5500] [750] [14]\n配置 [5700] [1300] [15]\n配置 [5700] [1600] [16]\n配置 [5700] [1900] [17]\nhide\n\nwhen I start as a clone\n動き (item (a) of [地面x v]) (item (a) of [地面y v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [地面x v]\nadd (y) to [地面y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ncreate clone of (_myself_ v)\n\n@キャラ\n\nwhen flag clicked\ngo to [back v] layer\ngo [forward v] (1) layers\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to [0]\nset [視点x v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\nwait (2.1) seconds\ngo to [front v] layer\nforever\n    動き\nend\n\ndefine 動き\nif <(動き) = [0]> then\n    if <<<(mouse x) > [0]> and <mouse down?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n        point in direction (1)\n        change [x v] by (1)\n    end\n    if <<<[0] > (mouse x)> and <mouse down?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n        point in direction (-1)\n        change [x v] by (-1)\n    end\n    set [加速速度 v] to [0.9]\n    set [x v] to ((x) * (加速速度))\n    change x by (x)\n    repeat (15)\n        if <touching (ステージ v)?> then\n            change y by (1)\n        end\n    end\n    if <touching (ステージ v)?> then\n        壁\n    end\n    set [重力 v] to [-1]\n    change [y v] by (重力)\n    change y by (y)\n    if <touching (ステージ v)?> then\n        床\n    end\n    change y by (重力)\n    if <touching (ステージ v)?> then\n        if <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n            start sound [Jump v]\n            set [y v] to [15]\n        end\n    end\n    change y by (() - (重力))\n    if <<touching (危険物 v)?> or <(視点y) < [-300]>> then\n        start sound [Pew v]\n        broadcast (もう一回 v)\n    end\n    if <touching (ばね v)?> then\n        start sound [Jump v]\n        set [y v] to [20]\n    end\nend\n\ndefine 床\nrepeat until <not <touching (ステージ v)?>>\n    change y by ((((0) - (y)) / ([abs v] of (y) )) * ([abs v] of (重力) ))\nend\nset [y v] to [0]\n\ndefine 壁\nchange y by (-15)\nrepeat until <not <touching (ステージ v)?>>\n    change x by (([floor v] of (((0) - (x)) / ([abs v] of (x) )) ) * ([abs v] of (加速速度) ))\nend\nif <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n    start sound [Jump v]\n    set [y v] to [15]\n    set [x v] to ((((0) - (x)) / ([abs v] of (x) )) * (7))\nelse\n    set [x v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <[0] < (x)> then\n        change [視点x v] by ([ceiling v] of ((x position) / (10)) )\n    else\n        change [視点x v] by ([floor v] of ((x position) / (10)) )\n    end\n    change [視点y v] by ([floor v] of ((y position) / (5)) )\n    set [視点y v] to ((視点y) + (5))\n    if <[0] < (x)> then\n        change x by ([floor v] of (((0) - (x position)) / (10)) )\n    else\n        change x by ([ceiling v] of (((0) - (x position)) / (10)) )\n    end\n    change y by ([ceiling v] of (((0) - (y position)) / (5)) )\n    set y to ((y position) - (5))\nend\n\nwhen I receive [もう一回 v]\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to (復活y)\nset [視点x v] to (復活x)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\n\nwhen flag clicked\nhide variable [☁ 世界記録:world record v]\nhide variable [タイム:time v]\nwait (2.1) seconds\nset [タイム:time v] to [0]\nshow variable [タイム:time v]\nshow variable [☁ 世界記録:world record v]\nreset timer\nrepeat until <touching color (#ff66e0)?>\n    change [タイム:time v] by (0.1)\n    wait (0.04) seconds\nend\nif <(タイム:time) < (☁ 世界記録:world record)> then\n    set [☁ 世界記録:world record v] to (タイム:time)\n    show variable [☁ 世界記録:world record v]\n    say [世界記録を更新しました！おめでとう！] for (1000) seconds\nend\nshow variable [☁ 世界記録:world record v]\n\nset [☁ 世界記録:world record v] to [100]\n\n@中間地点\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <(item (a) of [到達 v]) = [1]> then\n    switch costume to (コスチューム)\nelse\n    switch costume to ((コスチューム) + (-1))\nend\n\nwhen flag clicked\ngo to [back v] layer\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [コスチューム v]\ndelete all of [到達 v]\nswitch costume to (コスチューム1 v)\n配置 [2200] [330] [1]\n配置 [5580] [-60] [3]\nhide\n\nwhen I start as a clone\nforever\n    動き (item (a) of [チェックポイントx v]) (item (a) of [チェックポイントy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nrepeat (2)\n    add (x) to [チェックポイントx v]\n    add (y) to [チェックポイントy v]\n    add [0] to [到達 v]\nend\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd ((コスチューム) + (2)) to [コスチューム v]\n\nwhen I start as a clone\nforever\n    if <touching (キャラ v)?> then\n        if <(item (a) of [到達 v]) = [0]> then\n            start sound [Collect v]\n            set [復活x v] to (item (a) of [チェックポイントx v])\n            set [復活y v] to (item (a) of [チェックポイントy v])\n            replace item (a) of [到達 v] with [1]\n        end\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine ブロック名\nset [a v] to [0]\nrepeat ((length of [コスチューム v]) / (2))\n    change [a v] by (2)\n    create clone of (_myself_ v)\nend\n\n