TPaxEngine = class

property Status: TScriptStatus read fStatus write SetStatus;

if (Script.Status = ssRunning) then Script.Pause;

property PaxFile: String read fPaxFile write fPaxFile;

Print(Script.PaxFile);

function Path: String;

Print(Script.Path);

property AutoRun: Boolean read fAutoRun write SetAutoRun;

property Control: TGameControl read fControl;

function LoadAndRun(const FilePath: String; StopCurrent: Boolean = False; LoadTextOnly: Boolean = False): Boolean;

FilePath - полный путь к файлу скрипта

StopCurrent - останавливать текущий запущенный скрипт или нет

LoadTextOnly - загрузить только текст

procedure Run(Compile: Boolean = False);

Compile - Compile - whether to compile the script into .bin format on launch or not

if (Script.Status = ssStopped) then Script.Run();

procedure Pause();

if (User.Dead) then Script.Pause();

procedure Stop();

if (User.Dead) then Script.Stop();

• Simple script for fishing

function Replace(const FilePath: String = ''): Boolean;

FilePath - path to script file (by default is empty)

if (User.Level < 10) then Script.Replace(Script.Path + '1-10.txt');

procedure Suspend();

if (Status <> lsOnline) then begin
  Script.Suspend();
  while (Status <> lsOnline) do Delay(100);
  Script.Resume;
end;

• Example of basic work with threads

procedure Resume();

if (Status <> lsOnline) then begin
  Script.Suspend();
  while (Status <> lsOnline) do Delay(100);
  Script.Resume;
end;

• Example of basic work with threads

procedure NewThread(Proc: Pointer; Param: Pointer = nil);

Proc  - pointer to a procedure

Param - pointer to a variable that can be used to supply some data to the procedure

procedure ThreadProc();
begin
  while Delay(500) do Print('Thread Proc');
end;

begin
  Script.NewThread(@ThreadProc);   
  while Delay(500) do Print('Main Thread');
  Delay(-1);
end.

• Example of basic work with threads

function MainProc(Proc: TThreadFunc; Param: Pointer = nil): Integer;

Proc  - pointer to a procedure

Param - pointer to a variable that can be used to supply some data to the procedure

procedure SomeProc;
begin
  Print('SomeProc called from main thread');
end;

begin
  Script.MainProc(@SomeProc);
end.

function StartPlugin(Path: String; Proc: Pointer; Modal: Boolean): Boolean;

Path - path to plugin DLL

Proc - pointer to function/variables for scripts and plugin cooperation

Modal - launch in modal mode

Script.StartPlugin(Script.Path+'PluginName.dll', @PluginProc, True);

function OnPluginProc(Code: Cardinal; Param: WideString = ''): Integer;

Code - 1st parameter

Param - 2nd parameter

Script.OnPluginProc(1, User.Name);