В общем наверняка многие из вас видели вот этот вот скрипт на авто точение скилов:
delphi Код:
const
nik='ник';
Enchant=10;
var
SubID, SkillID, SkillLvl, CurrEnch: integer;
procedure Init;
begin
end;
procedure OnTimer01(Sender: TObject);
begin
end;
procedure Free;
begin
CurrEnch:=0;
end;
procedure OnConnect(WithClient: Boolean);
begin
end;
procedure OnDisonnect(WithClient: Boolean);
begin
end;
begin
if FromServer and (pck[1]=#$62) then case pck[2] of
#$A0:
if CurrEnch<Enchant then
begin
CurrEnch:=CurrEnch+1;
Buf:=#$D0;
WriteH(SubID);
WriteD(SkillID);
WriteD(SkillLvl+CurrEnch);
SendToServerEx(nik);
end;
#$A1:
begin
CurrEnch:=1;
Buf:=#$D0;
WriteH(SubID);
WriteD(SkillID);
WriteD(SkillLvl+CurrEnch);
SendToServerEx(nik);
end;
end;
if FromClient and (pck[1]=#$D0) then
begin
SubID:=ReadH(2);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
end;
end.
Смысл в том что подходим к npc точим скил руками на +1 и дальше программа точит до заданного уровня.
Я сделал следующее:
Поймал пакет заточки скила на +1(сохранил его), дальше сточил скил на 0, запустил этот скрипт и отправил сохранённый пакет.
В итоге скил точиться на +1 но дальше скриптом на точиться...
Вот кто поможет или знает в чём проблема, мне нужно добиться авто точки скилов именно с пакета, а не вручную.