Need Taming Script
Posted: 2012-02-05 17:44:11
sorry if this is multiple post alrady for taming script but i do not understand other langguages..thanks no offense to others. can someone post a script for taming here =) thanks
You can edit this to use the Skill or other itens, and you will have to edit the JOURNAL.
Code: Select all
sub Taming()
uo.usetype('0x20D1')
uo.say("all Release")
wait(500)
uo.usetype('0x13F8')
wait(1000)
uo.LClick(320,219)
UO.DeleteJournal()
While not UO.InJournal("aceitou") and not UO.InJournal("falhou") and not UO.InJournal("is already tame")
Wait(500)
If UO.InJournal("aceitou") then
wait(2000)
uo.say(",exec Taming")
End If
If UO.InJournal("falhou") then
uo.say(",exec TamingX")
End If
Wend
End sub
sub TamingX()
UO.WaitTargetLast()
wait(700)
uo.usetype('0x13F8')
UO.DeleteJournal()
While not UO.InJournal("aceitou") and not UO.InJournal("falhou") and not UO.InJournal("is already tame")
Wait(500)
If UO.InJournal("aceitou") then
wait(2000)
uo.say(",exec Taming")
End If
If UO.InJournal("falhou") then
uo.say(",exec TamingX")
End If
Wend
End sub