hedgewars/uChat.pas
author sheepluva
Tue, 10 Nov 2015 22:18:06 +0100
branchsdl2transition
changeset 11363 9006e158a81f
parent 11362 ed5a6478e710
child 11364 b0df3f2fcafc
permissions -rw-r--r--
use SDL2 to paste clipboard contents
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
11046
47a8c19ecb60 more copyright fixes
sheepluva
parents: 11022
diff changeset
     3
 * Copyright (c) 2004-2015 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
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
    24
uses SDLh;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    25
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    26
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    27
procedure freeModule;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
    28
procedure ReloadLines;
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
    29
procedure CleanupInput;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    30
procedure AddChatString(s: shortstring);
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    31
procedure DrawChat;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    32
procedure KeyPressChat(Key, Sym: Longword; Modifier: Word);
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
    33
procedure SendHogSpeech(s: shortstring);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
    34
procedure CopyToClipboard(var newContent: shortstring);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    35
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
    36
procedure TextInput(var event: TSDL_TextInputEvent);
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
    37
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    38
implementation
11362
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
    39
uses uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    40
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
    41
const MaxStrIndex = 27;
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
    42
      MaxInputStrLen = 200;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    43
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    44
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
    45
    Tex: PTexture;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    46
    Time: Longword;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    47
    Width: LongInt;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    48
    s: shortstring;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    49
    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
    50
    end;
9954
bf51bc7e2808 - Fix build via pas2c
unc0rr
parents: 9950
diff changeset
    51
    TChatCmd = (ccQuit, ccPause, ccFinish, ccShowHistory, ccFullScreen);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    52
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    53
var Strs: array[0 .. MaxStrIndex] of TChatLine;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    54
    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
    55
    LocalStrs: array[0 .. MaxStrIndex] of shortstring;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    56
    missedCount: LongWord;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    57
    lastStr: LongWord;
9145
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    58
    localLastStr: LongInt;
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    59
    history: LongInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    60
    visibleCount: LongWord;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    61
    InputStr: TChatLine;
