equal
deleted
inserted
replaced
29 var dummy: boolean; // avoid compiler hint |
29 var dummy: boolean; // avoid compiler hint |
30 |
30 |
31 implementation |
31 implementation |
32 {$IFDEF HWLIBRARY} |
32 {$IFDEF HWLIBRARY} |
33 var cZoomVal: GLfloat; |
33 var cZoomVal: GLfloat; |
|
34 previousGameState: TGameState; |
34 |
35 |
35 // retrieve protocol information |
36 // retrieve protocol information |
36 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
37 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
37 begin |
38 begin |
38 // http://bugs.freepascal.org/view.php?id=16156 |
39 // http://bugs.freepascal.org/view.php?id=16156 |
165 KeyPressChat(13); // enter - removes chat |
166 KeyPressChat(13); // enter - removes chat |
166 end; |
167 end; |
167 |
168 |
168 procedure HW_pause; cdecl; export; |
169 procedure HW_pause; cdecl; export; |
169 begin |
170 begin |
|
171 if isPaused = false then |
|
172 pauseAction:= true; |
|
173 end; |
|
174 |
|
175 procedure HW_pauseToggle; cdecl; export; |
|
176 begin |
170 pauseAction:= true; |
177 pauseAction:= true; |
|
178 end; |
|
179 |
|
180 function HW_isPaused: boolean; cdecl; export; |
|
181 begin |
|
182 exit( isPaused ); |
|
183 end; |
|
184 |
|
185 procedure HW_suspend; cdecl; export; |
|
186 begin |
|
187 previousGameState:= GameState; |
|
188 GameState:= gsSuspend; |
|
189 end; |
|
190 |
|
191 procedure HW_resume; cdecl; export; |
|
192 begin |
|
193 GameState:= previousGameState; |
171 end; |
194 end; |
172 |
195 |
173 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
196 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
174 begin |
197 begin |
175 isTerminated:= true; |
198 isTerminated:= true; |
195 |
218 |
196 function HW_isAmmoMenuNotAllowed: boolean; cdecl; export; |
219 function HW_isAmmoMenuNotAllowed: boolean; cdecl; export; |
197 begin; |
220 begin; |
198 exit ( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or |
221 exit ( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or |
199 ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) ); |
222 ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) ); |
200 end; |
|
201 |
|
202 function HW_isPaused: boolean; cdecl; export; |
|
203 begin |
|
204 exit( isPaused ); |
|
205 end; |
223 end; |
206 |
224 |
207 function HW_isWaiting: boolean; cdecl; export; |
225 function HW_isWaiting: boolean; cdecl; export; |
208 begin |
226 begin |
209 exit( ReadyTimeLeft > 0 ); |
227 exit( ReadyTimeLeft > 0 ); |