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