  include  'inc/macro.inc'

;---------------------------------
  clrscr
  message "Звонит будильник (8:00). Пора вставать, но не хочется."

  clearmenu
  addmenuitem "Выключить будильник", .Try_Turn_Clock_Off
  addmenuitem "Встать с кровати", .Fuck_Clock
  addmenuitem "Завершить квест", .End_With_Clock
  getmenuitem


.Fuck_Clock:
  clrscr
  message "Хоть Вы и встали, будильник не даёт Вам покоя"

  clearmenu
  addmenuitem "Выключить будильник", .Try_Turn_Clock_Off
  addmenuitem "Завершить квест", .End_With_Clock
  getmenuitem

.Try_Turn_Clock_Off:
  clrscr
  message "Вы попытались выключить будильник нажатием на кнопку, но ничего из этого не вышло:("

  clearmenu
  addmenuitem "Взять правой рукой со стола молоток", .Get_Molotok
  addmenuitem "Завершить квест", .End_With_Clock
  getmenuitem


.Get_Molotok:
  clrscr
  message "Вы взяли молоток"

  clearmenu
  addmenuitem "Ударить по будильнику молотком", .Crash_Clock_With_Molotok
  addmenuitem "Завершить квест", .End_With_Clock
  getmenuitem


.Crash_Clock_With_Molotok:
  clrscr
  message "Будильник разлетелся на осколки, придётся покупать новый:)"

  clearmenu
  addmenuitem "Завершить квест", .Get_up
  getmenuitem


.Get_up:
  clrscr
  message "Вы наконец-то встали"
  EndQuest


.End_With_Clock:
  clrscr
  message "Будильник остался в живых"
  EndQuest