//****************************************************************************
//SPHERE by : Menasoft ©1997-2000
//www.sphereserver.com
// All SPHERE script files and formats are copyright Menasoft & Partners.
// This file may be freely edited for personal use, but may not be distributed
// in whole or in part, in any format without express written permission from
// Menasoft & Partners.  All donations and contributions
// become the property of Menasoft & Partners.
//****************************************************************************
// FILE LAST UPDATED: Friday, April 28, 2000
// COPYRIGHT NOTICE: All files and content are copyright 1997-1999 Menasoft & Partners. All
// donations and contributions become the property of Menasoft.

// Purpose: Britannia Animal Trainer Script
// Notes:  This is used for general information pertaining to all Britannian
//	Animal Trainer's
// Current Keyword List:
//	job, what*do*do, trainer, train, animal, saddle, whip, dog, cat, horse
//	=============================================================================
[SPEECH jobAnimal]
ON=*job*
ON=*work*
ON=*what*do*do*
ON=*profession*
ON=*occupation*
ON=*trainer*
SAY @01aa,,2 1014435

ON=*Retrieve*
IF (<NPC>==BRAIN_ANIMAL_TRAINER)
//PETRETRIEVE
F_NEW_PETRETRIEVE
RETURN 1
ENDIF

ON=*Stable*
IF (<NPC>==BRAIN_ANIMAL_TRAINER)
//PETSTABLE
	IF (!(<STABLEISFULL>))
	SRC.TARGETF F_NEW_PETSTABLE <UID>
	ELSE
	SAY @88,,2 502670
	ENDIF
RETURN 1
ENDIF

ON=Claim list
FORCONTTYPE T_SHRINK_FIX
	IF (<SRC> == <TAG0.STABLE.OWNER>)
	LOCAL.TOTALPETSSTABLED += 1
	TRY SRC.CTAG0.PETSTABLED.<dLOCAL.TOTALPETSSTABLED>=<UID>
	ENDIF
ENDFOR
SDIALOG d_pet_retrieve

[EOF]