autumn platformer / 秋のプラットフォーマー
@Stage\n\nwhen flag clicked\nset [ステージ v] to [1]\nset [time v] to [0]\nhide variable [☁ time v]\nhide variable [time v]\n\nwhen I receive [プロジェクトスタート v]\nforever\n    wait (0.1) seconds\n    change [time v] by (0.1)\n    if <(ステージ) = [10]> then\n        show variable [time v]\n        show variable [☁ time v]\n        if <(time) < (☁ time)> then\n            set [☁ time v] to (time)\n        end\n        stop [this script v]\n    end\nend\n\nwhen I receive [次のステージ v]\nif <not <(ステージ) = [10]>> then\n    change [ステージ v] by (1)\nend\n\nwhen I receive [プロジェクトスタート v]\nforever\n    play sound [Thousand_Absolutes_Xaf_Remix v] until done\nend\n\n@player\n\ndefine 初期設定プログラム\nshow\npoint in direction (90)\nset [player: x v] to [0]\nset [player: y v] to [0]\ngo to x: (-220) y: (160)\n\ndefine 動作\nif <<key (right arrow v) pressed?> or <<<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> or >> then\n    point in direction (90)\n    change [player: x v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n    point in direction (-90)\n    change [player: x v] by (-1)\nend\nif <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n    change y by (1)\n    if <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n                    change x by ((player: x) * (-1))\n                    change y by (-5)\n                    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n                        if <(player: x) < [0]> then\n                            set [player: x v] to [10]\n                        else\n                            set [player: x v] to [-10]\n                        end\n                        set [player: y v] to [15]\n                    else\n                        set [player: x v] to [0]\n                    end\n                end\n            end\n        end\n    end\nend\nset [player: x v] to ((player: x) * (0.9))\nchange x by (player: x)\nif <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n    change y by (1)\nend\nchange y by (-1)\nif <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n    if <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n        set [player: y v] to [15]\n    end\nend\nchange y by (1)\nchange [player: y v] by (-1)\nchange y by (player: y)\nif <<touching (地面 v)?> or <touching (スプライト1 v)?>> then\n    change y by ((player: y) * (-1))\n    set [player: y v] to [0]\nend\nif <[240] < (x position)> then\n    初期設定プログラム\n    broadcast (次のステージ v)\n    wait (3) seconds\nend\nif <<touching (トゲ v)?> or <(y position) < [-154]>> then\n    初期設定プログラム\nend\n\nwhen I receive [プロジェクトスタート v]\n初期設定プログラム\nforever\n    動作\nend\n\nwhen I receive [プロジェクトスタート v]\nforever\n    switch costume to (止まる v)\nend\n\nwhen flag clicked\nset [ステージ数 v] to [10]\nhide\n\n@地面\n\nwhen flag clicked\nset [ステージ数 v] to [1]\nhide\n\nwhen I receive [プロジェクトスタート v]\nshow\nforever\n    switch costume to (ステージ数)\nend\n\nwhen I receive [プロジェクトスタート v]\ngo to x: (0) y: (-75)\nrepeat (50)\n    change y by (((0) - (y position)) / (5))\nend\n\nwhen I receive [次のステージ v]\nwait (1) seconds\nchange [ステージ数 v] by (1)\n\nwhen flag clicked\nhide variable [time v]\n\nwhen I receive [プロジェクトスタート v]\nwait (1) seconds\nreset timer\nset [time v] to [0]\nrepeat until <(ステージ数) = [10]>\n    repeat until <[1] < (timer)>\n        if <(ステージ数) = [10]> then\n            stop [this script v]\n        end\n    end\n    change [time v] by (1)\n    reset timer\nend\n\n@トゲ\n\nwhen I receive [プロジェクトスタート v]\ngo to [back v] layer\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen flag clicked\nhide\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n@No turbo mode\n\nwhen flag clicked\nhide\nswitch costume to (no turbo mode v)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nforever\n    turn right (0.0001) degrees\n    wait (0) seconds\nend\n\nwhen flag clicked\nforever\n    wait (1) seconds\n    point in direction (90)\nend\n\nwhen flag clicked\nforever\n    if <[90.1] < (direction)> then\n        show\n        switch costume to (ターボモードになりました v)\n        go to x: (0) y: (0)\n        stop [all v]\n    else\n        hide\n        switch costume to (no turbo mode v)\n    end\nend\n\n@NEXTだお\n\nwhen I start as a clone\nif <<(costume [name v]) = [1]> or <<(costume [name v]) = [2]> or <<(costume [name v]) = [3]> or <(costume [name v]) = [next]>>>> then\n    set [brightness v] effect to (0)\n    go to [front v] layer\n    set x to (-465)\n    set y to (0)\n    show\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\n    wait (0.9) seconds\n    delete this clone\nend\nif <<(costume [name v]) = [4]> or <<(costume [name v]) = [5]> or <(costume [name v]) = [6]>>> then\n    go to [front v] layer\n    change [color v] effect by (10)\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <<(costume [name v]) = [☆]> or <<(costume [name v]) = [♡]> or <(costume [name v]) = [👤]>>> then\n    set [color v] effect to (0)\n    go to [front v] layer\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <(costume [name v]) = [4]> then\n    wait (0.3) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [5]> then\n    wait (0.2) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [6]> then\n    wait (0.1) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [♡]> then\n    wait (0.2) seconds\n    repeat until <[319] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [👤]> then\n    wait (0.125) seconds\n    repeat until <[360] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [☆]> then\n    wait (0.2) seconds\n    repeat until <[185] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\ndefine クローン (名前)\nswitch costume to (名前)\ncreate clone of (_myself_ v)\n\nwhen I receive [次のステージ v]\nhide\nstart sound [High Whoosh v]\nクローン [1]\nwait (0.15) seconds\nクローン [2]\nwait (0.15) seconds\nクローン [3]\nwait (0.15) seconds\nクローン [next]\nwait (0.75) seconds\nクローン [5]\nwait (0.15) seconds\nクローン [6]\nwait (0.15) seconds\nクローン [7]\nクローン [☆]\nクローン [♡]\nクローン [👤]\nchange [color v] effect by (15)\n\nwhen flag clicked\nset [color v] effect to (pick random (-200) to (200))\n\nstart sound [Finger Snap v]\n\n@もみじ\n\nwhen I start as a clone\ngo to [back v] layer\nswitch costume to (pick random (1) to (3))\nset [a v] to (pick random (1) to (3))\nset size to (pick random (20) to (80)) %\nset [ghost v] effect to (pick random (30) to (50))\nshow\nif <(a) = [1]> then\n    go to x: (pick random (400) to (0)) y: (200)\nend\nif <(a) = [2]> then\n    go to x: (pick random (0) to (-270)) y: (200)\nend\nif <(a) = [3]> then\n    go to x: (pick random (400) to (-270)) y: (200)\nend\nrepeat until <(y position) < [-170]>\n    change y by (-3)\n    change x by (-1)\n    turn right (3) degrees\nend\ndelete this clone\n\nwhen I receive [プロジェクトスタート v]\nhide\nforever\n    create clone of (_myself_ v)\n    wait (0.1) seconds\nend\n\n@真イントロ素材\n\ndefine (秒) まで待つ\nwait until <(秒) < (timer)>\n\nwhen I start as a clone\nshow\nif <(ID) = [1]> then\n    go to [back v] layer\n    go [backward v] (1) layers\n    switch costume to (まるう v)\n    set [s v] to [100]\n    repeat (30)\n        change [fisheye v] effect by (S)\n        change [s v] by (10)\n    end\n    delete this clone\nend\nif <(ID) = [2]> then\n    go to [back v] layer\n    go [backward v] (1) layers\n    switch costume to (しかくう v)\n    repeat (19)\n        change [o v] by (((100) - (o)) / (3))\n        next costume\n    end\n    delete this clone\nend\nif <(ID) = [3]> then\n    switch costume to (透明 v)\n    set [o v] to [100]\n    switch costume to (フレーム v)\n    set [y v] to [100]\n    repeat (46)\n        change [y v] by (((0) - (Y)) / (3))\n        go to [front v] layer\n    end\n    repeat until <(END) = [1]>\n        go to [front v] layer\n    end\n    repeat (46)\n        change [y v] by (((93) - (Y)) / (3))\n    end\n    go to [front v] layer\n    delete this clone\nend\nif <(ID) = [4]> then\n    switch costume to (透明 v)\n    set [o v] to [100]\n    switch costume to (フレーム2 v)\n    set [y v] to [-100]\n    repeat (46)\n        change [y v] by (((0) - (Y)) / (3))\n        go to [front v] layer\n    end\n    repeat until <(END) = [1]>\n        go to [front v] layer\n    end\n    repeat (46)\n        change [y v] by (((-95) - (Y)) / (3))\n        go to [front v] layer\n    end\n    delete this clone\nend\nif <(ID) = [5]> then\n    set [o v] to [0]\n    go to [back v] layer\n    go [backward v] (3) layers\n    switch costume to (形ぃ2 v)\n    repeat until <(round (o)) = ((100) * (カメラZ))>\n        change [o v] by ((((100) * (カメラZ)) - (o)) / (3))\n        if <(END) = [1]> then\n            delete this clone\n        end\n    end\n    repeat until <(round (o)) = ((300) * (カメラZ))>\n        change [o v] by ((((300) * (カメラZ)) - (o)) / (3))\n        if <(END) = [1]> then\n            delete this clone\n        end\n    end\n    repeat until <(round (o)) = ((500) * (カメラZ))>\n        change [o v] by ((((500) * (カメラZ)) - (o)) / (3))\n        if <(END) = [1]> then\n            delete this clone\n        end\n    end\n    delete this clone\nend\nif <(ID) = [6]> then\n    go to [back v] layer\n    go [backward v] (1) layers\n    switch costume to (形ぃ3 v)\n    repeat (17)\n        next costume\n    end\n    delete this clone\nend\nif <(ID) = [7]> then\n    switch costume to (たて v)\n    go to x: (0) y: (0)\n    set [o v] to [0]\n    移動X [0] Y [0] M [-90] size [100] S [3]\n    repeat until <(END) = [1]>\n        go to [back v] layer\n    end\n    移動X [0] Y [0] M [90] size [1] S [3]\n    delete this clone\nend\nif <(ID) = [8]> then\n    switch costume to (icon v)\n    set [o v] to [0]\n    set [m v] to [90]\n    change [m v] by (1)\n    repeat (50)\n        set [s v] to (((S) * (0.75)) + ((((100) * (カメラZ)) - (o)) * (0.3)))\n        change [o v] by (S)\n        change [m v] by ([abs v] of (((90) - (M)) / (3)) )\n        if <(M) > [360]> then\n            set [m v] to [0]\n        end\n    end\n    repeat (15)\n        change [x v] by (((150) - (X)) / (3))\n        change [m v] by (((-90) - (M)) / (3))\n    end\n    repeat (15)\n        change [x v] by (((-150) - (X)) / (3))\n        change [m v] by (((90) - (M)) / (3))\n    end\n    repeat (15)\n        change [x v] by (((0) - (X)) / (3))\n    end\n    [7] まで待つ\n    delete this clone\nend\nif <(ID) = [9]> then\n    hide\n    [7] まで待つ\n    show\n    switch costume to (name v)\n    set [o v] to [0]\n    set [m v] to [90]\n    change [m v] by (1)\n    repeat (40)\n        set [s v] to (((S) * (0.75)) + ((((100) * (カメラZ)) - (o)) * (0.3)))\n        change [o v] by (S)\n        change [m v] by ([abs v] of (((90) - (M)) / (3)) )\n        if <(M) > [360]> then\n            set [m v] to [0]\n        end\n    end\n    wait (0.3) seconds\n    カメラX [50] Y [0] Z [1] M [0] S [3]\n    カメラX [-50] Y [0] Z [1] M [0] S [3]\n    カメラX [0] Y [0] Z [1] M [0] S [3]\n    [11] まで待つ\n    set [揺れ度 v] to [100]\n    change [end v] by (1)\n    repeat (17)\n        set [揺れx v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * (揺れ度))\n        set [揺れy v] to ((([cos v] of ((timer) * (500)) ) * (0.8)) * (揺れ度))\n        set [揺れm v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * ((揺れ度) / (3)))\n        change [揺れ度 v] by (((0) - (揺れ度)) / (3))\n        change [o v] by (((0) - (o)) / (3))\n    end\n    delete this clone\nend\n\ndefine クローン (id) X (x) Y (y) M (m) size (size) 色 (色) 明るさ (明るさ) 透明度 (透明度)\nset [color v] effect to (色)\nset [brightness v] effect to (明るさ)\nset [ghost v] effect to (透明度)\nset [x v] to (x)\nset [y v] to (y)\nset [m v] to (m)\nset [o v] to (size)\nset [id v] to (id)\ncreate clone of (_myself_ v)\nset [id v] to []\n\nwhen I start as a clone\nforever\n    go to x: (((揺れX) + ((X) + ((カメラX) + (カメラ揺れX)))) * (カメラZ)) y: (((揺れY) + ((Y) + ((カメラY) + (カメラ揺れY)))) * (カメラZ))\n    point in direction ((揺れM) + ((M) + ((カメラM) + (カメラ揺れM))))\n    if <<(ID) = [5]> and <(round (o)) > [100]>> then\n        switch costume to (透明 v)\n        set size to ((o) * (カメラZ)) %\n        switch costume to (形ぃ2 v)\n    else\n        set size to ((o) * (カメラZ)) %\n    end\nend\n\nwhen flag clicked\nリセット\nstart sound [Different Heaven - Safe And Sound \[NCS Release\].mp3 v]\n[1.6] まで待つ\nクローン [7] X [0] Y [0] M [90] size [1] 色 [] 明るさ [25] 透明度 []\n[3.5] まで待つ\nクローン [9] X [0] Y [0] M [90] size [1] 色 [] 明るさ [0] 透明度 []\nクローン [8] X [0] Y [0] M [90] size [1] 色 [] 明るさ [0] 透明度 []\n\ndefine リセット\nreset timer\npoint in direction (90)\nset [カメラx v] to [0]\nset [カメラy v] to [0]\nset [カメラm v] to [0]\nset [カメラz v] to [1]\nset [y v] to [0]\nset [s v] to [0]\nset [x v] to [0]\nset [end v] to [0]\nset [o v] to [0]\n\ndefine 揺れ度 (度)\nset [揺れ度 v] to (度)\nrepeat (17)\n    set [揺れx v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * (揺れ度))\n    set [揺れy v] to ((([cos v] of ((timer) * (500)) ) * (0.8)) * (揺れ度))\n    set [揺れm v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * ((揺れ度) / (3)))\n    change [揺れ度 v] by (((0) - (揺れ度)) / (3))\nend\n\ndefine 1回転\nset [m v] to [90]\nchange [m v] by (1)\nrepeat (46)\n    change [m v] by ([abs v] of (((90) - (M)) / (3)) )\n    if <(M) > [360]> then\n        set [m v] to [0]\n    end\nend\n\ndefine カメラ揺れ度 (度)\nset [カメラ揺れ度 v] to (度)\nrepeat (12)\n    set [カメラ揺れx v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * (カメラ揺れ度))\n    set [カメラy v] to ((([cos v] of ((timer) * (500)) ) * (0.8)) * (カメラ揺れ度))\n    set [カメラ揺れm v] to ((([sin v] of ((timer) * (500)) ) * (0.8)) * ((カメラ揺れ度) / (3)))\n    change [カメラ揺れ度 v] by (((0) - (カメラ揺れ度)) / (3))\nend\n\ndefine 移動X (x) Y (y) M (m) size (size) S (s)\nrepeat until <<(round (X)) = (x)> and <<(round (Y)) = (y)> and <<(round (M)) = (m)> and <(round (o)) = (size)>>>>\n    change [x v] by (((x) - (X)) / (s))\n    change [y v] by (((y) - (Y)) / (s))\n    change [m v] by (((m) - (M)) / (s))\n    change [o v] by (((size) - (o)) / (s))\nend\n\nwhen flag clicked\n[3.5] まで待つ\nrepeat (17)\n    カメラ揺れ度 [20]\nend\n\nwhen flag clicked\n[3.5] まで待つ\nrepeat (16)\n    クローン [5] X [0] Y [0] M [90] size [1] 色 [] 明るさ [25] 透明度 []\n    wait (0.5) seconds\nend\n\ndefine カメラX (x) Y (y) Z (z) M (m) S (s)\nrepeat until <<(round (カメラX)) = (x)> and <<(round (カメラY)) = (y)> and <<(round (カメラZ)) = (z)> and <(round (カメラM)) = (m)>>>>\n    change [カメラx v] by (((x) - (カメラX)) / (s))\n    change [カメラy v] by (((y) - (カメラY)) / (s))\n    change [カメラm v] by (((m) - (カメラM)) / (s))\n    change [カメラz v] by (((z) - (カメラZ)) / (s))\nend\n\nwhen flag clicked\n[3.5] まで待つ\nぼん [0] [0]\n[5.2] まで待つ\nぼん [150] [0]\nクローン [2] X [100] Y [100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\nクローン [2] X [-100] Y [100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\n[5.5] まで待つ\nぼん [-150] [0]\nクローン [1] X [100] Y [-100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\nクローン [1] X [-100] Y [-100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\n[7] まで待つ\nぼん [0] [0]\n[9.2] まで待つ\nぼん [150] [0]\nクローン [2] X [100] Y [100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\nクローン [2] X [-100] Y [100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\n[9.5] まで待つ\nぼん [-150] [0]\nクローン [1] X [100] Y [-100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\nクローン [1] X [-100] Y [-100] M [90] size [100] 色 [] 明るさ [100] 透明度 []\n\ndefine ぼん (x) (y)\npoint in direction (90)\nrepeat (12)\n    クローン [6] X (x) Y (y) M (direction) size [100] 色 [] 明るさ [100] 透明度 []\n    turn right (30) degrees\nend\n\nwhen flag clicked\nplay sound [Different Heaven - Safe And Sound \[NCS Release\].mp3 v] until done\nbroadcast (プロジェクトスタート v)\n\n@スプライト1\n\n@スプライト2\n\nwhen flag clicked\nhide\nforever\n    if <(ステージ) = [10]> then\n        show\n        go to [back v] layer\n    else\n        hide\n    end\nend\n\n
（日本語は下です）\n\n【English】\n\n|| Rule explanation\n The rules are the same as normal platformers! Operate with the left and right keys and press the up key to jump! Be careful as you will die if you hit the spikes! There are 10 stages in total! I wish you the best!\n\n|| A word\n Plafo will post once a month\n\n|| Credits\n Player program @-seven7-\n next Dear @goriraf0612\n Intro @tomato-2nd\n BGM @-Xaf-\n Background @Ganondorfisbetter\n Momiji program @Toratora22\n Momiji @akiyuki6000000000000\n Turbo mode detection function @Pikurin\n\n|| People who spread the word\nDear @menmenma(((((\nDear @sakkar\nDear @daitaiko\nDear @mtr-mitouroku\nDear @ryy_dayo\nDear @narakiyo\nDear @blue-8682\nDear @okadohidehiko\nDear @tibitoka\n\n【日本語】\n\n|| ルール説明\n ルールは普通のプラットフォーマーと同じです！左右キーで操作して、上キーを押すとジャンプできます！トゲに当たると死んでしまうので注意してください！全部で10ステージです！頑張ってください！\n\n|| ひとこと\n プラフォ月1投稿決定\n\n|| クレジット\n プレイヤーのプログラム @-seven7-様\n next @goriraf0612様\n Intro @tomato-2nd様\n BGM @-Xaf-様\n 背景 @Ganondorfisbetter様\n もみじのプログラム @Toratora22様\n もみじ @akiyuki6000000000000様\n ターボモード検知機能 @Pikurin様\n\n\n|| 拡散してくれた方々\n@menmenma様(((((\n@sakkar様\n@daitaiko様\n@mtr-mitouroku様\n@ryy_dayo様\n@narakiyo様\n@blue-8682様\n@okadohidehiko様\n@tibitoka様\n@fuji_3035様