$include $lib/alynna
$include $lib/rp
$def ICROOM "$room/ic" match
$def OOCROOM "$room/ooc" match
: oocgo ( -- )
me @ "lastloc" me @ location setstat
me @ "~status" "OOC" setprop
str me @ name " goes ^green^OOC^ ^." cat tellhere
me @ OOCROOM moveto
str me @ name " goes ^green^OOC^ ^." cat tellhere
;
: icgo ( -- )
me @ "lastloc" getstat not if me @ "lastloc" ICROOM setstat then
str me @ name " goes ^green^IC^ ^." cat tellhere
me @ "~status" "IC" setprop
me @ me @ "lastloc" getstat moveto
str me @ name " goes ^green^IC^ ^." cat tellhere
;
: main ( -- )
var param param !
command @ "+ic" smatch if icgo exit then
command @ "+ooc" smatch param @ "" smatch and if oocgo exit else me @ "<OOC> I'm sorry but you can only go +ooc with no text in the command!" notify then
;