Old Taming Script

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
Post Reply
User avatar
Centurion
Posts: 342

Old Taming Script

Post by Centurion »

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
SrCreosota
Posts: 51

Re: Old Taming Script

Post by SrCreosota »

i looking for macro killing the tammed... this macro not found afk 100%
Image
Constin
Posts: 57

Re: Old Taming Script

Post by Constin »

just remove // from string :
//cast 'flame strike' 'tobetamed'
or change it to:

attack 'tobetamed'
Constin
Posts: 57

Re: Old Taming Script

Post by Constin »

SrCreosota wrote:i looking for macro killing the tammed... this macro not found afk 100%
but you don't need to kill, because script will ignore tamed animal.
Constin
Posts: 57

Re: Old Taming Script

Post by Constin »

SrCreosota wrote:i looking for macro killing the tammed... this macro not found afk 100%

Also i changed this part:

elseif @injournal 'You have no chance of taming this creature' or @injournal 'do not have a clear path to the animal'
@ignoreobject 'tobetamed'
@unsetalias 'tobetamed'
replay
SrCreosota
Posts: 51

Re: Old Taming Script

Post by SrCreosota »

Ty Constin, i love u!
Image
Post Reply