Показать сообщение отдельно
Старый 06.09.2011, 02:23   #1
Новичок
 
Регистрация: 06.09.2011
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
TwistedEvil пока неопределено
По умолчанию Помогите переделать скрипт под себя...

Имееться вот такой простенький скрипт для заточки

Код:
const
Name='NIK'; //сюда свой ник
var  
timer:TTimer;  
x:byte; 

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=180; //скорость точки
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;
end;  

procedure Free;  
begin
timer.Free;  
end;  

procedure fireTimer(Sender: TObject);  
begin  
case x of  
1:begin  
     buf:=hstr('19 12 40 12 10 00 00 00 00'); //пакет активации точки(UseItem)
     SendToServerEx(Name);  
     inc(x);  
   end;  
2:begin  
     buf:=hstr('5F 0C F1 00 10 00 00 00 00'); //пакет заточки вещи(RequestEnchantItem)
     SendToServerEx(Name);  
     x:=1;  
   end;  
end;{case}
end;

begin
if FromServer then  
  begin  
    case pck[1] of  
      #$21: begin //InventoryUpdate  
        if (ReadD(12)=10440)// ID вещи(с пакета InventoryUpdate)
 and (ReadD(34)=11)// предел заточки
then timer.enabled:=false;;
      end;  
end;
end;
end.
Проблема возникает в условии окончания заточки. Его и надо как-то переписать. Не могу разобраться с этими смещениями...

Вот пакет InventoryUpdate

Код:
Tèï: 0x21 (InventoryUpdate)
Pàçìåð: 73+2
Âðåìÿ ïðèõîäà: 01:13:43:597
0002 h  count: 1 (0x0001)
              [Íà÷àëî ïîâòîðÿþùåãîñÿ áëîêà 1/1]
0004 h  1add 2mod 3remove: 2 (0x0002)
0006 d  ObjectID: 269232562 (0x100C29B2)
000A d  ItemID: Áëàãîñëîâåííûé Ñâèòîê: Ìîäèôèöèðîâàòü Äîñïåõ (D) ID:6576 (0x19B0)
000E d  Slot: 27 (0x0000001B)
0012 q  Count: 24644
001A h  ItemType2: 5 (0x0005)
001C h  CustomType1: 0 (0x0000)
001E h  isEquipped: 0 (0x0000)
0020 d  BodyPart: 0 (0x00000000)
0024 h  EnchantLevel: 0 (0x0000)
0026 h  CustType2: 0 (0x0000)
0028 d  AugmID: 0
002C d  Mana: -1 (0xFFFFFFFF)
0030 d  remainTime: 0 (0x00000000)
0034 h  AttackElem: 65534 (0xFFFE)
0036 h  AttackElemVal: 0 (0x0000)
0038 h  DefAttrFire: 0 (0x0000)
003A h  DefAttrWater: 0 (0x0000)
003C h  DefAttrWind: 0 (0x0000)
003E h  DefAttrEarth: 0 (0x0000)
0040 h  DefAttrHoly: 0 (0x0000)
0042 h  DefAttrUnholy: 0 (0x0000)
0044 h  EnchEff1: 0 (0x0000)
0046 h  enchEff2: 0 (0x0000)
0048 h  enchEff3: 0 (0x0000)
              [Êîíåö ïîâòîðÿþùåãîñÿ áëîêà  1/1]
з.ы. если еще какая-то информация нужна, пишите, выложу...

з.з.ы. заранее спасибо.
TwistedEvil вне форума   Ответить с цитированием