Pinko
15.09.2011, 01:30
автор не я
// Kamael-Hellbound
const
Name = 'ххх'; // Имя
procedure Init;
begin
end;
procedure Free;
begin
end;
// пати сам с собой
// чара кто будит приглашать в пати и предлогать трейд .можно грузить без l2phx
// кидаешь чару ххх пати - скрипт принимает пати - 1раз
// кидаешь чару ххх трейд - скрипт принимает пати - не больше
// положеного колличества членов пати
// передаешь чару ххх лидера пати
// выходишь из пати .итог = >> чар ххх с собой в пати
begin
if FromServer and (pck[1]=#$39) then begin // вам приглашение в пати
buf:=#$43;
WriteD(1); // принять пати
SendToServerEx(Name);
pck:='';
exit;
end;
begin
if FromServer and (pck[1]=#$70) then begin// вам трейд
buf:=#$55;
WriteD(1); // принять пати
SendToServerEx(Name);
pck:='';
exit;
end;
end;
end.
// Kamael-Hellbound
const
Name = 'ххх'; // Имя
procedure Init;
begin
end;
procedure Free;
begin
end;
// пати сам с собой
// чара кто будит приглашать в пати и предлогать трейд .можно грузить без l2phx
// кидаешь чару ххх пати - скрипт принимает пати - 1раз
// кидаешь чару ххх трейд - скрипт принимает пати - не больше
// положеного колличества членов пати
// передаешь чару ххх лидера пати
// выходишь из пати .итог = >> чар ххх с собой в пати
begin
if FromServer and (pck[1]=#$39) then begin // вам приглашение в пати
buf:=#$43;
WriteD(1); // принять пати
SendToServerEx(Name);
pck:='';
exit;
end;
begin
if FromServer and (pck[1]=#$70) then begin// вам трейд
buf:=#$55;
WriteD(1); // принять пати
SendToServerEx(Name);
pck:='';
exit;
end;
end;
end.