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 ______________________________________________________________________________