taming upgrade
Posted: 2006-12-03 22:55:28
надо очень
Code: Select all
sub Taming()
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('TOT')
UO.UseSkill('Animal Taming')
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
end sub
-=Morf=- wrote:Code: Select all
sub Taming()
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('TOT')
UO.UseSkill('Animal Taming')
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
end sub
Добавте пжлста чтобы кормил выбранный объект 'TOT' сеном, а сено брал из сундука
Code: Select all
findtype(seno,'-1','backpack')
if findcount() then
uo.waittargetobject('TOT')
moveitem('finditem')
wait(750)
else
findtype(seno,'-1',sunduk)
if findcount() then
uo.waittargetobject('TOT') # || moveitem('finditem','TOT')
uo.moveitem('finditem') #
wait(750)
else
uo.closeuo()
end if
end if