Ultima Online Antares

sub BS_iron()
VAR LastTimer
VAR Sunduk  = '0x40FEA9EA'; Откуда берем инги и сумки
VAR Sunduk2 = '0x40FAA263'; куда будем складывать продукцию готовую в сумках
VAR Meshok = '0x09B0'; сумки куда складываем даггеры
VAR KolIngots = 12; количество ингов в паке для начала ковки
VAR KolDaggers = 120; сколько даггеров ковать до выкладывания (при почти пустом паке 120 оптимально)
VAR Iron = '0x1BEF'; тип ингов
VAR Hammer = '0x13E3' ; хаммер
VAR Item = '0x0F51'; полученный даггер
VAR MeshSer, d, k , n, r , i


while true

    k=0
    
    repeat
    
        wait(1000)
        r=0
        
        if UO.Count(Iron)<KolIngots then
            n=UO.Count(Iron)
            UO.FindType(Iron,-1,Sunduk)
            UO.Grab(str(KolIngots-n),'finditem')
            wait(500)
        endif

        wait(1000)        

        if UO.Count(Iron) == 0 then
            uo.print('Stopped! Dont have ingots')
            uo.exec('terminate all')
        endif
        
        wait(1000)

            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.WaittargetType( Iron )
            uo.usetype( Hammer )
            UO.WaitMenu('Blacksmithing','Weapon','Fencing','Dagger')
            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>=KolDaggers
    
        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