equal
deleted
inserted
replaced
328 s:= '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
328 s:= '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
329 else |
329 else |
330 s:= UserNick + ': ' + s; |
330 s:= UserNick + ': ' + s; |
331 |
331 |
332 AddChatString(s) |
332 AddChatString(s) |
|
333 end; |
|
334 |
|
335 procedure chTeamSay(var s: shortstring); |
|
336 var text: shortstring; |
|
337 begin |
|
338 SendIPC('b' + s); |
|
339 |
|
340 text:= copy(s, 2, Length(s)-1); |
|
341 text:= UserNick + ': ' + text; |
|
342 |
|
343 AddChatString(text) |
333 end; |
344 end; |
334 |
345 |
335 procedure chTimer(var s: shortstring); |
346 procedure chTimer(var s: shortstring); |
336 begin |
347 begin |
337 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |
348 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit; |