Shelter Dungeon Animal Taming by Jaseowns
Description: This is just for shelter dungeon - trying to get you to 80 skill. At the time of the post, it does not try to heal any pet you might have.
1# Shelter Dungeon Animal Taming by Jaseowns
2# UO Outlands
3# Breakdown of mobs:
4# min 30 skill
5 # a mongbat
6 # a giant rat
7# min 40 skill
8 # a guar
9 # a wolf
10# min 50 skill
11 # a familiar
12 # a giant frog
13 # a primordial whelp
14 # a colossal frog
15 # a giant bat
16 # a monitor hatchling
17# min 55 skill
18 # a corpse eater
19# min 60 skill
20 # a primordial
21 # a cave bear
22# min 75 skill
23 # a drake whelp
24 # a chameleon
25
26@setvar! doYouWantATankPetToTryAndStayAlive 1
27if not varexist jankPet
28 @setvar! jankPet 0
29endif
30
31if doYouWantATankPetToTryAndStayAlive = 1
32 if followers > 0 and jankPet = 0
33
34 if tameThisThing != 0 and find tameThisThing ground -1 -1 2
35 getlabel tameThisThing tamedDesc
36 if "tame" in tamedDesc
37 overhead "Automatically setting jankPet"
38 @setvar! jankPet tameThisThing
39 endif
40 endif
41
42 if jankPet = 0
43 overhead "Select your tank pet to keep alive" 88
44 sysmsg "Select your tank pet to keep alive" 88
45 @setvar! jankPet
46 endif
47 elseif jankPet != 0 and followers = 0
48 @setvar! jankPet 0
49 endif
50endif
51
52if skill "Animal Taming" < 50
53 overhead "Go train to 50 skill" 88
54 stop
55elseif skill "Animal Taming" >= 80
56 overhead "Go use another script uorazorscripts.com" 88
57 stop
58endif
59
60@setvar! tamingTimerCd 11500
61if not timerexists tamingTimer
62 settimer tamingTimer tamingTimerCd
63endif
64
65if not timerexists sayTimer
66 settimer sayTimer 0
67endif
68
69@setvar! healPetCheckTimerCd 10000
70if not timerexists healPetCheckTimer
71 settimer healPetCheckTimer healPetCheckTimerCd
72endif
73
74@setvar! overheadHelperTimerCd 2000
75if not timerexists overheadHelperTimer
76 settimer overheadHelperTimer overheadHelperTimerCd
77endif
78
79@setvar! skillTimerCd 11000
80if not timerexists skillTimer
81 settimer skillTimer skillTimerCd
82endif
83
84if dead
85 overhead "You dead bro" 34
86 wait 1000
87 replay
88endif
89
90if doYouWantATankPetToTryAndStayAlive = 1 and skill "veterinary" > 0
91 if find jankPet ground -1 -1 2 and timer healPetCheckTimer >= healPetCheckTimerCd
92 if not bandaging and findtype "clean bandage%s%" backpack as item
93 dclick item
94 wft 200
95 target jankPet
96 settimer healPetCheckTimer 0
97 if targetexists
98 hotkey "Cancel current target"
99 endif
100 endif
101 endif
102endif
103
104if followers = 0
105 @setvar! myFollowers 0
106 settimer sayTimer 0
107elseif followers = 1
108 @setvar! myFollowers 1
109elseif followers = 2
110 @setvar! myFollowers 2
111elseif followers = 3
112 @setvar! myFollowers 3
113elseif followers = 4
114 @setvar! myFollowers 4
115elseif followers = 5
116 @setvar! myFollowers 5
117 overhead "Too many followers - release some!" 88
118 if tameThisThing != 0
119 while not gumpexists 2426193729
120 menu tameThisThing 9
121 wait 50
122 endwhile
123 while gumpexists 2426193729
124 gumpresponse 1 2426193729
125 wait 50
126 endwhile
127 else
128 wait 2000
129 endif
130 replay
131endif
132
133@clearignore
134
135@setvar! tameThisThing 0
136
137if skill "Animal Taming" < 60
138 while findtype "a mongbat|a giant rat|a guar|a wolf|a familiar|a giant frog|a primordial whelp|a colossal frog|a giant bat|a monitor hatchling" ground -1 -1 8 as janimal
139 getlabel janimal desc
140 if "released" in desc
141 // ignore them
142 @ignore janimal
143 elseif "tame" in desc or "bonded" in desc
144 // ignore them
145 @ignore janimal
146 else
147 @setvar! tameThisThing janimal
148 break
149 endif
150 endwhile
151elseif skill "Animal Taming" < 75
152 while findtype "a primordial|a cave bear|a corpse eater|a familiar|a guar|a wolf|a giant frog|a primordial whelp|a colossal frog|a giant bat|a monitor hatchling" ground -1 -1 8 as janimal
153 getlabel janimal desc
154 if "released" in desc
155 // ignore them
156 @ignore janimal
157 elseif "tame" in desc or "bonded" in desc
158 // ignore them
159 @ignore janimal
160 else
161 @setvar! tameThisThing janimal
162 break
163 endif
164 endwhile
165elseif skill "Animal Taming" >= 75
166 while findtype "a corpse eater|a primordial|a cave bear|a drake whelp|a chameleon" ground -1 -1 8 as janimal
167 getlabel janimal desc
168 if "released" in desc
169 // ignore them
170 @ignore janimal
171 elseif "tame" in desc or "bonded" in desc
172 // ignore them
173 @ignore janimal
174 else
175 @setvar! tameThisThing janimal
176 break
177 endif
178 endwhile
179endif
180
181if tameThisThing != 0
182
183 if timer overheadHelperTimer >= overheadHelperTimerCd
184 overhead "!! attempting to tame !!" 88 tameThisThing
185 settimer overheadHelperTimer 0
186 endif
187
188 clearsysmsg
189
190 settimer tamingTimer 0
191 settimer sayTimer 0
192
193 if followers > 0
194 say "all kill"
195 wft 500
196 target tameThisThing
197 settimer sayTimer 0
198 wait 200
199 while timer sayTimer < 2550
200 endwhile
201 say "all follow me"
202 wait 1000
203 warmode off
204 endif
205
206 @setvar! isTamed 0
207 @setvar! isTaming 1
208
209 while isTaming = 1
210
211 if dead
212 replay
213 endif
214
215 if doYouWantATankPetToTryAndStayAlive = 1 and skill "veterinary" > 0
216 if find jankPet ground -1 -1 2 and timer healPetCheckTimer >= healPetCheckTimerCd
217 if not bandaging and findtype "clean bandage%s%" backpack as item
218 dclick item
219 wft 200
220 target jankPet
221 settimer healPetCheckTimer 0
222 if targetexists
223 hotkey "Cancel current target"
224 endif
225 endif
226 endif
227 endif
228
229 while not targetexists and not dead
230 dclicktype "dagger" backpack
231 wft 500
232 endwhile
233 if targetexists
234 target tameThisThing
235 endif
236 wait 200
237 if insysmsg "That is too far away."
238 overhead "Too far away bro.. move closer!" 34
239 overhead "THIS IS MY TARGET" 88 tameThisThing
240 wait 500
241 if timer tamingTimer > 15000
242 @setvar! isTaming 0
243 endif
244 elseif insysmsg "use a bladed item on that"
245 clearsysmsg
246 if timer skillTimer >= skillTimerCd
247
248 getlabel tameThisThing isItTamedYetDesc
249
250 if "tame" in isItTamedYetDesc
251 @setvar! isTamed 1
252 @setvar! isTaming 0
253 break
254 endif
255
256 while not targetexists and not dead
257 useskill "taming"
258 wft 500
259 endwhile
260 target tameThisThing
261 settimer skillTimer 0
262 endif
263 wait 200
264 if insysmsg "That is too far away."
265 overhead "Too far away bro" 34
266 @setvar! isTaming 0
267 elseif insysmsg "Target cannot be seen."
268 overhead "Cannot be seen bro" 29
269 @setvar! isTaming 0
270 elseif targetexists
271 @setvar! isTaming 0
272 hotkey "cancel current target"
273 endif
274 endif
275 endwhile
276
277 if followers > 3 and isTamed = 1 and tameThisThing != 0
278 while not gumpexists 2426193729
279 menu tameThisThing 9
280 wait 50
281 endwhile
282 while gumpexists 2426193729
283 gumpresponse 1 2426193729
284 wait 50
285 endwhile
286 endif
287
288elseif timer overheadHelperTimer >= overheadHelperTimerCd
289 overhead "Nothing to tame found!" 34
290 settimer overheadHelperTimer 0
291endif
292
293
294wait 100
295replay
296
297
298
299