hedgewars/hwLibrary.pas
changeset 9309 7e8f91634f80
parent 9080 9b42757d7e71
child 9998 736015b847e3
equal deleted inserted replaced
9307:a0fef7134ade 9309:7e8f91634f80
    37 // retrieve protocol information
    37 // retrieve protocol information
    38 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
    38 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
    39 begin
    39 begin
    40     netProto^:= cNetProtoVersion;
    40     netProto^:= cNetProtoVersion;
    41     versionStr^:= cVersionString;
    41     versionStr^:= cVersionString;
       
    42 end;
       
    43 
       
    44 function HW_versionString: PChar; cdecl; export;
       
    45 begin
       
    46     exit(cVersionString + '-r' + cRevisionString + ' (' + cHashString + ')');
    42 end;
    47 end;
    43 
    48 
    44 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
    49 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
    45 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
    50 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
    46 begin
    51 begin
   116 exports
   121 exports
   117     Game,
   122     Game,
   118     GenLandPreview,
   123     GenLandPreview,
   119     LoadLocaleWrapper,
   124     LoadLocaleWrapper,
   120     HW_versionInfo,
   125     HW_versionInfo,
       
   126     HW_versionString,
   121     HW_terminate,
   127     HW_terminate,
   122     HW_getNumberOfWeapons,
   128     HW_getNumberOfWeapons,
   123     HW_getMaxNumberOfHogs,
   129     HW_getMaxNumberOfHogs,
   124     HW_getMaxNumberOfTeams,
   130     HW_getMaxNumberOfTeams,
   125     HW_getWeaponNameByIndex,
   131     HW_getWeaponNameByIndex,