hedgewars/uChat.pas
author unC0Rr
Fri, 19 Jan 2024 13:07:22 +0100
branchtransitional_engine
changeset 16038 7544a7d7c819
parent 16004 2146cb7be36f
permissions -rw-r--r--
Start on adopting corrosion
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;
15983
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
    30
procedure CloseChat;
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
    31
procedure RestoreChat;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    32
procedure AddChatString(s: shortstring);
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    33
procedure DrawChat;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
    34
procedure KeyPressChat(keysym: TSDL_Keysym);
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
    35
procedure SendHogSpeech(s: shortstring);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
    36
procedure CopyToClipboard(var newContent: shortstring);
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
    37
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
    38
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    39
implementation
15304
c4fd2813b127 merge 1.0.0 beta 1 into ui-scaling branch
sheepluva
parents: 13389 15288
diff changeset
    40
uses uConsts, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils, uStore, uLocale
15288
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
    41
     {$IFDEF USE_VIDEO_RECORDING}, uVideoRec{$ENDIF};
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    42
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
    43
const MaxStrIndex = 27; // Max. possible string index
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
    44
      MaxStrPartial = 7; // Max. displayed strings in normal mode
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
    45
      MaxInputStrLen = 200;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    46
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    47
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
    48
    Tex: PTexture;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    49
    Time: Longword;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    50
    Width: LongInt;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    51
    s: shortstring;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    52
    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
    53
    end;
12410
8b971d8944d6 Remove the buggy /finish chat command
Wuzzy <almikes@aol.com>
parents: 12102
diff changeset
    54
    TChatCmd = (ccQuit, ccPause, ccShowHistory, ccFullScreen);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    55
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    56
var Strs: array[0 .. MaxStrIndex] of TChatLine;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    57
    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
    58
    LocalStrs: array[0 .. MaxStrIndex] of shortstring;
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
    59
    oldInput: shortstring;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    60
    missedCount: LongWord;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    61
    lastStr: LongWord;
9145
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    62
    localLastStr: LongInt;
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    63
    history: LongInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    64
    visibleCount: LongWord;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    65
    InputStr: TChatLine;
