La2 - ICQ

[alexteam]

00001010 1 0000 ?Init@@YAHPAX@Z
00001060 2 0001 ?addMessage@@YAHKPA_W0@Z

)))

вот те.

скрипт для использования на пт2.

var
initok : boolean;
maskval : array[0..10] of variant;

procedure Init; //will be called on script initialization
begin
initok := ChatLoadAndInit('c:\test\ChatServer.dll');
if not initok then
ShowMessage('Dll Load Fail!!');
end;

procedure Free;
begin
end;

begin
if fromserver and initok then
if pck[1] = #$4a then
begin
readmask('dss',6,maskval);
chatsay(maskval[0],maskval[1],maskval[2]);
end;
end.