Empter

[Excaliburg]

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

Code: Select all

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

[Yura]

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

[Excaliburg]

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

Благодарю!

[Excaliburg]

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

[Yura]

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

[Excaliburg]

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

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