プラットフォーマー　白黒の世界　platformer  ~ White Black world ~
@Stage\n\nwhen flag clicked\nwait (6) seconds\nforever\n    play sound [Nebula v] until done\nend\n\n@たけしくん\n\nwhen flag clicked\nhide\nwait (6) seconds\nshow\ngo to x: (-183) y: (-4)\nset [x v] to [0]\nforever\n    switch costume to (たけしくん本体 v)\n    set rotation style [left-right v]\n    if <key (any v) pressed?> then\n        if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n            point in direction (90)\n            change [x v] by (1)\n            create clone of (_myself_ v)\n        end\n        if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n            point in direction (-90)\n            change [x v] by (-1)\n            create clone of (_myself_ v)\n        end\n    else\n        if <mouse down?> then\n            if <(mouse x) > (x position)> then\n                point in direction (90)\n                change [x v] by (1)\n                create clone of (_myself_ v)\n            else\n                point in direction (-90)\n                change [x v] by (-1)\n                create clone of (_myself_ v)\n            end\n        end\n    end\n    set [x v] to ((x) * (0.92))\n    change x by (x)\n    if <touching (まぐまくん。 v)?> then\n        go to x: (-195) y: (-84)\n        start sound [crashed oof v]\n    end\n    if <touching (ステージ君 v)?> then\n        change x by ((0) - (x))\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [y v] to [15]\n            if <(x) > [0]> then\n                set [x v] to [-7]\n                start sound [suck1 v]\n            else\n                set [x v] to [7]\n                start sound [suck1 v]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (まぐまくん。 v)?> then\n        go to x: (-194) y: (-147)\n        start sound [crashed oof v]\n    end\n    if <touching (ステージ君 v)?> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <touching (ステージ君 v)?> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [y v] to [15]\n            start sound [suck1 v]\n        end\n    end\n    change y by (1)\n    if <(x position) > [200]> then\n        broadcast (next v)\n        go to x: (-194) y: (-146)\n    end\nend\n\ngo to x: (-194) y: (-147)\n\nchange x by (x)\n\nwhen I start as a clone\nrepeat (15)\n    change [ghost v] effect by (7)\n    switch costume to (たけしのクローン v)\n    change size by (-2)\nend\ndelete this clone\n\ngo to x: (245) y: (-150)\n\nwhen I receive [next stage v]\ngo to x: (-183) y: (-4)\n\n@ステージ君\n\nwhen flag clicked\nhide\nwait (6) seconds\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\n\nwhen I receive [next stage v]\nnext costume\n\n@まぐまくん。\n\nwhen flag clicked\nhide\nwait (6) seconds\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\n\nwhen I receive [next stage v]\nnext costume\n\n@NEXT\n\nwhen I receive [next v]\nset [動く v] to [0]\ngo to [front v] layer\nstart sound [Coin v]\nshow\nswitch costume to (コスチューム1 v)\nrepeat (5)\n    next costume\nend\nwait (1) seconds\nrepeat (5)\n    next costume\nend\nset [動く v] to [1]\nhide\nbroadcast (next Stage v)\n\nwhen flag clicked\nhide\n\n@451FBCC2-7AB9-4B53-B15D-44D11F17F105\n\nwhen flag clicked\nhide\n\n@Sprite1\n\nwhen flag clicked\nhide\nstart sound [Cool Intro Music3 v]\nset [変数 v] to [1]\nset [cam rot v] to [0]\nset [sprite1: size v] to [100]\nset [ended v] to [0]\nset [direction v] to [90]\nset [follow cam v] to [1]\nset [i1 v] to [0]\nswitch costume to (screen v)\ncreate clone of (_myself_ v)\nswitch costume to (square v)\ncreate clone of (_myself_ v)\nswitch costume to (square2 v)\ncreate clone of (_myself_ v)\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nswitch costume to (control v)\ncreate clone of (_myself_ v)\nCam Shake\ngo to [back v] layer\ngo [forward v] (1) layers\nrepeat (3)\n    set [sprite1: size v] to [0]\n    switch costume to (square v)\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    create clone of (_myself_ v)\n    Cam Shake\nend\nrepeat (1)\n    set [sprite1: size v] to [0]\n    switch costume to (square v)\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    create clone of (_myself_ v)\n    repeat (20)\n        change [cam rot v] by (round (((360) - (Cam Rot)) / (4)))\n    end\nend\nCam Shake\nset [ended v] to [1]\n\ndefine Cam Shake\nset [変数 v] to [1]\nset [cam rot v] to [0]\nset [cam shake var v] to [0]\nrepeat (3)\n    change [変数 v] by (((1.2) - (変数)) / (2))\n    change [cam rot v] by (((8) - (Cam Rot)) / (2))\nend\nrepeat (17)\n    change [変数 v] by (((1) - (変数)) / (3))\n    set [cam shake var v] to (((Cam Shake Var) * (0.8)) + ((Cam Rot) / (-3)))\n    change [cam rot v] by (Cam Shake Var)\nend\nset [変数 v] to [1]\nset [cam rot v] to [0]\n\nwhen I start as a clone\nshow\nset [costume v] to (costume [number v])\nforever\n    switch costume to (costume)\n    if <((Sprite1: size) * (変数)) > [100]> then\n        switch costume to (control v)\n    end\n    if <(Follow Cam) = [1]> then\n        set size to ((Sprite1: size) * (変数)) %\n        go to x: (0) y: (0)\n    else\n        set size to (Sprite1: size) %\n    end\n    switch costume to (costume)\n    point in direction ((Direction) + ((Cam Rot) * <<(Follow Cam) = [1]> and <not <(costume) = [4]>>>))\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    set [sprite1: size v] to [0]\n    repeat (20)\n        change [sprite1: size v] by (round (((100) - (Sprite1: size)) / (4)))\n    end\n    repeat (20)\n        change [sprite1: size v] by (round (((400) - (Sprite1: size)) / (4)))\n    end\n    repeat (20)\n        change [sprite1: size v] by (round (((700) - (Sprite1: size)) / (4)))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    set [sprite1: size v] to [0]\n    repeat (20)\n        change [sprite1: size v] by (round (((100) - (Sprite1: size)) / (4)))\n    end\n    repeat (20)\n        change [sprite1: size v] by (round (((400) - (Sprite1: size)) / (4)))\n    end\n    repeat (20)\n        change [sprite1: size v] by (round (((700) - (Sprite1: size)) / (4)))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    set [sprite1: size v] to [200]\n    repeat (10)\n        change [sprite1: size v] by (round (((100) - (Sprite1: size)) / (4)))\n    end\nend\n\ndefine Line Explosion\ngo to (random position v)\ngo to x: ((x position) * (0.8)) y: ((y position) * (0.6))\nswitch costume to (le1 v)\nset [follow cam v] to [0]\nrepeat (15)\n    create clone of (_myself_ v)\n    change [direction v] by (24)\nend\nset [follow cam v] to [1]\n\nwhen I start as a clone\nif <(costume [number v]) = [6]> then\n    set [sprite1: size v] to [100]\n    repeat (10)\n        change [costume v] by (1)\n        move (((150) - (i1)) / (3)) steps\n        change [i1 v] by (((150) - (i1)) / (3))\n        wait (0) seconds\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    repeat (20)\n        set [i1 v] to [0]\n    end\n    repeat (4)\n        Line Explosion\n        repeat (20)\n            set [i1 v] to [0]\n        end\n    end\nend\n\nwhen I start as a clone\nwait until <(Ended) = [1]>\nif <not <(costume [number v]) = [1]>> then\n    delete this clone\nend\nrepeat (30)\n    change [sprite1: size v] by (((40) - (Sprite1: size)) / (10))\n    change [direction v] by (((80) - (Direction)) / (10))\n    change [ghost v] effect by (3.5)\n    change [brightness v] effect by (10)\nend\ndelete this clone\n\n
〜〜〜〜〜〜〜〜Method of operation〜〜〜〜〜〜〜　\n　　↑\n   ←    →\n　　　　　　　　　　　tap\nターボモードは全員が使う権限あるので禁止しません\nintro   @O2009H\n