Page 1 of 1

Подсстройте скрипт на bowcraft

Posted: 2006-07-03 14:28:33
by Tw

Code: Select all

"СКРИПТ САВАДЖА" 
Code: 

sub bowcraft() 
VAR Exit=0 
   repeat 
      UO.DeleteJournal() 
      UO.FindType('0x1BDD','0x0000','0x400BE391') 
      if UO.GetQuantity('finditem')>0 then 
         UO.Grab('3','finditem') 
         UO.SetReceivingContainer('0x400BE391') 
         UO.Grab('2','finditem') 
         UO.WaitMenu('What','shaft') 
         UO.WaitTargetObject('finditem') 
         UO.UseType('0x0F51') 
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') 
            wait(500) 
         wend 
         UO.FindType('0x1BD4','0x0000','my') 
         if UO.GetQuantity('finditem')>0 then 
            UO.Grab('all','finditem') 
         Endif 
         UO.UnSetReceivingContainer() 
      Else 
         Exit=1 
      endif 
   until Exit==1 
end sub 
 Играю на дрв если что 

скрипт прекрасно работает, токо для более эфективной прокачки после 55% надо переходить на цветные логи и делать из них "гилду" (правда я незнаю что это) 
переделайте чтобы можно было ее крафтить 
Всякие типы логов и ИД сундуков я сам уже могу ставить :)