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.
ЗЫ: писал под себя, там взависимости на что ты хочеш скил точить нада скиллвл менять