climb platformer _ プラットフォーマー 【Mobile 対応】
@Stage\n\nwhen I receive [スタート v]\nforever\n    play sound [PIKASONIC - Osaka Express  v] until done\nend\n\n@player\n\nwhen flag clicked\nhide\n\ndefine 操作\nset rotation style [left-right v]\nforever\n    change [y v] by (-1)\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.9))\n    change x by (X)\n    if <<touching (地面 v)?> and <not <touching color (#595959)?>>> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            start sound [壁キック v]\n            set [y v] to [11.5]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <<touching (地面 v)?> and <not <touching color (#595959)?>>> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            start sound [High Whoosh v]\n            set [y v] to [13]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    \n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    \n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (ufo v)?> then\n        set [y v] to [0]\n        change y by (Y)\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (東京タワー v)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (Y)\n    if <<touching (柱 v)?> or <touching (柱２ v)?>> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (東京タワー v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    \n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (ufo v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [15]\n        end\n    end\n    \n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <<touching (地面 v)?> and <not <touching color (#595959)?>>> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            start sound [High Whoosh v]\n            set [y v] to [14]\n        end\n    end\n    if <touching color (#595959)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (雷 v)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (空き缶 v)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <(x position) > [240]> then\n        hide\n        broadcast (次！ v)\n        wait (0.6) seconds\n        初期化\n        show\n    end\n    if <[-178] > (y position)> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (バネ v)?> then\n        start sound [ボヨン v]\n        set [y v] to [20]\n    end\nend\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-186) y: (-10)\n\nwhen I receive [intro終了 v]\nforever\n\nwhen I receive [本番 v]\n操作\n\nwhen I receive [スタート v]\nset [ghost v] effect to (0)\nset [❤★ v] to [0]\nswitch costume to (コスチューム2 v)\ngo to x: (9) y: (-28)\nset size to (35) %\nhide\n\nwhen I receive [本番 v]\nshow\nwait (0.1) seconds\ngo to [front v] layer\n\nwhen I receive [本番 v]\n初期化\n\nwhen I receive [本番 v]\nif <([costume # v] of [スプライト1 v]) = [1]> then\n    switch costume to (コスチューム2 v)\nend\nif <([costume # v] of [スプライト1 v]) = [2]> then\n    switch costume to (コスチューム3 v)\nend\nif <([costume # v] of [スプライト1 v]) = [3]> then\n    switch costume to (コスチューム4 v)\nend\nif <([costume # v] of [スプライト1 v]) = [4]> then\n    switch costume to (コスチューム5 v)\nend\nif <([costume # v] of [スプライト1 v]) = [6]> then\n    switch costume to (コスチューム6 v)\nend\n\n@イラスト\n\n@サムネ\n\nwhen flag clicked\ngo to x: (5) y: (-1)\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nset [サムネの動き v] to [-25]\nwait (0.01) seconds\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\nshow\ngo to x: (0) y: (300)\nrepeat (10)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (1.45)\nend\nrepeat (20)\n    change y by (サムネの動き)\n    change [サムネの動き v] by (0.5)\nend\n\n@intro\n\nwhen flag clicked\nstart sound ((0) + (1))\nset volume to (100) %\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (costume1 v)\nset size to (100) %\npoint in direction (90)\ncreate clone of (_myself_ v)\nrepeat (2)\n    Screen Refresh # [1] i [100]\n    wait (0.6) seconds\n    Screen Refresh # [1] i [0]\n    wait (0.6) seconds\nend\ngo to x: (0) y: (0)\nswitch costume to (c1 v)\ncreate clone of (_myself_ v)\nset [brightness v] effect to (0)\nrepeat (30)\n    switch costume to (c2 v)\n    create clone of (_myself_ v)\nend\nwait (0.5) seconds\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nScreen Refresh # [2] i [0]\nwait (2.5) seconds\nset [brightness v] effect to (5)\nswitch costume to (slide v)\ngo to x: (0) y: (-300)\nrepeat (3)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    change [brightness v] effect by (30)\nend\nstop [this script v]\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    repeat (2)\n        clear graphic effects\n        wait (0.6) seconds\n        set [brightness v] effect to (100)\n        wait (0.6) seconds\n    end\nelse\n    if <(costume [number v]) = [2]> then\n        set [ghost v] effect to (0)\n        wait (i1) seconds\n        repeat (10)\n            change size by (-6)\n            change [ghost v] effect by (10)\n        end\n    else\n        if <(costume [number v]) = [3]> then\n            set [brightness v] effect to (0)\n            set size to (0) %\n            repeat (30)\n                change size by (((100) - (size)) / (10))\n                change [ghost v] effect by (-4)\n            end\n            repeat (18)\n                switch costume to (blank v)\n                change size by ((size) / (4))\n                switch costume to (c1 v)\n            end\n        else\n            if <(costume [number v]) = [4]> then\n                go to (random position v)\n                repeat (10)\n                    change x by ((x position) / (-4))\n                    change y by ((y position) / (-4))\n                    change [ghost v] effect by (-10)\n                end\n                delete this clone\n            else\n                if <(costume [number v]) = [6]> then\n                    set [i1 v] to [50]\n                    set size to (0) %\n                    clear graphic effects\n                    repeat (64)\n                        change size by (((100) - (size)) / (4))\n                        point in direction ((90) + (([tan v] of (i1) ) * (5)))\n                        change [i1 v] by (5)\n                    end\n                    repeat (9)\n                        turn right (((180) - (direction)) / (4)) degrees\n                        change size by ((size) / (-4))\n                        change [ghost v] effect by (20)\n                    end\n                else\n                    if <<(costume [number v]) > [6]> and <(costume [number v]) < [9]>> then\n                        clear graphic effects\n                        set size to (pick random (40) to (50)) %\n                        repeat (30)\n                            change x by (i1)\n                            change y by (i2)\n                            change [i2 v] by (-1)\n                            change [ghost v] effect by (3.5)\n                        end\n                    else\n                        if <(costume [number v]) = [9]> then\n                            set [ghost v] effect to (0)\n                            repeat (18)\n                                change x by ((x position) / (-4))\n                                change y by ((y position) / (-4))\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Screen Refresh # (#) i (i)\nif <(#) = [1]> then\n    set [i1 v] to [0.03]\n    switch costume to (costume2 v)\n    set [brightness v] effect to (i)\n    go to x: (0) y: (-150)\n    repeat (10)\n        create clone of (_myself_ v)\n        change y by (40)\n        change [i1 v] by (0.03)\n    end\nelse\n    if <(#) = [2]> then\n        repeat (30)\n            set [i1 v] to (pick random (-5) to (5))\n            set [i2 v] to (pick random (10) to (15))\n            switch costume to (pick random (7) to (8))\n            create clone of (_myself_ v)\n        end\n    end\nend\n\nwhen flag clicked\nshow\nwait (9.5) seconds\nstop [other scripts in sprite v]\nhide\nbroadcast (スタート v)\n\n@タイトル背景\n\nwhen flag clicked\ngo to x: (17) y: (-4)\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [スタート v]\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nshow\n\nwhen I receive [本番 v]\nswitch costume to (コスチューム2 v)\n\n@背景\n\nwhen flag clicked\nshow\ngo to [back v] layer\n\n@矢印\n\nwhen I receive [スタート v]\nshow\nwait (0.03) seconds\ngo to [front v] layer\n\nwhen flag clicked\nset [ghost v] effect to (0)\nset size to (70) %\nhide\n\nwhen I receive [スタート v]\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n    else\n        set size to (100) %\n    end\nend\n\nwhen this sprite clicked\nstart sound [ポップ v]\nbroadcast (コスチューム変更 v)\n\nwhen I receive [ゲーム開始 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\n@タイトル２\n\nwhen flag clicked\nset [ghost v] effect to (0)\nhide\n\nwhen I receive [スタート v]\nshow\nwait (0.03) seconds\ngo to [front v] layer\n\nwhen I receive [ゲーム開始 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\n@開始\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\nset [ghost v] effect to (0)\nwait (0.03) seconds\ngo to [front v] layer\n\nwhen I receive [スタート v]\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n    else\n        set size to (100) %\n    end\nend\n\nwhen this sprite clicked\nif <not <([costume # v] of [スプライト1 v]) = [5]>> then\n    broadcast (ゲーム開始 v)\n    start sound [タイプライターで文字を打つ1 v]\nend\n\nwhen I receive [ゲーム開始 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\n@スプライト1\n\nwhen I receive [コスチューム変更 v]\nshow\nif <(❤★) = [0]> then\n    if <(costume [number v]) = [5]> then\n        switch costume to (コスチューム2 v)\n    else\n        next costume\n    end\nend\nif <(❤★) = [1]> then\n    if <(costume [number v]) = [4]> then\n        switch costume to (コスチューム6 v)\n    else\n        next costume\n    end\nend\n\nwhen I receive [ゲーム開始 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nwait (0.3) seconds\nbroadcast (本番 v)\n\nwhen flag clicked\nset [始められる？ v] to [0]\nset [ghost v] effect to (0)\nhide\n\nwhen I receive [スタート v]\nswitch costume to (コスチューム2 v)\nshow\nwait (0.01) seconds\ngo to [front v] layer\n\nwhen I receive [ロック解除 v]\nif <(costume [number v]) = [5]> then\n    if <(❤★) = [1]> then\n        switch costume to (コスチューム6 v)\n        set [始められる？ v] to [1]\n    else\n        set [始められる？ v] to [0]\n    end\nend\n\n@☆\n\nwhen flag clicked\nset [❤★ v] to [0]\nset [☆ v] to [0]\ngo to x: (0) y: (0)\nhide\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(☆) = [0]> then\n            set [☆ v] to [1]\n        end\n        if <<(☆) = [1]> and <(❤) = [1]>> then\n            set [❤★ v] to [1]\n            broadcast (ロック解除 v)\n            stop [this script v]\n        end\n    end\n    wait until <not <touching (mouse-pointer v)?>>\nend\n\nwhen I receive [ロック解除 v]\nstop [other scripts in sprite v]\n\n@♡\n\nwhen I receive [スタート v]\nset [❤ v] to [0]\ngo to x: (0) y: (0)\nhide\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(❤) = [0]> then\n            set [❤ v] to [1]\n        end\n        if <<(☆) = [1]> and <(❤) = [1]>> then\n            set [❤★ v] to [1]\n            broadcast (ロック解除 v)\n            stop [this script v]\n        end\n    end\n    wait until <not <touching (mouse-pointer v)?>>\nend\n\nwhen I receive [ロック解除 v]\nstop [other scripts in sprite v]\n\nwhen flag clicked\nset [❤ v] to [0]\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [次！ v]\nif <not <(costume [number v]) = [9]>> then\n    start sound [シーン切り替え2 \(1\) v]\n    next costume\nend\n\ndefine タイマースタート\nset [タイム v] to [0]\nrepeat until <(costume [number v]) = [10]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\nif <(☁ 世界記録) > (タイム)> then\n    set [☁ 世界記録 v] to (タイム)\nend\nbroadcast (タイム v)\nbroadcast (世界記録 v)\n\nwhen I receive [本番 v]\nshow\nswitch costume to (block_2022_1_12-17_38_33 v)\nタイマースタート\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\nswitch costume to (block_2022_1_12-17_38_33 v)\nhide\nhide variable [タイム v]\ngo to x: (0) y: (-4)\npoint in direction (90)\nswitch backdrop to (コスチューム1 \(3\) v)\nset size to (100) %\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen I receive [本番 v]\nwait (0.02) seconds\ngo to [front v] layer\n\n@テキスト\n\nwhen flag clicked\nhide\n\nwhen I receive [本番 v]\nshow\ngo to [front v] layer\nswitch costume to (コスチューム2 v)\n\nwhen I receive [次！ v]\nif <([costume # v] of [地面 v]) = [9]> then\n    switch costume to (コスチューム1 v)\n    stop [this script v]\nend\nnext costume\n\n@雲\n\nwhen I receive [スタート v]\nhide\nforever\n    create clone of (_myself_ v)\n    wait (1.6) seconds\nend\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nswitch costume to (pick random (1) to (3))\ngo to x: (273) y: (pick random (79) to (136))\nglide (2) secs to x: (-273) y: (y position)\ndelete this clone\n\n@宣伝\n\nwhen flag clicked\ngo to x: (130) y: (200)\n\nwhen I receive [ロック解除 v]\ngo to [front v] layer\nrepeat (6)\n    change y by (-6)\nend\nrepeat (3)\n    change y by (-3)\nend\nrepeat (3)\n    change y by (-1)\nend\nstart sound [ポップ v]\nwait (3) seconds\nrepeat (8)\n    change y by (6)\nend\n\n
▼How to play\n　Move with WASD or arrow keys.\n　Let's go forward while avoiding obstacles.\n　If you get hit by a needle, you will die. take care\n　Don't forget to put ❤ and ★ if you find it interesting.\n▼遊び方\n　WASDキー、または矢印キーで移動します。\n　障害物を避けながら進みましょう。\n　針などに当たると死んでしまいます。気を付けて\n　面白かったら❤と★を忘れずに。\n\n▼概要\n　6月25日 17時50分：共有\n　6月26日 19時01分：270vew、❤36、★34\n　6月27日 18時36分：700vew、❤51、★52 傾向3P\n　6月28日 18時21分：2400vew❤100★95 ゲーム1P\n　6月29日 20時10分：7000vew❤240★220 傾向1P　\n　　　　　　　　　　　　　ゲーム7位　コミュ好き　\n    6月30日 17時02分：15000vew❤500★450 傾向4位!\n    7月1日 20時40分：26700vew❤960★870 傾向1位!!\n    7月2日 20時2分：32000vew❤1200★1050 傾向2位!\n    7月3日 19時02分：39000vew❤1400★1270\n    7月4日 20時50分：42800vew❤1490★1350 7位///\n                                               　