equal
deleted
inserted
replaced
27 procedure WriteToConsole(s: shortstring); |
27 procedure WriteToConsole(s: shortstring); |
28 procedure WriteLnToConsole(s: shortstring); |
28 procedure WriteLnToConsole(s: shortstring); |
29 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
29 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
30 procedure StopMessages(Message: Longword); |
30 procedure StopMessages(Message: Longword); |
31 function GetLastConsoleLine: shortstring; |
31 function GetLastConsoleLine: shortstring; |
|
32 procedure SplitBySpace(var a, b: shortstring); |
32 |
33 |
33 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
34 |
35 |
35 implementation |
36 implementation |
36 {$J+} |
37 {$J+} |