TGameControl = class

function MoveTo(X, Y, Z: Single): Boolean;

X, Y, Z - point coordinates

Engine.MoveTo(19637.05, 27050.83, 230.40);
Engine.MoveTo(User.Target.X, User.Target.Y, User.Target.Z);

• Simple script for fishing

function DMoveTo(X, Y, Z: Single): Boolean;

function DMoveTo2(X, Y, Z: Single): Boolean;

function MoveToObj(Live: TLive; Dist: Single): Boolean;

• Simple script for grinding mobs

function MoveToDist(X, Y, Z, Dist: Single): Boolean;

function DMoveToObj(Live: TLive; Dist: Single): Boolean;

function MoveToTarget(Dist: Single): Boolean;

function TurnTo(X, Y: Single; float: Byte = 3): Boolean; overload;
function TurnTo(Live: TLive; float: Byte = 3): Boolean; overload;

• Simple script for fishing
• Simple script for grinding mobs

function StopMove: Boolean;

function GetMailAll(Clear: Boolean = True): Boolean;

function AuctionGetList(mysales: Boolean; ServerIndex: Integer = -1): Boolean; // mysales = True -                                    ; False -

function AuctionSearch(const Name: String; Items: array of Cardinal): Boolean; // for latest game versions
function AuctionSearch(const Name: string; Grade: Integer = 0; FullCompare: Boolean = True; MinLvl: Integer = 0; MaxLvl: Integer = 0; MaxPages: Integer = 0; PageID: Cardinal = 0): Boolean;  // for older game versions

function AuctionSellItem(Item: TItem; BidPrice, Price, Days, p1, p2: Integer): Boolean; // Days: 0 = 6 ; 1 = 12 ; 2 = 24 ; 3 = 48 ;

function AuctionSellItem2(Item: TItem; BidPrice, Price, Days: Integer): Boolean;

function AuctionBuyItem(Item: TAucItem; Price, Count: Cardinal): Boolean;

function AuctionCancelItem(Item: TAucItem): Boolean;  //

function AuctionGetLowPrice(ID: Cardinal): Cardinal;

function WaitAction(Actions: TGameActions; var Prm1, Prm2; TimeOut: Cardinal = $FFFFFFFF; AWaitValue: Boolean = False): TGameAction;

function SendToServer(Packet: String; Offline: Boolean): Boolean;

function SendToClient(Packet: String; Offline: Boolean): Boolean;

function TranslatePacket(FromServer: Boolean; ID: Word; Time: Cardinal = INFINITE; PacketSize: Word = 0): Boolean;

function BlockPacket(FromServer: Boolean; ID: Word; Time: Cardinal = INFINITE): Boolean;

function StopTranslatePackets: Boolean;

function Say(const Text: String; ChatType: Integer; const Nick: String = ''): Boolean;

Text - message text
ChatType - chat type (0 - General, 1 - Trade, 2 - Group Finder, 3 - Group, 4 - Raid, 5 - Area, 6 - Guild, 7 - Family, 8 - Raid Leader, 9 - Court, 10 - Race, 11 - Private)
Nick - player name (for private chat)

Engine.Say('Message', 0, ''); 
Engine.Say('Hello', 11, User.Target.Name);

function RepairArmor(Item: TItem; Equipped: Boolean = False): Boolean;

function RepairAllArmor(Prem: Boolean = True): Boolean;

function SellItems: Boolean;

function BuyItems(Items: array of Cardinal; Npc: TLive = nil; Grade: Byte = 0): Boolean;

function BuyCoinItem(Npc: TLive = nil): Boolean;

function SendMail(const Nick, Title, Text: String; Gold: Cardinal = 0; Fast: Boolean = True): Boolean;

function UpdateMail: Boolean;

function ReadMail(Item: TMailItem): Boolean;

function GetMail(Item: TMailItem): Boolean;

function DeleteMail(Obj: TMailItem): Boolean;

function ClearMail: Boolean;

function GoldMove(Count: Cardinal; ToWH: Boolean = True): Boolean;

function Resurrect(CurrentPoint: Boolean = False): Boolean;

function SetTarget(Live: TLive; TimeOut: Cardinal = 1000): Boolean; overload;
function SetTarget(const Name: string; TimeOut: Cardinal = 1000): Boolean; overload;

• Simple script for grinding mobs
• Auto assist for specified characters

function CancelTarget: Boolean;

