Methods

function Delay(Time: Cardinal): Boolean;

Time - время паузы (в мс, 1сек = 1000мс)

while (User.Cast.EndTime <> 0) do Delay(100);

procedure OnAction(Action: TGameAction; P1, P2: Pointer);

Action - вид события. Виды событий.

P1, P2 - параметры, для каждого события имеют свои значения. Описание параметров.

uses SysUtils, Classes;

procedure OnAction(Action: TGameAction; P1, P2: Pointer);
begin
  case Action of
    atKey: Print(Format('Нажата клавиша: %d', [Integer(P1)]));
  
    atChat: begin
      Print(Format('[%s] %s: %s', [TimeToStr(ChatMessage.Time), ChatMessage.Nick, ChatMessage.Text]));
    end; 
    
  end;
  
end;

begin
  Delay(-1);
end.