equal
deleted
inserted
replaced
271 end |
271 end |
272 end; |
272 end; |
273 |
273 |
274 procedure chSay(var s: shortstring); |
274 procedure chSay(var s: shortstring); |
275 begin |
275 begin |
276 WriteLnToConsole('> ' + s); |
276 s:= UserNick + ': ' + s; |
277 SendIPC('s'+s) |
277 AddChatString(s); |
|
278 SendIPC('s' + s) |
278 end; |
279 end; |
279 |
280 |
280 procedure chTimer(var s: shortstring); |
281 procedure chTimer(var s: shortstring); |
281 begin |
282 begin |
282 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |
283 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |