hedgewars/uLandObjects.pas
changeset 9295 f8819c3dde54
parent 9080 9b42757d7e71
child 9521 8054d9d775fd
child 9682 aa2431ed87b2
child 9721 1833dadcebf0
equal deleted inserted replaced
9293:873022596d15 9295:f8819c3dde54
    30 procedure BlitImageUsingMask(cpX, cpY: Longword;  Image, Mask: PSDL_Surface);
    30 procedure BlitImageUsingMask(cpX, cpY: Longword;  Image, Mask: PSDL_Surface);
    31 procedure AddOnLandObjects(Surface: PSDL_Surface);
    31 procedure AddOnLandObjects(Surface: PSDL_Surface);
    32 procedure SetLand(var LandWord: Word; Pixel: LongWord); inline;
    32 procedure SetLand(var LandWord: Word; Pixel: LongWord); inline;
    33 
    33 
    34 implementation
    34 implementation
    35 uses uStore, uConsts, uConsole, uRandom, uSound, GLunit
    35 uses uStore, uConsts, uConsole, uRandom, uSound
    36      , uTypes, uVariables, uUtils, uDebug, SysUtils
    36      , uTypes, uVariables, uUtils, uDebug, SysUtils
    37      , uPhysFSLayer;
    37      , uPhysFSLayer;
    38 
    38 
    39 const MaxRects = 512;
    39 const MaxRects = 512;
    40       MAXOBJECTRECTS = 16;
    40       MAXOBJECTRECTS = 16;
   533                 t:= 255;
   533                 t:= 255;
   534             SkyColor.r:= t;
   534             SkyColor.r:= t;
   535             SkyColor.g:= t;
   535             SkyColor.g:= t;
   536             SkyColor.b:= t
   536             SkyColor.b:= t
   537             end;
   537             end;
   538         glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99);
   538         SetSkyColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255);
   539         SDSkyColor.r:= SkyColor.r;
   539         SDSkyColor.r:= SkyColor.r;
   540         SDSkyColor.g:= SkyColor.g;
   540         SDSkyColor.g:= SkyColor.g;
   541         SDSkyColor.b:= SkyColor.b;
   541         SDSkyColor.b:= SkyColor.b;
   542         end
   542         end
   543     else if key = 'border' then
   543     else if key = 'border' then
   792                     t:= 255;
   792                     t:= 255;
   793                 RQSkyColor.r:= t;
   793                 RQSkyColor.r:= t;
   794                 RQSkyColor.g:= t;
   794                 RQSkyColor.g:= t;
   795                 RQSkyColor.b:= t
   795                 RQSkyColor.b:= t
   796                 end;
   796                 end;
   797             glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
   797             SetSkyColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255);
   798             SDSkyColor.r:= RQSkyColor.r;
   798             SDSkyColor.r:= RQSkyColor.r;
   799             SDSkyColor.g:= RQSkyColor.g;
   799             SDSkyColor.g:= RQSkyColor.g;
   800             SDSkyColor.b:= RQSkyColor.b;
   800             SDSkyColor.b:= RQSkyColor.b;
   801             end
   801             end
   802         end
   802         end