InStr Style_NonActiveText=Сердце леса
:0

cls
Style_BackColor=255*256*256+255*256+255
Style_TextColor=0



inv_visible false
btn_visible true
Music="music/Title.mp3"

зел=0
Кристалл_лок=40 ;40 -волхв 41- леший 42- ягиня 43-орел 44-тсиваз
Медальон_лок=43
Медальон2_лок=41
Ступка_лок=42
Чурка_лок=0
Шест_лок=0
Ведро_лок=6
Веревка_лок=9
Половик_лок=0
Перчатка_лок=0
Ключ_лок=0
Топор_лок=18
Нож_лок=0
Перун_лок=0
Оберег_лок=40
Ягоды_лок=0
Книга_лок=44
Гриб_лок=12
Посох_лок=40
Грядка_лок=0
spis=0
Волхв_лок=11
Ягиня_лок=34
Леший_лок=18
Тсиваз_лок=23

;-----------------------------для проверки игры---------------------------------

Сила=0
;-------------------------------------------------------------------------------

:1    ;
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/заголовок.jpg" class="foto"></div>    
</body>
</html>
pln <br><font color= #D2691E>
pln Родомир и Любомила: Сердце леса.</font> <br>
pln Автор квеста: <font color=blue>Трофимчук Владимир</font><br>
pln <font color=red>Версия: 2.1 для платформы akURQ 1.28 </font>

loc=1   ;номер локации где находится в данный момент игрок
Дверь=0  ;дверь в заброшенный дом заперта

btn 3,НАЧАТЬ ИГРУ 
btn 3_i,ИНСТРУКЦИЯ
btn 2,АВТОР
end


:2
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/заголовок.jpg"></div>
<br><font size=3 color=black>
Автор квеста: <font color=blue>Трофимчук Владимир </font> (nikname <font color=blue>Troll ) </font> <br>
Игра сделана по одноимённой сказке моего сочинения.<br>
Начата <font color=green>6 мая 2010 года в 23.50</font> <br>
Закончена <font color=green>4 июня 2011 года в 8.00</font>

</body>
</html>
btn 1,В ГЛАВНОЕ МЕНЮ
end

:3_i
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/заголовок.jpg"></div>
<br><font size=3 color=black>
<br><font color=white>-----</font>Некоторые отличия от классических текстовых квестов.
<br>В игровой опции "инвентарь", кликнув мышкой правой кнопкой есть возможность отключить фоновую музыку и сохраниться.
<br>В опции "игрок" есть возможность вызвать дополнительное меню также, как и в других появляющихся игровых предметов,
активно использующиеся в игре. Вызывать их необходимо правой кнопкой мыши.
<br>Пример: Нажав на предмет "Топор" вы можете увидеть опции: Осмотреть, Применить, Отдать, Бросить.
<br>Квест с графическим, музыкальным и звуковым оформлением, в остальном квест от классических не отличается.
</body>
</html>
btn 1,В ГЛАВНОЕ МЕНЮ
end

:3
cls
html true
loc=3
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/герой.jpg" class="foto">
<img src="#quest_path$/Person/героиня.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln Вы будете играть за мальчика или девочку?
btn man,ЗА МАЛЬЧИКА
btn woman, ЗА ДЕВОЧКУ
end

:man
hero=1
inv+ Герой
goto 3_1

:outhero
cls
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/герой.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
goto herous

:woman
hero=0
inv+ Героиня
:3_1
cls
html true
loc=3
if hero=1 then goto outhero
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/героиня.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>

:herous
pln Введите своё имя.
instr name=
input name
if name="" and hero=1 then instr name=Родомир
if name="" and hero=0 then instr name=Любомила



:50
loc=50
Music="music/jetno.mp3"
inv_visible true
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/двор.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
if hero=1 then pln Ты, #%name$, – простой мальчик из деревенской глубинки. Как-то раз ты решил направиться на поиски приключений, вышел из дому, когда никого не было из взрослых и отправился, как говорится, куда глаза глядят. А глаза в то время смотрели в сторону леса, находящегося у слободки. В этот лес уж давно никто из ваших сельчан и не наведывался.
if hero=0 then pln Ты, #%name$, – простая девочка из деревенской глубинки. Как-то раз ты решила направиться на поиски приключений, вышла из дому, когда никого не было из взрослых и отправилась, как говорится, куда глаза глядят. А глаза в то время смотрели в сторону леса, находящегося у слободки. В этот лес уж давно никто из ваших сельчан и не наведывался.

btn 5,ДАЛЬШЕ ; 5
end
;-------------------------------------УЛИЦА----------------------------------
:4 ; слободская улица
Music="Music/jetno.mp3"
inv_visible true 
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/улица.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Слободская улица. </font><br> 
if look4=1 then pln Вдоль каменистой улицы стоит плетень из лозы ивы, рядом с которым растут красивые цветы. За плетнем вида белая хатка, рядом с которой находится лавушка. 
loc=4
if helporlig>1 then Орлиг_лок=loc
if bay=1 then Орлиг_лок=0
xbtn 4,{look4=1},ОСМОТРЕТЬСЯ
if Орлиг_лок=4 and hero=0 then btn orlig1,ПОГОВОРИТЬ С ЮНОШЕЙ
if Орлиг_лок=4 and hero=1 then btn orlig2,ПОГОВОРИТЬ С ДЕВУШКОЙ

btn 5,ПОДОЙТИ К ДОМУ
btn 7,НАПРАВИТЬСЯ К КОЛОДЦУ
btn 8,ВЫЙТИ НА ДОРОГУ К ЛЕСУ
btn 26,ИДТИ К ПУСТЫРЮ
proc obj
end

:orlig1
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/улица.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Слободская улица. </font><br>
if look4=1 then pln Вдоль каменистой улицы стоит плетень из лозы ивы, рядом с которым растут красивые цветы. За плетнем вида белая хатка, рядом с которой находится лавушка.<br> 
pln <br>
 
pln  Юноша: - Здесь неподалеку мой дом.<br>
pln  #%name$: - А мой здесь, напротив.<br>
pln  Юноша: - Ты меня спасла, можно тебе предложить свою дружбу?.<br>
pln  #%name$: - Я согласна, заходи в гости, всегда буду рада. А сейчас нам нужно прощаться, у меня есть одно важное дело. До встречи!<br>
pln Юноша: - Прощай. <br>
bay=1
btn 4, ДАЛЬШЕ
end

:orlig2
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/улица.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Слободская улица. </font><br>
if look4=1 then pln Вдоль каменистой улицы стоит плетень из лозы ивы, рядом с которым растут красивые цветы. За плетнем вида белая хатка, рядом с которой находится лавушка. <br>
pln <br> 
pln Девушка: - Здесь неподалеку мой дом. <br> 
pln #%name$: - А мой здесь, напротив. Ты не против дружбы со мной? <br>
pln Девушка: - Нет, ты ведь меня спас и ты теперь мой друг. <br>

pln #%name$: - А сейчас нам нужно прощаться, у меня есть одно важное дело. До встречи!<br>
pln Девушка: - Прощай.<br> 
bay=1
btn 4, ДАЛЬШЕ
end





;----------------------------------ДВОР НАШЕГО ДОМА
:5 ;двор дома
if seed=2 then seed=3
inv_visible true 
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/двор.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Двор нашего дома. </font><br> 
if (look5=1 and seeПоловик=0) then seeПоловик=1 & pln Ты стоишь во дворе дома с красивым резным крыльцом, у порга которого есть половик. Вокруг хатки посажены цветы в клумбах, огражденные каменной кладкой, растет яблоня и родовой дуб. & Половик_лок=5 & Грядка_лок=5 & goto 5_1
if (look5=1 and seeПоловик=1) then pln Ты стоишь во дворе дома с красивым резным крыльцом у порга. Вокруг хатки посажены цветы в клумбах, огражденные каменной кладкой, растет яблоня и родовой дуб.

:5_1
loc=5

xbtn 5,{look5=1},ОСМОТРЕТЬСЯ
btn 6,ВОЙТИ В ДОМ ;6
btn 10,ИДТИ В САД
btn 4,ВЫЙТИ НА УЛИЦУ
proc obj
end





;------------------------------------------локация при входе в дом--------------
:6
inv_visible true  
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/двор.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
if Дверь=0 then play sound/Dverlock.wav & pln Дверь в дом заперта. & pause 2000 & goto 5 
if active=0 then play sound/Dver.wav 
:6_Вход
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/дом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Наша хатка. </font><br>
if look6=1 then pln Лучи солнца, проникающие через небольшие окна освещают дубовый стол, покрытый красивой скатертью, лавки вдоль стен. Слева от меня сложена печь.
loc=6
active=1
xbtn 6_Вход,{look6=1},ОСМОТРЕТЬСЯ
xbtn 5,{play sound/Dver.wav & active=0},ВЫЙТИ ВО ДВОР
proc obj 
end


;-----------------------------------У ПОГРЕБА-----------------------------
:24 ; у погреба
if ДверьПогреба=1 then goto 24_открыт
if seed=2 then seed=3
inv_visible true 
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/погреб.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>

:24_look
loc=24
pln Это наш погреб.

if look24=1 then pln В нем мы храним свои продукты и запасы на зиму. Подойдя ближе к погребу ты видишь над входом фарфоровую трубку на веревке. & Трубка_лок=24

xbtn 24,{look24=1},ОСМОТРЕТЬСЯ
btn 9,ВОЙТИ В ПОГРЕБ
btn 10,ИДТИ В САД
proc obj 
end

 
:24_открыт ; у открытого погреба
cls
inv_visible true 
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/погреб2.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
goto 24_look




;-----------------------------------------Погреб--------------------------------
:9 ;погреб
 
cls
inv_visible true 
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/погреб.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
if ДверьПогреба=0 then pln Дверь в погреб закрыта и ручек на ней нет. & pause 2000 & goto 24 

cls
loc=9
if Кристалл then goto 9_1
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/темень.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
:9_2
pln Погреб. Дверь за тобой закрылась. </font><br>
play sound/mysh.wav
if not Кристалл then pln Здесь очень темно. & seetemno=1
if not Кристалл and look9=1 then pln В кромешной темноте ты слышишь лишь писк мышей. 
 
if Кристалл then pln Под ногами юркают мыши и слышен их писк. 

if look9=1 and Кристалл then pln В голубоватом свете ты видишь полки с банками варенья, солений и других консерваций. 
if look9=1 and Кристалл and seeseed=0 then pln Ты видишь на одной из полок какие-то семена. & seeseed=1 & Семена_лок=9 

xbtn 9,{look9=1},ОСМОТРЕТЬСЯ
if Кристалл then proc obj
xbtn 24,{ДверьПогреба=0 & look9=0},ВЫЙТИ
end

:9_1
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/внутрип.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
goto 9_2

;-------------------------------------------колодец-----------------------------
:7
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/колодец.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Колодец </font><br>
loc=7
if look7=1 then pln Над бревенчатой коробкой колодца возвышается на двух толстых осиновых столбах крыша с резьбой. Ворот колодца с ручкой в виде колеса не имеет ведра.

xbtn 7,{look7=1},ОСМОТРЕТЬСЯ
proc obj
btn 4,НА УЛИЦУ
end

;----------------------------------------------дорога---------------------------
:8
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/дорога.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Широкая Ярилина дорога.</font><br><font size=3>
loc=8 & play sound/bird.wav
if look8=1 then pln Небо ясное, безоблачное радовало тебя своею чистотою. Приветливо чирикали птахи. Редкий кустарник барбариса по обочинам дороги придавал твоему настроению веселый характер.

xbtn 8,{look8=1},ОСМОТРЕТЬСЯ
proc obj
btn 12,К БЕРЁЗОВОЙ ОПУШКЕ
btn 11,НА КАПИЩЕ
btn 4,К ОКОЛИЦЕ   
end


;----------------------------------------------САД---------------------------
:10 ;сад
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/сад.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Наш сад. </font><br><font size=3>
if look10=1 then pln Ты в своем прекрасном саду с ягодниками, цветочными полянками. В центре сада у тебя есть небольшое озерцо, где ты иногда купаешься.  
loc=10

xbtn 10,{look10=1},ОСМОТРЕТЬСЯ
proc obj
btn 5,ВО ДВОР 
btn 24,К ПОГРЕБУ   
end


;-------------------------------------Хижина Волхва------------------------------
:11 ; капище
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Капище.</font> <br><font size=3>
if look11=1 then pln Огороженное невысокой изгородью, капище представляет из себя частокол резных чуров, изображающие наших умерших далеких предков. На изгородях свисают обережные знамена.   
pln
loc=11
xbtn 11,{look11=1},ОСМОТРЕТЬСЯ
proc obj
btn 45,ОСМОТРЕТЬ ВОЛХВА
btn 11_разгВолхв,ПОГОВОРИТЬ С ВОЛХВОМ
btn 8,НА ДОРОГУ   
end


:45 ;осмотр Волхва
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/волхв.jpg" class="foto"></div>
</body>
</html>
loc=45
pln <br><font size=3 color=black>
pln Невысокий седовласый и белобородый дедушка в длинном белом волховском костюме с орнаментами на рукавах, с деревянным посохом в руке.<br>
if Оберег_лок=40 then pln На шее волхва ты заметил красивый оберег. & seeAmul=1
if Кристалл_лок=40 then pln В левой руке волхв держал кристалл.
look=1
карман=40
proc see_Карман
btn 11,НАЗАД   
end
 
