equal
deleted
inserted
replaced
27 procedure DrawConsole(Surface: PSDL_Surface); |
27 procedure DrawConsole(Surface: PSDL_Surface); |
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 procedure StopMessages(Message: Longword); |
32 function GetLastConsoleLine: shortstring; |
33 function GetLastConsoleLine: shortstring; |
33 |
34 |
34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
35 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
35 |
36 |
36 implementation |
37 implementation |
312 |
313 |
313 function GetLastConsoleLine: shortstring; |
314 function GetLastConsoleLine: shortstring; |
314 begin |
315 begin |
315 if CurrLine = 0 then GetLastConsoleLine:= ConsoleLines[Pred(cLinesCount)].s |
316 if CurrLine = 0 then GetLastConsoleLine:= ConsoleLines[Pred(cLinesCount)].s |
316 else GetLastConsoleLine:= ConsoleLines[Pred(CurrLine)].s |
317 else GetLastConsoleLine:= ConsoleLines[Pred(CurrLine)].s |
|
318 end; |
|
319 |
|
320 procedure StopMessages(Message: Longword); |
|
321 begin |
|
322 if (Message and gm_Left) <> 0 then ParseCommand('/-left', true) else |
|
323 if (Message and gm_Right) <> 0 then ParseCommand('/-right', true) else |
|
324 if (Message and gm_Up) <> 0 then ParseCommand('/-up', true) else |
|
325 if (Message and gm_Down) <> 0 then ParseCommand('/-down', true) else |
|
326 if (Message and gm_Attack) <> 0 then ParseCommand('/-attack', true) |
317 end; |
327 end; |
318 |
328 |
319 {$INCLUDE CCHandlers.inc} |
329 {$INCLUDE CCHandlers.inc} |
320 |
330 |
321 initialization |
331 initialization |