Автозаточка скиллов

[klizmabeqa1992]

закупаемся книжками, выставляем уровень заточки и ник

точим на +1, скрипт продолжает пока не точнет до указанного уровня

ЗЫ точить надо с нуля, иначе счетчик не правильно считать начнет

 

 

 

delpi code:

 

const

  nik='xxxxx';

  Enchant=13;

 

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.