:46 ;осмотр Лешего
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/леший.jpg" class="foto"></div>
</body>
</html>
loc=46
pln <br><font size=3 color=black>
pln Старый человек с длинными седыми волосами, доходящими почти до земли и седой бородкой. На нем зеленый костюм с широким кожаным поясом и медальоном на груди. В руке у него плетеный посох.<br>
look=1
карман=41
proc see_Карман
btn 18,НАЗАД   
end 

 
:47 ;осмотр Ягини
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/ягиня.jpg" class="foto"></div>
</body>
</html>
loc=47
pln <br><font size=3 color=black>
pln Молодая и красивая девушка с длинными вьющимися волосами и яркими большими голубоватыми глазами, выражающие доброту и чистоту. В ее руке находится флакон для снадобья, а рядом на столе находится фарфоровая ступка. Ягиня - потомок знаменитой знахарки Бабы-Яги.<br>
карман=42
proc see_Карман
btn 34,НАЗАД   
end 



:48 ;осмотр Орла
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/орлан.jpg" class="foto"></div>
</body>
</html>
loc=48
pln <br><font size=3 color=black>
if hero=0 then pln Огромный орел - полу-птица, полу-человек с атласной накидкой и кожаном костюме.<br>
if hero=1 then pln Огромная орлица - полу-птица, полу-человек с атласной накидкой и кожаном костюме.<br>

карман=43
proc see_Карман
btn 21,НАЗАД   
end 


:49 ;осмотр Тсиваза
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/тсиваз.jpg" class="foto"></div>
</body>
</html>
loc=49
pln <br><font size=3 color=black>
pln  Седой колдун в капюшоне и колдовском костюме со слегка прикрытыми глазами делал магические пассы руками, крутя светящуюся сферу. Он сидел на кресле со спинкой с изображениями рогов и змей и бормотал что-то на непонятном мне языке. <br>
карман=44
proc see_Карман
btn 23,НАЗАД   
end 


:51 ;осмотр Юноши
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/орлиг.jpg" class="foto"></div>
</body>
</html>
loc=51
pln <br><font size=3 color=black>
pln Это молодой юноша.<br>

карман=43
proc see_Карман
btn 21,НАЗАД   
end 


:52 ;осмотр Девушки
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Person/орлига.jpg" class="foto"></div>
</body>
</html>
loc=52
pln <br><font size=3 color=black>
pln Это молодая девушка.<br>

карман=43
proc see_Карман
btn 21,НАЗАД   
end 


:see_Карман

if карман=40 then pln & proc outbtn & end
if карман=41 then pln & proc outbtn & end
if карман=42 then pln & proc outbtn & end
if карман=43 then pln & proc outbtn & end
if карман=44 then pln & proc outbtn & end

end

:40 ;карман Волхва
goto 45
end


:outbtn

if Топор_лок=#карман$ then btn use_Топор, ОСМОТРЕТЬ ТОПОР & btn ВзятьТопор, ПОПРОСИТЬ ТОПОР
if Оберег_лок=#карман$ then btn use_Оберег, ОСМОТРЕТЬ ОБЕРЕГ & btn ВзятьОберег, ПОПРОСИТЬ ОБЕРЕГ
if Посох_лок=#карман$ then btn use_Посох, ОСМОТРЕТЬ ПОСОХ 
if Кристалл_лок=#карман$ then btn use_Кристалл, ОСМОТРЕТЬ КРИСТАЛЛ & btn ВзятьКристалл, ПОПРОСИТЬ КРИСТАЛЛ
if Луковица_лок=#карман$ then btn use_Луковица, ОСМОТРЕТЬ ЛУКОВИЦУ & btn ВзятьЛуковицу,ПОПРОСИТЬ ЛУКОВИЦУ
if Семена_лок=#карман$ then btn use_Семена, ОСМОТРЕТЬ СЕМЕНА & btn ВзятьСемена,ПОПРОСИТЬ СЕМЕНА
if Перчатка_лок=#карман$ then btn use_Перчатка, ОСМОТРЕТЬ ПЕРЧАТКУ & btn ВзятьПерчатку, ПОПРОСИТЬ ПЕРЧАТКУ
if Ягоды_лок=#карман$ then btn use_Ягоды, ОСМОТРЕТЬ ЯГОДЫ & btn ВзятьЯгоды, ПОПРОСИТЬ ЯГОДЫ
if Зелье_лок=#карман$ then btn use_Зелье, ОСМОТРЕТЬ ЗЕЛЬЕ & btn ВзятьЗелье, ПОПРОСИТЬ ЗЕЛЬЕ
if Нож_лок=#карман$ then btn use_Нож, ОСМОТРЕТЬ НОЖ & btn ВзятьНож, ПОПРОСИТЬ НОЖ
if Перун_лок=#карман$ then btn use_Перун, ОСМОТРЕТЬ ПЕРУНА & btn ВзятьПеруна, ПОПРОСИТЬ ПЕРУНА
if Чурка_лок=#карман$ then btn use_Чурка, ОСМОТРЕТЬ ЧУРКУ & btn ВзятьЧурку, ПОПРОСИТЬ ЧУРКУ
if Шест_лок=#карман$ then btn use_Шест, ОСМОТРЕТЬ ШЕСТ & btn ВзятьШест, ПОПРОСИТЬ ШЕСТ
if Ведро_лок=#карман$ then btn use_Ведро, ОСМОТРЕТЬ ВЕДРО & btn ВзятьВедро, ПОПРОСИТЬ ВЕДРО
if Веревка_лок=#карман$ then btn use_Веревка, ОСМОТРЕТЬ ВЕРЁВКУ & btn ВзятьВеревку, ПОПРОСИТЬ ВЕРЁВКУ
if Половик_лок=#карман$ then btn use_Половик, ОСМОТРЕТЬ ПОЛОВИК & btn ВзятьПоловик, ПОПРОСИТЬ ПОЛОВИК
if Ключ_лок=#карман$ then btn use_Ключ, ОСМОТРЕТЬ КЛЮЧ & btn ВзятьКлюч, ПОПРОСИТЬ КЛЮЧ
if Гриб_лок=#карман$ then btn use_Гриб, ОСМОТРЕТЬ ГРИБ & btn ВзятьГриб, ПОПРОСИТЬ ГРИБ
if Книга_лок=#карман$ then btn use_Книга, ОСМОТРЕТЬ КНИГУ & btn ВзятьКнигу, СХВАТИТЬ КНИГУ
if Медальон_лок=#карман$ then btn use_Медальон, ОСМОТРЕТЬ МЕДАЛЬОН 
if Медальон2_лок=#карман$ then btn use_Медальон2, ОСМОТРЕТЬ МЕДАЛЬОН 
if Ступка_лок=#карман$ then btn use_Ступка, ОСМОТРЕТЬ СТУПКУ 

end


:41 ;карман Лешего
goto 46
end

:42 ;карман Ягини
goto 47
end

:43 ;карман Орла
goto 48
end

:44 ;карман Тсиваза
goto 49
end

:11_разгВолхв
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln Что ты скажешь Волхву?
if hello=0 then btn 11_1, Здравствуйте, дедушка!
if (hello=1 and stone=1) then btn 11_6, Вы знаете что-нибудь об огромном камне в лесу?
if hello=1 then btn 11_8, Вы можете рассказать мне о лесе?
if hello=1 then btn 11_11, Раскажите про капище, дедушка.
if hello=1 then btn 11_9, А зачем здесь алтарь?
if (hello=1 and seeAmul=1) then btn 11_10, Расскажите мне про свой оберег.
if (hello=1 and leshiy=1) then btn 11_12, Из чего делают чуры?
if (Вода=1 and hello=1) then btn 11_7, Не хотите ли утолить жажду?
if hello=1 then btn 11_3, До свидания, старче!
hello=1
look=0
end

:11_1
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - Здравствуй, #%name$ - отвечает Волхв.
hello=1
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР 
end



:11_3
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - До свидания, #%name$! - говорит Волхв. & hello=0 
btn 11, До встречи!
end


:11_6
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
if stonetalk<4 then stonetalk=stonetalk+1
if stonetalk=1 then pln - Тот камень появился после того, как к нам наведался колдун Тсиваз. - Проговорил Волхв. & seeTsivaz=1
if stonetalk=2 then pln - После того как камень появился, лес в этом месте вымер. - Сказал Волхв.
if stonetalk=3 then pln - По всей видимости на этот камень наложено сильное чёрное заклятие: возле него гибнут люди. - Шопотом произнёс это Волхв.
if stonetalk=4 then pln - Больше ничего, к сожалению, мне о камне неизвестно. - Сказал Волхв и замолчал.
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_7
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - Вода свежая, колодезная. <br>
if ЖаждаВ=0 then pln - Спасибо, #%name$, с удовольствием. - Поблагодарил Волхв и зачерпнул ковшом воды из твоего ведра. & ЖаждаВ=1 & btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР & end
if ЖаждаВ=1 then pln - Спасибо, #%name$, мне больше не хочется. - Сказал Волхв.
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_8
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
if talkАхтар=1 then pln - В лесу живут Леший и его сестра Ягиня. Но я с ними давненько не виделся.
if talkАхтар=0 then pln - В лес лучше не ходи! Там есть одно гиблое место. & talkАхтар=1
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_9
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - На алтарь приносят слободчане пожертвования. В основном, это цветы и еда, которые оставляются здесь нашим предкам, ушедшим в другой мир.
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_10
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - Это привеска от сглазу, огня, воды и прочие напасти. Она даёт духовную силу обладателю.
if volsh=0 and seeНож=0 then seeНож=1 & goto 11_101
if volsh=1 and seeНож=0 then seeНож=1 & goto 11_102
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_102
html true

pln На мне сейчас надет один оберег, придающий хозяину бесстрашие и духовную силу. Если он тебе необходим - ты можешь его получить взамен на перуна, сделанного из дуба. У тебя есть мой волшебный ножик - береги его! & leshiy=1
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end


:11_101
html true

pln На мне сейчас надет один оберег, придающий хозяину бесстрашие и духовную силу. Если он тебе необходим - ты можешь его получить взамен на перуна, сделанного из дуба. Вот тебе волшебный ножик - береги его! - С этими словами Волхв дал тебе нож. & inv+ Нож  & leshiy=1
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end


:11_11
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - Это наш берендейский храм. В этом священном месте я молю наше тресветлое солнышко - Ярилу о благе для слободчан.
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end

:11_12
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/капище.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
pln - Это дубовый чур. Наши древорезы раньше делали их в человеческий рост, сейчас же они их вырезают с локоток - Сказал с сожалением Волхв.
btn 11_разгВолхв,ПРОДОЛЖИТЬ РАЗГОВОР
end


;-------------------------------Берёзовая опушка ---------------------------------
:12 ; березовая опушка
inv_visible true  
Music="music/jetno.mp3"
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/опушка.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Берёзовая опушка.</font><br>
loc=12
if look12=1 then pln Ты стоишь среди белоствольных красавиц нашей Земли на самом краю леса.

xbtn 12,{look12=1},ОСМОТРЕТЬСЯ
proc obj
btn 13,В ГЛУБЬ ЛЕСА
btn 8,ОБРАТНО НА ДОРОГУ   
end
;----------------------------Странный лес---------------------------------------

:13
inv_visible true  
Music="music/Akira Yamaoka - Melancholy Requiem.mp3"
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/мертвлес.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln У странного леса.</font><br><font size=3>
if look13=1 then pln Он выглядит совершенно сухим и безжизненным.
if look13=1 then pln Высокие дубы да берёзки стоят без листвы, а на ёлках и соснах нет ни хвоинки. 
if look13=1 then pln Трава, засохшая да выгоревшая покрывает всю землю.  
if look13=1 then pln Справа и слева от тебя находятся колючие непролазные кусты. Узкая тропинка ведёт в глубь леса.

loc=13

xbtn 13,{look13=1},ОСМОТРЕТЬСЯ
proc obj
btn 14,К ДУБОВОЙ РОЩЕ
btn 12,К БЕРЁЗОВОЙ ОПУШКЕ   
end
;-------------------------------Дубовая роща------------------------------------
:14 ;дубовая роща
inv_visible true  
html true
pole=0
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/дубняк.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Дубовая роща.</font><br><font size=3>
if look14=1 then pln Здесь растут высокие почерневшие дубы и небольшой колючий кустарник с большими шипами и черными высохшими колючими ягодами.
loc=14

xbtn 14,{look14=1},ОСМОТРЕТЬСЯ
proc obj
btn 14_1,СОРВАТЬ ЯГОДЫ
btn 15,К БОЛЬШОЙ ПОЛЯНЕ
btn 13,К НАЧАЛУ ЛЕСА   
end

:14_1
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/дубняк.jpg" class="foto"></div>
</body>
</html>
pln <br>
if (perch=0 and hero=1) then pln Ты попробовал сорвать ягоды но из-за колючих шипов только весь изранился, так и не сорвав ни одной. & btn 14,ДАЛЬШЕ  & end
if (perch=0 and hero=0) then pln Ты попробовала сорвать ягоды но из-за колючих шипов только вся изранилась, так и не сорвав ни одной. & btn 14,ДАЛЬШЕ  & end

if (perch=1 and not Ягоды) then goto ВзятьЯгоды
if (perch=1 and Ягоды and hero=1) then pln Ты сорвал уже ягод.
if (perch=1 and Ягоды and hero-0) then pln Ты сорвала уже ягоды.

btn 14, ДАЛЬШЕ
end


;-------------------------------Большая поляна------------------------------------
:15 ;большая поляна
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/поляна1.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln На большой поляне.</font><br><font size=3>
if look15=1 then pln На пожухлой седой траве, в некоторых её местах, лежат кости то ли животных, то ли людей. 
if look15=1 then pln В самом центре поляны стоит огромный черный камень в два роста человеческого.
if pole=0 then play sound/ворон.wav & pole=1
loc=15
xbtn 15,{look15=1},ОСМОТРЕТЬСЯ
proc obj
btn 15_1,ОСМОТРЕТЬ КАМЕНЬ
if stone=1 then btn 15_3,СДВИНУТЬ КАМЕНЬ
btn 14,К ДУБОВОЙ РОЩЕ

