/*** ROOM DESCRIPTIONS ***/
Sayer = Proc(str, flag)
{
    If (!flag) {
	$say(str, "\n");
    }
    Return str;
}
DARK_STR = "Dark";

mrm1(LDESC) = Proc()
{
    "You are standing outside the north entrance of a large "
    "brick building.  Inscribed above the doorway, appear the "
    "text: 'AARDVARK'S MUSEUM -- GATEWAY TO ADVENTURELAND'.\n";
}
mrm1(SDESC) = Proc()
{
    Return Sayer("Museum entrance", $arg(0));
}


mrm2(LDESC) = Proc()
{
    "You are in a large rotunda of an old museum.  Doors lead "
    "to the north, south, east, and west, and a narrow stairway "
    "in the north-east corner of the room leads down.\n";
}
mrm2(SDESC) = Proc()
{
    Return Sayer("Museum rotunda", $arg(0));
}


mrm3(LDESC) = Proc()
{
    "You are in a dimly lit room containing an empty display case. "
    "A portion of a vandalized sign above the case reads: "
    "'ARTIFACTS OF ANCIENT INDIA -- Several of these items, "
    "including the sacred rhinoceros horn, the deadly ...'. "
    "The rest of the sign is unreadable.  ";
    If (paper.signed) {
        "Through the door to the west, you can see part of the rotunda "
        "of the museum.  To the east, there is a stone archway.\n";
    }
    Else {
        "To the west, you can look through a large door into the rotunda "
        "of the museum. On the east wall of the hall there is an outline "
        "of an arch.\n";
    }
}
mrm3(SDESC) = Proc()
{
    Return Sayer("East wing of the museum", $arg(0));
}


mrm4(LDESC) = Proc()
{
    "You are in a non-descript room with absolutely nothing in it. "
    "A hollow voice says \"This room is unavailable for use at this "
    "time.  Please leave through the doorway to your north.\"\n";
}
mrm4(SDESC) = Proc()
{
    Return Sayer("Closed room", $arg(0));
}


mrm5(LDESC) = Proc()
{
    "You are standing before a large empty display case in a poorly lit "
    "basement-like room.  Encircling the room high on the walls appear the "
    "text \"HALL OF PREHISTORY.\"  A stairway leads up, and in the south "
    "wall, there is ";
    $move(hole, $loc($ME));
    If (!paper.signed) {
	"a small hole covered by a grate.\n";
    }
    Else {
	"a small hole.\n";
    }
}
mrm5(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    Return Sayer("Hall of Prehistory", $arg(0));
}


mrm6(LDESC) = Proc()
{
    "You are wandering through a dense forest past twisted birch trees "
    "rising toward the sky in contorted agony.  Enormous skeletons of burned "
    "out sycamores are scattered throughout the area, and gnarled stumps of "
    "once proud oak trees make the appearance of the forest even more "
    "disturbing.  Nothing is stirring, a pall of death seems to hang over the "
    "forest like a blanket, and you can't seem to figure out which direction "
    "is which.\n";
}
mrm6(SDESC) = Proc()
{
    Return Sayer("You are lost in the forest", $arg(0));
}


irm1(LDESC) = Proc()
{
    "You  are at the top of a highly ornate spiral stairway. "
    "A wing of the museum can be seen to the west.  The room is moist "
    "and damp, and the scent of cumin and saffron fills the air.\n";
}
irm1(SDESC) = Proc()
{
    Return Sayer("Top of spiral stairway", $arg(0));
}


irm2(LDESC) = Proc()
{
    "You are in an east-west passage at the bottom of a spiral "
    "stairway.  A slight breeze blows from east to west.\n";
}
irm2(SDESC) = Proc()
{
    Return Sayer("Bottom of spiral stairway", $arg(0));
}


irm3(LDESC) = Proc()
{
    "You are standing in a deserted Indian marketplace. "
    "Although it seems to have once been a bustling area, "
    "there is very little left here.  Most of the vacant "
    "booths form an alley running north, and a small path "
    "goes east.\n";
}
irm3(SDESC) = Proc()
{
    Return Sayer("Marketplace", $arg(0));
}


irm4(LDESC) = Proc()
{
    "You are in a small kitchen adjoining the marketplace. "
    "Most of the furniture in the room has been broken, and all "
    "of the pottery once used for cooking has been stolen. In the "
    "north-west corner, there is a tandoori oven.  A door to the "
    "south leads back out to the marketplace, and a trap-door "
    "leads down to what appears to be a murky basement.\n";
}
irm4(SDESC) = Proc()
{
    Return Sayer("Kitchen", $arg(0));
}


