1
Character skill advancement / Re: Tana's Legendary Taming Mastery Trainer
« on: October 10, 2016, 10:43:00 PM »
Thanks for the advice ive included it in the first line of the instructions
)

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
;=============================================================================
;-- Script Name:Legendary Taming Trainer
;-- Author: Tana
;-- Version: 1.0
;-- Client Tested with: 7.0.50.0
;-- EUO version tested with: 1.5.1.300
;-- Shard: OSI
;-- Revision Date: 6/9/16
;-- Public Release: 6/6/16
;-- Copyright: 2016
;=============================================================================
;--------------------Purpose--------------------------------------------------
;Trains Animal Taming frorm 90 to 120 using Masterys
;=============================================================================
;-------------------Instructions----------------------------------------------
;REQUIRES Taming Mastery (Any LvL) and Book of Masterys set to taming.
;Get a pet and press play!
;For fastest training wear as much Mana Regen as possible
;Meditation is recomended this script will attempt to med.
;Enjoy!
;=============================================================================
;Special Thanks to TM! For his med sub, The Ghost! for his debug help, and to Endless Night! for clearing up a buff problem!
;Also want to thank the SUO community without whom i would never have started scripting!
;=============================================================================
set %getpet #true
Call ScanBuffBar
Repeat
if %getpet = #true
{
Gosub pet
}
gosub mana
gosub train
until #false
sub pet
finditem %pet
if #findcnt < 1
{
display Select pet to train on
set #targcurs 1
while #targcurs = 1
{
wait 1
}
set %pet #LTARGETID
}
set %getpet #false
Return
Sub train
event macro 15 744
target 4s
set #LTARGETID %pet
event macro 22 0
wait 20
return
Sub mana
if #mana < 30
{
medloop:
event sysmessage meditation
event macro 13 46
wait 11s
call ScanBuffBar
if _Meditation_ in %BuffBarIconNames
{
event sysmessage Waiting ;<<<<<<<<<<<<<<<<<< i dont get this system message so the scan buff bar isnt returning a value.
gosub wait
}
if #mana < #maxmana
{
goto medloop
}
}
return
sub wait
Repeat
wait 1
until #mana = #maxmana
return
Sub mana
if #mana < 30
{
gosub meditate #true 0
return
Sub mana
if #mana < 30
{
medloop:
event macro 13 46
wait 11s
call ScanBuffBar
wait 10
if _Meditation_ in %BuffBarIconNames
{
gosub wait
}
if #mana < #maxmana
{
goto medloop
}
}
return
sub wait
Repeat
wait 1
until #mana = #maxmana
return