btn 16,ИДТИ НА ВОСТОК
btn 19,ИДТИ НА ЗАПАД    
end

:15_1
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/поляна1.jpg" class="foto"></div>
</body>
</html>
pln <br>
stone=1
if hero=1 then pln Ты подошёл поближе к камню и увидел на камне выбитую страшную надпись: "Кто сей камень сдвинет, тот тотчас умрёт". 
if hero=0 then pln Ты подошла поближе к камню и увидела на камне выбитую страшную надпись: "Кто сей камень сдвинет, тот тотчас умрёт". 

if (perchsee=0 and Перчатка=0 and Перчатка_лок=0) then perchsee=1 & pln У камня среди костей обнаружена перчатка. & Перчатка_лок=15 
btn 15,ДАЛЬШЕ
end



:15_3
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/поляна1.jpg" class="foto"></div>
</body>
</html>
helpforest=1
pln <br>

if dvig=0 and АмулетНадет=0 then dvig=1 & pln Ты хочешь моей погибели? Я не буду этого делать никогда! Мне страшно, лучше уйти из этого места подальше.& btn 15,ДАЛЬШЕ & end
if dvig=0 and АмулетНадет=1 then dvig=2
if dvig=1 and АмулетНадет=0 then pln Нет... Я ужасно боюсь! Я еще жить хочу! & dvig=2 & btn 15,ДАЛЬШЕ & end
if dvig=1 and АмулетНадет=1 then dvig=2
if dvig=2 and АмулетНадет=0 then dvig=1 & goto 15_3
if hero=1 and dvig=2 and АмулетНадет=1 and Сила=0 then dvig=3  & ягиня=1 & pln А, была - не была, авось оберег поможет. Ты уперся ногами в землю, руками - в камень и... <br>Не смог, силенок видать маловато. & btn 15,ДАЛЬШЕ & end
if hero=0 and dvig=2 and АмулетНадет=1 and Сила=0 then dvig=3  & ягиня=1 & pln А, была - не была, авось оберег поможет. Ты уперлась ногами в землю, руками - в камень и... <br>Не смогла, силенок видать маловато. & btn 15,ДАЛЬШЕ & end

if dvig=3 and АмулетНадет=0 then pln Мне страшно его толкать. & btn 15,ДАЛЬШЕ & end
if hero=1 and dvig=3 and Сила=0 and АмулетНадет=1 then pln Руками своими ты упёрся в камень, ногами в землю, и что есть мочи поднатужился. Не шелохнулся камень могучий. Видать силенок маловато еще.& btn 15,ДАЛЬШЕ & end
if hero=0 and dvig=3 and Сила=0 and АмулетНадет=1 then pln Руками своими ты упёрлась в камень, ногами в землю, и что есть мочи поднатужилась. Не шелохнулся камень могучий. Видать силенок маловато еще.& btn 15,ДАЛЬШЕ & end


if hero=1 and dvig=3 and АмулетНадет=1 and Сила=1 and Слово=0 then pln Руками уперся в камень, ногами в землю, что есть мочи поднатужился. Зашатался камень тот, но не сдвинулся. Видать силенок маловато еще. & btn 15,ДАЛЬШЕ & end
if hero=0 and dvig=3 and АмулетНадет=1 and Сила=1 and Слово=0 then pln Руками уперлась в камень, ногами в землю, что есть мочи поднатужилась. Зашатался камень тот, но не сдвинулся. Видать силенок маловато еще. & btn 15,ДАЛЬШЕ & end


if hero=1 and dvig=3 and АмулетНадет=1 and Сила=1 and Слово=1 then pln Руками уперся в камень, ногами в землю, что есть мочи поднатужился. Вывернулся из земли камень и стал подниматься ввысь. & btn end2,ДАЛЬШЕ & end 
if hero=0 and dvig=3 and АмулетНадет=1 and Сила=1 and Слово=1 then pln Руками уперлась в камень, ногами в землю, что есть мочи поднатужилась. Вывернулся из земли камень и стал подниматься ввысь. & btn end2,ДАЛЬШЕ & end 


end


;-------------------------------Восточное Высохшее русло -----------------------
:16
inv_visible true  
pole=0
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/сухойручей.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln На высохшем восточном русле лесной речки.</font><br><font size=3>
if look16=1 then pln Когда-то здесь было много воды и плавали мелкие рыбешки. 
if look16=1 then pln Сейчас же ты видишь лишь голые камни да песок. Неподалёку находится жильё Лешего.

loc=16
xbtn 16,{look16=1},ОСМОТРЕТЬСЯ
proc obj
btn 17,К ЛЕШЕМУ 
btn 15,НА ПОЛЯНУ    
end

;------------------------------- У домика Лешего-------- -----------------------
:17
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/безлешего.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln У домика Лешего.</font><br><font size=3>
pln 
if look17=1 then pln Ты стоишь у кедрового сруба Лешего, крыша которого покрыта дерном. 

loc=17
xbtn 17,{look17=1},ОСМОТРЕТЬСЯ
proc obj
btn 18,КРИКНУТЬ ХОЗЯИНА 
btn 16,К ВЫСОХШЕЙ РЕКЕ    
end

:17_1
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/безлешего.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if hero=1 then pln Ты крикнул, никто не отозвался, вероятно, хозяин бродит по лесу. & btn 17, ДАЛЬШЕ & end 
if hero=0 then pln Ты крикнула, никто не отозвался, вероятно, хозяин бродит по лесу. & btn 17, ДАЛЬШЕ & end


;------------------------------- C Лешим-------- -----------------------
:18 ;у дома лешего
inv_visible true  
if leshiy=0 then goto 17_1
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Во дворе у дома лешего.</font><br><font size=3>
if look18=1 then pln Ты стоишь у кедрового сруба Лешего, крыша которого покрыта дерном. 
if topor=0 then pln У крыльца лежит топор.
pln 

loc=18
xbtn 18,{look18=1},ОСМОТРЕТЬСЯ
proc obj 
btn 46,ОСМОТРЕТЬ ЛЕШЕГО
btn 18_1,ПОГОВОРИТЬ С ЛЕШИМ
btn 17,ПОПРОЩАТЬСЯ С ЛЕШИМ    
end


:18_1
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
pln Что ты скажешь Лешему?

btn 18_2, Здравствуй!
btn 18_3, Что вы знаете о камне на поляне?
if seeТопор=0 then btn 18_4, Вы не могли бы дать мне топор?
if seeTsivaz=1 then btn 18_5, Что вы знаете о колдуне Тсивазе?
btn 18_6, До свидания!
end

:18_2
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Приветствую тебя, #%name$!
btn 18_1,ПРОДОЛЖИТЬ РАЗГОВОР
end

:18_3
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br>
seeTsivaz=1
pln Дык, энтот камень-то приволок сюда колдун Тсиваз и бросил прямо в сердце леса, чёрт бы его, дык, побрал. Пытался я его вывернуть, да силёнок нехватило. Если хочешь помочь лесу и сдвинуть камень - тебе надо обрести силу духовную, физическую и, возможно, волшебную...  О силе духовной знает ваш Волхв, силу физическую может дать Ягиня, живущая за болотом, а о волшебной силе я не знаю...
btn 18_1,ПРОДОЛЖИТЬ РАЗГОВОР
end

:18_4
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br>
if (Нож and hero=1) then pln -  А что ты можешь предложить взамен? - Спросил с ухмылкой Леший. И ты показал ему всё что у тебя есть. Леший обратил внимание на твой необычный с надписью нож и сказал<br> - О, давай махнёмся на вот этот ножик? & btn 18_41,СОГЛАСИТЬСЯ НА ОБМЕН  
if (Нож and hero=0) then pln -  А что ты можешь предложить взамен? - Спросил с ухмылкой Леший. И ты показала ему всё что у тебя есть. Леший обратил внимание на твой необычный с надписью нож и сказал<br> - О, давай махнёмся на вот этот ножик? & btn 18_41,СОГЛАСИТЬСЯ НА ОБМЕН  

if (not Нож and hero=1) then pln - А что ты мне дашь за него? - Спросил Леший. И ты показал всё, что есть. Леший посмотрел и сказал: - Нет, мне ничего из этого не нужно.
if (not Нож and hero=0) then pln - А что ты мне дашь за него? - Спросил Леший. И ты показала всё, что есть. Леший посмотрел и сказал: - Нет, мне ничего из этого не нужно.

btn 18_1,ПРОДОЛЖИТЬ РАЗГОВОР
end

:18_41
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html>
pln <br>
if hero=0 then pln Ты отдала нож Лешему и получил топор.
if hero=1 then pln Ты отдал нож Лешему и получил топор.

seeТопор=1
topor=1
inv- Нож
Нож_лок=0
inv+ Топор
Топор_лок=0
btn 18_1,ПРОДОЛЖИТЬ РАЗГОВОР
end




:18_5
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Знаю что это великий и ужасный лгун, старый обманщик, но дьявольски силён, дык его, раз дык.
btn 18_1,ПРОДОЛЖИТЬ РАЗГОВОР
end

:18_6
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/слешим.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Заходи почаще. - Попрощался Леший и зашёл к себе в хижину.

btn 17, ДАЛЬШЕ   
end



;-------------------------------У Болота---------------- -----------------------
:19 ; у болота
inv_visible true  
pole=0
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/болото.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Возле болота.</font><br><font size=3>
if look19=1 then pln Самое гиблое место в лесу. Много слободчан утонуло в его топкой трясине.
pln 
play sound/Frog.wav
loc=19
xbtn 19,{look19=1},ОСМОТРЕТЬСЯ
proc obj 
btn 19_1,ПЕРЕЙТИ БОЛОТО
btn 15,К ПОЛЯНЕ    
end
;--------------------------------------Трясина----------------------------------
:19_1
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/болото.jpg" class="foto"></div>
</body>
</html>
pln <br>
play sound/Frog.wav
if Шест then pln С помощью шеста ты благополучно перебрался на другой берег болота & btn 20, ДАЛЬШЕ & end
if not Шест then pln Ты ступил на кочку.... На другой оступился и провалился в трясину, которая стала постепенно затягивать тебя вглубь.

:19_11
html true
btn 19_4,СХВАТИТЬСЯ ЗА ЧТО-НИБУДЬ
btn 19_3,ПОПЫТАТЬСЯ ВЫБРАТЬСЯ
if hero=0 then btn help,ЗВАТЬ НА ПОМОЩЬ
if hero=1 then btn help1,ЗВАТЬ НА ПОМОЩЬ
end



:19_4
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/болото.jpg" class="foto"></div>
</body>
</html>
pln <br>
if hero=1 then pln Ты поискал за что можно ухватиться, но ничего не нашёл кроме травы на кочках, которая обрывалась у тебя в руках.
if hero=0 then pln Ты поискала за что можно ухватиться, но ничего не нашла кроме травы на кочках, которая обрывалась у тебя в руках.

goto 19_11

:19_3
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/болото.jpg" class="foto"></div>
</body>
</html>
pln <br>
x=rnd5
if x>2 then pln Попытка выбраться на берег не удалась. & goto 19_11
if (x<3 and hero=1) then pln Ты с трудом выбрался на берег болота. & btn,ДАЛЬШЕ & goto 19
if (x<3 and hero=0) then pln Ты с трудом выбралась на берег болота. & btn,ДАЛЬШЕ & goto 19

goto 19_11



;------------------------------------Избушка Ягини------------------------------
:20
inv_visible true  
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/безягини.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Ведьмин холм.</font><br>
if look20=1 then pln Здесь располагается лесная избушка Ягини с красивыми окошками и крыльцом.<br><font size=3>

:20_00
loc=20
proc obj
xbtn 20,{look20=1},ОСМОТРЕТЬСЯ
if ягиня=1 then btn 34,ВОЙТИ В ИЗБУШКУ
if ягиня=0 then btn 20_0,ВОЙТИ В ИЗБУШКУ
btn 19,ПЕРЕЙТИ БОЛОТО
end

:20_0
inv_visible true 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/безягини.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Ведьмин холм.</font><br>
pln Здесь распологается избушка Ягини.<br>
pln Я постучался в дверь, но никто мне не открыл. Видать хозяйки дома не было.
goto 20_00

 
;------------------------------------ Внутри Избушки Ягини------------------------------
:34 ; в избе у ягини
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягинивдоме.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Избушка Ягини.</font><br>
pln <br><font size=3>
if look34=1 and helloyagin=0 then helloyagin=1 & pln Хозяйка готовила что-то у котелка, но увидев тебя повернулась, сказав: Здравствуй, #%name$.
if look34=1 then pln В невысокой комнате девушки находился горящий очаг с котлом и стол с несколькими стульями. По стенам развешены луковые и чесночные связки, различные исцеляющие пучки трав. 

loc=34
proc obj
xbtn 34,{look34=1},ОСМОТРЕТЬСЯ
btn 47,ОСМОТРЕТЬ ЯГИНЮ
btn 20_1,ПОГОВОРИТЬ С ЯГИНЕЙ
btn 20,ВЫЙТИ ИЗ ИЗБУШКИ
end



:20_1
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягинивдоме.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Что скажешь Ягине?
btn 20_2, Здравствуйте. 
btn 20_4, Чем я могу помочь лесу?
if dvig=3 then btn 20_3, Я хочу сдвинуть камень на поляне.
if зел=4 then btn 20_5, Как же мне обрести волшебную силу?

btn 34, ЗАКОНЧИТЬ РАЗГОВОР
end

:20_2
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягинивдоме.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Добро пожаловать в мой дом, #%name$!
btn 20_1, ПРОДОЛЖИТЬ РАЗГОВОР
end

:20_3
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягинивдоме.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Для этого тебе надо обрести силу физическую, духовную и волшебную. Силой духовной ты уже обладаешь. Силу физическую могу дать я, а о волшебной силе мы поговорим потом.
pln Для обретения физической силы тебе нужно выпить зелье. Готовить буду его я, а ингридиенты ты должен добыть сам и отдать мне. 
pln Вот что ты должен найти - <br>1 - Ведро с колодезной водой, <br>2 - большой гриб дождевик, <br>3 - колючие ягоды и <br>4 - большую головку лука. 
btn 20_1, ПРОДОЛЖИТЬ РАЗГОВОР
end

:20_4
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягини.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln - Злой колдун Тсиваз погубил большую часть нашего великолепного леса. Под камнем находится сердце нашего леса. Если сдвинуть камень - лес оживёт.
btn 20_1, ПРОДОЛЖИТЬ РАЗГОВОР
end

:20_5
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уягини.jpg" class="foto"></div>
</body>
</html>
pln <br>
ВолшСлово=1 
if beseda1>0 then beseda2=1

if hero=0 then pln - У меня есть друг - Орел, может он тебе поможет? Ты с ним можешь встретится на скале. 
if hero=1 then pln - У меня есть подруга - Орлица, может она тебе поможет? Ты с ней можешь встретится на скале. 

btn 20_1, ПРОДОЛЖИТЬ РАЗГОВОР
end


;------------------------------------Логово ОРЛАНА------------------------------
:21 ; на скале у Орла
inv_visible true  
play sound/ветер.wav 
cls

if helporlig=3 then goto 21_скала
if helporlig=2 and hero=0 then goto 21_орлиг
if helporlig=2 and hero=1 then goto 21_орлига
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
loc=21

pln <br><font size=3 color=blue>
pln Скала.</font><br><font size=3>

Орлан_лок=21
if look21=1 then pln Ты на самой вершине скалы которую ярко освещает полуденное солнце. К подножью ведут несколько скальных уступов, по которым можно спуститься вниз.
if sogl=1 and hero=0 then pln Ты села верхом на орла.
if sogl=1 and hero=1 then pln Ты сел верхом на орлицу.
if sogl=2 and hero=1 then pln Ты слез с орлицы. & sogl=3
if sogl=2 and hero=0 then pln Ты слезла с орла. & sogl=3
proc obj
if sogl=3 and hero=1 then xbtn 21,{sogl=1},СЕСТЬ НА ОРЛИЦУ
if sogl=3 and hero=0 then xbtn 21,{sogl=1},СЕСТЬ НА ОРЛА
if sogl=1 then xbtn 27,{play sound/Eagles.wav},ЛЕТЕТЬ К ОСТРОВУ
xbtn 21,{look21=1},ОСМОТРЕТЬСЯ
if beseda=0 and hero=0 then btn 21_0,ПОГОВОРИТЬ С ОРЛОМ
if beseda=0 and hero=1 then btn 21_0,ПОГОВОРИТЬ С ОРЛИЦЕЙ

if hero=0 then btn 48,ОСМОТРЕТЬ ОРЛА
if hero=1 then btn 48,ОСМОТРЕТЬ ОРЛИЦУ

btn 25,СПУСТИТЬСЯ К ПОДНОЖЬЮ
end



:21_скала ; на скале
inv_visible true  
play sound/ветер.wav 
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скала.jpg" class="foto"></div>
</body>
</html>
loc=21
Орлан_лок=0
Орлиг_лок=0
pln <br><font size=3 color=blue>
pln Скала.</font><br><font size=3>
if look21=1 then pln Ты на самой вершине скалы которую ярко освещает полуденное солнце. К подножью ведут несколько скальных уступов, по которым можно спуститься вниз.

btn 25,СПУСТИТЬСЯ К ПОДНОЖЬЮ
end


:21_орлига ; на скале c ОРЛИГОМ
inv_visible true  
play sound/ветер.wav 
cls

html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлигой.jpg" class="foto"></div>
</body>
</html>
goto 21_орл 

:21_орлиг ; на скале c ОРЛИГОМ
inv_visible true  
play sound/ветер.wav 
cls

html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлигом.jpg" class="foto"></div>
</body>
</html>

:21_орл
loc=21

pln <br><font size=3 color=blue>
pln Скала.</font><br><font size=3>
Орлан_лок=0
Орлиг_лок=21
if look21=1 then pln Ты на самой вершине скалы которую ярко освещает полуденное солнце. К подножью ведут несколько скальных уступов, по которым можно спуститься вниз.

proc obj

xbtn 21,{look21=1},ОСМОТРЕТЬСЯ
if разговор=0 and hero=0 then btn 21_разг1,ПОГОВОРИТЬ С ЮНОШЕЙ
if разговор=0 and hero=1 then btn 21_разг2,ПОГОВОРИТЬ С ДЕВУШКОЙ

if hero=0 then btn 51,ОСМОТРЕТЬ ЮНОШУ
if hero=1 then btn 52,ОСМОТРЕТЬ ДЕВУШКУ

btn 25,СПУСТИТЬСЯ К ПОДНОЖЬЮ
end

:21_разг1
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлигом.jpg" class="foto"></div>
</body>
</html>
pln <br>
goto 21_разг

:21_разг2
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлигой.jpg" class="foto"></div>
</body>
</html>
pln <br>
goto 21_разг


:21_разг
helporlig=3
if hero=0 then pln Юноша: - Спасибо, тебе, девушка. Я пойду вместе с тобой до слободки. 
if hero=1 then pln Девушка: - Спасибо, тебе, мальчик. Я пойду вместе с тобой до слободки.

btn 21, ДАЛЬШЕ
end


:21_0
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
if hero=0 then pln Что скажешь Орлу? 
if hero=1 then pln Что скажешь Орлице? 

if (beseda1=0 and helor=0) then btn 21_01, Здравствуйте, можно с вами познакомиться?
if (beseda1=1 and helor=1) then btn 21_02, Могу ли я вам помочь?
if (beseda2>1 or beseda1>1 and helor=1) then btn 21_4, Ты мог бы меня перевезти к острову?
if (beseda2=1 and helor=1) then btn 21_2, Вы можете помочь мне получить волшебную силу?

if helor=1 then btn 21_5, Попрощаться
end


:21_5
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
if hero=1 then pln - До встречи, сказал ты.<br>
if hero=0 then pln - До свидания,сказала ты.<br>
if hero=0 then pln - До свидания, #%name$, сказал Орлиг.
if hero=1 then pln - До свидания, #%name$, сказал Орлига.

btn 21,ДАЛЬШЕ
end


:21_01
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
helor=1
beseda1=1
if ВолшСлово=1 then beseda2=1
if hero=0 then pln - Здравствуй, девочка.
if hero=1 then pln - Здравствуй, мальчик.
if hero=0 then pln Меня зовут Орлиг. Я когда-то был юношей, но злой колдун, превратил меня в орла.
if hero=1 then pln Меня зовут Орлига. Я когда-то была девушкой, но злой колдун, превратил меня в орлицу.

btn 21_0,ПРОДОЛЖИТЬ РАЗГОВОР
end

:21_02
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
beseda1=2
остров=1
pln - Есть возможность вернуть мне человеческий облик, но нужно знать волшебное слово, а его знает только колдун Тсиваз, который живет на своем острове.
btn 21_07,ПРОДОЛЖИТЬ РАЗГОВОР
end


:21_07
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
if (beseda1=2 and helor=1 and hero=0) then xbtn 21_4,{helporlig=1},Я согласна вам помочь. Ты мог бы меня перевезти к острову?
if (beseda1=2 and helor=1 and hero=1) then xbtn 21_4,{helporlig=1},Я согласен вам помочь. Ты могла бы меня перевезти к острову?

if (beseda1=2 and helor=1) then btn 21_03, Извините, я не могу вам помочь.
end


:21_03
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
beseda1=3
pln - Если нужно будет полетать над морем, я к твоим услугам. Меня всегда можно найти здесь.
btn 21_0,ПРОДОЛЖИТЬ РАЗГОВОР
end





:21_2
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
beseda2=2
pln <br>
if hero=0 then pln -  Я хотел бы обрести волшебную силу чтобы сдвинуть камень на поляне. <br> - Этот камень поставил тот самый колдун, который превратил меня в орла. 
if hero=1 then pln -  Я хотел бы обрести волшебную силу чтобы сдвинуть камень на поляне. <br> - Этот камень поставил тот самый колдун, который превратил меня в орлицу. 

if остров then pln Я могу тебя к нему перевезти. Может там ты найдёшь то, что тебе так нужно. 

if not остров then pln Я знаю что он живет в пещере на острове и могу тебя к нему перевезти. Может там ты найдёшь то, что тебе так нужно. 

if hero=0 then xbtn 21,{sogl=1},СОГЛАСИТЬСЯ И СЕСТЬ НА ОРЛА
if hero=1 then xbtn 21,{sogl=1},СОГЛАСИТЬСЯ И СЕСТЬ НА ОРЛИЦУ

xbtn 21,{sogl=0}, ОТКАЗАТЬСЯ
end

:21_4
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/скаласорлом.jpg" class="foto"></div>
</body>
</html>
pln <br>
sogl=1
pln - Конечно, садись верхом на меня.
if hero=0 then btn 21,СЕСТЬ НА ОРЛА
if hero=1 then btn 21,СЕСТЬ НА ОРЛИЦУ

end





;------------------------------------У Пещеры------------------------------------
:22
inv_visible true  
Music="music/volynka.mp3"
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/входвпещеру.jpg" class="foto"></div>
</body>
</html>
Орлан_лок=22
pln <br><font size=3 color=blue>
pln У входа в пещеру.</font><br><font size=3>
if look22=1 and hero=0 then pln Ты с Орлом стоишь у входа в пещеру состоящую в основном из песчанника.
if look22=1 and hero=1 then pln Ты с Орлицей стоишь у входа в пещеру состоящую в основном из песчанника.

loc=22
proc obj
xbtn 22,{look22=1},ОСМОТРЕТЬСЯ
btn 30,ВОЙТИ В ПЕЩЕРУ
btn 29,УЛЕТЕТЬ С ОСТРОВА
end


;------------------------------------В Пещере Грот ТСИВАЗА------------------------------------
:23 ; в гроте Тсиваза
inv_visible true  
html true
play sound/пещера.wav 
if kill=0 then goto 23_00
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот.jpg" class="foto"></div>
</body>
</html>
Тсиваз_лок=0
pln <br>
goto 23_01

:23_00

html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
:23_01
html true
pln Внутри пещеры.</font><br><font size=3>
loc=23
if (look23=1 and kill=0) then pln Тсиваз сидел на кресле и бормотал что-то непонятное.
proc obj
xbtn 23,{look23=1},ОСМОТРЕТЬСЯ
if kill=0 then btn 49,ОСМОТРЕТЬ ТСИВАЗА
if kill=0 then btn 23_1,ПОГОВОРИТЬ С ТСИВАЗОМ
if kill=0 then btn 23_2,ДРАТЬСЯ С ТСИВАЗОМ
if kill=1 then btn 23_5,ОСМОТРЕТЬ ТРУП
btn 33,ВЫЙТИ ИЗ ГРОТА
end

:23_1
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
pln Что ты скажешь Тсивазу?
btn 231,Здравствуйте, это вы колдун Тсиваз?
if (ВолшСлово=1 and talkforest=0) then btn 23_10, Зачем ты погубил лес, Тсиваз?
if (ВолшСлово=1 and talkstone=0) then btn 23_11, Убери свою каменюгу с поляны.
if (helporlig=1 and hero=0) then btn 231,Как мне вернуть Орлигу человеческий облик?
if (helporlig=1 and hero=1) then btn 231,Как мне вернуть Орлиге человеческий облик?
btn 23,ЗАКОНЧИТЬ РАЗГОВОР
end


:231
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if hero=1 then pln - Я не намерен отвечать перед каким-то мальчишкой... - Ответил Тсиваз.
if hero=0 then pln - Я не намерен отвечать перед какой-то девчонкой... - Ответил Тсиваз.
btn 23_1,ПРОДОЛЖИТЬ РАЗГОВОР
end




:23_10
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if hero=1 then pln - Я не намерен отвечать перед каким-то мальчишкой... - Ответил Тсиваз.
if hero=0 then pln - Я не намерен отвечать перед какой-то девчонкой... - Ответил Тсиваз.

talkforest=1
btn 23_1,ПРОДОЛЖИТЬ РАЗГОВОР
end


:23_11
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
pln - Этого я не сделаю никогда. И никто этого не сможет сделать - Злобно сказал Тсиваз, пряча что-то за спину.
talkstone=1
if hero=0 then pln Но могу научить, как это сделать тебе самой. Ты согласна?
if hero=1 then pln Но могу научить, как это сделать тебе самому. Ты согласен?

btn 23_12, СОГЛАСИТЬСЯ 
btn 23_13, ОТКАЗАТЬСЯ
btn 23_1,ПРОДОЛЖИТЬ РАЗГОВОР
end


:23_12
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if hero=0 then pln - Хорошо, я согласна. 
if hero=1 then pln - Хорошо, я согласен. 

pln Тсиваз произнес несколько непонятных слов. И сказал:
if hero=0 then pln - Ты поступаешь ко мне в ученицы и будешь знать многое, будешь самой могущественной на Земле. 
if hero=0 then pln Тсиваз дал тебе огромную книгу по магии и ты углубилась в ее чтение, забыв о лесе, друзьях, доме и своих родителях.
if hero=1 then pln - Ты поступаешь ко мне в ученики и будешь знать многое, будешь самым могущественным на Земле. 
if hero=1 then pln Тсиваз дал тебе огромную книгу по магии и ты углубился в ее чтение, забыв о лесе, друзьях, доме и своих родителях.

