дайте плиз скрипт

[maximka4]

дайте плиз скрипт на алхимию(drw)чтоб брал из сундука ginseng и бутылки и делал heal,а потом сделайнный heal складывал в сундук.
если никто не может дать скрипт ,то плиз переделайте вот мой.




sub main()
sub Alchemy()
var Exit=0,LastTimer

while Exit<>1
uo.DeleteJournal()

uo.FindType('0x0F0E',-1,'backpack') ;
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x4019305E') ; (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F85','0x0000','backpack') ;
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F85','0x0000','0x4019305E') ;
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
LastTimer=uo.Timer()
uo.WaitMenu('What','(last)') ;
uo.UseType(0x0F85) ;

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
end sub

[Lord Desa]

sub alchemy()
# BETEPa„? #
VAR Exit=0, LastTimer
uo.print('C‘C?C­C¤C?CR C± C°C?C?C C¬CO CO C?C?C?C»C«CRC C¬CO')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('C‘C?C­C¤C?CR CRC?C¤C C?C?C?C»C«CRCO C?C°C®C±C C?C?')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()

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


UO.FindType('0x0F85','0x0000','backpack') ; Gs
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F85','0x0000','0x400515AA'); Gs, container
wait(1000)
UO.Grab('700','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(last)') ; menu
UO.UseType(0x0F85) ; Ginseng

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


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

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

[Bloodmoon]

Использй поиск!:)