| changeset 1379 | 39cfee7a5be5 |
| parent 1378 | 1a391883261d |
| child 1525 | 311d0ab35d98 |
| 1378:1a391883261d | 1379:39cfee7a5be5 |
|---|---|
297 procedure chSay(var s: shortstring); |
297 procedure chSay(var s: shortstring); |
298 begin |
298 begin |
299 SendIPC('s' + s); |
299 SendIPC('s' + s); |
300 |
300 |
301 if copy(s, 1, 4) = '/me ' then |
301 if copy(s, 1, 4) = '/me ' then |
302 s:= '* ' + UserNick + ' ' + s |
302 s:= '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
303 else |
303 else |
304 s:= UserNick + ': ' + s; |
304 s:= UserNick + ': ' + s; |
305 |
305 |
306 AddChatString(s) |
306 AddChatString(s) |
307 end; |
307 end; |