выкладка из мешков, нужен скрипт
Полковник (17324901)11 летИнквизитор
Inquisitor
Сообщений: 1254
Рег. 13.02.2013
19 ноября 2013 15:08
Сообщение #1
Нужен скрипт на выкладку из Bag вещей которые в паке появляются. под чистую чтоб чистил мешок
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
19 ноября 2013 15:37
Сообщение #2
Если я правильно тебя понял.

sub Cleaner()
   UO.Print('From where?')
   UO.AddObject('FBag')
   While UO.Targeting()
      Wait(100)
   Wend

   UO.Print('To where?')
   UO.AddObject('TBag')
   While UO.Targeting()
      Wait(100)
   Wend

   UO.Set('quiet', '1')

   Repeat
      UO.FindType('-1', '-1', 'FBag')
      If UO.FindCount() > 0 Then
         UO.SetReceivingContainer('TBag')

         UO.Grab('-1', 'finditem')
         Wait(100)

         UO.UnsetReceivingContainer()
      Endif
   Until UO.FindCount() < 1

   UO.Set('quiet', '0')
   UO.Print('Done!')
End Sub
Старшина (1213389)15 лет
Ranger
Сообщений: 1029
Рег. 7.09.2009
19 ноября 2013 16:20
Сообщение #3
А где у нас монстры с мешками?
Полковник (17324901)11 летИнквизитор
Inquisitor
Сообщений: 1254
Рег. 13.02.2013
19 ноября 2013 18:55
Сообщение #4
Как сделать выкладку из Bag в сундук или мешок по ид чтоб просто указал какой выгрузить и все
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
19 ноября 2013 19:16
Сообщение #5
sub Cleaner()
   Var TBag = '0x00000000'; ID контейнера

   UO.Print('From where?')
   UO.AddObject('FBag')
   While UO.Targeting()
      Wait(100)
   Wend

   UO.Set('quiet', '1')

   Repeat
      UO.FindType('-1', '-1', 'FBag')
      If UO.FindCount() > 0 Then
         UO.SetReceivingContainer( TBag )

         UO.Grab('-1', 'finditem')
         Wait(100)

         UO.UnsetReceivingContainer()
      Endif
   Until UO.FindCount() < 1

   UO.Set('quiet', '0')
   UO.Print('Done!')
End Sub
Полковник (17324901)11 летИнквизитор
Inquisitor
Сообщений: 1254
Рег. 13.02.2013
19 ноября 2013 19:25
Сообщение #6
Спасибо
Последние посетители (0):

 
Сейчас: 25 ноября 2024 17:47