function LeaveWorld: Boolean;   // +

function SetAngle(Val: Byte): Boolean;

function LearnBuff(ID: Cardinal): Boolean;

function ExpandInv: Boolean;

function SwapAbility(ID: Cardinal; ReplaceID: Byte = 0): Boolean; overload;
function SwapAbility(Name: string; ReplaceName: string = ''): Boolean; overload;

function DPickUp(Live: TLive): Boolean;

function SellBackPack(Npc: TLive = nil): Boolean;

function Craft(const Name: string; Count: Cardinal = 1; Npc: TLive = nil): Boolean; overload;
function Craft(ID: Cardinal; Count: Cardinal = 1; Npc: TLive = nil): Boolean; overload;

function DSelectCharacter(Index: Integer = 1): Boolean;

function SelectCharacter(Index: Integer = 1): Boolean;

function Plant(const Name: string; X, Y, Z: Single): Boolean; overload;
function Plant(ID: Cardinal; X, Y, Z: Single): Boolean; overload;
function Plant(Item: TItem; X, Y, Z: Single): Boolean; overload;

function Plant2(Item: TItem; X, Y, Z, P1, P2: Single): Boolean;

function OpenInstZone(ID: Cardinal; Npc: TLive = nil): Boolean;   // 401 - 1        , 402 - 2        ...

function UseKey(Key: Word; DownUp: Byte = 0): Boolean; overload;
function UseKey(const KeyName: string; DownUp: Byte = 0): Boolean; overload;

KeyName - name of the key
KeyCode - key code
DownUp - pressing method (0 - press and release, 1 - press, 2 - release) (default - press and release)

function EnterText(const Txt: String): Boolean;

Text - Message text

Engine.EnterText('Hello');

function BlinkWindow(GameWindow: Boolean = True): Boolean;

GameWindow- game client windows(true) or Arheangel (false)

if (User.Dead) then Engine.BlinkWindow(true);

function SetGameWindow(Visible: Boolean): Boolean;

Visible - Expand game (True) , Minimize game (False)

Engine.SetGameWindow(true);

• Simple script for fishing

function GameClientReady: Boolean;

function Entry(var Prm): Boolean;

function MountMate(name: String = ''): Boolean;

function UnMountMate(name: String = ''): Boolean;

function DismissMate(name: String = ''): Boolean;

function InviteTeam(const Name: String; Raid: Boolean = False): Boolean;

function SetAcceptTeam(const List: String): Boolean;

function AcceptTeam(Accept: Boolean; Party: Byte = 1): Boolean;

function LeaveTeam: Boolean;

function InputMessage(Post: Boolean; Msg: Cardinal; wParam, lParam: Integer): Integer;

function GetDailyItem: Boolean;

function TeamOID: Cardinal;

function GpsEdit(ID: Cardinal; X, Y, Z: Single): Boolean;

function ClickBtn(BtnName: String; Right: Boolean = False): Boolean;

function UpdateBtnList: Boolean;

uses SysUtils, Classes;

var
  i: Integer;
  SL: TStringList;

begin
  SL:= TStringList.Create();
  try
    Engine.UpdateBtnList;
    SL.Text:= Account.WindowsList;
    for i:= 0 to SL.Count-1 do Print(SL[i]);
  finally
    SL.Free;
  end;
end.

function OpenChest(Chest, Key: TItem; Count: Integer): Boolean;

function GetCursorBtnName: String;

function AccOID: Cardinal;

function SetCursorBtn(BtnName: String): Boolean;

function GetMemorySize: Int64;

procedure Print(const Text: String; Color: Integer = clBlue);

procedure Print2(const Text: String; Color: Integer = clBlue);

procedure Print3(const Text: String; Color: Integer = clBlue);

function DUseSkill(ID: Cardinal; Live: TLive = nil): Boolean;

function UseSkill(ID: Cardinal; Live: TLive = nil): Boolean; overload;
function UseSkill(const Name: string; Live: TLive = nil): Boolean; overload;

• Simple script for grinding mobs

function UseSkillPos2(ID: Cardinal; X, Y, Z, Angle: Single; Live: TLive): Boolean;

function LearnSkill(ID: Cardinal): Boolean;

function UseDoodadSkill(ID: Cardinal; Target: TLive = nil): Boolean; overload;
function UseDoodadSkill(const Name: string; Target: TLive = nil): Boolean; overload;