4814
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    62
    ChatReady: boolean;
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    63
    showAll: boolean;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
    64
    liveLua: boolean;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
    65
    ChatHidden: boolean;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
    66
    firstDraw: boolean;
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
    67
    InputLinePrefix: TChatLine;
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
    68
    // cursor
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    69
    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
    70
    LastKeyPressTick: LongWord;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    71
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    72
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    73
const
11022
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    74
    colors: array[#0..#9] of TSDL_Color = (
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    75
            (r:$FF; g:$FF; b:$FF; a:$FF), // #0 unused, feel free to take it for anything
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    76
            (r:$FF; g:$FF; b:$FF; a:$FF), // #1 chat message [White]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    77
            (r:$FF; g:$00; b:$FF; a:$FF), // #2 action message [Purple]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    78
            (r:$90; g:$FF; b:$90; a:$FF), // #3 join/leave message [Lime]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    79
            (r:$FF; g:$FF; b:$A0; a:$FF), // #4 team message [Light Yellow]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    80
            (r:$FF; g:$00; b:$00; a:$FF), // #5 error messages [Red]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    81
            (r:$00; g:$FF; b:$FF; a:$FF), // #6 input line [Light Blue]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    82
            (r:$FF; g:$80; b:$80; a:$FF), // #7 team gone [Light Red]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    83
            (r:$FF; g:$D0; b:$80; a:$FF), // #8 team back [Light Orange]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    84
            (r:$DF; g:$DF; b:$DF; a:$FF)  // #9 hog speech [Light Gray]
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    85
            );
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    86
    ChatCommandz: array [TChatCmd] of record
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    87
            ChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    88
            ProcedureCallChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    89
            end = (
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    90
            (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    91
            (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    92
            (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),
9569
dd1861ca4def add /history command from chat
koda
parents: 9319
diff changeset
    93
            (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'),
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    94
            (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    95
            );
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
    96
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    97
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    98
const Padding  = 2;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    99
      ClHeight = 2 * Padding + 16; // font height
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   100
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   101
// relevant for UTF-8 handling
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   102
function IsFirstCharByte(c: char): boolean; inline;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   103
begin
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   104
    // based on https://en.wikipedia.org/wiki/UTF-8#Description
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   105
    IsFirstCharByte:= (byte(c) and $C0) <> $80;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   106
end;
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   107
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   108
function charIsForHogSpeech(c: char): boolean;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   109
begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   110
exit((c = '"') or (c = '''') or (c = '-'));
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   111
end;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   112
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   113
procedure ResetSelection();
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   114
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   115
    selectedPos:= -1;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   116
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   117
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
   118
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
   119
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
   120
    str : shortstring;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   121
    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
   122
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   123
    if cursorPos = selectedPos then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   124
        ResetSelection();
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   125
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
   126
    // 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
   127
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   128
    str:= 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
   129
    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
   130
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
   131
    // get only substring before cursor to determine length
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   132
    // SetLength(str, cursorPos); // makes pas2c unhappy
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   133
    str[0]:= char(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
   134
    // 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
   135
    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
   136
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   137
    cursorX:= 2 + coff;
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   138
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   139
    // calculate selection width on screen
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   140
    if selectedPos >= 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   141
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   142
        if selectedPos > cursorPos then
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   143
            str:= InputStr.s;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   144
        // SetLength(str, selectedPos); // makes pas2c unhappy
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   145
        str[0]:= char(selectedPos);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   146
        TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @soff, nil);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   147
        selectionDx:= soff - coff;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   148
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   149
    else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   150
        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
   151
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
   152
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   153
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
   154
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
   155
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   156
    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
   157
    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
   158
    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
   159
end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   160
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   161
(* This procedure [re]renders a texture showing str for the chat line cl.
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   162
 * It will use the color stored in cl and update width
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   163
 *)
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   164
procedure RenderChatLineTex(var cl: TChatLine; var str: shortstring);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   165
var strSurface,
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   166
    resSurface: PSDL_Surface;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   167
    dstrect   : TSDL_Rect; // destination rectangle for blitting
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   168
    font      : THWFont;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   169
const
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   170
    shadowint  = $80 shl AShift;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   171
begin
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   172
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   173
FreeAndNilTexture(cl.Tex);
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   174
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   175
font:= CheckCJKFont(ansistring(str), fnt16);
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
// get render size of text
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   178
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @cl.Width, nil);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   179
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   180
// calculate and save size
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   181
cl.Width := cl.Width  + 2 * Padding;
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
// create surface to draw on
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   184
resSurface:= SDL_CreateRGBSurface(
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   185
                0, toPowerOf2(cl.Width), toPowerOf2(ClHeight),
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   186
                32, RMask, GMask, BMask, AMask);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   187
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   188
// define area we want to draw in
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   189
dstrect.x:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   190
dstrect.y:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   191
dstrect.w:= cl.Width;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   192
dstrect.h:= ClHeight;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   193
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   194
// draw background
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   195
SDL_FillRect(resSurface, @dstrect, shadowint);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   196
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   197
// create and blit text
10370
8676ef16c594 Using blended makes smilies and CJK less hideous.
nemo
parents: 10314
diff changeset
   198
strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
10737
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
   199
//SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
   200
if strSurface <> nil then copyTOXY(strSurface, resSurface, Padding, Padding);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   201
SDL_FreeSurface(strSurface);
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   202
2290
bf87ca44782e Selectively enable clamping - seeing if this helps avoid weird flake problems while still fixing vertical lines in waves and sky
nemo
parents: 2161
diff changeset
   203
cl.Tex:= Surface2Tex(resSurface, false);
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   204
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   205
SDL_FreeSurface(resSurface)
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   206
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   207
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   208
const ClDisplayDuration = 12500;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   209
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   210
procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   211
var color  : TSDL_Color;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   212
begin
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   213
if isInput then
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   214
    begin
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   215
    cl.s:= str;
5392
1840da0c1f1d little code cleanup (but please test)
koda
parents: 5100
diff changeset
   216
    color:= colors[#6];
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   217
    str:= str + ' ';
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   218
    end
2664
949c189ba568 powerpc and gameserver compilation disabled temporarily
koda
parents: 2630
diff changeset
   219
else
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   220
    begin
10863
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   221
    if str[1] <= High(colors) then
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   222
        begin
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   223
        color:= colors[str[1]];
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   224
        delete(str, 1, 1);
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   225
        end
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   226
    // fallback if invalid color
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   227
    else
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   228
        color:= colors[Low(colors)];
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   229
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   230
    cl.s:= str;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   231
    end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   232
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   233
cl.color:= color;
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   234
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   235
// 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
   236
RenderChatLineTex(cl, str);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   237
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   238
cl.Time:= RealTicks + ClDisplayDuration;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   239
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   240
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   241
// For uStore texture recreation
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   242
procedure ReloadLines;
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   243
var i: LongWord;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   244
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   245
    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
   246
        SetLine(InputStr, InputStr.s, true);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   247
    for i:= 0 to MaxStrIndex do
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   248
        if Strs[i].s <> '' then
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   249
            begin
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   250
            RenderChatLineTex(Strs[i], Strs[i].s);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   251
            end;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   252
end;
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   253
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   254
procedure AddChatString(s: shortstring);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   255
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   256
if not ChatReady then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   257
    begin
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   258
    if MissedCount < MaxStrIndex - 1 then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   259
        MStrs[MissedCount]:= s
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   260
    else if MissedCount < MaxStrIndex then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   261
        MStrs[MissedCount]:= #5 + '[...]';
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   262
    inc(MissedCount);
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   263
    exit
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   264
    end;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   265
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   266
lastStr:= (lastStr + 1) mod (MaxStrIndex + 1);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   267
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   268
SetLine(Strs[lastStr], s, false);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   269
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   270
inc(visibleCount)
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   271
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   272
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   273
procedure UpdateInputLinePrefix();
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   274
begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   275
if liveLua then
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   276
    begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   277
    InputLinePrefix.color:= colors[#1];
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   278
    InputLinePrefix.s:= '[Lua] >';
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   279
    end
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   280
else
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   281
    begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   282
    InputLinePrefix.color:= colors[#6];
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   283
    InputLinePrefix.s:= UserNick + '>';
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   284
    end;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   285
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   286
FreeAndNilTexture(InputLinePrefix.Tex);
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   287
end;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   288
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   289
procedure DrawChat;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   290
var i, t, left, top, cnt: LongInt;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   291
    selRect: TSDL_Rect;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   292
    c: char;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   293
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   294
ChatReady:= true; // maybe move to somewhere else?
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   295
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   296
if ChatHidden and (not showAll) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   297
    visibleCount:= 0;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   298
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   299
// draw chat lines with some distance from screen border
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   300
left:= 4 - cScreenWidth div 2;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   301
top := 10 + visibleCount * ClHeight; // we start with input line (if any)
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   302
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   303
// 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
   304
if (GameState = gsChat) and (InputStr.Tex <> nil) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   305
    begin
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
   306
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   307
    if InputLinePrefix.Tex = nil then
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   308
        RenderChatLineTex(InputLinePrefix, InputLinePrefix.s);
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   309
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   310
    DrawTexture(left, top, InputLinePrefix.Tex);
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   311
    inc(left, InputLinePrefix.Width);
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   312
    DrawTexture(left, top, InputStr.Tex);
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   313
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   314
    if firstDraw then
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   315
        begin
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   316
        UpdateCursorCoords();
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   317
        firstDraw:= false;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   318
        end;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   319
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   320
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   321
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   322
        // draw cursor
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   323
        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
   324
            DrawLineOnScreen(left + cursorX, top + 2, left + cursorX, top + ClHeight - 2, 2.0, $00, $FF, $FF, $FF);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   325
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   326
    else // draw selection
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   327
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   328
        selRect.y:= top + 2;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   329
        selRect.h:= clHeight - 4;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   330
        if selectionDx < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   331
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   332
            selRect.x:= left + cursorX + selectionDx;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   333
            selRect.w:= -selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   334
            end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   335
        else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   336
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   337
            selRect.x:= left + cursorX;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   338
            selRect.w:= selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   339
            end;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   340
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   341
        DrawRect(selRect, $FF, $FF, $FF, $40, true);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   342
        end;
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   343
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   344
    dec(left, InputLinePrefix.Width);
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   345
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   346
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   347
    if (Length(InputStr.s) > 0) and ((CursorPos = 1) or (CursorPos = 2)) then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   348
        begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   349
        c:= InputStr.s[1];
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   350
        if charIsForHogSpeech(c) then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   351
            begin
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   352
            SpeechHogNumber:= 0;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   353
            if Length(InputStr.s) > 1 then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   354
                begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   355
                c:= InputStr.s[2];
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   356
                if (c > '0') and (c < '9') then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   357
                    SpeechHogNumber:= byte(c) - 48;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   358
                end;
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   359
            // default to current hedgehog (if own) or first hedgehog
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   360
            if SpeechHogNumber = 0 then
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   361
                begin
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   362
                if not CurrentTeam^.ExtDriven then
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   363
                    SpeechHogNumber:= CurrentTeam^.CurrHedgehog + 1
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   364
                else
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   365
                    SpeechHogNumber:= 1;
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   366
                end;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   367
            end;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   368
        end
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   369
    else
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   370
        SpeechHogNumber:= -1;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   371
    end
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   372
else
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   373
    SpeechHogNumber:= -1;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   374
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
   375
// draw chat lines
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   376
if ((not ChatHidden) or showAll) and (UIDisplay <> uiNone) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   377
    begin
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   378
    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
   379
        begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   380
        for i:= 0 to MissedCount - 1 do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   381
            AddChatString(MStrs[i]);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   382
        MissedCount:= 0;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   383
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   384
    i:= lastStr;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   385
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   386
    cnt:= 0; // count of lines displayed
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   387
    t  := 1; // # of current line processed
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   388
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   389
    // draw lines in reverse order
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   390
    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
   391
    and (Strs[i].Tex <> nil) do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   392
        begin
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   393
        top:= top - ClHeight;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   394
        // draw chatline only if not offscreen
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   395
        if top > 0 then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   396
            DrawTexture(left, top, Strs[i].Tex);
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   397
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   398
        if i = 0 then
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   399
            i:= MaxStrIndex
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   400
        else
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   401
            dec(i);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   402
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   403
        inc(cnt);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   404
        inc(t)
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   405
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   406
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   407
    visibleCount:= cnt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   408
    end;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   409
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   410
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   411
procedure SendHogSpeech(s: shortstring);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   412
begin
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   413
SendIPC('h' + s);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   414
ParseCommand('/hogsay '+s, true)
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   415
end;
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   416
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   417
procedure SendConsoleCommand(s: shortstring);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   418
begin
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   419
    Delete(s, 1, 1);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   420
    SendIPC('~' + s)
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   421
end;
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   422
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   423
procedure AcceptChatString(s: shortstring);
1035
6f5842bc481b Hopefully done taunts implementation
unc0rr
parents: 1034
diff changeset
   424
var i: TWave;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   425
    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
   426
    c, t: LongInt;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   427
    x: byte;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   428
begin
10513
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   429
if s <> LocalStrs[localLastStr] then
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   430
    begin
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   431
    // put in input history
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   432
    localLastStr:= (localLastStr + 1) mod MaxStrIndex;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   433
    LocalStrs[localLastStr]:= s;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   434
    end;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   435
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
   436
t:= LocalTeam;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   437
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
   438
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
   439
    then x:= 1
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   440
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   441
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
   442
    x:= 2
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   443
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   444
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
   445
    x:= 3;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   446
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7722
diff changeset
   447
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
   448
    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
   449
        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
   450
            t:= c;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   451
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   452
if x <> 0 then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   453
    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
   454
    if t = -1 then
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   455
        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   456
    else
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   457
        SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2));
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   458
    exit
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   459
    end;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   460
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   461
if (s[1] = '/') then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   462
    begin
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   463
    // 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
   464
    if (copy(s, 2, 4) = 'hsa ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   465
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   466
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   467
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   468
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   469
            SendHogSpeech(#4 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   470
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   471
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   472
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   473
    if (copy(s, 2, 4) = 'hta ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   474
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   475
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   476
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   477
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   478
            SendHogSpeech(#5 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   479
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   480
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   481
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   482
    if (copy(s, 2, 4) = 'hya ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   483
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   484
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   485
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   486
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   487
            SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   488
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   489
        end;
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   490
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   491
    if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   492
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   493
        ParseCommand(s, true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   494
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   495
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   496
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   497
    if (copy(s, 2, 3) = 'me ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   498
        begin
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   499
        ParseCommand('/say ' + s, true);
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   500
        exit
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   501
        end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   502
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   503
    if (copy(s, 2, 10) = 'togglechat') then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   504
        begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   505
        ChatHidden:= (not ChatHidden);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   506
        if ChatHidden then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   507
           showAll:= false;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   508
        exit
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   509
        end;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   510
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   511
    // debugging commands
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   512
    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
   513
        begin
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   514
        cViewLimitsDebug:= (not cViewLimitsDebug);
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   515
        UpdateViewLimits();
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   516
        exit
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   517
        end;
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   518
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   519
    if (copy(s, 2, 3) = 'lua') then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   520
        begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   521
        AddFileLog('/lua issued');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   522
        if gameType <> gmtNet then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   523
            begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   524
            liveLua:= (not liveLua);
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   525
            if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   526
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   527
                AddFileLog('[Lua] chat input string parsing enabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   528
                AddChatString(#3 + 'Lua parsing: ON');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   529
                end
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   530
            else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   531
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   532
                AddFileLog('[Lua] chat input string parsing disabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   533
                AddChatString(#3 + 'Lua parsing: OFF');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   534
                end;
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   535
            UpdateInputLinePrefix();
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   536
            end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   537
        exit
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   538
        end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   539
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   540
    // hedghog animations/taunts and engine commands
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   541
    if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   542
        begin
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   543
        for i:= Low(TWave) to High(TWave) do
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   544
            if (s = Wavez[i].cmd) then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   545
                begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   546
                ParseCommand('/taunt ' + char(i), true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   547
                exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   548
                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
   549
        end;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   550
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
   551
    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
   552
        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
   553
            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
   554
            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
   555
            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
   556
            end;
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   557
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   558
    if (gameType = gmtNet) then
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   559
        SendConsoleCommand(s)
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   560
    end
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   561
else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   562
    begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   563
    if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   564
        LuaParseString(s)
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   565
    else
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   566
        ParseCommand('/say ' + s, true);
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   567
    end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   568
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   569
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   570
procedure CleanupInput;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   571
begin
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   572
    FreezeEnterKey;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   573
    history:= 0;
9697
198c3ed28fe8 All I want is to receive some events...
unc0rr
parents: 9676
diff changeset
   574
    SDL_StopTextInput();
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   575
    GameState:= gsGame;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   576
    ResetKbd;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   577
end;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   578
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   579
procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   580
var startIdx: integer;
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
   581
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
   582
    // 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
   583
    if count = 0 then
4121
22b1acc0e461 fix issue 2 - taunts during AI turns
koda
parents: 3969
diff changeset
   584
        exit;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   585
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
   586
    // 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
   587
    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
   588
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
   589
    // 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
   590
    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
   591
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
   592
    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
   593
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
   594
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   595
procedure MoveCursorToPreviousChar();
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
   596
begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   597
    if cursorPos > 0 then
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   598
        repeat
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   599
            dec(cursorPos);
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   600
        until ((cursorPos = 0) or IsFirstCharByte(InputStr.s[cursorPos + 1]));
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
   601
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
   602
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   603
procedure MoveCursorToNextChar();
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   604
var len: integer;
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
   605
begin
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   606
    len:= Length(InputStr.s);
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   607
    if cursorPos < len then
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   608
        repeat
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   609
            inc(cursorPos);
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   610
        until ((cursorPos = len) or IsFirstCharByte(InputStr.s[cursorPos + 1]));
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   611
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   612
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   613
procedure DeleteLastUTF8CharFromStr(var s: shortstring);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   614
var l: byte;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   615
begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   616
    l:= Length(s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   617
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   618
    while (l > 1) and (not IsFirstCharByte(s[l])) do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   619
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   620
        dec(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   621
        end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   622
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   623
    if l > 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   624
        dec(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   625
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   626
    s[0]:= char(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   627
end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   628
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   629
procedure DeleteSelected();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   630
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   631
    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
   632
        begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   633
        DelBytesFromInputStrBack(max(cursorPos, selectedPos), abs(selectedPos-cursorPos));
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   634
        cursorPos:= min(cursorPos, selectedPos);
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
   635
        end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   636
    ResetSelection();
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   637
    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
   638
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
   639
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   640
procedure HandleSelection(enabled: boolean);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   641
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   642
if enabled then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   643
    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   644
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   645
        selectedPos:= cursorPos;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   646
    end
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   647
else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   648
    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   649
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   650
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   651
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
   652
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   653
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
   654
var  c: char;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   655
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   656
    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
   657
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   658
    // 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
   659
    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
   660
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   661
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   662
    // 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
   663
    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
   664
        exit(wspace);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   665
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   666
    // 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
   667
    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
   668
        exit(special);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   669
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   670
    // digits
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   671
    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
   672
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   673
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   674
    // 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
   675
    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
   676
        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
   677
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   678
    // letters
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   679
    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
   680
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   681
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   682
    // 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
   683
    exit(special);
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   684
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   685
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   686
// skip from word to word, similar to Qt
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   687
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
   688
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   689
if backwards then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   690
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   691
    // 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
   692
    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
   693
        begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   694
        skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   695
        if skip = wspace then
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   696
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   697
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   698
    // 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
   699
    while (cursorPos > 0) and (GetInputCharSkipClass(cursorPos) = skip) do
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   700
        MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   701
    end
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   702
else
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   703
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   704
    // 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
   705
    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
   706
        begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   707
        MoveCursorToNextChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   708
        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
   709
            begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   710
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   711
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   712
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   713
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   714
    // 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
   715
    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
   716
        begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   717
        MoveCursorToNextChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   718
        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
   719
            begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   720
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   721
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   722
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   723
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   724
    end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   725
end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   726
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   727
procedure CopyToClipboard(var newContent: shortstring);
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   728
begin
10851
f25dad9c3136 chat/copypaste: some adjustments and sanity checks
sheepluva
parents: 10850
diff changeset
   729
    SendIPC(_S'y' + copy(newContent, 1, 253) + #0);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   730
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   731
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   732
procedure CopySelectionToClipboard();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   733
var selection: shortstring;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   734
begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   735
    if selectedPos >= 0 then
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   736
        begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   737
        selection:= copy(InputStr.s, min(CursorPos, selectedPos) + 1, abs(CursorPos - selectedPos));
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   738
        CopyToClipboard(selection);
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   739
        end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   740
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   741
10853
287634baf7ba and ofc fix pas2c build
sheepluva
parents: 10852
diff changeset
   742
procedure InsertIntoInputStr(s: shortstring);
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   743
var limit: integer;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   744
begin
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   745
    // we check limit for trailing stuff before insertion limit for a reason
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   746
    // (possible remaining space after too long UTF8-insertion has been shortened)
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   747
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   748
    // length limit for stuff to that will trail the insertion
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   749
    limit:= max(cursorPos, MaxInputStrLen-Length(s));
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   750
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   751
    while Length(InputStr.s) > limit do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   752
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   753
        DeleteLastUTF8CharFromStr(InputStr.s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   754
        end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   755
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   756
    // length limit for stuff to insert
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   757
    limit:= max(0, MaxInputStrLen-cursorPos);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   758
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   759
    if limit = 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   760
        s:= ''
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   761
    else while Length(s) > limit do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   762
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   763
        DeleteLastUTF8CharFromStr(s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   764
        end;
10851
f25dad9c3136 chat/copypaste: some adjustments and sanity checks
sheepluva
parents: 10850
diff changeset
   765
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   766
    if Length(s) > 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   767
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   768
        // insert string truncated to safe length
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   769
        Insert(s, InputStr.s, cursorPos + 1);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   770
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   771
        if Length(InputStr.s) > MaxInputStrLen then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   772
            InputStr.s[0]:= char(MaxInputStrLen);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   773
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   774
        SetLine(InputStr, InputStr.s, true);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   775
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   776
        // move cursor to end of inserted string
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   777
        inc(cursorPos, Length(s));
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   778
        UpdateCursorCoords();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   779
        end;
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   780
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   781
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   782
procedure TextInput(var event: TSDL_TextInputEvent);
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   783
var s: shortstring;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   784
    l: byte;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   785
begin
11362
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
   786
    DeleteSelected();
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
   787
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   788
    l:= 0;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   789
    while event.text[l] <> #0 do
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   790
        begin
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   791
        s[l + 1]:= event.text[l];
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   792
        inc(l)
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   793
        end;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   794
    s[0]:= char(l);
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   795
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   796
    if byte(InputStr.s[0]) + l > 240 then exit;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   797
11362
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
   798
    InsertIntoInputStr(s);
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
   799
end;
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
   800
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   801
procedure PasteFromClipboard();
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   802
var clip: PChar;
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   803
begin
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   804
    // use SDL2 clipboard functions
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   805
    if SDL_HasClipboardText() then
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
   806
        begin
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   807
        clip:= SDL_GetClipboardText();
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   808
        // returns NULL if not enough memory for a copy of clipboard content 
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   809
        if clip <> nil then
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   810
            begin
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   811
            InsertIntoInputStr(shortstring(clip));
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   812
            SDL_free(Pointer(clip));
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
   813
            end;
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
   814
        end;
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   815
end;
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
   816
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   817
procedure KeyPressChat(Key, Sym: Longword; Modifier: Word);
6893
69cc0166be8d - Track array size to use for High function
unc0rr
parents: 6854
diff changeset
   818
const firstByteMark: array[0..3] of byte = (0, $C0, $E0, $F0);
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
   819
      nonStateMask = (not (KMOD_NUM or KMOD_CAPS));
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   820
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
   821
    utf8: shortstring;
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
   822
    action, selMode, ctrl, ctrlonly: boolean;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   823
    skip: TCharSkip;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   824
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
   825
    LastKeyPressTick:= RealTicks;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   826
    action:= true;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   827
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   828
    selMode:= (modifier and (KMOD_LSHIFT or KMOD_RSHIFT)) <> 0;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   829
    ctrl:= (modifier and (KMOD_LCTRL or KMOD_RCTRL)) <> 0;
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
   830
    ctrlonly:= ctrl and ((modifier and nonStateMask and (not (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
   831
    skip:= none;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   832
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   833
    case Sym of
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   834
        SDLK_BACKSPACE:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   835
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   836
            if selectedPos < 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   837
                begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   838
                HandleSelection(true);
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   839
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   840
                // delete more if ctrl is held
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   841
                if ctrl then
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   842
                    SkipInputChars(GetInputCharSkipClass(cursorPos), true)
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   843
                else
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   844
                    MoveCursorToPreviousChar();
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   845
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   846
                end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   847
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   848
            DeleteSelected();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   849
            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
   850
            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
   851
        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
   852
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   853
            if selectedPos < 0 then
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
   854
                begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   855
                HandleSelection(true);
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   856
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   857
                // delete more if ctrl is held
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   858
                if ctrl then
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   859
                    SkipInputChars(GetInputCharSkipClass(cursorPos), false)
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   860
                else
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   861
                    MoveCursorToNextChar();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   862
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
   863
                end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   864
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   865
            DeleteSelected();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   866
            UpdateCursorCoords();
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   867
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   868
        SDLK_ESCAPE:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   869
            begin
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   870
            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
   871
                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
   872
                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
   873
                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
   874
                end
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   875
            else CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   876
            end;
9319
492a0ad67e33 allow to send chat messages with numpad enter key too (regression?)
koda
parents: 9317
diff changeset
   877
        SDLK_RETURN, SDLK_KP_ENTER:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   878
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   879
            if Length(InputStr.s) > 0 then
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   880
                begin
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   881
                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
   882
                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
   883
                ResetCursor();
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   884
                end;
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   885
            CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   886
            end;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   887
        SDLK_UP, SDLK_DOWN:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   888
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   889
            if (Sym = SDLK_UP) and (history < localLastStr) then inc(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   890
            if (Sym = SDLK_DOWN) and (history > 0) then dec(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   891
            index:= localLastStr - history + 1;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   892
            if (index > localLastStr) then
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   893
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   894
                SetLine(InputStr, '', true);
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   895
                end
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   896
            else
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   897
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
   898
                SetLine(InputStr, LocalStrs[index], true);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   899
                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
   900
            cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   901
            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
   902
            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
   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
        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
   905
            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
   906
            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
   907
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   908
                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
   909
                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
   910
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   911
            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
   912
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   913
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   914
            UpdateCursorCoords();
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   915
            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
   916
        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
   917
            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
   918
            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
   919
            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
   920
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   921
                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
   922
                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
   923
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   924
            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
   925
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   926
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   927
            UpdateCursorCoords();
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   928
            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
   929
        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
   930
            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
   931
            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
   932
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   933
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   934
                if ctrl then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   935
                    skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   936
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   937
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   938
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   939
                    HandleSelection(selMode);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   940
                    // go to end of previous utf8-char
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   941
                    MoveCursorToPreviousChar();
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   942
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   943
                else // if we're leaving selection mode, jump to its left end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   944
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   945
                    cursorPos:= min(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   946
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   947
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   948
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   949
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   950
                    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
   951
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   952
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   953
            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
   954
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   955
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   956
            UpdateCursorCoords();
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   957
            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
   958
        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
   959
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   960
            if cursorPos < Length(InputStr.s) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   961
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   962
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   963
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   964
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   965
                    HandleSelection(selMode);
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   966
                    MoveCursorToNextChar();
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   967
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   968
                else // if we're leaving selection mode, jump to its right end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   969
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   970
                    cursorPos:= max(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   971
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   972
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   973
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   974
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   975
                    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
   976
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   977
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   978
            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
   979
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   980
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
   981
            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
   982
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   983
        SDLK_PAGEUP, SDLK_PAGEDOWN:
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   984
            begin
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   985
            // ignore me!!!
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   986
            end;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   987
        SDLK_a:
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   988
            begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   989
            // select all
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
   990
            if ctrlonly then
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   991
                begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   992
                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
   993
                cursorPos:= 0;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   994
                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
   995
                cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   996
                UpdateCursorCoords();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   997
                end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   998
            else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   999
                action:= false;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1000
            end;
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1001
        SDLK_c:
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1002
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1003
            // copy
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1004
            if ctrlonly then
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1005
                CopySelectionToClipboard()
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1006
            else
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1007
                action:= false;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1008
            end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1009
        SDLK_v:
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1010
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1011
            // paste
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1012
            if ctrlonly then
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1013
                begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1014
                DeleteSelected();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1015
                PasteFromClipboard();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1016
                end
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1017
            else
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1018
                action:= false;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1019
            end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1020
        SDLK_x:
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1021
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1022
            // cut
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1023
            if ctrlonly then
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1024
                begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1025
                CopySelectionToClipboard();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1026
                DeleteSelected();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1027
                end
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1028
            else
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1029
                action:= false;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1030
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1031
        else
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1032
            action:= false;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
  1033
        end;
9699
fab319c85a39 Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents: 9697
diff changeset
  1034
11362
ed5a6478e710 merge default
sheepluva
parents: 11360 11317
diff changeset
  1035
        // TODO: ctrl+c etc. probably won't work anymore while in text input mode
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1036
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1037
4404
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1038
procedure chChatMessage(var s: shortstring);
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1039
begin
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1040
    AddChatString(s)
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1041
end;
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1042
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1043
procedure chSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1044
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1045
    SendIPC('s' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1046
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1047
    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
  1048
        s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1049
    else
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1050
        s:= #1 + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1051
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1052
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1053
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1054
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1055
procedure chTeamSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1056
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1057
    SendIPC('b' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1058
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1059
    s:= #4 + '[Team] ' + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1060
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1061
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1062
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1063
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1064
procedure chHistory(var s: shortstring);
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1065
var i: LongInt;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1066
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1067
    s:= s; // avoid compiler hint
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1068
    showAll:= not showAll;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1069
    // immediatly recount
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1070
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1071
    if showAll or (not ChatHidden) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1072
        for i:= 0 to MaxStrIndex do
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1073
            begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1074
            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
  1075
                inc(visibleCount);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1076
            end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1077
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1078
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1079
procedure chChat(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1080
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1081
    s:= s; // avoid compiler hint
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1082
    GameState:= gsChat;
9697
198c3ed28fe8 All I want is to receive some events...
unc0rr
parents: 9676
diff changeset
  1083
    SDL_StartTextInput();
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1084
    if length(s) = 0 then
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
  1085
        SetLine(InputStr, '', true)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1086
    else
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1087
        begin
10843
5c2ef0507971 whoops, pas2c did not notice this missing ;
sheepluva
parents: 10842
diff changeset
  1088
        SetLine(InputStr, '/team ', true);
10841
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
  1089
        cursorPos:= 6;
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
  1090
        UpdateCursorCoords();
6b0a839f399e make team key play well with new cursor
sheepluva
parents: 10839
diff changeset
  1091
        end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1092
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1093
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
  1094
procedure initModule;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1095
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1096
begin
6898
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1097
    RegisterVariable('chatmsg', @chChatMessage, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1098
    RegisterVariable('say', @chSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1099
    RegisterVariable('team', @chTeamSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1100
    RegisterVariable('history', @chHistory, true );
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1101
    RegisterVariable('chat', @chChat, true );
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1102
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1103
    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
  1104
    localLastStr:= 0;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
  1105
    history:= 0;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1106
    visibleCount:= 0;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1107
    showAll:= false;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
  1108
    ChatReady:= false;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
  1109
    missedCount:= 0;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
  1110
    liveLua:= false;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1111
    ChatHidden:= false;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
  1112
    firstDraw:= true;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1113
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
  1114
    InputLinePrefix.Tex:= nil;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
  1115
    UpdateInputLinePrefix();
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
  1116
    inputStr.s:= '';
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1117
    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
  1118
    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
  1119
        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
  1120
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
  1121
    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
  1122
    ResetCursor();
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1123
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1124
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
  1125
procedure freeModule;
4901
d1e2d82d9ccc Thou shalt not leak!
sheepluva
parents: 4814
diff changeset
  1126
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1127
begin
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
  1128
    FreeAndNilTexture(InputLinePrefix.Tex);
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
  1129
    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
  1130
    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
  1131
        FreeAndNilTexture(Strs[i].Tex);
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1132
end;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1133
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
  1134
end.