Как создать описание предмета (как отдельная локация)?

Ersaider #1735 • 15.05.2016 16:12 • 2 comments • 5231 views

Допустим, я хочу сделать так, чтобы со всех локаций (допустим, “мост”,”дом” и “дорога”) можно было прочитать описание какого-либо предмета, при этом тебя бы переваливало на отдельную локацию, а потом, прочитав описание, ты бы возвращался на предыдущую локацию (будь то “мост”, “дом” или “дорога”)
Хочу сделать так, как я делал на языке Аперо:

\(_Книжка=1)
\(_Книжка.локация="Читать книгу)
\(Мост,идти на мост)
\СТОП
\Мост
Вы на мосту
\(Дом,идти в дом)
\СТОП
\Читать книгу
Вы прочли книгу
\(прочитанная_книга=1)
\(\(АПЕРО.локация.возврат),Назад)
\СТОП

Aleks Versus Moderator 15.05.2016 20:25 (10 years ago)

В общих словах:
$curloc - функция, которая возвращает название текущей локации.
В том месте, где ты собираешься сделать переход на локацию чтения книги (допустим ‘локация_чтения_книги’), запоминаешь название текущей локации:

$back = $curloc

Потом естественно переход:

goto 'локация_чтения_книги'

На локации ‘локация_чтения_книги’ осталось создать действие возврата на предыдущую локацию:

act 'закрыть книгу': goto $back

Пример попроще book1.qsp
Пример посложнее, но покороче book2.qsp

Ersaider #1735 16.05.2016 11:54 (10 years ago)