Darkness platformer！/暗やみのプラットフォーマー！
@Stage\n\nwhen flag clicked\nforever\n    play sound [Sunshine v] until done\nend\n\n@prayer\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [25]\nhide\n\ndefine prayer\npoint in direction (90)\nif <(！) = [0]> then\n    if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n        change [x v] by (1)\n    end\n    if <<<not <<[130] < (mouse y)> and <(mouse x) < [-100]>>> and <<mouse down?> and <(mouse x) < [-50]>>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.87))\n    change x by (round (x))\n    if <touching (stage v)?> then\n        change y by (1)\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change y by (1)\n                        if <touching (stage v)?> then\n                            change y by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching (stage v)?> then\n        壁\n    end\n    change [y v] by (-1.5)\n    change y by (y)\n    if <touching (stage v)?> then\n        床\n    end\n    change [scroll x v] by (round ((x position) / (10)))\n    change x by ((0) - ((round ((x position) / (10))) * <not <<(scroll x) < [0]> or <[4500] < (scroll x)>>>))\n    if <(scroll x) < [0]> then\n        set [scroll x v] to [0]\n    end\n    if <[4500] < (scroll x)> then\n        set [scroll x v] to [4500]\n    end\n    change [scroll y v] by (round ((y position) / (10)))\n    change y by ((0) - ((round ((y position) / (10))) * <not <(scroll y) < [0]>>))\n    if <(scroll y) < [0]> then\n        set [scroll y v] to [0]\n    end\n    if <(y) < [-21]> then\n        change [y v] by (1.5)\n    end\nend\nset y to (round (y position))\npoint in direction ((90) + (round (x)))\n\ndefine 初期化\nstart sound [Rip v]\nhide\nrepeat until <<([abs v] of ((scroll y) - (YY)) ) < [3]> and <([abs v] of ((scroll x) - (XX)) ) < [3]>>\n    change [scroll x v] by (round (((XX) - (scroll x)) / (5)))\n    change [scroll y v] by (round (((YY) - (scroll y)) / (5)))\nend\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (0) y: (0)\nbroadcast (monster v)\nshow\n\ndefine 壁\nset [？ v] to [0]\nchange y by (-4.5)\nrepeat until <<[100] < (？)> or <not <touching (stage v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <[100] < (？)> then\n    repeat (？)\n        change x by ((1) * ((x) / ([abs v] of (x) )))\n    end\nelse\n    if <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        set [y v] to [18]\n        set [x v] to ((-7) * ((x) / ([abs v] of (x) )))\n    else\n        set [x v] to [0]\n    end\nend\n\ndefine 床\nrepeat until <not <touching (stage v)?>>\n    change y by ((-1.5) * ((y) / ([abs v] of (y) )))\nend\nif <<(y) < [0]> and <<<not <<[130] < (mouse y)> and <(mouse x) < [-100]>>> and <<mouse down?> and <[0] < (mouse y)>>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n    set [y v] to [18]\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [start v]\nshow\nset [！ v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [25]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    go to [front v] layer\n    prayer\nend\n\nwhen I receive [start v]\nforever\n    switch costume to (コスチューム1 v)\n    if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム2 v)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム3 v)\n        end\n    else\n        if <not <<mouse down?> and <<[130] < (mouse y)> and <(mouse x) < [-100]>>>> then\n            switch costume to (コスチューム6 v)\n            if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n                switch costume to (コスチューム4 v)\n            end\n            if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n                switch costume to (コスチューム5 v)\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <<(y position) < [-180]> or <touching (stage2 v)?>> then\n        set [！ v] to [1]\n        初期化\n        set [！ v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (time)\nhide\n\n@Stage\n\nwhen flag clicked\nhide\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nwhen I receive [start v]\nset [brightness v] effect to (-20)\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (700)) [250] [6]\n配置 ((1920) + (1150)) [250] [7]\n配置 (((1920) + (1150)) + (500)) [250] [8]\n配置 (((1920) + (1150)) + (1000)) [250] [9]\n配置 (((1920) + (1150)) + (1000)) [250] [10]\n\n@Stage2\n\nwhen flag clicked\nhide\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nwhen I receive [start v]\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (500)) [0] [6]\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [300] [9]\n配置 ((1920) + (2500)) [300] [10]\n\n@Stage3\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to ((コスチューム) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nwhen I receive [start v]\nset [brightness v] effect to (-30)\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (500)) [0] [6]\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [300] [9]\n配置 ((1920) + (2500)) [300] [10]\n\n@Stage6\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [940] [150] [1]\n配置 [2170] [202] [1]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        start sound [Collect v]\n        set [xx v] to (1)\n        set [yy v] to (2)\n        change [3 v] by (1)\n        stop [this script v]\n    end\nend\n\n@スプライト1\n\nwhen I receive [start v]\ngo to [front v] layer\nshow\nforever\n    go to (prayer v)\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\n@スプライト2\n\nwhen flag clicked\nshow\nset [a v] to [0]\nset size to (100) %\nswitch costume to (コスチューム1 v)\npoint in direction (90)\ngo to x: (0) y: (0)\nrepeat (2)\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\nforever\n    if <mouse down?> then\n        broadcast (START v)\n        stop [this script v]\n    end\nend\n\nwhen I start as a clone\nif <(a) = [1]> then\n    go to [front v] layer\n    go to x: (0) y: (-100)\n    switch costume to (コスチューム2 v)\n    repeat (3)\n        go to [front v] layer\n        change y by (10)\n        repeat (3)\n            change y by (6)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(a) = [2]> then\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (コスチューム3 v)\n    forever\n        repeat (2)\n            change size by (-1)\n        end\n        repeat (5)\n            change size by (-0.5)\n        end\n        wait (0.2) seconds\n        repeat (2)\n            change size by (1)\n        end\n        repeat (5)\n            change size by (0.5)\n        end\n        wait (0.2) seconds\n    end\nend\n\nwhen I receive [start v]\nhide\ndelete this clone\n\n@スプライト3\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@スプライト4\n\n
https://scratch.mit.edu/projects/806059255/\n新作ですぜひ見てください(((((