equal
deleted
inserted
replaced
35 cMaxAIThinkTime : Longword = 5000; |
35 cMaxAIThinkTime : Longword = 5000; |
36 |
36 |
37 cCloudsNumber : integer = 9; |
37 cCloudsNumber : integer = 9; |
38 cConsoleHeight : integer = 320; |
38 cConsoleHeight : integer = 320; |
39 cConsoleYAdd : integer = 0; |
39 cConsoleYAdd : integer = 0; |
40 cTimerInterval : Cardinal = 5; |
40 cTimerInterval : Longword = 5; |
41 cScreenWidth : integer = 1024; |
41 cScreenWidth : integer = 1024; |
42 cScreenHeight : integer = 768; |
42 cScreenHeight : integer = 768; |
43 cBits : integer = 16; |
43 cBits : integer = 16; |
44 cBitsStr : string[2] = '16'; |
44 cBitsStr : string[2] = '16'; |
45 |
45 |
48 cScreenEdgesDist : integer = 240; |
48 cScreenEdgesDist : integer = 240; |
49 cTeamHealthWidth : integer = 128; |
49 cTeamHealthWidth : integer = 128; |
50 |
50 |
51 GameTicks : LongWord = 0; |
51 GameTicks : LongWord = 0; |
52 |
52 |
53 cSkyColor : Cardinal = 0; |
53 cSkyColor : Longword = 0; |
54 cWaterColor : Cardinal = $005ACE; |
54 cWaterColor : Longword = $005ACE; |
55 cWhiteColor : Cardinal = $FFFFFF; |
55 cWhiteColor : Longword = $FFFFFF; |
56 cConsoleSplitterColor : Cardinal = $FF0000; |
56 cConsoleSplitterColor : Longword = $FF0000; |
57 cColorNearBlack : Cardinal = 16; |
57 cColorNearBlack : Longword = 16; |
58 cExplosionBorderColor : LongWord = $808080; |
58 cExplosionBorderColor : LongWord = $808080; |
59 |
59 |
60 cDrownSpeed : Double = 0.06; |
60 cDrownSpeed : Double = 0.06; |
61 cMaxWindSpeed : Double = 0.0005; |
61 cMaxWindSpeed : Double = 0.0005; |
62 cWindSpeed : Double = 0.0001; |
62 cWindSpeed : Double = 0.0001; |
146 procedure SDLTry(Assert: boolean; isFatal: boolean); |
146 procedure SDLTry(Assert: boolean; isFatal: boolean); |
147 begin |
147 begin |
148 if not Assert then OutError(SDL_GetError, isFatal) |
148 if not Assert then OutError(SDL_GetError, isFatal) |
149 end; |
149 end; |
150 |
150 |
151 procedure AdjustColor(var Color: Cardinal); |
151 procedure AdjustColor(var Color: Longword); |
152 begin |
152 begin |
153 Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF) |
153 Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF) |
154 end; |
154 end; |
155 |
155 |
156 function IntToStr(n: integer): shortstring; |
156 function IntToStr(n: integer): shortstring; |