pln
pln <br> Конец. <br><br>
pln </font> (Нажми <font color=red>CTRL+X</font> для выхода или <font color=red>CTRL+N </font>для новой игры)
end


:23_13
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if hero=1 then pln - Нет, я не согласен, не хочу учиться у тебя ничему. Ты злой.
if hero=0 then pln - Нет, я не согласна, не хочу учиться у тебя ничему. Ты злой.

btn 23_1,ПРОДОЛЖИТЬ РАЗГОВОР
end



:23_2
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if (АмулетНадет=0 and hero=1) then pln Ты побоялся приблизиться к злобному Тсивазу и выбежал из грота. & btn 33, ДАЛЬШЕ & end
if (АмулетНадет=0 and hero=0) then pln Ты побоялась приблизиться к злобному Тсивазу и выбежала из грота. & btn 33, ДАЛЬШЕ & end

if Топор or Нож then pln Каким оружием будешь пользоваться?
if Нож then xbtn 23_3,{first=first+1},ИСПОЛЬЗОВАТЬ НОЖ
if Топор then btn 23_4,ИСПОЛЬЗОВАТЬ ТОПОР
if (not Нож and not Топор and hero=0) then pln Ты с кулаками набросилась на Тсиваза, но он отшвырнул тебя и ты вылетела из грота. & btn 33, ДАЛЬШЕ
if (not Нож and not Топор and hero=1) then pln Ты с кулаками набросился на Тсиваза, но он отшвырнул тебя и ты вылетел из грота. & btn 33, ДАЛЬШЕ

end

:23_3
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if (first=1 and hero=0) then  & play sound/комне.wav & pln Ты кинула нож в Тсиваза, но промахнулась. Нож улетел за спину Тсиваза & inv- Нож & btn 23,ДАЛЬШЕ & end  
if (first=1 and hero=1) then  & play sound/комне.wav & pln Ты кинул нож в Тсиваза, но промахнулся. Нож улетел за спину Тсиваза & inv- Нож  & btn 23,ДАЛЬШЕ & end  
if (first=2 and hero=0) then play sound/комне.wav & play sound/смерть.wav & pln Ты кинула нож в Тсиваза и попала им прямо в сердце Тсиваза. Тсиваз издал последний вздох "Аррхх" - и умер.& kill=1 & btn 23,ДАЛЬШЕ & end  
if (first=2 and hero=1) then play sound/комне.wav & play sound/смерть.wav & pln Ты кинул нож в Тсиваза и попал им прямо в сердце Тсиваза. Тсиваз издал последний вздох "Аррхх" - и умер. & kill=1 & btn 23,ДАЛЬШЕ & end   
end

:23_4
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/гротстсивазом.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
play sound/топор1.wav
if hero=0 then pln Ты с криком <br> - Зарублю-ю-ю.  -  кинула топор в Тсиваза, но тот увернулся и топор попал в стену пещеры. Тсиваз магическим ударом вышвырнул тебя из грота.  & inv- Топор & btn 33,ДАЛЬШЕ & end  
if hero=1 then pln Ты с криком <br> - Зарублю-ю-ю.  -  кинул топор в Тсиваза, но тот увернулся и топор попал в стену пещеры. Тсиваз магическим ударом вышвырнул тебя из грота.  & inv- Топор & btn 33,ДАЛЬШЕ & end  

end

:23_5
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3>
if (seeКнига=1 and hero=1) then pln Ты осмотрел труп Тсиваза, но кроме магических амулетов ничего интересного не увидел.
if (seeКнига=0 and hero=1) then pln Ты осмотрел труп Тсиваза и обнаружил в его руках большую книгу.& seeКнига=1 & Книга_лок=loc
if (seeКнига=1 and hero=0) then pln Ты осмотрела труп Тсиваза, но кроме магических амулетов ничего интересного не увидела.
if (seeКнига=0 and hero=0) then pln Ты осмотрела труп Тсиваза и обнаружила в его руках большую книгу.& seeКнига=1 & Книга_лок=loc


btn 23,ДАЛЬШЕ  
end

;------------------------------------У Подножья------------------------------------
:25

inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/подножье.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Подножье скал.</font><br><font size=3>
if look25=1 then pln Ты в самом низу скальных гигантов, в стене скалы есть несколько уступов, по которым можно взобраться на вершину. 
loc=25
if helporlig>1 then Орлиг_лок=loc
proc obj
xbtn 25,{look25=1},ОСМОТРЕТЬСЯ
btn 21,ВЛЕЗТЬ НА СКАЛУ
btn 26,ИДТИ К ПУСТЫРЮ 
end


;-------------------------------------ПУСТЫРЬ-----------------------------------
:26 ; пустырь
inv_visible true  

Music="Music/volynka.mp3"
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/пустырь.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=blue>
pln Пустырь.</font><br><font size=3>
if look26=1 then pln Ты на выжженой солнцем и потрескавшейся равнине.
loc=26
if helporlig>1 then Орлиг_лок=loc
proc obj
xbtn 26,{look26=1},ОСМОТРЕТЬСЯ
btn 25,ИДТИ К ПОДНОЖЬЮ СКАЛ
btn 4,ИДТИ К СЛОБОДКЕ 
end

;------------------------------------Полет над морем------------------------------------
:27
inv_visible true  
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/надморем.jpg" class="foto"></div>
</body>
</html>
Орлан_лок=27
pln <br><font size=3 color=blue>
pln Над морем.</font><br><font size=3>
sogl=2
loc=27
proc obj
btn 28, ЛЕТЕТЬ К ОСТРОВУ
btn 21,ЛЕТЕТЬ К СКАЛЕ ОРЛАНА
end


;------------------------------------Полет над островом------------------------------------
:28
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/уострова.jpg" class="foto"></div>
</body>
</html>
Орлан_лок=28
pln <br><font size=3 color=blue>
pln Над морем у острова.</font><br><font size=3>
loc=28
proc obj
btn 29, СПУСТИТЬСЯ К ОСТРОВУ
btn 27,ЛЕТЕТЬ К СКАЛЕ
end


;------------------------------------Полет над пещерами------------------------------------
:29
inv_visible true 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/упещер.jpg" class="foto"></div>
</body>
</html>
Орлан_лок=29
pln <br><font size=3 color=blue>
pln У пещер.</font><br><font size=3>
loc=29
proc obj
btn 22, СПУСТИТЬСЯ КО ВХОДУ В ПЕЩЕРУ
btn 28,ВЗЛЕТЕТЬ НАД ОСТРОВОМ
end




;------------------------------------В Пещере Грот2------------------------------------
:30
Music="music/Akira Yamaoka - Nightmarish Waltz.mp3"
html true
inv_visible true 
play sound/пещера.wav 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот2.jpg" class="foto"></div>
</body>
</html> 
pln <br><font size=3 color=blue>
pln В пещерном гроте.</font><br><font size=3>
if look30=1 then pln Ты стоишь по щиколотку в воде подземного озера в центре огромной пещерной камеры, высотой около 5 метров. Кругом сырость и жуткий холод.
loc=30
proc obj
xbtn 30,{look30=1}, ОСМОТРЕТЬСЯ
btn 31, ИДТИ ВГЛУБЬ ПЕЩЕРЫ
btn 22,ВЫЙТИ ИЗ ПЕЩЕРЫ
end



;------------------------------------В Пещере Грот4------------------------------------
:31

inv_visible true 
play sound/пещера.wav 
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот4.jpg" class="foto"></div>
</body>
</html> 
pln <br><font size=3 color=blue>
pln В пещере. </font><br><font size=3>
if look31=1 then pln Здесь много сталагмитов и сталактитов, проходы между ними ведут в разные стороны.



loc=31
proc obj
xbtn 31,{look31=1},ОСМОТРЕТЬСЯ
btn 33, ИДТИ НА СЕВЕР
btn 32, ИДТИ НА ВОСТОК
btn 33, ИДТИ НА ЗАПАД
btn 30, ИДТИ НА ЮГ
end

;------------------------------------В Пещере Грот5------------------------------------
:32
inv_visible true 
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот3.jpg" class="foto"></div>
</body>
</html> 
pln <br><font size=3 color=blue>
pln В пещерном гроте. </font><br><font size=3>
if look32=1 then pln Ты идешь по лужам в ярко освещенном пещерном гроте со сталагмитами, свисающими сверху. 
loc=32
proc obj
xbtn 32,{look32=1},ОСМОТРЕТЬСЯ
btn 30, ИДТИ НА ВОСТОК
btn 31, ИДТИ НА ЗАПАД
btn 31, ИДТИ НА СЕВЕР
btn 33, ИДТИ НА ЮГ
end


;------------------------------------В Пещере Грот5------------------------------------
:33
inv_visible true 
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/грот5.jpg" class="foto"></div>
</body>
</html> 
pln <br><font size=3 color=blue>
pln В пещерном гроте. </font><br><font size=3>
if look33=1 then pln Ты стоишь посреди камней в сухом гроте песчаной пещеры, сверху которой пробиваются лучи дневного светила.
loc=33
proc obj
xbtn 33,{look33=1},ОСМОТРЕТЬ
btn 31, ИДТИ НА ВОСТОК
btn 33, ИДТИ НА ЗАПАД
btn 32, ИДТИ НА СЕВЕР
btn 23, ИДТИ НА ЮГ
end


;----------------------------------------КОНЕЦ ИГРЫ--------------------------------------------
:end2
Music="music/keltskaya.mp3"
play sound/родник.wav
inv_visible false
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Anima/Анима.gif" class="foto"></div>
</body>
</html>
<br>
pln Камень стал медленно подниматься ввысь.
btn end1, ДАЛЬШЕ
end


:end1
cls
html true       
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/поляна22.jpg" class="foto"></div>
</body>
</html>
<br>
pln <font color=white>------</font>
pln Cмотрит,#%name$, а там, где камень стоял, стал родничок пробиваться. Прозрачная вода все сильней и сильней поднималась из земли и стала растекаться по поляне. Там, где прольется - трава зазеленеет, там, где протечёт - цветы появляются. Вскоре ожила вся полянка. 
pln А родник все сильней и сильней бить стал. Потекли ключи родниковые от него по всему лесу в разные сторонушки. Мал-помалу, лес стал преображаться, силу набирать. На деревьях появились листва да хвоюшка, на кустах цветы да ягоды. Прилетели птицы небесные, прибежали звери лесные. Все поют, радуются. 

btn end3, ДАЛЬШЕ
end

:end3
cls
html true       
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/концовка.jpg" class="foto"></div>
</body>
</html>
<br>

pln <font color=white>------</font>
pln Cмотрит,#%name$, а там, где камень стоял, стал родничок пробиваться. Прозрачная вода все сильней и сильней поднималась из земли и стала растекаться по поляне. Там, где прольется - трава зазеленеет, там, где протечёт - цветы появляются. Вскоре ожила вся полянка. 
pln А родник все сильней и сильней бить стал. Потекли ключи родниковые от него по всему лесу в разные сторонушки. Мал-помалу, лес стал преображаться, силу набирать. На деревьях появились листва да хвоюшка, на кустах цветы да ягоды. Прилетели птицы небесные, прибежали звери лесные. Все поют, радуются. 

pln 
pln <br> <font color=white>------</font>
if hero=1 then pln Вышел из-за кустов Леший и говорит: <br> - Спасибо, благородный и храбрый #%name$, за совершенное тобой чудо. Возродил ты наш лес великий. В благодарность за этот подвиг мы назовём лес в твою честь - твоим именем. 
if hero=0 then pln Вышел из-за кустов Леший и говорит: <br> - Спасибо, благородная и храбрая #%name$, за совершенное тобой чудо. Возродила ты наш лес великий. В благодарность за этот подвиг мы назовём лес в твою честь - твоим именем. 

pln <br> - Расскажи, дядюшка Леший, откуда здесь скелет да кости человеческие? Неуж-то здесь люди погибли?
pln <br> - Погибли люди,#%name$ , но не здесь. Выкопал Тсиваз эти кости из могил, подобрал на поле брани, принес сюда и бросил у камня. А чтоб камень никто не смог выворотить - написал надпись угрожающую. А теперь мне пора делами своими справляться, лес в порядке держать. Будем прощаться.
pln
btn end4, ДАЛЬШЕ
end

:end4
cls
html true       
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/title2.jpg" class="foto"></div>
</body>
</html>
<br>

pln <font color=white>------</font>
pln Cмотрит,#%name$, а там, где камень стоял, стал родничок пробиваться. Прозрачная вода все сильней и сильней поднималась из земли и стала растекаться по поляне. Там, где прольется - трава зазеленеет, там, где протечёт - цветы появляются. Вскоре ожила вся полянка. 
pln А родник все сильней и сильней бить стал. Потекли ключи родниковые от него по всему лесу в разные сторонушки. Мал-помалу, лес стал преображаться, силу набирать. На деревьях появились листва да хвоюшка, на кустах цветы да ягоды. Прилетели птицы небесные, прибежали звери лесные. Все поют, радуются. 

pln 
pln <br><font color=white>------</font>
if hero=1 then pln Вышел из-за кустов Леший и говорит: <br> - Спасибо, благородный и храбрый #%name$, за совершенное тобой чудо. Возродил ты наш лес великий. В благодарность за этот подвиг мы назовём лес в твою честь - твоим именем. 
if hero=0 then pln Вышел из-за кустов Леший и говорит: <br> - Спасибо, благородная и храбрая #%name$, за совершенное тобой чудо. Возродила ты наш лес великий. В благодарность за этот подвиг мы назовём лес в твою честь - твоим именем. 
pln <br> - Расскажи, дядюшка Леший, откуда здесь скелет да кости человеческие? Неуж-то здесь люди погибли?
pln <br> - Дык, погибли люди, но не здесь. Выкопал Тсиваз эти кости из могил, подобрал на поле брани, принес сюда и бросил у камня. А чтоб камень никто не смог выворотить - написал надпись угрожающую. А теперь мне пора делами своими справляться, лес в порядке держать. Будем прощаться.
pln

pln <br><font color=white>------</font> 
if hero=1 then pln Попрощался #%name$ с Лешим, зверями и птицами, родником, да и пошёл обратно домой, рассказать сельчанам про лес возрождённый, в который можно ходить теперь без опаски.	
if hero=0 then pln Попрощалась #%name$ с Лешим, зверями и птицами, родником, да и пошла обратно домой, рассказать сельчанам про лес возрождённый, в который можно ходить теперь без опаски.	

pln <br> Конец. 
end




;-------------------------------------------------------------------------------
:obj
instr вижу=#$ #$
spis=0
pln <br>

instr sp= Здесь находится
if Волхв_лок=loc then instr sp=#%sp$ Волхв. #$  & spis=1 ;11
if Леший_лок=loc then instr sp=#%sp$ Леший. #$  & spis=1 ;18 
if Ягиня_лок=loc then instr sp=#%sp$ Ягиня. #$  & spis=1 ;34
if Орлан_лок=loc and hero=0 then instr sp=#%sp$ Орел. #$  & spis=1 ;21
if Орлан_лок=loc and hero=1 then instr sp=#%sp$ Орлица. #$  & spis=1 ;21
if Орлиг_лок=loc and hero=0 then instr sp=#%sp$ Юноша. #$  & spis=1 ;21
if Орлиг_лок=loc and hero=1 then instr sp=#%sp$ Девушка. #$  & spis=1 ;21

if Тсиваз_лок=loc then instr sp=#%sp$ Тсиваз. #$  & spis=1 ;23
if spis=0 then instr sp=#$ #$



instr se=#$ Ты видишь:#$
spis=0
if Луковица_лок=loc then instr se=#%se$ луковицу,#$  & spis=spis+1 & btn ВзятьЛуковицу,ВЫКОПАТЬ ЛУКОВИЦУ
if Семена_лок=loc then instr se=#%se$ семена,#$  & spis=spis+1 & btn ВзятьСемена,ВЗЯТЬ СЕМЕНА
if Грядка_лок=loc then instr se=#%se$ грядку,#$  & spis=spis+1 & btn ОсмотретьГрядку,ОСМОТРЕТЬ ГРЯДКУ
if Перчатка_лок=loc then instr se=#%se$ перчатку,#$  & spis=spis+1 & btn ВзятьПерчатку, ВЗЯТЬ ПЕРЧАТКУ
if Ягоды_лок=loc then instr se=#%se$ ягоды,#$  & spis=spis+1 & btn ВзятьЯгоды, СОРВАТЬ ЯГОДЫ
if Зелье_лок=loc then instr se=#%se$ зелье,#$ & spis=spis+1 & btn ВзятьЗелье, ВЗЯТЬ ЗЕЛЬЕ
if Оберег_лок=loc then instr se=#%se$ оберег,#$ &  spis=spis+1 & btn ВзятьОберег, ВЗЯТЬ ОБЕРЕГ
if Нож_лок=loc then instr se=#%se$ нож,#$ & spis=spis+1 & btn ВзятьНож, ВЗЯТЬ НОЖ
if Перун_лок=loc then instr se=#%se$ перуна,#$  & spis=spis+1 & btn ВзятьПеруна, ВЗЯТЬ ПЕРУНА
if Чурка_лок=loc then instr se=#%se$ чурку,#$ &  spis=spis+1 & btn ВзятьЧурку, ВЗЯТЬ ЧУРКУ
if Шест_лок=loc then instr se=#%se$ шест,#$ &  spis=spis+1 & btn ВзятьШест, ВЗЯТЬ ШЕСТ
if Топор_лок=loc then instr se=#%se$ топор,#$ &  spis=spis+1 & btn ВзятьТопор, ВЗЯТЬ ТОПОР
if Ведро_лок=loc then instr se=#%se$ ведро,#$ &  spis=spis+1 & btn ВзятьВедро, ВЗЯТЬ ВЕДРО
if Веревка_лок=loc then instr se=#%se$ веревку,#$ &  spis=spis+1 & btn ВзятьВеревку, ВЗЯТЬ ВЕРЁВКУ
if Кристалл_лок=loc then instr se=#%se$ кристалл,#$ &  spis=spis+1 & btn ВзятьКристалл, ВЗЯТЬ КРИСТАЛЛ
if Половик_лок=loc then instr se=#%se$ половик,#$ & spis=spis+1 & btn ВзятьПоловик, ВЗЯТЬ ПОЛОВИК
if Ключ_лок=loc then instr se=#%se$ ключ,#$ &  spis=spis+1 & btn ВзятьКлюч, ВЗЯТЬ КЛЮЧ
if Гриб_лок=loc then instr se=#%se$ гриб,#$ &  spis=spis+1 & btn ВзятьГриб, СОРВАТЬ ГРИБ
if Книга_лок=loc then instr se=#%se$ книгу,#$ & spis=spis+1 & btn ВзятьКнигу, ВЗЯТЬ КНИГУ
if Трубка_лок=loc then instr se=#%se$ трубку,#$ & spis=spis+1 & btn ВзятьТрубку, ВЗЯТЬ ТРУБКУ

if spis>0 then instr вижу=#%sp$ #%se$ и больше ничего.#$
if spis=0 then instr вижу=#%sp$
pln #%вижу$
end


;-------------------------------------------------------------------------------
:ОсмотретьГрядку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/грядка.jpg" class="foto"></div>
</body>
</html>
pln <br>
if seed=0 then pln Грядка ничем не засеяна. & btn #loc$, НАЗАД & end
if seed=1 then pln Грядка засеяна семенами. & btn #loc$, НАЗАД & end
if seed=2 then pln На грядке выросли какие-то маленькие ростки. & btn #loc$, НАЗАД & end
if seed=3 then pln На грядке вырос лук. & Луковица_лок=5 & seed=4 & btn #loc$, НАЗАД & end
if seed=4 then pln На грядке растет лук. & btn #loc$, НАЗАД & end


:ВзятьСемена
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/семена.jpg" class="foto"></div>
</body>
</html>
pln <br>
play sound/item.wav 
pln Взято.
inv+ Семена
Семена_лок=0
btn #loc$, НАЗАД
end

:ВзятьЛуковицу
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/луковица.jpg" class="foto"></div>
</body>
</html>
play sound/item.wav 
pln <br>
pln Взято.
inv+ Луковица
Луковица_лок=0
btn #loc$, НАЗАД
end





:ВзятьТрубку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/погреб2.jpg" class="foto"></div>
</body>
</html>
pln <br><font size=3 color=black>
play sound/item.wav 
Трубка_лок=0
ДверьПогреба=1
pln Это наш погреб.
if look24=1 then pln В нем мы храним свои продукты и запасы на зиму. Подойдя ближе к погребу я заметил над входом фарфоровую трубку на веревке. & Трубка_лок=24
pln <br> 
if hero=1 then pln Я взялся за трубку и потянул ее к земле, открыв дверь внутрь погреба.
if hero=0 then pln Я взялась за трубку и потянула ее к земле, открыв дверь внутрь погреба.

xbtn ВзятьТрубку,{look24=1},ОСМОТРЕТЬСЯ
btn 9,ВОЙТИ В ПОГРЕБ
btn 10,ИДТИ В САД
end




:ВзятьОберег
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html>
pln <br>
if Оберег_лок=40 then pln Я могу тебе его дать, но не сейчас. & btn #loc$, НАЗАД & end
play sound/item.wav 
pln Взято.
inv+ Оберег
Оберег_лок=0
btn #loc$, НАЗАД
end

:ВзятьКнигу
cls
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/книга.jpg" class="foto">
</div>
</body>
</html>
pln <br>

if kill=0 and hero=1 then pln Ты только протянул руку к книге, как Тсиваз произнес какое-то слово и ты вылетел из грота.  & btn 33, ДАЛЬШЕ & end
if kill=0 and hero=0 then pln Ты только протянула руку к книге, как Тсиваз произнес какое-то слово и ты вылетела из грота.  & btn 33, ДАЛЬШЕ & end

play sound/item.wav 
pln Взято.
inv+ Книга
Книга_лок=0
btn #loc$, НАЗАД
end

:ВзятьЯгоды
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ягоды.jpg" class="foto">
</div>
</body>
</html>
pln <br>
if hero=1 then pln Ты сорвал колючие ягоды перчаткой.
if hero=0 then pln Ты сорвала колючие ягоды перчаткой.
play sound/item.wav 
inv+ Ягоды
Ягоды_лок=0
btn #loc$, НАЗАД
end

:ВзятьЗелье
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/зелье.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Зелье
Зелье_лок=0
btn #loc$, НАЗАД
end

:ВзятьКуколку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перун.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Перун
Перун_лок=loc
btn #loc$, НАЗАД
end


:ВзятьЧурку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/чурка.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Чурка
Чурка_лок=0
btn #loc$, НАЗАД
end

:ВзятьНож
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/нож.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Нож
Нож_лок=0
btn #loc$, НАЗАД
end

:ВзятьШест
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/шест.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Шест
Шест_лок=0
btn #loc$, НАЗАД
end

:ВзятьТопор
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html>
pln <br>
if (topor=0 and loc=18) then pln - Не тронь мой топор! - Прикрикнул Леший. & btn #loc$, НАЗАД & end
pln Взято.
play sound/item.wav 
inv+ Топор
Топор_лок=0
btn #loc$, НАЗАД
end



:ВзятьВедро
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Ведро
Ведро_лок=0
btn #loc$, НАЗАД
end

:ВзятьВеревку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/веревка.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Веревка
Веревка_лок=0
btn #loc$, НАЗАД
end

:ВзятьКристалл
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/кристалл.jpg" class="foto"></div>
</body>
</html>
pln <br>
if (seetemno=0 and Кристалл_лок=40) then pln Я могу дать его тебе только в том случае, если он действительно тебе необходим. & btn #loc$, НАЗАД & end
if (seetemno=1 and Кристалл_лок=40) then pln Мне кажется тебе необходимо освещение в погребе, возьми его, хоть он и не очень ярко светит.&inv+ Кристалл&Кристалл_лок=0&btn #loc$, НАЗАД&end
pln Взято.
play sound/item.wav 
inv+ Кристалл
Кристалл_лок=0
btn #loc$, НАЗАД
end

:ВзятьПоловик
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/коврик.jpg" class="foto"></div>
</body>
</html>
pln <br>
if seeКлюч=1 then pln Взято.
if seeКлюч=0 then pln Ты приподнимаешь половик и под ним обнаруживаешь ключ. & Ключ_лок=loc & seeКлюч=1
play sound/item.wav 
inv+ Половик
Половик_лок=0
btn #loc$, НАЗАД
end

:ВзятьКлюч
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ключ.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Ключ
Ключ_лок=0
btn #loc$, НАЗАД
end

:ВзятьГриб
if grib=1 then goto ВзятьГриб2
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб1.jpg" class="foto"></div>
</body>
</html>
pln <br>
play sound/item.wav 
pln Взято.
inv+ Дождевичок
Гриб_лок=12
btn #loc$, НАЗАД
end



 
:ВзятьГриб2
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб2.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Дождевик
Гриб_лок=0
btn #loc$, НАЗАД
end

 
:ВзятьПерчатку
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Взято.
play sound/item.wav 
inv+ Перчатка
Перчатка_лок=0
btn #loc$, НАЗАД
end


;-------------------------------------------------------------------------------
:use_Герой_Осмотреть себя
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto">
</body>
</html><br>
pln Я обычный мальчик из деревенской слободки.
btn #loc$, НАЗАД
end

:use_Героиня_Осмотреть себя
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto">
</body>
</html><br>
pln Я обычная девочка из деревенской слободки.
btn #loc$, НАЗАД
end


:use_Героиня_Отдохнуть
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto">
</body>
</html><br>
pln Я отдохнула немного и стала чувствовать себя бодрее.
btn #loc$, НАЗАД
end

:use_Герой_Отдохнуть
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto">
</body>
</html><br>
pln Я отдохнул немного и стал чувствовать себя бодрее.
btn #loc$, НАЗАД
end

:use_Героиня_Сказать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto">
</body>
</html><br>
pln Скажи что-нибудь.
instr word=
input word
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto"></div>
</body>
</html><br>

if word=="" then pln Ты ничего не сказала, и ничего не произошло. & goto extskaz
if Нож and (word=="КОМНЕ" or word=="KOMHE" or word=="комне") then goto 999_2
if not Нож and (word=="КОМНЕ" or word=="KOMHE" or word=="комне") then goto 999_1
if loc=15 and (word=="акершалис" or word=="Акершалис" or word=="АКЕРШАЛИС") then goto 999_31
if loc=21 and (word=="орловчара" or word=="Орловчара" or word=="ОРЛОВЧАРА") then goto 999_41
pln Ты сказала: #%word$, но ничего не произошло.
btn #loc$, НАЗАД
end

:use_Герой_Сказать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto"></div>
</body>
</html><br>
pln Скажи что-нибудь.
instr word=
input word
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto"></div>
</body>
</html>

if word=="" then pln Ты ничего не сказал, и ничего не произошло. & goto extskaz
if Нож and (word=="КОМНЕ" or word=="KOMHE" or word=="комне") then goto 999_2
if not Нож and (word=="КОМНЕ" or word=="KOMHE" or word=="комне") then goto 999_1
if loc=15 and (word=="акершалис" or word=="Акершалис" or word=="АКЕРШАЛИС") then goto 999_3
if loc=21 and (word=="орловчара" or word=="Орловчара" or word=="ОРЛОВЧАРА") then goto 999_4
pln Ты сказал: #%word$, но ничего не произошло.
:extskaz
btn #loc$, НАЗАД
end


