Spiky Dungeon | Scrolling Platformer |                                             #games


@Stage\n\n@Заставка\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (0) y: (0)\nwait (1) seconds\nglide (1.5) secs to x: (0) y: (-500)\nhide\nbroadcast (Поехали! v)\nforever\n    play sound [You've been Trolled HD v] until done\nend\n\n@уровни\n\nwhen flag clicked\nshow\npoint in direction (90)\ngo to x: (0) y: (-176)\nset [уровень v] to [1]\nswitch costume to (костюм 1 v)\n\nwhen I receive [следующий уровень! v]\nchange [уровень v] by (1)\nnext costume\n\nwhen I receive [поворот сюжета v]\nrepeat (12)\n    move (10) steps\n    turn left (15) degrees\nend\n\n@персонаж\n\nwhen flag clicked\nwait (2) seconds\nshow\ngo to x: (-208) y: (-10)\nset [прыгаю v] to [0]\nset [гравитация v] to [0]\nforever\n    go [forward v] (1) layers\n    гравитация\n    касается земли\n    if <(Босс говорит?) = [Нет]> then\n        if <key (right arrow v) pressed?> then\n            change x by (10)\n        end\n        if <key (left arrow v) pressed?> then\n            change x by (-10)\n        end\n        if <(x position) > [70]> then\n            broadcast (близок к шипу 1 v)\n        end\n        if <(x position) > [-17]> then\n            broadcast (близок к шипу 2 v)\n        end\n        if <touching color (#a99bf2)?> then\n            broadcast (пружина v)\n        end\n        if <touching (шипы v)?> then\n            broadcast (затролили!! v)\n            hide\n        end\n    end\nend\n\ndefine касается земли\nif <not <(уровень) = [4]>> then\n    repeat until <not <touching (уровни v)?>>\n        change y by (0.1)\n        set [гравитация v] to [0]\n    end\nelse\n    repeat until <not <touching (слой земли v)?>>\n        change y by (0.1)\n        set [гравитация v] to [0]\n    end\nend\n\ndefine гравитация\nchange [гравитация v] by (-1)\nchange y by (гравитация)\n\nwhen [up arrow v] key pressed\nif <(Босс говорит?) = [Нет]> then\n    if <touching (слой земли v)?> then\n        set [прыгаю v] to [15]\n        repeat (15)\n            change y by (прыгаю)\n            set [гравитация v] to [0]\n            change [прыгаю v] by (-1)\n        end\n        set [гравитация v] to [0]\n    end\nend\n\nwhen I receive [следующий уровень! v]\nif <not <(уровень) = [5]>> then\n    go to x: (-208) y: (-10)\n    repeat (5)\n        set [гравитация v] to [0]\n    end\nelse\n    go to x: (-122) y: (-88)\n    repeat (5)\n        set [гравитация v] to [0]\n    end\nend\nif <(уровень) = [11]> then\n    broadcast (Выход босса ._. v)\nend\n\nwhen I receive [давай сначала v]\nif <not <(уровень) = [5]>> then\n    show\n    go to x: (-208) y: (-10)\n    repeat (5)\n        set [гравитация v] to [0]\n    end\nelse\n    show\n    go to x: (-122) y: (-88)\n    repeat (5)\n        set [гравитация v] to [0]\n    end\nend\n\nwhen I receive [пружина v]\nchange [прыгаю v] by (17)\nrepeat (17)\n    change y by (прыгаю)\n    set [гравитация v] to [0]\n    change [прыгаю v] by (-1)\nend\nset [гравитация v] to [0]\nset [прыгаю v] to [0]\n\nwhen I receive [канетс v]\nhide\n\nwhen I receive [прыжок! v]\nif <(Босс говорит?) = [Нет]> then\n    if <touching (слой земли v)?> then\n        set [прыгаю два v] to [1]\n        set [прыгаю v] to [15]\n        repeat (15)\n            change y by (прыгаю)\n            set [гравитация v] to [0]\n            change [прыгаю v] by (-1)\n        end\n        set [гравитация v] to [0]\n        set [прыгаю два v] to [0]\n    end\nend\n\nwhen I receive [налево! v]\nif <(Босс говорит?) = [Нет]> then\n    change x by (-10)\nend\n\nwhen I receive [направоё v]\nif <(Босс говорит?) = [Нет]> then\n    change x by (10)\nend\n\nwhen flag clicked\nforever\n    if <(Босс говорит?) = [Нет]> then\n        if <mouse down?> then\n            if <(mouse x) > [0]> then\n                change x by (10)\n            else\n                if <(mouse x) < [0]> then\n                    change x by (-10)\n                else\n                end\n            end\n            if <(mouse y) > [0]> then\n                if <(Босс говорит?) = [Нет]> then\n                    if <touching (слой земли v)?> then\n                        set [прыгаю v] to [15]\n                        repeat (15)\n                            change y by (прыгаю)\n                            set [гравитация v] to [0]\n                            change [прыгаю v] by (-1)\n                        end\n                        set [гравитация v] to [0]\n                    end\n                end\n            end\n        end\n    end\nend\n\n@слой земли\n\nwhen flag clicked\nswitch costume to (костюм 1 v)\ngo to x: (43) y: (55)\npoint in direction (90)\n\nwhen I receive [следующий уровень! v]\nnext costume\n\nwhen I receive [поворот сюжета v]\nrepeat (12)\n    move (10) steps\n    turn left (15) degrees\nend\ngo to x: (43) y: (55)\npoint in direction (90)\n\n@текст\n\nwhen flag clicked\nif <(язык) = [рус]> then\n    switch costume to (русский v)\nelse\n    switch costume to (английский v)\nend\n\nwhen I receive [следующий уровень! v]\nif <not <<(costume [name v]) = [русский2]> or <(costume [name v]) = [английский 2]>>> then\n    next costume\nelse\n    if <(язык) = [рус]> then\n        switch costume to (русский4 v)\n    else\n        switch costume to (английский4 v)\n    end\nend\n\nwhen I receive [может не так просто? v]\nif <(язык) = [рус]> then\n    switch costume to (русский3 v)\nelse\n    switch costume to (английский3 v)\nend\n\nwhen I receive [поехали! v]\nforever\n    go to [front v] layer\nend\n\nwhen I receive [может не так просто? v]\nif <(язык) = [рус]> then\n    switch costume to (русский3 v)\nelse\n    switch costume to (английский3 v)\nend\n\nwhen I receive [канетс v]\nstop [other scripts in sprite v]\nwait (0.1) seconds\nstop [all v]\n\n@правый край\n\nwhen flag clicked\nhide\nwait (1) seconds\nshow\nforever\n    if <touching (персонаж v)?> then\n        broadcast (Следующий уровень! v)\n    end\nend\n\n@шипы\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (250) y: (-57)\nset [попал в ловушку 1? v] to [Нет]\nswitch costume to (костюм 1 v)\nshow\n\nwhen I receive [следующий уровень! v]\nif <(уровень) = [1]> then\n    hide\nelse\n    show\nend\nnext costume\n\nwhen I receive [близок к шипу 1 v]\nif <(попал в ловушку 1?) = [Нет]> then\n    if <(уровень) = [2]> then\n        broadcast (Может не так просто? v)\n        go to x: (150) y: (-57)\n        show\n        switch costume to (костюм 2 v)\n        set [попал в ловушку 1? v] to [Да]\n    end\nend\n\nwhen I receive [давай сначала v]\nset [попал в ловушку 2? v] to [Нет]\nset [попал в ловушку 1? v] to [Нет]\nif <(уровень) = [2]> then\n    go to x: (250) y: (-57)\n    hide\nend\nif <(уровень) = [6]> then\n    switch costume to (костюм 6 v)\nend\n\nwhen flag clicked\nset [попал в ловушку 2? v] to [Нет]\nforever\n    if <(costume [number v]) = [5]> then\n        repeat until <(уровень) = [6]>\n            if <(уровень) = [5]> then\n                go to x: (150) y: (-57)\n                repeat (15)\n                    change y by (-10)\n                end\n                repeat (15)\n                    change y by (10)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [близок к шипу 2 v]\nif <(попал в ловушку 2?) = [Нет]> then\n    if <(уровень) = [6]> then\n        go to x: (196) y: (-57)\n        show\n        switch costume to (костюм 7 v)\n        set [попал в ловушку 2? v] to [Да]\n    end\nend\n\nwhen flag clicked\nset [переходила? v] to [Нет]\nforever\n    if <(costume [number v]) = [6]> then\n        go to x: (250) y: (-57)\n    else\n        if <(costume [number v]) = [8]> then\n            if <(переходила?) = [Нет]> then\n                go to x: (15) y: (-150)\n                set [переходила? v] to [Да]\n            end\n            repeat (75)\n                turn right (7) degrees\n                move (10) steps\n            end\n        end\n    end\n    if <(costume [number v]) = [9]> then\n        hide\n        wait (0.7) seconds\n        create clone of (_myself_ v)\n    end\n    if <(costume [number v]) = [10]> then\n        hide\n    end\nend\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [9]> then\n    point in direction (-120)\n    go to x: (pick random (0) to (300)) y: (pick random (40) to (200))\n    repeat until <touching color (#00c324)?>\n        move (20) steps\n    end\n    delete this clone\nend\n\n@троллфэйс\n\nwhen flag clicked\ngo to x: (27) y: (0)\nhide\n\nwhen I receive [затролили!! v]\nclear graphic effects\nshow\nrepeat (2)\n    go to [front v] layer\n    change x by (3)\n    change [color v] effect by (30)\n    wait (0.1) seconds\n    go to [front v] layer\n    change y by (3)\n    change [color v] effect by (30)\n    wait (0.1) seconds\n    change x by (-3)\n    go to [front v] layer\n    change [color v] effect by (30)\n    wait (0.1) seconds\n    change y by (-3)\n    go to [front v] layer\n    change [color v] effect by (30)\n    wait (0.1) seconds\nend\nhide\nbroadcast (Давай сначала v)\n\n@пружина\n\nwhen flag clicked\nhide\nforever\n    if <(уровень) = [3]> then\n        show\n        go to x: (-4) y: (-176)\n    else\n        hide\n    end\nend\n\n@боссик\n\nwhen flag clicked\nset [босс говорит? v] to [Нет]\npoint in direction (90)\ngo to x: (20) y: (22)\nhide\n\nwhen I receive [выход босса ._. v]\nswitch costume to (костюм 2 v)\nshow\nset [босс говорит? v] to [Да]\nwait (1) seconds\nif <(язык) = [англ]> then\n    say [Hello, human!] for (1.5) seconds\n    say [Glad to see you.] for (1.5) seconds\n    say [Joke. I'm angry you still live.] for (2) seconds\n    say [I made for you a lot of traps and troll-levels, but you solved all!!!!] for (3.7) seconds\n    say [Arghhhhhh!!!] for (1) seconds\n    say [But now, I'll kill you! ] for (1) seconds\n    say [You'll never finish this level!!] for (1) seconds\n    wait (1) seconds\n    say [Hm... I forgot to say my name...] for (2) seconds\n    wait (1) seconds\n    switch costume to (костюм 3 v)\n    say [TROLLBOSS!!] for (1.5) seconds\n    broadcast (меч, твой выход v)\n    wait (4.1) seconds\n    say [Faster!] for (1) seconds\n    wait (1) seconds\n    say [Stop... what?!] for (1) seconds\n    say [STOP!!] for (1) seconds\n    say [No!!] for (1) seconds\n    wait (0.8) seconds\n    repeat (6)\n        turn right (10) degrees\n    end\n    say [I'll come back!..] for (2) seconds\nelse\n    say [Привет, человек!] for (1.5) seconds\n    say [Рад видеть тебя.] for (1.5) seconds\n    say [Шутка! Я зол, на то что ты жив!!] for (2) seconds\n    say [Я делал против тебя очень много ловушек и тролл-уровней, но ты прошёл все!!!] for (3.7) seconds\n    say [Аргргрхххх!!!] for (1) seconds\n    say [Но сейчас я убью тебя!] for (1) seconds\n    say [Ты никогда не закончишь этот уровень!!] for (2) seconds\n    wait (1) seconds\n    say [Э... я забыл сказать своё имя...] for (2) seconds\n    wait (1) seconds\n    switch costume to (костюм 3 v)\n    say [ТРОЛЛБОСС!!] for (1.5) seconds\n    broadcast (меч, твой выход v)\n    wait (3) seconds\n    say [Быстрее!] for (1) seconds\n    wait (1) seconds\n    say [Стоп... что?!] for (1) seconds\n    say [ОСТАНОВИСЬ!!] for (1) seconds\n    say [Нет!!] for (1) seconds\n    wait (0.8) seconds\n    repeat (6)\n        turn right (10) degrees\n    end\n    say [Я вернусь!..] for (2) seconds\nend\nwait (1) seconds\npoint in direction (90)\ngo to x: (21) y: (5)\nbroadcast (Канетс v)\nrepeat (2)\n    go to [front v] layer\nend\nswitch costume to (костюм 4 v)\n\n@Спрайт 1\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (20) y: (22)\nhide\n\nwhen I receive [выход босса ._. v]\nshow\n\nwhen I receive [меч, твой выход v]\nrepeat (8)\n    turn left (15) degrees\nend\nglide (4) secs to x: (-101) y: (-34)\nwait (2) seconds\nrepeat (10)\n    turn left (15) degrees\nend\nwait (1) seconds\nglide (1) secs to x: (6) y: (-36)\n\n@русский\n\nwhen flag clicked\nhide\n\nwhen I receive [смена языка v]\nshow\n\nwhen this sprite clicked\nset [язык v] to [рус]\n\n@English\n\nwhen flag clicked\nhide\n\nwhen I receive [смена языка v]\nshow\n\nwhen this sprite clicked\nset [язык v] to [англ]\n\n