PHP код:
const
nik='Ник';
Enchant=15;
var
SubID, SkillID, SkillLvl, CurrEnch, Type1: integer;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and ((pck[1]=#$62) and (pck[3]=#$05)) 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) and (pck[2]=#$0F)) then
begin
SubID:=ReadH(2);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
end;
end.
Помоему под фрею какраз переделывал, попробуй