equal
deleted
inserted
replaced
334 procedure chSay(var s: shortstring); |
334 procedure chSay(var s: shortstring); |
335 begin |
335 begin |
336 SendIPC('s' + s); |
336 SendIPC('s' + s); |
337 |
337 |
338 if copy(s, 1, 4) = '/me ' then |
338 if copy(s, 1, 4) = '/me ' then |
339 s:= '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
339 s:= #2'* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
340 else |
340 else |
341 s:= UserNick + ': ' + s; |
341 s:= #1 + UserNick + ': ' + s; |
342 |
342 |
343 AddChatString(s) |
343 AddChatString(s) |
344 end; |
344 end; |
345 |
345 |
346 procedure chTeamSay(var s: shortstring); |
346 procedure chTeamSay(var s: shortstring); |
347 var text: shortstring; |
|
348 begin |
347 begin |
349 SendIPC('b' + s); |
348 SendIPC('b' + s); |
350 |
349 |
351 text:= copy(s, 2, Length(s)-1); |
350 s[1]:= #4; |
352 |
351 |
353 AddChatString(text) |
352 AddChatString(s) |
354 end; |
353 end; |
355 |
354 |
356 procedure chTimer(var s: shortstring); |
355 procedure chTimer(var s: shortstring); |
357 begin |
356 begin |
358 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
357 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |