655 TextureList := nil; |
655 TextureList := nil; |
656 |
656 |
657 // int, longint longword and byte |
657 // int, longint longword and byte |
658 CursorMovementX := 0; |
658 CursorMovementX := 0; |
659 CursorMovementY := 0; |
659 CursorMovementY := 0; |
660 GameTicks := 0; |
660 GameTicks := 0; |
661 TrainingTimeInc := 10000; |
661 TrainingTimeInc := 10000; |
662 TrainingTimeInD := 500; |
662 TrainingTimeInD := 500; |
663 TrainingTimeInM := 5000; |
663 TrainingTimeInM := 5000; |
664 TrainingTimeMax := 60000; |
664 TrainingTimeMax := 60000; |
665 TimeTrialStartTime := 0; |
665 TimeTrialStartTime := 0; |
666 TimeTrialStopTime := 0; |
666 TimeTrialStopTime := 0; |
667 cWaterLine := LAND_HEIGHT; |
667 cWaterLine := LAND_HEIGHT; |
668 cGearScrEdgesDist := 240; |
668 cGearScrEdgesDist := 240; |
669 cHealthDecrease := 0; |
669 cHealthDecrease := 0; |
670 |
670 |
671 GameFlags := 0; |
671 GameFlags := 0; |
672 TrainingFlags := 0; |
672 TrainingFlags := 0; |
673 TurnTimeLeft := 0; |
673 TurnTimeLeft := 0; |
674 cSuddenDTurns := 15; |
674 cSuddenDTurns := 15; |
675 cDamagePercent := 100; |
675 cDamagePercent := 100; |
676 cMineDudPercent := 0; |
676 cMineDudPercent := 0; |
677 cTemplateFilter := 0; |
677 cTemplateFilter := 0; |
678 |
678 |
679 cHedgehogTurnTime := 45000; |
679 cHedgehogTurnTime := 45000; |
680 cMinesTime := 3000; |
680 cMinesTime := 3000; |
681 cMaxAIThinkTime := 9000; |
681 cMaxAIThinkTime := 9000; |
682 |
682 |
683 cCloudsNumber := 9; |
683 cCloudsNumber := 9; |
684 cScreenWidth := 1024; |
684 cScreenWidth := 1024; |
685 cScreenHeight := 768; |
685 cScreenHeight := 768; |
686 cInitWidth := cScreenWidth; |
686 cInitWidth := cScreenWidth; |
687 cInitHeight := cScreenHeight; |
687 cInitHeight := cScreenHeight; |
688 cBits := 32; |
688 cBits := 32; |
689 cTagsMask := 0; |
689 cTagsMask := 0; |
690 KBnum := 0; |
690 KBnum := 0; |
691 InitStepsFlags := 0; |
691 InitStepsFlags := 0; |
692 RealTicks := 0; |
692 RealTicks := 0; |
693 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP |
693 AttackBar := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP |
694 |
694 |
695 // tgametype and glfloat and string |
695 // tgametype and glfloat and string |
696 GameState := Low(TGameState); |
696 GameState := Low(TGameState); |
697 GameType := gmtLocal; |
697 GameType := gmtLocal; |
698 zoom := 2.0; |
698 zoom := 2.0; |
699 ZoomValue := 2.0; |
699 ZoomValue := 2.0; |
700 cBitsStr := '32'; |
700 cBitsStr := '32'; |
701 WeaponTooltipTex := nil; |
701 WeaponTooltipTex:= nil; |
702 |
702 |
703 // booleans |
703 // booleans |
704 cLaserSighting := false; |
704 cLaserSighting := false; |
705 cVampiric := false; |
705 cVampiric := false; |
706 cArtillery := false; |
706 cArtillery := false; |
707 flagMakeCapture := false; |
707 flagMakeCapture := false; |
708 bBetweenTurns := false; |
708 bBetweenTurns := false; |
709 bWaterRising := false; |
709 bWaterRising := false; |
710 isCursorVisible := false; |
710 isCursorVisible := false; |
711 isTerminated := false; |
711 isTerminated := false; |
712 isInLag := false; |
712 isInLag := false; |
713 isPaused := false; |
713 isPaused := false; |
714 isMusicEnabled := false; |
714 isMusicEnabled := false; |
715 isInMultiShoot := false; |
715 isInMultiShoot := false; |
716 isSpeed := false; |
716 isSpeed := false; |
717 fastUntilLag := false; |
717 fastUntilLag := false; |
718 cVSyncInUse := true; |
718 cVSyncInUse := true; |
719 isSoundEnabled := true; |
719 isSoundEnabled := true; |
720 isSEBackup := true; |
720 isSEBackup := true; |
721 |
721 |
722 // init flags |
722 // init flags |
723 recordFileName := ''; |
723 recordFileName := ''; |
724 cShowFPS := false; |
724 cShowFPS := false; |
725 cCaseFactor := 5; {0..9} |
725 cCaseFactor := 5; {0..9} |
726 cLandAdditions := 4; |
726 cLandAdditions := 4; |
727 cExplosives := 2; |
727 cExplosives := 2; |
728 cFullScreen := false; |
728 cFullScreen := false; |
729 cReducedQuality := false; |
729 cReducedQuality := false; |
730 cLocaleFName := 'en.txt'; |
730 cLocaleFName := 'en.txt'; |
731 cSeed := ''; |
731 cSeed := ''; |
732 cInitVolume := 50; |
732 cInitVolume := 50; |
733 cVolumeDelta := 0; |
733 cVolumeDelta := 0; |
734 cTimerInterval := 8; |
734 cTimerInterval := 8; |
735 cHasFocus := true; |
735 cHasFocus := true; |
736 cInactDelay := 1250; |
736 cInactDelay := 1250; |
737 cAltDamage := true; |
737 cAltDamage := true; |
738 {$IFDEF DEBUGFILE} |
738 {$IFDEF DEBUGFILE} |
739 {$I-} |
739 {$I-} |