;;; Simple communication history, storing tells and narrates
;;; Don't forget to create subdir saves/ in actual dir.
;;; Use cha width 1000 or something like that, otherwise it will cut tells
;;; and narrs to 80 chars.
;;;
;;; usage:
;;;	/tells
;;;	/narrs

/test handletell := tfopen("saves/tells", "w")
/test handlenarr := tfopen("saves/narrs", "w")

/def -p1 -mregexp -t'([A-Z][A-z]* tells you .*)$' tellsave = \
	/test tfwrite(handletell, strcat(ftime("[%%H:%%M] ", time()), {P0}))

/def -p1 -mregexp -t'([A-Z][A-z]* narrates .*)$' narrsave = \
	/test tfwrite(handlenarr, strcat(ftime("[%%H:%%M] ", time()), {P0}))

/def tells = \
	/quote -decho -S 'saves/tells

/def narrs = \
	/quote -decho -S 'saves/narrs