PROMENADE | a scrolling platformer-mobile friendly
@Stage\n\nwhen flag clicked\nforever\n    play sound [Never be alone v] until done\nend\n\n@player\n\nwhen flag clicked\nforever\n    if <<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[0] < (mouse x)>>> or <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>>> then\n        switch costume to (2 v)\n        wait (0.01) seconds\n        switch costume to (3 v)\n        wait (0.01) seconds\n        switch costume to (4 v)\n        wait (0.01) seconds\n        switch costume to (5 v)\n        wait (0.01) seconds\n        switch costume to (6 v)\n        wait (0.01) seconds\n        switch costume to (7 v)\n        wait (0.01) seconds\n        switch costume to (8 v)\n        wait (0.01) seconds\n        switch costume to (9 v)\n        wait (0.01) seconds\n        switch costume to (10 v)\n        wait (0.01) seconds\n        switch costume to (11 v)\n        wait (0.01) seconds\n        switch costume to (12 v)\n        wait (0.01) seconds\n        switch costume to (13 v)\n        wait (0.01) seconds\n        switch costume to (14 v)\n        wait (0.01) seconds\n        switch costume to (15 v)\n        wait (0.01) seconds\n        switch costume to (16 v)\n        wait (0.01) seconds\n        switch costume to (17 v)\n        wait (0.01) seconds\n    else\n        switch costume to (1 v)\n    end\nend\n\nwhen I receive [スタート v]\nshow\nset size to (40) %\npoint in direction (90)\ngo to x: (0) y: (0)\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[0] < (mouse x)>>> then\n        point in direction (90)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        point in direction (-90)\n    end\n    if <<touching (bad v)?> or <touching (bad2 v)?>> then\n        start sound [crashed oof v]\n        go to x: (0) y: (0)\n        broadcast (赤に触れた v)\n    end\n    if <touching (next v)?> then\n        start sound [Ta Ting v]\n        go to x: (0) y: (0)\n        broadcast (次ステージ v)\n    end\n    if <[280] < ([y position v] of [ground v])> then\n        start sound [crashed oof v]\n        broadcast (スタート v)\n    end\nend\n\n@ground\n\nwhen I receive [次ステージ v]\nnext costume\nbroadcast (スタート v)\n\nwhen I receive [スタート v]\nshow\nset size to (400) %\nset [x v] to [0]\nset [y v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\ngo to x: (297) y: (0)\nhide variable [x v]\nhide variable [y v]\nforever\n    if <<<[0] > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [x v] by (-0.8)\n    end\n    if <<<(mouse x) > [0]> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [x v] by (0.8)\n    end\n    set [x v] to ((x) * (.89))\n    change x by ((x) * (-1))\n    if <touching (player v)?> then\n        change y by (-1)\n        if <touching (player v)?> then\n            change y by (-1)\n            if <touching (player v)?> then\n                change y by (-1)\n                if <touching (player v)?> then\n                    change y by (-1)\n                    if <touching (player v)?> then\n                        change y by (-1)\n                        if <touching (player v)?> then\n                            change x by (x)\n                            change y by (5)\n                            if <key (up arrow v) pressed?> then\n                                start sound [newclunk1 v]\n                                if <(x) > [0]> then\n                                    set [x v] to [-7]\n                                else\n                                    set [x v] to [7]\n                                end\n                                set [y v] to [15]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (1)\n    if <touching (player v)?> then\n        if <<<(mouse y) > [0]> and <mouse down?>> or <key (up arrow v) pressed?>> then\n            set [y v] to [15]\n        end\n    end\n    change y by (-1)\n    change [y v] by (-1)\n    change y by ((y) * (-1))\n    if <touching (player v)?> then\n        change y by (y)\n        set [y v] to [0]\n    end\nend\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nbroadcast (スタート v)\n\nwhen I receive [赤に触れた v]\nbroadcast (スタート v)\n\n@bad\n\nwhen I receive [スタート v]\nshow\ngo to [back v] layer\nset size to ([size v] of [ground v]) %\npoint in direction (90)\ngo to x: (297) y: (0)\nhide variable [x2 v]\nhide variable [y2 v]\nforever\n    go to x: ([x position v] of [ground v]) y: ([y position v] of [ground v])\n    if <<<[0] > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [x2 v] by (-0.8)\n    end\n    if <<<(mouse x) > [0]> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [x2 v] by (0.8)\n    end\n    if <touching (_edge_ v)?> then\n        hide\n    else\n        show\n    end\nend\n\nwhen I receive [次ステージ v]\nnext costume\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\n@bad2\n\nwhen I receive [スタート v]\nshow\ngo to [back v] layer\nset size to ([size v] of [ground v]) %\npoint in direction (90)\ngo to x: (297) y: (0)\nhide variable [x4 v]\nhide variable [y4 v]\nforever\n    go to x: ([x position v] of [ground v]) y: ([y position v] of [ground v])\n    if <<<[0] > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [x4 v] by (-0.8)\n    end\n    if <<<(mouse x) > [0]> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [x4 v] by (0.8)\n    end\n    if <touching (_edge_ v)?> then\n        hide\n    else\n        show\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [次ステージ v]\nnext costume\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\n@next\n\nwhen I receive [スタート v]\nshow\ngo to [back v] layer\nset size to ([size v] of [ground v]) %\npoint in direction (90)\ngo to x: (297) y: (0)\nhide variable [x3 v]\nhide variable [y3 v]\nforever\n    go to x: ([x position v] of [ground v]) y: ([y position v] of [ground v])\n    if <<<[0] > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        change [x3 v] by (-0.8)\n    end\n    if <<<(mouse x) > [0]> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        change [x3 v] by (0.8)\n    end\n    if <touching (_edge_ v)?> then\n        hide\n    else\n        show\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\nwhen I receive [次ステージ v]\nnext costume\n\n@cloud\n\nwhen flag clicked\nhide\nrepeat (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    show\n    set [ghost v] effect to (50)\n    set [変数 v] to (pick random (70) to (147))\n    go to x: (-272) y: (変数)\n    glide (5) secs to x: (272) y: (変数)\nend\n\n@sun\n\nwhen flag clicked\nshow\nswitch costume to (a sun v)\nset [ghost v] effect to (30)\ngo to [back v] layer\ngo to x: (-206) y: (147)\nforever\n    turn right (2.5) degrees\nend\n\n@FBC72F89-DA3D-41E6-8614-876602145765\n\nwhen flag clicked\nforever\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\nend\n\n