QSP - Как сделать?

S

St-john #1412 08.11.2015 14:01 (10 years ago)

Svartberg #1555 08.11.2015 14:06 (10 years ago)

St-john,
Ну, насколько мне помнится, здесь в переменной массива устанавливается значение для обращения:
Наглядный пример:

set $loc = 'лес'
 set $punkt = '1.1'
 if material[$loc+'_'+$punkt]=1: act 'Куча стройматериала!' : gt'remont_start'.

В итоге получается ячейка массива со значением: material[лес_1.1] и если в ячейке есть значение 1, то…
Дальше понятно)

S

St-john #1412 08.11.2015 14:14 (10 years ago)

Svartberg #1555 08.11.2015 14:23 (10 years ago)

Aleks Versus Moderator 08.11.2015 14:57 (10 years ago)

St-john,
пожалуйста

Spoiler

$args[0] = $args[0]	&	!	в $args[0] записано имя массива. Я потом поясню, почему переменные дублируются
$args[1] = $args[1]	&	!	в $args[1] записано значение, по которому следует удалять элементы
args['size']=arrsize($args[0])	&	!	запоминаем размер массива с именем $args[0]. Счётчик
! метка for нужна для организации цикла
:for
if instr($args[0],'$')=1:
! если первым символом в названии массива стоит знак $, значит массив текстовый
	! и мы ищем первый попавшийся элемент, который соответствует текстовому значению $args[1]
	args['pos']=arrpos($args[0],$args[1])	&	!	получаем позицию элемента
else
! если первым символом в названии массива стоит любой другой знак, значит массив числовой
	! и мы ищем первый попавшийся элемент, который соответствует числовому значению args[1]
	args['pos']=arrpos($args[0],args[1])	&	!	получаем позицию элемента
end
! если мы нашли элемент, соответствующий указанному значению
! и размер массива ещё не равен нулю, а так же счётчик не откатился к нулю (защита от дурака)
if args['pos']!-1 and arrsize($args[0])>0 and args['size']>0:
	killvar $args[0],args['pos']	&	!	удаляем найденный элемент
	args['size']-=1	&	!	уменьшаем счётчик на 1
	jump 'for'	&	!	возвращаемся к метке for
end

Этот код записывается отдельной локацией. Например, создаёшь локацию array.clr и кидаешь туда этот код. Допустим тебе нужно из массива ‘$mass’ удалить все элементы с таким текстом: ‘жесть’. Обращаешься к этой локации по gosub:

gosub 'array.clr','$mass','жесть'

Если бы ты писал этот код отдельно для того же случая (не универсальный так сказать) он бы выглядел так:

Spoiler

size=arrsize('$mass')	&	!	запоминаем размер массива с именем '$mass'. Счётчик
! метка for нужна для организации цикла
:for
! ищем первый попавшийся элемент, который соответствует текстовому значению 'жесть'
pos=arrpos('$mass','жесть')	&	!	получаем позицию элемента
! если мы нашли элемент, соответствующий указанному значению
! и размер массива ещё не равен нулю, а так же счётчик не откатился к нулю (защита от дурака)
if pos!-1 and arrsize('$mass')>0 and size>0:
	killvar '$mass',pos	&	!	удаляем найденный элемент
	size-=1	&	!	уменьшаем счётчик на 1
	jump 'for'	&	!	возвращаемся к метке for
end

Дублирование $args связано с этой темой, с этой темой, и с этой темой.

S

St-john #1412 08.11.2015 15:01 (10 years ago)

Mr. Black #927 09.11.2015 03:32 (10 years ago)

Aleks Versus Moderator 09.11.2015 07:38 (10 years ago)

BiK,
ты не можешь заменить имя в инвентаре?

!ищем предмет по имени
i = 1
:loop
if no i > countobj:
	if instr($getobj(i),'Пустая ячейка')!0:
		objnumber = i
	else
		i=i+1
		jump 'loop'
	end
end
!удаляем предмет по имени
delobj $getobj(objnumber)
!вставляем на его место новый предмет
addobj $item,'',objnumber

Плохо помню, указана ли в справке возможность добавлять предмет в указанную позицию, но работает это так:

addobj [$название],[$путь к файлу картинки],[#номер по порядку в инвентаре]

Mr. Black #927 10.11.2015 18:29 (10 years ago)

Этих двух команд оказалось достаточно, спасибо.

delobj $getobj(objnumber) 
addobj $item,'',objnumber

A

Aaaspavel #1563 11.11.2015 17:16 (10 years ago)

Svartberg #1555 11.11.2015 18:26 (10 years ago)

Mr. Black #927 12.11.2015 02:08 (10 years ago)

Aleks Versus Moderator 13.11.2015 06:57 (10 years ago)

Aaaspavel,
приблизительно так. В самой первой локации задаём

$onnewloc = 'onNewLoc'

Создаём локацию onNewLoc, где пишем следующее:

$print_text = '<font><i><b>'+$maintext+'</b></i></font>'
*clr
*p $print_text

Так будет задано форматирование для всего текста, выводимого на локацию. Естественно, чтоб в такой текст вставить неформатированный текст, придётся поизгаляться, или придумать способ посложнее.
Есть ещё в классическом плеере такие штуки, как fcolor lcolor bcolor fsize $fname. Может быть тебе их достаточно?
BiK,
вообще всё довольно просто делается через массивы. Т.е. ты не хранишь предметы/персонажей в окне инвентаря, а хранишь всё в наборе массивов. Потом уже по мере необходимости из этих массивов восстанавливаешь нужные тебе персонажи/предметы в виде “типа предметов” в окне инвентаря. Если непонятно, пример напишу.

Mr. Black #927 14.11.2015 10:20 (10 years ago)

S

St-john #1412 14.11.2015 12:55 (10 years ago)