Yoko

Скрипт берет из сундука вещи разных мастей(химию) и кидает в сумку которая в бекпаке. Разные цвета химии по разным координатам сумки.

Года 3 назад я воял себе такой скрипт, но потерял, и не помню че там писал.

Очень выручите!! В зарание спасибо...

UO.MoveItem('finditem', 'кол-во', 'backpack', 'x', 'y', 'z')

x,y,z коорды в паке. 0,0,0 левый верхний угол пака

Спасибо! Вот только количество не пашет (


Вот такой скрипт берет из чаможана 1 хелку, а по сути должен 2

Sub ToEat()

var Chest='0x41208947'
var Typeheal='0x0F0C' ## - Хелы
var Cololrheal='0x0000' ## - Хелы


UO.FindType(Typeheal,Cololrheal,Chest)
If UO.GetQuantity('finditem') >= 1 Then
UO.MoveItem('finditem', '2' ,'backpack','150','50','0')
   Wait(500)
      EndIf
###################################
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub

И еще, как переделать что бы не в бекпак а в сумку которая в паке или гденить рядом

Способен ли этот скрипт перетащить мне 5 хелок когда я в начале укажу откуда брать и куда тащить? Раньше я писал что-то вроде этого и он работал. Подскажите в чем проблема? Пожалуйста!

Sub ToEat()

uo.print('!!OTKYDA!! ')
uo.exec('addobject Chest')
while uo.targeting()
wait(100)
wend 

uo.print('!!KYDA!! ')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

var Bag
var Chest
var Typeheal='0x0F0C' ## - Хелы
var Cololrheal='0x0000' ## - Хелы


UO.FindType(Typeheal,Cololrheal,Chest)
If UO.GetQuantity('finditem') >= 1 Then
UO.MoveItem('finditem', '5' ,'Bag','150','50','0')
   Wait(500)
      EndIf
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub 

Вот поковырялся, вроде работает. Но че делать с количеством хз

Sub ToEat()

UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend

UO.FindType(0x0F0C,0x0000,'TmpCont1' )
      If UO.FindCount() > 0 Then
         UO.MoveItem( 'finditem', '0', 'TmpCont2','100','50','0')
   Wait(500)
      EndIf
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub 

А вот скриптик предлогает Edred, вообщем то я его и переделал. Он не работает, выдает ошибку на отмеченой строке:

sub AutoMove2()
; Автоматическое перекладывание некучкующихся предметов одного типа и цвета
; из одного контейнера в другой. Осуществляется драг на контейнер.
; v.1.05b (c) Edred
;
   VAR MyPause = 600
   VAR Type1, Color1, s, n, SerStopka, SumCol = 0, Howmany='200'
   UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select type for move' )
   UO.Exec('addobject TmpObj1')
   While UO.Targeting()
      Wait(100)
   Wend
   Type1 = UO.GetGraphic( 'TmpObj1' )
   Color1 = UO.GetColor( 'TmpObj1' )
   While UO.Targeting()
      Wait(100)
   Wend
   Howmany = UO.asmInputString("4",Howmany) ####Вот тут дает ошибку##
   If Howmany == '4' Then
      UO.Print( 'Invalid count of objects!' )
      return
   Endif
   repeat
      UO.FindType( Type1, Color1, 'TmpCont1' )
      If UO.FindCount() > 0 Then
         UO.MoveItem( 'finditem', '0', 'TmpCont2' )
         Wait( MyPause )
         CheckLag()
         SumCol = SumCol + 1
         If SumCol == val(Howmany) Then
            UO.Print( 'Script finished' )
            return
         Endif
      Else
         UO.Print( 'Script finished' )
         return
      Endif
   until False
endsub 

Надо ставить мод на инжу ASM ищи в разлеле модификаций.