changeset 4374 | bcefeeabaa33 |
parent 4368 | b89235e401e5 |
child 4377 | 43945842da0c |
4373:fe0e3903bb9e | 4374:bcefeeabaa33 |
---|---|
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, |
39 uVariables; |
39 uVariables, uUtils; |
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; |
361 r.h:= min(16, yd - yu + 1); |
361 r.h:= Min(16, yd - yu + 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; |