From Stealth Client

Jump to: navigation, search

Другое

Lock States

	statUP 	 = 0
	statDOWN = 1
	statLOCK = 2

Stat Nums

	statSTR = 0
	statDEX = 1
	statINT = 2

Abs

function Abs(X : Integer): Cardinal

Возвращает модуль числа X.

Пример 1:

AddToSystemJournal(IntToStr(Abs(-10)));
AddToSystemJournal(IntToStr(Abs(10)));
AddToSystemJournal(IntToStr(Abs(0)));

Результат выполнения:

10
10
0

BMSearch

function BMSearch(StartPos: Integer; const S, P: String): Integer


Функция возвращает первое вхождение подстроки в строку работает быстро.

Например: BMSearch(1, 'dsade', 'de') в данном примере ф-ия возвратит число 4

1 - это позиция с которой ищем подстроку в строке

DateTimeToStr

function DateTimeToStr(D: TDateTime): String

FloatToStrF

function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string

GetSkillLockState

// v7.9.1+
function GetSkillLockState(SkillName : String) : ShortInt;

Возвращает состояние Lock State навыка.

GetStatLockState

// v7.9.1+
function GetStatLockState(statNum : Byte) : ShortInt;

Возвращает состояние Lock State силы, ловкости или интеллекта.

GetTickCount

function GetTickCount : Cardinal;

IntToHex

function IntToHex(Value: Integer; Digits: Integer): String;

IsFigureText

function IsFigureText(s: string): boolean

MsToDateTime

function MsToDateTime(TimeMS : Word) : TDateTime

Power

function Power(Base : Extended;Exponent : Extended) : Extended;

Random

function Random(const ARange: Integer): Integer;

RandomRange

function RandomRange(const AFrom, ATo: Integer): Integer;

Randomize

процедура отсутствует за ненадобностью (уже выполняется в стелсе)

SetSkillLockState

// v7.9.1+
procedure SetSkillLockState(SkillName : String; skillState : Byte);

Устанавливает Lock State навыку SkillName .

SetStatLockState

// v7.9.1+
procedure SetStatLockState(statNum : Byte; statState : Byte);

Устанавливает Lock State силе, ловкости или интеллекту.

StrBreakApart

procedure StrBreakApart(const S, Delimeter : string; Parts : TStrings)

Разбивает строки на под-строки.

Пример:

Program StrBreakApartDemo;
var i : Integer;
    SL : TStringList;
 
Begin
{Before working with TStringList Object - You must CREATE it!}
SL := TStringList.Create;
 
StrBreakApart('This is a StrBreakApart Demo', ' ', SL);
if SL.Count > 0 then for i := 0 to SL.Count - 1 do
    begin
    AddToSystemJournal(SL.Strings[i]);
    end;
 
{Note:
When you finish working with TStringList Object - You must FREE it!}
SL.Free;
 
End.

StrToBool

function StrToBool(constS : string) : Boolean;

StrToDateTime

function StrToDateTime(const s: string): TDateTime

StrToTime

function StrToTime(const s: String): TDateTime

TimeToStr

function TimeToStr(D: TDateTime): String

Timer

function Timer: Cardinal