:use_Герой_Помощь
if loc=19 then goto help1 
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto"></div>
</body>
</html><br>
pln - Помогите, пожалуйста! - крикнул, #%name$<br>
pln<br>
if not Нож and Топор then pln Если хотите свой нож обратно - воспользуйтесь волшебным словом или отдайте топор Лешему.& btn #loc$, НАЗАД& end
pln Небеса хранят молчание.
btn #loc$, НАЗАД& end
end

:use_Героиня_Помощь
if loc=19 then goto help

cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto"></div>
</body>
</html><br>
pln - Помогите, пожалуйста! - крикнула, #%name$<br>
pln<br>
if not Нож and Топор then pln Если хотите свой нож обратно - воспользуйтесь волшебным словом или отдайте топор Лешему.& btn #loc$, НАЗАД& end
pln Небеса хранят молчание.
btn #loc$, НАЗАД& end
end


:help
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/кикимора.jpg" class="foto">
<img src="#quest_path$/Person/героиня.jpg" class="foto"></div>
</body>
</html><br>
pln - По-мо-ги-те-е-е-е!!! То-ну-у-у! - крикнула, #%name$<br>
pln<br>
pln - Сейчас помогу выбраться, сказал кто-то женским голосом.
btn #loc$, НАЗАД& end
end

:help1
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto">
<img src="#quest_path$/Person/кикимора.jpg" class="foto"></div>
</body>
</html><br>
pln - По-мо-ги-те-е-е-е!!! То-ну-у-у! - крикнул, #%name$<br>
pln<br>
pln - Сейчас помогу выбраться, сказал кто-то женским голосом.
btn #loc$, НАЗАД& end
end





:999_1
cls
html true 
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto">
</div>
</body>
</html>
pln <br>
if hero=0 then pln Ты сказала: #%word$ <br>
if hero=1 then pln Ты сказал: #%word$ <br>

pln И в твоей руке появился волшебный нож. & play sound/комне2.wav & volsh=1 & inv+ Нож
btn #loc$, НАЗАД& end
end

:999_2
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto">
</div>
</body>
</html>
pln <br>
if hero=0 then pln Ты сказала: #%word$ <br>
if hero=1 then pln Ты сказал: #%word$ <br>
pln И в твоей руке появился волшебный нож. & play sound/комне2.wav & volsh=1
btn #loc$, НАЗАД& end
end

:999_31
Слово=1
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto">
</div>
</body>
</html>
pln <br>
play sound/сила.wav
pln Ты сказала: #%word$, и камень сам немного вытащился из земли. 
btn #loc$, НАЗАД & end
end

:999_3
Слово=1
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Ты сказал: #%word$, и камень сам немного вытащился из земли.
play sound/сила.wav 
btn #loc$, НАЗАД & end
end


:999_41
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/героиня.jpg" class="foto">
</div>
</body>
</html>
pln <br>
if loc<>21 then pln Ты начала говорить слово: #%word$, но орел остановил тебя, и сказал, что лучше это сказать на скале, когда прилетим на континент. &  btn #loc$, НАЗАД & end

play sound/чара.wav
pln Ты сказала: #%word$, и Орел превратился в юношу. 
helporlig=2
btn #loc$, НАЗАД & end
end

:999_4
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/Person/герой.jpg" class="foto">
</div>
</body>
</html>
pln <br>
if loc<>21 then pln Ты начал говорить слово: #%word$, но орлица остановила тебя, и сказала, что лучше это сказать на скале, когда прилетим на континент. &  btn #loc$, НАЗАД & end
pln Ты сказал: #%word$, и Орлица превратилась в девушку.
helporlig=2
play sound/чара.wav 
btn #loc$, НАЗАД & end
end



:use_Медальон2
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/Медальон2.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln На медальоне изображены два треугольника, верх которых повернут в противоположные стороны. В центре изображение птицы, другие знаки - космические: символы планет.
btn #loc$, НАЗАД& end
end

:use_Ступка
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ступка.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Фарфоровая белая ступка с лепестками календулы.
btn #loc$, НАЗАД& end
end


:use_Медальон
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/медальон.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln На медальоне изображена орлиная голова.
btn #loc$, НАЗАД& end
end


:use_Книга
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/книга.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Большая и толстая книга с надписью на обложке "Основы основ чёрной магии".
if kill=1 and helpforest=1 then pln  В этой книге написаны различные магические заклинания и волшебные слова на непонятном языке. Одно слово было пдчёркнуто: АКЕРШАЛИС. 
if (kill=1 and helporlig=1 and hero=0) then pln Ты пролистала несколько страниц и на одной странице с изображениями зверей и под орлом увидела слово: ОРЛОВЧАРА
if (kill=1 and helporlig=1 and hero=1) then pln Ты пролистал несколько страниц и на одной странице с изображениями зверей и под орлом увидел слово: ОРЛОВЧАРА

btn #loc$, НАЗАД
end


:use_Посох
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/посохволхва.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Посох Волхва сделан из ясеня и верхняя часть его похожа на образ журавля.
pln 
btn #loc$, НАЗАД& end
;pln <br><br><br><br><br><br> (кликни мышкой)& anykey & goto #loc$
end



:use_Книга_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/книга.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 then pln - Спасибо. - Сказал Волхв. & inv- Книга & Книга_лок=loc & btn #loc$, НАЗАД& end
if loc=18 then pln - Не возьму. - Сказал Леший. & end
if loc=34 then pln - Так, книга по магии... Пожалуй, возьму. - Сказала Ягиня. & inv- Книга & Книга_лок=loc & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Я читать книги не умею. - Сказал Орел. & btn #loc$, НАЗАД& end
pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Книга_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/книга.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Книга
Книга_лок=loc
btn #loc$, НАЗАД& end


:use_Перун
cls
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/перун.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Неплохо вырезанный перун, величиной с два локтя.
btn #loc$, НАЗАД & end

:use_Перун_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/перун.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 then pln - Спасибо. - Сказал Волхв и положил перуна на алтарь. <br> - Возьми оберег, с ним тебе будет не страшно & inv- Перун & Перун_лок=0 & inv+ Оберег & Оберег_лок=0 & btn #loc$, НАЗАД& end
if loc=18 then pln - Красивое изделие. Не возьму, предложи Волхву. - Сказал Леший. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД & end

:use_Перун_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/перун.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Перун
Перун_лок=loc
btn #loc$, НАЗАД & end

:use_Луковица
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/луковица.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Большая луковица.
btn #loc$, НАЗАД & end

:use_Луковица_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/луковица.jpg" class="foto"></div>
</body>
</html><br>
if hero=0 then pln Ты понюхала лук, он у тебя вызвал неприятные ощущения и ты перередумала его есть.
if hero=1 then pln Ты понюхал лук, он у тебя вызвал неприятные ощущения и ты перередумал его есть.

btn #loc$, НАЗАД & end

:use_Луковица_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/луковица.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 then pln - Спасибо, я лук люблю, особенно обжаренный в масле. - Сказал Волхв.& inv- Луковица & Луковица_лок=40 & btn #loc$, НАЗАД& end
if loc=18 then pln - Спасибо за угощение. - Ответил Леший. & inv- Луковица & Луковица_лок=41 & btn #loc$, НАЗАД& end
if loc=34 then pln - Отлично, луковица для зелья есть. - сказала Ягиня & inv- Луковица & Луковица_лок=0 & зел=зел+1 & proc zelie & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Спасибо, не нужно. & btn #loc$, НАЗАД& end
if loc=23 then pln - Не голоден, спасибо. - сказал Тсиваз & btn #loc$, НАЗАД& end
pln Кому отдать?
btn #loc$, НАЗАД & end



:use_Семена
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/семена.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Несколько семян лука.
btn #loc$, НАЗАД & end

:use_Семена_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/семена.jpg" class="foto"></div>
</body>
</html><br>
if (loc=5 and seed=0 and hero=1) then seed=1 & pln Ты разрыхлил грядку и посеял семена лука в землю. & Семена_лок=0 & inv- Семена 
if (loc=5 and seed=0 and hero=0) then seed=1 & pln Ты разрыхлила грядку и посеяла семена лука в землю. & Семена_лок=0 & inv- Семена 
btn #loc$, НАЗАД & end

:use_Семена_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/семена.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Спасибо, я не знаю таких семян и неизвестно что не выращиваю. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - У меня запасы семян с прошлого года не закончились. - Ответил Леший. & btn #loc$, НАЗАД& end
if loc=34 then pln - Спасибо, но такие семена у меня есть. - сказала Ягиня & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Спасибо, одно семечко я возьму. & btn #loc$, НАЗАД& end
if loc=23 then pln - Мне ничего не нужно. - сказал Тсиваз & btn #loc$, НАЗАД& end
pln Кому отдать?
btn #loc$, НАЗАД & end



:use_Дождевичок
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб1.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Маленький грибок-дождевичок.
btn #loc$, НАЗАД & end

:use_Дождевичок_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб1.jpg" class="foto"></div>
</body>
</html><br>
play sound/хрум.wav
pln Ты откусил кусочек гриба, пожевал его. Он тебе показался невкусным и ты его положил в карман.
btn #loc$, НАЗАД & end

:use_Дождевичок_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб1.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Спасибо, хоть я и предпочитаю орехи, но сварю из него суп. - Сказал Волхв.& inv- Дождевичок & Гриб_лок=12 & btn #loc$, НАЗАД& end
if loc=18 then pln - Да, хоть и голод он и не утолит, я его поджарю, спасибо. - Ответил Леший. & inv- Дождевичок & Гриб_лок=12 & btn #loc$, НАЗАД& end
if loc=34 then pln - Этот гриб, но для зелья нужен побольше, а этот я возьму для мышки. & inv- Дождевичок & Гриб_лок=12 & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД & end


:use_Дождевичок_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/гриб1.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Дождевичок
Гриб_лок=12 
btn #loc$, НАЗАД& end

:use_Дождевик
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб2.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Большой гриб-дождевик.
btn #loc$, НАЗАД & end

:use_Дождевик_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб2.jpg" class="foto"></div>
</body>
</html><br>
play sound/хрум.wav
pln Ты откусил кусочек гриба, пожевал его. Он тебе показался невкусным и ты его положил в карман.
btn #loc$, НАЗАД & end

:use_Дождевик_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/гриб2.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Спасибо я предпочитаю орехи. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Не голоден. - Ответил Леший. & btn #loc$, НАЗАД& end
if loc=34 then pln - Отлично, гриб для зелья есть. & inv- Дождевик & Гриб_лок=0 & зел=зел+1 & proc zelie & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД & end


:use_Ягоды
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ягоды.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Черные колючие сухие ягоды.
btn #loc$, НАЗАД & end

:use_Ягоды_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ягоды.jpg" class="foto"></div>
</body>
</html><br>
pln Ты попробывал одну колючую ягоду, но тут же выплюнул. Потом долго избавлялся от мелких колючек во рту.
play sound/хрум.wav
btn #loc$, НАЗАД& end

:use_Ягоды_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ягоды.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Спасибо не хочется. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Не голоден. - Ответил Леший. & btn #loc$, НАЗАД& end
if loc=34 then pln - Отлично, ягоды для зелья есть. & inv- Ягоды & Ягоды_лок=0 & зел=зел+1 & proc zelie & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Ягоды_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/ягоды.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Ягоды
Ягоды_лок=loc
btn #loc$, НАЗАД& end

:zelie
if зел=4 then play sound/nalila.wav & play sound/bulki.wav & pln Ягиня налила воду в котелок, бросила в него гриб, луковицу, ягоды и сварила зелье. Наполнив баночку зельем, она отдала её тебе. & inv+ Зелье & end
end

:use_Зелье
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/зелье.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Синеватый, но приятно пахнущий отвар в красивом флаконе.
btn #loc$, НАЗАД& end

:use_Зелье_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/зелье.jpg" class="foto"></div>
</body>
</html><br>
pln Ты выпил зелье и почувствовал необыкновенный прилив сил. & play sound/glotok.wav & play sound/сила.wav & Сила=1 & inv- Зелье & Зелье_лок=0
btn #loc$, НАЗАД& end

:use_Зелье_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/зелье.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Нет, спасибо, пей сам. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Нет, не доверяю я всяким ягиневским настойкам. - Ответил Леший. & btn #loc$, НАЗАД& end
if loc=34 then pln - Это только для тебя. - Сказала Ягиня & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Зелье_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/зелье.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Зелье
Зелье_лок=loc
btn #loc$, НАЗАД& end



:use_Чурка
cls
html true 
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/чурка.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln Обычная небольшая дубовая чурка.
btn #loc$, НАЗАД& end

:use_Чурка_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/чурка.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Мне она не нужна. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln - Ею разве только печь топить, но дров у меня много. & btn #loc$, НАЗАД& end
if loc=34 then pln - Спасибо, но дрова у меня имеются. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Чурка_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/чурка.jpg" class="foto"></div>
</body>
</html><br>
if loc=34 then pln Ты бросил чурку в огонь под котёл. & inv- Чурка & Чурка_лок=0 &btn #loc$, НАЗАД& end
pln Её можно приенить, но не здесь.
btn #loc$, НАЗАД& end

:use_Чурка_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/чурка.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Чурка
Чурка_лок=loc
btn #loc$, НАЗАД& end

:use_Нож
cls
html true 
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto">
</div>
</body>
</html>
pln <br>
pln На рукоятке ножа выгравирована надпись: КОМНЕ
btn #loc$, НАЗАД& end

