equal
deleted
inserted
replaced
62 isSpeed : boolean; |
62 isSpeed : boolean; |
63 |
63 |
64 fastUntilLag : boolean; |
64 fastUntilLag : boolean; |
65 autoCameraOn : boolean; |
65 autoCameraOn : boolean; |
66 |
66 |
|
67 CampaignVariable: shortstring; |
67 GameTicks : LongWord; |
68 GameTicks : LongWord; |
68 GameState : TGameState; |
69 GameState : TGameState; |
69 GameType : TGameType; |
70 GameType : TGameType; |
70 InputMask : LongWord; |
71 InputMask : LongWord; |
71 GameFlags : Longword; |
72 GameFlags : Longword; |
177 WorldDy: LongInt; |
178 WorldDy: LongInt; |
178 |
179 |
179 hiTicks: Word; |
180 hiTicks: Word; |
180 |
181 |
181 LuaGoals : shortstring; |
182 LuaGoals : shortstring; |
|
183 hiddenHedgehogs : array [0..cMaxHHs] of PHedgehog; |
|
184 hiddenHedgehogsNumber : longint; |
182 |
185 |
183 VoiceList : array[0..7] of TVoice = ( |
186 VoiceList : array[0..7] of TVoice = ( |
184 ( snd: sndNone; voicepack: nil), |
187 ( snd: sndNone; voicepack: nil), |
185 ( snd: sndNone; voicepack: nil), |
188 ( snd: sndNone; voicepack: nil), |
186 ( snd: sndNone; voicepack: nil), |
189 ( snd: sndNone; voicepack: nil), |
207 cPathz: array[TPathType] of shortstring = ( |
210 cPathz: array[TPathType] of shortstring = ( |
208 '', // ptNone |
211 '', // ptNone |
209 '', // ptData |
212 '', // ptData |
210 'Graphics', // ptGraphics |
213 'Graphics', // ptGraphics |
211 'Themes', // ptThemes |
214 'Themes', // ptThemes |
212 'Themes/avematan', // ptCurrTheme |
215 'Themes/Bamboo', // ptCurrTheme |
213 'Teams', // ptTeams |
216 'Teams', // ptTeams |
214 'Maps', // ptMaps |
217 'Maps', // ptMaps |
215 '', // ptMapCurrent |
218 '', // ptMapCurrent |
216 'Demos', // ptDemos |
219 'Demos', // ptDemos |
217 'Sounds', // ptSounds |
220 'Sounds', // ptSounds |
2612 WaterOpacity:= $80; |
2615 WaterOpacity:= $80; |
2613 SDWaterOpacity:= $80; |
2616 SDWaterOpacity:= $80; |
2614 GrayScale:= false; |
2617 GrayScale:= false; |
2615 |
2618 |
2616 LuaGoals:= ''; |
2619 LuaGoals:= ''; |
|
2620 hiddenHedgehogsNumber:=0; |
2617 end; |
2621 end; |
2618 |
2622 |
2619 procedure freeModule; |
2623 procedure freeModule; |
2620 begin |
2624 begin |
2621 // re-init flags so they will always contain safe values |
2625 // re-init flags so they will always contain safe values |