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

Aleks Versus Moderator 14.11.2015 16:56 (10 years ago)

Aleks Versus Moderator 15.11.2015 08:19 (10 years ago)

Mr. Black #927 16.11.2015 00:35 (10 years ago)

S

St-john #1412 25.11.2015 05:04 (10 years ago)

Mr. Black #927 25.11.2015 05:37 (10 years ago)

$menu[0] = 'Осмотреть : Камень'
$menu[1] = 'Взять камень : Камень'

Первая строка меню запустит 1 аргумент - осмотреть, вторая - добавит предмет в инвентарь.

Локация ‘Камень’

Args = 1 :
*pl 'Обычный камень'
End

Args = 2 :
addobj 'Камень'
*pl 'Вы подобрали камень.'
End

S

St-john #1412 25.11.2015 09:56 (10 years ago)

$menu[0] = 'Осмотреть : Камень' 
$menu[1] = 'Взять камень : Камень'

$menu2[0] = 'Понюхать : Камень' 
$menu2[1] = 'Сесть на камень : Камень'

Ну а если такой код к примеру?

S

St-john #1412 25.11.2015 10:18 (10 years ago)

Aleks Versus Moderator 25.11.2015 10:56 (10 years ago)

S

St-john #1412 25.11.2015 13:24 (10 years ago)

Л

Ллур #1426 26.11.2015 19:46 (10 years ago)

Что я делаю не так?

temp[0]=1
temp[1]=2
temp[2]=3
temp[3]=4
temp[4]=5
temp[5]=6
temp[6]=7
temp[7]=8
temp[8]=9
temp[9]=10

i=1
:markiniteff
ats=arrsize('temp')
variant=rand(0,ats)
k=temp[variant]
KILLVAR 'temp', variant
eff[i]=temp[k]
i+=1
if i<10:jump'markiniteff'

Делал по аналогии с выбором случайных карт. Мне нужно массиву eff[] присвоить числа от 1 до 10 так что бы они не повторялись, но код не правильно работает и просто присваивает случайные значения.

Все. Вопрос снят. Вот рабочий код.

temp[1]=1
temp[2]=2
temp[3]=3
temp[4]=4
temp[5]=5
temp[6]=6
temp[7]=7
temp[8]=8
temp[9]=9
temp[10]=10

i=1
:markiniteff
ats=arrsize('temp')
variant=rand(1,ats-1)
k=temp[variant]
eff[i]=k
KILLVAR 'temp', variant
i+=1
if i<=10:jump'markiniteff'

evp #1167 27.11.2015 09:10 (10 years ago)

k не нужна, да и код жестко привязан к размеру изначального массива. Так лучше, по-моему:

i = 0
:loop
	i += 1
	if i <= 10:
		temp[] = i
		*nl 'temp[<<i-1>>] = <<temp[i-1]>>'
		jump 'loop'
	end
*nl '======================='
:markiniteff 
	ats = arrsize('temp')
	*nl 'ats = arrsize(''temp'') = <<ats>>' 
	if ats:
		variant = rand(0,ats - 1)
		eff[] = temp[variant]
		KILLVAR 'temp', variant 
		jump'markiniteff'
	end
*nl '======================='
i = 0
:print
	*nl eff[i]
	i += 1
	if i <= arrsize('eff')-1: jump 'print'

Операторы *nl только для иллюстрации того, что происходит. В рабочем коде их следует убрать.

Строго говоря, ats тоже не нужна. Блок :markiniteff может выглядеть короче:

:markiniteff  
	if arrsize('temp'):
		variant = rand(0,arrsize('temp') - 1)
		eff[] = temp[variant]
		KILLVAR 'temp', variant 
		jump'markiniteff'
	end

Но тут ситуация двоякая. В первоначальном варианте мы один раз вызываем функцию arrsize в каждом проходе цикла, тогда как во втором варианте - дважды. При больших размерах массива temp (очень больших - >> 1000) и слабом процессоре это может вызвать ненужную задержку.

Л

Ллур #1426 27.11.2015 10:40 (10 years ago)

evp #1167 27.11.2015 15:11 (10 years ago)

OK :)

eff[arrsize('temp')] = temp[variant]

Нулевого индекса не будет.

G

Genryzz #1590 02.12.2015 09:45 (10 years ago)

Нужно сделать так чтобы без перехода на новый экран добавлять или убирать персонажей. А после набора определеного числа можно было или убирать уже имеющихся или закончить с выбором.

*clr 
cla
'Текст'
act 'Подбор группы':  gt 'Вихрь', '0'
end

if $args[0] = '0':
*clr 
cla
'Число участников <<grup>>'
if grup = 3:
'Вы не можете взять больше персонажей.'
act 'Закончить сбор группы': gt 'Вихрь', '1'
end
if grup = 0:
if act 'Иванов': gt 'Вихрь', '0'
set grup += 1
set iv += 1
end
if  act 'Коля': gt 'Вихрь', '0'
set grup += 1
set kol += 1
end
if  act 'Ира': gt 'Вихрь', '0'
set grup += 1
set ir += 1
end
if  act 'Оля': gt 'Вихрь', '0'
set grup += 1
set ol += 1
end
end

Aleks Versus Moderator 02.12.2015 10:03 (10 years ago)