;================
;Retame Sub
;================
SUB retame

	EVENT SysMessage Starting retame cycle...
	SET #TARGCURS 0
	SET #LTARGETID %anid
	GOSUB follow
	WAIT 5
	EVENT MACRO 13 35
	TARGET 5s
check:
	IF #TARGCURS <> 1
	{
		WAIT 1s
		GOTO check
	}
	EVENT MACRO 22 0

RETURN
;====================================




taming:

	SET %tp %stt - #SCNT
	GOSUB follow

	set %temp1 #jindex - 5
	FOR %i #jindex %temp
	{
		ScanJournal %i

		IF you_fail_to_tame in #journal || the_animal_has_been in #journal || that_is_too_far in #journal || %tp > %tamewait
			GOSUB retame

		DeleteJournal
	}
	set %temp2 #jindex - 5
	FOR %i #jindex %temp
	{
		ScanJournal %i

		If it_seems_to_accept in #journal
			GOTO tamed
	}
	GOTO taming