equal
deleted
inserted
replaced
294 end |
294 end |
295 end; |
295 end; |
296 |
296 |
297 procedure chSay(var s: shortstring); |
297 procedure chSay(var s: shortstring); |
298 begin |
298 begin |
|
299 SendIPC('s' + s); |
299 s:= UserNick + ': ' + s; |
300 s:= UserNick + ': ' + s; |
300 AddChatString(s); |
301 AddChatString(s) |
301 SendIPC('s' + s) |
|
302 end; |
302 end; |
303 |
303 |
304 procedure chTimer(var s: shortstring); |
304 procedure chTimer(var s: shortstring); |
305 begin |
305 begin |
306 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |
306 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |