!------------------------------------------------------------------------------- #Начало ADDQST 'libs\az.qsp' & if …Az.Инициализация(1)=0: EXIT !---------- …ЗагрузитьТему,'Default' …ЗагрузитьТему,'Black' !---------- …Создать,’Игрок’ ,Тип_Персонажи !---------- …Создать,’Ворота’ ,Тип_Локации …Создать,’Утёс’ ,Тип_Локации …Создать,’Болото’ ,Тип_Локации !---------- …Текущий,'Игрок' !---------- …Поместить,0,'Игрок','Ворота' !---------- …ЗаполнитьОбъектыИгры !---------- …Вывести,ЛОКАЦИЯ !---------- --- Начало !------------------------------------------------------------------------------- #Локации.Ворота.Заполнить …Добавить,’Ворота:Описания’,’Ворота’,'п. Вы стоите у ворот. Тропинка ведёт к ((краю утёса|Утёс)).' !---------- …УстановитьДоступностьСсылок,’Утёс’,’Ворота’,ДА !---------- …Добавить,’Ворота:Действия’,'Пойти к воротам','подойти','в:Утёс',{ …Переместить,ИГРА,ИГРОК,0,'Ворота','п. Вы подошли к воротам.',ДА } !---------- --- Локации.Ворота.Заполнить !-------------------------------------------------------------------------------- #Локации.Утёс.Заполнить …Добавить,’Утёс:Описания’,’Утёс’,'п. Ведущая от ((ворот|Ворота)) тропинка заканчивается у края утёса. По лестнице можно ((спуститься|Болото)) вниз, к болоту.' !---------- …УстановитьДоступностьСсылок,’Ворота,Болото’,’Утёс’,ДА !---------- …Добавить,’Утёс:Действия’,'Подойти к краю утёса','подойти','в:Ворота',{ …Переместить,ИГРА,ИГРОК,0,'Утёс','п. Пройдя по тропинке, вы остановились на краю утёса.',ДА } …Добавить,’Утёс:Действия’,'Подняться по лестнице','подойти','в:Болото',{ …Переместить,ИГРА,ИГРОК,0,'Утёс','п. Поднявшись по лестнице, вы оказались на утёсе.',ДА } !---------- --- Локации.Утёс.Заполнить !-------------------------------------------------------------------------------- #Локации.Болото.Заполнить …Добавить,’Болото:Описания’,’Болото’,'п. У подножия утёса, на который можно ((взобраться|Утёс)) только по хлипкой лестнице, сыро и пусто.' !---------- …УстановитьДоступностьСсылок,’Утёс’,’Болото’,ДА !---------- …Добавить,’Болото:Действия’,'Спуститься к болоту','подойти','в:Утёс',{ …Переместить,ИГРА,ИГРОК,0,'Болото','п. Вы спустились по лестнице вниз.',ДА } !---------- --- Локации.Болото.Заполнить !--------------------------------------------------------------------------------