equal
deleted
inserted
replaced
1024 if l > 0 then |
1024 if l > 0 then |
1025 begin |
1025 begin |
1026 if byte(InputStr.s[0]) + l > 240 then exit; |
1026 if byte(InputStr.s[0]) + l > 240 then exit; |
1027 s[0]:= char(l); |
1027 s[0]:= char(l); |
1028 InsertIntoInputStr(s); |
1028 InsertIntoInputStr(s); |
|
1029 |
|
1030 // add closing hog speech quotation marks automatically |
|
1031 if (l = 1) and (Length(InputStr.s) = 1) and charIsForHogSpeech(s[1]) then |
|
1032 begin |
|
1033 InsertIntoInputStr(s); |
|
1034 MoveCursorToPreviousChar(); |
|
1035 UpdateCursorCoords(); |
|
1036 end; |
|
1037 |
1029 end |
1038 end |
1030 end; |
1039 end; |
1031 |
1040 |
1032 |
1041 |
1033 procedure chChatMessage(var s: shortstring); |
1042 procedure chChatMessage(var s: shortstring); |