equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 {$IFNDEF FPC} |
19 {$IFNDEF FPC} |
20 WriteLn('Only Freepascal supported'); |
20 WriteLn('Only Freepascal supported'); |
21 {$ENDIF} |
21 {$ENDIF} |
22 |
|
23 // Add all your Pascal units to the "uses" clause below to add them to the program. |
|
24 |
|
25 // Mark all Pascal procedures/functions that you wish to call from C/C++/Objective-C code using |
|
26 // "cdecl; export;" (see the fpclogo.pas unit for an example), and then add C-declarations for |
|
27 // these procedures/functions to the PascalImports.h file (also in the "Pascal Sources" group) |
|
28 // to make these functions available in the C/C++/Objective-C source files |
|
29 // (add "#include PascalImports.h" near the top of these files if it is not there yet) |
|
30 |
22 |
31 program hwengine; |
23 program hwengine; |
32 uses |
24 uses |
33 SDLh in 'SDLh.pas', |
25 SDLh in 'SDLh.pas', |
34 {$IFDEF IPHONE} |
26 {$IFDEF IPHONE} |
198 WriteLn(' --set-audio [volume] [enable music] [enable sounds]'); |
190 WriteLn(' --set-audio [volume] [enable music] [enable sounds]'); |
199 WriteLn(' --set-other [language file] [full screen] [show FPS]'); |
191 WriteLn(' --set-other [language file] [full screen] [show FPS]'); |
200 WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
192 WriteLn(' --set-multimedia [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen]'); |
201 WriteLn(' --set-everything [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]'); |
193 WriteLn(' --set-everything [screen height] [screen width] [color dept] [volume] [enable music] [enable sounds] [language file] [full screen] [show FPS] [alternate damage] [timer value] [reduced quality]'); |
202 WriteLn(); |
194 WriteLn(); |
203 WriteLn('Read documentation online at http://www.hedgewars.org/ for more information'); |
195 WriteLn('Read documentation online at http://www.hedgewars.org/node/1465 for more information'); |
|
196 halt(1); |
204 end; |
197 end; |
205 |
198 |
206 //////////////////// |
199 //////////////////// |
207 procedure GetParams; |
200 procedure GetParams; |
208 var |
201 var |