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

S

ShadowX2 #2607 29.01.2026 17:58 (8 months ago)

Byte Admin 30.01.2026 10:56 (8 months ago)

Многомерные массивы полезны в случае, когда какое-либо значение нужно связать не с одним значением, а с несколькими.
Например, если описание какого-то предмета зависит только от порядкового номера предмета (м.б. от его названия?), то это одномерный массив.
Если описание предмета зависит не только от номера предмета, а еще и от локации, где игрок находится, то это уже двухмерный массив (в этом случае предмет с одним порядковым номером может иметь разное описание в зависимости от локации).

Другой пример - у нас есть двухмерная карта с координатами. Тогда содержимое каждой ячейки будет зависеть от 2х координат - это двухмерный массив (как таблица).
Если добавить еще одно измерение (например, содержимое _каждой_ ячейки карты зависит от координаты Z или от другого обязательного параметра), то это будет 3х-мерный массив.
Измерений может быть много, главный критерий создавать их или нет - это от скольких/каких _обязательных_ параметров зависит значение каждого элемента массива.

В QSP с этим немного проще, т.к. в пределах одного массива одна ячейка может зависеть от любого числа параметров (какие-то значения могут быть для 1го, другие для 2х, и т.д.)

Использовать это просто - нужно вместо одного значения-индекса массива, указать несколько через запятую.
Установка значения:

$описание[x,y]='это описание для ячейки x,y'

Использование значения:

pl $описание[x,y]
! другой немного странный пример:
if $локация[x,y]='крыша': pl 'Вы находитесь на крыше высокого здания'

Значение ячейки может зависеть от значений разных типов:

$описание[x,y,$value]='это описание для ячейки по переменным x,y,$value'
$описание['test', x]='это описание для ячейки "test",x'

Конечно, в качестве индексов можно использовать значения из других массивов (то есть, не просто переменные/константы).

В

Вполне себе #2722 30.01.2026 12:36 (8 months ago)

ShadowX2,
На мой взгляд самый простой способ понять многомерный массив можно на примере шахматной доски.
Есть некая “Длина” и некая “Ширина”. В шахматах это буквы: A,B,C,D,E,F,G,H и цифры 1,2,3,4,5,6,7,8. Каждая ячейка может быть или черная или белая, и в каждой ячейке у тебя может был какая-то фигура или ячейка пустая.
Тогда, классическая форма многомерного шахматного массива в КуСПе будет выглядеть примерно так (Условно):

$Доска['A',1,'Фигура']=$ЛадьяБел[1]
$Доска['A',1,'Цвет']='Черный'
$Доска['B',1,'Фигура']=$КоньБел[1] 
$Доска['B',1,'Цвет']='Белый'
$Доска['С',1,'Фигура']=$СлонБел['Черный'] 
$Доска['C',1,'Цвет']='Черный'
$Доска['D',1,'Фигура']=$ФерзьБел 
$Доска['D',1,'Цвет']='Белый'
$Доска['E',1,'Фигура']=$КорольБел 
$Доска['E',1,'Цвет']='Черный'
$Доска['F',1,'Фигура']=$СлонБел['Белый'] 
$Доска['F',1,'Цвет']='Белый'
$Доска['G',1,'Фигура']=$КоньБел[2] 
$Доска['G',1,'Цвет']='Черный'
$Доска['H',1,'Фигура']=$ЛадьяБел[2]
$Доска['H',1,'Цвет']='Белый'
....
$Доска['A',8,'Фигура']=$ЛадьяЧерн[1]
$Доска['A',8,'Цвет']='Белый'
$Доска['B',8,'Фигура']=$КоньЧерн[1] 
$Доска['B',8,'Цвет']='Черный'
$Доска['С',8,'Фигура']=$СлонЧерн['Белый'] 
$Доска['C',8,'Цвет']='Белый'
$Доска['D',8,'Фигура']=$ФерзьЧерн 
$Доска['D',8,'Цвет']='Черный'
$Доска['E',8,'Фигура']=$КорольЧерн 
$Доска['E',8,'Цвет']='Белый'
$Доска['F',8,'Фигура']=$СлонЧерн['Черный'] 
$Доска['F',8,'Цвет']='Черный'
$Доска['G',8,'Фигура']=$КоньЧерн[2] 
$Доска['G',8,'Цвет']='Белый'
$Доска['H',8,'Фигура']=$ЛадьяЧерн[2]
$Доска['H',8,'Цвет']='Черный'

