CaveFormer ll Scrolling Platformer
@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nforever\n    switch backdrop to (背景2 v)\nend\n\nwhen flag clicked\nchange [color v] effect by (10)\nset [brightness v] effect to (-20)\nset volume to (50) %\nforever\n    play sound [Corridors of Time - from YouTube v] until done\nend\n\nclear graphic effects\n\n@a\n\nwhen flag clicked\nset [ステージ v] to [1]\nswitch costume to (止まる v)\ngo to x: (-210) y: (-90)\nshow\nset size to (100) %\ngo to [front v] layer\nshow\nset [x v] to [0]\nset [y v] to [0]\npoint in direction (90)\ngo to x: (-201) y: (152)\ngo to x: (-213) y: (-34)\nforever\n    set rotation style [left-right v]\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        switch costume to (左 v)\n        change [x2 v] by (-1)\n    end\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        switch costume to (1 v)\n        change [x2 v] by (1)\n    end\n    set [x2 v] to ((X2) * (0.9))\n    change x by (X2)\n    if <touching (f v)?> then\n        change y by (1)\n        if <touching (f v)?> then\n            change y by (1)\n            if <touching (f v)?> then\n                change y by (1)\n                if <touching (f v)?> then\n                    change y by (1)\n                    if <touching (f v)?> then\n                        change y by (1.0)\n                        if <touching (f v)?> then\n                            change x by ((X2) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<[0] < (mouse y)> and <mouse down?>>> then\n                                if <(X2) > [0]> then\n                                    set [x2 v] to [-5]\n                                else\n                                    set [x2 v] to [5]\n                                end\n                                set [y2 v] to [10]\n                            else\n                                set [x2 v] to [0.0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (f v)?> then\n        if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n            start sound [パパッ v]\n            set [y2 v] to [13]\n        end\n    end\n    change y by (1)\n    change [y2 v] by (-1)\n    change y by (Y2)\n    if <touching (f v)?> then\n        change y by ((Y2) * (-1))\n        set [y2 v] to [0]\n    end\n    if <(x position) > [230]> then\n        change [ステージ v] by (1)\n        set [； v] to [0]\n        broadcast (next v)\n        hide\n        wait until <(；) = [1]>\n        set [x2 v] to [0]\n        go to x: (-201) y: (-34)\n        show\n    end\n    if <<<touching (t v)?> or > or <(y position) < [-180]>> then\n        set [x2 v] to [0]\n        set [y2 v] to [0]\n        start sound [キャンセル2 v]\n        repeat (20)\n            change [ghost v] effect by (20)\n        end\n        go to x: (-201) y: (0)\n        repeat (20)\n            change [ghost v] effect by (-8)\n        end\n    end\n    if <touching (バネ v)?> then\n        set [y2 v] to [20]\n    end\nend\n\nwhen flag clicked\nswitch costume to (1 v)\nforever\n    wait (pick random (3) to (4)) seconds\n    repeat (5)\n        next costume\n    end\n    switch costume to (6 v)\n    wait (0.1) seconds\n    repeat (5)\n        switch costume to ((costume [number v]) - (1))\n    end\n    switch costume to (1 v)\nend\n\nwhen flag clicked\ngo to [back v] layer\n\n@f\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\ngo [backward v] (2) layers\n\nwhen I receive [次 v]\nnext costume\n\n@t\n\nwhen flag clicked\nshow\ngo to [front v] layer\ngo to x: (0) y: (0)\ngo [backward v] (1) layers\nswitch costume to (コスチューム1 v)\n\nwhen I receive [次 v]\nnext costume\n\n@サムネ\n\nwhen flag clicked\nclear graphic effects\nshow\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@スプライト1\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\n\nwhen I receive [次 v]\nnext costume\n\n@next\n\nwhen I receive [next v]\nswitch costume to (コスチューム1 v)\ngo to x: (450) y: (0)\nrepeat (5)\n    wait (0.1) seconds\n    create clone of (_myself_ v)\n    next costume\nend\nwait (0.1) seconds\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset [xカリバー v] to [0]\ngo to [front v] layer\nshow\nrepeat until <[1] > (x position)>\n    change x by (((xカリバー) - (x position)) / (7))\nend\nset [xカリバー v] to [-456]\nshow\nif <(costume [number v]) = [6]> then\n    broadcast (次 v)\nend\nrepeat until <[-455] > (x position)>\n    change x by (((xカリバー) - (x position)) / (5))\nend\nif <(costume [number v]) = [6]> then\n    set [； v] to [1]\nend\nhide\ndelete this clone\n\n