changeset 2403 | 6c5d504af2ba |
parent 2396 | e13a1117152b |
child 2406 | 2e757b32991e |
2402:edd12b259e7c | 2403:6c5d504af2ba |
---|---|
345 |
345 |
346 procedure chTeamSay(var s: shortstring); |
346 procedure chTeamSay(var s: shortstring); |
347 begin |
347 begin |
348 SendIPC('b' + s); |
348 SendIPC('b' + s); |
349 |
349 |
350 s[1]:= #4; |
350 s:= #4 + UserNick + '(team): ' + s; |
351 |
351 |
352 AddChatString(s) |
352 AddChatString(s) |
353 end; |
353 end; |
354 |
354 |
355 procedure chTimer(var s: shortstring); |
355 procedure chTimer(var s: shortstring); |