Animal Taming by nabolas

# Shelter Dungeon Animal Taming by Jaseowns # UO Outlands #Nabolas changes: # Changed to work past 80. www.tameoutlands.com has tons of information on taming and where to go. # Frog room lvl 1 shelter dungeon for 50-68 then move to shelter dungeon lvl 2. # Tame a colossal frog for a tank in the frog room to use before running the macro. # Use a colossal frog for tank till you leave shelter, then get a scarab. # 80-85 Deep Crawler # 85-90 Drake, Dragon Whelp or Sabeartooth # 90-95 Crab Husk #95-100 Dragon or Molten Mongbat #100-105 Snowdrift or Wisp #105-110 Earth Drake or Acarid #110-115 Sphinx or Aegis Minion #115-120 Earth Dragon, Eldritch Dragon or Colossal Sandroach @setvar! doYouWantATankPetToTryAndStayAlive 1 if not varexist jankPet @setvar! jankPet 0 endif if doYouWantATankPetToTryAndStayAlive = 1 if followers > 0 and jankPet = 0 if tameThisThing != 0 and find tameThisThing ground -1 -1 2 getlabel tameThisThing tamedDesc if "tame" in tamedDesc overhead "Automatically setting jankPet" @setvar! jankPet tameThisThing endif endif if jankPet = 0 overhead "Select your tank pet to keep alive" 88 sysmsg "Select your tank pet to keep alive" 88 @setvar! jankPet endif elseif jankPet != 0 and followers = 0 @setvar! jankPet 0 endif endif if skill "Animal Taming" < 50 overhead "Go train to 50 skill" 88 stop elseif skill "Animal Taming" >= 120 overhead "Taming Capped! Congrats!!" 88 stop endif @setvar! tamingTimerCd 11500 if not timerexists tamingTimer settimer tamingTimer tamingTimerCd endif if not timerexists sayTimer settimer sayTimer 0 endif @setvar! healPetCheckTimerCd 10000 if not timerexists healPetCheckTimer settimer healPetCheckTimer healPetCheckTimerCd endif @setvar! overheadHelperTimerCd 2000 if not timerexists overheadHelperTimer settimer overheadHelperTimer overheadHelperTimerCd endif @setvar! skillTimerCd 11000 if not timerexists skillTimer settimer skillTimer skillTimerCd endif if dead overhead "You dead bro" 34 wait 1000 replay endif if doYouWantATankPetToTryAndStayAlive = 1 and skill "veterinary" > 0 if find jankPet ground -1 -1 2 and timer healPetCheckTimer >= healPetCheckTimerCd if not bandaging and findtype "clean bandage%s%" backpack as item dclick item wft 200 target jankPet settimer healPetCheckTimer 0 if targetexists hotkey "Cancel current target" endif endif endif endif if followers = 0 @setvar! myFollowers 0 settimer sayTimer 0 elseif followers = 1 @setvar! myFollowers 1 elseif followers = 2 @setvar! myFollowers 2 elseif followers = 3 @setvar! myFollowers 3 elseif followers = 4 @setvar! myFollowers 4 elseif followers = 5 @setvar! myFollowers 5 overhead "Too many followers - release some!" 88 if tameThisThing != 0 if skill "herding" > 0 while not gumpexists 2426193729 menu tameThisThing 10 wait 50 endwhile else while not gumpexists 2426193729 menu tameThisThing 9 wait 50 endwhile endif while gumpexists 2426193729 gumpresponse 1 2426193729 wait 50 endwhile else wait 2000 endif replay endif @clearignore @setvar! tameThisThing 0 if skill "Animal Taming" < 60 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 getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 75 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 getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile //my changes elseif skill "Animal Taming" < 80 while findtype "a corpse eater|a primordial|a cave bear|a drake whelp|a chameleon" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 85 while findtype "a deep crawler" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 90 while findtype "a drake|a dragon whelp|a sabeartooth" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 95 while findtype "a husk crab" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 100 while findtype "a dragon|a molten mongbat" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 105 while findtype "a snowdrift|a wisp" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 110 while findtype "an earth drake|an acarid" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" < 115 while findtype "a sphinx|an aegis minion" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile elseif skill "Animal Taming" >= 120 while findtype "an earth dragon|an eldritch dragon|a colossal sandroach" ground -1 -1 8 as janimal getlabel janimal desc if "released" in desc // ignore them @ignore janimal elseif "tame" in desc or "bonded" in desc // ignore them @ignore janimal else @setvar! tameThisThing janimal break endif endwhile //end of my changes endif if tameThisThing != 0 if timer overheadHelperTimer >= overheadHelperTimerCd overhead "!! attempting to tame !!" 88 tameThisThing settimer overheadHelperTimer 0 endif clearsysmsg settimer tamingTimer 0 settimer sayTimer 0 if followers > 0 say "all kill" wft 500 target tameThisThing settimer sayTimer 0 wait 200 while timer sayTimer < 2550 endwhile say "all follow me" wait 1000 warmode off endif @setvar! isTamed 0 @setvar! isTaming 1 while isTaming = 1 if dead replay endif if doYouWantATankPetToTryAndStayAlive = 1 and skill "veterinary" > 0 if find jankPet ground -1 -1 2 and timer healPetCheckTimer >= healPetCheckTimerCd if not bandaging and findtype "clean bandage%s%" backpack as item dclick item wft 200 target jankPet settimer healPetCheckTimer 0 if targetexists hotkey "Cancel current target" endif endif endif endif while not targetexists and not dead dclicktype "dagger" backpack wft 500 endwhile if targetexists target tameThisThing endif wait 200 if insysmsg "That is too far away." overhead "Too far away bro.. move closer!" 34 overhead "THIS IS MY TARGET" 88 tameThisThing wait 500 if timer tamingTimer > 15000 @setvar! isTaming 0 endif elseif insysmsg "use a bladed item on that" clearsysmsg if timer skillTimer >= skillTimerCd getlabel tameThisThing isItTamedYetDesc if "tame" in isItTamedYetDesc @setvar! isTamed 1 @setvar! isTaming 0 break endif while not targetexists and not dead useskill "taming" wft 500 endwhile target tameThisThing settimer skillTimer 0 endif wait 200 if insysmsg "That is too far away." overhead "Too far away bro" 34 @setvar! isTaming 0 elseif insysmsg "Target cannot be seen." overhead "Cannot be seen bro" 29 @setvar! isTaming 0 elseif targetexists @setvar! isTaming 0 hotkey "cancel current target" endif endif endwhile if followers > 3 and isTamed = 1 and tameThisThing != 0 if skill "herding" > 0 while not gumpexists 2426193729 menu tameThisThing 10 wait 50 endwhile else while not gumpexists 2426193729 menu tameThisThing 9 wait 50 endwhile endif while gumpexists 2426193729 gumpresponse 1 2426193729 wait 50 endwhile endif elseif timer overheadHelperTimer >= overheadHelperTimerCd overhead "Nothing to tame found!" 34 settimer overheadHelperTimer 0 endif wait 100 replay