дрв. алхимия на хеалках
Posted: 2006-06-04 00:58:06
собсно это возможно?
DerMeister =) wrote:А что такое "ДРВ"?
Dunkan wrote:DerMeister =) wrote:А что такое "ДРВ"?
шард drw.ru
Dunkan wrote:тагда другой вопрос :
скрипт на тинкер. Если не получилось изготовить бутылку, как сделать так, чтобы скрипт обработал сообщение Tinkering failed и попробовал сделать бутылку заново?
Code: Select all
uo.injournal('You put|You fail')
NMY wrote:тинкер качают по журналуCode: Select all
uo.injournal('You put|You fail')
Dunkan wrote:догнал. теперь дальше проверяетса, есть бутылка или нет.
если бутылки нет, проходит весь скрипт и начинает сначала.
DerMeister =) wrote:Dunkan wrote:догнал. теперь дальше проверяетса, есть бутылка или нет.
если бутылки нет, проходит весь скрипт и начинает сначала.
Это как в школу через луну ходить...
Code: Select all
sub alchemy()
VAR Lasttimer
VAR gun ='0x4013e0d9' #суда ид оружия, которое травим
uo.exec('addobject SUNDUK')
while uo.targeting()
wait(100)
wend
while not uo.dead()
uo.FindType('0x0f88 ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0f88 ','0x0000','SUNDUK')
wait(1000)
uo.Grab('100','finditem')
wait(1000)
end if
uo.FindType('0x1bef ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1bef ','0x0000','SUNDUK')
wait(1000)
uo.Grab('100','finditem')
wait(1000)
end if
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.usetype('0x1ebc')
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
wait(500)
wend
If UO.InJournal("Tinkering failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
uo.FindType('0x0f0e','0x0000')
if uo.GetQuantity('finditem')>0 then
LastTimer=UO.Timer()
UO.DeleteJournal()
uo.usetype('0x0f88')
UO.WaitMenu('What','Poison')
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
Endif
wait(100)
uo.findtype('0x0f0e','0x0998')
if uo.GetQuantity('finditem')>0 then
uo.waittargetobject(gun,'finditem')
uo.useskill('Poisoning')
repeat
wait(10)
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison")
UO.DeleteJournal()
endif
wend
end sub
Dunkan wrote:народ, ну помогите!
как его можно ещё оптимизировать, как вставить проверку на лаги и т.д.?
Code: Select all
checklag()