@create formatpose
@power formatpose=see_all
@set formatpose = NO_COMMAND
&FORMATPOSE formatpose=%r[space(5)][ansi(hc,%0)]%r
&HELP formatpose=Every player object needs a &Formatpose. When the players Pcreate I'd add to the room/db that joins them to chans and such a command to add &formatpose. Something like @set %#=format_pose:[lit(%r[space(5)]%0%r)]. Players should be able to just format_pose. If they don't want to use it then format_pose shoud=%0.
&HOOK_COM.EMIT formatpose=$@emit *:think [iter(lcon(%l),switch(parent(%l),v(icparent),pemit(%i0,u(%i0/format_pose,%0)),pemit(%i0,[ansi(hr,<OOC>)]%b%b%0)))]
&HOOK_COM.POSE formatpose=$pose *:think [iter(lcon(%l),switch(parent(%l),v(icparent),pemit(%i0,u(%i0/format_pose,%N %0)),pemit(%i0,[ansi(hr,<OOC>)]%b%b%N %0)))]
&HOOK_COM.SAY formatpose=$say *:think [iter(lcon(%l),switch(parent(%l),v(icparent),pemit(%i0,u(%i0/format_pose,%N says\, "%0")),pemit(%i0,[ansi(hr,<OOC>)]%b%b%N says\, "%0")))]
&HOOK_COM.SEMIPOSE formatpose=$semipose *:think [iter(lcon(%l),switch(parent(%l),v(icparent),pemit(%i0,u(%i0/format_pose,%N%0)),pemit(%i0,[ansi(hr,<OOC>)]%b%b%N%0)))]
&samplestartup formatpose=@hook/override @emit=objectdb#, hook_com.emit;@hook/override pose=objectdb#, hook_com.pose;@hook/override say=objectdb#, hook_com.say;;@hook/override pose=objectdb#, hook_com.pose;@hook/override semipose=objectdb#, hook_com.semipose
&ICPARENT formatpose=Put the db# of the IC Room Parent here. Or Relpace v(icparent) with the db#