equal
deleted
inserted
replaced
34 uLandGenMaze, uLandOutline; |
34 uLandGenMaze, uLandOutline; |
35 |
35 |
36 var digest: shortstring; |
36 var digest: shortstring; |
37 |
37 |
38 procedure ResizeLand(width, height: LongWord); |
38 procedure ResizeLand(width, height: LongWord); |
39 var potW, potH: LongWord; |
39 var potW, potH: LongInt; |
40 begin |
40 begin |
41 potW:= toPowerOf2(width); |
41 potW:= toPowerOf2(width); |
42 potH:= toPowerOf2(height); |
42 potH:= toPowerOf2(height); |
43 if (potW <> LAND_WIDTH) or (potH <> LAND_HEIGHT) then |
43 if (potW <> LAND_WIDTH) or (potH <> LAND_HEIGHT) then |
44 begin |
44 begin |