スイカゲームプラットフォーマー / Suika game platformer

Instructions: （日本語は下です！遊ぶ前に必ず読んでください。）\n\n【English】\nI would appreciate it if you would stop advertising.\n⚡️I'm seriously aiming for a trend, so please follow and spread the word about Star Heart⚡️\nIf it spreads, I might give you a star heart...?\n\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 12 stages in total! I wish you the best!\n\n|| A word\n Surprisingly, there are not many people posting watermelon game plans.\n\n|| Credits\n Player program @-seven7-\n next Dear @goriraf0612\n Intro @t9decode, @RentoGames\n Intro font @-Rubbyartz\n BGM, costumes, backgrounds, etc. @tkhs2011\n Thorn @YY-H\n Thumbnail @oro_9\n Clear text font meme\n\n\n|| People who spread the word\n@menmenma(((((\n@gitatesu\n@daitaiko\n@ma-sa-Games\n\n\n\n【日本語】\nまじで拡散お願いします(＞人＜;) ちなみに拡散とはスタジオに作品を入れることです!!\n宣伝はやめてくれると嬉しいです。\n⚡️本気で傾向目指してるんで星ハートフォロー拡散宣伝等よろしくお願いします⚡️\n拡散してくれたら星ハートを押すかも…？\n\n\n|| ルール説明\n ルールは普通のプラットフォーマーと同じです！左右キーで操作して、上キーを押すとジャンプできます！トゲに当たると死んでしまうので注意してください！全部で12ステージです！頑張ってください！\n\n|| ひとこと\n 意外とスイカゲームプラフォ投稿してる人少ない\n\n|| クレジット\n プレイヤーのプログラム @-seven7-様\n next @goriraf0612様\n Intro @t9decode様 @RentoGames様\n Introの文字 @-Rubbyartz様\n BGMやコスチューム、背景等 @tkhs2011様\n トゲ @YY-H様\n やられた時の効果音 @RentoGames様\n サムネ @oro_9様\n クリアの文字 font meme\n\n|| タグ\n #スイカゲーム #スイカ #プラットフォーマー #ゲーム #game #all #platformer #さくらんぼ #いちご #ぶどう #デコポン #柿 #りんご #梨 #もも #パイナップル #メロン\n#menmenma #拡散希望 #傾向乗りたい #傾向載りたい\n\n|| 更新履歴\n v1.0 今のところ共有\nv1.1 めり込んでバグを修正したかと思ってたけどまだめり込んでた\nv1.2 イントロの変更\nv1.3 桃の向き変更\nv1.4 クリアの時に壁を追加\nv1.5 イントロの色を毎回ランダムに (アイコンの色だけを変えたくなかったので変数を使ってみたら疲れた)\nv1.6 歩いているときに回転\nv1.7 一部ステージ変更\nv1.8 めり込むバグを修正しました\nv1.9 やられてしまった時に効果音を鳴らすように\n\n|| 拡散してくれた方々\n@menmenma様(((((\n@gitatesu様\n@daitaiko様\n@ma-sa-Games様\n\n

