TAMBIK
14.05.2009, 20:32
я сам недавно нашел этот сайт и стал
пользоваться 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.
пользоваться 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.