;;; Hooks to catch MUX comsys commands on Rhost, TinyMUSH, MURE

/def -Ttiny.rhost -h"send pub *" rhostpub = /send =pub %-1
/def -Ttiny.mush -h"send pub *" mushpub = /send =pub %-1
/def -Ttiny.mure -h"send pub *" murepub = /send @com 0=%-1
/def -Ttiny.penn -h"send pub *" pennpub = /send +Public %-1


;;; Hooks to allow prefix says and emotes on MUDs.

/def -mregexp -T'^lp' -h'SEND ^:(.*)$' lppose = /send emote %P1
/def -mregexp -T'^lp' -h'SEND ^"(.*)$' lpsay = /send say %P1


;;; Hooks to imitate MUX "lastpage" behavior on Rhost, TinyMUSH
;;; Adapted from 'news lastpage' on Godlike Edge

/def -Ttiny.rhost -mregexp -h'SEND ^(page|p) (.+)=(.*)$' \
	lastpage_new_rhost = /lastpage_new %*
/def -Ttiny.rhost -mregexp -h'SEND ^(page|p) ([^=]*)$' \
	lastpage_old_rhost = /lastpage_old %*
/def -Ttiny.mush -mregexp -h'SEND ^(page|p) (.+)=(.*)$' \
	lastpage_new_mush = /lastpage_new %*
/def -Ttiny.mush -mregexp -h'SEND ^(page|p) ([^=]*)$' \
	lastpage_old_mush = /lastpage_old %*

/def lastpage_new = /set lastpage_${world_name}=%{P2} %; /send %{P0}
/def lastpage_old = \
     /let varname=lastpage_${world_name}%;\
     /let name=$(/set %{varname})%;\
     /send %{P1} $[substr(name, strchr(name, "=") + 1, strlen(name))]=%{P2}