4814
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    66
    ChatReady: boolean;
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    67
    showAll: boolean;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
    68
    liveLua: boolean;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
    69
    ChatHidden: boolean;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
    70
    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
    71
    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
    72
    // cursor
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
    73
    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
    74
    LastKeyPressTick: LongWord;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    75
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    76
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    77
const
11835
8f7e28428f3e remove experimental in-game credits code
sheepluva
parents: 11776
diff changeset
    78
    colors: array[#0..#9] of TSDL_Color = (
13744
cb2857f55130 Change chat text color for Lua warnings to yellow
Wuzzy <Wuzzy2@mail.ru>
parents: 13674
diff changeset
    79
            (r:$FF; g:$FF; b:$00; a:$FF), // #0 warning message [Yellow]
11022
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    80
            (r:$FF; g:$FF; b:$FF; a:$FF), // #1 chat message [White]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    81
            (r:$FF; g:$00; b:$FF; a:$FF), // #2 action message [Purple]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    82
            (r:$90; g:$FF; b:$90; a:$FF), // #3 join/leave message [Lime]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    83
            (r:$FF; g:$FF; b:$A0; a:$FF), // #4 team message [Light Yellow]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    84
            (r:$FF; g:$00; b:$00; a:$FF), // #5 error messages [Red]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    85
            (r:$00; g:$FF; b:$FF; a:$FF), // #6 input line [Light Blue]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    86
            (r:$FF; g:$80; b:$80; a:$FF), // #7 team gone [Light Red]
e09a7280b856 add some chat message colors
sheepluva
parents: 11004
diff changeset
    87
            (r:$FF; g:$D0; b:$80; a:$FF), // #8 team back [Light Orange]
11835
8f7e28428f3e remove experimental in-game credits code
sheepluva
parents: 11776
diff changeset
    88
            (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
    89
            );
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    90
    ChatCommandz: array [TChatCmd] of record
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    91
            ChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    92
            ProcedureCallChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    93
            end = (
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    94
            (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    95
            (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),
9569
dd1861ca4def add /history command from chat
koda
parents: 9319
diff changeset
    96
            (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'),
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    97
            (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    98
            );
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
    99
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   100
15686
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   101
const PaddingFactor = 0.125; // relative to font size in pixels
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   102
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   103
var Padding, ClHeight: integer;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   104
    LastChatScaleValue, LastUIScaleValue: real;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   105
    SkipNextInput: boolean;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   106
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   107
procedure UpdateInputLinePrefix(); forward;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   108
procedure UpdateCursorCoords(); forward;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   109
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   110
// relevant for UTF-8 handling
15929
128ace913837 Introduce hwengine-future library, use Land allocated in it
unC0Rr
parents: 15897
diff changeset
   111
function IsFirstCharByte(c: char): boolean; 
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   112
begin
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   113
    // based on https://en.wikipedia.org/wiki/UTF-8#Description
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   114
    IsFirstCharByte:= (byte(c) and $C0) <> $80;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   115
end;
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   116
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   117
function charIsForHogSpeech(c: char): boolean;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   118
begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   119
exit((c = '"') or (c = '''') or (c = '-'));
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   120
end;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   121
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   122
procedure ResetSelection();
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   123
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   124
    selectedPos:= -1;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   125
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   126
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   127
procedure AdjustToUIScale();
15686
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   128
var fntSize, fntSizePx: integer;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   129
begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   130
    // don't do anything if no change
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   131
    if (ChatScaleValue = LastChatScaleValue) and (UIScaleValue = LastUIScaleValue) then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   132
        exit;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   133
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   134
    LastChatScaleValue:= ChatScaleValue;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   135
    LastUIScaleValue:= UIScaleValue;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   136
15686
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   137
    fntSize:= max(1, round(UIScaleValue * ChatScaleValue * cBaseChatFontHeight));
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   138
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   139
    if Fontz[fntChat].Height <> fntSize then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   140
        begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   141
        // adjust associated heights
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   142
        Fontz[fntChat].Height:= fntSize;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   143
        Fontz[CJKfntChat].Height:= fntSize;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   144
        // reload if initialized already
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   145
        if Fontz[fntChat].Handle <> nil then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   146
            LoadFont(fntChat);
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   147
        if Fontz[CJKfntChat].Handle <> nil then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   148
            LoadFont(CJKfntChat);
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   149
        end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   150
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   151
    // adjust line height etc.
15686
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   152
    fntSizePx:= round(cFontPxToPtRatio * fntSize);
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   153
    Padding:= max(1, round(PaddingFactor * fntSizePx));
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   154
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   155
    ClHeight:= 2 * Padding + fntSizePx;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   156
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   157
    // clear cache of already rendered lines
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   158
    ReloadLines();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   159
    UpdateInputLinePrefix();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   160
    UpdateCursorCoords();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   161
end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   162
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   163
procedure ChatSizeInc(pxprecise: boolean);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   164
var fntSize: integer;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   165
begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   166
if pxprecise then
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   167
    begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   168
    fntSize:= Fontz[fntChat].Height;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   169
    inc(fntSize);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   170
    ChatScaleValue:= 1.0 * fntSize / cBaseChatFontHeight;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   171
    end
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   172
else
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   173
    ChatScaleValue:= ChatScaleValue * (1.0 + cChatScaleRelDelta);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   174
if ChatScaleValue > cMaxChatScaleValue then
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   175
    ChatScaleValue:= cMaxChatScaleValue;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   176
AdjustToUIScale();
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   177
end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   178
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   179
procedure ChatSizeDec(pxprecise: boolean);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   180
var fntSize: integer;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   181
begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   182
if pxprecise then
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   183
    begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   184
    fntSize:= Fontz[fntChat].Height;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   185
    dec(fntSize);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   186
    ChatScaleValue:= 1.0 * fntSize / cBaseChatFontHeight;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   187
    end
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   188
else
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   189
    ChatScaleValue:= ChatScaleValue / (1.0 + cChatScaleRelDelta);
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   190
if ChatScaleValue < cMinChatScaleValue then
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   191
    ChatScaleValue:= cMinChatScaleValue;
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
   192
AdjustToUIScale();
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   193
end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   194
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   195
procedure chatSizeReset();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   196
begin
13389
24b531dcebe7 add chat size to misc settings. persist in settings.ini
sheepluva
parents: 13388
diff changeset
   197
ChatScaleValue:= cDefaultChatScale;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   198
AdjustToUIScale();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   199
end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   200
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   201
function GetChatFont(str: shortstring): THWFONT;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   202
begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   203
    GetChatFont:= CheckCJKFont(ansistring(str), fntChat);
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   204
end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   205
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
   206
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
   207
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
   208
    str : shortstring;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   209
    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
   210
begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   211
    AdjustToUIScale();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   212
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   213
    if cursorPos = selectedPos then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   214
        ResetSelection();
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   215
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
   216
    // 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
   217
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   218
    str:= InputStr.s;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   219
    font:= GetChatFont(str);
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
   220
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
   221
    // 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
   222
    // 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
   223
    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
   224
    // 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
   225
    TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @coff, nil);
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   226
    cursorX:= Padding + coff;
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   227
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   228
    // calculate selection width on screen
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   229
    if selectedPos >= 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   230
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   231
        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
   232
            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
   233
        // 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
   234
        str[0]:= char(selectedPos);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   235
        TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @soff, nil);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   236
        selectionDx:= soff - coff;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   237
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   238
    else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   239
        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
   240
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
   241
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   242
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
   243
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
   244
begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   245
    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
   246
    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
   247
    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
   248
end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   249
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   250
(* 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
   251
 * 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
   252
 *)
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   253
procedure RenderChatLineTex(var cl: TChatLine; var str: shortstring);
12102
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   254
var strSurface, tmpSurface,
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   255
    resSurface: PSDL_Surface;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   256
    dstrect   : TSDL_Rect; // destination rectangle for blitting
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   257
    font      : THWFont;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   258
const
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   259
    shadowint  = $80 shl AShift;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   260
begin
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   261
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   262
FreeAndNilTexture(cl.Tex);
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   263
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   264
font:= GetChatFont(str);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   265
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   266
// get render size of text
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   267
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
   268
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   269
// calculate and save size
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   270
cl.Width := cl.Width  + 2 * Padding;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   271
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   272
// create surface to draw on
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   273
resSurface:= SDL_CreateRGBSurface(
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   274
                0, toPowerOf2(cl.Width), toPowerOf2(ClHeight),
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   275
                32, RMask, GMask, BMask, AMask);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   276
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   277
// define area we want to draw in
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   278
dstrect.x:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   279
dstrect.y:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   280
dstrect.w:= cl.Width;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   281
dstrect.h:= ClHeight;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   282
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   283
// draw background
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   284
SDL_FillRect(resSurface, @dstrect, shadowint);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   285
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   286
// create and blit text
12102
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   287
tmpSurface:= nil;
10370
8676ef16c594 Using blended makes smilies and CJK less hideous.
nemo
parents: 10314
diff changeset
   288
strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
12102
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   289
// fix format
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   290
if strSurface <> nil then tmpSurface:= SDL_ConvertSurface(strSurface, resSurface^.format, 0);
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   291
SDL_FreeSurface(strSurface);
10737
408803ca951a use copyToXY instead to improve legibility
nemo
parents: 10634
diff changeset
   292
//SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
12102
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   293
if tmpSurface <> nil then copyToXY(tmpSurface, resSurface, Padding, Padding);
51596d30a724 fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents: 11835
diff changeset
   294
SDL_FreeSurface(tmpSurface);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   295
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
   296
cl.Tex:= Surface2Tex(resSurface, false);
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   297
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   298
SDL_FreeSurface(resSurface)
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   299
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   300
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   301
const ClDisplayDuration = 12500;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   302
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   303
procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   304
var color  : TSDL_Color;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   305
begin
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   306
if isInput then
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   307
    begin
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   308
    cl.s:= str;
5392
1840da0c1f1d little code cleanup (but please test)
koda
parents: 5100
diff changeset
   309
    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
   310
    str:= str + ' ';
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   311
    end
2664
949c189ba568 powerpc and gameserver compilation disabled temporarily
koda
parents: 2630
diff changeset
   312
else
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   313
    begin
10863
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   314
    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
   315
        begin
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   316
        color:= colors[str[1]];
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   317
        delete(str, 1, 1);
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   318
        end
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   319
    // fallback if invalid color
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   320
    else
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   321
        color:= colors[Low(colors)];
9d3e1123bd43 fallback to first color in colors array if there is no valid color specified
sheepluva
parents: 10853
diff changeset
   322
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   323
    cl.s:= str;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   324
    end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   325
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   326
cl.color:= color;
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   327
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   328
// 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
   329
RenderChatLineTex(cl, str);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   330
11835
8f7e28428f3e remove experimental in-game credits code
sheepluva
parents: 11776
diff changeset
   331
cl.Time:= RealTicks + ClDisplayDuration;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   332
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   333
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   334
// For uStore texture recreation
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   335
procedure ReloadLines;
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   336
var i: LongWord;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   337
begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   338
    // also reload empty input line (as chat size/scaling might have changed)
13386
72bbccf9a715 fix some accidental code corruption caused by my last commit
sheepluva
parents: 13385
diff changeset
   339
    //if InputStr.s <> '' then
72bbccf9a715 fix some accidental code corruption caused by my last commit
sheepluva
parents: 13385
diff changeset
   340
    SetLine(InputStr, InputStr.s, true);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   341
    for i:= 0 to MaxStrIndex do
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   342
        if Strs[i].s <> '' then
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   343
            begin
10985
c5348fe9077c fix chat lines losing color information on texture reload
sheepluva
parents: 10926
diff changeset
   344
            RenderChatLineTex(Strs[i], Strs[i].s);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   345
            end;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   346
end;
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   347
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   348
procedure AddChatString(s: shortstring);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   349
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   350
if not ChatReady then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   351
    begin
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   352
    if MissedCount < MaxStrIndex - 1 then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   353
        MStrs[MissedCount]:= s
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   354
    else if MissedCount < MaxStrIndex then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   355
        MStrs[MissedCount]:= #5 + '[...]';
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   356
    inc(MissedCount);
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   357
    exit
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   358
    end;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   359
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   360
lastStr:= (lastStr + 1) mod (MaxStrIndex + 1);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   361
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   362
SetLine(Strs[lastStr], s, false);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   363
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   364
inc(visibleCount)
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   365
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   366
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   367
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
   368
begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   369
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
   370
    begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   371
    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
   372
    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
   373
    end
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   374
else
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   375
    begin
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   376
    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
   377
    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
   378
    end;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   379
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   380
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
   381
end;
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   382
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   383
procedure DrawChat;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   384
var i, t, left, top, cnt: LongInt;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   385
    selRect: TSDL_Rect;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   386
    c: char;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   387
begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   388
AdjustToUIScale();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   389
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   390
ChatReady:= true; // maybe move to somewhere else?
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   391
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   392
if ChatHidden and (not showAll) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   393
    visibleCount:= 0;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   394
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   395
// draw chat lines with some distance from screen border
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   396
left:= 4 - cScreenWidth div 2;
14321
79e07510b8e3 Touch: Fix chat rendered on top of turn timer
Wuzzy <Wuzzy2@mail.ru>
parents: 13898
diff changeset
   397
{$IFDEF USE_TOUCH_INTERFACE}
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   398
i:= 55;
14321
79e07510b8e3 Touch: Fix chat rendered on top of turn timer
Wuzzy <Wuzzy2@mail.ru>
parents: 13898
diff changeset
   399
{$ELSE}
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   400
i:= 10;
14321
79e07510b8e3 Touch: Fix chat rendered on top of turn timer
Wuzzy <Wuzzy2@mail.ru>
parents: 13898
diff changeset
   401
{$ENDIF}
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   402
top := i + visibleCount * ClHeight; // we start with input line (if any)
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   403
if top > cScreenHeight - ClHeight - 60 then
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   404
    begin
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   405
    top:= cScreenHeight - ClHeight - 60;
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   406
    top:= i + top - (top mod ClHeight);
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   407
    end;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   408
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   409
// draw chat input line first and under all other lines
13077
c213645ff848 Having chat mode as game state was a mistake
unc0rr
parents: 12846
diff changeset
   410
if isInChatMode and (InputStr.Tex <> nil) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   411
    begin
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
   412
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   413
    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
   414
        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
   415
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   416
    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
   417
    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
   418
    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
   419
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   420
    if firstDraw then
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   421
        begin
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   422
        UpdateCursorCoords();
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   423
        firstDraw:= false;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   424
        end;
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
   425
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   426
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   427
        begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   428
        // draw cursor
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   429
        if ((RealTicks - LastKeyPressTick) and 512) < 256 then
15686
0b99e220568a fix chat-scaling being awkward due to font size pt/px confusion
sheepluva
parents: 15304
diff changeset
   430
            DrawLineOnScreen(left + cursorX, top + Padding, left + cursorX, top + ClHeight - Padding, max(2, round(UIScaleValue * ChatScaleValue * 2.0)), $00, $FF, $FF, $FF);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   431
        end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   432
    else // draw selection
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   433
        begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   434
        selRect.y:= top + Padding;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
   435
        selRect.h:= clHeight - 2 * Padding;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   436
        if selectionDx < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   437
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   438
            selRect.x:= left + cursorX + selectionDx;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   439
            selRect.w:= -selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   440
            end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   441
        else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   442
            begin
10839
aa0ceb47da1d make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents: 10837
diff changeset
   443
            selRect.x:= left + cursorX;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   444
            selRect.w:= selectionDx;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   445
            end;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   446
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   447
        DrawRect(selRect, $FF, $FF, $FF, $40, true);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   448
        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
   449
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
   450
    dec(left, InputLinePrefix.Width);
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   451
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   452
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   453
    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
   454
        begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   455
        c:= InputStr.s[1];
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   456
        if charIsForHogSpeech(c) then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   457
            begin
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   458
            SpeechHogNumber:= 0;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   459
            if Length(InputStr.s) > 1 then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   460
                begin
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   461
                c:= InputStr.s[2];
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   462
                if (c > '0') and (c < '9') then
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   463
                    SpeechHogNumber:= byte(c) - 48;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   464
                end;
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   465
            // default to current hedgehog (if own) or first hedgehog
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   466
            if SpeechHogNumber = 0 then
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   467
                begin
14799
bbec6b28d072 Fix bugs when entering speech bubble commands during hog placement phase
Wuzzy <Wuzzy2@mail.ru>
parents: 14399
diff changeset
   468
                if (not CurrentTeam^.ExtDriven) and (not CurrentHedgehog^.Unplaced) then
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   469
                    SpeechHogNumber:= CurrentTeam^.CurrHedgehog + 1
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   470
                else
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   471
                    SpeechHogNumber:= 1;
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   472
                end;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   473
            end;
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   474
        end
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   475
    else
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   476
        SpeechHogNumber:= -1;
10866
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   477
    end
c1f75780c56f make using hog speech a bit more comfortable
sheepluva
parents: 10863
diff changeset
   478
else
10868
acb03a9712c3 show correct default if current team is local team
sheepluva
parents: 10866
diff changeset
   479
    SpeechHogNumber:= -1;
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   480
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
   481
// draw chat lines
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   482
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
   483
    begin
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   484
    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
   485
        begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   486
        for i:= 0 to MissedCount - 1 do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   487
            AddChatString(MStrs[i]);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   488
        MissedCount:= 0;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   489
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   490
    i:= lastStr;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   491
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   492
    cnt:= 0; // count of lines displayed
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   493
    t  := 1; // # of current line processed
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   494
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   495
    // draw lines in reverse order
15706
c7fe94d56d6e Fix chat lines bleeding below screen for large font
Wuzzy <Wuzzy2@mail.ru>
parents: 15695
diff changeset
   496
    while (((t < MaxStrPartial) 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
   497
    and (Strs[i].Tex <> nil) do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   498
        begin
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   499
        top:= top - ClHeight;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   500
        // draw chatline only if not offscreen
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   501
        if top > 0 then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   502
            DrawTexture(left, top, Strs[i].Tex);
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   503
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   504
        if i = 0 then
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   505
            i:= MaxStrIndex
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   506
        else
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   507
            dec(i);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   508
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   509
        inc(cnt);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   510
        inc(t)
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   511
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   512
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   513
    visibleCount:= cnt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   514
    end;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   515
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   516
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   517
procedure SendHogSpeech(s: shortstring);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   518
begin
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   519
SendIPC('h' + s);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   520
ParseCommand('/hogsay '+s, true)
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   521
end;
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   522
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   523
procedure SendConsoleCommand(s: shortstring);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   524
begin
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   525
    Delete(s, 1, 1);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   526
    SendIPC('~' + s)
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   527
end;
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   528
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   529
procedure AcceptChatString(s: shortstring);
1035
6f5842bc481b Hopefully done taunts implementation
unc0rr
parents: 1034
diff changeset
   530
var i: TWave;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   531
    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
   532
    c, t: LongInt;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   533
    x: byte;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   534
begin
10513
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   535
if s <> LocalStrs[localLastStr] then
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   536
    begin
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   537
    // put in input history
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   538
    localLastStr:= (localLastStr + 1) mod MaxStrIndex;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   539
    LocalStrs[localLastStr]:= s;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   540
    end;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   541
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
   542
t:= LocalTeam;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   543
x:= 0;
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   544
// speech bubble
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   545
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
   546
    then x:= 1
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   547
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   548
// thinking bubble
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   549
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
   550
    x:= 2
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   551
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   552
// yelling bubble
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   553
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
   554
    x:= 3;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   555
13861
2b6702777c8c Backed out changeset 6e4e745f42bb. Devs are hating it for ... reasons
Wuzzy <Wuzzy2@mail.ru>
parents: 13860
diff changeset
   556
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
   557
    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
   558
        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
   559
            t:= c;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   560
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   561
if x <> 0 then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   562
    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
   563
    if t = -1 then
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   564
        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   565
    else
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   566
        SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2));
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   567
    exit
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   568
    end;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   569
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   570
if (s[1] = '/') then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   571
    begin
13865
184584b82c4c Catch empty chat commands in engine and frontend
Wuzzy <Wuzzy2@mail.ru>
parents: 13861
diff changeset
   572
    if (Length(s) <= 1) then
184584b82c4c Catch empty chat commands in engine and frontend
Wuzzy <Wuzzy2@mail.ru>
parents: 13861
diff changeset
   573
        begin
184584b82c4c Catch empty chat commands in engine and frontend
Wuzzy <Wuzzy2@mail.ru>
parents: 13861
diff changeset
   574
        // empty chat command
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   575
        AddChatString(#0 + shortstring(trcmd[sidCmdUnknown]));
13865
184584b82c4c Catch empty chat commands in engine and frontend
Wuzzy <Wuzzy2@mail.ru>
parents: 13861
diff changeset
   576
        exit;
184584b82c4c Catch empty chat commands in engine and frontend
Wuzzy <Wuzzy2@mail.ru>
parents: 13861
diff changeset
   577
        end;
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   578
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   579
    // Ignore message-type commands with empty argument list
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   580
    if (copy(s, 2, 2) = 'me') and (Length(s) = 3) then
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   581
        exit;
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   582
    if ((copy(s, 2, 3) = 'hsa') or (copy(s, 2, 3) = 'hta') or (copy(s, 2, 3) = 'hya')) and (Length(s) = 4) then
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   583
        exit;
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   584
    if ((copy(s, 2, 4) = 'team') or (copy(s, 2, 4) = 'clan')) and (Length(s) = 5) then
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   585
        exit;
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   586
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   587
    // Speech bubble, but on next attack
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   588
    if (copy(s, 2, 4) = 'hsa ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   589
        begin
13861
2b6702777c8c Backed out changeset 6e4e745f42bb. Devs are hating it for ... reasons
Wuzzy <Wuzzy2@mail.ru>
parents: 13860
diff changeset
   590
        if CurrentTeam^.ExtDriven then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   591
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   592
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   593
            SendHogSpeech(#4 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   594
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   595
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   596
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   597
    // Thinking bubble, but on next attack
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   598
    if (copy(s, 2, 4) = 'hta ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   599
        begin
13861
2b6702777c8c Backed out changeset 6e4e745f42bb. Devs are hating it for ... reasons
Wuzzy <Wuzzy2@mail.ru>
parents: 13860
diff changeset
   600
        if CurrentTeam^.ExtDriven then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   601
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   602
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   603
            SendHogSpeech(#5 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   604
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   605
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   606
13853
d1f7a8a11526 Ignore message-type chat commands (/hsa, /clan, etc.) w/ empty arg list
Wuzzy <Wuzzy2@mail.ru>
parents: 13852
diff changeset
   607
    // Yelling bubble, but on next attack
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   608
    if (copy(s, 2, 4) = 'hya ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   609
        begin
13861
2b6702777c8c Backed out changeset 6e4e745f42bb. Devs are hating it for ... reasons
Wuzzy <Wuzzy2@mail.ru>
parents: 13860
diff changeset
   610
        if CurrentTeam^.ExtDriven then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   611
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   612
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   613
            SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   614
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   615
        end;
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   616
14387
2ab312c47dc3 make pas2c function without haskell aborting if locale is C
nemo
parents: 14321
diff changeset
   617
    // "/clan" or "/team" ("/team" is an alias for "/clan")
13893
65fe3933b19d No-op when entering /clan command with no argument
Wuzzy <Wuzzy2@mail.ru>
parents: 13865
diff changeset
   618
    if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   619
        begin
13893
65fe3933b19d No-op when entering /clan command with no argument
Wuzzy <Wuzzy2@mail.ru>
parents: 13865
diff changeset
   620
        if (Length(s) > 6) then
65fe3933b19d No-op when entering /clan command with no argument
Wuzzy <Wuzzy2@mail.ru>
parents: 13865
diff changeset
   621
            ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   622
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   623
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   624
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   625
    if (copy(s, 2, 3) = 'me ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   626
        begin
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   627
        ParseCommand('/say ' + s, true);
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   628
        exit
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   629
        end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   630
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   631
    if (copy(s, 2, 10) = 'togglechat') then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   632
        begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   633
        ChatHidden:= (not ChatHidden);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   634
        if ChatHidden then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   635
           showAll:= false;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   636
        exit
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   637
        end;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   638
15897
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   639
    if (copy(s, 2, 3) = 'ff ') then
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   640
    begin
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   641
       ParseCommand(s, true);
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   642
       exit
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   643
    end;
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   644
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   645
    if (copy(s, 2, 3) = 'sff') then
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   646
    begin
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   647
       ParseCommand(s, true);
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   648
       exit
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   649
    end;
d7b53d08ad9c Add FastForward/StopFastForward (/ff hh:mm:ss, /sff) chat commands to fast forward to a specific timestamp in a demo
S.D.
parents: 15706
diff changeset
   650
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   651
    // debugging commands
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   652
    if (copy(s, 2, 7) = 'debugvl') then
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   653
        // This command intentionally not documented in /help
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   654
        begin
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   655
        cViewLimitsDebug:= (not cViewLimitsDebug);
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   656
        UpdateViewLimits();
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   657
        exit
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   658
        end;
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   659
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   660
    if (copy(s, 2, 3) = 'lua') then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   661
        begin
15288
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   662
        LuaCmdUsed:= true;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   663
        AddFileLog('/lua issued');
15288
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   664
{$IFDEF USE_VIDEO_RECORDING}
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   665
        if flagPrerecording then
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   666
            begin
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   667
            AddFileLog('Force-stopping prerecording! Lua commands can not be recorded');
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   668
            StopPreRecording;
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   669
            end;
22f2fd8a3d2c VideoRec: Stop prerecording when /lua activates
Wuzzy <Wuzzy2@mail.ru>
parents: 14799
diff changeset
   670
{$ENDIF}
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   671
        if gameType <> gmtNet then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   672
            begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   673
            liveLua:= (not liveLua);
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   674
            if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   675
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   676
                AddFileLog('[Lua] chat input string parsing enabled');
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   677
                AddChatString(#3 + shortstring(trmsg[sidLuaParsingOn]));
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   678
                end
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   679
            else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   680
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   681
                AddFileLog('[Lua] chat input string parsing disabled');
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   682
                AddChatString(#3 + shortstring(trmsg[sidLuaParsingOff]));
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   683
                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
   684
            UpdateInputLinePrefix();
13464
32032120435c Tweak chat command replies for /lua command
Wuzzy <Wuzzy2@mail.ru>
parents: 13463
diff changeset
   685
            end
32032120435c Tweak chat command replies for /lua command
Wuzzy <Wuzzy2@mail.ru>
parents: 13463
diff changeset
   686
        else
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   687
            AddChatString(#5 + shortstring(trmsg[sidLuaParsingDenied]));
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   688
        exit
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   689
        end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   690
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   691
    // Help commands
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   692
    if (copy(s, 2, 11) = 'help taunts') then
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   693
        begin
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   694
        AddChatString(#3 + shortstring(trcmd[sidCmdHeaderTaunts]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   695
        AddChatString(#3 + shortstring(trcmd[sidCmdSpeech]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   696
        AddChatString(#3 + shortstring(trcmd[sidCmdThink]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   697
        AddChatString(#3 + shortstring(trcmd[sidCmdYell]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   698
        AddChatString(#3 + shortstring(trcmd[sidCmdSpeechNumberHint]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   699
        AddChatString(#3 + shortstring(trcmd[sidCmdHsa]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   700
        AddChatString(#3 + shortstring(trcmd[sidCmdHta]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   701
        AddChatString(#3 + shortstring(trcmd[sidCmdHya]));
15613
130b5052335c Add missing /sad command help
Wuzzy <Wuzzy2@mail.ru>
parents: 15612
diff changeset
   702
        AddChatString(#3 + shortstring(trcmd[sidCmdHappy]));
130b5052335c Add missing /sad command help
Wuzzy <Wuzzy2@mail.ru>
parents: 15612
diff changeset
   703
        AddChatString(#3 + shortstring(trcmd[sidCmdWave]));
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   704
        AddChatString(#3 + shortstring(trcmd[sidCmdHurrah]));
15613
130b5052335c Add missing /sad command help
Wuzzy <Wuzzy2@mail.ru>
parents: 15612
diff changeset
   705
        AddChatString(#3 + shortstring(trcmd[sidCmdShrug]));
130b5052335c Add missing /sad command help
Wuzzy <Wuzzy2@mail.ru>
parents: 15612
diff changeset
   706
        AddChatString(#3 + shortstring(trcmd[sidCmdSad]));
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   707
        AddChatString(#3 + shortstring(trcmd[sidCmdIlovelotsoflemonade]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   708
        AddChatString(#3 + shortstring(trcmd[sidCmdJuggle]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   709
        AddChatString(#3 + shortstring(trcmd[sidCmdRollup]));
15610
96a02e385d54 Add taunt chat command: /bubble (hog holds breath)
Wuzzy <Wuzzy2@mail.ru>
parents: 15288
diff changeset
   710
        AddChatString(#3 + shortstring(trcmd[sidCmdBubble]));
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   711
        exit
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   712
        end;
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   713
14399
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   714
    if (copy(s, 2, 9) = 'help room') then
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   715
        begin
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   716
        if (gameType = gmtNet) then
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   717
            SendConsoleCommand('/help')
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   718
        else
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   719
            AddChatString(#0 + shortstring(trcmd[sidCmdHelpRoomFail]));
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   720
        exit;
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   721
        end;
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   722
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   723
    if (copy(s, 2, 4) = 'help') then
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   724
        begin
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   725
        AddChatString(#3 + shortstring(trcmd[sidCmdHeaderBasic]));
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   726
        if gameType = gmtNet then
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   727
            AddChatString(#3 + shortstring(trcmd[sidCmdPauseNet]))
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   728
        else
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   729
            AddChatString(#3 + shortstring(trcmd[sidCmdPause]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   730
        AddChatString(#3 + shortstring(trcmd[sidCmdFullscreen]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   731
        AddChatString(#3 + shortstring(trcmd[sidCmdQuit]));
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   732
        if gameType <> gmtNet then
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   733
            AddChatString(#3 + shortstring(trcmd[sidLua]));
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   734
        // history and help commands needs to be close to the end because they are always visible
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   735
        // with a short chat history length.
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   736
        AddChatString(#3 + shortstring(trcmd[sidCmdTeam]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   737
        AddChatString(#3 + shortstring(trcmd[sidCmdMe]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   738
        AddChatString(#3 + shortstring(trcmd[sidCmdTogglechat]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   739
        AddChatString(#3 + shortstring(trcmd[sidCmdHistory]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   740
        AddChatString(#3 + shortstring(trcmd[sidCmdHelp]));
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   741
        AddChatString(#3 + shortstring(trcmd[sidCmdHelpTaunts]));
14399
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   742
        if gameType = gmtNet then
4edc73fc722c Add chat command "/help room" to show room help in game
Wuzzy <Wuzzy2@mail.ru>
parents: 14387
diff changeset
   743
            AddChatString(#3 + shortstring(trcmd[sidCmdHelpRoom]));
13463
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   744
        exit
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   745
        end;
b587cdb03bac Add /help chat command for engine
Wuzzy <Wuzzy2@mail.ru>
parents: 13077
diff changeset
   746
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   747
    // hedghog animations/taunts and engine commands
15614
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   748
    for i:= Low(TWave) to High(TWave) do
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   749
        if (s = Wavez[i].cmd) then
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   750
            begin
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   751
            // only works for local non-bot teams
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   752
            if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   753
                ParseCommand('/taunt ' + char(i), true);
15614
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   754
            exit;
46b7b2c821d0 Fix taunt commands triggering 'unknown chat command' warning if current hog is external or bot
Wuzzy <Wuzzy2@mail.ru>
parents: 15613
diff changeset
   755
            end;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   756
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
   757
    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
   758
        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
   759
            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
   760
            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
   761
            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
   762
            end;
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   763
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   764
    if (gameType = gmtNet) then
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   765
        SendConsoleCommand(s)
13847
93aa09004d36 Display error when entering invalid chat command in offline game
Wuzzy <Wuzzy2@mail.ru>
parents: 13744
diff changeset
   766
    else
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
   767
        AddChatString(#0 + shortstring(trcmd[sidCmdUnknown]));
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   768
    end
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   769
else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   770
    begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   771
    if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   772
        LuaParseString(s)
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   773
    else
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   774
        ParseCommand('/say ' + s, true);
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   775
    end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   776
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   777
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   778
procedure CleanupInput;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   779
begin
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   780
    FreezeEnterKey;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   781
    history:= 0;
9697
198c3ed28fe8 All I want is to receive some events...
unc0rr
parents: 9676
diff changeset
   782
    SDL_StopTextInput();
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
   783
    //SDL_EnableKeyRepeat(0,0);
13077
c213645ff848 Having chat mode as game state was a mistake
unc0rr
parents: 12846
diff changeset
   784
    isInChatMode:= false;
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   785
    ResetKbd;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   786
end;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   787
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   788
procedure OpenChat(s: shortstring);
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   789
var i: Integer;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   790
begin
15985
a4630009e733 Close Esc menu when chat opens
Wuzzy <Wuzzy@disroot.org>
parents: 15984
diff changeset
   791
    if GameState = gsConfirm then
a4630009e733 Close Esc menu when chat opens
Wuzzy <Wuzzy@disroot.org>
parents: 15984
diff changeset
   792
        ParseCommand('quit', true);
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   793
    isInChatMode:= true;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   794
    SDL_StopTextInput();
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   795
    SDL_StartTextInput();
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   796
    //Make REALLY sure unexpected events are flushed (1 time is insufficient as of SDL 2.0.7)
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   797
    for i := 1 to 2 do
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   798
    begin
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   799
        SDL_PumpEvents();
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   800
        SDL_FlushEvent(SDL_TEXTINPUT);
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   801
    end;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   802
    if length(s) = 0 then
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   803
        SetLine(InputStr, '', true)
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   804
    else
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   805
        begin
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   806
        SetLine(InputStr, s, true);
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   807
        cursorPos:= length(s);
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   808
        UpdateCursorCoords();
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   809
        end;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   810
end;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   811
15983
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   812
procedure CloseChat;
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   813
begin
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   814
    oldInput:= InputStr.s;
15983
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   815
    SetLine(InputStr, '', true);
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   816
    ResetCursor();
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   817
    CleanupInput();
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   818
end;
416bca0a172c Properly close chat after quit command
Wuzzy <Wuzzy@disroot.org>
parents: 15897
diff changeset
   819
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   820
procedure RestoreChat;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   821
begin
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   822
    if length(oldInput) > 0 then
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   823
        OpenChat(oldInput);
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   824
    oldInput:= '';
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   825
end;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
   826
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   827
procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   828
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
   829
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
   830
    // 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
   831
    if count = 0 then
4121
22b1acc0e461 fix issue 2 - taunts during AI turns
koda
parents: 3969
diff changeset
   832
        exit;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   833
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
   834
    // 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
   835
    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
   836
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
   837
    // 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
   838
    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
   839
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
   840
    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
   841
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
   842
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   843
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
   844
begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   845
    if cursorPos > 0 then
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   846
        repeat
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   847
            dec(cursorPos);
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   848
        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
   849
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
   850
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   851
procedure MoveCursorToNextChar();
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   852
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
   853
begin
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   854
    len:= Length(InputStr.s);
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   855
    if cursorPos < len then
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   856
        repeat
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   857
            inc(cursorPos);
10926
43612076e989 chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents: 10921
diff changeset
   858
        until ((cursorPos = len) or IsFirstCharByte(InputStr.s[cursorPos + 1]));
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   859
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   860
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   861
procedure DeleteLastUTF8CharFromStr(var s: shortstring);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   862
var l: byte;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   863
begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   864
    l:= Length(s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   865
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   866
    while (l > 1) and (not IsFirstCharByte(s[l])) do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   867
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   868
        dec(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   869
        end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   870
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   871
    if l > 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   872
        dec(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   873
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   874
    s[0]:= char(l);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   875
end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   876
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   877
procedure DeleteSelected();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   878
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   879
    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
   880
        begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   881
        DelBytesFromInputStrBack(max(cursorPos, selectedPos), abs(selectedPos-cursorPos));
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   882
        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
   883
        end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   884
    ResetSelection();
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   885
    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
   886
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
   887
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   888
procedure HandleSelection(enabled: boolean);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   889
begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   890
if enabled then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   891
    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   892
    if selectedPos < 0 then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   893
        selectedPos:= cursorPos;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   894
    end
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   895
else
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   896
    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   897
end;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
   898
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   899
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
   900
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   901
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
   902
var  c: char;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   903
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   904
    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
   905
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   906
    // 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
   907
    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
   908
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   909
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   910
    // 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
   911
    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
   912
        exit(wspace);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   913
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   914
    // 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
   915
    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
   916
        exit(special);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   917
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   918
    // digits
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   919
    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
   920
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   921
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   922
    // 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
   923
    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
   924
        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
   925
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   926
    // letters
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   927
    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
   928
        exit(numalpha);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   929
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   930
    // 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
   931
    exit(special);
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   932
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   933
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   934
// skip from word to word, similar to Qt
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
   935
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
   936
begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   937
if backwards then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   938
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   939
    // 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
   940
    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
   941
        begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   942
        skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   943
        if skip = wspace then
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   944
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   945
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   946
    // 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
   947
    while (cursorPos > 0) and (GetInputCharSkipClass(cursorPos) = skip) do
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   948
        MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   949
    end
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   950
else
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   951
    begin
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   952
    // 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
   953
    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
   954
        begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   955
        MoveCursorToNextChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   956
        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
   957
            begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   958
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   959
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   960
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   961
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   962
    // 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
   963
    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
   964
        begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   965
        MoveCursorToNextChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   966
        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
   967
            begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
   968
            MoveCursorToPreviousChar();
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   969
            break;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   970
            end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   971
        end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   972
    end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   973
end;
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
   974
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   975
procedure CopyToClipboard(var newContent: shortstring);
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   976
begin
11364
b0df3f2fcafc use SDL2 to copy to clipboard
sheepluva
parents: 11363
diff changeset
   977
    // SDL2 clipboard
b0df3f2fcafc use SDL2 to copy to clipboard
sheepluva
parents: 11363
diff changeset
   978
    SDL_SetClipboardText(Str2PChar(newContent));
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   979
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   980
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   981
procedure CopySelectionToClipboard();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   982
var selection: shortstring;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   983
begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   984
    if selectedPos >= 0 then
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   985
        begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   986
        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
   987
        CopyToClipboard(selection);
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   988
        end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   989
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
   990
10853
287634baf7ba and ofc fix pas2c build
sheepluva
parents: 10852
diff changeset
   991
procedure InsertIntoInputStr(s: shortstring);
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   992
var limit: integer;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   993
begin
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   994
    // we check limit for trailing stuff before insertion limit for a reason
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   995
    // (possible remaining space after too long UTF8-insertion has been shortened)
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   996
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   997
    // length limit for stuff to that will trail the insertion
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   998
    limit:= max(cursorPos, MaxInputStrLen-Length(s));
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
   999
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1000
    while Length(InputStr.s) > limit do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1001
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1002
        DeleteLastUTF8CharFromStr(InputStr.s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1003
        end;
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1004
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1005
    // length limit for stuff to insert
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1006
    limit:= max(0, MaxInputStrLen-cursorPos);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1007
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1008
    if limit = 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1009
        s:= ''
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1010
    else while Length(s) > limit do
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1011
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1012
        DeleteLastUTF8CharFromStr(s);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1013
        end;
10851
f25dad9c3136 chat/copypaste: some adjustments and sanity checks
sheepluva
parents: 10850
diff changeset
  1014
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1015
    if Length(s) > 0 then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1016
        begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1017
        // insert string truncated to safe length
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1018
        Insert(s, InputStr.s, cursorPos + 1);
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1019
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1020
        if Length(InputStr.s) > MaxInputStrLen then
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1021
            InputStr.s[0]:= char(MaxInputStrLen);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1022
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1023
        SetLine(InputStr, InputStr.s, true);
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1024
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1025
        // move cursor to end of inserted string
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1026
        inc(cursorPos, Length(s));
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1027
        UpdateCursorCoords();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1028
        end;
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1029
end;
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1030
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1031
procedure PasteFromClipboard();
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1032
var clip: PChar;
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1033
begin
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1034
    // use SDL2 clipboard functions
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1035
    if SDL_HasClipboardText() then
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
  1036
        begin
11363
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1037
        clip:= SDL_GetClipboardText();
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1038
        // returns NULL if not enough memory for a copy of clipboard content 
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1039
        if clip <> nil then
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1040
            begin
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1041
            InsertIntoInputStr(shortstring(clip));
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1042
            SDL_free(Pointer(clip));
9006e158a81f use SDL2 to paste clipboard contents
sheepluva
parents: 11362
diff changeset
  1043
            end;
10850
c76ea22ea249 copy to/paste from system clipboard (via frontend)
sheepluva
parents: 10849
diff changeset
  1044
        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
  1045
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
  1046
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1047
procedure KeyPressChat(keysym: TSDL_Keysym);
11372
208bc571f949 clean up uChat
sheepluva
parents: 11365
diff changeset
  1048
const nonStateMask = (not (KMOD_NUM or KMOD_CAPS));
208bc571f949 clean up uChat
sheepluva
parents: 11365
diff changeset
  1049
var i, index: integer;
208bc571f949 clean up uChat
sheepluva
parents: 11365
diff changeset
  1050
    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
  1051
    skip: TCharSkip;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1052
    Scancode: TSDL_Scancode;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1053
    Modifier: Word;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1054
begin
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1055
    Scancode:= keysym.scancode;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1056
    Modifier:= keysym.modifier;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1057
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
  1058
    LastKeyPressTick:= RealTicks;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1059
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1060
    selMode:= (modifier and (KMOD_LSHIFT or KMOD_RSHIFT)) <> 0;
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1061
    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
  1062
    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
  1063
    skip:= none;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1064
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1065
    case Scancode of
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1066
        SDL_SCANCODE_BACKSPACE:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1067
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1068
            if selectedPos < 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
  1069
                begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1070
                HandleSelection(true);
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
  1071
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
  1072
                // delete more if ctrl is held
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1073
                if ctrl then
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1074
                    SkipInputChars(GetInputCharSkipClass(cursorPos), true)
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1075
                else
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1076
                    MoveCursorToPreviousChar();
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1077
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
  1078
                end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1079
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1080
            DeleteSelected();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1081
            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
  1082
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1083
        SDL_SCANCODE_DELETE:
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
  1084
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1085
            if selectedPos < 0 then
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
  1086
                begin
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1087
                HandleSelection(true);
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
  1088
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1089
                // delete more if ctrl is held
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1090
                if ctrl then
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1091
                    SkipInputChars(GetInputCharSkipClass(cursorPos), false)
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1092
                else
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1093
                    MoveCursorToNextChar();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1094
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
  1095
                end;
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1096
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1097
            DeleteSelected();
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1098
            UpdateCursorCoords();
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1099
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1100
        SDL_SCANCODE_ESCAPE:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1101
            begin
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1102
            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
  1103
                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
  1104
                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
  1105
                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
  1106
                end
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
  1107
            else
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
  1108
                CleanupInput;
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
  1109
            oldInput:= '';
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1110
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1111
        SDL_SCANCODE_RETURN, SDL_SCANCODE_KP_ENTER:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1112
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1113
            if Length(InputStr.s) > 0 then
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
  1114
                begin
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1115
                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
  1116
                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
  1117
                ResetCursor();
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
  1118
                end;
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1119
            CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1120
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1121
        SDL_SCANCODE_UP, SDL_SCANCODE_DOWN:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1122
            begin
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1123
            if (Scancode = SDL_SCANCODE_UP) and (history < localLastStr) then inc(history);
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1124
            if (Scancode = SDL_SCANCODE_DOWN) and (history > 0) then dec(history);
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1125
            index:= localLastStr - history + 1;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
  1126
            if (index > localLastStr) then
10835
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1127
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1128
                SetLine(InputStr, '', true);
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1129
                end
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1130
            else
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1131
                begin
8ac09cd322b7 fix chat input history not restoring utf8-related info
sheepluva
parents: 10834
diff changeset
  1132
                SetLine(InputStr, LocalStrs[index], true);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
  1133
                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
  1134
            cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1135
            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
  1136
            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
  1137
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1138
        SDL_SCANCODE_HOME:
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
  1139
            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
  1140
            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
  1141
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1142
                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
  1143
                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
  1144
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1145
            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
  1146
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1147
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1148
            UpdateCursorCoords();
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1149
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1150
        SDL_SCANCODE_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
  1151
            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
  1152
            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
  1153
            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
  1154
                begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1155
                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
  1156
                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
  1157
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1158
            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
  1159
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1160
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1161
            UpdateCursorCoords();
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1162
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1163
        SDL_SCANCODE_LEFT:
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
  1164
            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
  1165
            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
  1166
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1167
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1168
                if ctrl then
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1169
                    skip:= GetInputCharSkipClass(cursorPos);
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1170
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1171
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1172
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1173
                    HandleSelection(selMode);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1174
                    // go to end of previous utf8-char
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1175
                    MoveCursorToPreviousChar();
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1176
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1177
                else // if we're leaving selection mode, jump to its left end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1178
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1179
                    cursorPos:= min(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1180
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1181
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1182
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1183
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
  1184
                    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
  1185
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1186
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1187
            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
  1188
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1189
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1190
            UpdateCursorCoords();
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
  1191
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1192
        SDL_SCANCODE_RIGHT:
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
  1193
            begin
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1194
            if cursorPos < Length(InputStr.s) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1195
                begin
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1196
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1197
                if selMode or (selectedPos < 0) then
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1198
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1199
                    HandleSelection(selMode);
10920
11a28d22985f different implementation for utf-8 char detection/handling
sheepluva
parents: 10919
diff changeset
  1200
                    MoveCursorToNextChar();
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1201
                    end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1202
                else // if we're leaving selection mode, jump to its right end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1203
                    begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1204
                    cursorPos:= max(cursorPos, selectedPos);
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1205
                    ResetSelection();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1206
                    end;
10844
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1207
953d85b7d529 holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents: 10843
diff changeset
  1208
                if ctrl then
10845
1dbd50690951 quick word deletion while holding ctrl (qt style)
sheepluva
parents: 10844
diff changeset
  1209
                    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
  1210
10846
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1211
                end
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1212
            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
  1213
                ResetSelection();
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1214
c76fd416eff6 attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents: 10845
diff changeset
  1215
            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
  1216
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1217
        SDL_SCANCODE_PAGEUP, SDL_SCANCODE_PAGEDOWN:
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1218
            begin
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1219
            // ignore me!!!
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
  1220
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1221
        // TODO: figure out how to determine those keys better
15691
783959a6810b Chat: Use Ctrl-A for 'select all' again (instead of Ctrl-B)
Wuzzy <Wuzzy2@mail.ru>
parents: 15687
diff changeset
  1222
        SDL_SCANCODE_a:
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1223
            begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1224
            // 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
  1225
            if ctrlonly then
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1226
                begin
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1227
                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
  1228
                cursorPos:= 0;
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1229
                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
  1230
                cursorPos:= Length(InputStr.s);
10836
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1231
                UpdateCursorCoords();
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1232
                end
0b415bc2e0eb selections
sheepluva
parents: 10835
diff changeset
  1233
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1234
        SDL_SCANCODE_c:
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1235
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1236
            // copy
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1237
            if ctrlonly then
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1238
                CopySelectionToClipboard()
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1239
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1240
        SDL_SCANCODE_v:
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1241
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1242
            // paste
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1243
            if ctrlonly then
10921
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1244
                begin
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1245
                DeleteSelected();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1246
                PasteFromClipboard();
05e6f3b02612 chat: further tweaks and cleanups
sheepluva
parents: 10920
diff changeset
  1247
                end
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1248
            end;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1249
        SDL_SCANCODE_x:
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1250
            begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1251
            // cut
11004
bd62cdbea391 chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents: 10985
diff changeset
  1252
            if ctrlonly then
10849
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1253
                begin
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1254
                CopySelectionToClipboard();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1255
                DeleteSelected();
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1256
                end
a772d342066a copy&paste (wip), currently using only a local clipboard
sheepluva
parents: 10846
diff changeset
  1257
            end;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1258
            // make chat bigger
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1259
        SDL_SCANCODE_KP_PLUS, SDL_SCANCODE_EQUALS:
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1260
            begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1261
            if ctrl then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1262
                begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
  1263
                ChatSizeInc(selMode);
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1264
                SkipNextInput:= true;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1265
                end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1266
            end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1267
            // make chat smaller
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1268
        SDL_SCANCODE_KP_MINUS, SDL_SCANCODE_MINUS:
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1269
            begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1270
            if ctrl then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1271
                begin
13388
32a1696ca93a WIP: make chat resizing faster
sheepluva
parents: 13387
diff changeset
  1272
                ChatSizeDec(selMode);
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1273
                SkipNextInput:= true;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1274
                end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1275
            end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1276
            // revert chat size to default
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1277
        SDL_SCANCODE_KP_0, SDL_SCANCODE_0:
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1278
            begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1279
            if ctrl then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1280
                begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1281
                ChatSizeReset();
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1282
                SkipNextInput:= true;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1283
                end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1284
            end;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
  1285
        end;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1286
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1287
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1288
procedure TextInput(var event: TSDL_TextInputEvent);
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1289
var s: shortstring;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1290
    l: byte;
11697
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1291
    isl: integer;
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1292
begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1293
    if SkipNextInput then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1294
        begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1295
        SkipNextInput:= false;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1296
        exit;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1297
        end;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1298
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1299
    DeleteSelected();
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1300
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1301
    s:= '';
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1302
    l:= 0;
11697
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1303
    // fetch all bytes of character/input
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1304
    while event.text[l] <> #0 do
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1305
        begin
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1306
        if Length(s) < 255 then
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1307
            begin
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1308
            s[l + 1]:= event.text[l];
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1309
            inc(l)
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1310
            end
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1311
        end;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1312
    if l > 0 then
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1313
        begin
11697
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1314
        isl:= Length(InputStr.s);
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1315
        // check if user is typing a redundant closing hog-speech quotation mark
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1316
        if (l = 1) and (isl >= 2) and (cursorPos = isl - 1) and charIsForHogSpeech(s[1])
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1317
          and (s[1] = InputStr.s[1]) and (s[1] = InputStr.s[isl]) then
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1318
            begin
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1319
            MoveCursorToNextChar();
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1320
            UpdateCursorCoords();
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1321
            end
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1322
        else
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1323
            begin
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1324
            // don't add input that doesn't fit
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1325
            if isl + l > MaxInputStrLen then exit;
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1326
            s[0]:= char(l);
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1327
            InsertIntoInputStr(s);
11696
fa4bc078e509 restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents: 11476
diff changeset
  1328
11697
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1329
            // add closing hog speech quotation marks automagically
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1330
            if (l = 1) and (Length(InputStr.s) = 1) and charIsForHogSpeech(s[1]) then
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1331
                begin
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1332
                InsertIntoInputStr(s);
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1333
                MoveCursorToPreviousChar();
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1334
                UpdateCursorCoords();
446ce60700dd some more dark magic regarding hog speech input
sheepluva
parents: 11696
diff changeset
  1335
                end;
11696
fa4bc078e509 restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents: 11476
diff changeset
  1336
            end;
fa4bc078e509 restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents: 11476
diff changeset
  1337
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1338
        end
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1339
end;
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1340
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1341
4404
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1342
procedure chChatMessage(var s: shortstring);
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1343
begin
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1344
    AddChatString(s)
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1345
end;
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
  1346
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1347
procedure chSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1348
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1349
    SendIPC('s' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1350
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1351
    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
  1352
        s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1353
    else
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
  1354
        s:= #1 + Format(shortstring(trmsg[sidChat]), UserNick, s);
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1355
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1356
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1357
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1358
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1359
procedure chTeamSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1360
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1361
    SendIPC('b' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1362
13898
8c702a4839ec bunch more of those shortstring/ansistrings
nemo
parents: 13893
diff changeset
  1363
    s:= #4 + Format(shortstring(trmsg[sidChatTeam]), UserNick, s);
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1364
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1365
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1366
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1367
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1368
procedure chHistory(var s: shortstring);
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1369
var i: LongInt;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1370
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1371
    s:= s; // avoid compiler hint
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1372
    showAll:= not showAll;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1373
    // immediatly recount
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1374
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1375
    if showAll or (not ChatHidden) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1376
        for i:= 0 to MaxStrIndex do
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1377
            begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1378
            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
  1379
                inc(visibleCount);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1380
            end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1381
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1382
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1383
procedure chChat(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1384
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1385
    s:= s; // avoid compiler hint
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1386
    if length(s) = 0 then
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
  1387
        OpenChat('')
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1388
    else
15984
6a985a680c44 Don't destroy chat when window loses focus (bug 623)
Wuzzy <Wuzzy@disroot.org>
parents: 15983
diff changeset
  1389
        OpenChat('/clan ');
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1390
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1391
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
  1392
procedure initModule;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1393
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1394
begin
6898
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1395
    RegisterVariable('chatmsg', @chChatMessage, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1396
    RegisterVariable('say', @chSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1397
    RegisterVariable('team', @chTeamSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1398
    RegisterVariable('history', @chHistory, true );
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
  1399
    RegisterVariable('chat', @chChat, true );
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
  1400
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1401
    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
  1402
    localLastStr:= 0;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
  1403
    history:= 0;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1404
    visibleCount:= 0;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1405
    showAll:= false;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
  1406
    ChatReady:= false;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
  1407
    missedCount:= 0;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
  1408
    liveLua:= false;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
  1409
    ChatHidden:= false;
10842
a039464cbb4a since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents: 10841
diff changeset
  1410
    firstDraw:= true;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1411
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1412
    LastChatScaleValue:= 0;
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1413
    LastUIScaleValue:= 0;
13387
706b34d0ce60 whoops, I initialized my new var incorrectly
sheepluva
parents: 13386
diff changeset
  1414
    SkipNextInput:= false;
13385
ec1491bb5acc WIP: allow changing chat size
sheepluva
parents: 13077
diff changeset
  1415
10852
9e5763cb805e render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents: 10851
diff changeset
  1416
    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
  1417
    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
  1418
    inputStr.s:= '';
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
  1419
    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
  1420
    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
  1421
        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
  1422
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
  1423
    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
  1424
    ResetCursor();
11365
b8b208501475 reenable cursor movement etc.
sheepluva
parents: 11364
diff changeset
  1425
    SDL_StopTextInput();
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1426
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1427
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
  1428
procedure freeModule;
4901
d1e2d82d9ccc Thou shalt not leak!
sheepluva
parents: 4814
diff changeset
  1429
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1430
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
  1431
    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
  1432
    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
  1433
    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
  1434
        FreeAndNilTexture(Strs[i].Tex);
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
  1435
end;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
  1436
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
  1437
end.