JonnyKord
06.08.2009, 20:24
С этого же форума... скрипт на автоматическую точку для грации парт2, парень написал
у меня почему точит но не останавливается на заданном значении....?
может кто может исправить??)
Скрипт на автоматизацию заточки для Gracia Part 2 (megal2.ru)
Created by Horse and coderx.ru...
Вписать все нужные значения (скорость,пакеты,предел,ник) и поставить галочку около скрипта - вуаля...ждем своего момента=)
const
Name='NIK'; //сюда свой ник
var
timer:TTimer;
x:byte;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=180; //скорость точки
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
buf:=hstr('19 12 40 12 10 00 00 00 00'); //пакет активации точки(UseItem)
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('5F 0C F1 00 10 00 00 00 00'); //пакет заточки вещи(RequestEnchantItem)
SendToServerEx(Name);
x:=1;
end;
end;{case}
end;
begin
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (ReadD(12)=10440)// ID вещи(с пакета InventoryUpdate)
and (ReadD(34)=11)// предел заточки
then timer.enabled:=false;;
end;
end;
end;
end.
Надеюсь в замен скрипта кто то поделиться каким то багом на моем сервере...
Добавлено через 5 минут
На сервере начали появляться бажнутые эпик сеты, красные пушки, тату....кто сможет их достать - пишем...обсуждаем...
у меня почему точит но не останавливается на заданном значении....?
может кто может исправить??)
Скрипт на автоматизацию заточки для Gracia Part 2 (megal2.ru)
Created by Horse and coderx.ru...
Вписать все нужные значения (скорость,пакеты,предел,ник) и поставить галочку около скрипта - вуаля...ждем своего момента=)
const
Name='NIK'; //сюда свой ник
var
timer:TTimer;
x:byte;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=180; //скорость точки
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
buf:=hstr('19 12 40 12 10 00 00 00 00'); //пакет активации точки(UseItem)
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('5F 0C F1 00 10 00 00 00 00'); //пакет заточки вещи(RequestEnchantItem)
SendToServerEx(Name);
x:=1;
end;
end;{case}
end;
begin
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (ReadD(12)=10440)// ID вещи(с пакета InventoryUpdate)
and (ReadD(34)=11)// предел заточки
then timer.enabled:=false;;
end;
end;
end;
end.
Надеюсь в замен скрипта кто то поделиться каким то багом на моем сервере...
Добавлено через 5 минут
На сервере начали появляться бажнутые эпик сеты, красные пушки, тату....кто сможет их достать - пишем...обсуждаем...