equal
deleted
inserted
replaced
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 |