equal
deleted
inserted
replaced
34 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
34 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
35 |
35 |
36 implementation |
36 implementation |
37 {$IFDEF HWLIBRARY} |
37 {$IFDEF HWLIBRARY} |
38 var cZoomVal: GLfloat; |
38 var cZoomVal: GLfloat; |
|
39 previousGameState: TGameState; |
39 |
40 |
40 // retrieve protocol information |
41 // retrieve protocol information |
41 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
42 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
42 begin |
43 begin |
43 netProto^:= cNetProtoVersion; |
44 netProto^:= cNetProtoVersion; |
180 end; |
181 end; |
181 |
182 |
182 function HW_isPaused: boolean; cdecl; export; |
183 function HW_isPaused: boolean; cdecl; export; |
183 begin |
184 begin |
184 exit( isPaused ); |
185 exit( isPaused ); |
|
186 end; |
|
187 |
|
188 procedure HW_suspend; cdecl; export; |
|
189 begin |
|
190 previousGameState:= GameState; |
|
191 GameState:= gsSuspend; |
|
192 end; |
|
193 |
|
194 procedure HW_resume; cdecl; export; |
|
195 begin |
|
196 GameState:= previousGameState; |
185 end; |
197 end; |
186 |
198 |
187 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
199 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
188 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
200 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
189 begin |
201 begin |