equal
deleted
inserted
replaced
192 GetLastConsoleLine:= valueStr; |
192 GetLastConsoleLine:= valueStr; |
193 end; |
193 end; |
194 |
194 |
195 procedure StopMessages(Message: Longword); |
195 procedure StopMessages(Message: Longword); |
196 begin |
196 begin |
197 if (Message and gm_Left) <> 0 then ParseCommand('/-left', true) else |
197 if (Message and gmLeft) <> 0 then ParseCommand('/-left', true) else |
198 if (Message and gm_Right) <> 0 then ParseCommand('/-right', true) else |
198 if (Message and gmRight) <> 0 then ParseCommand('/-right', true) else |
199 if (Message and gm_Up) <> 0 then ParseCommand('/-up', true) else |
199 if (Message and gmUp) <> 0 then ParseCommand('/-up', true) else |
200 if (Message and gm_Down) <> 0 then ParseCommand('/-down', true) else |
200 if (Message and gmDown) <> 0 then ParseCommand('/-down', true) else |
201 if (Message and gm_Attack) <> 0 then ParseCommand('/-attack', true) |
201 if (Message and gmAttack) <> 0 then ParseCommand('/-attack', true) |
202 end; |
202 end; |
203 |
203 |
204 {$INCLUDE "CCHandlers.inc"} |
204 {$INCLUDE "CCHandlers.inc"} |
205 procedure initModule; |
205 procedure initModule; |
206 var i: LongInt; |
206 var i: LongInt; |