
I.		   

       ,   
       .    - ,
        (   
  ,    ),  
 dima@rt.ru.     : http://www.rt.ru/~dima/mmc.dir/

II.		 .

         ,    Perl. 
      GPL,  Artistic License  
/  .        
   :
         ()
         (, ) 

III.	  

	 -     MUD.    ,   MUD, , 
,     .
	       . 
    :     .  
  ,  ,      
 (prom ga       
),   ,      .
   -  ,    
,     .      ,
  ,        
 (       , . .
VI).    ,     
 ,   .
	        . V.


IV.		  

1.  .
 :
	- 
	-   
	-         
	-       
	      
	-      ,  ,
	          
	-  speedwalk
	-    ( PageUp  PageDown)
	-  
	-   mccp (Mud Client Compression Protocol)
	-     
	-   
	-     ,  
	           
	     .
	-       perl,   
	    .

2.   .
	- OS UNIX  Win*.    FreeBSd 4.x, Solaris 8  
      Windows 2000/XP/98.
	-   perl  5.00503  . ( Win*  
	      ).

3. .
	-   .
	-           .
	        ,    mmc
	     , :
	  	./configure
	  	make depend
		make
	       ,   , 
	   .     mmc< >,
	  mmc< >.exe  -     
	     .       mmc.
	-  mmc , ,  perl,  -  
	   (  make install).   ,  
	   mmc,  $PATH.    tcsh,   :
	  	set path = (/where/mmc/lives $path)
	       .tcshrc.
         -    shell,  
	    .
	   Windows      ,
	         .
	-  .   ,    - :
		-:- Loading {/root/.mmc4rc}...
		-:- MMC v4.1.9999 by Mike E. Matsnev
		mmc> 

4.      
	-c			-      .
	-f <file>   -      .
	-h, -?		-   
	-i <path>	-  path   ,    
				   ,    .
	-k			-       . 
				     .
	-n			-       .
	-p          -     . (.  /prefix)
    -r          -        .
	-s <type>	-   .  :
					0	-   
					1	-    
					2	-     ( 
						  ).
	<file name>	-    .

	$MMC  -      .
	$HOME -   .   $MMC,  $MMC
	         .
	 Windows,     ,     ,
	    mmc.exe.

5.  .
	      :
	<Ctrl>-@,
	<Ctrl>- -  
	<Ctrl>-A	-   
	<Ctrl>-B	=  
	<Ctrl>-E	-   
	<Ctrl>-F	=  
	<Ctrl>-K	-           
	<Ctrl>-N	=  
	<Ctrl>-O	-          
	<Ctrl>-P	=  
	<Ctrl>-U	-     
	<Ctrl>-V	-      ,   
				   
	<Ctrl>-W	-          
	<Ctrl>-X	-     
	<Ctrl>-Y	= Ins,   
	<Alt>-/		-    
	<Alt>-_		-     
	<Alt>-backspace -     
	<Alt>-d		-    
	<Alt>-<Del>	-    
	<Alt>-k		-          
				  
	<Alt>-n		-     
	<Alt>-p,
	<Ctrl>-up	-     
	<Alt-b>,
	<Ctrl>-left	-  
	<Alt-f>,
	<Ctrl>-right -  
	<Alt-h>,
	<Ctrl>-down	-         
	, Del, Home, End ( 2 -    ;)
	<Tab>		- -   .  
				        (,
				   tabadd, . . V),  ,    
				        <Tab>,    
				  .   -    (,
				  )       
				       :
	action {^Your group of ([0-9]+) members consists of:} {/set members ($1+3);/set curr 0;/enable GBUILD} {2000f:CORE}
	action {^\s*(\w*)} {/set last $1;/set curr ($curr+1);/if {$curr > $members} {/disable GBUILD} {/if {$curr > 3} {/tabadd $last}}} {1500f-:GBUILD}
				  :        
				   .      . X.
				         
				  . IX.
	<PgUp>		-      
	<PgDn>		-      
	<Ctrl>-<Pgup> -      
	<Ctrl>-<Pgdn> -      
	<Ctrl>-q    -    
	<Enter>/<Ctrl>-m -   ,    
	                      (.  /prefix)
    <Alt>-<Enter>/<Alt>-<Ctrl>-m
					 -   ,    
					      
					      
					   /noprefix