@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 [イントロ終わり/intro finish v]\nforever\n    wait (1) seconds\n    change [time v] by (1)\n    if <(ステージ) = []> 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 <(ステージ) = []>> then\n    change [ステージ v] by (1)\nend\n\nwhen I receive [イントロ終わり/intro finish v]\nforever\n    play sound [スイカゲームBGM v] until done\nend\n\n@player\n\nwhen flag clicked\nset [ステージ数 v] to [12]\nhide\n\nwhen I receive [イントロ終わり/intro finish v]\nshow\nforever\n    if <(ステージ) = [1]> then\n        switch costume to (さくらんぼ v)\n    end\n    if <(ステージ) = [2]> then\n        switch costume to (15 v)\n    end\n    if <(ステージ) = [3]> then\n        switch costume to (ぶどう v)\n    end\n    if <(ステージ) = [4]> then\n        switch costume to (デコポン v)\n    end\n    if <(ステージ) = [5]> then\n        switch costume to (柿 v)\n    end\n    if <(ステージ) = [6]> then\n        switch costume to (りんご v)\n    end\n    if <(ステージ) = [7]> then\n        switch costume to (梨 v)\n    end\n    if <(ステージ) = [8]> then\n        switch costume to (もも v)\n    end\n    if <(ステージ) = [9]> then\n        switch costume to (パイナップル v)\n    end\n    if <(ステージ) = [10]> then\n        switch costume to (メロン v)\n    end\n    if <<(ステージ) = [11]> or <(ステージ) = [12]>> then\n        switch costume to (スイカ v)\n    end\nend\n\ndefine 初期設定プログラム\nshow\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-210) y: (180)\npoint in direction (90)\n\nwhen I receive [イントロ終わり/intro finish v]\nshow\n初期設定プログラム\nforever\n    if <<key (right arrow v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (d v) pressed?>>> then\n        turn right (10) degrees\n        switch costume to (コスチューム1 v)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (a v) pressed?>>> then\n        turn left (10) degrees\n        switch costume to (コスチューム2 v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.89))\n    change x by (X)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change y by (-5)\n                            change x by ((X) * (-1))\n                            if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n                                if <(X) < [0]> then\n                                    start sound [くっつき v]\n                                    set [x v] to [10]\n                                else\n                                    start sound [くっつき v]\n                                    set [x v] to [-10]\n                                end\n                                set [y v] to [15]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (Y)\n    if <touching (地面 v)?> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n        if <touching (地面 v)?> then\n            start sound [可愛いジャンプ v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    if <[242] < (x position)> then\n        初期設定プログラム\n        broadcast (次のステージ v)\n        wait (1.3) seconds\n    end\n    if <(y position) < [-180]> then\n        初期設定プログラム\n        start sound [壁キック v]\n    end\n    if <touching (トゲ v)?> then\n        初期設定プログラム\n        start sound [壁キック v]\n    end\nend\n\n@地面\n\nwhen flag clicked\nset [ステージ数 v] to [1]\nhide\n\nwhen I receive [イントロ終わり/intro finish v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen I receive [イントロ終わり/intro finish v]\ngo to x: (0) y: (-75)\nrepeat (50)\n    change y by (((0) - (y position)) / (5))\nend\n\nwhen I receive [次のステージ v]\nwait (3) seconds\nchange [ステージ数 v] by (1)\n\nwhen I receive [イントロ終わり/intro finish 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 [イントロ終わり/intro finish v]\n\nwhen flag clicked\nhide\n\nset [color v] effect to (0)\n\nwhen I receive [イントロ終わり/intro finish v]\ngo to [back v] layer\nshow\nforever\n    switch costume to (ステージ)\nend\n\nshow\nforever\n    switch costume to (ステージ数)\nend\n\n@サムネ\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\nset [ghost v] effect to (0)\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]\nstart sound [Finger Snap v]\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\nif <(username) = [menmenma]> then\nelse\nend\n\n@ピッタリ地面\n\nwhen flag clicked\nforever\n    hide\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\nforever\n    if <(ステージ) = [12]> then\n        show\n        go to [back v] layer\n    else\n        hide\n    end\nend\n\n@intro\n\nwhen I start as a clone\nset [color v] effect to (0)\nif <(cloneID) = [logo]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (logo v)\n    repeat until <[101] > (size)>\n        switch costume to (bit v)\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (logo v)\n    end\n    repeat until <[66] > (size)>\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n    end\n    set [clone_dir v] to [0.5]\n    repeat until <(size) > [100]>\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n    end\n    repeat (7)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n        switch costume to (logo v)\n    end\n    hide\n    switch costume to (square1 v)\n    set [cloneid v] to [square2]\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    set [cloneid v] to [square3]\n    create clone of (_myself_ v)\n    set [cloneid v] to [kirbyzaz]\n    create clone of (_myself_ v)\n    set [cloneid v] to [back3]\n    create clone of (_myself_ v)\n    repeat (8)\n        set [clone_size v] to [50]\n        set [cloneid v] to [square1]\n        create clone of (_myself_ v)\n        set [cloneid v] to [back2]\n        create clone of (_myself_ v)\n        broadcast (\[INTRO\]size v)\n        switch costume to (square1 v)\n        wait (0.561) seconds\n    end\n    broadcast (\[INTRO\]spin v)\n    delete this clone\nend\nset [color v] effect to (色)\n\nwhen I start as a clone\nif <(cloneID) = [back]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (blackbar1 v)\n    repeat until <[175] > (size)>\n        switch costume to (bit v)\n        change size by (((174) - (size)) / (6.9))\n        change [clone_dir v] by (((65) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (back v)\n    end\n    set [clone_dir v] to [0.5]\n    repeat (15)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        switch costume to (back v)\n        turn right ((clone_dir) / (12)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [b1]> then\n    switch costume to (blackbar1 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((125) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((-1) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [b2]> then\n    switch costume to (blackbar2 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((-125) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((1) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\nend\n\nwhen flag clicked\nset [色 v] to (pick random (10) to (100))\nset [color v] effect to (色)\npoint in direction (90)\nreset timer\nstart sound [ v]\nwait (0.7) seconds\nhide\nset [cloneid v] to [b1]\ncreate clone of (_myself_ v)\nset [cloneid v] to [b2]\ncreate clone of (_myself_ v)\nwait (0.3) seconds\nset [cloneid v] to [back]\ncreate clone of (_myself_ v)\nset [cloneid v] to [logo]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(cloneID) = [square1]> then\n    go to [back v] layer\n    go [forward v] (3) layers\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    repeat until <(size) > [100]>\n        change size by (((clone_size) - (size)) / (5))\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by (((clone_size) - (size)) / (5))\n        switch costume to (clone_cos)\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back2]> then\n    switch costume to (back2 v)\n    clear graphic effects\n    set [ghost v] effect to (50)\n    show\n    go to [front v] layer\n    repeat (25)\n        change [ghost v] effect by (2)\n    end\n    hide\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back3]> then\n    go to x: (0) y: (0)\n    show\n    switch costume to (back3 v)\n    set [s v] to [90]\n    show\n    set [clone_dir v] to [90]\n    \n        switch costume to (bit v)\n        set size to (100) %\n        go to [back v] layer\n        change [clone_dir v] by (((s) - (clone_dir)) / (5))\n        point in direction (clone_dir)\n        switch costume to (back3 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [square3]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [square2]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\]size v]\nif < (cloneID) contains [square]?> then\n    if <[350] < (clone_dir)> then\n        set [clone_dir v] to [0]\n    end\n    change [clone_size v] by ((clone_size) * (1.5))\n    change [clone_dir v] by (22.5)\nend\nif <(cloneID) = [back3]> then\n    change [s v] by (90)\nend\n\nwhen I receive [\[intro\]spin v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [kirbyzaz]> then\n    set [clone_cos v] to (pick random (5) to (10))\n    change size by (30)\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [kirbyzaz]> then\n    show\n    set [clone_dir v] to [90]\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (bit v)\n    set size to (200) %\n    switch costume to (yourname v)\n    \n        switch costume to (bit v)\n        change size by (((120) - (size)) / (5))\n        switch costume to (yourname v)\n        go to [front v] layer\n        go [backward v] (2) layers\n    end\nend\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [b1]> then\n    set [clone_cos v] to [2]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\nif <(cloneID) = [b2]> then\n    set [clone_cos v] to [-5]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\n\nwhen I receive [\[intro\]end v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n    wait (1) seconds\n    if <(cloneID) = [b1]> then\n        change y by (1.5)\n        repeat until <(y position) > [200]>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar1 v)\n        end\n    else\n        change y by (-1.5)\n        repeat until <[-200] > (y position)>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar2 v)\n        end\n    end\n    delete this clone\nelse\n    hide\n    delete this clone\nend\n\nset [color v] effect to (色)\n\nwhen I receive [\[intro\]end v]\nbroadcast (イントロ終わり/intro finish v)\n\n