  include  'inc/macro.inc'

; Переменные [номер]
  A    equ  0
  key  equ  1

; Вначале все переменные равны 0

;---------------------------------
  clrscr
  message "Вы стоите на возвышенности. Видите невдалеке красивый замок (здание)."
  message <13,10>
  message "Что Вы собираетесь делать?"

.Start:
  clearmenu

  ; if A=1
  ifpervalue  A,ravno,1, .Ne_smotret
  addmenuitem "Осмотреть замок", .Look_zamok

.Ne_smotret:
  addmenuitem "Подойти к замку", .Go_to_zamok
  addmenuitem "Завершить квест", .Svalit
  getmenuitem


.Look_zamok:
  clrscr
  message "Я же сказал, что замок красивый, что тебе ещё надо?"
  message <13,10,"Попробуй подойди поближе...">
  prisvoit  A,1  ; A=1
  xgoto .Start


.Go_to_zamok:
  clrscr

  ifpervalue A,neravno,1, .Ne_smotrel
  message "Насмотревшись на замок Вы подошли к нему."
  message <13,10>
.Ne_smotrel:
  message "Стоите у двери."

  .Message_look_flower:
  clearmenu
  addmenuitem "Попробовать открыть дверь", .Try_Door_Open
  addmenuitem "Посмотреть на цветок справа от двери", .Look_flower
  addmenuitem "Вернуться на возвышенность", .Start
  getmenuitem


.Try_Door_Open:
  ifpervalue key,ravno,1, .Door_is_opened

  clrscr
  message "Вы дёргаете за ручку, но дверь не поддаётся."
  message <13,10>
  message "Нужно попробовать найти ключ."
  xgoto .Message_look_flower


.Look_flower:
  clrscr
  message "Вы видите цветок, довольно подозрительный."

  ifpervalue key,ravno,1, .No_key_leshit

  message " Уж там, в горшке наверняка лежит ключ, честное слово:)"
  xgoto .No_key_leshit_else


 .No_key_leshit:
    message "Но ключа там нет, потому как Вы его уже подобрали."
    message <13,10>
    clearmenu
    addmenuitem "Положить ключ в горшок", .Put_key_into
    addmenuitem "Не ложить ключ, вернуться к двери", .Come_back
    getmenuitem

    .Come_back:
       clrscr
       xgoto .Ne_smotrel


    .Put_key_into:
       clrscr
       prisvoit key,0
       message "Вы зачемто опять положили ключ в горшок. Без ключа Вы дверь не откроете!!!"
       xgoto .Ne_smotrel

 .No_key_leshit_else:
  clearmenu
  addmenuitem  "Просто загляните в горшок и возьмите ключ", .Get_key
  addmenuitem  "Опять тупо глазеть на дверь", .Budem_smotret_dalshe
  getmenuitem

.Budem_smotret_dalshe:
  clrscr
  message "Тупо глазеем на дверь. Дверь не открывается, потому что она закрыта на ключ."
  message " Где ключ мы знаем, но почему-то не хотим его брать. Ладно, значит так задумано."
  message <13,10>
  xgoto .Ne_smotrel


.Get_key:
  prisvoit key,1
  clrscr
  message "Вы взяли ключ из горшка..."
  message <13,10>
  xgoto .Ne_smotrel


.Door_is_opened:
  clrscr
  message "Вы дёргаете за ручку, дверь открывается и квест завершается:)"

.Svalit:
    EndQuest