Genorb
Wanderer
Hey all. I just made a script and thought some people might like to use it. Here's what it does:
1. Targets nearest animal from the list, runs to it, and attempts to tame it
2. Until success, it will constantly move you closer if the target begins moving away
3. Scans journal for 'You fail to tame' and instantly tries again when you fail
4. When you succeed, you kill it
5. Will run to next taming target and begin tamingwhile you kill off the previous one
6. Absolutely no pauses! It's blazing fast.
Added 3 options for attacking it, flamestriking it, and using another pet via all kill. Just uncomment the one you want to use and leave the other 2 commented. If you can't kill what you are taming with a weapon OR in one flamestrike, I'd advise using a beetle (or something even stronger) to kill them off. A beetle can kill all of the generally used training animals (wolves, ice isle, bulls) fairly quickly.
Works seamlessly when you loop it. It will tame and kill everything from the list like a machine until there's nothing left in the area. Assuming things are respawning fast enough, it can pretty much go forever. If nothing is nearby it will scan until something is and then... wait for it... tame it.
Please do hit me with some feedback if you try it out. Macro:
1. Targets nearest animal from the list, runs to it, and attempts to tame it
2. Until success, it will constantly move you closer if the target begins moving away
3. Scans journal for 'You fail to tame' and instantly tries again when you fail
4. When you succeed, you kill it
5. Will run to next taming target and begin tamingwhile you kill off the previous one
6. Absolutely no pauses! It's blazing fast.
Added 3 options for attacking it, flamestriking it, and using another pet via all kill. Just uncomment the one you want to use and leave the other 2 commented. If you can't kill what you are taming with a weapon OR in one flamestrike, I'd advise using a beetle (or something even stronger) to kill them off. A beetle can kill all of the generally used training animals (wolves, ice isle, bulls) fairly quickly.
Works seamlessly when you loop it. It will tame and kill everything from the list like a machine until there's nothing left in the area. Assuming things are respawning fast enough, it can pretty much go forever. If nothing is nearby it will scan until something is and then... wait for it... tame it.
Please do hit me with some feedback if you try it out. Macro:
Code:
//Genorb's Tame & Kill 1.2
clearjournal
canceltarget
removetimer 'stuckalert'
@unsetalias 'tamingtarget'
//PUT "//" BEFORE THINGS YOU DON'T WANT TO TAME!
if not listexists 'tameables'
createlist 'tameables'
pushlist 'tameables' 0x7a //Unicorn
pushlist 'tameables' 0x84 //Ki-Rin
pushlist 'tameables' 0x7t //Hellcat (Large)
pushlist 'tameables' 0x62 //Hellhound
pushlist 'tameables' 0xbc //Savage Ridgeback
pushlist 'tameables' 0xbb //Ridgeback
pushlist 'tameables' 0x17 //Dire Wolf
pushlist 'tameables' 0xce //Lava Lizard
// pushlist 'tameables' 0x14 //Frost spider
pushlist 'tameables' 0xc9 //Hellcat (Small)
// pushlist 'tameables' 0xda //Frenzied Ostard
pushlist 'tameables' 0x50 //Giant Toad
pushlist 'tameables' 0xe8 //Bull
pushlist 'tameables' 0xe9 //Bull2
pushlist 'tameables' 0x22 //White Wolf
pushlist 'tameables' 0x25 //White Wolf2
// pushlist 'tameables' 0x1c //Giant Spider
pushlist 'tameables' 0xd4 //Grizzly Bear
pushlist 'tameables' 0xea //Great Hart
pushlist 'tameables' 0x41 //Snow leopard
pushlist 'tameables' 0x40 //Snow leopard
pushlist 'tameables' 0x19 //Gray wolf
pushlist 'tameables' 0x1b //Gray wolf2
// pushlist 'tameables' 0x30 //Scorpion
// pushlist 'tameables' 0xca //Alligator
pushlist 'tameables' 0x3f //Cougar
pushlist 'tameables' 0xd6 //Panther
pushlist 'tameables' 0xa7 //Brown Bear
pushlist 'tameables' 0xdd //Walrus
pushlist 'tameables' 0xd5 //Polar Bear
pushlist 'tameables' 0xd3 //Black Bear
// pushlist 'tameables' 0xdc //Llama
// pushlist 'tameables' 0x124 //Pack Llama
// pushlist 'tameables' 0x123 //Pack Horse
// pushlist 'tameables' 0xc8 //Horse
// pushlist 'tameables' 0xe2 //Horse2
// pushlist 'tameables' 0xcc //Horse3
// pushlist 'tameables' 0xed //Giant Rat
// pushlist 'tameables' 0xdb //Forest Ostard
// pushlist 'tameables' 0xd2 //Desert Ostard
pushlist 'tameables' 0x122 //Boar
pushlist 'tameables' 0xe1 //Timber Wolf
pushlist 'tameables' 0xed //Hind
pushlist 'tameables' 0x51 //Bullfrog
endif
//Step 1: Scan for animals and initiate
while not @injournal 'You start to tame' and not @injournal 'This animal has had'
while not @findalias 'tamingtarget'
for 0 to 'tameables'
// 'gray' 'innocent' 'any'
if @findtype tameables[] 'any' 'world' 'closest'
@setalias 'tamingtarget' 'found'
endif
endfor
endwhile
if not timerexists 'stuckalert'
createtimer 'stuckalert'
endif
settimer 'stuckalert' 0
while not @inrange 'tamingtarget' 1
if @x 'tamingtarget' > x 'self' and @y 'tamingtarget' > y 'self'
run 'Southeast'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' > y 'self'
run 'Southwest'
elseif @x 'tamingtarget' > x 'self' and @y 'tamingtarget' < y 'self'
run 'Northeast'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' < y 'self'
run 'Northwest'
elseif @x 'tamingtarget' > x 'self' and @y 'tamingtarget' == y 'self'
run 'East'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' == y 'self'
run 'West'
elseif @x 'tamingtarget' == x 'self' and @y 'tamingtarget' > y 'self'
run 'South'
elseif @x 'tamingtarget' == x 'self' and @y 'tamingtarget' < y 'self'
run 'North'
endif
if timer 'stuckalert' > 20000 and not @injournal 'You start to tame'
sysmsg 'CODE RED STUCK ON SOMETHING' 33
headmsg 'MOVE ME TO THE TARGET, IDIOT' 33
pause 2000
endif
endwhile
if @injournal 'Someone else is already' or @injournal 'That animal looks tame'
sysmsg 'Target is tamed or being tamed! Ignoring that one for now.' 33
ignoreobject 'tamingtarget'
@unsetalias 'tamingtarget'
clearjournal
endif
useskill 'Animal Taming'
waitingfortarget 2000
autotargetobject 'tamingtarget'
pause 500
endwhile
//Step 2:Tame until success
while not @injournal 'It seems to accept you' and not @injournal 'This animal has had'
if not @inrange 'tamingtarget' 1
if @x 'tamingtarget' > x 'self' and @y 'tamingtarget' > y 'self'
walk 'Southeast'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' > y 'self'
walk 'Southwest'
elseif @x 'tamingtarget' > x 'self' and @y 'tamingtarget' < y 'self'
walk 'Northeast'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' < y 'self'
walk 'Northwest'
elseif @x 'tamingtarget' > x 'self' and @y 'tamingtarget' == y 'self'
walk 'East'
elseif @x 'tamingtarget' < x 'self' and @y 'tamingtarget' == y 'self'
walk 'West'
elseif @x 'tamingtarget' == x 'self' and @y 'tamingtarget' > y 'self'
walk 'South'
elseif @x 'tamingtarget' == x 'self' and @y 'tamingtarget' < y 'self'
walk 'North'
endif
endif
if @injournal 'You fail to tame'
clearjournal
useskill 'Animal Taming'
waitingfortarget 2000
autotargetobject 'tamingtarget'
pause 500
endif
endwhile
//Step 3: Kill
msg 'all guard me'
msg 'all guard me'
//CHOOSE YOUR WEAPON!
//____Use Bushido wack____
//cast "Lightning Strike"
//attack 'tamingtarget'
//_____Use Magery Eval____
//cast 'Flamestrike"
//waitingfortarget 2000
//autotargetobject 'tamingtarget'
//____Use a bigger pet____
//msg 'all kill'
//waitingfortarget 2000
//autotargetobject 'tamingtarget'
//pause 100
msg 'all kill'
waitingfortarget 2000
autotargetobject 'tamingtarget'
clearignorelist
ignoreobject 'tamingtarget'
removetimer 'stuckalert'
Last edited: