23 interface |
23 interface |
24 |
24 |
25 uses SDLh, uConsts, uFloat, GLunit, Math; |
25 uses SDLh, uConsts, uFloat, GLunit, Math; |
26 |
26 |
27 var |
27 var |
|
28 /////// init flags /////// |
|
29 cScreenWidth : LongInt = 1024; |
|
30 cScreenHeight : LongInt = 768; |
|
31 cBits : LongInt = 32; |
|
32 //ipcPort is in uIO |
|
33 cFullScreen : boolean = false; |
|
34 isSoundEnabled : boolean = true; |
|
35 isMusicEnabled : boolean = false; |
|
36 cLocaleFName : shortstring = 'en.txt'; |
|
37 cInitVolume : LongInt = 100; |
|
38 cTimerInterval : LongInt = 8; |
|
39 PathPrefix : shortstring = './'; |
|
40 cShowFPS : boolean = false; |
|
41 cAltDamage : boolean = true; |
|
42 cReducedQuality : LongInt = rqNone; |
|
43 //userNick is in uChat |
|
44 recordFileName : shortstring = ''; |
|
45 cReadyDelay : Longword = 5000; |
|
46 ////////////////////////// |
|
47 |
28 isCursorVisible : boolean; |
48 isCursorVisible : boolean; |
29 isTerminated : boolean; |
49 isTerminated : boolean; |
30 isInLag : boolean; |
50 isInLag : boolean; |
31 isPaused : boolean; |
51 isPaused : boolean; |
32 |
52 |
40 GameState : TGameState; |
60 GameState : TGameState; |
41 GameType : TGameType; |
61 GameType : TGameType; |
42 GameFlags : Longword; |
62 GameFlags : Longword; |
43 TrainingFlags : Longword; |
63 TrainingFlags : Longword; |
44 TurnTimeLeft : Longword; |
64 TurnTimeLeft : Longword; |
45 ReadyTimeLeft : Longword; |
65 ReadyTimeLeft : Longword; |
46 cSuddenDTurns : LongInt; |
66 cSuddenDTurns : LongInt; |
47 cDamagePercent : LongInt; |
67 cDamagePercent : LongInt; |
48 cMineDudPercent : LongWord; |
68 cMineDudPercent : LongWord; |
49 cTemplateFilter : LongInt; |
69 cTemplateFilter : LongInt; |
50 cMapGen : LongInt; |
70 cMapGen : LongInt; |
79 LAND_HEIGHT : LongInt; |
99 LAND_HEIGHT : LongInt; |
80 LAND_WIDTH_MASK : LongWord; |
100 LAND_WIDTH_MASK : LongWord; |
81 LAND_HEIGHT_MASK : LongWord; |
101 LAND_HEIGHT_MASK : LongWord; |
82 cMaxCaptions : LongInt; |
102 cMaxCaptions : LongInt; |
83 |
103 |
84 // init flags |
|
85 cScreenWidth : LongInt = 1024; |
|
86 cScreenHeight : LongInt = 768; |
|
87 cBits : LongInt = 32; |
|
88 //ipcPort is in uIO |
|
89 cFullScreen : boolean = false; |
|
90 isSoundEnabled : boolean = true; |
|
91 isMusicEnabled : boolean = false; |
|
92 cLocaleFName : shortstring = 'en.txt'; |
|
93 cInitVolume : LongInt = 50; |
|
94 cTimerInterval : LongInt = 8; |
|
95 PathPrefix: shortstring = './'; |
|
96 cShowFPS : boolean = false; |
|
97 cAltDamage : boolean = true; |
|
98 cReducedQuality : LongInt = rqNone; |
|
99 //userNick is in uChat |
|
100 recordFileName : shortstring = ''; |
|
101 |
|
102 cLeftScreenBorder : LongInt; |
104 cLeftScreenBorder : LongInt; |
103 cRightScreenBorder : LongInt; |
105 cRightScreenBorder : LongInt; |
104 cScreenSpace : LongInt; |
106 cScreenSpace : LongInt; |
105 |
107 |
106 cCaseFactor : Longword; |
108 cCaseFactor : Longword; |
109 |
111 |
110 cSeed : shortstring; |
112 cSeed : shortstring; |
111 cVolumeDelta : LongInt; |
113 cVolumeDelta : LongInt; |
112 cHasFocus : boolean; |
114 cHasFocus : boolean; |
113 cInactDelay : Longword; |
115 cInactDelay : Longword; |
114 cReadyDelay : Longword; |
|
115 |
116 |
116 bBetweenTurns : boolean; |
117 bBetweenTurns : boolean; |
117 cHealthDecrease : LongWord; |
118 cHealthDecrease : LongWord; |
118 bWaterRising : Boolean; |
119 bWaterRising : Boolean; |
119 |
120 |
858 //ipcPort is in uIO |
858 //ipcPort is in uIO |
859 cFullScreen := false; |
859 cFullScreen := false; |
860 isSoundEnabled := true; |
860 isSoundEnabled := true; |
861 isMusicEnabled := false; |
861 isMusicEnabled := false; |
862 cLocaleFName := 'en.txt'; |
862 cLocaleFName := 'en.txt'; |
863 cInitVolume := 50; |
863 cInitVolume := 100; |
864 cTimerInterval := 8; |
864 cTimerInterval := 8; |
865 PathPrefix := './'; |
865 PathPrefix := './'; |
866 cShowFPS := false; |
866 cShowFPS := false; |
867 cAltDamage := true; |
867 cAltDamage := true; |
868 cReducedQuality := rqNone; |
868 cReducedQuality := rqNone; |
869 //userNick is in uChat |
869 //userNick is in uChat |
870 recordFileName := ''; |
870 recordFileName := ''; |
|
871 cReadyDelay := 5000; |
871 end; |
872 end; |
872 |
873 |
873 end. |
874 end. |