The Scratch Platformer!

Instructions: Platformer Tutorial - Super Easy!\n\nFollow the instructions to make your own platformer!\n\nNow with added wall sensing.\n\n\n\n\n4/4/2020 Now has as many levels as you like!\n6/4/2020 Now with added wall sensing!

@Stage\n\nwhen flag clicked\n\nwhen flag clicked\nclear graphic effects\nforever\n    set volume to (音量) %\nend\n\n@自キャラ\n\nwhen I start as a clone\nif <(クローン何か) = [1]> then\n    switch costume to (右2 v)\n    go to [back v] layer\n    set size to (70) %\n    clear graphic effects\n    set [color v] effect to ([floor v] of (((140) + (スキン棒)) / (1.5)) )\n    change [brightness v] effect by (10)\n    repeat (10)\n        change [ghost v] effect by (10)\n        change size by (-7)\n    end\n    delete this clone\nelse\n    wait until <not <mouse down?>>\n    wait until <mouse down?>\n    delete this clone\nend\n\nwhen I receive [スタート v]\nset [中間地 v] to [0]\nset [スイッチ色 v] to [青]\nset [playerx v] to [0]\nset [playery v] to [0]\nset [復活地x v] to [0]\nset [復活地y v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [クローン何か v] to [0]\ncreate clone of (_myself_ v)\nbroadcast (クローンリセット v)\nbroadcast (リセット v)\nwait until <not <mouse down?>>\nwait until <mouse down?>\nforever\n    repeat until <<[-239] > (x position)> or <<touching (障害物 v)?> or <<<touching color (#ff0000)?> or <touching color (#005dff)?>> or <(y position) < [-166]>>>>\n        erase all\n        if <(playerx) < [5246]> then\n            change x by (-3)\n            change [playerx v] by (3)\n        else\n            if <(playery) < [2840]> then\n                change y by (-1)\n                change [playery v] by (1)\n            else\n                if <(playerx) < [7600]> then\n                    change x by (-5)\n                    change [playerx v] by (5)\n                end\n            end\n        end\n    end\n    set [playerx v] to (復活地x)\n    set [playery v] to (復活地y)\n    set [x v] to [0]\n    set [y v] to [0]\n    go to x: (-40) y: (0)\n    if <(中間地) = [3]> then\n        set [playerx v] to [5246]\n        go to x: (80) y: (0)\n    end\n    if <(中間地) = [5]> then\n        set [playerx v] to [5246]\n        go to x: (-73) y: (50)\n    end\n    start sound [Clang v]\n    broadcast (クローンリセット v)\n    broadcast (リセット v)\nend\n\nwhen I receive [スタート v]\npoint in direction (90)\nshow\nset size to (70) %\ngo to x: (-60) y: (-40)\nswitch costume to (右 v)\nset [color v] effect to ([floor v] of (((140) + (スキン棒)) / (1.5)) )\nwait until <not <mouse down?>>\nwait until <mouse down?>\nset [クローン何か v] to [1]\ncreate clone of (_myself_ v)\nforever\n    change y by (1)\n    change [y v] by (-1)\n    if <<key (d v) pressed?> or <<key (right arrow v) pressed?> or <<(mouse x) > (x position)> and <mouse down?>>>> then\n        change [x v] by (1)\n        create clone of (_myself_ v)\n        point in direction (90)\n    end\n    if <<key (a v) pressed?> or <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>>> then\n        change [x v] by (-1)\n        create clone of (_myself_ v)\n        point in direction (-90)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching (ステージ v)?> or <touching (アイテム v)?>> then\n        change y by (1)\n    end\n    if <<touching (ステージ v)?> or <touching (アイテム v)?>> then\n        change y by (1)\n    end\n    if <<touching (ステージ v)?> or <touching (アイテム v)?>> then\n        change y by (1)\n    end\n    if <<touching (ステージ v)?> or <touching (アイテム v)?>> then\n        change y by (1)\n    end\n    if <<touching (ステージ v)?> or <touching (アイテム v)?>> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        set [y v] to [0]\n        if <<key (w v) pressed?> or <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>>> then\n            set [y v] to [12]\n            if <(x) > [0]> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [y v] to [0]\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 ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> and <<touching (ステージ v)?> or <touching (アイテム v)?>>> then\n        start sound [Jump v]\n        set [y v] to [15]\n        create clone of (_myself_ v)\n    end\n    if <(x position) > [213]> then\n        set x to (213)\n    end\n    if <(y position) > [157]> then\n        set y to (157)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nif <(クローン何か) = [0]> then\n    show\n    point in direction (90)\n    go to x: (0) y: (30)\n    switch costume to (コスチューム1 v)\n    forever\n        repeat (20)\n            change [ghost v] effect by (5)\n        end\n        repeat (20)\n            change [ghost v] effect by (-5)\n        end\n    end\nend\n\nwhen I receive [スタート v]\nstop all sounds\nforever\n    play sound [w002 v] until done\nend\n\nwhen flag clicked\nwait (7) seconds\nstop all sounds\nrepeat until <(スタート) = [1]>\n    play sound [Dance Chill Out v] until done\nend\n\nwhen flag clicked\nforever\n    set volume to (音量) %\nend\n\nwhen flag clicked\nset [音量 v] to [0]\nforever\n    set volume to (音量) %\nend\n\n@ステージ\n\ndefine 指定 (x) (y) (コス)\nset [クローンx v] to (x)\nset [クローンy v] to (y)\nset [クローンコス v] to (コス)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nswitch costume to (join [コスチューム] (クローンコス))\nforever\n    if <<<((473) + (クローンx)) > (playerx)> and <(playerx) > ((-473) + (クローンx))>> and <<((355) + (クローンy)) > (playery)> and <(playery) > ((-349) + (クローンy))>>> then\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [リセット v]\n指定 [0] [0] [1]\n指定 ((477) * (1)) [0] [2]\n指定 ((477) * (2)) [0] [3]\n指定 ((477) * (3)) [0] [4]\n指定 ((477) * (4)) [0] [5]\n指定 ((477) * (5)) [0] [6]\n指定 ((477) * (6)) [0] [7]\n指定 ((477) * (7)) [0] [8]\n指定 ((477) * (8)) [0] [9]\n指定 ((477) * (9)) [0] [10]\n指定 ((477) * (10)) [0] [11]\n指定 ((477) * (11)) [0] [12]\n指定 ((477) * (11)) ((355) * (1)) [13]\n指定 ((477) * (11)) ((355) * (2)) [14]\n指定 ((477) * (11)) ((355) * (3)) [15]\n指定 ((477) * (11)) ((355) * (4)) [16]\n指定 ((477) * (11)) ((355) * (5)) [17]\n指定 ((477) * (11)) ((355) * (6)) [18]\n指定 ((477) * (11)) ((355) * (7)) [19]\n指定 ((477) * (11)) ((355) * (8)) [20]\n指定 ((477) * (12)) ((355) * (8)) [21]\n指定 ((477) * (13)) ((355) * (8)) [21]\n指定 ((477) * (14)) ((355) * (8)) [22]\n指定 ((477) * (15)) ((355) * (8)) [23]\n指定 ((477) * (16)) ((355) * (8)) [24]\n\nwhen I receive [クローンリセット v]\ndelete this clone\n\nset [playerx v] to [2700]\n\n@アイテム\n\nwhen I start as a clone\nif <<(コスチューム) > [0]> and <[5] > (コスチューム)>> then\n    set [範囲x v] to [259]\n    set [範囲y v] to [181]\nend\nif <(コスチューム) = [5]> then\n    set [範囲x v] to [276]\n    set [範囲y v] to [207]\nend\nforever\n    switch costume to (join [コスチューム] (コスチューム))\n    if <<<(playerx) > ((join [-] (範囲x)) + (クローンx))> and <((範囲x) + (クローンx)) > (playerx)>> and <<((181) + (クローンy)) > (playery)> and <(playery) > ((-181) + (クローンy))>>> then\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        show\n        if <<<<([y position v] of [自キャラ v]) < ((37) + (y position))> and <((31) + (y position)) < ([y position v] of [自キャラ v])>> and <<((-40) + (x position)) < ([x position v] of [自キャラ v])> and <([x position v] of [自キャラ v]) < ((40) + (x position))>>> and <<(コスチューム) = [3]> or <(コスチューム) = [1]>>> then\n            erase all\n            start sound [決定、ボタン押下44 v]\n            if <(コスチューム) = [1]> then\n                set [スイッチ色 v] to [赤]\n            end\n            if <(コスチューム) = [3]> then\n                set [スイッチ色 v] to [青]\n            end\n            change [コスチューム v] by (1)\n        end\n        if <<(コスチューム) = [5]> and <<<([y position v] of [自キャラ v]) < ((50) + (y position))> and <((32) + (y position)) < ([y position v] of [自キャラ v])>> and <<((-35) + (x position)) < ([x position v] of [自キャラ v])> and <([x position v] of [自キャラ v]) < ((35) + (x position))>>>> then\n            set [y v] to [20]\n            switch costume to (コスチューム5 v)\n            repeat (4)\n                next costume\n                go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n            end\n            repeat (4)\n                switch costume to (join [コスチューム] ((letter (7) of (costume [name v])) - (1)))\n                go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n            end\n        end\n    else\n        hide\n    end\nend\n\nwhen I receive [リセット v]\n指定 [3300] [-48] [1]\n指定 [4245] [113] [3]\n指定 [5437] [1328] [1]\n指定 [5200] [1780] [5]\n指定 [5406] [2472] [3]\n\ndefine 指定 (x) (y) (コス)\nset [動き v] to [0]\nset [クローンx v] to (x)\nset [クローンy v] to (y)\nset [コスチューム v] to (コス)\nset [範囲x v] to [250]\ncreate clone of (_myself_ v)\n\nwhen I receive [クローンリセット v]\ndelete this clone\n\nwhen flag clicked\nforever\n    set volume to (音量) %\nend\n\n@障害物\n\nwhen I start as a clone\nif <(コスチューム) = [6]> then\n    set [範囲x v] to [340]\n    set [範囲y v] to [280]\nend\nif <<(コスチューム) = [1]> or <(コスチューム) = [3]>> then\n    set [範囲y v] to [200]\n    set [範囲x v] to [257]\n    point in direction (90)\nend\nif <<(コスチューム) = [2]> or <(コスチューム) = [4]>> then\n    set [範囲y v] to [192]\n    set [範囲x v] to [257]\n    point in direction (90)\nend\nif <(コスチューム) = [5]> then\n    set [範囲y v] to [200]\n    set [範囲x v] to [257]\n    point in direction (90)\nend\nif <<(コスチューム) = [7]> or <(コスチューム) = [8]>> then\n    set [範囲y v] to [183]\n    set [範囲x v] to [241]\n    point in direction ((90) * (向き))\n    go to [back v] layer\nelse\n    point in direction (90)\n    set size to (100) %\nend\ngo to [back v] layer\nforever\n    switch costume to (join [コスチューム] (コスチューム))\n    if <<<(playerx) > ((join [-] (範囲x)) + (クローンx))> and <((範囲x) + (クローンx)) > (playerx)>> and <<((範囲y) + (クローンy)) > (playery)> and <(playery) > ((join [-] (範囲y)) + (クローンy))>>> then\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        show\n        if <(コスチューム) = [5]> then\n            針落下\n        end\n        if <(コスチューム) = [6]> then\n            turn right (4) degrees\n        end\n        if <(コスチューム) = [7]> then\n            if <(スイッチ色) = [青]> then\n                show\n            else\n                hide\n            end\n        end\n        if <(コスチューム) = [8]> then\n            if <(スイッチ色) = [赤]> then\n                show\n            else\n                hide\n            end\n        end\n    else\n        hide\n    end\nend\n\ndefine 指定 (x) (y) (コス) (向き)\nset [動き v] to [0]\nset [クローンx v] to (x)\nset [クローンy v] to (y)\nset [コスチューム v] to (コス)\nset [範囲x v] to [250]\nset [向き v] to (向き)\ncreate clone of (_myself_ v)\n\ndefine 針落下\nif <(動き) = [0]> then\n    repeat until <<<(x position) < (([x position v] of [自キャラ v]) + (60))> and <(([x position v] of [自キャラ v]) + (-60)) < (x position)>> and <(y position) < (([y position v] of [自キャラ v]) + (200))>>\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        repeat (3)\n            change [クローンx v] by (2)\n            go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        end\n        repeat (3)\n            change [クローンx v] by (-2)\n            go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        end\n    end\n    change [クローンy v] by (-5)\n    go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    repeat until <touching (ステージ v)?>\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        change [クローンy v] by (-5)\n        if <[-196] > (y position)> then\n            delete this clone\n        end\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    if <touching (ステージ v)?> then\n        change [クローンy v] by (1)\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n    end\n    set [動き v] to [1]\nend\n\nwhen I receive [リセット v]\n指定 [477] [-29] [1] []\n指定 [677] [-29] [1] []\n指定 [1300] [-29] [1] []\n指定 [1450] [-29] [1] []\n指定 [1750] [93] [3] []\n指定 [1850] [-29] [1] []\n指定 [2000] [-29] [1] []\n指定 [2150] [93] [5] []\n指定 [2300] [-29] [1] []\n指定 [2500] [-29] [1] []\n指定 [2750] [-85] [6] []\n指定 [3000] [100] [6] []\n指定 [3449] [-48] [7] [0]\n指定 [4429] [-100] [8] [0]\n指定 [5105] [176] [1] []\n指定 [5092] [280] [2] []\n指定 [5292] [410] [3] []\n指定 [5092] [780] [2] []\n指定 [5210] [1000] [4] []\n指定 [5092] [1210] [2] []\n指定 [5240] [1455] [7] [3]\n指定 [5050] [1800] [6] []\n指定 [5450] [1900] [6] []\n指定 [5230] [2270] [6] []\n指定 [5323] [2533] [5] []\n指定 [5138] [2594] [8] [3]\n指定 [5600] [2890] [5] []\n指定 [5680] [2890] [5] []\n指定 [5800] [2777] [1] []\n指定 [5900] [2890] [5] []\n指定 [6000] [2777] [1] []\n指定 [6150] [2777] [1] []\n指定 [6280] [2890] [5] []\n指定 [6400] [2777] [1] []\n指定 [6480] [2890] [5] []\n指定 [6550] [2890] [5] []\n指定 [6650] [2777] [1] []\n指定 [6750] [2890] [5] []\n指定 [6830] [2890] [5] []\n\nwhen I receive [リセット v]\ndelete this clone\n\nwhen I receive [クローンリセット v]\ndelete this clone\n\ndefine レーザー細かく\nif <not <touching (ステージ v)?>> then\n    move (2) steps\nend\nif <not <touching (ステージ v)?>> then\n    move (2) steps\nend\nif <not <touching (ステージ v)?>> then\n    move (2) steps\nend\n\nwhen flag clicked\nerase all\nbroadcast (クローン v)\n\ndefine レーザー\n\n@アイテム2\n\ndefine 指定 (x) (y) (コス) (中間地)\nset [動き v] to [0]\nset [クローンx v] to (x)\nset [クローンy v] to (y)\nset [コスチューム v] to (コス)\nset [範囲 v] to [265]\nset [中間地現在 v] to (中間地)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nswitch costume to (コスチューム1 v)\nforever\n    if <<<(playerx) > ((join [-] (範囲)) + (クローンx))> and <((範囲) + (クローンx)) > (playerx)>> and <<((226) + (クローンy)) > (playery)> and <(playery) > ((join [-] [226]) + (クローンy))>>> then\n        go to x: ((クローンx) - (playerx)) y: ((クローンy) - (playery))\n        show\n        if <touching (自キャラ v)?> then\n            switch costume to (コスチューム2 v)\n            set [復活地x v] to (クローンx)\n            set [復活地y v] to (クローンy)\n            set [中間地 v] to (中間地現在)\n        end\n    else\n        hide\n    end\nend\n\nwhen I receive [クローンリセット v]\ndelete this clone\n\nwhen I receive [リセット v]\n指定 [1640] [-3] [1] [1]\n指定 [3550] [-5] [1] [2]\n指定 [5350] [1678] [1] [3]\n指定 [5350] [2800] [1] [4]\n指定 [5170] [699] [1] [5]\n\n@スプライト1\n\nwhen I start as a clone\nshow\nrepeat until <[-330] > (x position)>\n    go to [back v] layer\n    change x by ((-1) * (0.2))\nend\ndelete this clone\n\nwhen flag clicked\nset [回数 v] to [0]\n\nwhen I receive [スタート v]\nif <(回数) = [0]> then\n    switch costume to (1 v)\n    set size to (pick random (70) to (100)) %\n    go to x: (-150) y: (pick random (120) to (100))\n    create clone of (_myself_ v)\n    set size to (pick random (70) to (100)) %\n    go to x: (150) y: (pick random (120) to (-20))\n    create clone of (_myself_ v)\n    set [回数 v] to [1]\n    forever\n        wait (pick random (50) to (60)) seconds\n        set size to (pick random (80) to (120)) %\n        go to x: (360) y: (pick random (120) to (0))\n        if <(pick random (1) to (4)) = [1]> then\n            switch costume to (pick random (1) to (4))\n        else\n            switch costume to (1 v)\n        end\n        create clone of (_myself_ v)\n    end\nend\n\n@Intro\n\ndefine 大きさ2 (x)\nerase all\nset size to (x) %\ngo to x: (60) y: (-53)\nswitch costume to (灰色 v)\nstamp\ngo to x: (-5) y: (94)\nswitch costume to (濃い青色 v)\nstamp\ngo to x: (-90) y: (-35)\nswitch costume to (水色2 v)\nstamp\n大きさ (x)\n\ndefine 大きさ (2)\nif <(2) < [199]> then\n    大きさ2 ((2) + (((200) - (2)) * (0.1)))\nelse\n    set size to (199) %\n    delete all of [intro v]\n    repeat (36)\n        add [?] to [intro v]\n    end\n    set [i v] to [20]\n    repeat (9)\n        replace item (I) of [intro v] with [-110]\n        change [i v] by (2)\n    end\n    set [l v] to [1]\n    set [i v] to [19]\n    repeat (9)\n        replace item (I) of [intro v] with ((-110) + ((25) * (L)))\n        change [i v] by (2)\n        change [l v] by (1)\n    end\n    set [i v] to [2]\n    repeat (9)\n        replace item (I) of [intro v] with [-160]\n        change [i v] by (2)\n    end\n    set [l v] to [0]\n    set [i v] to [1]\n    repeat (9)\n        replace item (I) of [intro v] with ((-140) + ((40) * (L)))\n        change [i v] by (2)\n        change [l v] by (1)\n    end\n    start sound [intro2 v]\n    repeat (40)\n        erase all\n        座標 [1] [2] [3]\n        座標 [3] [4] [4]\n        座標 [5] [6] [5]\n        座標 [7] [8] [6]\n        座標 [9] [10] [7]\n        座標 [11] [12] [8]\n        座標 [13] [14] [9]\n        座標 [15] [16] [10]\n        座標 [17] [18] [11]\n        set size to (199) %\n        go to x: (60) y: (-53)\n        switch costume to (灰色 v)\n        stamp\n        go to x: (-5) y: (94)\n        switch costume to (濃い青色 v)\n        stamp\n        go to x: (-90) y: (-35)\n        switch costume to (水色2 v)\n        stamp\n    end\n    wait (1) seconds\n    black\n    pen up\n    erase all\n    wait (1) seconds\n    broadcast (スタート前画面 v)\n    switch costume to (コス v)\n    clear graphic effects\n    go to x: (0) y: (0)\n    show\n    switch backdrop to (背景4 v)\n    go to [front v] layer\n    repeat (33)\n        change [ghost v] effect by (3)\n    end\n    hide\n    clear graphic effects\nend\n\ndefine 座標 (x) (y) (コス)\nif <not <<(round (item (x) of [intro v])) = (round (item ((x) + (18)) of [intro v]))> and <(round (item (y) of [intro v])) = (round (item ((y) + (18)) of [intro v]))>>> then\n    replace item (y) of [intro v] with ((item (y) of [intro v]) + (((item ((y) + (18)) of [intro v]) - (item (y) of [intro v])) * (0.1)))\n    replace item (x) of [intro v] with ((item (x) of [intro v]) + (((item ((x) + (18)) of [intro v]) - (item (x) of [intro v])) * (0.1)))\nend\nswitch costume to (join [コスチューム] (コス))\ngo to x: (item (x) of [intro v]) y: (item (y) of [intro v])\nstamp\n\nwhen flag clicked\npoint in direction (90)\nswitch backdrop to (背景2 v)\nwait (0.5) seconds\nerase all\npen up\nswitch costume to (灰色 v)\nstart sound [intro v]\n大きさ [20]\n\ndefine 繰り返しblack2\ngo to x: (([cos v] of (角度) ) * (半径)) y: (([sin v] of (角度) ) * (半径))\nchange [角度 v] by (10)\n\ndefine black\nset pen color to (#000000)\nswitch costume to (black v)\nset pen size to (12)\nset [角度 v] to [0]\nset [半径 v] to [300]\ngo to x: (([cos v] of (角度) ) * (半径)) y: (([sin v] of (角度) ) * (半径))\npen down\nrepeat (31)\n    繰り返しblack\n    繰り返しblack\n    繰り返しblack\n    繰り返しblack\n    繰り返しblack\n    繰り返しblack\n    change [半径 v] by (-10)\nend\n\ndefine 場面転換明るく\ngo to x: (0) y: (0)\nswitch costume to (画面black v)\nset [ghost v] effect to (0)\nshow\nclear graphic effects\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nhide\nswitch costume to (迷路壁 v)\n\ndefine 場面転換暗く\ngo to x: (0) y: (0)\nswitch costume to (画面black v)\nshow\nclear graphic effects\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nhide\nswitch costume to (迷路壁 v)\n\ndefine 繰り返しblack\n繰り返しblack2\n繰り返しblack2\n繰り返しblack2\n繰り返しblack2\n繰り返しblack2\n繰り返しblack2\n\nwhen I receive [暗く v]\n場面転換暗く\n\nwhen I receive [明るく v]\n場面転換明るく\n\n@スタート画面\n\nwhen I start as a clone\nif <<(どのブロック) = [1]> or <(どのブロック) = [2]>> then\n    set size to (100) %\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            change size by (((120) - (size)) / (12))\n            if <mouse down?> then\n                start sound [決定、ボタン押下24 v]\n                if <(どのブロック) = [2]> then\n                    broadcast (暗く v)\n                    wait (0.65) seconds\n                    switch backdrop to (背景1 v)\n                    broadcast (スタート v)\n                    set [スタート v] to [1]\n                    broadcast (明るく v)\n                    delete this clone\n                end\n                if <<(どのブロック) = [1]> and <<(ハートB) = [Yes]> and <(星B) = [Yes]>>> then\n                    broadcast (暗く v)\n                    wait (0.65) seconds\n                    broadcast (スキン v)\n                    set [スキン現状 v] to [1]\n                    switch backdrop to (背景1 v)\n                    broadcast (明るく v)\n                end\n            end\n        else\n            change size by (((100) - (size)) / (12))\n        end\n        if <(どのブロック) = [1]> then\n            if <<(ハートB) = [Yes]> and <(星B) = [Yes]>> then\n                switch costume to (choose skin v)\n            else\n                switch costume to (chooskin 鎖 v)\n            end\n        end\n    end\nend\n\nwhen I receive [スタート前画面 v]\nhide\nset [スキン現状 v] to [0]\nset [スタート v] to [0]\nset [どのブロック v] to [1]\nswitch costume to (chooskin 鎖 v)\ngo to x: (0) y: (-130)\ncreate clone of (_myself_ v)\nset [どのブロック v] to [2]\nswitch costume to (playstrt v)\ngo to x: (0) y: (-60)\ncreate clone of (_myself_ v)\nset [どのブロック v] to [10]\nswitch costume to (コスチューム3 v)\ngo to x: (0) y: (50)\ncreate clone of (_myself_ v)\nset [どのブロック v] to [11]\nif <(１) = [1]> then\n    switch costume to (音量マックス v)\n    set [音量 v] to [100]\nelse\n    switch costume to (音量なし v)\n    set [音量 v] to [0]\nend\ncreate clone of (_myself_ v)\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nforever\n    if <<(スキン現状) = [1]> and <not <<<(どのブロック) = [4]> or <(どのブロック) = [5]>> or <(どのブロック) = [3]>>>> then\n        delete this clone\n    end\nend\n\nwhen I receive [スキン v]\nset [どのブロック v] to [3]\ncreate clone of (_myself_ v)\nset [どのブロック v] to [4]\ncreate clone of (_myself_ v)\nset [どのブロック v] to [5]\ncreate clone of (_myself_ v)\nrepeat until <(スキン現状) = [0]>\n    erase all\n    スキン色作成まとめ\n    スキン動かす棒\nend\nerase all\n\ndefine スキン色作成まとめ\nset [スキン v] to [0]\nset pen (saturation v) to (100)\nset pen (brightness v) to (100)\nset pen (color v) to (0)\nset pen size to (20)\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\nスキン色作成2\n\ndefine スキン色作成\nset pen (color v) to ([floor v] of ((スキン) / (3)) )\ngo to x: ((-140) + (スキン)) y: (-130)\nchange [スキン v] by (3)\npen down\n\ndefine スキン色作成2\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\nスキン色作成\n\ndefine スキン動かす棒\nswitch costume to (コスチューム1 v)\npen up\nset pen (saturation v) to (0)\nset pen (brightness v) to (30)\nset pen (color v) to (0)\nif <<mouse down?> and <<<[150] > (mouse x)> and <(mouse x) > [-150]>> and <<(mouse y) > [-152]> and <[-109] > (mouse y)>>>> then\n    set [スキン棒 v] to ((スキン棒) + (((mouse x) - (スキン棒)) * (0.2)))\nend\nset x to (スキン棒)\npen down\nchange y by (-10)\nchange y by (20)\npen up\n\nwhen I start as a clone\nforever\n    if <(どのブロック) = [3]> then\n        show\n        switch costume to (skin　自分 v)\n        set size to (100) %\n        go to x: (0) y: (30)\n        clear graphic effects\n    end\n    if <(どのブロック) = [4]> then\n        go to x: (0) y: (30)\n        go to [back v] layer\n        show\n        switch costume to (skin　自分2 v)\n        set size to (100) %\n        set [color v] effect to ([floor v] of (((140) + (スキン棒)) / (1.5)) )\n    end\n    if <(どのブロック) = [5]> then\n        go to x: (-194) y: (-137)\n        go to [back v] layer\n        show\n        switch costume to (戻る v)\n        if <touching (mouse-pointer v)?> then\n            change size by (((120) - (size)) / (12))\n        else\n            change size by (((100) - (size)) / (12))\n        end\n    end\n    if <(どのブロック) = [10]> then\n        go to x: (0) y: (40)\n        go to [back v] layer\n        show\n        switch costume to (コスチューム3 v)\n        if <touching (mouse-pointer v)?> then\n            change size by (((120) - (size)) / (12))\n        else\n            change size by (((100) - (size)) / (12))\n        end\n    end\n    if <(どのブロック) = [11]> then\n        go to x: (-160) y: (-130)\n        go to [back v] layer\n        show\n        if <touching (mouse-pointer v)?> then\n            change size by (((120) - (size)) / (12))\n            if <mouse down?> then\n                if <(costume [number v]) = [9]> then\n                    switch costume to (音量なし v)\n                    set volume to (0) %\n                    set [音量 v] to [0]\n                    set [１ v] to [0]\n                else\n                    switch costume to (音量マックス v)\n                    set volume to (100) %\n                    set [音量 v] to [100]\n                    set [１ v] to [1]\n                end\n                wait until <not <mouse down?>>\n            end\n        else\n            change size by (((100) - (size)) / (12))\n        end\n    end\nend\n\nwhen I start as a clone\nwait until <<(スキン現状) = [0]> and <<<(どのブロック) = [4]> or <(どのブロック) = [5]>> or <(どのブロック) = [3]>>>\ndelete this clone\n\nwhen this sprite clicked\nif <<(costume [number v]) = [6]> and <(どのブロック) = [5]>> then\n    if <mouse down?> then\n        start sound [決定、ボタン押下27 v]\n        broadcast (暗く v)\n        wait (0.65) seconds\n        set [スキン現状 v] to [0]\n        switch backdrop to (背景4 v)\n        broadcast (スタート前画面 v)\n        broadcast (明るく v)\n    end\nend\n\nwhen I receive [スタート v]\ndelete this clone\n\nwhen flag clicked\nset volume to (100) %\n\nwhen flag clicked\nset [音量 v] to [0]\nforever\n    set volume to (音量) %\nend\n\nwhen I start as a clone\nforever\n    set volume to (音量) %\nend\n\nwhen flag clicked\nset [１ v] to [1]\n\n@スプライト3\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nforever\n    set [ハートa v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [ハートb v] to [Yes]\n    end\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nforever\n    set [星a v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [星b v] to [Yes]\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\ngo to x: (-6) y: (-14)\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nshow\ngo to [front v] layer\n\n@❤️と⭐️を！\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    wait (50) seconds\n    go to [front v] layer\n    show\n    go to x: (128) y: (400)\n    glide (0.8) secs to x: (128) y: (155)\n    wait (2) seconds\n    glide (0.8) secs to x: (128) y: (400)\n    hide\nend\n\n