36 cInitVolume : LongInt = 100; |
36 cInitVolume : LongInt = 100; |
37 cTimerInterval : LongInt = 8; |
37 cTimerInterval : LongInt = 8; |
38 PathPrefix : shortstring = './'; |
38 PathPrefix : shortstring = './'; |
39 cShowFPS : boolean = false; |
39 cShowFPS : boolean = false; |
40 cAltDamage : boolean = true; |
40 cAltDamage : boolean = true; |
41 cReducedQuality : LongInt = rqNone; |
41 cReducedQuality : LongWord = rqNone; |
42 //userNick is in uChat |
42 //userNick is in uChat |
43 recordFileName : shortstring = ''; |
43 recordFileName : shortstring = ''; |
44 cReadyDelay : Longword = 0; |
44 cReadyDelay : Longword = 0; |
45 cLogfileBase : shortstring = 'debug'; |
45 cLogfileBase : shortstring = 'debug'; |
46 ////////////////////////// |
46 ////////////////////////// |
105 cLeftScreenBorder : LongInt; |
110 cLeftScreenBorder : LongInt; |
106 cRightScreenBorder : LongInt; |
111 cRightScreenBorder : LongInt; |
107 cScreenSpace : LongInt; |
112 cScreenSpace : LongInt; |
108 |
113 |
109 cCaseFactor : Longword; |
114 cCaseFactor : Longword; |
110 cLandAdditions : Longword; |
115 cLandMines : Longword; |
111 cExplosives : Longword; |
116 cExplosives : Longword; |
112 |
117 |
113 cSeed : shortstring; |
118 cSeed : shortstring; |
114 cVolumeDelta : LongInt; |
119 cVolumeDelta : LongInt; |
115 cHasFocus : boolean; |
120 cHasFocus : boolean; |
116 cInactDelay : Longword; |
121 cInactDelay : Longword; |
117 |
122 |
118 bBetweenTurns : boolean; |
123 bBetweenTurns : boolean; |
119 cHealthDecrease : LongWord; |
124 bWaterRising : boolean; |
120 bWaterRising : Boolean; |
|
121 |
125 |
122 ShowCrosshair : boolean; |
126 ShowCrosshair : boolean; |
123 CursorMovementX : LongInt; |
127 CursorMovementX : LongInt; |
124 CursorMovementY : LongInt; |
128 CursorMovementY : LongInt; |
125 cDrownSpeed : hwFloat; |
129 cDrownSpeed : hwFloat; |
279 |
283 |
280 procedure OutError(Msg: shortstring; isFatalError: boolean); |
284 procedure OutError(Msg: shortstring; isFatalError: boolean); |
281 begin |
285 begin |
282 // obsolete? written in WriteLnToConsole() anyway |
286 // obsolete? written in WriteLnToConsole() anyway |
283 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
287 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
284 WriteLnToConsole(Msg); |
288 WriteLnToConsole(Msg); |
285 if isFatalError then |
289 if isFatalError then |
286 begin |
290 begin |
287 SendIPC('E' + GetLastConsoleLine); |
291 SendIPC('E' + GetLastConsoleLine); |
288 SDL_Quit; |
292 SDL_Quit; |
289 halt(1) |
293 halt(1) |
290 end |
294 end |
291 end; |
295 end; |
292 |
296 |
293 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
297 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
294 begin |
298 begin |
742 TrainingTimeMax := 60000; |
746 TrainingTimeMax := 60000; |
743 TimeTrialStartTime := 0; |
747 TimeTrialStartTime := 0; |
744 TimeTrialStopTime := 0; |
748 TimeTrialStopTime := 0; |
745 cWaterLine := LAND_HEIGHT; |
749 cWaterLine := LAND_HEIGHT; |
746 cGearScrEdgesDist := 240; |
750 cGearScrEdgesDist := 240; |
747 cHealthDecrease := 0; |
|
748 |
751 |
749 GameFlags := 0; |
752 GameFlags := 0; |
750 TrainingFlags := 0; |
753 TrainingFlags := 0; |
751 TurnTimeLeft := 0; |
754 TurnTimeLeft := 0; |
752 cSuddenDTurns := 15; |
755 cSuddenDTurns := 15; |
753 cDamagePercent := 100; |
756 cDamagePercent := 100; |
754 cMineDudPercent := 0; |
757 cMineDudPercent := 0; |
755 cTemplateFilter := 0; |
758 cTemplateFilter := 0; |
756 cMapGen := 0;//MAPGEN_REGULAR |
759 cMapGen := 0; // MAPGEN_REGULAR |
757 cMazeSize := 0; |
760 cMazeSize := 0; |
758 cHedgehogTurnTime := 45000; |
761 cHedgehogTurnTime := 45000; |
759 cMinesTime := 3000; |
762 cMinesTime := 3; |
760 cMaxAIThinkTime := 9000; |
763 cMaxAIThinkTime := 9000; |
761 cCloudsNumber := 9; |
764 cCloudsNumber := 9; |
|
765 cHealthCaseProb := 35; |
|
766 cHealthCaseAmount := 25; |
|
767 cWaterRise := 47; |
|
768 cHealthDecrease := 5; |
762 |
769 |
763 cTagsMask := 0; |
770 cTagsMask := 0; |
764 KBnum := 0; |
771 KBnum := 0; |
765 InitStepsFlags := 0; |
772 InitStepsFlags := 0; |
766 RealTicks := 0; |
773 RealTicks := 0; |
767 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP |
774 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon |
768 cCaseFactor := 5; {0..9} |
775 cCaseFactor := 5; {0..9} |
769 cLandAdditions := 4; |
776 cLandMines := 4; |
770 cExplosives := 2; |
777 cExplosives := 2; |
771 |
778 |
772 GameState := Low(TGameState); |
779 GameState := Low(TGameState); |
773 GameType := gmtLocal; |
780 GameType := gmtLocal; |
774 zoom := cDefaultZoomLevel; |
781 zoom := cDefaultZoomLevel; |