18 {$INCLUDE "config.inc"}

    18 {$INCLUDE "config.inc"}

    19 

    19 

    20 implementation

    20 implementation

    21 

    21 

    22 {$IFDEF HWLIBRARY}

    22 {$IFDEF HWLIBRARY}

    23 // retrieve protocol information

    25 // retrieve protocol information

    24 procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;

    26 procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;

    25 begin

    27 begin

    26 // http://bugs.freepascal.org/view.php?id=16156

    28 // http://bugs.freepascal.org/view.php?id=16156

    27     if netProto <> nil then netProto^:= cNetProtoVersion;

    29     if netProto <> nil then netProto^:= cNetProtoVersion;

   172 begin

   174 begin

   173     CursorPoint.X:= x;

   175     CursorPoint.X:= x;

   174     CursorPoint.Y:= y;

   176     CursorPoint.Y:= y;

   175 end;

   177 end;

   176 

   178 

   177 function HW_isAmmoOpen:boolean; cdecl; export;

   191 function HW_isAmmoOpen:boolean; cdecl; export;

   178 begin

   192 begin

   179     exit(bShowAmmoMenu);

   193     exit(bShowAmmoMenu);

   180 end;

   194 end;

   181 {$ENDIF}

   195 {$ENDIF}