V.	  .
    :
	<>		-      -,   
				    .
	[]		- ,    ,  .
	txt1|txt2	-    txt1,  txt2.
	pattern		-    shell pattern. pattern  
				   '*'  '?',     .
	regexp		-    perl regexp (. . VI).
	==>	<>	-  :    <>

     :
	1)  " ".     
	       . ( - 
	   <Enter>,     
	    ).    
	        <Enter>.
	2)   .     
	         .   
	       ,    ';'. 
	      ,       
	      .   - 
	              , 
	           
	    ';':
	   		/alias xxx ZZZ;xxx
			-:- {xxx} aliases {ZZZ}.
			==> xxx
	    (,    )   <>.
	        ';'  <>  ,  
	      '\'.   '\'    ,
	     . : /showme \\\;.     ,
	     ';', '\' -       ,
	    : /showme {\;}. ,     , 
	    .  :
	   		/alias test {/showme $var}
			-:- {test} aliases {/showme $var}.
			/var var FOO
			-:- {var} is now set to {FOO}.
			test
			-:- FOO
			/var var BAR
			-:- {var} is now set to {BAR}.
			test
			-:- BAR
	3)  .       
	    .     
	      ,      
	      ,    .
	   :
				alias quit say I'm so stupid today.
				quit	-    say I'm so stupid doday.
				 quit	-     quit
	     ,     ,  
	    ,       
	   (   . 2). :
	   			/alias ZZZ /alias xxx foo\\\;bar\;xxx
		(     /alias ZZZ {/alias xxx foo\;bar;xxx})
				-:- {ZZZ} aliases {/alias xxx foo\;bar;xxx}.
			  ZZZ  ,   :
				/alias
				-:- Defined aliases:
				-:- {ZZZ}={/alias xxx foo\;bar;xxx}
			   :
				ZZZ
				-:- {xxx} aliases {foo;bar}.
				==> xxx
			      ,    
			,        ,   .
			    :
				/alias
				-:- Defined aliases:
				-:- {xxx}={foo;bar}
				-:- {ZZZ}={/alias xxx foo\;bar;xxx}
			   xxx  :
				ZZZ
				-:- {xxx} aliases {foo;bar}.
				==> foo
				==> bar
		     ,   
		 :
			/alias /q /quit
	4)     .    (  )
	        
	   .  ,  '/' ( ).   
	       '/' (, ,
	    , .  /char),   
	     .       ,
	     .

   :
	quit	-   .
	connect	<addr> <port> [<local address>]
			-    addr:port    local
			  address.   ,     .  
			     ,   
			   .
	dc		-  .
	alias	-   
	alias <pattern>
			-  ,   pattern.
	alias <what> <to>
			-   .    :
			   ,  ,   
			    .     ,
			       <what>  ,   
			    .     
			    ,   __  
			   <to>.   <to>  ,  , \$1
			    , \$2    . . \$0  
			    . :
			  		alias bs bash\;stand
					alias bst bash \$1\;stand
	unalias	<pattern>
			-  ,  pattern.
	variable
	variable <pattern>
	variable <name> <value>
	set <name> <value>
			-     .  
			    ,  $name.
			  : <name>     '$'!!!  
			   $name,   $name   
			   name!  ,   
			  ,       name.
			     :
			  	/var foo bar
				-:- {foo} is now set to {bar}.
				/set $foo hi!
				-:- {bar} is now set to {hi!}.
				/var
				-:- Defined variables:
				-:- {foo}={bar}
				-:- {bar}={hi!}
			  set   variable ,   set   
			   (set <name> <value>), ,  <value> 
			   ,    ,  <name>
			      .  ,
			       set    
			   . :
			  	mmc> /set a 1+2
				mmc> /set b (1+2)
				mmc> /var
				-:- Defined variables:
				-:- {a}={1+2}
				-:- {b}={3}
	unvariable <pattern>
			-  .  "$"   ! (  var).
	showme <    >
			-         
			  (    -:- ).
	echo <    >
			-     ,    ,
			       .  
			  : &<>. : /echo &JTHIS IS A TEST ONLY!!!
	wecho < > <    >
			-  ,    
	send	-    ,   .
			   - .  
			        
			    .
	ps		-     .
	kill [<task_id>]
			-      
			  task_id.  <task_id>  ,   
			   .
	char	-  ,    .
	char <>
			- ,       .
			  : /char {hey, you! }
	bind	-  bind    " ",
			         
			  .     
			   , bind -a    ,
			    ,   . 
			      ( 
			   C-   <Ctrl>  M-  <Alt>. :
			  /bind C-C /quit   /quit   <Ctrl>-C).
			      , ,  
			     .
			  :
			  	/bind C-C /quit 	- <Ctrl>-c = <Ctrl>-<Shift>-c = /quit
				/bind C-c /quit		-   ,   
				/bind M-c /connect mud.arctic.org 2700		-  <Alt>-c
				/bind M-C /dc		-   <Alt>-<Shift>-C.
				/bind f1 {recite recall}	-  recall  F1
	unbind <>
			-   .
	bell	- 
	cr		-     
	nop		-   
	action	-   ( . VI)
	substitute <regexp> <new> [<options>]
			-  ,       
			   <regexp>  <new>    .  .
			  . VI.
	gag	<regexp> [<options>]
			-  ,    , 
			  <regexp>,        .
			        ,
			      . :
			  	gag {^Morgion tells you}
	xsub <regexp> <new> <command> [<options>]
			-   action  substitute.
	unaction <>
			-   
	enable <>
			-   
	disable <>
			-   
	log [-c] [< >|off [ ]]
			- / .     ,   
			    .    -c,  
			     ansi    .
			     ,      
			   ,  ,      ,   
			   - ,   .
	tabadd <>
	tabdelete <>
			- /     (. . IV.5).
	tablist	-   
	perl	-     .
	tickset	-  ,       .
	ticksize <time>
			-     ( .     
			  20).
	tick	- ,      .
	tickoff	-  .
	hook	-       , 
			        .    
			        (connect),
			     (disconnect),   
			  (prompt)  2  : pretick  tick.
			     send  input,    
			          
			   .
			  : /hook pretick {gt TICK in 10 seconds}
			         
			   .     - , 
			         .
			         perl. 
			     sample.mmcrc.
	unhook	-     .
	path < = >
			-  speedwalk    .  
			         
			  .         
			  , : /path {^,v=,}.  , 
			     speedwalk  ^  v,    
			  ''  '' . :  , 
			       , .
	svar <name> <row> <width> [color]
			-     . <name> -  ,
			  <row> -  ,     ,
			  <width> -     , color -  
			  ( ansi).       ( unvar),
			         .
	if () {then} [{else}]
			-   ,    then,   else
			  ( ).   , :
			  	1)  -   ,  
				   , ,  +, -, *, /,   
				   ;        ;
				2)  -   .
			  :    ,  
			   then  else ,  else  .   
			  ,    then,  ,  else.   
			        else,   else 
			  .
	info	-   .  Protocol in  Compression  
			  mccp.
	lpdelay <>
			-        (  ,
			      ),   ,
			      ,     
			     .    
			      (GA, 
			     'prompt ga'  ).   
			       ,  , 
			   GA ,      GA.  
			      ,   
			      ,      
			      ,   
			   .     
			  lpdelay.
	complete [word spec ...]
			-  - .  . . IX.
	uncomplete <pattern> ...
			-    - .
	prefix [<>]
			-  .     ,
			    ,    .
			  ,   ,   
			  ,    .
	noprefix [on|off|toggle]
			-    Enter  Alt-Enter,   Enter
			   ,  Alt-Enter   .
	system <>
			-     ;    
			     . :
			  	mmc> /system ping -c 3 mud.arctic.org
				PING mud.arctic.org (204.107.140.52): 56 data bytes
				64 bytes from 204.107.140.52: icmp_seq=0 ttl=244 time=190.267 ms
				64 bytes from 204.107.140.52: icmp_seq=1 ttl=244 time=187.617 ms
				64 bytes from 204.107.140.52: icmp_seq=2 ttl=244 time=190.746 ms

				--- mud.arctic.org ping statistics ---
				3 packets transmitted, 3 packets received, 0% packet loss
				round-trip min/avg/max/stddev = 187.617/189.543/190.746/1.376 ms
			      , , 
			   ps  kill,   ( UNIX). :
			  	mmc> /system ping mud.arctic.org
				PING mud.arctic.org (204.107.140.52): 56 data bytes
				64 bytes from 204.107.140.52: icmp_seq=0 ttl=244 time=194.186 ms
				64 bytes from 204.107.140.52: icmp_seq=1 ttl=244 time=189.365 ms
				mmc> /system killall ping
				mmc> 
	save <alias|var> <>
	nosave <alias|var> <>
			-  ,      
			  ( /alias  /var  /set )  
			        .  nosave 
			        .
			   save    .
	version	-   .      
			  bug report.
	soundevent [<event> <filename>]
	        -       ,
			   "beep"   .   
			     .
	playsound <event>
	        -  ,    <event>.
			 ,   :
			  Editor

		          Windows,  Unix
			   .

	slowscroll <n>
			-     Win32, n==0 -   ,
			  n>0 -    n    ,
			  n<0 -     abs(n) 

