[kolr]

PHP код:

const 
nik='OutSpace';                 //olololololo
Enchant=20; 

var 
SkillID,  SkillLvl, CurrEnch: integer; 
timer:Ttimer;

procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;


procedure OnTimer01(Sender: TObject); 
begin 

end;

procedure Init; //Вызывается при включении скрипта 
begin 
end; 

procedure Free; //Вызывается при выключении скрипта 
begin 
CurrEnch:=0;
end; 


begin 
if FromServer and (pck[1]=#$62) then case pck[2] of 
#$A0: //точнулся 
if CurrEnch<Enchant then 
begin 
SendMsg2('Точим + '+IntToStr(CurrEnch)+'');
CurrEnch:=CurrEnch+1; 
Buf:=HStr('D0 0F 00'); 
WriteD(SkillID); 
WriteD(SkillLvl+CurrEnch); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('A6');
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(SkillLvl+CurrEnch); 
SendToServerEx(nik);
delay(100);
end; 
#$A1: //не точнулся 
begin 
CurrEnch:=1; 
SendMsg2('Слом начинем сначала');
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(100+CurrEnch); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 0F 00'); 
WriteD(SkillID);
WriteD(101); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('A6');
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(100+CurrEnch); 
SendToServerEx(nik);
delay(100);
SkillLvL:=100;
end; 
end; 
if FromClient and (pck[1]=#$D0) and  (pck[2]=#$0F) then 
begin 
 
SkillID:=ReadD(4); 
SkillLvl:=ReadD(8)-1; 

CurrEnch:=1; 
end; 
end. 


ЗЫ: писал под себя, там взависимости на что ты хочеш скил точить нада скиллвл менять