Methods

function Delay(Time: Cardinal): Boolean;

Time - pause time (in ms, 1sec = 1000ms)

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

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

Action - event type. Actions types.
P1, P2 - parameters, each event has their own values. Parameters descriptions.

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.