69 TrainingTimeMax : Longword; |
69 TrainingTimeMax : Longword; |
70 |
70 |
71 TimeTrialStartTime: Longword; |
71 TimeTrialStartTime: Longword; |
72 TimeTrialStopTime : Longword; |
72 TimeTrialStopTime : Longword; |
73 |
73 |
|
74 // originally from uConsts |
|
75 Pathz: array[TPathType] of shortstring; |
|
76 CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture; |
|
77 LAND_WIDTH :longint; |
|
78 LAND_HEIGHT :longint; |
|
79 LAND_WIDTH_MASK :longWord; |
|
80 LAND_HEIGHT_MASK :longWord; |
|
81 cMaxCaptions : LongInt; |
|
82 |
74 // init flags |
83 // init flags |
75 cScreenWidth : LongInt = 1024; |
84 cScreenWidth : LongInt = 1024; |
76 cScreenHeight : LongInt = 768; |
85 cScreenHeight : LongInt = 768; |
77 cBits : LongInt = 32; |
86 cBits : LongInt = 32; |
78 cBitsStr : string[2] = '32'; |
|
79 //ipcPort is in uIO |
87 //ipcPort is in uIO |
80 cFullScreen : boolean = false; |
88 cFullScreen : boolean = false; |
81 isSoundEnabled : boolean = true; |
89 isSoundEnabled : boolean = true; |
82 isMusicEnabled : boolean = false; |
90 isMusicEnabled : boolean = false; |
83 cLocaleFName : shortstring = 'en.txt'; |
91 cLocaleFName : shortstring = 'en.txt'; |
84 cInitVolume : LongInt = 50; |
92 cInitVolume : LongInt = 50; |
85 cTimerInterval : LongInt = 8; |
93 cTimerInterval : LongInt = 8; |
86 //pathPrefix is in uConsts |
94 PathPrefix: shortstring = './'; |
87 cShowFPS : boolean = false; |
95 cShowFPS : boolean = false; |
88 cAltDamage : boolean = true; |
96 cAltDamage : boolean = true; |
89 cReducedQuality : LongInt = rqNone; |
97 cReducedQuality : LongInt = rqNone; |
90 //userNick is in uChat |
98 //userNick is in uChat |
91 recordFileName : shortstring = ''; |
99 recordFileName : shortstring = ''; |
670 |
678 |
671 |
679 |
672 procedure initModule; |
680 procedure initModule; |
673 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
681 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF} |
674 begin |
682 begin |
|
683 Pathz:= cPathz; |
|
684 {* REFERENCE |
|
685 4096 -> $FFFFF000 |
|
686 2048 -> $FFFFF800 |
|
687 1024 -> $FFFFFC00 |
|
688 512 -> $FFFFFE00 *} |
|
689 if (cReducedQuality and rqLowRes) <> 0 then |
|
690 begin |
|
691 LAND_WIDTH:= 2048; |
|
692 LAND_HEIGHT:= 1024; |
|
693 LAND_WIDTH_MASK:= $FFFFF800; |
|
694 LAND_HEIGHT_MASK:= $FFFFFC00; |
|
695 end |
|
696 else |
|
697 begin |
|
698 LAND_WIDTH:= 4096; |
|
699 LAND_HEIGHT:= 2048; |
|
700 LAND_WIDTH_MASK:= $FFFFF000; |
|
701 LAND_HEIGHT_MASK:= $FFFFF800 |
|
702 end; |
|
703 |
675 cDrownSpeed.QWordValue := 257698038; // 0.06 |
704 cDrownSpeed.QWordValue := 257698038; // 0.06 |
676 cDrownSpeedf := 0.06; |
705 cDrownSpeedf := 0.06; |
677 cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
706 cMaxWindSpeed.QWordValue:= 1073742; // 0.00025 |
678 cWindSpeed.QWordValue := 429496; // 0.0001 |
707 cWindSpeed.QWordValue := 429496; // 0.0001 |
679 cWindSpeedf := 0.0001; |
708 cWindSpeedf := 0.0001; |
745 cHasFocus := true; |
774 cHasFocus := true; |
746 cInactDelay := 1250; |
775 cInactDelay := 1250; |
747 |
776 |
748 ScreenFade := sfNone; |
777 ScreenFade := sfNone; |
749 |
778 |
|
779 {$IFDEF IPHONEOS} |
|
780 if isPhone() then |
|
781 cMaxCaptions:= 3 |
|
782 else |
|
783 {$ENDIF} |
|
784 cMaxCaptions:= 4; |
|
785 |
750 {$IFDEF SDL13} |
786 {$IFDEF SDL13} |
751 SDLwindow := nil; |
787 SDLwindow := nil; |
752 {$ENDIF} |
788 {$ENDIF} |
753 {$IFDEF DEBUGFILE} |
789 {$IFDEF DEBUGFILE} |
754 {$I-} |
790 {$I-} |
755 {$IFDEF IPHONEOS} |
791 {$IFDEF IPHONEOS} |
756 Assign(f,'../Documents/debug.txt'); |
792 Assign(f,'../Documents/debug.txt'); |
757 Rewrite(f); |
793 Rewrite(f); |
758 {$ELSE} |
794 {$ELSE} |
759 if (ParamStr(1) <> '') and (ParamStr(2) <> '') then |
795 if (ParamStr(1) <> '') and (ParamStr(2) <> '') then |
760 if (ParamCount <> 3) and (ParamCount <> 18) then |
796 if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then |
761 begin |
797 begin |
762 for i:= 0 to 7 do |
798 for i:= 0 to 7 do |
763 begin |
799 begin |
764 assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt'); |
800 assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt'); |
765 rewrite(f); |
801 rewrite(f); |
794 writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); |
830 writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); |
795 flush(f); |
831 flush(f); |
796 close(f); |
832 close(f); |
797 {$ENDIF} |
833 {$ENDIF} |
798 |
834 |
799 // re-init flags so they'll always contain safe values |
835 // re-init flags so they will always contain safe values |
800 cScreenWidth := 1024; |
836 cScreenWidth := 1024; |
801 cScreenHeight := 768; |
837 cScreenHeight := 768; |
802 cBits := 32; |
838 cBits := 32; |
803 cBitsStr := '32'; |
|
804 //ipcPort is in uIO |
839 //ipcPort is in uIO |
805 cFullScreen := false; |
840 cFullScreen := false; |
806 isSoundEnabled := true; |
841 isSoundEnabled := true; |
807 isMusicEnabled := false; |
842 isMusicEnabled := false; |
808 cLocaleFName := 'en.txt'; |
843 cLocaleFName := 'en.txt'; |
809 cInitVolume := 50; |
844 cInitVolume := 50; |
810 cTimerInterval := 8; |
845 cTimerInterval := 8; |
811 //pathPrefix is in uConsts |
846 PathPrefix := './'; |
812 cShowFPS := false; |
847 cShowFPS := false; |
813 cAltDamage := true; |
848 cAltDamage := true; |
814 cReducedQuality := rqNone; |
849 cReducedQuality := rqNone; |
815 //userNick is in uChat |
850 //userNick is in uChat |
816 recordFileName := ''; |
851 recordFileName := ''; |