Yoko

Posted: **2008-03-20 18:35:05**

Помогите переделать скрипт, чтобы мешки он складывал не в коробку, а выбрасывал их на землю. Спасибо!

sub Devastate()

;------------------------------------------------------------------------------
   Var Bags   =  '0x40A8AEE3'; Коробка для мешков
   Var Trash  =  '0x40B9F4E3'; Мешок для мусора
   Var Bag    =  '0x0E76'; Тип мешка
   Var BagSerial
;------------------------------------------------------------------------------

   Repeat 
     UO.FindType(Bag,-1,'backpack')
     BagSerial = UO.GetSerial( 'finditem' )
     UO.UseObject(BagSerial)
     Wait(500)
     Repeat    
      UO.FindType(-1,-1,BagSerial)
      UO.MoveItem('finditem',0,Trash)
      Wait(200)
     Until not UO.GetQuantity('finditem')
     Wait(200)
     UO.MoveItem(BagSerial,0,Bags)
   Until not UO.Count(Bag)
End sub

Posted: **2008-03-20 18:42:40**

UO.MoveItem(BagSerial,0,Bags)
Замени на
UO.drop('1',str(UO.GETX()),str(UO.GETY()),str(UO.GETZ()),BagSerial)

Posted: **2008-03-20 19:08:01**

Yura wrote:UO.MoveItem(BagSerial,0,Bags)
Замени на
UO.drop('1',str(UO.GETX()),str(UO.GETY()),str(UO.GETZ()),BagSerial)

Благодарю! :lol:

Posted: **2008-03-22 13:58:54**

Помогите еще раз, пожалуйста.
Дело в том, что скрипт бывает не всегда все достает с мешка и выкидывает мешок с вещами. Можно как нибуть сделать, чтобы он всегда все вытаскивал с мешков?

Posted: **2008-03-22 14:30:31**

Until not UO.GetQuantity('finditem') -> Until UO.FindCount() == 0 попробуй

Posted: **2008-03-22 14:38:15**

Yura wrote:Until not UO.GetQuantity('finditem') -> Until UO.FindCount() == 0 попробуй

Вроде все окей. Спасибо еще раз. С меня пиво! :lol:

Yoko

Empter

Empter