changeset 2962 | 38237a443f74 |
parent 2957 | 8f3f2a220835 |
child 2963 | 0f0789204802 |
2961:3e057dfa601f | 2962:38237a443f74 |
---|---|
410 |
410 |
411 procedure chTeamSay(var s: shortstring); |
411 procedure chTeamSay(var s: shortstring); |
412 begin |
412 begin |
413 SendIPC('b' + s); |
413 SendIPC('b' + s); |
414 |
414 |
415 s:= #4 + UserNick + '(team): ' + s; |
415 s:= #4 + '[Team] ' + UserNick + ': ' + s; |
416 |
416 |
417 AddChatString(s) |
417 AddChatString(s) |
418 end; |
418 end; |
419 |
419 |
420 procedure chTimer(var s: shortstring); |
420 procedure chTimer(var s: shortstring); |