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

СайтФорум

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

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

• ADD OBJ [$название],[$путь к файлу изображения],[#индекс] или
• ADDOBJ [$название],[$путь к файлу изображения],[#индекс] - добавление предмета с названием [$название] и изображением [$путь к файлу изображения] в инвентарь на место с номером [#индекс].
  • Параметр [$индекс] может отсутствовать. По умолчанию предметы добавляются в конец списка.
  • Индексация предметов рюкзака ведётся с 1.
  • Параметр [$путь к файлу изображения] может отсутствовать, значение по умолчанию - ''.
  • Обратите внимание - для использования одинаковых предметов инвентаря, например денег, патронов и т.п., лучше использовать дополнительную переменную, обозначающую количество этих предметов, чтобы не загромождать инвентарь списком из 137 предметов Рубль / Патрон. Для хранения числа предметов можно использовать массивы, индексируемые через строки:

    OBJECTS['деньги'] = 12
    OBJECTS['патроны'] = 137
    
    'Количество: <<OBJECTS[$getobj(countobj)]>>'
    

• 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

Вперёд: Меню