ADL Scenario Source Code

    /*  *** Intrinsic Properties *** */

    BITPROP
        SHRNK,              // Has it been shrunk?
        CRYST,              // Is it one of our magic thingies?
        KILLED,             // Is the dragon dead?
        MISC1;              // Miscellaneous Property (Semantics per object)

    HOLED = MISC1;

    PROPERTY
        RDLOC,              // Location on Highway 7
        WEIGH,
        HOLDS,
        HAS,
        POINT;

    Loc21 = RDLOC;          // Location in river bed

    /* Constants */
    CAPAC = 250;            // More than I can carry

    PMAX = 400;             // Maximum number of points

    BEND1LOC = 3;           // Location of first bend in river bed
    BEND2LOC = 6;           // Location of second bend in river bed
    GRATELOC = 11;          // Location of grate in river bed

    Shazm = "ShaZam";       // The Wizard's incantation

    /* Globals */
    VAR
        RBTouch,            // Has he touched the red and blue crystals?
        HWY7,               // My location on highway 7
        RiverLoc,           // My location in river bed
        SCORE,              // My current score
        Tempr,              // Dragon's Upset?
        Cel6x,              // Where he came from to enter Cel06
        Wizrd,              // Wizardly Ability
        GO,                 // Did the player move on this turn?
        GOVERB,             // Was the player's verb one of motion (n,s,e,w,etc.)?
        IncFlag;            // Should the turn counter be incremented?

    (IncFlag) = TRUE;       // Defaults to TRUE

    ROUTINE
      LOOK, GrowX, Grow, ShrnX, Shrink, WzTgl,
      Dump7, Get7, Entr7, East7, West7, CRout, DRdem,
      TWN5y, cg, Sayer;