equal
deleted
inserted
replaced
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 SendIPC('s' + s); |
300 s:= UserNick + ': ' + s; |
300 |
|
301 if copy(s, 1, 4) = '/me ' then |
|
302 s:= '* ' + UserNick + ' ' + s |
|
303 else |
|
304 s:= UserNick + ': ' + s; |
|
305 |
301 AddChatString(s) |
306 AddChatString(s) |
302 end; |
307 end; |
303 |
308 |
304 procedure chTimer(var s: shortstring); |
309 procedure chTimer(var s: shortstring); |
305 begin |
310 begin |