irm5(LDESC) = Proc()
{
    "You are in a cellar which apparently has been used to "
    "store spices.  Empty racks line all the walls of the room, "
    "and everything in the room seems to be blanketed in a thin "
    "layer of dust.  An unreachable hole appears in the ceiling "
    "and exits lead to the north, south, and east.\n";
    $move(hole, $loc($ME));
}
irm5(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    Return Sayer("Spice cellar", $arg(0));
}


irm6(LDESC) = Proc()
{
    "You are in a small cave-like room apparently once used "
    "for the cultivation of mushrooms.  You find the smell of "
    "this room slightly displeasing.  There are exits to the "
    "south and west, and there is a small hole in the "
    "north wall, through which you can see a long vertical "
    "shaft with jagged sides.\n";
    $move(shaft, $loc($ME));
    $move(hole, $loc($ME));
}
irm6(SDESC) = Proc()
{
    $move(shaft, $loc($ME));
    $move(hole, $loc($ME));
    Return Sayer("Mushroom room", $arg(0));
}


irm7(LDESC) = Proc()
{
    "You are in an abandoned warehouse-like room which, "
    "though once used for storage, is now predominantly full of "
    "rubble.  Exits lead to the north and east.\n";
}
irm7(SDESC) = Proc()
{
    Return Sayer("Warehouse", $arg(0));
}


irm8(LDESC) = Proc()
{
    "You are standing on a rocky beach on the west bank "
    "of a slow-moving subterranean river. Several large "
    "crocodiles are lazily sleeping at the north end of the river. "
    "A path leads to the west.\n";
    $move(river, irm8);
    $move(crocodiles, irm8);
}
irm8(SDESC) = Proc()
{
    $move(river, irm8);
    $move(crocodiles, irm8);
    Return Sayer("West bank of river", $arg(0));
}


irm9(LDESC) = Proc()
{
    "You are on a sandy beach on the east bank of a crocodile "
    "infested river.  A roughly hewn stairway in the rock leads up "
    "far beyond your range of vision.\n";
    $move(river, irm9);
    $move(crocodiles, irm9);
}
irm9(SDESC) = Proc()
{
    $move(river, irm9);
    $move(crocodiles, irm9);
    Return Sayer("East bank of river", $arg(0));
}


irm10(LDESC) = Proc()
{
    "You are in a room containing an enormous statue of "
    "Mara, Hindu goddess and consort to Vishnu.  Passages lead "
    "to the east, west, and south, and a roughly hewn stairway "
    "seems to go down to an area further underground.\n";
    $move(statue, $loc($ME));
}
irm10(SDESC) = Proc()
{
    $move(statue, $loc($ME));
    Return Sayer("In front of Mara's statue", $arg(0));
}


irm11(LDESC) = Proc()
{
    "You are standing in front of a gigantic statue of the "
    "Hindu god Vishnu.  Passages lead north and south, and it appears "
    "that you can squeeze through a narrow crack in the western wall.\n";
    $move(crack, $loc($ME));
    $move(statue, $loc($ME));
}
irm11(SDESC) = Proc()
{
    $move(crack, $loc($ME));
    $move(statue, $loc($ME));
    Return Sayer("In front of Vishnu's statue", $arg(0));
}


irm12(LDESC) = Proc()
{
    "You are in a room containing an enormous statue of "
    "Lakshmi, Hindu goddess and consort to Vishnu.  ";
    $move(statue, $loc($ME));
    If (statue.tlakst) {
        "Passages lead to the east and north, and on the west wall "
        "there is a hole large enough to crawl through.\n";
	$move(hole, $loc($ME));
    }
    Else {
	"Passages lead to the north and east.\n";
    }
}
irm12(SDESC) = Proc()
{
    If (statue.tlakst) {
	$move(hole, $loc($ME));
    }
    $move(statue, $loc($ME));
    Return Sayer("In front of Lakshmi's statue", $arg(0));
}


irm13(LDESC) = Proc()
{
    "You are in what would appear to be a totally man-made "
    "cave.  The walls are covered with bamboo shafts cut and "
    "tied together to form a very complex lattice pattern. "
    "An extremely narrow passage leads east, and there is a "
    "large door to the south.\n";
}
irm13(SDESC) = Proc()
{
    Return Sayer("Bamboo Room", $arg(0));
}


irm14(LDESC) = Proc()
{
    "You are in a small room with a very low ceiling. The "
    "only exit is to the east.\n";
}
irm14(SDESC) = Proc()
{
    Return Sayer("Flat Room", $arg(0));
}


