Code: Select all
procedure eventMapMessage(ID: Cardinal; centerX, centerY: Integer);
begin
xMap := centerX;
yMap := centerY;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
script.SetEventProc(TPacketEvent.evMapMessage,@eventMapMessage);
end;
and how get mount/dismount static