25 procedure initModule;

    25 procedure initModule;

    26 procedure freeModule;

    26 procedure freeModule;

    27 

    27 

    28 implementation

    28 implementation

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

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

    30 

    32 

    31 procedure chGenCmd(var s: shortstring);

    33 procedure chGenCmd(var s: shortstring);

    32 begin

    34 begin

    33 case s[1] of

    35 case s[1] of

    34     'R': if ReadyTimeLeft > 1 then 

    36     'R': if ReadyTimeLeft > 1 then