ADL Scenario Source Code

    /*** OBJECTS ***/

    NOUN pen(mrm2);
    pen(weight) = 1;
    pen(LDESC) = Proc() {"There is a ball-point pen here.\n";}
    pen(SDESC) = Proc() {"a ball-point pen";}

    NOUN paper(mrm2);
    release = paper;
    form = paper;
    paper(weight) = 1;
    paper(LDESC) = Proc()
    {
        If (paper.readl == 0)
    	"There is a slip of paper here.\n";
        Else
    	"There is a release form here.\n";
    }
    paper(SDESC) = Proc()
    {
        If (paper.readl == 0)
    	"a slip of paper";
        Else
    	"a release form";
    }

    NOUN spices(irm6);
    spices(weight) = 3;
    spices(LDESC) = Proc() {"There is a bag of spices here.\n";}
    spices(SDESC) = Proc() {"spices";}
    spices(rarea) = 1;
    spices(pfound) = 5;
    spices(pplace) = 9;

    NOUN rupees(irm7);
    coins=rupees;
    rupees(weight) = 5;
    rupees(LDESC) = Proc() {"There is a bag of rupees (Indian coins) here.\n";}
    rupees(SDESC) = Proc() {"rupees (coins)";}
    rupees(rarea) = 1;
    rupees(pfound) = 5;
    rupees(pplace) = 15;

    NOUN coconut(irm3);
    coconut(weight) = 3;
    coconut(LDESC) = Proc() {"There is a large coconut here.\n";}
    coconut(SDESC) = Proc() {"a coconut";}

    NOUN rope(mrm1);
    rope(weight) = 3;
    rldesc = Proc()
    {
        If (rope.ropstf)
            "There is a long piece of rope here, magically rising up in mid-air.\n";
        Else
    	"There is a coil of rope here.\n";
    }
    rsdesc = Proc()
    {
        "a rope";
    }
    rope(LDESC) = rldesc;
    rope(SDESC) = rsdesc;

    NOUN clarinet(irm2);
    clarinet(weight) = 2;
    clarinet(LDESC) = Proc() {"There is a clarinet here.\n";}
    clarinet(SDESC) = Proc() {"clarinet";}

    NOUN cobra(irm22);
    cobra(NOTAKE) = TRUE;
    cobra(LDESC) = Proc() {"There is a king cobra at the bottom of the pit.\n";}
    cobra(SDESC) = Proc() {"a cobra";}
    snake = cobra;
    elapid = cobra;

    NOUN river;
    river(NOTAKE) = TRUE;

    NOUN statue;
    statue(NOTAKE) = TRUE;

    NOUN banana(irm3);
    banana(weight) = 2;
    banana(LDESC) = Proc() {"There is a banana here.\n";}
    banana(SDESC) = Proc() {"a banana";}

    NOUN peel;
    peel(weight) = 1;
    peel(LDESC) = Proc() {"On the ground, there is a banana peel.\n";}
    peel(SDESC) = Proc() {"a banana peel";}

    NOUN vishnu(irm11);
    vishnu(NOTAKE) = TRUE;

    NOUN mara(irm10);
    mara(NOTAKE) = TRUE;

    NOUN lakshmi(irm12);
    lakshmi(NOTAKE) = TRUE;

    NOUN crocodiles;
    crocodiles(NOTAKE) = TRUE;

    NOUN rhino(irm13);
    rhino(NOTAKE) = TRUE;
    rhino(LDESC) = Proc()
    {
        If (rhino.cutflg)
    	"There is a rhino sleeping here with his horn removed.\n";
        Else
    	"There is a rhinoceros sleeping in the corner.\n";
        If (rhino.earplg)
    	"  There are two pieces of cotton stuck in his ears.\n";
    }
    rhino(SDESC) = Proc() {"a sleeping rhino";}

    NOUN saw(irm2);
    saw(weight) = 2;
    saw(LDESC) = Proc() {"There is a hack-saw on the ground.\n";}
    saw(SDESC) = Proc() {"a hack-saw";}
    hacksaw = saw;
    hack-saw = saw;

    NOUN horn(irm13);
    horn(weight) = 2;
    horn(NOTAKE) = TRUE;
    horn(LDESC) = Proc()
    {
        If (rhino.cutflg)
    	"There is a rhinoceros horn here.\n";
    }
    horn(SDESC) = Proc()
    {
        If (rhino.cutflg)
    	"a rhino horn";
    }
    horn(rarea) = 1;
    horn(pfound) = 14;
    horn(pplace) = 7;

    NOUN cotton;
    cotton(weight) = 1;
    cotton(LDESC) = Proc() {"There is a large wad of cotton on the ground.\n";}
    cotton(SDESC) = Proc() {"a wad of cotton";}

    NOUN lattice(irm13);
    lattice(NOTAKE) = TRUE;

    NOUN monkey(irm20);
    monkey(NOTAKE) = TRUE;
    monkey(LDESC) = Proc() {"There is a sacred temple monkey here.\n";}
    monkey(SDESC) = Proc() {"a monkey";}

    NOUN tandoor(irm4);
    oven = tandoor;
    tandoor(NOTAKE) = TRUE;

    NOUN comb(irm14);
    comb(weight) = 1;
    comb(LDESC) = Proc() {"There is an expertly carved jade comb here.\n";}
    comb(SDESC) = Proc() {"a jade comb";}
    comb(rarea) = 1;
    comb(pfound) = 7;
    comb(pplace) = 6;

    NOUN ruby(irm17);
    ruby(weight) = 2;
    ruby(LDESC) = Proc() {"There is a crimson ruby here.\n";}
    ruby(SDESC) = Proc() {"a ruby";}
    ruby(rarea) = 1;
    ruby(pfound) = 8;
    ruby(pplace) = 7;

    NOUN bowl(irm21);
    bowl(weight) = 3;
    bowl(LDESC) = Proc() {"There is a crystal bowl here.\n";}
    bowl(SDESC) = Proc() {"a bowl";}
    bowl(rarea) = 1;
    bowl(pfound) = 10;
    bowl(pplace) = 10;

    NOUN bracelet(irm23);
    bracelet(weight) = 1;
    bracelet(LDESC) = Proc()
    {
        "There is a golden bracelet in the shape of a snake here.\n";
    }
    bracelet(SDESC) = Proc() {"a bracelet";}
    bracelet(rarea) = 1;
    bracelet(pfound) = 11;
    bracelet(pplace) = 6;

    NOUN shovel(mrm1);
    shovel(weight) = 3;
    shovel(LDESC) = Proc() {"There is a shovel here.\n";}
    shovel(SDESC) = Proc() {"a shovel";}

    NOUN ears(irm13);
    ears(NOTAKE) = TRUE;

    NOUN pole(prm2);
    pole(NOTAKE) = TRUE;

    NOUN amber(prm3);
    amber(weight) = 2;
    amber(LDESC) = Proc() {"There is a polished piece of amber here.\n";}
    amber(SDESC) = Proc() {"a piece of amber";}
    amber(rarea) = 2;
    amber(pfound) = 12;
    amber(pplace) = 6;

    NOUN lamp(mrm1);
    lamp(weight) = 3;
    lamp(LDESC) = Proc() {"There is a carbide-flame lamp here.\n";}
    lamp(SDESC) = Proc() {"a lamp";}

    NOUN grate(mrm5);
    grate(NOTAKE) = TRUE;

    NOUN nugget;
    gold = nugget;
    nugget(weight) = 4;
    nugget(LDESC) = Proc() {"There is a gold nugget lying on the ground.\n";}
    nugget(SDESC) = Proc() {"a gold nugget";}
    nugget(rarea) = 2;
    nugget(pfound) = 13;
    nugget(pplace) = 7;

    NOUN axe(prm1);
    axe(weight) = 1;
    axe(LDESC) = Proc() {"There is an stone-age axe here.\n";}
    axe(SDESC) = Proc() {"an axe";}

    NOUN spear(prm17);
    spear(weight) = 2;
    spear(LDESC) = Proc()
    {
        If (spear.tooky)
    	"There is a Neanderthal hunting spear here.\n";
        Else
    	"There is a Neanderthal hunting spear stuck in the ground.\n";
    }
    spear(SDESC) = Proc() {"a spear";}

    NOUN plant(prm2);
    plant(weight) = 4;
    plant(LDESC) = Proc() {"There is a strange looking potted plant here.\n";}
    plant(SDESC) = Proc() {"a plant";}

    NOUN smilodon(prm6);  //Putty tat
    smilo = smilodon;
    sabre = smilodon;
    smilodon(NOTAKE) = TRUE;

    NOUN troglodyte(prm8);
    trogl = troglodyte;
    troglodyte(NOTAKE) = TRUE;

    NOUN cheese(prm4);
    cheese(weight) = 1;
    cheese(LDESC) = Proc()
    {
        "There's a piece of Swiss cheese (aged 1,000,000 years) here.\n";
    }
    cheese(SDESC) = Proc() {"a piece of cheese";}

    NOUN towel(prm4);
    towel(weight) = 2;
    towel(LDESC) = Proc() {"There is an old towel here.\n";}
    towel(SDESC) = Proc() {"a towel";}

    NOUN mammoth(prm14);
    mammoth(LDESC) = Proc()
    {
        "There is a large wooly mammoth blocking the path to the south.\n";
    }
    mammoth(SDESC) = Proc() {"a mammoth";}
    elephant = mammoth;
    pachyderm = mammoth;

    NOUN feet;
    feet(NOTAKE) = TRUE;

    NOUN diamond(prm12);
    diamond(weight) = 1;
    diamond(LDESC) = Proc() {"There is a small diamond here.\n";}
    diamond(SDESC) = Proc() {"a diamond";}
    diamond(rarea) = 2;
    diamond(pfound) = 7;
    diamond(pplace) = 8;

    NOUN ivory(prm15);
    ivory(weight) = 2;
    ivory(LDESC) = Proc() {"There is a piece of ivory here.\n";}
    ivory(SDESC) = Proc() {"a piece of ivory";}
    ivory(rarea) = 2;
    ivory(pfound) = 9;
    ivory(pplace) = 8;

    NOUN pendant;
    pendant(weight) = 2;
    pendant(LDESC) = Proc() {"There is a ancient pendant here.\n";}
    pendant(SDESC) = Proc() {"a pendant";}
    pendant(rarea) = 2;
    pendant(pfound) = 14;
    pendant(pplace) = 4;

    NOUN cairn(prm18);
    skulls = cairn;
    cairn(NOTAKE) = TRUE;

    NOUN bear(prm19);
    bear(NOTAKE) = TRUE;
    bear(LDESC) = Proc()
    {
        "There is a ferocious cave bear blocking your path to the north.\n";
    }
    bear(SDESC) = Proc() {"a cave bear";}

    NOUN necklace(prm20);
    necklace(weight) = 1;
    necklace(LDESC) = Proc() {"There is a pearl necklace here.\n";}
    necklace(SDESC) = Proc() {"a necklace";}
    necklace(rarea) = 2;
    necklace(pfound) = 13;
    necklace(pplace) = 6;

    NOUN tyrannosaurus(prm22);
    tyrannosaurus(NOTAKE) = TRUE;

    NOUN ring(prm23);
    ring(weight) = 1;
    ring(LDESC) = Proc() {"There is a large diamond ring here.\n";}
    ring(SDESC) = Proc() {"a ring";}
    ring(rarea) = 2;
    ring(pfound) = 13;
    ring(pplace) = 10;

    NOUN hole;
    hole(NOTAKE) = TRUE;
    hole(OPENED) = TRUE;

    NOUN newspaper(mrm1);
    newspaper(weight) = 1;
    newspaper(LDESC) = Proc() {"There is a copy of a newspaper here.\n";}
    newspaper(SDESC) = Proc() {"a newspaper";}

    NOUN crack;
    crack(NOTAKE) = TRUE;
    NOUN shaft;
    shaft(NOTAKE) = TRUE;