INCLUDE "stdproc.adl";

INCLUDE "constant.adl";
INCLUDE "routines.adl";
INCLUDE "locnames.adl";

NOUN me(mrm1);
me(pmax) = 250;
me(NOTAKE) = TRUE;
me(ACTION) = ActAction;

INCLUDE "objects.adl";
INCLUDE "locales.adl";
INCLUDE "verbs.adl";
INCLUDE "objrouts.adl";
INCLUDE "transit.adl";

MoveFeet = Proc()			// Your feet just keep following you...
{
    $move(feet, $loc($ME));
}

START = Proc()
{
    $sdem(MoveFeet);
    StdInit(me);
    $setv(n, s, e, w, u, d, enter, exit, 0, 0);
    $prompt(PROMPT);
    $sdem(endgame);
}

DWIMI = Proc() {Return Dwimmer($arg(1));}
DWIMD = Proc() {Return Dwimmer($arg(1));}

/*** CHEAT ROUTINES ***/

chetr = Proc()
{
    If ($ME.debug == 0) $exit(1);
}


VERB cheat;
cheat(ACTION) = Proc()
{
    $ME.debug  = !$ME.debug;
}

VERB beam;
beam(ACTION) = Proc()
{
    chetr();
    $move($ME, Dobj);
}


VERB tractor;
tractor(ACTION) = Proc()
{
    chetr();
    $move(Dobj, $loc($ME));
    "The ";
    $sdesc(Dobj)();
    " magically appears.\n";
}

/*** EOF aard.adl ***/