NOUN $road;
NOUN $gard;
NOUN $frst;     fdsc = Proc() {"You're lost in the forest.\n";}
NOUN $farm;
NOUN $town;

NOUN road1($road);      road1(LIGHT) = TRUE;
NOUN road2($road);      road2(LIGHT) = TRUE;
NOUN road3($road);      road3(LIGHT) = TRUE;
NOUN road4($road);      road4(LIGHT) = TRUE;
NOUN road5($road);      road5(LIGHT) = TRUE;
NOUN road6($road);      road6(LIGHT) = TRUE;
NOUN road7($road);      road7(LIGHT) = TRUE;
NOUN Roadx;     /* Where things on Highway 7 get held */
NOUN riverx;	/* Where things in the river bed get held */

NOUN gard1($gard);      gard1(LIGHT) = TRUE;
NOUN gard2($gard);      gard2(LIGHT) = TRUE;

NOUN frst1($frst);      frst1(LIGHT) = TRUE;

NOUN farm1($farm);      farm1(LIGHT) = TRUE;
NOUN farm2($farm);      farm2(LIGHT) = TRUE;
NOUN farm3($farm);      farm3(LIGHT) = TRUE;
NOUN farm4($farm);      farm4(LIGHT) = TRUE;
NOUN farm5($farm);      farm5(LIGHT) = TRUE;
NOUN farm6($farm);      farm6(LIGHT) = TRUE;
NOUN farm7($farm);      farm7(LIGHT) = TRUE;

NOUN town1($town);      town1(LIGHT) = TRUE;
NOUN town2($town);      town2(LIGHT) = TRUE;
NOUN town3($town);      town3(LIGHT) = TRUE;
NOUN town4($town);      town4(LIGHT) = TRUE;
NOUN $bank;
NOUN town5($bank);      town5(LIGHT) = TRUE;
NOUN town6($town);      town6(LIGHT) = TRUE;

NOUN
    cel01, cel02, cel03, cel04, cel05, cel06, cel07,
    cel08, cel09, cel10, cel11, cel12, cel13, cel14,
    cel15, cel16, cel17, cel18, cel19, cel20, cel21;

cel21(LIGHT) = TRUE;

NOUN
    desert, field;

field(LIGHT) = TRUE;
desert(LIGHT) = TRUE;