#Начало

SHOWSTAT 0
SHOWINPUT 0
SHOWACTS 0
USEHTML = 1

LASTLOCINDEX=0
$ONNEWLOC = '!onnewloc'
$ONOBJSEL = '!menu'

KILLOBJ
ADDOBJ '[Назад]'
ADDOBJ 'Сценарий'
ADDOBJ 'Локации'
ADDOBJ 'Персонажи'
ADDOBJ 'Монстры'
ADDOBJ 'Предметы'

GOTO 'Сценарий'
------------ Конец Локации ---------------

#!back

IF LASTLOCINDEX > 1:
  LASTLOCINDEX = LASTLOCINDEX - 1
  GOTO $LASTLOC[LASTLOCINDEX - 1]
ELSE
  CLEAR
  P 'История переходов пуста.'
  GOTO $LASTLOC[LASTLOCINDEX - 1]
END
------------ Конец Локации ---------------

#!menu

$MENUACTION = $SELOBJ
UNSELECT

IF $MENUACTION = '[Назад]': GOTO '!back'
IF $MENUACTION = 'Сценарий': GOTO 'Сценарий'
IF $MENUACTION = 'Локации': GOTO 'Локации'
IF $MENUACTION = 'Персонажи': GOTO 'Персонажи'
IF $MENUACTION = 'Монстры': GOTO 'Монстры'
IF $MENUACTION = 'Предметы': GOTO 'Предметы'
------------ Конец Локации ---------------

#!onnewloc

IF MID($CURLOC, 1, 1) = '!' OR $LASTLOC[LASTLOCINDEX - 1] = $CURLOC: JUMP 'DEBUG'

$LASTLOC[LASTLOCINDEX]=$CURLOC
LASTLOCINDEX = LASTLOCINDEX + 1

IF LASTLOCINDEX > 30:
  i = 0
  :forLastLoc
    $LASTLOC[i] = $LASTLOC[20 + i]
    i = i + 1
  IF i < 11: JUMP 'forLastLoc'
  LASTLOCINDEX = 11
END

:DEBUG
------------ Конец Локации ---------------

#Сценарий
*PL '<center><b>Сценарий</b></center>'
*PL ''
*P 'Описание сюжета игры, квестов и т.д...'

------------ Конец Локации ---------------

#Локации
*PL '<center><b>Локации</b></center>'
*PL ''
*P 'Описание всех игровых локаций...'

------------ Конец Локации ---------------

#Персонажи
*PL '<center><b>Персонажи</b></center>'
*PL ''
*P 'Описание всех држественных игроку персонажей...'

------------ Конец Локации ---------------

#Монстры
*PL '<center><b>Монстры</b></center>'
*PL ''
*P 'Все создания в игре, с которыми предстоит побороться игроку...'

------------ Конец Локации ---------------

#Предметы
*PL '<center><b>Предметы</b></center>'
*PL ''
*P 'В мире столько полезных вещей, которые можно прибрать к рукам. Нужно знать их все...'

------------ Конец Локации ---------------