34 function  GenPreview: TPreview;

    34 function  GenPreview: TPreview;

    35 procedure CheckLandDigest(s: shortstring);

    35 procedure CheckLandDigest(s: shortstring);

    36 

    36 

    37 implementation

    37 implementation

    38 uses uConsole, uStore, uMisc, uRandom, uLandObjects, Adler32, uIO, uLandTexture, sysutils,

    38 uses uConsole, uStore, uMisc, uRandom, uLandObjects, Adler32, uIO, uLandTexture, sysutils,

    40 

    40 

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

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

    42 begin

    42 begin

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

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

    44 end;

    44 end;

   356                 rr.x:= x;

   356                 rr.x:= x;

   357                 rr.y:= yu;

   357                 rr.y:= yu;

   358                 r.x:= x mod tmpsurf^.w;

   358                 r.x:= x mod tmpsurf^.w;

   359                 r.y:= 0;

   359                 r.y:= 0;

   360                 r.w:= 1;

   360                 r.w:= 1;

   362                 SDL_UpperBlit(tmpsurf, @r, Surface, @rr);

   362                 SDL_UpperBlit(tmpsurf, @r, Surface, @rr);

   363             end;

   363             end;

   364             yd:= yu - 1;

   364             yd:= yu - 1;

   365         until yd < 0;

   365         until yd < 0;

   366     end;

   366     end;