Ultima Online Antares

sub nitki() ;
repeat
if UO.Count('0x0DF9') < 10 then
    UO.FindType( '0x0DF9', '0x0000', '0x40147DEA' )
    uo.grab(50,'finditem')
    wait(500)
end if
if UO.Count('0x0FA0') > 100 then
    UO.FindType('0x0FA0', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40147DEA' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
    wait(500)
end if
    uo.deletejournal()
    UO.WaitTargetObject( '0x4042A621' )
    UO.UseType( '0x0DF9' )
    wait(2700)
until uo.count( '0x0DF9', '0x0000', '0x40147DEA' ) < 1
end sub

sub sherst() ;
repeat
if UO.Count('0x0DF8') < 10 then
    UO.FindType( '0x0DF8', '0x0000', '0x40147DEA' )
    uo.grab(50,'finditem')
    wait(500)
end if
if UO.Count('0x0E1D') > 100 then
    UO.FindType('0x0E1D', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40147DEA' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
    wait(500)
end if
    uo.deletejournal()
    UO.WaitTargetObject( '0x4042A621' )
    UO.UseType( '0x0DF8' )
    wait(2700)
until uo.count( '0x0DF8', '0x0000', '0x40147DEA' ) < 1
end sub

sub tkanserst() ;
repeat
if UO.Count('0x0E1D') < 100 then
    UO.FindType( '0x0E1D', '0x0000', '0x40147DEA' )
    uo.grab(150,'finditem')
    wait(500)
end if
if UO.Count('0x0F95 ') > 3 then
    UO.FindType('0x0F95', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40147DEA' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
end if
    UO.WaitTargetObject( '0x4042A456' )
    UO.UseType( '0x0E1D' )
    wait(500)
    until uo.dead()
end sub

sub tkannitki() ;
while uo.count( '0x0FA0', '0x0000', '0x40EAFB9F' ) < 21000
if UO.Count('0x0FA0') < 100 then
    UO.FindType( '0x0FA0', '0x0000', '0x40EAFB9F' )
    uo.grab(150,'finditem')
    wait(500)
end if
if UO.Count('0x0F95 ') > 3 then
    UO.FindType('0x0F95', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40EAFB9F' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
end if
    UO.WaitTargetObject( '0x4078E07A' )
    UO.UseType( '0x0FA0' )
    wait(100)
    UO.WaitTargetObject( '0x4078DE91' )
    UO.UseType( '0x0FA0' )
    wait(100)
wend
end sub

sub rezat() ;
repeat
if UO.Count('0x0F95') < 10 then
    UO.FindType( '0x0F95', '0x0000', '0x40147DEA' )
    uo.grab(10,'finditem')
end if
if UO.Count('0x175D ') > 10 then
    UO.FindType('0x175D', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40147DEA' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
wait(400)
end if

    UO.WaitTargettype('0x0F95')
    UO.UseType('0x0F9E')
    wait(400)
until uo.dead()
end sub

sub balls() ;
repeat
if UO.Count('0x0DF8') < 10 then
    UO.FindType( '0x0DF8', '0x0000', '0x40147DEA' )
    uo.grab(50,'finditem')
    wait(500)
end if
if UO.Count('0x0E1D') > 100 then
    UO.FindType('0x0E1D', '-1', 'my' )
    UO.MoveItem( 'finditem', '0','0x40147DEA' ) ; тут поставьте сериал сундука из банка, куда складываем кожу и ростки
    wait(500)
end if
    uo.deletejournal()
    UO.WaitTargetObject( '0x4042A621' )
    UO.UseType( '0x0DF8' )
    wait(2700)
until uo.count( '0x0DF8', '0x0000', '0x40147DEA' ) < 5
nitki()
uo.exec ('terminate balls')
end sub