Цитата:
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.
|