Back to "b" tags

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