From Stealth Client
T
TalismanLayer
function TalismanLayer() : Byte
Возвращает номер слоя 0x09 - Амулет (Talisman).
Пример 1:
if ObjAtLayer(TalismanLayer) > 0 then AddToSystemJournal('Talisman ID: '+IntToStr(ObjAtLayer(TalismanLayer)));
Пример 2:
{Если на слое чтото есть, то снимаем} if ObjAtLayer(TalismanLayer) <> 0 then begin unequip(TalismanLayer); wait(1000); end;
TargetID
function TargetID: Cardinal
Возвращает ID прицела.
TargetPresent
function TargetPresent: Boolean
Состояние таргета.
Пример:
if targetpresent then begin targettoobject(self); end;
TargetToObject
procedure TargetToObject(ObjectID : Cardinal)
Кликнуть таргетом на обьект.
Пример:
useskill('Anatomy'); WaitForTarget(5000); if targetpresent then begin TargetToObject(self); end;
TargetToTile
procedure TargetToTile(TileModel : Word; X,Y,Z : Integer)
Кликнуть по тайлу.
Пример:
useobject(Pickaxe); WaitForTarget(5000); if targetpresent then begin TargetToTile(Tile,X,Y,Z); end;
TargetToXYZ
procedure TargetToXYZ(X,Y,Z : Integer)
Кликнуть по карте. Координаты мировые.
Пример:
useobject(ExplosionPotion); WaitForTarget(5000); if targetpresent then begin TargetToXYZ(X,Y,Z); end;
TimeToStr
function TimeToStr(D: TDateTime): String
Timer
function Timer: Cardinal
Устаревшая функция, не рекомендуется к использованию.
Синоним функции GetTickCount
Пример использования
while (mana < 20) and (not dead) do begin if ((Timer > (MeditateTimer + (10 * 1000))) or (MeditateTimer = 0)) then begin UseSkill('Meditation') MeditateTimer :=Timer; end; wait(200); end;
ToggleFly
procedure ToggleFly
TorsoHLayer
function TorsoHLayer() : Byte
Возвращает номер слоя 0x11 - Полный передник (Torso middle surcoat, tunic, full apron, sash).
Пример 1:
if ObjAtLayer(TorsoHLayer) > 0 then AddToSystemJournal('surcoat ID: '+IntToStr(ObjAtLayer(TorsoHLayer)));
Пример 2: {Если на слое чтото есть, то снимаем} if ObjAtLayer(TorsoHLayer) <> 0 then
begin unequip(TorsoHLayer); wait(1000); end;
</source>
TorsoLayer
function TorsoLayer() : Byte
Возвращает номер слоя 0x0D - Нагрудник (Torso (inner) (chest armor)).
Пример 1:
if ObjAtLayer(TorsoLayer) > 0 then AddToSystemJournal('Torso ID: '+IntToStr(ObjAtLayer(TorsoLayer)));
Пример 2:
{Если на слое чтото есть, то снимаем} if ObjAtLayer(TorsoLayer) <> 0 then begin unequip(TorsoLayer); wait(1000); end;
TradeCheck
function TradeCheck(TradeNum,Num : Byte) : Boolean
TradeCount
function TradeCount : Byte