Ultima Online Antares

sub Bandana() #
VAR LastTimer
repeat
UO.Print('Осталось ' + Str( UO.Count( 0x175D ) ) + ' Resurs' )
UO.Print('Осталось сделать ' + Str( 50-UO.Count( 0x153F ) ) + ' стульев' )
    if UO.Count( '0x175D' ) < 1 then  
    Uo.Print("Кончились дровишки!")
return
    endif  
    UO.DeleteJournal()
     uo.WaitMenu ('Cloth','Headwear','Headwear','Bandana')
    UO.UseType( '0x0F9D' )
    UO.waittargettype('0x175D'); на айрон
    LastTimer=UO.Timer()
;repeat
       wait(600)
; until UO.InJournal ("Вы изготовили") OR ("не удалось") OR ("You put") OR UO.InJournal("failed") OR ("Вы положили") OR UO.Timer()>LastTimer+200
while not (uo.injournal("You put")) and not (uo.injournal("failed")) and not (uo.injournal("Вы положили")) and not (uo.injournal("Вы изготовили"))and not (uo.injournal("не удалось"))
wait(200)    
wend
If UO.Count(0x153F)>1000 then
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
return
endif
If Uo.Weight>555 then
Uo.Print('Все, перевес, блин. Выбрось все нахрен!')
UO.Print('В паке' + Str( UO.Count( 0x153F ) ) + 'стульев' )
return
endif
until UO.DEAD()
end sub

sub perebros()
var Exit
UO.SetReceivingContainer('0x404DADD3');ID ИД контейнера в который складываем
      Exit=0
      repeat
      UO.FindType(0x153F,-1,'Backpack');можно поставить тип чего мы перетаскиваем, и так же указать сумку из которой забираем в данном случае указан последний открытый мешок-сундук и т.п.
        if UO.GetQuantity('finditem') then
          UO.Grab('0','finditem')
          wait(100)
        Else
          Exit=1
        endif
      until Exit==1
   Next
UO.UnSetReceivingContainer()
end sub

sub Tailor()
VAR LastTimer
VAR Sunduk  = '0x4025792E'; Откуда берем сумки пустые и ткань с нитками
VAR Sunduk2 = '0x40F34172'; куда будем складывать продукцию готовую в сумках
VAR Meshok = '0x0E76'
VAR MeshSer, d
VAR Cloth = '0x175D'
VAR Nit = '0x0FA0'
VAR TTols = '0x0F9D'
VAR Item = '0x153F'
VAR KolL = 160
VAR KolN = 40
VAR k , n, r , i


while true

    k=0
    
    repeat
    
        wait(1000)
        r=0
        
        if UO.Count(Cloth)<KolL then
            n=UO.Count(Cloth)
            UO.FindType(Cloth,-1,Sunduk)
            UO.Grab(str(KolL-n),'finditem')
            wait(500)
        endif
        
        if UO.Count(Cloth) == 0 then
            uo.print('Stopped! Dont have Cloth')
            uo.exec('terminate all')
        endif
        
        wait(1000)

        if UO.Count(Nit)<KolN then
            n=UO.Count(Nit)
            UO.FindType(Nit,-1,Sunduk)
            UO.Grab(str(KolN-n),'finditem')
            wait(500)
        endif
        
        if UO.Count(Nit) == 0 then
            uo.print('Stopped! Dont have Thread')
            uo.exec('terminate all')
        endif
        
        wait(1000)

            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.WaittargetType( Cloth )
            uo.usetype( TTols )
            UO.WaitMenu('Cloth','Headwear','Headwear','Bandana')
            UO.DeleteJournal()
            repeat
                wait(500)
            until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target') or UO.Timer()>LastTimer+200
    
        d=uo.Count(Item)
        k=k+1
        uo.print(str(d))
    until d>=250
    
        UO.FindType( Meshok, -1, Sunduk )
        MeshSer = UO.GetSerial( 'finditem' )
        uo.setreceivingcontainer(Sunduk2)
        UO.Grab( '1', 'finditem' )
        uo.unsetreceivingcontainer()
    
        uo.setreceivingcontainer(MeshSer)
        while UO.Count( Item ) > 0
            UO.FindType( Item, -1, -1 )        
            UO.Grab( '1', 'finditem' )
            wait( 500 )            
        wend
        uo.unsetreceivingcontainer()

wend

end sub

        d=uo.Count(Item)
        k=k+1
        uo.print(str(d))
    until d>=250