скрипты для облегчения игры

[TAMBIK]

я сам недавно нашел этот сайт и стал
пользоваться l2phxписать необучен скрипты
собрал это как в конструкторе из деталей

АВТО ТРЕЙД

//АВТО ТРЕЙД
//скрипт вкл у чара кому передаете вещи
// кинь трейд. чар автоматом подтвердит
//положи вещь в трейд и нажми ОК и все
// ХБ
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен

begin
  if FromServer and (pck[1]=#$70) then begin//вам кинули трейд
  buf:=#$55;
  WriteD(1); // принять  ТРЕЙД
   SendToServer;
    pck:='';
 exit;
 end;
begin
  if FromServer and (pck[1]=#$62) and (pck[2]=#$79)then begin//вам потвердили обмен 
  buf:=#$1C;
  WriteD(1); // подтвердить обмен
   SendToServer;
 end;
 end;
end.

АВТО ПАТИ

//АВТО ПАТИ
//скрипт вкл у чара кому предлагаете пати
//кинь пати чару он автом примет
// ХБ
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен

begin
  if FromServer and (pck[1]=#$39) then begin
  buf:=#$43;
  WriteD(1); // принял  пати
  SendToServer;
   pck:='';
 exit;
 end;
begin
if FromClient and (pck[1]=#$43) and (pck[2]=#$00)then pck:='';//убил отказ от пати
end;
end.