Animal Taming

Details #

All scripts have been collected over the years and if available will still contain the creators details, these scripts may run well or not.

Scripts #

Animal Taming 2.sc #

sub main()
	UO.WarMode(0)
	UO.Set("finddistance", 0)
	Repeat
		UO.DeleteJournal()
		tame()
		mountDismount()
		UO.Say("all release")
	Until FALSE
end sub

sub tame()
	var time
	Repeat
		UO.DeleteJournal()
		UO.FindType('0x00DB', -1, 'ground')
		UO.WaitTargetObject('finditem')
		UO.UseSkill("Taming")
		time = 0
		Repeat
			Wait(200)
			time = time + 200
		Until UO.InJournal("failed|successfully|wait to") || time > 12000
		Wait(1000)
		If UO.InJournal("unresponsive|angered") Then
			animalLore()
		End If
	Until UO.InJournal("successfully") || time > 12000
end sub

sub mountDismount()
	UO.FindType(0x00DB, -1, 'ground')
	UO.UseObject('finditem')
	Wait(1000)
	UO.UseObject('self')
	Wait(1000)
end sub

sub animalLore()
	var time = 0
	var timeToWait = 320000
	
	Repeat
		UO.WaitTargetGround(0x00DB)
		UO.UseSkill("Animal Lore")
		Wait(5000)
		time = time + 5000
	Until time > timeToWait
end sub

Taming.sc #

Note: This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main()

UO.DeleteJournal()

ccc:
IF UO.InJournal('Saving in 2 minutes') THEN
goto waitloop
ELSE

UO.Exec("useskill 'Animal Taming'")
   wait(1000)
UO.LClick(317,191)
UO.LClick(317,191)
   wait(9000)
END IF

IF UO.InJournal('You successfully tame the') THEN
   UO.DeleteJournal()
   goto ddd
ELSE

IF UO.InJournal('You failed to tame') THEN
      goto bbb
ELSE

IF UO.InJournal('That creature looks pretty tame already.') THEN
   UO.SAY('All Release')
   UO.DeleteJournal()
   goto ccc #start again
ELSE

IF UO.InJournal('You cannot tame this!') THEN #usually happens when it clicks you (on osty) (lag again :P)
UO.LDblClick(317,191) # get off osty
      wait(1000)
UO.SAY('All Release') # release osty
UO.DeleteJournal()
   goto ccc #start again
ENDIF


bbb:
IF UO.InJournal('And have made the creature unresponsive to taming') THEN #if you fail and its unresp. then wait 6 minutes.
UO.SAY('Waiting')
   wait(360000)
   UO.DeleteJournal()
   goto ccc
ELSE

goto ccc

ENDIF

ddd:
   wait(2000)
UO.LDblClick(317,191) #  mount osty
   wait(2000)
UO.LDblClick(317,191) #dismount osty
   wait(2000)
UO.SAY('All Release')
goto ccc

waitloop:
REPEAT
 Wait(1000)
UNTIL UO.InJournal('World Saved')
UO.DeleteJournal()
goto ccc 
end sub

Taming22.sc #

sub macroTaming() 
var loreWait = 0 
UO.DeleteJournal() 

Tame: 
UO.WaitTargetGround(0x0317) #Replace with the graphic of your mount 
UO.Useskill('Animal Taming') 
wait(10500) 
if UO.InJournal('You successfully tame the') OR UO.InJournal('That creature looks pretty tame already') then 
UO.DeleteJournal() 
goto Mount 
else 
Wait(1000) 
if UO.InJournal('And have made the creature unresponsive to taming') then 
UO.DeleteJournal() 
Repeat 
UO.WaitTargetGround(0x0317) #Replace with the graphic of your mount 
UO.UseSkill("Animal Lore") 
loreWait = loreWait + 1 
wait(5000) 
UO.Print("You have waited " + str(loreWait*(5/60)) + " minutes") 
Until loreWait == 73 
loreWait = 0 
goto Tame 
else 
if UO.InJournal('You failed to tame') then 
UO.DeleteJournal() 
goto Tame 
else 
if UO.InJournal('You cannot tame this!') OR UO.InJournal('No item found') then 
UO.DeleteJournal() 
goto Dismount 
end if 

Mount: 
UO.UseFromGround(0x0317) #Replace with the graphic of your mount 
Wait(1000) 
Dismount: 
UO.UseObject(0x004C56EF) #Replace with your serial 
Wait(1000) 
UO.Say("All Release") 
Wait(1000) 
Goto Tame 

end sub

Taming2.sc #

Note: Script file create date 20/10/2003 This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main()
aaa:
	If UO.InJournal('the creature unresponsive') THEN
	UO.DeleteJournal()
	goto bbb
	ELSE
	goto ccc
	ENDIF
	
stuffed:
	If UO.InJournal('cannot tame this') THEN
	UO.DeleteJournal()
	goto aaa
	ELSE
	goto ddd
	ENDIF
		
bbb:
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(122)
	Wait(2000)
	UO.RClick(57,69)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	UO.Press(120)
	Wait(2000)
	UO.LClick(319,199)
	Wait(8000)
	goto ccc
	
ccc:
	Wait(1000)
	UO.Press(115)           # taming
	Wait(2000)
	UO.LClick(319,199)      # animal spot
	Wait(11000)
	IF UO.InJournal('You successfully tame') THEN
	UO.DeleteJournal()
	goto stuffed
	ELSE
	goto aaa
	ENDIF
	
ddd:
	Wait(1000)
	UO.LDblClick(319,199)	# animal spot
	UO.Press(112)
	Wait(2000)
	UO.LDblClick(321,199)	# slightly higher so only gets your player (as a failsafe for the macro)
	UO.Press(112)
	Wait(2000)
	UO.Say("all release")
	Wait(1000)
	IF UO.InJournal('You successfully tamed the') THEN
	goto ccc
	ELSE
	goto aaa
	ENDIF
