platformer : プラットフォーマー　

Instructions: ll English ll       (日本語は下)\n\n▨Method of operation =========================\nThis game can be controlled with arrow keys or tap.\n\n▨Tags =====================================\n#games #game #all #platformer #water #scratch #s20\n#s20210158 #fun #gimmick\n\n▨Credit ====================================\nreference:@YY-H\ntimer costume:@YY-H\n♡and☆:@nekomegane870\nmusic:@-Xaf-\n\n▨Time ====================================\n||Example||\n50.000(75.000)\nGoal (hidden goal)\n\n\n\n\nll日本語ll\n\n▨操作方法==================================\n矢印キーまたはタップで操作できます。\n\n▨タグ=====================================\n#ゲーム #プラットフォーマー #水中 #楽しい #ｳｺﾞｹｲｺｳ\n#ギミック\n\n▨クレジット================================\n参考:@YY-H\nタイマーのコスチューム:@YY-H\n♡と☆:@nekomegane870\n音楽:@-Xaf-\n\n▨タイム====================================\n||例||\n50.000(75.000)\n\n\n\n\n

@Stage\n\nwhen I receive [スタート v]\nforever\n    play sound [Thousand_Absolutes_Xaf_Remix v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (1 v)\nwait until <([costume # v] of [地面 v]) = [12]>\nswitch costume to (2 v)\nwait until <([costume # v] of [地面 v]) = [13]>\nswitch costume to (3 v)\n\n@キャラ\n\ndefine 着地\nif <(Y) < [0]> then\n    repeat until <not <<touching (地面 v)?> or <touching (動く床 v)?>>>\n        change y by (1)\n    end\nelse\n    repeat until <not <<touching (地面 v)?> or <touching (動く床 v)?>>>\n        change y by (-1)\n    end\nend\nset [y v] to [0]\n\nwhen I receive [スタート v]\nset size to (80) %\nshow\ngo to x: (-200) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    switch costume to (キャラ)\n    if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n        if <not <(costume [number v]) = [3]>> then\n            point in direction (90)\n        end\n        if <touching (水 v)?> then\n            if <(X) < [6]> then\n                change [x v] by (0.5)\n            else\n                set [x v] to [6]\n            end\n        else\n            if <(X) < [8]> then\n                change [x v] by (1)\n            else\n                set [x v] to [8]\n            end\n        end\n    end\n    if <<<mouse down?> and <(mouse x) < (x position)>> or <key (left arrow v) pressed?>> then\n        if <not <(costume [number v]) = [3]>> then\n            point in direction (-90)\n        end\n        if <touching (水 v)?> then\n            if <(X) < [-6]> then\n                set [x v] to [-6]\n            else\n                change [x v] by (-0.5)\n            end\n        else\n            if <(X) < [-8]> then\n                set [x v] to [-8]\n            else\n                change [x v] by (-1)\n            end\n        end\n    end\n    set [x v] to ((X) * (0.91))\n    change x by (X)\n    if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n                            change y by (1)\n                            if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n                                change x by ((0) - (X))\n                                change y by (-5)\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 [5]\n                                        if <(X) < [0]> then\n                                            set [x v] to [5]\n                                        else\n                                            set [x v] to [-5]\n                                        end\n                                    else\n                                        set [y v] to [12]\n                                        if <[0] < (X)> then\n                                            set [x v] to [-8]\n                                        else\n                                            set [x v] to [8]\n                                        end\n                                        start sound [Jump v]\n                                    end\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching (水 v)?> then\n        change [y v] by (-0.25)\n    else\n        change [y v] by (-1)\n    end\n    change y by (Y)\n    if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n        着地\n    end\n    change y by (-2)\n    if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n        if <touching (水 v)?> then\n            if <[4] < (Y)> then\n                set [y v] to [4]\n            else\n                change [y v] by (0.75)\n            end\n        end\n        if <<touching (地面 v)?> or <touching (動く床 v)?>> then\n            switch costume to (右上1 v)\n            set [y v] to [16]\n            start sound [Jump v]\n        end\n    end\n    change y by (1)\n    if <touching (バネ下 v)?> then\n        set [y v] to [24]\n    end\n    if <touching (バネ上 v)?> then\n        set [y v] to [-20]\n    end\n    if <[235] < (x position)> then\n        if <([costume # v] of [地面 v]) = [4]> then\n            go to x: (-200) y: (-100)\n        else\n            if <([costume # v] of [地面 v]) = [11]> then\n                go to x: (-200) y: (190)\n            else\n                go to x: (-200) y: (0)\n            end\n        end\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        next\n    end\n    if <(キャラ) = [6]> then\n        change [color v] effect by (-1)\n    end\n    if <touching (動く床 v)?> then\n        change x by ((item (1) of [動く地面x v]) - (item (2) of [動く地面x v]))\n        change y by ((item (1) of [動く地面y v]) - (item (2) of [動く地面y v]))\n        if <touching color (#ff6666)?> then\n            change x by (-2)\n        end\n        if <touching color (#9966ff)?> then\n            change x by (2)\n        end\n    end\n    if <(costume [number v]) = [3]> then\n        set rotation style [all around v]\n        if <touching (地面 v)?> then\n            turn right ((X) * (1.7)) degrees\n        else\n            turn right ((X) * (0.8)) degrees\n        end\n    else\n        set rotation style [left-right v]\n    end\nend\n\ndefine next\nrepeat until <not <touching (地面 v)?>>\n    change y by (1)\nend\n\nwhen flag clicked\nhide\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [スタート v]\nshow\n\n@棘\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (-10)\nhide\n\nwhen I receive [next v]\nshow\nnext costume\n\nwhen I receive [スタート v]\nshow\n\nwhen I receive [ボタン v]\nhide\n\ndefine next\n\n@水\n\nwhen flag clicked\nset [ghost v] effect to (15)\nhide\nwait until <([costume # v] of [地面 v]) = [12]>\nswitch costume to (1 v)\nshow\nwait until <([costume # v] of [地面 v]) = [13]>\nswitch costume to (2 v)\n\n@スタート\n\nwhen flag clicked\nshow\nset [スタート v] to [0]\nset size to (100) %\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to ( v)\nset x to (-75)\nset size to (75) %\nforever\n    set y to ((70) + (([sin v] of ((timer) * (300)) ) * (10)))\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    repeat until <(スタート) = [1]>\n        change y by ([sin v] of ((timer) * (160)) )\n    end\n    delete this clone\nelse\n    repeat until <(スタート) = [1]>\n        go to x: (0) y: (0)\n    end\n    delete this clone\nend\n\nwhen I receive [スタート v]\nhide\n\n@キャラ選択\n\nwhen flag clicked\nshow\nset size to (100) %\nset [キャラ v] to [1]\nswitch costume to (黒 v)\ngo to x: (-90) y: (-23)\nreset timer\nforever\n    キャラ\nend\n\ndefine キャラ\nrepeat until <(キャラ) = (costume [number v])>\n    next costume\nend\n\nwhen I receive [キャラ v]\nset size to (80) %\nrepeat (10)\n    change size by (((100) - (size)) / (3))\nend\n\nwhen I receive [スタート v]\nhide\n\n@右\n\nwhen flag clicked\nshow\ngo to x: (-20) y: (-23)\nset size to (100) %\nreset timer\n\nwhen this sprite clicked\nbroadcast (キャラ v)\nif <(キャラ) = [6]> then\n    set [キャラ v] to [1]\nelse\n    change [キャラ v] by (1)\nend\nset size to (80) %\nrepeat (10)\n    change size by (((100) - (size)) / (3))\nend\n\nwhen I receive [スタート v]\nhide\n\n@左\n\nwhen flag clicked\nshow\ngo to x: (-160) y: (-23)\nset size to (100) %\nreset timer\n\nwhen this sprite clicked\nbroadcast (キャラ v)\nif <(キャラ) = [1]> then\n    set [キャラ v] to [6]\nelse\n    change [キャラ v] by (-1)\nend\nset size to (80) %\nrepeat (10)\n    change size by (((100) - (size)) / (3))\nend\n\nwhen I receive [スタート v]\nhide\n\n@START\n\nwhen flag clicked\nstart sound [You Said v]\nset volume to (100) %\nshow\ngo to x: (157) y: (106)\nchange y by (-50)\n\nwhen this sprite clicked\nset [スタート v] to [1]\nbroadcast (スタート v)\nset size to (80) %\nrepeat (10)\n    change size by (((100) - (size)) / (3))\nend\n\nwhen I receive [スタート v]\nset volume to (0) %\nhide\n\n@BGM\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\ngo to x: (157) y: (0)\nchange y by (-50)\n\nwhen this sprite clicked\nbroadcast (音量 v)\nnext costume\nset size to (80) %\nrepeat (10)\n    change size by (((100) - (size)) / (3))\nend\n\nwhen I receive [スタート v]\nhide\n\n@動く床\n\nwhen flag clicked\nwait (0.1) seconds\nswitch costume to (コスチューム1 v)\ndelete all of [動く地面x v]\ndelete all of [動く地面y v]\nset y to (0)\nset x to (0)\nforever\n    if <<([costume # v] of [地面 v]) = [7]> or <([costume # v] of [地面 v]) = [8]>> then\n        if <([costume # v] of [地面 v]) = [7]> then\n            switch costume to (コスチューム1 v)\n            insert (x position) at (1) of [動く地面x v] \n            insert (y position) at (1) of [動く地面y v] \n            show\n            set x to ((0) + (([sin v] of ((timer) * (70)) ) * (80)))\n            set y to ((80) + (([sin v] of ((timer) * (70)) ) * (80)))\n        else\n            switch costume to (コスチューム2 v)\n            create clone of (_myself_ v)\n            switch costume to (コスチューム3 v)\n            create clone of (_myself_ v)\n            hide\n            stop [this script v]\n        end\n    else\n        hide\n    end\n    delete (3) of [動く地面x v]\n    delete (3) of [動く地面y v]\nend\n\nwhen I receive [スタート v]\nreset timer\n\nwhen I start as a clone\nforever\n    if <([costume # v] of [地面 v]) = [8]> then\n        delete all of [動く地面x v]\n        delete all of [動く地面y v]\n        if <(costume [number v]) = [3]> then\n            go to x: (141) y: (-55)\n            show\n            turn right (-2) degrees\n        else\n            go to x: (-58) y: (-39)\n            show\n            turn right (2) degrees\n        end\n    else\n        hide\n    end\nend\n\n@ボタン\n\nwhen flag clicked\nhide\nwait (0.1) seconds\nwait until <([costume # v] of [地面 v]) = [9]>\nswitch costume to (1 v)\nshow\nwait until <touching (キャラ v)?>\nstart sound [ポップ v]\nrepeat (2)\n    next costume\n    wait (0) seconds\nend\nbroadcast (ボタン v)\n\n@バネ下\n\nwhen flag clicked\nhide\nforever\n    if <<([costume # v] of [地面 v]) = [10]> or <([costume # v] of [地面 v]) = [10]>> then\n        go to x: (0) y: (-30)\n        switch costume to (3 v)\n        show\n        if <touching (キャラ v)?> then\n            repeat (5)\n                next costume\n            end\n        end\n    else\n        hide\n    end\nend\n\n@バネ上\n\nwhen flag clicked\nhide\nforever\n    if <<([costume # v] of [地面 v]) = [10]> or <([costume # v] of [地面 v]) = [10]>> then\n        go to x: (0) y: (-30)\n        switch costume to (3 v)\n        show\n        if <touching (キャラ v)?> then\n            repeat (5)\n                next costume\n            end\n        end\n    else\n        hide\n    end\nend\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\n\n@タイム\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\n\n@タイム2\n\nwhen I start as a clone\nchange x by (((タイム) - (1)) * (20))\nif <(タイム) = [1]> then\n    wait until <[100] < (timer)>\n    if <(ゴール) = [0]> then\n        show\n        repeat until <[1000] < (timer)>\n            if <(ゴール) = [0]> then\n                switch costume to ((letter (1) of (timer)) - (1))\n            end\n        end\n    end\nelse\n    if <(タイム) = [2]> then\n        wait until <[10] < (timer)>\n        show\n        repeat until <[100] < (timer)>\n            if <(ゴール) = [0]> then\n                switch costume to ((letter (1) of (timer)) - (1))\n            end\n        end\n        repeat until <[1000] < (timer)>\n            if <(ゴール) = [0]> then\n                switch costume to ((letter (2) of (timer)) - (1))\n            end\n        end\n    else\n        show\n        if <(タイム) = [3]> then\n            repeat until <[10] < (timer)>\n                if <(ゴール) = [0]> then\n                    switch costume to ((letter (1) of (timer)) - (1))\n                end\n            end\n            repeat until <[100] < (timer)>\n                if <(ゴール) = [0]> then\n                    switch costume to ((letter (2) of (timer)) - (1))\n                end\n            end\n            repeat until <[1000] < (timer)>\n                if <(ゴール) = [0]> then\n                    switch costume to ((letter (3) of (timer)) - (1))\n                end\n            end\n        else\n            if <(タイム) = [4]> then\n                repeat until <[10] < (timer)>\n                    if <(ゴール) = [0]> then\n                        switch costume to ((letter (3) of (timer)) - (1))\n                    end\n                end\n                repeat until <[100] < (timer)>\n                    if <(ゴール) = [0]> then\n                        switch costume to ((letter (4) of (timer)) - (1))\n                    end\n                end\n                repeat until <[1000] < (timer)>\n                    if <(ゴール) = [0]> then\n                        switch costume to ((letter (5) of (timer)) - (1))\n                    end\n                end\n            else\n                if <(タイム) = [5]> then\n                    repeat until <[10] < (timer)>\n                        if <(ゴール) = [0]> then\n                            switch costume to ((letter (4) of (timer)) - (1))\n                        end\n                    end\n                    repeat until <[100] < (timer)>\n                        if <(ゴール) = [0]> then\n                            switch costume to ((letter (5) of (timer)) - (1))\n                        end\n                    end\n                    repeat until <[1000] < (timer)>\n                        if <(ゴール) = [0]> then\n                            switch costume to ((letter (6) of (timer)) - (1))\n                        end\n                    end\n                else\n                    if <(タイム) = [6]> then\n                        repeat until <[10] < (timer)>\n                            if <(ゴール) = [0]> then\n                                switch costume to ((letter (5) of (timer)) - (1))\n                            end\n                        end\n                        repeat until <[100] < (timer)>\n                            if <(ゴール) = [0]> then\n                                switch costume to ((letter (6) of (timer)) - (1))\n                            end\n                        end\n                        repeat until <[1000] < (timer)>\n                            if <(ゴール) = [0]> then\n                                switch costume to ((letter (7) of (timer)) - (1))\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nswitch costume to (コスチューム8 v)\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nreset timer\nset [タイム v] to [0]\ngo to x: (-210) y: (142)\nrepeat (6)\n    change [タイム v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nset [ゴール v] to [0]\nforever\n    if <([costume # v] of [地面 v]) = [11]> then\n        set [ゴール v] to [1]\n    end\n    if <([costume # v] of [地面 v]) = [12]> then\n        set [ゴール v] to [0]\n    end\n    if <([costume # v] of [地面 v]) = [15]> then\n        set [ゴール v] to [1]\n    end\nend\n\n@ありがとう！\n\nwhen flag clicked\nbroadcast (♡&☆ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            wait (0.05) seconds\n            if <touching (mouse-pointer v)?> then\n                set [♡&☆ v] to (join [1] (letter (2) of (♡&☆)))\n                delete this clone\n            end\n        end\n    end\nelse\n    if <(costume [number v]) = [2]> then\n        show\n        forever\n            if <touching (mouse-pointer v)?> then\n                wait (0.05) seconds\n                if <touching (mouse-pointer v)?> then\n                    set [♡&☆ v] to (join (letter (1) of (♡&☆)) [1])\n                    delete this clone\n                end\n            end\n        end\n    else\n        go to x: (0) y: (0)\n        set size to (5) %\n        go to [front v] layer\n        show\n        repeat (8)\n            change size by (((size) + (5)) / (4))\n        end\n        repeat (25)\n            change size by (((100) - (size)) / (4))\n        end\n        repeat (10)\n            switch costume to (大 v)\n            change size by ((((0) - (size)) + (-5)) / (4))\n            switch costume to (ありがとう！ v)\n        end\n        delete this clone\n    end\nend\n\nwhen I receive [♡&☆ v]\nwait until <not <(♡&☆) = [11]>>\ngo to x: (-15) y: (0)\nswitch costume to (♡ v)\ncreate clone of (_myself_ v)\nswitch costume to (☆ v)\ncreate clone of (_myself_ v)\nwait until <(♡&☆) = [11]>\nwait (0.1) seconds\nswitch costume to (ありがとう！ v)\ncreate clone of (_myself_ v)\n\n