• Simple script for mining ore

function UsePointSkill(ID: Cardinal; X, Y, Z: Single): Boolean; overload;
function UsePointSkill(const Name: string; X, Y, Z: Single): Boolean; overload;

• Simple script for fishing

function ResetSkills(ID: Word): Boolean;   // //           = 5            = 7            = 10

function FUseSkill(SkillID: Integer; CastTarget: TLive = nil): Boolean;

function StopCasting(): Boolean;

if (User.Cast.EndTime > 0) then Engine.StopCasting;

function DUseItem(Item: TItem; Decomposition: Boolean = False): Boolean;

function UseItem(const Name: string; Decomposition: Boolean = False): Boolean; overload;
function UseItem(ID: Cardinal; Decomposition: Boolean = False): Boolean; overload;
function UseItem(Item: TItem; Decomposition: Boolean = False): Boolean; overload;

function DUsePointItem(Item: TItem; X, Y, Z: Single): Boolean;

function UsePointItem(const Name: string; X, Y, Z: Single): Boolean; overload;
function UsePointItem(ID: Cardinal; X, Y, Z: Single): Boolean; overload;
function UsePointItem(Item: TItem; X, Y, Z: Single): Boolean; overload;

function MoveItem(Item: TItem; ToInv: TInventory; Slot: Integer = -1): Boolean;

function DestroyItem(ID: Cardinal): Boolean; overload;
function DestroyItem(Item: TItem): Boolean; overload;

function SplitItem(Item: TItem; Count: Integer; Slot: Integer = -1; ToInv: TInventory = nil): Boolean;

function PickUp(Live: TLive): Boolean;

• Simple script for grinding mobs

function OpenItem(Item: TItem): Boolean;

function UseQuestObj(ObjID: Cardinal): Boolean;

function BeginQuest(ID: Cardinal; Npc: TLive = nil; Range: Integer = 1): Boolean; overload;
function BeginQuest(const Name: string; Npc: TLive = nil; Range: Integer = 1): Boolean; overload;

function EndQuest(ID: Cardinal; Npc: TLive = nil; Select: Integer = 0; Range: Integer = 1): Boolean; overload;
function EndQuest(const Name: string; Npc: TLive = nil; Select: Integer = 0; Range: Integer = 1): Boolean; overload;

function QuestStage(ID: Cardinal): Cardinal; overload;
function QuestStage(const Name: string): Cardinal; overload;

function QuestCount(ID: Cardinal; TargetIndex: Cardinal = 0): Cardinal;

function CancelQuest(ID: Cardinal): Boolean; overload;
function CancelQuest(const Name: string): Boolean; overload;

function QuestIterCount(ID: Cardinal): Cardinal; overload;
function QuestIterCount(const Name: string): Cardinal; overload;

function SetQuestStage(ID, Stage: Cardinal): Boolean;

function ResetQuest(ID: Cardinal): Boolean;

function LoadQuests: Boolean;

property User: TUser read fUser;

Print(Accounts(0).User.Name);
Print(Accounts(0).Engine.User.Name);
Print(Accounts.GetAccount(0).Engine.User.Name);

property Players: TPlayers read fPlayers;

uses SysUtils;

procedure PrintPlayers(E: TGameControl = nil);
var
  i: Integer;
  P: TPlayer;
begin     
  if (E = nil) then E:= Engine;
  for i:= 0 to E.Players.Count-1 do begin
    P:= E.Players(i);
    Print(Format(
      '%s [%d, %d, %d]| %d lvl |  HP: %d%%  |  Dist: %f',
      [P.Name, P.Ability1, P.Ability2, P.Ability3, P.Level, P.HP, E.User.DistTo(P)]
    ));
  end;
end;

begin
  PrintPlayers({Accounts(0)});
end.

property Npcs: TNpcs  read fNpcs;

property Mobs: TMobs  read fMobs;

property Doodads: TDoodads read fDoodads;

property Mounts: TMounts read fMounts;

property Skills: TSkills read fSkills;

property Inv: TInventory read fInv;

property Equips: TInventory read fEquips;

property WareHous: TInventory read fWareHous;

property Coffer: TInventory read fCoffer;

property Mail: TMail read fMail;

property Auction: TAuction read fAuction;

property Parser: TGameParser read fParser;

property LastError: Integer read fLastError write fLastError;

property Version: String read fVersion;