end sub

Taming 3.sc #

Note: Script file create date 03/04/2002 This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

sub main() 
Var i 
Tame: 
   Uo.say("all release") 
   Uo.useskill("Animal Taming") 
   wait(1000) 
   Uo.Lclick(318,193) 
   wait(10000) 
   Uo.deletejournal(0) 
   If Uo.Injournal("And you have made the creature unresponsive to taming") then 
## when fail wait 5 mins or so doin animal lore          
      i=0 
      WHILE (i<20) 
         Uo.useskill("Animal Lore") 
         wait(400) 
         Uo.press(38) 
         wait(7000) 
         i=i+1 
      WEND 
      endIF 
## checks to see if the getting on and off has fucked up 
   If Uo.Injournal("You cannot tame this")then 
      Uo.LDblClick(318,193) 
      wait(3000) 
      Goto Tame 
   endIF 
   Uo.LDblClick(318,193) 
   wait(3000) 
   Uo.LDblClick(318,193) 
   wait(3000) 
   goto Tame 
end sub

Taming 4.sc #

Note: Script file create date 09/11/2003 This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.

#Arachnolepic Fit (n.) : The frantic dance performed immediately after you've accedently walked through a spider web.

sub r_taming_m()
UO.DeleteJournal()

ccc:
   wait(2000)
UO.RClick(328,194) #clicks the Osty (same square as I)
   wait(2000)
UO.Exec("useskill 'Animal Taming'") #ingame taming macro
   wait(2000)
UO.LClick(328,194) #clicks the Osty (same square as I)
   wait(11000)

IF UO.InJournal('You successfully tame the') THEN #if success goto mounting section
   UO.DeleteJournal()
   goto ddd
ELSE

IF UO.InJournal('You failed to tame') THEN #if fail start over
      goto bbb
ELSE

IF UO.InJournal('That creature looks pretty tame already.') THEN #if the creature is already tame
   UO.SAY('All Release') # release the creature :P
   UO.DeleteJournal()
   goto ccc #start again
ELSE

IF UO.InJournal('You cannot tame this!') THEN #usually happens when it clicks you (on osty) (lag again :P)
UO.LDblClick(328,194) # get off osty
      wait(1000)
UO.SAY('All Release') # release osty
UO.DeleteJournal()
   goto ccc #start again
ENDIF



bbb:
IF UO.InJournal('And have made the creature unresponsive to taming') THEN #if you fail and its unresp. then wait 6 minutes.
UO.SAY('Waiting')
   wait(360000)
   UO.DeleteJournal()
   goto ccc
ELSE

goto ccc

ENDIF



ddd:
   wait(2000)
UO.LDblClick(320,199) #  mount osty
   wait(2000)
UO.LDblClick(320,199) #dismount osty
   wait(2000)
UO.SAY('All Release')
goto ccc
end sub


sub blah()
uo.exec("waittargetobject 'mount'");
uo.exec("useskill 'Animal Taming'");
end sub

sub balh()
UO.LDblClick("0x00DB");
end sub

animal-taming2.sc #

Note: Script file create date 10/03/2004 This script has been added for archival purposes, it was created prior to the use of objects in scripts (limited scripting knowledge) and relied on the UO.Click function which was very unreliable.


sub main() 
aaa: 
IF UO.Life < 1 THEN  
UO.Press(120) #Presses tab to get into war mode 
   wait(1000) 
UO.LClick(1004,462) #presses logout button on paperdoll (change this to  click where PD #opens later on) 
   wait(1000) 
UO.LClick(546,394) #presses ok button on logout confirm 
   wait(8000) 
UO.LClick(619,453) #clicks the first login button 
   wait(2500) 
UO.LClick(619,453) #clicks 2nd login button 
   wait(2500) 
UO.LClick(619,453) #clicks char login button 
   wait(3000) 
UO.Press(121) #presses F10, i have it set to "open" "paperdoll" for macroin this... leave #PD where it opens 
   wait(1000) 
   goto bbb 
ENDIF 





bbb: 
IF UO.InJournal('And have made the creature unresponsive to taming') THEN #if you fail #and its unresp. then wait 6 minutes. 
UO.SAY('Waiting') 
   wait(360000) 
   UO.DeleteJournal() 
   goto aaa 
ELSE 
   goto ccc 
ENDIF 




ccc: 
   wait(1000) 
UO.Press(114) #ingame taming macro (F3 in this case) 
   wait(2000) 
UO.LClick(324,200) #clicks the Osty (same square as I) 
   wait(10000) 
    
IF UO.InJournal('You successfully tame the') THEN #if success goto mounting section 
   UO.DeleteJournal() 
   goto ddd 
ELSE 

IF UO.InJournal('You failed to tame') THEN #if fail start over    
      goto aaa 
ELSE 

IF UO.InJournal('That creature looks pretty tame already') THEN #if the creature is #already tame (lag fuckup) 
   UO.SAY('All Release') # release the creature :P 
   UO.DeleteJournal() 
   goto aaa #start again 
ELSE 

IF UO.InJournal('You cannot tame this!') THEN #usually happens when it clicks you (on #osty) (lag again :P) 
UO.LDblClick(324,200) # get off osty 
      wait(750) 
UO.SAY('All Release') # release osty 
UO.DeleteJournal() 
   goto aaa #start again 
ENDIF 




ddd: 
   wait(1000) 
UO.LDblClick(324,200) #  mount osty 
   wait(2000) 
UO.LDblClick(324,200) #dismount osty 
   wait(2000) 
UO.SAY('All Release') 
goto aaa 

end sub 


Powered by BetterDocs