Yoko
http://forum.yoko.com.ua/

алхимия (не большая подправка)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2169		 Page 1 of 1
Author:  maximka4 [ 2004-12-06 21:31:35 ]
Post subject:  алхимия (не большая подправка)
люди у меня проблема, после тогокак все возьмет пишет you have no bottles to your pottion/ что мне переделать?? обьясните плз
p.s. тока не надо выкладывать свои скрипты!!! просто обьясните где ошибка!!

Code:
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
Author:  TapakaH [ 2004-12-06 22:17:28 ]
Post subject: 
у меня все работает, незнаю почему у тебя не пашет
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/