Yoko
http://forum.yoko.com.ua/

Empter
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13395		 Page 1 of 1
Author:  Excaliburg [ 2008-03-20 18:35:05 ]
Post subject:  Empter
Помогите переделать скрипт, чтобы мешки он складывал не в коробку, а выбрасывал их на землю. Спасибо! :)

Code:
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
Author:  Yura [ 2008-03-20 18:42:40 ]
Post subject: 
UO.MoveItem(BagSerial,0,Bags)
Замени на
UO.drop('1',str(UO.GETX()),str(UO.GETY()),str(UO.GETZ()),BagSerial)
Author:  Excaliburg [ 2008-03-20 19:08:01 ]
Post subject: 
Yura wrote:
UO.MoveItem(BagSerial,0,Bags)
Замени на
UO.drop('1',str(UO.GETX()),str(UO.GETY()),str(UO.GETZ()),BagSerial)


Благодарю! :lol:
Author:  Excaliburg [ 2008-03-22 13:58:54 ]
Post subject: 
Помогите еще раз, пожалуйста.
Дело в том, что скрипт бывает не всегда все достает с мешка и выкидывает мешок с вещами. Можно как нибуть сделать, чтобы он всегда все вытаскивал с мешков? :)
Author:  Yura [ 2008-03-22 14:30:31 ]
Post subject: 
Until not UO.GetQuantity('finditem') -> Until UO.FindCount() == 0 попробуй
Author:  Excaliburg [ 2008-03-22 14:38:15 ]
Post subject: 
Yura wrote:
Until not UO.GetQuantity('finditem') -> Until UO.FindCount() == 0 попробуй


Вроде все окей. Спасибо еще раз. С меня пиво! :lol:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/