22 // Add all your Pascal units to the 'uses' clause below to add them to the program.

    21 (*

    23 // Mark all Pascal procedures/functions that you wish to call from C/C++/Objective-C code using

    22  * When engine is compiled as library this unit will export functions

    24 // 'cdecl; export;' (see the fpclogo.pas unit for an example), and then add C-declarations for

    23  * as C declarations for convenient library usage in your application

    25 // these procedures/functions to the PascalImports.h file (also in the 'Pascal Sources' group)

    24  * and language of choice.

    26 // to make these functions available in the C/C++/Objective-C source files

    25  *

    27 // (add '#include PascalImports.h' near the top of these files if it is not there yet)

    26  * See also: C declarations on Wikipedia

    28 uses PascalExports, hwengine{$IFDEF ANDROID}, jni{$ENDIF};

    27  *           http://en.wikipedia.org/wiki/X86_calling_conventions#cdecl

    29 exports Game, HW_versionInfo;

    28  *)

    29 

    30 Library hwLibrary;

    31 

    32 uses hwengine, uTypes, uConsts, uVariables, uSound, uCommands, uUtils,

    33      uLocale{$IFDEF ANDROID}, jni{$ENDIF};

    34 

    35 {$INCLUDE "config.inc"}

    36 

    37 // retrieve protocol information

    38 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;

    39 begin

    40     netProto^:= cNetProtoVersion;

    41     versionStr^:= cVersionString;

    42 end;

    43 

    44 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup

    45 procedure HW_terminate(closeFrontend: boolean); cdecl; export;

    46 begin

    47     closeFrontend:= closeFrontend; // avoid hint

    48     ParseCommand('forcequit', true);

    49 end;

    50 

    51 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; export;

    52 begin

    53     HW_getWeaponNameByIndex:= (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));

    54 end;

    55 

    56 (*function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; export;

    57 begin

    58     HW_getWeaponCaptionByIndex:= (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId]));

    59 end;

    60 

    61 function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; export;

    62 begin

    63     HW_getWeaponDescriptionByIndex:= (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId]));

    64 end;*)

    65 

    66 function HW_getNumberOfWeapons: LongInt; cdecl; export;

    67 begin

    68     HW_getNumberOfWeapons:= ord(high(TAmmoType));

    69 end;

    70 

    71 function HW_getMaxNumberOfHogs: LongInt; cdecl; export;

    72 begin

    73     HW_getMaxNumberOfHogs:= cMaxHHIndex + 1;

    74 end;

    75 

    76 function HW_getMaxNumberOfTeams: LongInt; cdecl; export;

    77 begin

    78     HW_getMaxNumberOfTeams:= cMaxTeams;

    79 end;

    80 

    81 procedure HW_memoryWarningCallback; cdecl; export;

    82 begin

    83     ReleaseSound(false);

    84 end;