equal
deleted
inserted
replaced
18 |
18 |
19 {$IFNDEF FPC} |
19 {$IFNDEF FPC} |
20 WriteLn('Only Freepascal supported'); |
20 WriteLn('Only Freepascal supported'); |
21 {$ENDIF} |
21 {$ENDIF} |
22 |
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's not there yet) |
|
30 //Library PascalLibrary; |
23 program hwengine; |
31 program hwengine; |
24 uses |
32 uses |
25 SDLh, |
33 SDLh in 'SDLh.pas', |
26 {$IFDEF IPHONE} |
34 {$IFDEF IPHONE} |
27 gles11, |
35 gles11, |
28 {$ELSE} |
36 {$ELSE} |
29 GL, |
37 GL, |
30 {$ENDIF} |
38 {$ENDIF} |
327 begin |
335 begin |
328 WriteLnToConsole('-= Hedgewars ' + cVersionString + ' =-'); |
336 WriteLnToConsole('-= Hedgewars ' + cVersionString + ' =-'); |
329 WriteLnToConsole(' -= by unC0Rr =- '); |
337 WriteLnToConsole(' -= by unC0Rr =- '); |
330 GetParams; |
338 GetParams; |
331 Randomize; |
339 Randomize; |
332 |
340 { /home/nemo/games/bin/hwengine /home/nemo/games/hedgewars/Data ~/.hedgewars/Saves/2009-03-22_19-54.hws_24 480 320 32 0 1 en.txt 128 33 0 1 1 0} |
333 if GameType = gmtLandPreview then GenLandPreview |
341 if GameType = gmtLandPreview then GenLandPreview |
334 else Game |
342 else Game |
335 end. |
343 end. |