/*** 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 ***/