equal
deleted
inserted
replaced
563 |
563 |
564 UpdateLandTexture(0, 1023) |
564 UpdateLandTexture(0, 1023) |
565 end; |
565 end; |
566 |
566 |
567 procedure LoadMap; |
567 procedure LoadMap; |
568 var x, y: Longword; |
568 var tmpsurf: PSDL_Surface; |
569 p: PByteArray; |
|
570 tmpsurf: PSDL_Surface; |
|
571 begin |
569 begin |
572 WriteLnToConsole('Loading land from file...'); |
570 WriteLnToConsole('Loading land from file...'); |
573 AddProgress; |
571 AddProgress; |
574 tmpsurf:= LoadImage(Pathz[ptMapCurrent] + '/map', true, true, true); |
572 tmpsurf:= LoadImage(Pathz[ptMapCurrent] + '/map', true, true, true); |
575 TryDo((tmpsurf^.w = 2048) and (tmpsurf^.h = 1024), 'Map dimensions should be 2048x1024!', true); |
573 TryDo((tmpsurf^.w = 2048) and (tmpsurf^.h = 1024), 'Map dimensions should be 2048x1024!', true); |