VI.		
	 -         .
   -      
  ,      .  
    ,       
  (   .   , 
 ,        , 
        - ). 
    .  ,    
    .   ,  ,   
   .  mmc     
  .   ,     
 ,     .   ,  ,
    ,       
  ,   ,  .
   mmc       . ,   mmc 
      perl.    
.  perl     ,  
      .     ,
,   ,  ,   
,            
   .      perl  
.       action,    
-     .  
    . 95%   ,  
 perl'.          
.
	     mmc  ,  
 ,        
.         
   perlre   perl (41k , ). 

	  -  . ,    
 ,        
  (    ,  
).
	      ,  
  .    , 
 ,   ,      
  .
	     ,   
, -   ,   . 
,         
   .      - 
('.').     . ,  "."
   ,    
.      ,   
 ([]),         
. ,  [abcde]      
   ,   [yY]   'y' 
'Y'.          (]), 
   '\'          .
  (,    z)  ,   
   (-).       , 
   '\'     .  :
	[0123456789]  -   
	[0-9]         -   
	[0-9\-]       -     
	[a-z0-9]      -      
	[a-zA-ZO-9_]  -   ,    
     ,   ,
   ,       ,
       '^'. : [^0-9]  
 ,  [^\^]   ,   '^'.
	    perl    
