28 procedure WriteToConsole(s: shortstring);

    28 procedure WriteToConsole(s: shortstring);

    29 procedure WriteLnToConsole(s: shortstring);

    29 procedure WriteLnToConsole(s: shortstring);

    30 procedure KeyPressConsole(Key: Longword);

    30 procedure KeyPressConsole(Key: Longword);

    31 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

    31 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

    32 function  GetLastConsoleLine: shortstring;

    32 function  GetLastConsoleLine: shortstring;

    33 

    35 

    34 implementation

    36 implementation

    35 {$J+}

    37 {$J+}

    36 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand,

    38 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand,

    37      uRandom, uAmmos;

    39      uRandom, uAmmos;