hedgewars/uChat.pas
author nemo
Sun, 15 Mar 2015 16:14:13 -0400
changeset 10848 231d3e3d3267
parent 10846 c76fd416eff6
child 10849 a772d342066a
permissions -rw-r--r--
Allow rope tinting
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1038
diff changeset
     2
 * Hedgewars, a free turn based strategy game
9998
736015b847e3 update copyright to 2014
sheepluva
parents: 9680
diff changeset
     3
 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     4
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     8
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    13
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
10108
c68cf030eded update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents: 10104
diff changeset
    16
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    17
 *)
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    20
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    21
unit uChat;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    22
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    23
interface
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    24
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    25
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    26
procedure freeModule;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
    27
procedure ReloadLines;
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
    28
procedure CleanupInput;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    29
procedure AddChatString(s: shortstring);
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    30
procedure DrawChat;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    31
procedure KeyPressChat(Key, Sym: Longword; Modifier: Word);
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
    32
procedure SendHogSpeech(s: shortstring);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    33
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    34
implementation
10737
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
    35
uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    36
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
    37
const MaxStrIndex = 27;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    38
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    39
type TChatLine = record
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    40
    Tex: PTexture;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    41
    Time: Longword;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    42
    Width: LongInt;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    43
    s: shortstring;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    44
    Color: TSDL_Color;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    45
    end;
9954
bf51bc7e2808 - Fix build via pas2c
unc0rr
parents: 9950
diff changeset
    46
    TChatCmd = (ccQuit, ccPause, ccFinish, ccShowHistory, ccFullScreen);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    47
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
    48
type TInputStrL = array[0..260] of byte;
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
    49
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    50
var Strs: array[0 .. MaxStrIndex] of TChatLine;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    51
    MStrs: array[0 .. MaxStrIndex] of shortstring;
8740
3eb1891f81ef use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents: 8739
diff changeset
    52
    LocalStrs: array[0 .. MaxStrIndex] of shortstring;
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
    53
    LocalStrsL: array[0 .. MaxStrIndex] of TInputStrL;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    54
    missedCount: LongWord;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    55
    lastStr: LongWord;
9145
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    56
    localLastStr: LongInt;
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    57
    history: LongInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    58
    visibleCount: LongWord;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    59
    InputStr: TChatLine;
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
    60
    InputStrL: TInputStrL; // for full str + 4-byte utf-8 char