:
		  	
	\d				[0-9]				
	\w				[a-zA-ZO-9]			 
	\s				[ \r\t\n\f]			 
	\D				[^0-9]				 
	\W				[^a-zA-ZO-9]		 
	\S				[^ \r\t\n\f]		 
        
,  [\da-fA-F]    .
	         
   . ,  abc   , 
   b,     .    ( 
  )      
,     '*'. ,  a* 
 "a", "aaaa"   .       
,   '*'    '+'.  ,
 aa* -    a+.
	  (?)       
   . ,  l?u+ser  
    l,        u,  
  ser.
	 *, +  ?  .
	   , ,      , 
  ,    ,     
  .   perl'     - 
 .       , 
  - ,  {5,10}.  , 
  ,    (     ),
    (   -   
).      (, {5,}),   "
 " (     ),      (,
{5}),   " " (     ). 
     ,     :  {0,5}.
 ,  ,    "",  
      ,   
    . ,   
"greeeeeedy"   [egr]*,     
  : "greeeeee".      
,      "". , 
  "      d"   a.*c.*d, 
 ".*"        
 ,   ,        
  ,     .    
   "" (..   ),  
  : a.*?c.*d.  .*?   
     ,   .  ,   
      ,    .  '?' 
    (?, +, *  {m,n}).
	       :
   . ,  ,   
  "    ci xxx d"   'a.*ce.*d'?
 .*         
