From gb1d+@andrew.cmu.edu Thu Mar  5 23:56:24 1992
Received: by hussar (5.57/ULTRIX-fma-071791);
	id AA01409; Thu, 5 Mar 92 23:56:23 -0500
Received: by urc.dco.dec.com (5.65/fma-100391);
	id AA00320; Thu, 5 Mar 92 23:56:22 -0500
Received: by hussar (5.57/ULTRIX-fma-071791);
	id AA01405; Thu, 5 Mar 92 23:56:20 -0500
Received: by andrew.cmu.edu (5.54/3.15) id <AA27460> for untermud@hussar.dco.dec.com; Thu, 5 Mar 92 23:56:09 EST
Received: via switchmail; Thu,  5 Mar 1992 23:56:07 -0500 (EST)
Received: from monsoon.ucc.andrew.cmu.edu via qmail
          ID </afs/andrew.cmu.edu/service/mailqs/q003/QF.MdhjgL600WAxQ0X1R9>;
          Thu,  5 Mar 1992 23:54:48 -0500 (EST)
Received: from monsoon.ucc.andrew.cmu.edu via qmail
          ID </afs/andrew.cmu.edu/usr18/gb1d/.Outgoing/QF.gdhjgHS00WAxMLmlxg>;
          Thu,  5 Mar 1992 23:54:43 -0500 (EST)
Received: from Messages.7.15.N.CUILIB.3.45.SNAP.NOT.LINKED.monsoon.ucc.andrew.cmu.edu.pmax.ul4
          via MS.5.6.monsoon.ucc.andrew.cmu.edu.pmax_ul4;
          Thu,  5 Mar 1992 23:54:43 -0500 (EST)
Message-Id: <QdhjgHK00WAxALmloX@andrew.cmu.edu>
Date: Thu,  5 Mar 1992 23:54:43 -0500 (EST)
From: Gregory Joseph Blake <gb1d+@andrew.cmu.edu>
To: untermud@hussar.dco.dec.com
Subject: Directory program
Status: R

This object is to store a directory on which the user can add  and delete names
off of and keeps track of weather or not there are vacancies and displays it.
--------------------------------------------------------------

object 2662@WanderLand
lst own=1412@WanderLand;2662@WanderLand;
obj loc=1797
obj home=1412@WanderLand
str nam=plaque
boo lok=1412@WanderLand
str desc=Type 'dir' to see who lives here.
U reset=(lst)$me.rooms = listadd($me.rooms,"1");(lst)$me.rooms =
listadd($me.rooms,"2");(lst)$me.rooms = listadd($me.rooms,"3");(lst)$me.rooms
= listadd($me.rooms,"4");(lst)$me.rooms =
listadd($me.rooms,"5");(lst)$me.rooms = listadd($me.rooms,"6");foreach $roo in
($me.rooms) {$me.("roo" + $roo) = "*Nobody*";};
lst rooms=1;2;3;4;5;6;
int taken=2
U dir=echo("vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv");echo("|      The
Dutchesses' Guests        
|");echo("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^");echo(" ");echo("          
 1 - "+$me.roo1);echo("            2 - "+$me.roo2);echo("            3 -
"+$me.roo3);echo("            4 - "+$me.roo4);echo("            5 -
"+$me.roo5);echo("            6 - "+$me.roo6);echo("
");#2662@WanderLand.vacant();
U vacant=echo("*--------------------------------------*");$vac = "         
There are Vacancies";$novac = "             No Vacancies";if ($me.taken <= 6)
{echo($vac);} else
{echo($novac);};echo("*--------------------------------------*");
str roo1=Katlin
str roo2=*Nobody*
str roo3=*Nobody*
str roo4=*Nobody*
str roo5=*Nobody*
str roo6=*Nobody*
U addperson=if ($#!=3) {echo("Usage:addperson <roomnum> <name>");return;};if
($1 < 1||$1 > 6) {echo("There are only 6 rooms available d00d");return;};if
($me.("roo" + $1) != "*Nobody*") {echo("That room is taken, please find
another");return;};$me.("roo"+$1) = $2;echo($2," added to directory in
room ",$1);$me.taken = $me.taken + 1;
U clearroom=if ($#!=2) {echo("Usage:clearroom <roomnum>");return;};if ($1 < 1
|| $1 > 6) {echo("Invalid number:1 thru 6 only please");return;};if
($me.("roo" + $1) == "*Nobody*") {echo("There's nobody living
there.");return;};$me.taken = $me.taken - 1;$me.("roo" + $1) = "*Nobody*";
endobj
--
| US-Snail: Gregory J. Blake              |
|           5326 Fifth Ave - Apt. 3       | email:
|           Pittsburgh, PA   15232        |   gb1d+@andrew.cmu.edu
|                                         |   r746gb1d@vb.cc.cmu.edu
| Phone:    (412) MUD-9876                |   gregb@gnu.ai.mit.edu
                  ^^note...new
------------------------------------------------------------------------------
Killing, hugging, what's the diff? - Claire
______________________________________________________________________________
"Dark is a way and light is a place..." - Dylan Thomas
______________________________________________________________________________