23 interface

    23 interface

    24 uses uTypes, uConsts, uVariables, GLunit, uKeys, uChat, uSound, uAmmos, uUtils,

    24 uses uTypes, uConsts, uVariables, GLunit, uKeys, uChat, uSound, uAmmos, uUtils,

    25      uCommands;

    25      uCommands;

    26 

    26 

    27 {$INCLUDE "config.inc"}

    27 {$INCLUDE "config.inc"}

    29 

    28 

    30 implementation

    29 implementation

    31 {$IFDEF HWLIBRARY}

    30 {$IFDEF HWLIBRARY}

    32 var cZoomVal: GLfloat;

    31 var cZoomVal: GLfloat;

    33     previousGameState: TGameState;

    32     previousGameState: TGameState;

    34 

    33 

    35 // retrieve protocol information

    34 // retrieve protocol information

    37 begin

    36 begin

    38     netProto^:= cNetProtoVersion;

    37     netProto^:= cNetProtoVersion;

    39     versionStr^:= cVersionString;

    38     versionStr^:= cVersionString;

    40 end;

    39 end;

    41 

    40