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