автозаточка скилов на с4

[Holydoly]

помогите пожалуста со скрипт дело в том что я играю на хрониках с4 даный скрит непашыт вообще

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.

[J-Fobos]

Может он не пашет, потому что не вы его написали? =)