p.s. тока не надо выкладывать свои скрипты!!! просто обьясните где ошибка!!
Code: Select all
sub main()
sub alchemy()
# BETEPa"? #
VAR Exit=0, LastTimer
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x09BB','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('0x4023BAF4')
wait(100)
UO.Grab('all','finditem')
wait(100)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F85','0x0000','backpack') ; Gs
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F85','0x0000','0x4023BAF4'); Gs, container
wait(100)
UO.Grab('700','finditem')
wait(500)
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','0x4023BAF4')
wait(100)
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