Итак народ я конечно нисколько не был удивлен что эта программа пашет на нашем серваке но тем не менее...
Я думаю что многих мягко говоря уже достало вставлять лсы в пуху в поиске нормального еффекта так.Так вот для тех кто знаком с этим инструментом и умеет им пользоваться я просто выкладываю скрипт на автоматич аргументацию оружия и опишу как он работает.
Код:
const
nik='ваш ник';
var
WeaponID, LsID, GemID, GemCount, zero: integer;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure OnTimer01(Sender: TObject);
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
end;
procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$D0) then
begin
WeaponID:=ReadD(4);
LsID:=ReadD(8);
GemID:=ReadD(12);
GemCount:=ReadD(16);
zero:=ReadD(20);
end;
//Cancel Augment
if FromClient and (pck = HStr('56 0D 00 00 00 00 00 00 00 00 ')) then //56 0D 00 00 00 00 00 00 00 00 (Social No)
begin
buf:=hstr('FE 52 00 ');//окно удаления арГ
SendToClient;
delay(300);
pck:='';
Buf:=#$D0#$42#$00;
WriteD(WeaponID);
SendToServerEx(nik);
Buf:=#$D0#$43#$00;
WriteD(WeaponID);
SendToServerEx(nik);
end;
//Augment
if FromClient and (pck = HStr('56 0C 00 00 00 00 00 00 00 00 ')) then //56 0C 00 00 00 00 00 00 00 00 (Social Yes)
begin
buf:=hstr('FE 51 00 ');//окно Арг
SendToClient;
delay(300);
pck:='';
Buf:=#$D0#$26#$00;
WriteD(WeaponID);
SendToServerEx(nik);
delay(50);
Buf:=#$D0#$27#$00;
buf:=hstr('D0 27 00 5E 47 30 10 C3 DA 24 10 ');//пакет который приходит при выборе лс для аргумента имя пакета Refine как то там точно не помню
SendToServer;
delay(50);
Buf:=#$D0#$28#$00;
buf:=hstr('D0 28 00 5E 47 30 10 C3 DA 24 10 3B 12 25 10 24 00 00 00 00 00 00 00 ');//тип гемов которые мы вставляем так же пробуем вручную и вставляем пакет сюда
WriteD(zero);
SendToServer;
delay(100);
buf:=hstr('D0 41 00 5E 47 30 10 C3 DA 24 10 3B 12 25 10 24 00 00 00 00 00 00 00 ');
SendToServer;
end;
end.Итак скрипт немного отличается от остальных скриптов данного типа тем что тип лс и гемстоны вы должны поймать в виде пакета... так как есть скрипты которые сами запоминают колво гемстонов и тип лс вы можете конечно же и их испробовать но у меня с ними возникали проблемы вплоть до дисконекта....
