Forum.iFiction.Ru

!Создаем обычное меню для объекта "Пещера".
GS 'Меню.Создать','МенюПещера'
GS 'Меню.ДобавитьПункт','МенюПещера','Осмотреть пещеру','','ДействияВПещере','осмотреть'
GS 'Меню.ДобавитьПункт','МенюПещера','Обыскать пещеру','','ДействияВПещере','осмотреть','тщательно'
*NL '<p>Вы сидите посреди <a href="exec: GS ''Меню.Вызвать'',''МенюПещера''">пещеры</a>.</p>'

!Создаем усложненное меню для объекта "Сундук".
GS 'Меню.Создать','МенюСундук'
!----------
!Добавляем пункт меню со встроенным выполняемым кодом
GS 'Меню.ДобавитьПункт','МенюСундук','Осмотреть сундук'
!При выборе пункта меню не вызывается локация-обработчик, а выполняется заданный код
GS 'Меню.ДобавитьМодуль','МенюСундук',{
    *NL
    if СундукОткрыт=0:
        *NL 'Крепкий деревянный сундук с очень простым замком.'
    else
        *NL 'Сундук пуст.'
    end
}
!----------
!Добавляем пункт меню с условием, т.е. этот пункт появляется в меню только при выполнении определенного условия
GS 'Меню.ДобавитьПункт','МенюСундук','Открыть сундук'
!Задаем условие включения пункта в меню
GS 'Меню.ДобавитьУсловие','МенюСундук',{Result=IIF(СундукОткрыт,0,-1)}
!Назначаем код, который будет выполняться при выборе пункта
GS 'Меню.ДобавитьМодуль','МенюСундук',{
    *NL 
    *NL 'Поколодовав немного над замком, вы открыли сундук. На это ушло '+func('Меню.Время','МенюСундук')+' миллисекунд.'
    СундукОткрыт=-1
}
*NL '<p>Перед вами стоит <a href="exec: GS ''Меню.Вызвать'',''МенюСундук''">сундук</a>.</p>'