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)

Благодарю!

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 попробуй

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

Yoko

Empter

Empter