Code: Select all
if not listexists 'NameTheTamed'
createlist 'NameTheTamed'
//Set this name to whatever you want.
pushlist 'NameTheTamed' 'DeadMeat'
endif
if not listexists 'tameables'
createlist 'tameables'
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
if not @inrange 'tobetamed' 12
@unsetalias 'tobetamed'
for 0 in 'tameables'
if @findtype tameables[] 'any' 'ground' 1 12
@setalias 'tobetamed' 'found'
break
endif
endfor
endif
if not @inrange 'tobetamed' 12
headmsg 'No new creatures near you!'
pause '10000'
playmacro 'Auto Tamer'
//stop
endif
autotargetobject 'tobetamed'
useskill 'animal taming'
clearjournal
while not dead
if @injournal 'It seems to accept you as master.' or @injournal "That wasn't even challenging"
@rename 'tobetamed' NameTheTamed[0]
waitforcontext 'tobetamed' 8 20000
waitforgump 0x909cc741 15000
@replygump 0x909cc741 2
pause '1000'
//cast 'flame strike' 'tobetamed'
pause '3000'
@ignoreobject 'tobetamed'
@unsetalias 'tobetamed'
replay
elseif @injournal 'You fail to tame the creature' or @injournal 'too far away'
replay
elseif @injournal 'You have no chance of taming this creature' or @injournal 'do not have a clear path to the animal'
replay
elseif @injournal 'This animal has had too many owners' or @injournal 'That animal looks tame already'
@ignoreobject 'tobetamed'
@unsetalias 'tobetamed'
replay
else
pause 400
if not @inrange 'tobetamed' 1
if @x 'tobetamed' > x 'self' and @y 'tobetamed' > y 'self'
walk 'Southeast'
elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' > y 'self'
walk 'Southwest'
elseif @x 'tobetamed' > x 'self' and @y 'tobetamed' < y 'self'
walk 'Northeast'
elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' < y 'self'
walk 'Northwest'
elseif @x 'tobetamed' > x 'self' and @y 'tobetamed' == y 'self'
walk 'East'
elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' == y 'self'
walk 'West'
elseif @x 'tobetamed' == x 'self' and @y 'tobetamed' > y 'self'
walk 'South'
elseif @x 'tobetamed' == x 'self' and @y 'tobetamed' < y 'self'
walk 'North'
endif
endif
endif
endwhile