equal
deleted
inserted
replaced
121 cWaterLine : LongInt; |
121 cWaterLine : LongInt; |
122 cGearScrEdgesDist: LongInt; |
122 cGearScrEdgesDist: LongInt; |
123 isAudioMuted : boolean; |
123 isAudioMuted : boolean; |
124 |
124 |
125 // originally typed consts |
125 // originally typed consts |
126 ExplosionBorderColor: LongWord; |
126 ExplosionBorderColorR, |
|
127 ExplosionBorderColorG, |
|
128 ExplosionBorderColorB, |
|
129 ExplosionBorderColorNoA, |
|
130 ExplosionBorderColor: LongWord; |
127 IceColor : LongWord; |
131 IceColor : LongWord; |
128 IceEdgeColor : LongWord; |
132 IceEdgeColor : LongWord; |
129 WaterOpacity: byte; |
133 WaterOpacity: byte; |
130 SDWaterOpacity: byte; |
134 SDWaterOpacity: byte; |
131 GrayScale: Boolean; |
135 GrayScale: Boolean; |
144 cRightScreenBorder : LongInt; |
148 cRightScreenBorder : LongInt; |
145 cScreenSpace : Longword; |
149 cScreenSpace : Longword; |
146 |
150 |
147 cCaseFactor : Longword; |
151 cCaseFactor : Longword; |
148 cLandMines : Longword; |
152 cLandMines : Longword; |
|
153 cAirMines : Longword; |
149 cExplosives : Longword; |
154 cExplosives : Longword; |
150 |
155 |
151 cScriptName : shortstring; |
156 cScriptName : shortstring; |
152 cScriptParam : shortstring; |
157 cScriptParam : shortstring; |
153 cSeed : shortstring; |
158 cSeed : shortstring; |
211 disableLandBack : boolean; |
216 disableLandBack : boolean; |
212 |
217 |
213 WorldDx: LongInt; |
218 WorldDx: LongInt; |
214 WorldDy: LongInt; |
219 WorldDy: LongInt; |
215 |
220 |
|
221 SpeechHogNumber: LongInt; |
|
222 |
216 // for tracking the limits of the visible grid based on cScaleFactor |
223 // for tracking the limits of the visible grid based on cScaleFactor |
217 ViewLeftX, ViewRightX, ViewBottomY, ViewTopY, ViewWidth, ViewHeight: LongInt; |
224 ViewLeftX, ViewRightX, ViewBottomY, ViewTopY, ViewWidth, ViewHeight: LongInt; |
218 |
225 |
219 // for debugging the view limits visually |
226 // for debugging the view limits visually |
220 cViewLimitsDebug: boolean; |
227 cViewLimitsDebug: boolean; |
230 LastVoice : TVoice = ( snd: sndNone; voicepack: nil ); |
237 LastVoice : TVoice = ( snd: sndNone; voicepack: nil ); |
231 |
238 |
232 mobileRecord: TMobileRecord; |
239 mobileRecord: TMobileRecord; |
233 |
240 |
234 MaxTextureSize: LongInt; |
241 MaxTextureSize: LongInt; |
|
242 |
|
243 ChatPasteBuffer: shortstring; |
235 |
244 |
236 ///////////////////////////////////// |
245 ///////////////////////////////////// |
237 //Buttons |
246 //Buttons |
238 {$IFDEF USE_TOUCH_INTERFACE} |
247 {$IFDEF USE_TOUCH_INTERFACE} |
239 buttonScale: GLFloat; |
248 buttonScale: GLFloat; |
2530 SDWaterColorArray[7]:= SDWaterColorArray[1]; |
2539 SDWaterColorArray[7]:= SDWaterColorArray[1]; |
2531 |
2540 |
2532 SDWaterOpacity:= $80; |
2541 SDWaterOpacity:= $80; |
2533 |
2542 |
2534 SDTint:= $80; |
2543 SDTint:= $80; |
|
2544 ExplosionBorderColorR:= 80; |
|
2545 ExplosionBorderColorG:= 80; |
|
2546 ExplosionBorderColorB:= 80; |
2535 ExplosionBorderColor:= $FF808080; |
2547 ExplosionBorderColor:= $FF808080; |
|
2548 ExplosionBorderColorNoA:= ExplosionBorderColor and (not AMask); |
2536 IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift); |
2549 IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift); |
2537 IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift); |
2550 IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift); |
2538 |
2551 |
2539 WaterOpacity:= $80; |
2552 WaterOpacity:= $80; |
2540 |
2553 |
2600 InitStepsFlags := 0; |
2613 InitStepsFlags := 0; |
2601 RealTicks := 0; |
2614 RealTicks := 0; |
2602 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon |
2615 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon |
2603 cCaseFactor := 5; {0..9} |
2616 cCaseFactor := 5; {0..9} |
2604 cLandMines := 4; |
2617 cLandMines := 4; |
|
2618 cAirMines := 4; |
2605 cExplosives := 2; |
2619 cExplosives := 2; |
2606 |
2620 |
2607 GameState := Low(TGameState); |
2621 GameState := Low(TGameState); |
2608 zoom := cDefaultZoomLevel; |
2622 zoom := cDefaultZoomLevel; |
2609 ZoomValue := cDefaultZoomLevel; |
2623 ZoomValue := cDefaultZoomLevel; |
2664 if cFullscreenWidth = 0 then |
2678 if cFullscreenWidth = 0 then |
2665 cFullscreenWidth:= min(cWindowedWidth, 640); |
2679 cFullscreenWidth:= min(cWindowedWidth, 640); |
2666 if cFullscreenHeight = 0 then |
2680 if cFullscreenHeight = 0 then |
2667 cFullscreenHeight:= min(cWindowedHeight, 480); |
2681 cFullscreenHeight:= min(cWindowedHeight, 480); |
2668 |
2682 |
|
2683 SpeechHogNumber:= -1; |
2669 |
2684 |
2670 LuaGoals:= ''; |
2685 LuaGoals:= ''; |
2671 cMapName:= ''; |
2686 cMapName:= ''; |
2672 |
2687 |
2673 LuaTemplateNumber:= 0; |
2688 LuaTemplateNumber:= 0; |
2676 LocalMessage:= 0; |
2691 LocalMessage:= 0; |
2677 |
2692 |
2678 cStereoDepth:= 0; |
2693 cStereoDepth:= 0; |
2679 cViewLimitsDebug:= false; |
2694 cViewLimitsDebug:= false; |
2680 AprilOne := false; |
2695 AprilOne := false; |
|
2696 |
|
2697 ChatPasteBuffer:= ''; |
2681 end; |
2698 end; |
2682 |
2699 |
2683 procedure freeModule; |
2700 procedure freeModule; |
2684 begin |
2701 begin |
2685 end; |
2702 end; |