9 implementation

     9 implementation

    10 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom;

    10 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom;

    11 

    11 

    12 procedure chGenCmd(var s: shortstring);

    12 procedure chGenCmd(var s: shortstring);

    13 begin

    13 begin

    15 case s[1] of

    14 case s[1] of

    16      'R': if ReadyTimeLeft > 1 then 

    15      'R': if ReadyTimeLeft > 1 then 

    17           begin

    16           begin

    18           ReadyTimeLeft:= 1;

    17           ReadyTimeLeft:= 1;

    19           if not CurrentTeam^.ExtDriven then SendIPC('c'+s);

    18           if not CurrentTeam^.ExtDriven then SendIPC('c'+s);