むずすぎる!? Platformer


@Stage\n\nwhen flag clicked\nforever\n    play sound [Goodbye v] until done\nend\n\n@太陽\n\nwhen flag clicked\nset size to (100) %\nhide\nset [cos v] to [0]\nshow\nforever\n    change [cos v] by (7)\n    go to [back v] layer\n    change size by ([cos v] of (cos) )\nend\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@plat\n\ndefine 初期\nshow\ngo to x: (-200) y: (-30)\npoint in direction (90)\nset size to (75) %\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\nset [level v] to [1]\nhide\n初期\nset rotation style [left-right v]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (床 v)?> then\n        change y by (1)\n        if <touching (床 v)?> then\n            change y by (1)\n            if <touching (床 v)?> then\n                change y by (1)\n                if <touching (床 v)?> then\n                    change y by (1)\n                    if <touching (床 v)?> then\n                        change y by (1)\n                    end\n                    if <touching (床 v)?> then\n                        set [地面 v] to [0]\n                        change x by ((x) * (-1))\n                        change y by (-5)\n                        if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                            if <(x) < [0]> then\n                                set [x v] to [10]\n                                start sound [壁キック v]\n                            else\n                                set [x v] to [-10]\n                            end\n                            set [y v] to [15]\n                            start sound [壁キック v]\n                        else\n                            set [x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n        if <touching (床 v)?> then\n            set [y v] to [15]\n            start sound [ニュッ2 \(2\) v]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (床 v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <<[240] < (x position)> and <(backdrop [number v]) = [1]>> then\n        初期\n        change [level v] by (1)\n        broadcast (next v)\n    end\n    if <<(y position) < [-185]> or <<<touching (とげ v)?> or <touching (とげ2 v)?>> or <<touching (とげ3 v)?> or <touching (とげ4 v)?>>>> then\n        start sound [crashed oof2 v]\n        change [☁ みんなあああ v] by (1)\n        repeat (10)\n            change [ghost v] effect by (10)\n            change y by (25)\n        end\n        wait (0.1) seconds\n        clear graphic effects\n        初期\n    end\n    if <touching (ばね v)?> then\n        set [y v] to [20]\n        broadcast (跳ねる v)\n    end\nend\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム1 v)\nrepeat (4)\n    change size by (-5)\n    change [ghost v] effect by (4)\n    change [brightness v] effect by (4)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@床\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@とげ\n\nwhen flag clicked\nhide\nshow\nswitch costume to (コスチューム1 v)\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [ghost v] effect to (0)\n    else\n        set [ghost v] effect to (100)\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@ちめｒ\n\nwhen flag clicked\nhide variable [time v]\nreset timer\nshow variable [time v]\nrepeat until <([costume # v] of [床 v]) = [11]>\n    set [time v] to (((timer) * (round (100))) / (100))\nend\n\n@コスチューム1 (6)\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nhide\nshow\nswitch costume to (コスチューム1 \(6\) v)\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@とげ2\n\nwhen flag clicked\nhide\nshow\nswitch costume to (コスチューム1 v)\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@ばね\n\ndefine 跳ねる\nstart sound [ボヨン v]\nswitch costume to (コスチューム1 v)\nrepeat (2)\n    wait (0.05) seconds\n    next costume\nend\nnext costume\nrepeat (3)\n    wait (0.05) seconds\n    switch costume to ((costume [number v]) - (1))\nend\n\nwhen I receive [跳ねる v]\n跳ねる\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen flag clicked\nhide\nforever\n    if <key (space v) pressed?> then\n        set [ghost v] effect to (0)\n    else\n        set [ghost v] effect to (100)\n    end\nend\n\nwhen I receive [next v]\nif <(level) = [3]> then\n    show\nelse\n    hide\nend\n\n@床2\n\nwhen flag clicked\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nhide\nshow\nswitch costume to (コスチューム2 v)\n\nwhen flag clicked\nforever\n    if <touching (plat v)?> then\n        set [ghost v] effect to (100)\n    else\n        clear graphic effects\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@とげ3\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(level) = [5]> then\n        show\n        if <[0] < ([x position v] of [plat v])> then\n            go to x: (0) y: (0)\n            repeat (30)\n                change y by (((-180) - (y position)) / (19))\n            end\n        end\n        go to x: (0) y: (0)\n    else\n        hide\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@スプライト2\n\nwhen I receive [next v]\nif <(level) = [11]> then\n    show\n    broadcast (たひ v)\nelse\n    hide\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@数字表示システム\n\nwhen I start as a clone\nset [ナンバー保存用 v] to (ナンバー)\nshow\nforever\n    if <(ナンバー保存用) > (length of (☁ みんなあああ))> then\n        hide\n    else\n        show\n        switch costume to (letter ((length of (☁ みんなあああ)) - ((ナンバー保存用) - (1))) of (☁ みんなあああ))\n    end\nend\n\ndefine セット\nset size to (100) %\nset [ナンバー v] to [0]\ngo to x: (‐30) y: (70)\nrepeat (5)\n    change [ナンバー v] by (1)\n    create clone of (_myself_ v)\n    change x by (-30)\nend\n\nwhen I receive [たひ v]\nhide\nset [ナンバー v] to [0]\nset [クローン数 v] to (length of (☁ みんなあああ))\nセット\nforever\n    wait until <(クローン数) < (length of (☁ みんなあああ))>\n    change [ナンバー v] by (1)\n    change [クローン数 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-30)\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n@とげ4\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nif <(level) = [6]> then\n    go to x: (0) y: (-70)\n    create clone of (_myself_ v)\n    go to x: (-160) y: (90)\n    create clone of (_myself_ v)\n    go to x: (160) y: (90)\n    create clone of (_myself_ v)\nelse\n    if <(level) = [7]> then\n        go to x: (-100) y: (00)\n        create clone of (_myself_ v)\n        go to x: (100) y: (00)\n        create clone of (_myself_ v)\n    end\n    if <(level) = [10]> then\n        go to x: (130) y: (00)\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nif <(level) = [6]> then\n    show\n    set size to (70) %\n    repeat until <(level) = [7]>\n        change [cpoooooooos v] by (1)\n        turn right (2) degrees\n        change size by ([cos v] of (cpoooooooos) )\n        if <key (space v) pressed?> then\n            set [brightness v] effect to (-20)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(level) = [7]> then\n    show\n    set size to (100) %\n    repeat until <(level) = [8]>\n        turn right ((0) - (3)) degrees\n        if <key (space v) pressed?> then\n            set [brightness v] effect to (-20)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(level) = [10]> then\n    show\n    set size to (105) %\n    repeat until <(level) = [11]>\n        turn right ((0) - (3)) degrees\n        if <key (space v) pressed?> then\n            set [brightness v] effect to (-20)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\n    delete this clone\nend\n\n@hi\n\nwhen flag clicked\nhide\nforever\n    create clone of (_myself_ v)\n    wait (pick random (0.05) to (0.2)) seconds\nend\n\nwhen I start as a clone\nshow\ngo to x: (pick random (-230) to (-200)) y: (-150)\nset [aa v] to (pick random (5) to (12))\npoint in direction (pick random (30) to (100))\nset size to (pick random (40) to (80)) %\nset [ghost v] effect to (60)\nrepeat until <touching (_edge_ v)?>\n    move (aa) steps\nend\ndelete this clone\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <key (space v) pressed?> then\n        set [brightness v] effect to (-20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\n