irm15(LDESC) = Proc()
{
    "You are standing in the center of a large dome-like room.  Exits "
    "lead to the north, east, and west, and around the perimeter of "
    "the room appear the words 'ABRACADABRA -- VARUNA SUCKS COCONUTS.'\n";
}
irm15(SDESC) = Proc()
{
    Return Sayer("Inside Dome", $arg(0));
}


irm16(LDESC) = Proc()
{
    "You are at the base of a tall naturally formed shaft. "
    "On all sides, you are surrounded by gigantic basalt columns "
    "towering above you in a serpentine manner, like great "
    "likenesses of Vasuki himself.  Passages lead to the north, "
    "east, and west, and above you appears a small ledge.\n";
    $move(shaft, $loc($ME));
}
irm16(SDESC) = Proc()
{
    $move(shaft, $loc($ME));
    Return Sayer("Vertical Shaft", $arg(0));
}


irm17(LDESC) = Proc()
{
    "You are on a small ledge high above the base of a large "
    "shaft.  There is a rope seemingly standing rigid allowing you to "
    "climb down, but the climb above you seems quite dificult.\n";
    $move(shaft, $loc($ME));
}
irm17(SDESC) = Proc()
{
    $move(shaft, $loc($ME));
    Return Sayer("On small ledge", $arg(0));
}


irm18(LDESC) = Proc()
{
    "You are in a small room which smells strongly of "
    "incense.  Stone archways lead to the south, and east, and "
    "a smaller passage leads to the west.  You also hear some "
    "chanting and Sitar music in the background.\n";
}
irm18(SDESC) = Proc()
{
    Return Sayer("Incense room", $arg(0));
}


irm19(LDESC) = Proc()
{
    "You are at the holy well of Varuna, the water god.  The well is in the "
    "middle of the room, leading straight down into some water far below. "
    "Legend has it that those who climb down into the well suffer a fate "
    "worse than death, so it is advisable not to go down.  In the "
    "ceiling, there is a round hole";
    $move(hole, $loc($ME));
    If (rupees.wellbt) {
        " and the water in the well appears to have been disturbed recently.\n";
    }
    Else {
	".\n";
    }
}
irm19(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    Return Sayer("Varuna's well", $arg(0));
}


irm20(LDESC) = Proc()
{
    "You are at the entrance to Siva's temple.  A passage leads back to "
    "the west, ";
    If (monkey.fedmky) {
        "and a crack in a huge stone slab allows one to proceed east.\n";
	$move(crack, $loc($ME));
    }
    Else {
        "but the entrance to the temple is blocked by a huge stone slab.\n";
    }
}
irm20(SDESC) = Proc()
{
    If (monkey.fedmky) {
	$move(crack, $loc($ME));
    }
    Return Sayer("Entrance to Siva's temple", $arg(0));
}


irm21(LDESC) = Proc()
{
    "You are standing in front of Siva's altar, a small stone slab in front of "
    "a large monolith.  The exit is to the west.\n";
}
irm21(SDESC) = Proc()
{
    Return Sayer("Siva's Altar", $arg(0));
}


irm22(LDESC) = Proc()
{
    "You are standing at the top of a six-foot deep snake pit.  The walls of "
    "the room are covered with bas relief figures of cobras, kraits, and other "
    "miscellaneous elapids.  Exits lead to the west and south, through "
    "archways ringed by pythons carved into the rock.\n";
}
irm22(SDESC) = Proc()
{
    Return Sayer("Top of Snake pit", $arg(0));
}


irm23(LDESC) = Proc()
{
    "You are at the bottom of a snake pit.  The only direction it appears you "
    "can go is back out.\n";
}
irm23(SDESC) = Proc()
{
    Return Sayer("Bottom of snake pit", $arg(0));
}


prm1(LDESC) = Proc()
{
    darkq();
    "You are in the north-south corridor of an ancient paleolithic cave.  Its "
    "low ceiling is covered with paintings of wild game which have faded due "
    "to the passing of time.\n";
}
prm1(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("North-south corridor.", $arg(0));
}


prm2(LDESC) = Proc()
{
    "You are standing on a ledge above the floor of a subterranean canyon "
    "running east-west.  Shafts of sunlight penetrate through cracks in the "
    "ceiling high above, washing the room with an alabaster murkiness; "
    "casting shadows on the weathered rocks which have lain undisturbed "
    "for countless centuries. A small crawlway leads north, and there is a "
    "short, stout pole sticking out of the ground.";
    If (!rope.rtied) {
	"\n";
    }
    Else {
	$move(rope, $loc($ME));
        "  A section of rope is tied around the pole, with the "
        "other end hanging down into the canyon.\n";
    }
}
prm2(SDESC) = Proc()
{
    If (rope.rtied) {
	$move(rope, $loc($ME));
    }
    Return Sayer("Above East-west canyon.", $arg(0));
}


