1. //Get close to your target, press your associated key.
2. if not listexists 'NameTheTamed'
3.   //Set this name to whatever you want.
4.   createlist 'NameTheTamed'
5.   pushlist 'NameTheTamed' 'kill'
6. endif
7. if not listexists 'tameables'
8.   createlist 'tameables'
9.   pushlist 'tameables' 0x7t //Hellcat (Large)
10.   pushlist 'tameables' 0x62 //Hellhound
11.   pushlist 'tameables' 0xbc //Savage Ridgeback
12.   pushlist 'tameables' 0xbb //Ridgeback
13.   pushlist 'tameables' 0x17 //Dire Wolf
14.   pushlist 'tameables' 0xce //Lava Lizard
15.   pushlist 'tameables' 0x14 //Frost spider
16.   pushlist 'tameables' 0xc9 //Hellcat (Small)
17.   pushlist 'tameables' 0xda //Frenzied Ostard
18.   pushlist 'tameables' 0x50 //Giant Toad
19.   pushlist 'tameables' 0xe8 //Bull
20.   pushlist 'tameables' 0xe9 //Bull2
21.   pushlist 'tameables' 0x22 //White Wolf
22.   pushlist 'tameables' 0x25 //White Wolf2
23.   pushlist 'tameables' 0x1c //Giant Spider
24.   pushlist 'tameables' 0xd4 //Grizzly Bear
25.   pushlist 'tameables' 0xea //Great Hart
26.   pushlist 'tameables' 0x41 //Snow leopard
27.   pushlist 'tameables' 0x40 //Snow leopard
28.   pushlist 'tameables' 0x19 //Gray wolf
29.   pushlist 'tameables' 0x1b //Gray wolf2
30.   pushlist 'tameables' 0x30 //Scorpion
31.   pushlist 'tameables' 0xca //Alligator
32.   pushlist 'tameables' 0x3f //Cougar
33.   pushlist 'tameables' 0xd6 //Panther
34.   pushlist 'tameables' 0xa7 //Brown Bear
35.   pushlist 'tameables' 0xdd //Walrus
36.   pushlist 'tameables' 0xd5 //Polar Bear
37.   pushlist 'tameables' 0xd3 //Black Bear
38.   pushlist 'tameables' 0xdc //Llama
39.   pushlist 'tameables' 0x124 //Pack Llama
40.   pushlist 'tameables' 0x123 //Pack Horse
41.   pushlist 'tameables' 0xc8 //Horse
42.   pushlist 'tameables' 0xe2 //Horse2
43.   pushlist 'tameables' 0xcc //Horse3
44.   pushlist 'tameables' 0xed //Giant Rat
45.   pushlist 'tameables' 0xdb //Forest Ostard
46.   pushlist 'tameables' 0xd2 //Desert Ostard
47.   pushlist 'tameables' 0x122 //Boar
48.   pushlist 'tameables' 0xe1 //Timber Wolf
49.   pushlist 'tameables' 0xed //Hind
50.   pushlist 'tameables' 0x51 //Bullfrog
51. endif
52. if not @inrange 'tobetamed' 2
53.   @unsetalias 'tobetamed'
54.   for 0 in 'tameables'
55.     if @findtype tameables[] 'any' 'ground' 1 2
56.       @setalias 'tobetamed' 'found'
57.       break
58.     endif
59.   endfor
60. endif
61. if not @inrange 'tobetamed' 2
62.   headmsg 'No new creatures near you!'
63.   replay
64. endif
65. clearjournal
66. while name 'tobetamed' != NameTheTamed[0]
67.   if hits < 80
68.     autotargetobject 'tobetamed'
69.     useskill 'peacemaking'
70.     pause 1000
71.     autotargetobject 'tobetamed'
72.     useskill 'animal taming'
73.     @rename 'tobetamed' NameTheTamed[0]
74.     pause 1500
75.     warmode off
76.     warmode on
77.     warmode off
78.     @rename 'tobetamed' NameTheTamed[0]
79.   elseif hits < 80
80.     autotargetobject 'tobetamed'
81.     useskill 'peacemaking'
82.     pause 1000
83.     cancelautotarget
84.     canceltarget
85.     autotargetobject 'self'
86.     cast "greater heal"
87.     pause  3000
88.     target! 'Self'
89.   elseif hits > 80
90.     autotargetobject 'tobetamed'
91.     useskill 'animal taming'
92.     @rename 'tobetamed' NameTheTamed[0]
93.     pause 1500
94.     warmode off
95.     warmode on
96.     warmode off
97.     @rename 'tobetamed' NameTheTamed[0]
98.   endif
99.   if not @inrange 'tobetamed' 1
100.     if @x 'tobetamed' > x 'self' and @y 'tobetamed' > y 'self'
101.       walk 'Southeast'
102.     elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' > y 'self'
103.       walk 'Southwest'
104.     elseif @x 'tobetamed' > x 'self' and @y 'tobetamed' < y 'self'
105.       walk 'Northeast'
106.     elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' < y 'self'
107.       walk 'Northwest'
108.     elseif @x 'tobetamed' > x 'self' and @y 'tobetamed' == y 'self'
109.       walk 'East'
110.     elseif @x 'tobetamed' < x 'self' and @y 'tobetamed' == y 'self'
111.       walk 'West'
112.     elseif @x 'tobetamed' == x 'self' and @y 'tobetamed' > y 'self'
113.       walk 'South'
114.     elseif @x 'tobetamed' == x 'self' and @y 'tobetamed' < y 'self'
115.       walk 'North'
116.     endif
117.   endif
118. endwhile
119. //waitforcontext 'tobetamed' 8 20000
120. //waitforgump 0x909cc741 15000
121. //@replygump 0x909cc741 2
122. //@ignoreobject 'tobetamed'
123. //@unsetalias 'tobetamed'
124. replay
125.