taming:

	SET %tp %stt - #sCnt
	GOSUB follow

	set %temp #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

		IF it_seems_to_accept in #journal
			GOTO tamed

		DeleteJournal
	}
	GOTO taming