Лично я стараюсь не использовать многомереки без необходимости. А разбиваю их на понятные одномерные, так проще воспринимать код.
Но, например, если некий предмет способен “переезжать” с локации на локацию и в пределах локации менять свое положение и оставаться там, пока кто-то не переместит его на другую, то в таких случаях можно хранить положение предмета в двумерном массиве.
Опять таки, надо понимать, что и как хранить. Мне проще хранить местонахождение предмета в свойствах самого предмета, или через динамический массив, где индекс массива - код предмета, а значение - локация. При больших массивах данных я привык пользоваться индексами. Каждый предмет, локация, непись (при необходимости) имеет свой уникальный индекс и через этот индекс они связываются.
Обычно я делаю функции-прокладки, которые могут из общего массива данных найти нужное и в любом количестве. Например для “Снаряжения” - по ID “Владельца” найти все Снаряжение, которое принадлежит данному Владельцу.

n3m0 #2454 15.02.2026 09:48 (7 months ago)

В

Вполне себе #2722 15.02.2026 10:25 (7 months ago)

Edited at 24.02.2026 17:49 (7 months ago)

mkir #1281 15.02.2026 14:02 (7 months ago)

Как проверить, есть ли среди предметов предмет, содержащий такое-то слово — я вот таким кодом пользуюсь:

i=1
yes_its_here=0
:ii
  $currentObjectName=$getObj(i)

  if instr($currentObjectName,$findname):
    yes_its_here=1
  end
  if i < countObj or i = countObj:
    i+=1
    jump'ii'
  end

D

dmvikar #2362 16.02.2026 06:19 (7 months ago)

Aleks Versus Moderator 17.02.2026 04:46 (7 months ago)

mkir,
этот код обычно и используют.

Если поддержка игры не предполагается на 5.7.0, можно написать его на настоящем цикле, так код будет работать быстрее.

! $findname    
yes_its_here = 0
loop local i = 1 while i <= countobj step i += 1:
    if instr($findname, $getobj(i):
        yes_its_here = 1
        jump 'loop_end'
    end
end
:loop_end

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

pos = arrcomp($objnames, '*\bмеч\b*') & ! найдёт позицию первого предмета, содержащего слово "меч"
yes_its_here = iif(pos = -1, 0, 1)

! $findname не содержит спецсимволов и знаков пунктуации
pos = arrcomp($objnames, '*\b<<$findname>>\b*')
yes_its_here = iif(pos = -1, 0, 1)

Aleks Versus Moderator 18.02.2026 17:00 (7 months ago)

n3m0 #2454 20.02.2026 10:52 (7 months ago)

S

Spacum #3989 16.09.2026 12:35 (3 weeks ago)

ShadowX2:

Помогите, плиз, понять многомерные массивы. Я, возможно, глупая, но я так и не поняла для чего они. Я читала в справке о них, но так и не поняла. Пожалуйста, объясните зачем они нужны? Как их использовать? Для чего нужны значения, что находятся вместо номеров ячеек? Как их использовать?
Хотя, возможно, я пока замахнулась на слишком сложную тему для себя, поэтому не могу пока понять, но всё же хотелось бы хоть немного понять многомерные массивы

Я как всегда очень поздно, со своим самоваром, очень у меня большой. Уж извините. Но и тема моя любимая: многомерные массивы в QSP.

Для чего они?

Массивы вообще нужны для хранения однотипных данных в одном месте и под одним именем. С ними так удобнее работать и целиком и по отдельности. В первом случае используем имя и делаем всякое разное сразу со всеми данными. Во втором случае используем имя и номер ячейки, для работы с конкретными данными.

И вот представьте у вас в игре есть книжный магазин и там, что удивительно, продаются книги! У них есть “Название”, “Обложка”, “Цена”. Организуем массив &Книги:

Название	Обложка	Цена
Физика	Картинка1	800
Сказки	Картинка2	600
Журнал	Картинка3	300

В коде это запишем так:

&Книга[0,0] = 'Физика' & &Книга[0,1] = "Картинка1" & &Книга[0,2] = '800'
&Книга[1,0] = 'Сказки' & &Книга[1,1] = "Картинка2" & &Книга[1,2] = '600'
&Книга[2,0] = 'Журнал' & &Книга[2,1] = "Картинка3" & &Книга[2,2] = '300'

Теперь, когда заходим в магазин, выводим на экран табличку:

! Выводим на экран обложку

<td>

loop local i = 0 while i <= 2 step i += 1
     '<tr><<&Книга[i,1]>></tr> '
end

</td>

! Выводим на экран название

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i,0]>></tr> '
end

</td>

! Выводим на экран цену

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i,2]>></tr> '
end

</td>

Будет ряд картинок с обложками,, под ними название книг, еще ниже цена Вот примерно так, надеюсь принцип понятен? Когда захотим купить, то сравниваем количество денег:

if деньги>=&Книга[i,2]:
     деньги -= &Книга[i,2]
     addobj &Книга[i,0]
