Документация QSP

СайтФорум

Предметы - это предметы. В названиях предметов не важен регистр букв, т.е. "ДеньГи" и "деньги" - один и тот же предмет.

• SHOWOBJS [#выражение] - если значение выражения отлично от 0, то показывает список предметов, иначе скрывает его.

• ADD OBJ [$название],[$путь к файлу изображения],[#индекс] или
• ADDOBJ [$название],[$путь к файлу изображения],[#индекс] - добавление предмета с названием [$название] и изображением [$путь к файлу изображения] в инвентарь на место с номером [#индекс].
  • Параметр [$индекс] может отсутствовать. По умолчанию предметы добавляются в конец списка.
  • Индексация предметов рюкзака ведётся с 1.
  • Параметр [$путь к файлу изображения] может отсутствовать, значение по умолчанию - . * Обратите внимание - для использования одинаковых предметов инвентаря, например денег, патронов и т.п., лучше использовать дополнительную переменную, обозначающую количество этих предметов, чтобы не загромождать инвентарь списком из 137 предметов Рубль / Патрон. Для хранения числа предметов можно использовать массивы, индексируемые через строки:<sxh qsp> OBJECTS['деньги'] = 12 OBJECTS['патроны'] = 137 'Количество: «OBJECTS[$getobj(countobj)]»' </sxh> * DELOBJ [$название] или DEL OBJ [$название] - удаление предмета из рюкзака, если таковой имеется. * KILLOBJ [#номер] - удаление предмета, расположенного в заданной позиции. Если параметр [#номер] не указан, то очистка рюкзака. * Индексация предметов рюкзака ведётся с 1. * KILLALL - эквивалентен конструкции "KILLVAR & KILLOBJ". * COUNTOBJ - функция возвращает количество предметов в рюкзаке. * GETOBJ([#номер]) - возвращает название предмета в рюкзаке, расположенного в заданной позиции. * Индексация предметов рюкзака ведётся с 1. * Если предмета с заданным индексом не существует, возвращается пустая строка ().
  • Примеры:

    !Первый предмет в списке
    GETOBJ(1) 
    
    !Последний предмет в списке
    GETOBJ(COUNTOBJ)
    

• Cм. служебные локации.

Код, подсчитывающий в массиве OBJECTS число предметов с одинаковым названием:

i = 1
:loop
IF i <= COUNTOBJ:
  OBJECTS[$GETOBJ(i)] = OBJECTS[$GETOBJ(i)] + 1
  i = i + 1
  JUMP 'loop'
END

Вперёд: Меню