Инвентарь с подпунктами

# начало
$onobjsel = 'onobjsel'
usehtml = 1 & ! скрываем теги
!  делаем сумку и предметы в ней
$bug_1[0]='закрыть сумку<bug.close:1>'
$bug_1[1]='отвёртка'
$bug_1[2]='молоток'
$bug_1[3]='ножовка'
$bug_1[4]='гвозди'
! добавляем предметы
addobj 'сумка<bug.open:1>'
addobj 'бутылка с вином'
addobj 'увеличительное стекло'
addobj 'билет на трамвай'
addobj 'спички'
--- начало ---------------------------------

# onobjsel
gosub 'bug.sel' & ! операции с сумкой
unselect
--- onobjsel ---------------------------------

# bug.sel
if $strfind($selobj,'<bug.close:[\d]+>')!'': gosub 'bug.close',val($replace($replace($strfind($selobj,'<bug.close:[\d]+>'),'<bug.close:'),'>'))
if $strfind($selobj,'<bug.open:[\d]+>')!'': gosub 'bug.open',val($replace($replace($strfind($selobj,'<bug.open:[\d]+>'),'<bug.open:'),'>'))
--- bug.sel ---------------------------------

# bug.open
! args[0] - номер обрабатываемой сумки
i = countobj
killvar '$obj_member'
:из инвентаря в память
if i>0:
	$obj_member[i] = getobj(i)
	i-=1
	if i>0: jump 'из инвентаря в память'
end
killobj
i=1
:из сумки в инвентарь
if no i > arrsize('bug_<<args[0]>>'):
	dynamic "addobj $bug_<<args[0]>>[i-1]"
	i+=1
	if no i > arrsize('bug_<<args[0]>>'): jump 'из сумки в инвентарь'
end
killvar 'i'
--- bug.open ---------------------------------

# bug.close
! args[0] - номер обрабатываемой сумки
killobj
i = 1
arrsize('$obj_member')
:из памяти в инвентарь
if no i > arrsize('$obj_member'):
	addobj $obj_member[i]
	i+=1
	if no i > arrsize('$obj_member'): jump 'из памяти в инвентарь'
end
killvar '$obj_member'
killvar 'i'
--- bug.close ---------------------------------