From Stealth Client

Jump to: navigation, search


H

HP

function HP() : Integer

То же, что и Doc:RU/Api/Life.

Возвращает параметр чара - здоровье (HITS).

В случае, если отсутствует соединение с UO сервером - вернет 0.

Пример 1:

if (HP > 0) then
begin
  ''Do something
end;

Пример 2:

AddToSystemJournal('Здоровье чара: ' + IntToStr(HP));

HTTP_Body

function HTTP_Body : String

HTTP_Get

procedure HTTP_Get(URL : String; LStream : TMemoryStream = nil)

Процедура заполняющая HTTP_BODY, HTTP_HEADER данными которые получает выполняя запрос по заданному URL Параметр LStream - опциональный (необязательный), используется для получения необработанных байт в виде TMemoryStream, например для получения файлов (пример 2).

//Пример1: получим текущую дату и время от сайта timeapi.org
procedure SayCurrentDateAndTime;
begin
  //Делаем запрос
  HTTP_Get('http://www.timeapi.org/pdt/in+nine+hours');
  //Выводим содержание ответа
  AddToSystemJournal(HTTP_Header);
end;
 
//Вывод:
//19:20:02:063 [Stealth]: Compiled succesfully
//19:20:02:383 [Stealth]: 2016-12-23T19:20:00-07:00
//19:20:02:393 [Stealth]: Succesfully executed


Пример2: скачать и сохранить кодированный стелсом скрипт (обновление скрипта)

procedure GetAndSaveSomeData;
var 
  Stream : TMemoryStream;
begin
  try
    //Создаем поток
    Stream := TMemoryStream.Create;  
    //Наш запрос выполнится и заполнит своим ответом поток
    HTTP_GET('https://raw.githubusercontent.com/drabadan/Stealth780Scripts/master/autoUpdaterTestScriptCompiled.sc.cps', Stream);   
    //Сохраняем поток в файл, аргумент = путь к файлу на диске
    Stream.SaveToFile('c:\helloWorld.cps');
  finally
    //Освобождаем объект
    Stream.Free;
  end;  
end;

HTTP_Header

function HTTP_Header : String

HTTP_Post

function HTTP_Post(URL : String; PostData: TStringList) : String


HairLayer

function HairLayer() : Byte

Возвращает номер слоя 0x0B - Прическа (Hair).

Этот слой средствами клиента напрямую снять нельзя!

Пример:

if ObjAtLayer(HairLayer) > 0 then 
  AddToSystemJournal('Hair ID: '+IntToStr(ObjAtLayer(HairLayer)));

Halt

procedure Halt;

Немедленная остановка выполнения PAX скрипта.


HatLayer

function HatLayer() : Byte

Возвращает номер слоя 0x06 - Головной убор - шлем, шляпа и т.д. (Hat).

Пример 1:

if ObjAtLayer(HatLayer) > 0 then 
  AddToSystemJournal('Hat ID: '+IntToStr(ObjAtLayer(HatLayer)));

Пример 2:

{Если на слое чтото есть, то снимаем}
if ObjAtLayer(HatLayer) <> 0 then
  begin
    unequip(HatLayer);
    wait(1000);
  end;

HelpRequest

procedure HelpRequest

То же самое, что и кнопка "Help" на папердолле в клиенте.


Hidden

function Hidden() : Boolean

Возвращает параметр чара - Скрытность (Hidden).

В случае, если отсутствует соединение с UO сервером - вернет False.

Пример 1:

if (not Hidden) then
begin
  UseSkill('Hiding');
end;

Пример 2:

if (not Hidden) then
  AddToSystemJournal('Чар не в хайде')
else
  AddToSystemJournal('Чар в хайде');

HighJournal

function HighJournal : Integer

старший индекс строк журнала


HorseLayer

function HorseLayer() : Byte

Возвращает номер слоя 0x19 - ID седла (если чар верхом) (Mount).

Результат выполнения ObjAtLayer(HorseLayer) не равно ID ездовой НПЦ, на которую садится чар.

Пример 1:

if ObjAtLayer(HorseLayer) > 0 then 
  AddToSystemJournal('Mount ID: '+IntToStr(ObjAtLayer(HorseLayer)));