end

Но мы же писатели, типа гордые творцы и создаем как минимум ‘нетленку’! А поэтому запоминать эти презренные циферки, где у нас там что и под каким числом находится, нам лениво или скажем мягче, не наш путь!

По секрету скажу, что программисты одни из самых ленивых людей на свете! Нам тоже лениво и мы всё давно уже придумали, поэтому я вас понимаю. ;)

Итак, облегчаем себе путь. Дадим колонкам названия!

Name = 0
Pic = 1
Price = 2

Тогда вывод таблички можем сделать так:

! Выводим на экран обложки

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i,Pic]>></tr> '
end

</td>

! Выводим на экран название

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i,Name]>></tr> '
end

</td>

! Выводим на экран цену

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i,Price]>></tr> '
end

</td>

Но и строкам мы тоже можем дать название! Книг много и в какой строке какая книга тоже тяжело отследить.

Fizika = 0
Tales = 1
Magazin = 2

Тогда покупка сказок, например будет выглядеть так:

if деньги>=&Книга[Tales, Price]:
     деньги -= &Книга[Tales, Price]
     addobj &Книга[Tales, Name]
end

Упс, и никаких этих богопротивных чисел!

А теперь ‘магия’ старого QSP. Кое кто по привычке на нем еще пишет, а кто то и на Нафигаторе, там тоже старый qsp. Итак, запомните:

Двумерных массивов нет нигде и никогда, ни в одном из языков программирования!

Просто есть способ адресации ячейки памяти. И все сводится к одной простой формуле из следующих элементов:

начало массива
смещение строки относительно начала массива
смещение колонки/ячейки относительно начала строки

Начало массива у нас задается именем массива. Смещение колонки задается ее номером. Это как раз второе число в индексе двумерного массива. А как же со смещением строки? При инициализации двумерного массива компилятор запоминает количество колонок в массиве. Обычно мы ему явно об этом сообщаем. На QSP нам надо самим это посчитать, но это просто. Вот это число запомним в переменной Base. Кстати, это традиционное название для этой шняги. И формула выглядит так:

arrey[строка*Base + колонка]

Т.е. все индексы наши остались, только синтаксис изменился. А самое интересное, что во всех языках, все компиляторы преобразуют эти ваши индексы [строка, колонка] в эту формулу, и по ней вычисляют ячейку массива. Вся разница QSP от этих языков в том, что приходится эту формулу явно записать.

И теперь превратим наш двумерный массив &Книги[], в одномерный массив старого qsp. У нас колличество колонок в массиве 3, поэтому:

Base = 3

Вывод таблички ‘в старом qsp’

! Выводим на экран обложки

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i*Base + Pic]>></tr> '
end

</td>

! Выводим на экран название

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i*Base + Name]>></tr> '
end

</td>

! Выводим на экран цену

<td>

loop local i = 0 while i <=2 step i += 1
     '<tr><<&Книга[i*Base + Price]>></tr> '
end

</td>

Покупка Сказок:

if деньги>=&Книга[Tales*Base + Price]:
     деньги -= &Книга[Tales*Base + Price]
     addobj &Книга[Tales*Base + Name]
end

И теперь вы, видя текстовые индексы, в том числе и из тутошней справочки:

array[’x, y’]

можете гордо и важно заявить, что это написано безграмотными людьми, которые не понимают что такое массивы! :)))

P.S. Надеюсь сильно ногами бить не станут за эту простынку.

Edited at 16.09.2026 12:51 (3 weeks ago)

P

provincial #4119 05.10.2026 13:54 (5 days ago)

Здравствуйте. Мой программистский опыт равен нулю. Но я пытаюсь разобраться в плеере и не смог осилить динамик(возможно что-то другое). Я нагенерил нпс и там вроде динамик работалет, как я думал. Но когда я проверяю присутсвие нпс на локации, он работает только наполовину и я не понимаю почему. Код генерации нпс

$gend = {
  npc=i
  gs 'namegen'
  gs 'surnamegen'
  agro[npc] = rand(0,1)
  race[npc] =rand(0,1)
  n=rand(1,7)
  locx[npc]=n
}

loop i=1 while i<=10 step i+=1:
  dynamic $gend
end

locx -это типа одномерная карта, локации просто пронумерованы. НПС генерится в случайной и там должен стоять. Код локации для проверки присутсвия нпс

loop i =0 while i<=arrsize ('locx') step i=j+1:
  j = arrpos('locx',x,i)
  if j<> -1:
    npconloc[]=j
  else
    jump 'pustoi'
  end
end

:pustoi
if arrsize('npconloc') <>0:
  loop i= 0 & g=arrsize('npconloc') while i<g step i+=1:
  npc=npconloc[i]
  dynamic "
