Скрипт, чтоб не флагаться.

[Lynx]

Скрипт для того, чтобы бить, не флагаясь, и не агря монстров.

var
Status, socialid: Integer;
procedure SAY(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

begin
  if FromClient and (pck[1]=#$1B) then //социальное действие
    begin
      SocialID:=ReadD(2);
      case ord(pck[2]) of
      $06:begin                //socialyes
        Status:=1;
        SAY('Без флага');
      end;
      $05:begin                //socialno
        Status:=0;
        
        SAY('Выключено');
      end;
      end;
    end;
  if Status=1 then
    begin
      if FromClient and ((pck[1]=#$0A) or (pck[1]=#$04)) then //Если атакуем, то:
begin
buf:=pck;
SendToServer;          //Отправил пакет дальше 
delay(100);
buf:=#$73;             //Открыть продажу
SendToServer;  

buf:=#$76;             //Закрыть продажу    
SendToServer;
pck:='';               
end;        
      
    end;
end.

[alexteam]

в данном случае, при приходе пакета атаки скрипт будет
открывать продажу. через 400мс закрывать продажу и уже далее пропустит пакет атаки на сервер.
поясняю.
pck не будет отправлен на сервер до того момента как скрипт не отработает полностью. если описаный мной порядок отправки пакетов неверен - требуется перенести pck в буффер либо временную а сам pck обнулить. переменную либо буффер отправить в нужный момент.

[mks]

Lynx, обзови процедуру SendMsg иначе и все будет путем, просто таковая уже существует

[alexteam]

а, ну и это тоже %)

[mks]

честно, вообще не понял что требуется от скрипта, при чем тут продажа, если надо что б не атаковал, не проще гасить пакет:
if FromClient and (pck[1]=#$0A) then pck:='';

[Lynx]

Исправиление в шапке, но всё равно не пашет.

Добавлено через 3 минуты
Там есть фишка, когда после атаки открываешь лавку, не флагаешься.
У меня l2ph 3.2 там sendmsg ешё нету, надо руками выводить

[alexteam]

а ты уверен что открытие и закрытие лавки ограничивается только request'ами ?

[mks]

да вообще не советовал бы использовать Delay, у тебя будет выходить лаг в 400мс, тут таймер надо бы сделать

[Lynx]

Снифаются только они
Не закрывает почему-то последним пакетом

[mks]

делай таймер для начала, просто подвисание всех пакетов на 400мс может на что-то и повлиять