38 procedure NetGetNextCmd;

    38 procedure NetGetNextCmd;

    39 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    39 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    40 

    40 

    41 implementation

    41 implementation

    42 uses uConsole, uConsts, uVariables, uCommands, uUtils, uDebug;

    42 uses uConsole, uConsts, uVariables, uCommands, uUtils, uDebug;

    43 

    46 

    44 type PCmd = ^TCmd;

    47 type PCmd = ^TCmd;

    45      TCmd = packed record

    48      TCmd = packed record

    46             Next: PCmd;

    49             Next: PCmd;

    47             loTime: Word;

    50             loTime: Word;