4814
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    61
    ChatReady: boolean;
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    62
    showAll: boolean;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
    63
    liveLua: boolean;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
    64
    ChatHidden: boolean;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
    65
    firstDraw: boolean;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
    66
    InputLinePrefix: shortstring;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
    67
    // cursor
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    68
    cursorPos, cursorX, selectedPos, selectionDx: LongInt;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
    69
    LastKeyPressTick: LongWord;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    70
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    71
const
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
    72
    InputStrLNoPred: byte = 255;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
    73
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    74
    colors: array[#0..#6] of TSDL_Color = (
9311
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    75
            (r:$FF; g:$FF; b:$FF; a:$FF), // unused, feel free to take it for anything
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    76
            (r:$FF; g:$FF; b:$FF; a:$FF), // chat message [White]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    77
            (r:$FF; g:$00; b:$FF; a:$FF), // action message [Purple]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    78
            (r:$90; g:$FF; b:$90; a:$FF), // join/leave message [Lime]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    79
            (r:$FF; g:$FF; b:$A0; a:$FF), // team message [Light Yellow]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    80
            (r:$FF; g:$00; b:$00; a:$FF), // error messages [Red]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    81
            (r:$00; g:$FF; b:$FF; a:$FF)  // input line [Light Blue]
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    82
            );
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    83
    ChatCommandz: array [TChatCmd] of record
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    84
            ChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    85
            ProcedureCallChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    86
            end = (
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    87
            (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    88
            (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    89
            (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),
9569
dd1861ca4def add /history command from chat
koda
parents: 9319
diff changeset
    90
            (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'),
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    91
            (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    92
            );
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
    93
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    94
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    95
const Padding  = 2;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    96
      ClHeight = 2 * Padding + 16; // font height
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    97
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    98
procedure ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    99
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   100
    selectedPos:= -1;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   101
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   102
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   103
procedure UpdateCursorCoords();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   104
var font: THWFont;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   105
    str : shortstring;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   106
    coff, soff: LongInt;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   107
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   108
    if cursorPos = selectedPos then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   109
        ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   110
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   111
    // calculate cursor offset
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   112
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   113
    str:= InputLinePrefix + InputStr.s;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   114
    font:= CheckCJKFont(ansistring(str), fnt16);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   115
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   116
    // get only substring before cursor to determine length
10837
1b7a4d3111ea pas2c does not like setlength called with a shortstring apparently
sheepluva
parents: 10836
diff changeset
   117
    // SetLength(str, Length(InputLinePrefix) + cursorPos); // makes pas2c unhappy
1b7a4d3111ea pas2c does not like setlength called with a shortstring apparently
sheepluva
parents: 10836
diff changeset
   118
    str[0]:= char(Length(InputLinePrefix) + cursorPos);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   119
    // get render size of text
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   120
    TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @coff, nil);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   121
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   122
    cursorX:= 2 + coff;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   123
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   124
    // calculate selection width on screen
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   125
    if selectedPos >= 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   126
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   127
        if selectedPos > cursorPos then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   128
            str:= InputLinePrefix + InputStr.s;
10837
1b7a4d3111ea pas2c does not like setlength called with a shortstring apparently
sheepluva
parents: 10836
diff changeset
   129
        // SetLength(str, Length(InputLinePrefix) + selectedPos); // makes pas2c unhappy
1b7a4d3111ea pas2c does not like setlength called with a shortstring apparently
sheepluva
parents: 10836
diff changeset
   130
        str[0]:= char(Length(InputLinePrefix) + selectedPos);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   131
        TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @soff, nil);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   132
        selectionDx:= soff - coff;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   133
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   134
    else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   135
        selectionDx:= 0;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   136
end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   137
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   138
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   139
procedure ResetCursor();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   140
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   141
    ResetSelection();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   142
    cursorPos:= 0;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   143
    UpdateCursorCoords();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   144
end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   145
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   146
procedure RenderChatLineTex(var cl: TChatLine; var str: shortstring);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   147
var strSurface,
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   148
    resSurface: PSDL_Surface;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   149
    dstrect   : TSDL_Rect; // destination rectangle for blitting
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   150
    font      : THWFont;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   151
const
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   152
    shadowint  = $80 shl AShift;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   153
begin
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   154
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   155
font:= CheckCJKFont(ansistring(str), fnt16);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   156
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   157
// get render size of text
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   158
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @cl.Width, nil);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   159
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   160
// calculate and save size
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   161
cl.Width := cl.Width  + 2 * Padding;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   162
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   163
// create surface to draw on
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   164
resSurface:= SDL_CreateRGBSurface(
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   165
                0, toPowerOf2(cl.Width), toPowerOf2(ClHeight),
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   166
                32, RMask, GMask, BMask, AMask);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   167
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   168
// define area we want to draw in
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   169
dstrect.x:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   170
dstrect.y:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   171
dstrect.w:= cl.Width;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   172
dstrect.h:= ClHeight;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   173
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   174
// draw background
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   175
SDL_FillRect(resSurface, @dstrect, shadowint);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   176
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   177
// create and blit text
10370
8676ef16c594 Using blended makes smilies and CJK less hideous.
nemo
parents: 10314
diff changeset
   178
strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
10737
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
   179
//SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
   180
if strSurface <> nil then copyTOXY(strSurface, resSurface, Padding, Padding);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   181
SDL_FreeSurface(strSurface);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   182
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   183
cl.Tex:= Surface2Tex(resSurface, false);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   184
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   185
SDL_FreeSurface(resSurface)
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   186
end;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   187
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   188
const ClDisplayDuration = 12500;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   189
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   190
procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   191
var color  : TSDL_Color;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   192
begin
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   193
if cl.Tex <> nil then
10634
35d059bd0932 Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents: 10588
diff changeset
   194
    FreeAndNilTexture(cl.Tex);
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   195
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   196
if isInput then
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   197
    begin
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   198
    cl.s:= str;
5392
1840da0c1f1d little code cleanup (but please test)
koda
parents: 5100
diff changeset
   199
    color:= colors[#6];
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   200
    str:= InputLinePrefix + str + ' ';
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   201
    end
2664
949c189ba568 powerpc and gameserver compilation disabled temporarily
koda
parents: 2630
diff changeset
   202
else
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   203
    begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   204
    color:= colors[str[1]];
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   205
    delete(str, 1, 1);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   206
    cl.s:= str;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   207
    end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   208
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   209
cl.color:= color;
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   210
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   211
// set texture, note: variables cl.s and str will be different here if isInput
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   212
RenderChatLineTex(cl, str);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   213
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   214
cl.Time:= RealTicks + ClDisplayDuration;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   215
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   216
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   217
// For uStore texture recreation
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   218
procedure ReloadLines;
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   219
var i, t: LongWord;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   220
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   221
    if InputStr.s <> '' then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   222
        SetLine(InputStr, InputStr.s, true);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   223
    for i:= 0 to MaxStrIndex do
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   224
        if Strs[i].s <> '' then
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   225
            begin
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   226
            t:= Strs[i].Time;
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   227
            SetLine(Strs[i], Strs[i].s, false);
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   228
            Strs[i].Time:= t
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   229
            end;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   230
end;
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   231
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   232
procedure AddChatString(s: shortstring);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   233
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   234
if not ChatReady then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   235
    begin
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   236
    if MissedCount < MaxStrIndex - 1 then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   237
        MStrs[MissedCount]:= s
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   238
    else if MissedCount < MaxStrIndex then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   239
        MStrs[MissedCount]:= #5 + '[...]';
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   240
    inc(MissedCount);
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   241
    exit
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   242
    end;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   243
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   244
lastStr:= (lastStr + 1) mod (MaxStrIndex + 1);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   245
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   246
SetLine(Strs[lastStr], s, false);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   247
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   248
inc(visibleCount)
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   249
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   250
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   251
procedure DrawChat;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   252
var i, t, left, top, cnt: LongInt;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   253
    selRect: TSDL_Rect;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   254
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   255
ChatReady:= true; // maybe move to somewhere else?
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   256
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   257
if ChatHidden and (not showAll) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   258
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   259
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   260
// draw chat lines with some distance from screen border
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   261
left:= 4 - cScreenWidth div 2;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   262
top := 10 + visibleCount * ClHeight; // we start with input line (if any)
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   263
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   264
// draw chat input line first and under all other lines
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   265
if (GameState = gsChat) and (InputStr.Tex <> nil) then
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   266
    begin
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   267
    if firstDraw then
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   268
        begin
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   269
        UpdateCursorCoords();
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   270
        firstDraw:= false;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   271
        end;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   272
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   273
    DrawTexture(left, top, InputStr.Tex);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   274
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   275
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   276
        // draw cursor
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   277
        if ((RealTicks - LastKeyPressTick) and 512) < 256 then
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   278
            DrawLineOnScreen(left + cursorX, top + 2, left + cursorX, top + ClHeight - 2, 2.0, $00, $FF, $FF, $FF);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   279
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   280
    else // draw selection
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   281
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   282
        selRect.y:= top + 2;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   283
        selRect.h:= clHeight - 4;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   284
        if selectionDx < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   285
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   286
            selRect.x:= left + cursorX + selectionDx;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   287
            selRect.w:= -selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   288
            end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   289
        else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   290
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   291
            selRect.x:= left + cursorX;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   292
            selRect.w:= selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   293
            end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   294
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   295
        DrawRect(selRect, $FF, $FF, $FF, $40, true);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   296
        end;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   297
    end;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   298
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   299
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   300
// draw chat lines
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   301
if ((not ChatHidden) or showAll) and (UIDisplay <> uiNone) then
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   302
    begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   303
    if MissedCount <> 0 then // there are chat strings we missed, so print them now
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   304
        begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   305
        for i:= 0 to MissedCount - 1 do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   306
            AddChatString(MStrs[i]);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   307
        MissedCount:= 0;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   308
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   309
    i:= lastStr;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   310
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   311
    cnt:= 0; // count of lines displayed
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   312
    t  := 1; // # of current line processed
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   313
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   314
    // draw lines in reverse order
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   315
    while (((t < 7) and (Strs[i].Time > RealTicks)) or ((t <= MaxStrIndex + 1) and showAll))
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   316
    and (Strs[i].Tex <> nil) do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   317
        begin
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   318
        top:= top - ClHeight;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   319
        // draw chatline only if not offscreen
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   320
        if top > 0 then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   321
            DrawTexture(left, top, Strs[i].Tex);
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   322
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   323
        if i = 0 then
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   324
            i:= MaxStrIndex
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   325
        else
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   326
            dec(i);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   327
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   328
        inc(cnt);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   329
        inc(t)
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   330
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   331
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   332
    visibleCount:= cnt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   333
    end;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   334
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   335
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   336
procedure SendHogSpeech(s: shortstring);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   337
begin
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   338
SendIPC('h' + s);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   339
ParseCommand('/hogsay '+s, true)
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   340
end;
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   341
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   342
procedure SendConsoleCommand(s: shortstring);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   343
begin
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   344
    Delete(s, 1, 1);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   345
    SendIPC('~' + s)
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   346
end;
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   347
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   348
procedure AcceptChatString(s: shortstring);
1035
6f5842bc481b Hopefully done taunts implementation
unc0rr
parents: 1034
diff changeset
   349
var i: TWave;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   350
    j: TChatCmd;
4465
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents: 4404
diff changeset
   351
    c, t: LongInt;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   352
    x: byte;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   353
begin
10513
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   354
if s <> LocalStrs[localLastStr] then
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   355
    begin
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   356
    // put in input history
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   357
    localLastStr:= (localLastStr + 1) mod MaxStrIndex;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   358
    LocalStrs[localLastStr]:= s;
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   359
    LocalStrsL[localLastStr]:= InputStrL;
10513
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   360
    end;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   361
4465
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents: 4404
diff changeset
   362
t:= LocalTeam;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   363
x:= 0;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   364
if (s[1] = '"') and (s[Length(s)] = '"')
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   365
    then x:= 1
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   366
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   367
else if (s[1] = '''') and (s[Length(s)] = '''') then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   368
    x:= 2
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   369
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   370
else if (s[1] = '-') and (s[Length(s)] = '-') then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   371
    x:= 3;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   372
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7722
diff changeset
   373
if (not CurrentTeam^.ExtDriven) and (x <> 0) then
4465
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents: 4404
diff changeset
   374
    for c:= 0 to Pred(TeamsCount) do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   375
        if (TeamsArray[c] = CurrentTeam) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   376
            t:= c;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   377
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   378
if x <> 0 then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   379
    begin
4465
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents: 4404
diff changeset
   380
    if t = -1 then
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   381
        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   382
    else
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   383
        SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2));
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   384
    exit
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   385
    end;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   386
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   387
if (s[1] = '/') then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   388
    begin
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   389
    // These 3 are same as above, only are to make the hedgehog say it on next attack
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   390
    if (copy(s, 2, 4) = 'hsa ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   391
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   392
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   393
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   394
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   395
            SendHogSpeech(#4 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   396
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   397
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   398
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   399
    if (copy(s, 2, 4) = 'hta ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   400
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   401
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   402
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   403
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   404
            SendHogSpeech(#5 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   405
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   406
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   407
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   408
    if (copy(s, 2, 4) = 'hya ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   409
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   410
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   411
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   412
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   413
            SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   414
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   415
        end;
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   416
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   417
    if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   418
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   419
        ParseCommand(s, true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   420
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   421
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   422
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   423
    if (copy(s, 2, 3) = 'me ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   424
        begin
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   425
        ParseCommand('/say ' + s, true);
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   426
        exit
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   427
        end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   428
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   429
    if (copy(s, 2, 10) = 'togglechat') then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   430
        begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   431
        ChatHidden:= (not ChatHidden);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   432
        if ChatHidden then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   433
           showAll:= false;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   434
        exit
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   435
        end;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   436
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   437
    // debugging commands
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   438
    if (copy(s, 2, 7) = 'debugvl') then
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   439
        begin
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   440
        cViewLimitsDebug:= (not cViewLimitsDebug);
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   441
        UpdateViewLimits();
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   442
        exit
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   443
        end;
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   444
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   445
    if (copy(s, 2, 3) = 'lua') then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   446
        begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   447
        AddFileLog('/lua issued');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   448
        if gameType <> gmtNet then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   449
            begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   450
            liveLua:= (not liveLua);
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   451
            if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   452
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   453
                AddFileLog('[Lua] chat input string parsing enabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   454
                AddChatString(#3 + 'Lua parsing: ON');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   455
                end
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   456
            else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   457
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   458
                AddFileLog('[Lua] chat input string parsing disabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   459
                AddChatString(#3 + 'Lua parsing: OFF');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   460
                end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   461
            end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   462
        exit
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   463
        end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   464
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   465
    // hedghog animations/taunts and engine commands
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   466
    if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   467
        begin
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   468
        for i:= Low(TWave) to High(TWave) do
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   469
            if (s = Wavez[i].cmd) then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   470
                begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   471
                ParseCommand('/taunt ' + char(i), true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   472
                exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   473
                end;
10588
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   474
        end;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   475
10588
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   476
    for j:= Low(TChatCmd) to High(TChatCmd) do
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   477
        if (s = ChatCommandz[j].ChatCmd) then
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   478
            begin
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   479
            ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true);
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   480
            exit
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   481
            end;
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   482
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   483
    if (gameType = gmtNet) then
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   484
        SendConsoleCommand(s)
10308
7350be35b335 whoops. an "end" moved there
sheepluva
parents: 10304
diff changeset
   485
    end
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   486
else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   487
    begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   488
    if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   489
        LuaParseString(s)
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   490
    else
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   491
        ParseCommand('/say ' + s, true);
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   492
    end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   493
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   494
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   495
procedure CleanupInput;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   496
begin
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   497
    FreezeEnterKey;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   498
    history:= 0;
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   499
{$IFNDEF SDL2}
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   500
    SDL_EnableKeyRepeat(0,0);
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   501
{$ENDIF}
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   502
    GameState:= gsGame;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   503
    ResetKbd;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   504
end;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   505
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   506
procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   507
var i, startIdx: integer;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   508
begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   509
    // nothing to do if count is 0
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   510
    if count = 0 then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   511
        exit;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   512
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   513
    // first byte to delete
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   514
    startIdx:= endIdx - (count - 1);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   515
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   516
    // delete bytes from string
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   517
    Delete(InputStr.s, startIdx, count);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   518
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   519
    // wipe utf8 info for deleted char
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   520
    InputStrL[endIdx]:= InputStrLNoPred;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   521
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   522
    // shift utf8 char info to reflect new string
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   523
    for i:= endIdx + 1 to Length(InputStr.s) + count do
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   524
        begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   525
        if InputStrL[i] <> InputStrLNoPred then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   526
            begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   527
            InputStrL[i-count]:= InputStrL[i] - count;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   528
            InputStrL[i]:= InputStrLNoPred;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   529
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   530
        end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   531
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   532
    SetLine(InputStr, InputStr.s, true);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   533
end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   534
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   535
// returns count of removed bytes
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   536
function DelCharFromInputStr(idx: integer): integer;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   537
var btw: byte;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   538
begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   539
    // note: idx is always at last byte of utf8 chars. cuz relevant for InputStrL
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   540
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   541
    if (Length(InputStr.s) < 1) or (idx < 1) or (idx > Length(InputStr.s)) then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   542
        exit(0);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   543
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   544
    btw:= byte(idx) - InputStrL[idx];
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   545
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   546
    DelCharFromInputStr:= btw;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   547
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   548
    DelBytesFromInputStrBack(idx, btw);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   549
end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   550
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   551
// unchecked
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   552
procedure DoCursorStepForward();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   553
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   554
    // go to end of next utf8-char
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   555
    repeat
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   556
        inc(cursorPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   557
    until InputStrL[cursorPos] <> InputStrLNoPred;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   558
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   559
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   560
procedure DeleteSelected();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   561
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   562
    if (selectedPos >= 0) and (cursorPos <> selectedPos) then
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   563
        begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   564
        DelBytesFromInputStrBack(max(cursorPos, selectedPos), abs(selectedPos-cursorPos));
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   565
        cursorPos:= min(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   566
        ResetSelection();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   567
        end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   568
end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   569
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   570
procedure HandleSelection(enabled: boolean);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   571
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   572
if enabled then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   573
    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   574
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   575
        selectedPos:= cursorPos;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   576
    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   577
else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   578
    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   579
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   580
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   581
type TCharSkip = ( none, wspace, numalpha, special );
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   582
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   583
function GetInputCharSkipClass(index: LongInt): TCharSkip;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   584
var  c: char;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   585
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   586
    // multi-byte chars counts as letter
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   587
    if (index > 1) and (InputStrL[index] <> index - 1) then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   588
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   589
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   590
    c:= InputStr.s[index];
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   591
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   592
    // non-ascii counts as letter
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   593
    if c > #127 then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   594
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   595
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   596
    // low-ascii whitespaces and DEL
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   597
    if (c < #33) or (c = #127) then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   598
        exit(wspace);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   599
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   600
    // low-ascii special chars
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   601
    if c < #48 then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   602
        exit(special);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   603
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   604
    // digits
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   605
    if c < #58 then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   606
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   607
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   608
    // make c upper-case
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   609
    if c > #96 then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   610
        c:= char(byte(c) - 32);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   611
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   612
    // letters
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   613
    if (c > #64) and (c < #90) then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   614
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   615
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   616
    // remaining ascii are special chars
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   617
    exit(special);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   618
end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   619
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   620
// skip from word to word, similar to Qt
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   621
procedure SkipInputChars(skip: TCharSkip; backwards: boolean);
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   622
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   623
if backwards then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   624
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   625
    // skip trailing whitespace, similar to Qt
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   626
    while (skip = wspace) and (cursorPos > 0) do
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   627
        begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   628
        skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   629
        if skip = wspace then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   630
            cursorPos:= InputStrL[cursorPos];
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   631
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   632
    // skip same-type chars
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   633
    while (cursorPos > 0) and (GetInputCharSkipClass(cursorPos) = skip) do
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   634
        cursorPos:= InputStrL[cursorPos];
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   635
    end
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   636
else
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   637
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   638
    // skip same-type chars
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   639
    while cursorPos < Length(InputStr.s) do
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   640
        begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   641
        DoCursorStepForward();
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   642
        if (GetInputCharSkipClass(cursorPos) <> skip) then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   643
            begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   644
            // go back 1 char
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   645
            cursorPos:= InputStrL[cursorPos];
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   646
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   647
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   648
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   649
    // skip trailing whitespace, similar to Qt
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   650
    while cursorPos < Length(InputStr.s) do
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   651
        begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   652
        DoCursorStepForward();
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   653
        if (GetInputCharSkipClass(cursorPos) <> wspace) then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   654
            begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   655
            // go back 1 char
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   656
            cursorPos:= InputStrL[cursorPos];
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   657
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   658
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   659
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   660
    end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   661
end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   662
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   663
procedure KeyPressChat(Key, Sym: Longword; Modifier: Word);
6893
69cc0166be8d - Track array size to use for High function
unc0rr
parents: 6854
diff changeset
   664
const firstByteMark: array[0..3] of byte = (0, $C0, $E0, $F0);
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   665
var i, btw, index: integer;
8740
3eb1891f81ef use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents: 8739
diff changeset
   666
    utf8: shortstring;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   667
    action, selMode, ctrl: boolean;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   668
    skip: TCharSkip;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   669
begin
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   670
    LastKeyPressTick:= RealTicks;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   671
    action:= true;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   672
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   673
    selMode:= (modifier and (KMOD_LSHIFT or KMOD_RSHIFT)) <> 0;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   674
    ctrl:= (modifier and (KMOD_LCTRL or KMOD_RCTRL)) <> 0;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   675
    skip:= none;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   676
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   677
    case Sym of
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   678
        SDLK_BACKSPACE:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   679
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   680
            if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   681
                begin
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   682
                if ctrl then
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   683
                    skip:= GetInputCharSkipClass(cursorPos);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   684
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   685
                // remove char before cursor
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   686
                dec(cursorPos, DelCharFromInputStr(cursorPos));
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   687
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   688
                // delete more if ctrl is held
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   689
                if ctrl and (selectedPos < 0) then
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   690
                    begin
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   691
                    HandleSelection(true);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   692
                    SkipInputChars(skip, true);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   693
                    DeleteSelected();
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   694
                    end;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   695
                end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   696
            else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   697
                DeleteSelected();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   698
            UpdateCursorCoords();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   699
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   700
        SDLK_DELETE:
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   701
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   702
            if selectedPos < 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   703
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   704
                // remove char after cursor
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   705
                if cursorPos < Length(InputStr.s) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   706
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   707
                    DoCursorStepForward();
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   708
                    if ctrl then
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   709
                        skip:= GetInputCharSkipClass(cursorPos);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   710
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   711
                    // delete char
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   712
                    dec(cursorPos, DelCharFromInputStr(cursorPos));
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   713
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   714
                    // delete more if ctrl is held
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   715
                    if ctrl and (cursorPos < Length(InputStr.s)) then
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   716
                        begin
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   717
                        HandleSelection(true);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   718
                        SkipInputChars(skip, false);
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   719
                        DeleteSelected();
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   720
                        end;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   721
                    end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   722
                end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   723
            else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   724
                DeleteSelected();
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   725
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   726
            UpdateCursorCoords();
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   727
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   728
        SDLK_ESCAPE:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   729
            begin
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   730
            if Length(InputStr.s) > 0 then
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   731
                begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   732
                SetLine(InputStr, '', true);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   733
                FillChar(InputStrL, sizeof(InputStrL), InputStrLNoPred);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   734
                ResetCursor();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   735
                end
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   736
            else CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   737
            end;
9319
492a0ad67e33 allow to send chat messages with numpad enter key too (regression?)
koda
parents: 9317
diff changeset
   738
        SDLK_RETURN, SDLK_KP_ENTER:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   739
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   740
            if Length(InputStr.s) > 0 then
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   741
                begin
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   742
                AcceptChatString(InputStr.s);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   743
                SetLine(InputStr, '', false);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   744
                FillChar(InputStrL, sizeof(InputStrL), InputStrLNoPred);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   745
                ResetCursor();
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   746
                end;
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   747
            CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   748
            end;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   749
        SDLK_UP, SDLK_DOWN:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   750
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   751
            if (Sym = SDLK_UP) and (history < localLastStr) then inc(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   752
            if (Sym = SDLK_DOWN) and (history > 0) then dec(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   753
            index:= localLastStr - history + 1;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   754
            if (index > localLastStr) then
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   755
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   756
                SetLine(InputStr, '', true);
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   757
                FillChar(InputStrL, sizeof(InputStrL), InputStrLNoPred);
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   758
                end
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   759
            else
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   760
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   761
                SetLine(InputStr, LocalStrs[index], true);
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   762
                InputStrL:= LocalStrsL[index];
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   763
                end;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   764
            cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   765
            ResetSelection();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   766
            UpdateCursorCoords();
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   767
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   768
        SDLK_HOME:
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   769
            begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   770
            if cursorPos > 0 then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   771
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   772
                HandleSelection(selMode);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   773
                cursorPos:= 0;
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   774
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   775
            else if (not selMode) then
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   776
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   777
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   778
            UpdateCursorCoords();
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   779
            end;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   780
        SDLK_END:
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   781
            begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   782
            i:= Length(InputStr.s);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   783
            if cursorPos < i then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   784
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   785
                HandleSelection(selMode);
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   786
                cursorPos:= i;
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   787
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   788
            else if (not selMode) then
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   789
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   790
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   791
            UpdateCursorCoords();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   792
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   793
        SDLK_LEFT:
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   794
            begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   795
            if cursorPos > 0 then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   796
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   797
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   798
                if ctrl then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   799
                    skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   800
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   801
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   802
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   803
                    HandleSelection(selMode);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   804
                    // go to end of previous utf8-char
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   805
                    cursorPos:= InputStrL[cursorPos];
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   806
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   807
                else // if we're leaving selection mode, jump to its left end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   808
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   809
                    cursorPos:= min(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   810
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   811
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   812
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   813
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   814
                    SkipInputChars(skip, true);
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   815
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   816
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   817
            else if (not selMode) then
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   818
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   819
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   820
            UpdateCursorCoords();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   821
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   822
        SDLK_RIGHT:
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   823
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   824
            if cursorPos < Length(InputStr.s) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   825
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   826
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   827
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   828
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   829
                    HandleSelection(selMode);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   830
                    DoCursorStepForward();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   831
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   832
                else // if we're leaving selection mode, jump to its right end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   833
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   834
                    cursorPos:= max(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   835
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   836
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   837
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   838
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   839
                    SkipInputChars(GetInputCharSkipClass(cursorPos), false);
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   840
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   841
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   842
            else if (not selMode) then
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   843
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   844
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   845
            UpdateCursorCoords();
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   846
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   847
        SDLK_PAGEUP, SDLK_PAGEDOWN:
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   848
            begin
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   849
            // ignore me!!!
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   850
            end;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   851
        SDLK_a:
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   852
            begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   853
            // select all
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   854
            if ctrl then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   855
                begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   856
                ResetSelection();
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   857
                cursorPos:= 0;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   858
                HandleSelection(true);
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   859
                cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   860
                UpdateCursorCoords();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   861
                end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   862
            else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   863
                action:= false;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   864
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   865
        else
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   866
            action:= false;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   867
        end;
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   868
    if not action and (Key <> 0) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   869
        begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   870
        DeleteSelected();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   871
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   872
        if (Key < $80) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   873
            btw:= 1
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   874
        else if (Key < $800) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   875
            btw:= 2
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   876
        else if (Key < $10000) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   877
            btw:= 3
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   878
        else
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   879
            btw:= 4;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   880
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   881
        utf8:= '';
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   882
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   883
        for i:= btw downto 2 do
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   884
            begin
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   885
            utf8:= char((Key or $80) and $BF) + utf8;
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   886
            Key:= Key shr 6
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   887
            end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   888
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   889
        utf8:= char(Key or firstByteMark[Pred(btw)]) + utf8;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   890
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   891
        if Length(InputStr.s) + btw > 240 then
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   892
            exit;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   893
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   894
        // if we insert rather than append, shift info in InputStrL accordingly
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   895
        if cursorPos < Length(InputStr.s) then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   896
            begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   897
            for i:= Length(InputStr.s) downto cursorPos + 1 do
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   898
                begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   899
                if InputStrL[i] <> InputStrLNoPred then
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   900
                    begin
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   901
                    InputStrL[i+btw]:= InputStrL[i] + btw;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   902
                    InputStrL[i]:= InputStrLNoPred;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   903
                    end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   904
                end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   905
            end;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   906
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   907
        InputStrL[cursorPos + btw]:= cursorPos;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   908
        Insert(utf8, InputStr.s, cursorPos + 1);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   909
        SetLine(InputStr, InputStr.s, true);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   910
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   911
        cursorPos:= cursorPos + btw;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   912
        UpdateCursorCoords();
8735
42892d1fb9e1 formatting
koda
parents: 8516
diff changeset
   913
        end
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   914
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   915
4404
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   916
procedure chChatMessage(var s: shortstring);
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   917
begin
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   918
    AddChatString(s)
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   919
end;
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   920
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   921
procedure chSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   922
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   923
    SendIPC('s' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   924
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   925
    if copy(s, 1, 4) = '/me ' then
6453
11c578d30bd3 Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents: 6381
diff changeset
   926
        s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   927
    else
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   928
        s:= #1 + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   929
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   930
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   931
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   932
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   933
procedure chTeamSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   934
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   935
    SendIPC('b' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   936
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   937
    s:= #4 + '[Team] ' + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   938
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   939
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   940
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   941
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   942
procedure chHistory(var s: shortstring);
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   943
var i: LongInt;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   944
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   945
    s:= s; // avoid compiler hint
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   946
    showAll:= not showAll;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   947
    // immediatly recount
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   948
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   949
    if showAll or (not ChatHidden) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   950
        for i:= 0 to MaxStrIndex do
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   951
            begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   952
            if (Strs[i].Tex <> nil) and (showAll or (Strs[i].Time > RealTicks)) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   953
                inc(visibleCount);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   954
            end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   955
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   956
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   957
procedure chChat(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   958
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   959
    s:= s; // avoid compiler hint
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   960
    GameState:= gsChat;
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   961
{$IFNDEF SDL2}
5099
ce1a761d3c1e enable keyrepeat while chatting so you can keep backspace pressed to delete a line (fix issue 111)
koda
parents: 4976
diff changeset
   962
    SDL_EnableKeyRepeat(200,45);
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   963
{$ENDIF}
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   964
    if length(s) = 0 then
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
   965
        SetLine(InputStr, '', true)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   966
    else
10841
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   967
        begin
10843
5c2ef0507971 whoops, pas2c did not notice this missing ;
sheepluva
parents: 10842
diff changeset
   968
        SetLine(InputStr, '/team ', true);
10841
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   969
        // update InputStrL and cursor accordingly
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   970
        // this allows cursor-jumping over '/team ' as if it was a single char
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   971
        InputStrL[6]:= 0;
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   972
        cursorPos:= 6;
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   973
        UpdateCursorCoords();
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
   974
        end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   975
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   976
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   977
procedure initModule;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   978
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   979
begin
6898
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   980
    RegisterVariable('chatmsg', @chChatMessage, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   981
    RegisterVariable('say', @chSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   982
    RegisterVariable('team', @chTeamSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   983
    RegisterVariable('history', @chHistory, true );
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   984
    RegisterVariable('chat', @chChat, true );
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   985
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   986
    lastStr:= 0;
8740
3eb1891f81ef use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents: 8739
diff changeset
   987
    localLastStr:= 0;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   988
    history:= 0;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   989
    visibleCount:= 0;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   990
    showAll:= false;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   991
    ChatReady:= false;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   992
    missedCount:= 0;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   993
    liveLua:= false;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   994
    ChatHidden:= false;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   995
    firstDraw:= true;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   996
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   997
    InputLinePrefix:= UserNick + '> ';
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
   998
    inputStr.s:= '';
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   999
    inputStr.Tex := nil;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
  1000
    for i:= 0 to MaxStrIndex do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
  1001
        Strs[i].Tex := nil;
10834
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
  1002
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
  1003
    FillChar(InputStrL, sizeof(InputStrL), InputStrLNoPred);
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
  1004
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
  1005
    LastKeyPressTick:= 0;
2e83f33dfe5b engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents: 10737
diff changeset
  1006
    ResetCursor();
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1007
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1008
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
  1009
procedure freeModule;
4901
d1e2d82d9ccc Thou shalt not leak!
sheepluva
parents: 4814
diff changeset
  1010
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1011
begin
10634
35d059bd0932 Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents: 10588
diff changeset
  1012
    FreeAndNilTexture(InputStr.Tex);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
  1013
    for i:= 0 to MaxStrIndex do
10634
35d059bd0932 Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents: 10588
diff changeset
  1014
        FreeAndNilTexture(Strs[i].Tex);
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1015
end;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1016
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
  1017
end.