Yoko

Posted: **2004-07-07 02:59:32**

sub tinkering()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace') ; ??? ????
UO.UseType(0x1EBC) ; ???? ??????

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ; ????? ???????? ??????
EndIf
wait(1000)
wend
end sub

Мне надо 4тоб он когда сделает 300 продовал вендору у которого буду стоRть R!
Заранее благодарен!!!!

Posted: **2004-07-07 18:13:11**

Code: Select all

sub Jewerly() 
VAR Exit=0, LastTimer, TryToPoison 
while Exit<>1 
UO.DeleteJournal() 
UO.FindType('0x1086','0x0000','backpack'); 
If UO.GetQuantity('finditem')>200 Then 
wait(1000) 
uo.sell(listname,[vendorname]); тут лист продажи и имя вендора
wait(1000) 
Endif 
LastTimer=UO.Timer() 
UO.DeleteJournal() 
UO.UseType('0x1EBC') ; 
UO.WaitMenu ('Tinkering','Jewelry','Jewelry','bracelet')  ;
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed") 
wait(500) 
wend 
If UO.InJournal("You failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub

попробуй не проверял

Posted: **2004-07-09 05:18:32**

Спосибо! Да кстате ты на сходку оскома поедишь?

Posted: **2004-07-09 06:42:20**

Так я ДРВшник......наф мне оском...И не флуди ...пиши в асю

Yoko

Доработайте скрипт плз!!!

Доработайте скрипт плз!!!

!!