[alexteam]

NLObP, not really.

recive packet:

TPacket = packed record case Integer of
    0: (Size: Word;
        Data: array[0..$FFFD] of Byte);
    1: (PacketAsByteArray: array[0..$FFFF] of Byte);
    2: (PacketAsCharArray: TCharArray);
    3: (pckSize: Word;
        pckId: Byte;
        pckData: array[0..$FFFC] of Byte);
  end;

  TOnPacket = procedure(const cnt: Cardinal; const fromServer: Boolean; const connectionname:string; var packet : tpacket); stdcall;

packet.Data equal to pck in scripts.


sending packet:
procedure SendPacketStr(pck: string; const tid: integer; const ToServer: Boolean); override;

you can obtain tid by
function getConnectioidByName(name : string):integer; override;