prm3(LDESC) = Proc()
{
    "You are at the bottom of a canyon running east-west.  The passage to the "
    "east is blocked by rubble, so it appears that the only direction you can "
    "go is west.  A rope dangles down from above.\n";
    $move(rope, $loc($ME));
}
prm3(SDESC) = Proc()
{
    $move(rope, $loc($ME));
    Return Sayer("East end of canyon.", $arg(0));
}


prm4(LDESC) = Proc()
{
    "You are standing in front of a limestone cavern, the entrance of which "
    "looks like a gaping mouth of a grotesque monster.  It appears that you "
    "can enter the cave to your south, or go either direction in the "
    "east-west canyon in which you are standing.\n";
}
prm4(SDESC) = Proc()
{
    Return Sayer("Entrance to limestone cavern.", $arg(0));
}


prm5(LDESC) = Proc()
{
    darkq();
    "You are in a very narrow room which probably was once much larger. "
    "However, it appears that a recent cave-in has closed off much of the "
    "room to the east.  To your north, there is a corridor which apparently "
    "leads back out, and in the eastern wall, there is a hole which you can "
    "probably crawl through.\n";
    $move(hole, $loc($ME));
}
prm5(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("Narrow room in cave.", $arg(0));
}


prm6(LDESC) = Proc()
{
    darkq();
    If (smilo.stond) {
        "You are standing above an empty shallow pit.  There is a small hole "
        "in the west wall of the room you are in.\n";
    }
    Else {
        "You are standing above a shallow pit which is empty except for a "
        "large smilodon (sabre-tooth tiger) which is growling at you "
        "menacingly.  The only other direction it looks like you can go is "
        "back out through a small hole in the rubble forming the west wall "
        "of the room you are in.\n";
    }
    $move(hole, $loc($ME));
}
prm6(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("Above shallow pit", $arg(0));
}


prm7(LDESC) = Proc()
{
    darkq();
    "You are standing on the loose gravel of a shallow pit.  An exit leads "
    "south, and above you, there is a small ledge which you can climb up to.\n";
}
prm7(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("In shallow pit", $arg(0));
}


prm8(LDESC) = Proc()
{
    darkq();
    "You are standing near the west rim of sheer cliff which drops down into "
    "a deep almost bottomless abyss. A passage leads north";
    If (trogl.killd) {
	".\n";
    }
    Else {
        " and there is an angry troglodyte here holding a large gold "
        "nugget under his arm.\n";
    }
}
prm8(SDESC) = Proc()
{
    Var foo;

    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    foo = Sayer("West rim of canyon", $arg(0));
    If ((!trogl.killd) & ($arg(0) != 0)) {
	"There is an angry troglodyte holding a gold nugget here.\n";
    }
    Return foo;
}


prm9(LDESC) = Proc()
{
    "You are at the junction of two canyons.  The larger one runs east-west "
    "and the smaller one runs north.\n";
}
prm9(SDESC) = Proc()
{
    Return Sayer("Canyon junction", $arg(0));
}


prm10(LDESC) = Proc()
{
    "You are standing on a shale slab tilted from west to east at about a "
    "forty-five degree angle.  At the east end of the slab, there is a short "
    "drop into what appears to be a lake.  Above you and to the west, it "
    "appears that there is some more explorable terrain, and the canyon leads "
    "back to to the south.  The air is quite warm, and there is a slight "
    "scent similar to asphalt in the air.\n";
}
prm10(SDESC) = Proc()
{
    Return Sayer("On shale slab", $arg(0));
}


prm11(LDESC) = Proc()
{
    "You are standing in the south end of a short canyon running north-south. "
    "The ground below your feet is littered with flakes of a dark rock, which "
    "seems to comprise most of the surrounding canyon walls.  There is a path "
    "to your north, and a steep slope down and to the east.\n";
}
prm11(SDESC) = Proc()
{
    Return Sayer("Canyon full of rubble", $arg(0));
}


prm12(LDESC) = Proc()
{
    "You are standing in the north end of a short canyon.  The ground is "
    "covered with a thin film of oil which apppears to be seeping out of "
    "a crack in the earth.  The only apparent direction you can go is south.\n";
    $move(crack, $loc($ME));
}
prm12(SDESC) = Proc()
{
    $move(crack, $loc($ME));
    Return Sayer("Oily end of canyon", $arg(0));
}