,     ,    a.*c 
  "    c".    
 ()       (i).    
          
  (   -    ,   ),   
   a.*c    "  ".  
   ()     , 
  .  'e'   
  'e'  ,   .*d -   .
        
,        
 .
	   -   ,   
 .        ,
    ,     
. , ()    ,  ([a-z]) - 
 .      ,  
,    '\'   .   
  ,      
    (  ). , fred(.)barney\1 
,    fred,  ,  barney   
  .  ,   
  fredxbarneyx, a  fredxbarneyy. \1 
       .  
 ,  ,    (    
)   \2,  -  \3  . . , a(.)b(.)c\2d\1
 , -  (  #1), b,    ( 
#2), ,  #2, d   #1.  ,   ,
,  axbycydx.  ,  
 ,     .    
perl  ,    ,  
    .    
$<>,  <> -        .
         .
	        . ,
(.*)\1  ,    ( ), b,  
  , , . ,   
  aFREDbFREDc    abc,     .
	   - , .. |b|.  , 
        ( 
 - , b  ).       , 
   ,    /me|you/,  
 me,  you.
	   ,   perl   
 ,     , 
   .    ^, $, \b, \B  
,       perlre.txt.
	 ^  $      .  \b
,       ,   \B -
     .   -  
 ,      \w,   -  \W,
     . ,  .*\B[a-z]$ 
 "aaab"  "adc dx",   "axxB"  "adcd x".
	      '\'.    
    ,    
(\t),   (\n),      
(\Q, \l, \u, \L, \U, \E),       perlre.txt. 
,    '\'     ,
  *, ?, +, [, ., ^, $, |, ( , ,   '\'.  
      '\',  : .*\.txt.
	       , 
  .   (   ) :
						
	 , 	[]
	 					( ) (?: )
							? + * {m,n} ?? +? *? {m,n}?
	  	abc ^ $
							a|b|c
	    ,      
,      .  
        
  .      ,  ,
  -  \2, \3  ..    
     ,   (?:...),  
(...).     ,     
  .

	   : action <regexp> <command> [<options>]
  ,   <regexp>,  <command>. <command>
    ,    <command> 
  ,   <command>    ,  , 
<command>    .    
 , : 
	/action {^You receive [0-9]+ experience\.$} {loot corpse}
        loot.  
:
	/alias loot exa {$0}				-  ,  
	/alias loot get pile {$0}			-   
	/alias loot get all {$0}			-  
	     .    
 ,   send. 
	:   action, substitute, gag  xsub  
  ,   .  ,  
 action,    substitute,   gag,   xsub.
	         
,     <options>   . 
  :
< >[:<   >].  :
	'-'		- disable		-     ( 
							     )
	'g'		- gag			-      
	'm'		- multiple		-    <regexp>  ,  
							   
	<>	- priority		- ,   
							  .    
							   .    
							     1000.
	's'|'n'	- save|nosave	-       
							  
	'f'		- fall-through	-     , 
							   .   
							     ,   
							     'f'.
	'x<>'			    -   ,  
							    ,   
							  ,    
							  /enable
	  :
		action {^You are hungry\.$} {get bread $container;eat bread} 1000gs:CORE
	      . 
     ,   
       ,  
,        -  
 ,   .

VII.	SPEEDWALK    
	 ,        
 - . ,     10   
 sneak.      "  ".
	 mmc   3     
,          perl'.
	  -   /<repeat>[:<delay>] <command>.  
   <command> <repeat>    <delay>
.  <delay>  ,      
. :
	/5:300 say I rule
:   ,    .    
 ,      2   , 
        .
	  -   speedwalk. Speedwalk -   
    ,  dnws2e.  mmc speedwalk
     ,    .  speedwalk
  ,      ,   
      (.  path),  
 .  speedwalk    ,   
 speedwalk.  ,   speedwalk' .dnwsee  
:
	d
	n
	w
	s
	e
	e
  speedwalk' ..ndws2e     :
	w
	w
	n
	e
	s
	u
  speedwalk   ,  5   500
.      - , ,
,     .
	 ,  timeout,    . VIII.

VIII.	 
	        
 , .mmc4rc.  ,    $MMC
,  ,       $MMC,
  $MMC  ,    $HOME,    
  ,     .   
       , 
.
	     .   -  ,
   perl.      
.       , ,
        .   
    ,    "__DATA__". 
     ,    -  
.
	     "__DATA__"    
 ,      .  ,
      (  [run]  [complete]),
   ,  .
	     .    c
 ,    .     
 .         
  ,     .     -
,      . :   ,  
perl (         /perl), 
    .
	    [run].     
,      .     
  ,  , ,   
 . :
		[vars]
		Loot	2
		...
		[run]
		/if (Loot==0) {/set Loot 1}
	 [complete]   :      
 ,      -.  
         ,   
   .    ,    [run], 
.
	    ,   
       perl'.  
  (   )   perl,   
   .      
 .       
 sample.mmcrc.   ,     perl,
         .

Mmc -     mud,        .
    "  mud'"    
  ",  mmc  ",   ", 
mmc   ,   CL::Socket".  
    mmc    telnet ,  
        output 
.        CL.pm 
 package CL::Socket.  ,      
 .

1. ,  MMC API:
    echo($message)
	-       (1) .  
	     "\003<>". 
	   ANSI :

				          \003A
				          \003B
				          \003C
			          \003D
				          \003E
			          \003F
				          \003G
	- ()   \003H
				          \003I
	-		      \003J
			          \003K
				          \003L
	-		      \003M
				          \003N
	-		      \003O
				          \003P
	 win*    256    
	char.


    wecho($window, $message)
	   echo,     $window.  
	   1  10.  mmc     1.  
	      -   ,  w* .
    
    printc(@lines)
	           
	   (1) .   - "&<>",    
	  echo.      '&',    2 :
	  "&&".      & -   .
	  ,    "\003<>"   :)

	printcl(@lines)
	     +    

    wprintc($window, @lines)
	   ,  :)

	wprintcl($window, @lines)
	     +    

    msg(@lines)
	   @lines    (1)     ,
	      mmc.

    trig(&code, $line; $flags)
	   . &code - -, $line - , 
	    , $flags -  , 
	   .     README.
	  -    ($1-$9) 
	     ,     . (
	      2 : $_ -   
	  ,  $; -       mmc.)
	      ,     , 
	        $_  $; 
	      sample.mmcrc

    subst($what, $to; $flags)
	   ,    mud'  $what 
	   $to. $flags -  ,  
	  .

    gag($what; $flags)
	    subst,  subst($what, undef, "g$flags");
    
    xsub(&code, $what, $to; $flags)
	     . trig  subst   .
	    ,     &code.
    
    enable(@group_list)
	       

    disable(@group_list)
	       

    alias(&code, $command)
	   .      
	  $command,    &code.  
	            &code 
	    .

    bindkey(&code, $hotkey)
	    hotkey.    hotkey
	     &code.   hotkey  
	  README.

    hook(&code, $event)
	   &code      . 
	    connect, disconnect, prompt (
	    mud'), input, send, pretick  tick. prompt hook 
	     ,   , 
	   mud server'. input   , 
	    enter. &code   
	   ,    . send   
	     socket,     .
	  connect    host:port.
	   hook'   .

    sendl($)
	    mud .
    
    timeout(&code, $delay; $count)
	   $delay    &code   , 
	      $count.  $count  , &code
	     ( ;)  .

    nosave(@)
	     U:: ( ),
	         mmc ( , 
	       ).

    new_sv(\$var, $width; $color)
	      . $width -  
	    status line  .  $width=0, 
	         (
	  ,  ,   , 
	      ). $color . 
	    $var   
	  .

    new_svy(\$var, $row, $width; $color)
	      , $row -  ,  
	     .



      .

	package RTime;
	# read date string from a remote machine

	use base 'CL::Socket';

	sub line($$) {
	  CL::msg("Current time is: " . CL::strip_colors($_[1]));
	}

	sub CMD::cmd_gettime {
	  if ($#_<0) {
	    CL::warn("gettime: usage: /gettime <host>");
	  } else {
	    new RTime($_[0],13);
	  }
	}

	1;

	        sample.mmcrc.
 -         arctic mud
(mud.arctic.org 2700).         mud, 
    .  : ,   
 #,  .

IX.		- 
	 mud -     ,     
  .      
 ,  mmc,       
 ,      -
   .
	         
 tcsh.   :
	/complete regexp0 spec/regexp1/list[:select]/[suffix] [spec/regexp2/list[:select]/[suffix]] ...
	   :     <Tab>,
  ,    , ,  
  ,  , regexp0  
    (    , 
   , ).   
  .      
.
	 ,   ,     
(  ,     .     
   ,  ,     
 . ,      )   
 .   ,     
.       spec. Spec -    ;
  : p,c,n,N.     spec 
   . p -   ,  
        .  
regexp1        .
c -     .     ,
    regexp1. regexp1  -  perl regexp.
n -     .    
,     regexp1. regexp1 - perl regexp.
N -    ,     .  
  n.
	  regexp1  ,     
   (  spec/regexp2),   .    
 ,    .
	    ,   , 
   .   :  list ( 
   '(a b c d)', ,     .
  :	a -    ,
								v -    ,
								p -    ,
								c -   ,
								t -    ,
								h -    (),
								H -   ,
								u - ,    tabadd.
        ,   select (  
,     list. select -   ), 
   ,    
 ,         
 ,     suffix ( ). 
   <Tab>      , 
    suffix,     ,    .
  ,     <Tab>,  
       . 
   <Tab>,      
 .
	:       
    ,    
regexp0.    ,    
    .     
spec/regexp1,     .    
      ,     
.            
spec/regexp  .

X.		 
	      ,    
,    perl.     
 ,            
(,   ,   @INC),      
,  .       ,
   .      
   ,  mmc    .
	    Conf,     Conf.pm.
     .     :
===   Conf.pm ===
	package Conf;

	# Configuration defaults

	$Conf::char='/';		# command char, don't forget to update
							# Parser::cmdre if you change this at runtime
	$Conf::sep=';';			# Command separator, cannot be changed at runtime
	$Conf::defprompt="\003Cmmc> ";	# default prompt when the client is not
							# connected to a server
	$Conf::incolor=11;		# user input color, be sure to call
							# CL::set_iattr() if you change this at runtime
	$Conf::iccolor=15;		# control chars color
	$Conf::icbg=1;			# control chars background
	$Conf::statusbg=4;		# status line background
	$Conf::statusfg=2;		# status line default foreground
	$Conf::send_verbose=1;	# display all text that gets sent to the server
	$Conf::verbose=1;		# display various sucky messages
	$Conf::status_type=2;	# status line position
	$Conf::status_height=1;	# status line height
	$Conf::save_stuff=1;	# automatically save triggers, aliases, keybindings,
							# variables
	$Conf::speedwalk_delay=500;	# delay after sending 5 rooms
	$Conf::logsub=1;        # log lines _after_ substs take place
	$Conf::skipws=0;		# ignore whitespace at start of command when searching
	                        # for aliases
	$Conf::timedlog=0;      # timestamp each logged line
	$Conf::prefixall=0;     # prefix ALL commands, even from triggers and aliases



	1;
===   Conf.pm ===
     ,      
  ,     ,   
. ,   ,    
 ,  $Conf::incolor=10.   Conf::send_verbose
 0,      ,     ,
   $Conf::verbose  0,      
     var,      
 .

XI.      

 $Id: mmc.txt,v 1.3 2003/02/15 19:10:04 mike Exp $
# vim: ts=4 :
