"Beginning installation of cmd-ic-ooc...
@prog cmd-ic-ooc
1 99999 d
1 i
( cmd-ic-ooc: $Date: 2000/12/20 14:10:35 $ $Revision: 1.3 $
( Version 1.0 by Feaelin Moilar                                        )
( A quick and dirty for setting the new in_character flag. )

(
 $Log: cmd-ic-ooc,v $
 Revision 1.3  2000/12/20 14:10:35  feaelin
 Documentation corrections.

)

$include $lib/glowstandard

: ic 
  "^GREEN^You slip in to character." .wrap
  me @ "in_character" set
;
 
: ooc
  "^GREEN^You slip out of character." .wrap
  me @ "!in_character" set
;
 
: main
  command @ "ic" instr if ic exit then
  command @ "ooc" instr if ooc exit then
;
.
c
q
@register #me cmd-ic-ooc=tmp/prog1
@register cmd-ic-ooc=cmd/icooc
@set $tmp/prog1=M3
@set $tmp/prog1=/_/de:A scroll containing a spell called cmd-ic-ooc
@action ic;ooc=#0=tmp/exit1
@link $tmp/exit1=$tmp/prog1
@set $tmp/prog1=/_version:FM$Revision: 1.3 $
"Installation of cmd-ic-ooc complete.