Автозаточка, просто и сердито!

[TAMBIK]

neonv1,
куча пакетов
а ты сказал один
те дано направление
лучше всего посылать как и в игре чаром

в скрипте пакет зпомнить так
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
по аналогие делать свои

[neonv1]

Сообщение от TAMBIK

neonv1,
куча пакетов
а ты сказал один
те дано направление
лучше всего посылать как и в игре чаром

в скрипте пакет зпомнить так
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
по аналогие делать свои

const nik='neonv1';
   Enchant=20;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=3370;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(5) of //(5) зачем вставил хз интуиция правельно?
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
     3:begin
            Timer01.enabled:=false;
             buf:=hstr('1F 87 04 01 10 2C 41 02 00 A2 23 FF FF 24 F5 FF FF 00'); // Action
             SendToServerEx(nik);
             end;  
        4:  begin   
                Timer01.enabled:=false;
             buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 35 00 30 00 32 00 31 00 35 00 31 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 00 00'); // болтаем с нпс
             SendToServerEx(nik);
             end;
        5: begin
                 Timer01.enabled:=false;
             buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 20 00 63 00 68 00 6F 00 6F 00 73 00 65 00 5F 00 69 00 74 00 65 00 6D 00 00 00'); // далее ботлтаем
             SendToServerEx(nik);
             end;
        6: begin
                 Timer01.enabled:=false;
             buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 39 00 39 00 39 00 5F 00 4E 00 50 00 43 00 45 00 6E 00 63 00 68 00 61 00 6E 00 74 00 20 00 65 00 6E 00 63 00 68 00 61 00 6E 00 74 00 49 00 74 00 65 00 6D 00 5F 00 32 00 36 00 38 00 35 00 32 00 36 00 30 00 39 00 35 00 00 00'); // диалог выбора какой шмот заточить
             SendToServerEx(nik);
             end;
      end;
         if FromServer and (pck[1]=#$23) then  begin
        Timer01.enabled:=true;
            CurrentEnch:=10;// уровень до какого точит нпс
                  end;
                   
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck[1]+pck[2]=#$56#$0C) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

1-это правлино ли я вставил эти пакеты?
2-чет ваще ничего не работает
А как-то еще химичил чето первый пакет отсылался и то без команды запускалось все. в итоге кик с серва гм информед часто так, норм с ГМ познакомился. Сказал что на заточку много нажымал. Типа так быстрее.

[neonv1]

В общим заточился на полуавтомате, пришлось ручками по нпс щелкать, да ну и пофиг. И так делать нечего, боты, скрипты, . Но всеже добить надо скрипт.

const nik='xxx';
   Enchant=15;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=3370;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
     
       3:begin
            Timer01.enabled:=false;
             buf:=hstr('1F 87 04 01 10 2C 41 02 00 A2 23 FF FF 24 F5 FF FF 00');
             SendToServerEx(nik);
             end;
      end;
  if FromServer and (pck[1]=#$23) then  begin
        Timer01.enabled:=true;
            CurrentEnch:=10;// уровень до какого точит нпс
                  end;
end.

Тут замысел работал, покет посылался после неудачной заточки на общение с нпс. Я в скриптах не очень методом тыка пытался что-то добавить, застрял на том что скрип работает сразу без каманды т.е он еще ничего не запомнил что я буду точить и меня кикало с серва - чуть бан не хватанул отмазался. Этого мало-то одного пакета, 4 надо послать только потом шмотка на 10 затачивается. Да а как еще команду теперь впихнуть чтоб запускалось. Жду помощи..