L2PacketHack 3.5.x

[NLObP]

Сообщение от xkor

шо ещё за рефакторинг??
и какое это отношение имеет к вызову скриптов???

Ну, может неправильно обозвал. У тебя там через три п. вызов был, я укоротил.

...
    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;