ADL Scenario Source Code

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