act 'Поговорить с <<$name[npc]>> <<$surname[npc]>>':
  if race[npc]=0:
    cla
    '
<center><img src =""new/orcface.jpg"" ></center>'
    if agro[npc] =1:
      '
Дерёмся'
      act 'Погнали': gt 'orcfight'
    else
      act 'уйти': gt '<<$loc>>'
    end
  else
    cla
    '<center> <img src =""new/202.jpg"" ></center>'
    if agro[npc] =1:
      'Дерёмся'
      act 'Погнали': gt 'humanfight'
    else
      act 'уйти': gt '<<$loc>>'
    end
  end
end"
  end
end

killvar 'npconloc'

Код действительно проверяет присутствие и прекрасно справляется с выводом имён и фамилий. Но дальше не работает. Если на локации несколько нпс, они все братья-близнецы под разными именами. То есть на одной локации стоят только люди готовые подраться, на другой только неготовые орки. Видимо где-то по ходу теряется динамичность индекса npc, но я понять не могу где. В текстовую переменную с фигурными скобками выносить пробовал - ничего не меняется. На отдельную локацию тоже

Подскажите пожалуйста, где моя логическая ошибка. Update: ещё и как нормально выглядещее сообщение разместить не разобрался;(

Edited at 05.10.2026 14:07 (5 days ago)

В

Вполне себе #2722 07.10.2026 13:51 (3 days ago)

provincial:

Здравствуйте. Мой программистский опыт равен нулю. Но я пытаюсь разобраться в плеере и не смог осилить динамик(возможно что-то другое). …. Подскажите пожалуйста, где моя логическая ошибка. Update: ещё и как нормально выглядещее сообщение разместить не разобрался;(

В глубинах кода не копался, но на вскидку так: Надо избавиться от прыжка изнутри цикла.

loop i =0 while i<=arrsize ('locx') step i=j+1:
  j = arrpos('locx',x,i)
  if j<> -1:
    npconloc[]=j
  else
    jump 'pustoi'
  end
end

Это неправильно с т.з. динамики кода. Любой джамп из структуры нарушает логику. Внутри - пожалуйста, но не наружу, (и не во внутрь). Также вредны перекрёстные прыжки. Это лирика. Главное, как мне кажется, это: loop i =0 while i<=arrsize ('locx') step i=j+1

Ты присваиваешь i то, что осталось от j!!! Странный STEP, не находишь?

Второй момент - Я строку dynamic формирую отдельно. В специальную строку. А только потом подставляю в dynamic. Так проще проверять код строки и меньше ошибок.

Вот пример формирования строки для “Динамических” ссылок Смотри второй пример: Пример формирования динамических ссылок

Edited at 07.10.2026 13:57 (3 days ago)

P

provincial #4119 07.10.2026 14:37 (3 days ago)

Edited at 07.10.2026 15:15 (3 days ago)

В

Вполне себе #2722 07.10.2026 15:20 (3 days ago)

provincial:

Из массива locx[npc] мне надо вытащить все индексы npc в которых значение ячейки равно х. Я делаю цикл через arrpos. Arrpos возвращает только первое совпадение(в этом случае ’j”) и поэтому мне надо, чтобы при следующем заходе цикл начинался со следующей позиции (j+1). Эта часть кода визуально работает, по крайней мере npc на локации находятся и высвечиваются.

Тогда нафига тебе JUMP? Как только у тебя J<0 то фактически твой цикл завершён. Так завершай его правильно:

!Во-первых, твой индекс I не может быть равен размеру массива. Если Индекс I равен размеру, то это уже точно “пустой” индекс. Размер 10, а индексы от 0 до 9. Значит убираем “=“. Я бы убрал и STEP, раз ты его все равно меняешь cамостоятельно.

loop i =0 while i<arrsize ('locx') 
  j = arrpos('locx',x,i)

!Во-вторых, твой индекс J должен однозначно разделять наличие или отсутствие, т.е. все что выше 0 - наличие, все что ниже - отсутствие.

 if j>=0: (или If j>-1)
    npconloc[]=j  & ! Добавили
    I=J+1    & ! Изменили
  else
    i=arrsize ('locx')  & ! или I+=1 - пусть цикл отработает полностью.
  end
end

Кроме того - странная переменная “g”:

loop i= 0 & g=arrsize('npconloc') while i<g step i+=1:

Зачем так сложно? Чтобы не вычислять каждый раз размер массива? Ну, допустим. Тогда вынеси её вообще из цикла. Поставь перед LOOP. Так и проще и понятнее.

g=arrsize('npconloc') 
loop i= 0 while i<g step i+=1:

И сформируй строку для Динамика отдельно!

Edited at 07.10.2026 17:35 (3 days ago)