-Season-  A scroll platformer

Instructions: 矢印キーまたは、タップで操作！（当たり前）\nマグマやとげに当たったら４ぬよ！\nあと、秋に降ってくるどんぐりに3回当たったら４ぬよ！しかもほぼ不可避ｗ（どんぐりの攻撃力やばすぎ）\n夏は熱中症で視界がめっちゃきもくなるよ！\n冬は視界がどんどん曇っていくよ！\nチェックポイントは…無い！

@Stage\n\nwhen flag clicked\nforever\n    play sound [nagagutsudeodekake v] until done\nend\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    if <not <(costume [number v]) = [2]>> then\n        change [xの力 v] by (1)\n        point in direction (90)\n    end\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    if <not <(costume [number v]) = [2]>> then\n        change [xの力 v] by (-1)\n        point in direction (-90)\n    end\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    if <not <(costume [number v]) = [2]>> then\n        set [yの力 v] to [15]\n    end\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\nend\nif <touching (スプライト4 v)?> then\n    if <(costume [number v]) = [1]> then\n        if <(コスチューム) = [0]> then\n            switch costume to (コスチューム1 v)\n            broadcast (ドッカ―ン v)\n            go to [back v] layer\n        end\n    end\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)?>>)))\n\ndefine 位置補正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 (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ（春） v)?>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nset [コスチューム v] to [0]\nswitch costume to (コスチューム2 v)\nset [季節 v] to [1]\nshow\npoint in direction (90)\ngo to [front v] layer\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]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\nwhen flag clicked\nshow\nforever\n    if <(季節) = [2]> then\n        change [pixelate v] effect by (0.1)\n    else\n        set [pixelate v] effect to (0)\n    end\nend\n\nwhen I receive [どんぐり v]\n初期位置\n\nwait until <(costume [number v]) = [1]>\n\nwhen I receive [どかどかどっか～ん！ v]\ngo to x: (1) y: (0)\nset [コスチューム v] to [1]\ngo to [back v] layer\nswitch costume to (コスチューム2 v)\npoint in direction (90)\nrepeat (50)\n    set [xの力 v] to [50]\n    set [yの力 v] to [10]\nend\ngo to [front v] layer\nset [コスチューム v] to [0]\n\nwhen [timer v] > (0)\nhide\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 <<([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\nforever\n    wait (30) seconds\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    wait (90) seconds\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\nend\n\nwhen flag clicked\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [1]\nステージ配置 [960] [0] [2]\nステージ配置 [860] [250] [3]\nステージ配置 [300] [250] [4]\nステージ配置 [100] [250] [4]\nステージ配置 [-200] [385] [1]\nステージ配置 [-600] [385] [5]\nステージ配置 [-900] [385] [5]\nステージ配置 [-1000] [700] [4]\nステージ配置 [-1000] [900] [4]\nステージ配置 [-1000] [1100] [4]\nステージ配置 [-1000] [1300] [4]\nステージ配置 [-400] [1650] [6]\nステージ配置 [-1000] [1500] [4]\nステージ配置 [1300] [2000] [1]\nステージ配置 [1780] [2000] [7]\nステージ配置 [2260] [2000] [1]\nステージ配置 [2260] [2250] [1]\nステージ配置 [2740] [2000] [8]\nステージ配置 [2740] [1000] [9]\nswitch costume to (none v)\nbroadcast (プログラム v)\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 <<([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 flag clicked\nhide\nステージ配置 [2260] [2000] [1]\nステージ配置 [2260] [2250] [1]\nステージ配置 [1780] [2000] [7]\nステージ配置 [1300] [2000] [1]\nステージ配置 [-400] [1650] [6]\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [1]\nステージ配置 [960] [0] [2]\nステージ配置 [860] [250] [3]\nステージ配置 [300] [250] [4]\nステージ配置 [100] [250] [4]\nステージ配置 [-200] [385] [1]\nステージ配置 [-600] [385] [5]\nステージ配置 [-900] [385] [5]\nステージ配置 [-1000] [700] [4]\nステージ配置 [-1000] [900] [4]\nステージ配置 [-1000] [1100] [4]\nステージ配置 [-1000] [1300] [4]\nステージ配置 [-1000] [1500] [4]\nステージ配置 [2740] [2000] [8]\nステージ配置 [2740] [1000] [9]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\nforever\n    set [ghost v] effect to (100)\n    wait (30) seconds\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\n    wait (30) seconds\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    wait (60) seconds\nend\n\nwhen I start as a clone\nshow\nforever\n    if <(季節) = [2]> then\n        change [pixelate v] effect by (0.1)\n    else\n        set [pixelate v] effect to (0)\n    end\nend\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 <<([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 flag clicked\nhide\nステージ配置 [2740] [1000] [9]\nステージ配置 [2740] [2000] [8]\nステージ配置 [2260] [2000] [1]\nステージ配置 [2260] [2250] [1]\nステージ配置 [1780] [2000] [7]\nステージ配置 [1300] [2000] [1]\nステージ配置 [-400] [1650] [6]\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [1]\nステージ配置 [960] [0] [2]\nステージ配置 [860] [250] [3]\nステージ配置 [300] [250] [4]\nステージ配置 [100] [250] [4]\nステージ配置 [-200] [385] [1]\nステージ配置 [-600] [385] [5]\nステージ配置 [-900] [385] [5]\nステージ配置 [-1000] [700] [4]\nステージ配置 [-1000] [900] [4]\nステージ配置 [-1000] [1100] [4]\nステージ配置 [-1000] [1300] [4]\nステージ配置 [-1000] [1500] [4]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\nforever\n    set [ghost v] effect to (100)\n    wait (60) seconds\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\n    wait (30) seconds\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    wait (30) seconds\nend\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 <<([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 flag clicked\nhide\nステージ配置 [2740] [1000] [9]\nステージ配置 [2740] [2000] [8]\nステージ配置 [1300] [2000] [1]\nステージ配置 [-400] [1650] [6]\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [1]\nステージ配置 [960] [0] [2]\nステージ配置 [860] [250] [3]\nステージ配置 [300] [250] [4]\nステージ配置 [2740] [1500] [9]\nステージ配置 [100] [250] [4]\nステージ配置 [-200] [385] [1]\nステージ配置 [-600] [385] [5]\nステージ配置 [-900] [385] [5]\nステージ配置 [-1000] [700] [4]\nステージ配置 [-1000] [900] [4]\nステージ配置 [-1000] [1100] [4]\nステージ配置 [2260] [2000] [1]\nステージ配置 [2260] [2250] [1]\nステージ配置 [-1000] [1300] [4]\nステージ配置 [1780] [2000] [7]\nステージ配置 [-1000] [1500] [4]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\nforever\n    set [ghost v] effect to (100)\n    wait (90) seconds\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\n    wait (30) seconds\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\nend\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 <<([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\n\nwhen flag clicked\ngo to [back v] layer\nhide\nステージ配置 [480] [0] [1]\nステージ配置 [-200] [385] [2]\nステージ配置 [-400] [1650] [3]\nステージ配置 [1780] [2000] [4]\nステージ配置 [2260] [2000] [5]\nswitch costume to (none v)\n\nwhen I start as a clone\nshow\nforever\n    if <(季節) = [2]> then\n        change [pixelate v] effect by (0.1)\n    else\n        set [pixelate v] effect to (0)\n    end\nend\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 size to (大きさ) %\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 <<([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\nforever\n    set [ghost v] effect to (0)\n    wait (29.8) seconds\n    repeat (4)\n        change [ghost v] effect by (25)\n    end\n    if <(My_n) < [5]> then\n        change [my_n v] by (1)\n    else\n        set [my_n v] to [2]\n    end\n    repeat (4)\n        change [ghost v] effect by (-25)\n    end\nend\n\nwhen flag clicked\nset [季節 v] to [1]\nwait () seconds\ngo to [back v] layer\nhide\nステージ配置 [0] [0] [1] [100]\nステージ配置 [277] [0] [1] [80]\nステージ配置 [490] [0] [1] [120]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nshow\n\nwhen I start as a clone\nshow\nforever\n    if <(季節) = [2]> then\n        change [pixelate v] effect by (0.1)\n    else\n        set [pixelate v] effect to (0)\n    end\nend\n\nwhen flag clicked\nforever\n    set [ghost v] effect to (0)\n    wait (30) seconds\n    if <(季節) < [4]> then\n        change [季節 v] by (1)\n    else\n        set [季節 v] to [1]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nset [どんぐり v] to [0]\nhide\ngo to [back v] layer\nset y to (152)\nforever\n    if <(季節) = [1]> then\n        switch costume to (コスチューム1 v)\n        create clone of (_myself_ v)\n        wait (0.4) seconds\n    end\n    if <(季節) = [3]> then\n        switch costume to (コスチューム3 v)\n        create clone of (_myself_ v)\n        wait (0.7) seconds\n    end\n    if <(季節) = [4]> then\n        switch costume to (コスチューム2 v)\n        create clone of (_myself_ v)\n        wait (0.3) seconds\n    end\nend\n\nwhen I start as a clone\nshow\nset x to (pick random (-200) to (200))\nset y to (152)\nforever\n    if <(季節) = [1]> then\n        repeat until <<touching (_edge_ v)?> or <touching (ステージ（春） v)?>>\n            change x by (-5)\n            change y by (-10)\n        end\n    end\n    if <(季節) = [3]> then\n        repeat until <<touching (_edge_ v)?> or <touching (ステージ（秋） v)?>>\n            change x by (-6)\n            change y by (-12)\n        end\n    end\n    if <(季節) = [4]> then\n        repeat until <<touching (_edge_ v)?> or <touching (ステージ（冬） v)?>>\n            change x by (-4)\n            change y by (-8)\n        end\n    end\n    point in direction (105)\n    if <<<touching (_edge_ v)?> or <touching (ステージ（春） v)?>> or <<touching (ステージ（秋） v)?> or <touching (ステージ（冬） v)?>>> then\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (player v)?> then\n        if <(季節) = [3]> then\n            hide\n            change [どんぐり v] by (1)\n            if <(どんぐり) = [3]> then\n                set [どんぐり v] to [0]\n                broadcast (どんぐり v)\n            end\n            delete this clone\n        end\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nset [ghost v] effect to (100)\nwait (1) seconds\ngo to [front v] layer\nforever\n    switch costume to (コスチューム1 v)\n    go to x: (0) y: (0)\n    go to [front v] layer\n    if <(季節) = [4]> then\n        change [ghost v] effect by (-0.1)\n    else\n        set [ghost v] effect to (100)\n    end\nend\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nswitch costume to (コスチューム2 v)\n\n@スプライト4\n\nwhen I start as a clone\nshow\nswitch costume to (大砲 v)\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 v)\nset size to (大きさ) %\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nwait () seconds\ngo to [back v] layer\nhide\nステージ配置 [-200] [1600] [1] [70]\nswitch costume to (none v)\nbroadcast (プログラム v)\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\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([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 [ドッカ―ン v]\nswitch costume to (大砲 v)\nrepeat (5)\n    wait (0.1) seconds\n    change [my_n v] by (1)\nend\nrepeat (7)\n    change [my_n v] by (1)\nend\nbroadcast (どかどかどっか～ん！ v)\nset [my_n v] to [2]\n\nwhen I start as a clone\nshow\nforever\n    if <(季節) = [2]> then\n        change [pixelate v] effect by (0.1)\n    else\n        set [pixelate v] effect to (0)\n    end\nend\n\n