Ultima Online Antares

sub Alchemy()
VAR REGi='0x0F88'; Тип регов
While not UO.DEAD()
UO.DeleteJournal()
if UO.Count( REGI )<1 then
UO.print('Реги кончились')
return
endif
UO.WaitMenu('What',Lesser Poison Potion')
UO.UseType( REGI )
repeat
wait(500)
until UO.injournal("You put") OR UO.InJournal("fail")
end if
wend
end sub

UO.WaitMenu('What',Lesser poison potion')

###----------Пойзон

sub Alchemy()

var i=1
VAR LastTimer
VAR Quant=0
VAR container = '0x40493C59';Конетейнер с бутылками
VAR ProductionBag = '0x40493C59';Сундук с пустыми мешками
VAR ProductionBag2 = '0x406F73E5';Сундук с полными мешками
VAR MeshSer, d
VAR Meshok = '0x0E76';тип мешка



ToHide()
UO.FindType( Meshok, -1, ProductionBag );
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' );
wait( 2000 )
UO.MoveItem( MeshSer, 0, ProductionBag2 );

UO.FindType('0x0F88', -1, 2)
if UO.FindCount() then
if UO.GetQuantity('finditem')<4 then
UO.Set('quiet','0')
UO.Print('Net regov. Rabota off')
return
end if
UO.FindType('0x0e9b', -1, 2)
if UO.FindCount() then
UO.FindType('container',-1,1)
if UO.FindCount() then
repeat
UO.FindType('0x0f0e','-1','container')
wait(200)
if UO.FindCount() then
UO.Grab('1','finditem')
wait(500)
repeat
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.AutoMenu ("What sort of", "Poison")
UO.UseType('0x0f88')
repeat
wait(300)
until UO.InJournal("You put") OR UO.InJournal("fail")
if NOT UO.InJournal("You have failed") then
UO.FindType('0x0F08',-1,'-1')
Quant=Quant+UO.FindCount()
while UO.FindCount()
UO.FindType('0x0F08')
UO.MoveItem('finditem','0','MeshSer')
wait(300)
wend
if Quant/i==10 then
UO.FindType('0x0F08','-1','MeshSer')
UO.Set('quiet','0')
UO.Set('quiet','1')
i=i+1
end if
else
repeat
wait(100)
until UO.Timer()>=LastTimer+100
end if
UO.CancelMenu()
until UO.InJournal("You put")
else
UO.Set('quiet','0')
UO.Print('Butilok net. Rabota off')
return
end if
until Quant==200
end if
UO.Set('quiet','0')
UO.Print('Rabota off')
else
UO.Set('quiet','0')
UO.Print('Net stupki. Rabota off')
return
end if
else
UO.Set('quiet','0')
UO.Print('Net neobhodimogo reagenta. Rabota off')
end if
end sub

###----------хайд

sub ToHide()
var LastTimer
if NOT UO.Hidden() then
UO.Exec('warmode 0')
UO.Print('Щас как спрячусь!..')
UO.useskill('Hiding')
UO.DeleteJournal()
LastTimer=UO.Timer()
repeat
wait(500)
if UO.InJournal("You can't seem to hide here") OR UO.InJournal("to perform") then
UO.useskill('Hiding')
UO.DeleteJournal()
end if
until UO.InJournal("You have hidden yourself well") OR (UO.Timer()>LastTimer+500)
end if
end sub