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; |
|
40 |
39 |
41 // retrieve protocol information |
40 // retrieve protocol information |
42 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
41 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
43 begin |
42 begin |
44 netProto^:= cNetProtoVersion; |
43 netProto^:= cNetProtoVersion; |
181 end; |
180 end; |
182 |
181 |
183 function HW_isPaused: boolean; cdecl; export; |
182 function HW_isPaused: boolean; cdecl; export; |
184 begin |
183 begin |
185 exit( isPaused ); |
184 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; |
|
197 end; |
185 end; |
198 |
186 |
199 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
187 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
200 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
188 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
201 begin |
189 begin |