:use_Нож_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Я тебе его подарил. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln Хороший нож. Я возьму. & inv- Нож & Нож_лок=loc & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Нож_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto"></div>
</body>
</html><br>
if Чурка then pln Ты аккуратно ножом вырезал из дубовой чурки перуна. & inv+ Перун & inv- Чурка & Чурка_лок=0 & btn #loc$, НАЗАД& end
pln Его можно приенить, но не здесь.
btn #loc$, НАЗАД& end

:use_Нож_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/нож.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Нож
Нож_лок=loc
btn #loc$, НАЗАД& end


:use_Шест
cls
html true 
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/шест.jpg" class="foto"></div>
</div>
</body>
</html>
pln <br>
pln Длинный шест.
btn #loc$, НАЗАД& end

:use_Шест_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/шест.jpg" class="foto"></div>
</body>
</html><br>
if loc=19 then pln Просто иди через болото. & btn #loc$, НАЗАД& end
pln Ты опёршись на шест идёшь, используя его как посох.
btn #loc$, НАЗАД& end

:use_Шест_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/шест.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Тебе он нужнее. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln - Ха-ха-ха. У меня этих палок - целый лес. - Посмеялся Леший. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Шест_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/шест.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Шест
Шест_лок=loc
btn #loc$, НАЗАД& end



:use_Кристалл
cls
html true 
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/кристалл.jpg" class="foto"></div>
</div>
</body>
</html>
pln <br>
pln Кристалл изнутри светящийся голубоватм свечением.
btn #loc$, НАЗАД& end


:use_Кристалл_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/кристалл.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Мне она никчему. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln Интересная вещица, я возьму. - Сказал Леший. & inv- Кристалл & Кристалл_лок=loc & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Кристалл_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center">
<img src="#quest_path$/image/кристалл.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Кристалл
Кристалл_лок=loc
btn #loc$, НАЗАД& end

:use_Ключ
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ключ.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Деревяннй ключ от дверного замка.
btn #loc$, НАЗАД& end
end

:use_Ключ_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ключ.jpg" class="foto"></div>
</body>
</html><br>
if loc=5 and Дверь=0 then play sound/Key.wav & Дверь=1 & pln Вы вставили ключ в замок и открыли дверь.
if loc<>5 then pln Что отпереть?
btn #loc$, НАЗАД& end
end

:use_Ключ_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ключ.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Это не мой ключ. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln - Хороший ключ, ты где его нашёл?  & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end
end

:use_Ключ_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ключ.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Ключ
Ключ_лок=loc
btn #loc$, НАЗАД& end
end

:use_Ведро
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html>
pln <br>
if Вода=0 then pln Деревянное пустое ведро.
if Вода=1 then pln Ведро с колодезной водой.
if Вода=2 then pln Ведро с мутной водой.
btn #loc$, НАЗАД& end


:use_Ведро_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html><br>
if Вода=0 then pln Вы посмотрели в ведро и не придумали как его применить.  & btn #loc$, НАЗАД& end

if ( loc=12 and Вода=1 and grib=0 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грибок. & grib=1 & Вода=0 & btn #loc$, НАЗАД& end
if ( loc=5 and Вода=0) then pln Вы наклнили ведро над грядкой, но ни одна капля из него не вытекла.  & Вода=0 & btn #loc$, НАЗАД& end

if ( loc=5 and Вода>0 and seed=0 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грядку.  & Вода=0 & btn #loc$, НАЗАД& end
if ( loc=5 and Вода>0 and seed=1 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грядку с посажеными семенами. & time=ходы & seed=2 & Вода=0 & btn #loc$, НАЗАД& end



if Вода=1 then pln Вы глотнули воды из ведра и утолили жажду.& play sound/glotok.wav  & btn #loc$, НАЗАД& end
if Вода=2 then pln Вода не чистая, ее пить нельзя. & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end



:use_Ведро_Наполнить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html><br>
if ( loc=7 and not Веревка and Вода=0) then pln Вы не можете наполнить ведро водой без верёвки. & btn #loc$, НАЗАД& end
if ( loc=7 and tie=0 and Вода=0 ) then pln Веревка к ведру не привязана. & btn #loc$, НАЗАД& end
if ( loc=7 and tie=1 and Вода=0 ) then Вода=1 & play sound/vedro.wav & pln Вы наполнили ведро водой. & btn #loc$, НАЗАД& end
if ( loc=7 and Вода>0 ) then pln Вы уже наполнили ведро водой. & btn #loc$, НАЗАД& end
if ( loc=10 and Вода>0 ) then pln Вы уже наполнили ведро водой. & btn #loc$, НАЗАД& end

if ( loc=10 and Вода=0) then pln Вы опустили ведро в озерцо, и наполнили ведро водой.  & play sound/vedro.wav & Вода=2 & btn #loc$, НАЗАД& end

if ( loc<>7 and Вода=0 ) then pln Его можно наполнить, но не здесь. & btn #loc$, НАЗАД& end

btn #loc$, НАЗАД& end


:use_Ведро_Опорожнить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html><br>

if ( loc=12 and Вода=1 and grib=0 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грибок. & grib=1 & Вода=0 & btn #loc$, НАЗАД& end
if ( loc=5 and Вода=0) then pln Вы наклнили ведро над грядкой, но ни одна капля из него не вытекла.  & Вода=0 & btn #loc$, НАЗАД& end

if ( loc=5 and Вода>0 and seed=0 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грядку.  & Вода=0 & btn #loc$, НАЗАД& end
if ( loc=5 and Вода>0 and seed=1 ) then play sound/nalila.wav & pln Вы вылили всю воду из ведра на грядку с посажеными семенами. & time=ходы & seed=2 & Вода=0 & btn #loc$, НАЗАД& end

if Вода=0 then pln Оно и так пустое. & btn #loc$, НАЗАД& end
if (loc=6 or loc=34 or loc=9) then pln Здесь воду выливать нельзя. & btn #loc$, НАЗАД& end
if Вода=1 then play sound/nalila.wav & pln Вы вылили воду на землю. & Вода=0 & btn #loc$, НАЗАД& end
if Вода=2 then play sound/nalila.wav & pln Вы вылили воду на землю. & Вода=0 & btn #loc$, НАЗАД& end


btn #loc$, НАЗАД& end




:use_Ведро_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - В хозяйстве, конечно, пригодится, но у меня уже одно есть - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Нет, ведро мне не нужно. & pause 3000 & goto #loc$
if loc=34 and Вода=1 then pln - Отлично, вода для зелья есть. & Вода=0 & зел=зел+1 & proc zelie & btn #loc$, НАЗАД& end
if loc=34 and Вода=2 then pln - Так, вода мутная, не чистая, для зелья не пригодная. Я же говорила, принести чистую колодезную воду. & btn #loc$, НАЗАД& end

if loc=34 and Вода=0 then pln - А где вода?. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Ведро_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/ведро.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Ведро
Ведро_лок=loc
btn #loc$, НАЗАД& end

:use_Топор
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Очень острый топор для рубки дров.
btn #loc$, НАЗАД& end

:use_Топор_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html><br>
if loc=14 and seeЧурка=0 then pln Ты срубил один дубок и сделал из него небольшую чурку. & play sound/топор2.wav & seeЧурка=1 & inv+ Чурка & btn #loc$, НАЗАД& end
;if loc=19 and seeШест=0 then pln Ты срубил подходящее дерево у болота и сделал из него шест. & play sound/топор2.wav & seeШест=1 & inv+ Шест & pln <br><br><br><br><br><br> (кликни мышкой)& anykey & goto #loc$
if loc>11 and loc<17  and seeШест=0 then pln Ты срубил подходящее дерево и сделал из него шест. & play sound/топор2.wav & seeШест=1 & inv+ Шест & btn #loc$, НАЗАД& end
pln Его можно применить но не здесь.
btn #loc$, НАЗАД& end

:use_Топор_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Хороший топорик, оставь себе. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 and Нож_лок=41 then pln - Давай. Хороший ножик у тебя, возвращаю. - Сказал Леший.& inv- Топор & Топор_лок=41 & inv+ Нож & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Топор_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/топор.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Топор
Топор_лок=loc
btn #loc$, НАЗАД& end


:use_Веревка
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/веревка.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Очень длинная верёвка.
btn #loc$, НАЗАД& end

:use_Веревка_Применить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/веревка.jpg" class="foto"></div>
</body>
</html><br>
if Ведро and tie=0 then pln Ты привязал веревку к ведру.& tie=1 & btn #loc$, НАЗАД& end
pln Каким образом?
btn #loc$, НАЗАД& end

:use_Веревка_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/веревка.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Мне не нужна. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln - Мне эта верёвка без надобности. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Веревка_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/веревка.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено.
inv- Веревка
Веревка_лок=loc
btn #loc$, НАЗАД& end

:use_Половик
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/коврик.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Новый и чистый половик, сделан из куска ковра.
btn #loc$, НАЗАД& end

:use_Половик_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/коврик.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Спасибо, не нужен. - Сказал Волхв.  & btn #loc$, НАЗАД& end
if loc=18 then pln - Нет не нужна. - Сказал Леший. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Половик_Положить
cls
html true
<html>
<body bgcolor="snow">
</body>
<div align="center"><img src="#quest_path$/image/коврик.jpg" class="foto"></div>
</html><br>
pln Брошено.
inv- Половик
Половик_лок=loc
btn #loc$, НАЗАД& end


:use_Оберег
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html>
pln <br>
pln Оберег Волхва сделан из кедра с цепочкой и имитирует вращающееся солнце.
btn #loc$, НАЗАД& end


:use_Оберег_Надеть
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html><br>
if АмулетНадет=0 then pln Ты надел на шею оберег. & АмулетНадет=1 & btn #loc$, НАЗАД& end
if АмулетНадет=1 then pln Ты уже надел оберег & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end

:use_Оберег_Снять
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html><br>
if АмулетНадет=1 then pln Ты снял оберег. & АмулетНадет=0 & btn #loc$, НАЗАД& end
if АмулетНадет=0 then pln Ты уже снял оберег. & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end

:use_Оберег_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Зачем? Он тебе пригодится. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Оставь себе. - Сказал Леший. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Оберег_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/оберег.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено. & АмулетНадет=0
inv- Оберег
Оберег_лок=loc
btn #loc$, НАЗАД& end


:use_Перчатка
cls
html true 
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>

</body>
</html>
pln <br>
pln Вполне пригодная кожаная перчатка. Возможно принадлежала князю или воину. & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end

:use_Перчатка_Надеть
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>
</body>
</html><br>
if perch=0 then pln Ты натянул кожаную перчатку на правую руку. & perch=1 & btn #loc$, НАЗАД& end
if perch=1 then pln Она уже надета. & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end

:use_Перчатка_Снять
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>
</body>
</html><br>
if perch=1 then pln Ты снял перчатку. & perch=0 & btn #loc$, НАЗАД& end
if perch=0 then pln Ты уже снял кожаную перчатку с правой руки. & btn #loc$, НАЗАД& end
btn #loc$, НАЗАД& end

:use_Перчатка_Отдать
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>
</body>
</html><br>
if loc=11 and Волхв=1 then pln - Оставь себе. - Сказал Волхв. & btn #loc$, НАЗАД& end
if loc=18 then pln - Оставь себе. - Сказал Леший. & btn #loc$, НАЗАД& end
if Орлан_лок=loc then pln - Мне он ни к чему, спасибо. - Сказал Орел. & btn #loc$, НАЗАД& end
if loc=34 then pln - Нет, спасибо. - Сказала Ягиня. & btn #loc$, НАЗАД& end

pln Кому отдать?
btn #loc$, НАЗАД& end

:use_Перчатка_Положить
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/image/перчатка.jpg" class="foto"></div>
</body>
</html><br>
pln Брошено. & perch=0
inv- Перчатка
Перчатка_лок=loc
btn #loc$, НАЗАД& end

:use_inv_Музыку отключить
Music="music/10.mp3"
end
:use_inv_Музыку включить
Music="music/jetno.mp3"
end

:use_inv_Сохраниться
cls

save #%current_loc$
cls
html true
<html>
<body bgcolor="snow">
<div align="center"><img src="#quest_path$/Locate/Заглавие.jpg" class="foto"></div>
</body>
</html><br>
pln
pln Игра сохранена.
pln
btn #loc$, НАЗАД& end



:common 


if Орлиг_лок=4 then helporlig=0 

:day
proc minute ;Нмдъбупьачепъз ноуючаич куляп у бчъма 
if hor>23 then hor=hor-24 & dat=dat+1 ;Нмдъбупьачепъз ноуючаич бчъма у длех 
instr timer=Сейчас июнь месяц #dat$-й день. Время  #hor$:#$
if min<10 then instr timer=#%timer$ 0#min$.#/$ else instr timer=#%timer$ #min$.#/$ ;Мъяшеъпайзепъз аьамд длех, бчъма у куляп. Мюочпупе алукчлуе - имооеиплм аьамдупъз имйубеъпам куляп, келщэее 10! Члчймжублм кмтлм ъдейчпщ у ъ бчъчку, еъйу лятлм дейчпщ ауд "ыйеипомлльс бчъма". 
;Мъяшеъпайзепъз аьамд длех, бчъма у куляп. Мюочпупе алукчлуе - имооеиплм аьамдупъз имйубеъпам куляп, келщэее 10! Члчймжублм кмтлм ъдейчпщ у ъ бчъчку, еъйу лятлм дейчпщ ауд "ыйеипомлльс бчъма". 
if hor<7 or hor>22 then sun=0 else sun=1
end
:minute
min=min+rnd30 
if min>59 then hor=hor+1 & min=min-60 
if min>59 then goto minute ;Еъйу ноуючауйу юмйее 60 куляп, пм лятлч номаеоич. 
end


html false
