"tkMOO-light is Copyright (c) Andrew Wilson 1994,1995,1996,1997,1998,1999
"
"	All Rights Reserved
"
"Permission is hereby granted to use this software for private, academic
"and non-commercial use. No commercial or profitable use of this
"software may be made without the prior permission of the author.
"
"THIS SOFTWARE IS PROVIDED BY ANDREW WILSON ``AS IS'' AND ANY
"EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
"THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
"PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL ANDREW WILSON BE LIABLE
"FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
"CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
"OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
"BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
"WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
"OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
"EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
@create $feature named XMCP/1.1 Feature Object (xfo):XMCP/1.1 Feature Object (xfo),xfo
@prop xfo."driver" #xdr rc

@verb xfo:"@xmcp_authentication_key" any any any rxd
@program xfo:@xmcp_authentication_key
if (valid(this.driver))
  this.driver:set_authentication_key(dobjstr);
endif
player:tell("XMCP/1.1 Authentication set.");
.

@verb xfo:"@xmcp_challenge" any any any rxd
@program xfo:@xmcp_challenge
if (valid(this.driver))
  this.driver:challenge();
endif
.

@verb xfo:"player_disconnected" this none this
@program xfo:player_disconnected
":player_disconnected";
"set to the autentication_key to '1'.  #xdr:xmcp_aware will use this";
"value or the absence of any key to indicate that the player isn't able to";
"handle XMCP/1.1";
if (valid(this.driver))
  this.driver:set_authentication_key(1);
endif
.