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!
Заранее благодарен!!!!
Доработайте скрипт плз!!!
Moderators: Murderator+, Murderator
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
попробуй не проверял
!!
Спосибо! Да кстате ты на сходку оскома поедишь?