33 procedure GenMap;

    33 procedure GenMap;

    34 function  GenPreview: TPreview;

    34 function  GenPreview: TPreview;

    35 

    35 

    36 implementation

    36 implementation

    37 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils,

    37 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils,

    39 

    39 

    40 operator=(const a, b: direction) c: Boolean;

    40 operator=(const a, b: direction) c: Boolean;

    41 begin

    41 begin

    42     c := (a.x = b.x) and (a.y = b.y);

    42     c := (a.x = b.x) and (a.y = b.y);

    43 end;

    43 end;