ON=@Create
TAG.SAVE=1
TIMER = 30
MORE = 0

ON=@CLICK
MESSAGE Total <MORE> Saves.

ON=@Timer
IF <TAG0.SAVE>==1
SERV.SAVE
SAY SAVE
TAG.SAVE=
MORE = <MORE> + 1
TIMER = 20
RETURN 1
ELSE
TAG.SAVE=1
SERV.ALLCLIENTS TESTHORSE
TIMER=3600
RETURN 1
ENDIF

[EVENTS E_HORSES]
On=@DCLICK

IF (<DISTANCE> > 3) || (!<CANSEELOS>)
SRC.SYSMESSAGE You can`t reach the creature
RETURN 1
ENDIF

IF (<SRC.BODY> != <SRC.OBODY>)
RETURN 0
ENDIF

IF <ISMYPET>
IF (!<FINDID.i_rune_summon_creature>)
SRC.TAG.NPC1=<OBODY>
SRC.TAG.COLOR1=<COLOR>
SRC.TAG.STR1=<STR>
SRC.TAG.KARMA1=<KARMA>
SRC.TAG.FAME1= <FAME>
ENDIF
ENDIF

[EVENTS E_ALL_PLAYERS]
ON=@DCLICK

IF (<UID>==<SRC.UID>)
IF (<SRC.FINDLAYER.25>)
SRC.TAG.NPC1=
SRC.TAG.COLOR1=
SRc.TAG.KARMA1=
SRC.TAG.STR1=
SRc.TAG.FAME1=
ENDIF
ENDIF

ON=@LOGIN
SRC.TESTHOR SE

ON=@DEATH
IF (<SRC.FINDLAYER.25>)
SRC.TAG.NPC1=
SRC.TAG.COLOR1=
SRc.TAG.KARMA1=
SRC.TAG.STR1=
SRc.TAG.FAME1=
ENDIF

[FUNCTION TESTHORSE]
IF (<FINDLAYER.25>) || (<FLAGS>&statf_stone)
RETURN 0
ENDIF
IF <TAG0.NPC1>
SERV.NEWNPC <TAG.NPC1>
NEW.P <P>
NEW.COLOR <TAG.COLOR1>
NEW.STR <TAG.STR1>
NEW.KARMA <TAG.KARMA1>
NEW.FAME <TAG.FAME1>
LOCAL.NPCUID=<NEW.UID>
SERV.NEWITEM i_memory
NEW.COLOR memory_ipet
NEW.MORE1 04
NEW.MORE2 <SERV.TIME>
NEW.MOREP <P>
NEW.LINK <UID>
NEW.CONT <LOCAL.NPCUID>
NEW=<LOCAL.NPCUID>
TRYSRC <UID> NEW.DCLICK
SERV.LOG Transport Error Fixed :: Account Name: <ACCOUNT> :: Name: <name> :: Uid: <uid>
ENDIF