@program icooc.muf
1 1000 d
i
$include $lib/alynna
$include $lib/rp
$def ICROOM #206
$def OOCROOM #42
: 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 toint 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 ( -- )   
command @ "+ic" smatch if icgo exit then   
command @ "+ooc" smatch if oocgo exit then   
;   
.
c
q