prm13(LDESC) = Proc()
{
    "You are standing in what was once a tributary into the now-extinct river "
    "which formed the large canyon in this area.  There is a streambed running "
    "to the south, and you can also go east and west.\n";
}
prm13(SDESC) = Proc()
{
    Return Sayer("End of dry river bed", $arg(0));
}


prm14(LDESC) = Proc()
{
    "You are standing in a narrow north-south canyon with a river bed running "
    "down the middle of it.  There is a semicirular shaped hole at the base of "
    "the eastern wall.\n";
    $move(hole, $loc($ME));
}
prm14(SDESC) = Proc()
{
    $move(hole, $loc($ME));
    Return Sayer("In narrow part of river bed", $arg(0));
}


prm15(LDESC) = Proc()
{
    "You are at the base of three water-eroded cliffs to your south, east "
    "and west.  It appears that a U-shaped waterfall once flowed into this "
    "area, and exited out to the north.\n";
}
prm15(SDESC) = Proc()
{
    Return Sayer("Below dried waterfall", $arg(0));
}


prm16(LDESC) = Proc()
{
    "You are in a section of the canyon where much of the rock appears to be "
    "primarily sandstone.  Water has apparently flowed out of a cave to your "
    "north into three-foot wide crack in the ground.  A substantial amount of "
    "rubble blocks your way west, and the rest of the canyon winds east.\n";
    $move(crack, $loc($ME));
}
prm16(SDESC) = Proc()
{
    $move(crack, $loc($ME));
    Return Sayer("Sandstone area", $arg(0));
}


prm17(LDESC) = Proc()
{
    darkq();
    "You are standing in front of the freshly dug gravesite of a Nearderthal "
    "hunter.  There is an exit to your south, and it seems that more of the "
    "cave can be explored to the north.  ";
    If (spear.tooky & !spear.abrad) {
	"However, a large amount of rubble blocks that path.\n";
    }
    Else {
	"\n";
    }
}
prm17(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("Neanderthal's gravesite", $arg(0));
}


prm18(LDESC) = Proc()
{
    darkq();
    "You are in a narrow room of a north-south running cave.  A large cairn "
    "of prehistoric cave bear skulls is piled high in one corner of the room. "
    "There are exits to the north and south.\n";
}
prm18(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("In front of cave bear cairn", $arg(0));
}


prm19(LDESC) = Proc()
{
    darkq();
    "You are in a large cavern room with a high ceiling.  Cracks in the walls "
    "lead in all directions but none of them seem to lead anywhere.  There are "
    "however, two major paths to the north and the south.\n";
}
prm19(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("Large Cavern room", $arg(0));
}


prm20(LDESC) = Proc()
{
    darkq();
    "You are in a room which was the site of a recent cave-in.  It appears to "
    "be futile to go any other direction except south.\n";
}
prm20(SDESC) = Proc()
{
    If (($arg(0) != 0) & darkq(1)) {
	Return DARK_STR;
    }
    darkq();
    Return Sayer("Cave-in site", $arg(0));
}


prm21(LDESC) = Proc()
{
    "You are in a crack in the earth which seems to have been formed by an "
    "ancient earthquake.  Various strata in the rock of different darkness "
    "seem to indicate that much time has passed since the formation of the "
    "rock at the lower end of this crack.  It seems that you can chimney up "
    "back out of the crack, or climb further down into it.\n";
    $move(crack, $loc($ME));
}
prm21(SDESC) = Proc()
{
    $move(crack, $loc($ME));
    Return Sayer("In large crack", $arg(0));
}


prm22(LDESC) = Proc()
{
    "You are standing on a narrow ledge about twenty-five feet above the "
    "ground.  Aside from going back up, the only other direction you can "
    "go is to step off the ledge to the west into the mouth of the large "
    "Tyrannosaurus Rex waiting to swallow you whole.\n";
}
prm22(SDESC) = Proc()
{
    Return Sayer("On ledge in front of Tyrannosaurus Rex", $arg(0));
}


prm23(LDESC) = Proc()
{
    "You are standing inside the mouth of a Tyrannosaurus Rex, whose jaws "
    "are being held open by a spear wedged length-wise in his mouth.  Various "
    "pieces of former adventurers can be found among the six-inch long teeth "
    "here.  You can step back out of the Tyrannosaurus onto the small ledge, "
    "or go further down into the Tyrannosaurus and get digested.\n";
}
prm23(SDESC) = Proc()
{
    Return Sayer("Inside mouth of Tyrannosaurus", $arg(0));
}

/*** EOF locales.adl ***/