подкоректируйте плиз alchemy-poison

[EARNEST]

Code: Select all

sub alchemy() 
# BETEP™ # 
VAR Exit=0, LastTimer 
uo.print('Сундук с регами и бутылками') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда бутылки бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal()

UO.FindType('0x0F0E','0x09A6','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('100','finditem') 
wait(1000) 
Endif 

UO.FindType('0x0F84','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F84','0x0000','Bag') 
wait(1000) 
UO.Grab('80','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F84') 
UO.WaitMenu('What','(last)')        
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 
If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub 

если ставлю вместо (last) пойсон- то делает лезер пойсоны такая же ситуация с Cure и лезер кур
и как вставить Спирит спик? помогите плиз!
спасибо заранее!

[DeMoNs]

sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Ñóíäóê ñ ðåãàìè è áóòûëêàìè')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Ñóíäóê êóäà áóòûëêè áðîñàòü')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif

UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif

UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
UO.WaitMenu('What','(2)')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub

[EARNEST]

благодарю! ща опробую