equal
deleted
inserted
replaced
325 procedure chSay(var s: shortstring); |
325 procedure chSay(var s: shortstring); |
326 begin |
326 begin |
327 SendIPC('s' + s); |
327 SendIPC('s' + s); |
328 |
328 |
329 if copy(s, 1, 4) = '/me ' then |
329 if copy(s, 1, 4) = '/me ' then |
330 s:= #2'* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
330 s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
331 else |
331 else |
332 s:= #1 + UserNick + ': ' + s; |
332 s:= #1 + UserNick + ': ' + s; |
333 |
333 |
334 AddChatString(s) |
334 AddChatString(s) |
335 end; |
335 end; |