Цитата:
Сообщение от xkor
шо ещё за рефакторинг??
и какое это отношение имеет к вызову скриптов???
|
Ну, может неправильно обозвал. У тебя там через три п. вызов был, я укоротил.
delphi Код:
...
procedure ExecuteScripts(var msg: TMessage); Message WM_ExecuteScripts;
...
procedure TL2PacketHackMain.ExecuteScripts(var msg: TMessage);
var
i: Integer;
packet: string;
FromServer: boolean;
id: byte;
begin
packet:=pstr(msg.WParam)^;
FromServer:=Boolean(msg.LParamLo);
id:=msg.LParamHi;
SetCurrentDir(ExtractFilePath(ParamStr(0)));
EnterCriticalSection(_cs);
for i:=0 to CheckListBox2.Count-1 do begin
if CheckListBox2.Checked[i] then begin
Scripts[i].fsScript.Variables['pck']:=packet;
Scripts[i].fsScript.Variables['ConnectID']:=id;
Scripts[i].fsScript.Variables['ConnectName']:=Thread[id].Name;
Scripts[i].fsScript.Variables['FromServer']:=FromServer;
Scripts[i].fsScript.Variables['FromClient']:=not FromServer;
Scripts[i].fsScript.Execute;
packet:=Scripts[i].fsScript.Variables['pck'];
end;
end;
LeaveCriticalSection(_cs);
end;
...
procedure PacketProcesor(PacketData: array of Byte; SendSocket: TSocket; id, From: Byte);
...
//>>>>>>>>!!!!!!!!!<<<<<<<<
//пакет от сервера - клиенту
a.a:=Word(true);
a.b:=id;
SendMessage(L2PacketHackMain.Handle, WM_ExecuteScripts, Integer(@temp),a.ab);
//>>>>>>>>!!!!!!!!!<<<<<<<<
...
end;