Алхимия ДРВ

[prof]

Переделал скрипт Алхимии на пойзоне Асканели, под Манки. Вот что получилось:

Code: Select all

sub Alchemy_TM()
var Sunduk='0x402FA71C' ; Откуда брать, и куда складывать 
VAR LastTimer
var i=0 

uo.useobject('backpack') 
uo.cancelmenu() 
uo.automenu('What sort of potion do you want to','Total Mana') 

uo.useobject(Sunduk) 
wait(1000) 
while 1==1 

i=i+1 
if i==50 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
end if 

UO.FindType('0x0F0E','0x0000','backpack') 
While UO.GetQuantity('finditem')<20 
UO.FindType('0x0F0E','0x0000',Sunduk) 
wait(200) 
UO.Grab('100','finditem') 
wait(200) 
Wend 

UO.FindType('0x0F87','0x0000','backpack') 
While UO.GetQuantity('finditem')<20 
UO.FindType('0x0F87','0x0000',Sunduk) 
wait(200) 
UO.Grab('600','finditem') 
wait(200) 
Wend 

uo.deletejournal() 
LastTimer=UO.Timer() 
uo.usetype('0x0F87','0x0000') 
repeat 
Wait(10) 
until UO.InJournal("You put the") OR UO.InJournal("You toss the failed") OR (UO.Timer()>LastTimer+200) 


UO.FindType('0x0F0E','0x09DF') 
if UO.GetQuantity('finditem')>0 then 

if uo.weight > 700 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.Grab('0','finditem') 
wait(200) 
UO.UnSetReceivingContainer()
end if 
 
end if 

wend 
end sub

Но после ВСа скрипт сбивается. Можно исправить что нибудь где нибудь?