hedgewars/uChat.pas
author unc0rr
Sun, 04 Jan 2015 00:29:19 +0300
changeset 10752 2a7fd2443ccd
parent 10634 35d059bd0932
child 10737 408803ca951a
permissions -rw-r--r--
Oops
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1038
diff changeset
     2
 * Hedgewars, a free turn based strategy game
9998
736015b847e3 update copyright to 2014
sheepluva
parents: 9680
diff changeset
     3
 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     4
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     8
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    13
 *
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
10108
c68cf030eded update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents: 10104
diff changeset
    16
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    17
 *)
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2622
diff changeset
    20
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    21
unit uChat;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    22
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    23
interface
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    24
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    25
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    26
procedure freeModule;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
    27
procedure ReloadLines;
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
    28
procedure CleanupInput;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    29
procedure AddChatString(s: shortstring);
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    30
procedure DrawChat;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
    31
procedure KeyPressChat(Key, Sym: Longword);
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
    32
procedure SendHogSpeech(s: shortstring);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    33
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    34
implementation
10314
6691ebaa4f3a remove unneeded import
sheepluva
parents: 10312
diff changeset
    35
uses SDLh, uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    36
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
    37
const MaxStrIndex = 27;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    38
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    39
type TChatLine = record
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    40
    Tex: PTexture;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    41
    Time: Longword;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    42
    Width: LongInt;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    43
    s: shortstring;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    44
    Color: TSDL_Color;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    45
    end;
9954
bf51bc7e2808 - Fix build via pas2c
unc0rr
parents: 9950
diff changeset
    46
    TChatCmd = (ccQuit, ccPause, ccFinish, ccShowHistory, ccFullScreen);
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    47
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
    48
var Strs: array[0 .. MaxStrIndex] of TChatLine;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    49
    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
    50
    LocalStrs: array[0 .. MaxStrIndex] of shortstring;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
    51
    missedCount: LongWord;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    52
    lastStr: LongWord;
9145
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    53
    localLastStr: LongInt;
6b51a32e48ed Fix more warnings (lol @ icegun "consts")
unc0rr
parents: 9080
diff changeset
    54
    history: LongInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    55
    visibleCount: LongWord;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    56
    InputStr: TChatLine;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
    57
    InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char
4814
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    58
    ChatReady: boolean;
e19791f08443 smaller rearrangement of (non stereo related) variables
koda
parents: 4467
diff changeset
    59
    showAll: boolean;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
    60
    liveLua: boolean;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
    61
    ChatHidden: boolean;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
    62
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    63
const
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    64
    colors: array[#0..#6] of TSDL_Color = (
9311
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    65
            (r:$FF; g:$FF; b:$FF; a:$FF), // unused, feel free to take it for anything
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    66
            (r:$FF; g:$FF; b:$FF; a:$FF), // chat message [White]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    67
            (r:$FF; g:$00; b:$FF; a:$FF), // action message [Purple]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    68
            (r:$90; g:$FF; b:$90; a:$FF), // join/leave message [Lime]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    69
            (r:$FF; g:$FF; b:$A0; a:$FF), // team message [Light Yellow]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    70
            (r:$FF; g:$00; b:$00; a:$FF), // error messages [Red]
5baf10a52f43 engine uses final (?) SDL 2 APIs, new events and types added. Touch input broke by the way, and system events should be handled differently
koda
parents: 9145
diff changeset
    71
            (r:$00; g:$FF; b:$FF; a:$FF)  // input line [Light Blue]
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    72
            );
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    73
    ChatCommandz: array [TChatCmd] of record
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    74
            ChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    75
            ProcedureCallChatCmd: string[31];
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    76
            end = (
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    77
            (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    78
            (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    79
            (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),
9569
dd1861ca4def add /history command from chat
koda
parents: 9319
diff changeset
    80
            (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'),
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    81
            (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
    82
            );
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
    83
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    84
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    85
const Padding  = 2;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    86
      ClHeight = 2 * Padding + 16; // font height
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    87
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    88
procedure RenderChatLineTex(var cl: TChatLine; var str: shortstring);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    89
var strSurface,
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    90
    resSurface: PSDL_Surface;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    91
    dstrect   : TSDL_Rect; // destination rectangle for blitting
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    92
    font      : THWFont;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    93
const
10396
77ff1db6d6e4 ok. that's weird. I wonder if I was having non-clean build issues last time I tried messing with this. that could explain why my changing offsets didn't do anything.
nemo
parents: 10392
diff changeset
    94
    shadowcolor: TSDL_Color = (r:$00; g:$00; b:$00; a:$FF);
10376
e8c933a00f97 text visibility "fix"
nemo
parents: 10375
diff changeset
    95
    //shadowcolor: TSDL_Color = (r:$00; g:$00; b:$00; a:$80);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    96
    shadowint  = $80 shl AShift;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    97
begin
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    98
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
    99
font:= CheckCJKFont(ansistring(str), fnt16);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   100
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   101
// get render size of text
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   102
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @cl.Width, nil);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   103
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   104
// calculate and save size
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   105
cl.Width := cl.Width  + 2 * Padding;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   106
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   107
// create surface to draw on
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   108
resSurface:= SDL_CreateRGBSurface(
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   109
                0, toPowerOf2(cl.Width), toPowerOf2(ClHeight),
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   110
                32, RMask, GMask, BMask, AMask);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   111
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   112
// define area we want to draw in
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   113
dstrect.x:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   114
dstrect.y:= 0;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   115
dstrect.w:= cl.Width;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   116
dstrect.h:= ClHeight;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   117
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   118
// draw background
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   119
SDL_FillRect(resSurface, @dstrect, shadowint);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   120
dstrect.x:= Padding + 1;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   121
dstrect.y:= Padding + 1;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   122
// doesn't matter if .w and .h still include padding, SDL_UpperBlit will clip
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   123
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   124
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   125
// create and blit text shadow
10396
77ff1db6d6e4 ok. that's weird. I wonder if I was having non-clean build issues last time I tried messing with this. that could explain why my changing offsets didn't do anything.
nemo
parents: 10392
diff changeset
   126
strSurface:= TTF_RenderUTF8_Solid(Fontz[font].Handle, Str2PChar(str), shadowcolor);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   127
SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   128
SDL_FreeSurface(strSurface);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   129
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   130
// non-shadow text starts at padding
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   131
dstrect.x:= Padding;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   132
dstrect.y:= Padding;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   133
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   134
// create and blit text
10370
8676ef16c594 Using blended makes smilies and CJK less hideous.
nemo
parents: 10314
diff changeset
   135
strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   136
SDL_UpperBlit(strSurface, nil, resSurface, @dstrect);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   137
SDL_FreeSurface(strSurface);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   138
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   139
cl.Tex:= Surface2Tex(resSurface, false);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   140
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   141
SDL_FreeSurface(resSurface)
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   142
end;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   143
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   144
const ClDisplayDuration = 12500;
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   145
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   146
procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   147
var color  : TSDL_Color;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   148
begin
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   149
if cl.Tex <> nil then
10634
35d059bd0932 Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents: 10588
diff changeset
   150
    FreeAndNilTexture(cl.Tex);
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   151
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   152
if isInput then
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   153
    begin
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   154
    cl.s:= str;
5392
1840da0c1f1d little code cleanup (but please test)
koda
parents: 5100
diff changeset
   155
    color:= colors[#6];
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   156
    str:= UserNick + '> ' + str + '_'
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   157
    end
2664
949c189ba568 powerpc and gameserver compilation disabled temporarily
koda
parents: 2630
diff changeset
   158
else
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   159
    begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   160
    color:= colors[str[1]];
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   161
    delete(str, 1, 1);
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   162
    cl.s:= str;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   163
    end;
2396
e13a1117152b Colorize chat messages in frontend and engine
unc0rr
parents: 2390
diff changeset
   164
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   165
cl.color:= color;
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   166
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   167
// 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
   168
RenderChatLineTex(cl, str);
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1116
diff changeset
   169
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   170
cl.Time:= RealTicks + ClDisplayDuration;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   171
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   172
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   173
// For uStore texture recreation
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   174
procedure ReloadLines;
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   175
var i, t: LongWord;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   176
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   177
    if InputStr.s <> '' then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   178
        SetLine(InputStr, InputStr.s, true);
6381
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   179
    for i:= 0 to MaxStrIndex do
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   180
        if Strs[i].s <> '' then
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   181
            begin
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   182
            t:= Strs[i].Time;
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   183
            SetLine(Strs[i], Strs[i].s, false);
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   184
            Strs[i].Time:= t
5f3412f6809e Only recreate texture for non-empty lines
nemo
parents: 6379
diff changeset
   185
            end;
6379
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   186
end;
ef4288298e57 reset chat lines too
nemo
parents: 6286
diff changeset
   187
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   188
procedure AddChatString(s: shortstring);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   189
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   190
if not ChatReady then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   191
    begin
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   192
    if MissedCount < MaxStrIndex - 1 then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   193
        MStrs[MissedCount]:= s
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   194
    else if MissedCount < MaxStrIndex then
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   195
        MStrs[MissedCount]:= #5 + '[...]';
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   196
    inc(MissedCount);
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   197
    exit
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   198
    end;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   199
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   200
lastStr:= (lastStr + 1) mod (MaxStrIndex + 1);
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   201
990
dfa6a6fe1542 Implement history for chat (27 entries), no key binding yet
unc0rr
parents: 988
diff changeset
   202
SetLine(Strs[lastStr], s, false);
945
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   203
4ead9cde4e14 - Start chat implementation: chat strings are on the screen
unc0rr
parents: 942
diff changeset
   204
inc(visibleCount)
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   205
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   206
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   207
procedure DrawChat;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   208
var i, t, left, top, cnt: LongInt;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   209
begin
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   210
ChatReady:= true; // maybe move to somewhere else?
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   211
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   212
if ChatHidden and (not showAll) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   213
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   214
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   215
// draw chat lines with some distance from screen border
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   216
left:= 4 - cScreenWidth div 2;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   217
top := 10 + visibleCount * ClHeight; // we start with input line (if any)
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   218
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   219
// draw chat input line first and under all other lines
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   220
if (GameState = gsChat) and (InputStr.Tex <> nil) then
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   221
    DrawTexture(left, top, InputStr.Tex);
1431
21ca09524f9c Draw dark background under chat text
unc0rr
parents: 1378
diff changeset
   222
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   223
if ((not ChatHidden) or showAll) and (UIDisplay <> uiNone) then
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   224
    begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   225
    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
   226
        begin
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   227
        for i:= 0 to MissedCount - 1 do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   228
            AddChatString(MStrs[i]);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   229
        MissedCount:= 0;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   230
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   231
    i:= lastStr;
10303
f726e36c3e24 tweak how chat lines are rendered
sheepluva
parents: 10127
diff changeset
   232
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   233
    cnt:= 0; // count of lines displayed
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   234
    t  := 1; // # of current line processed
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   235
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   236
    // draw lines in reverse order
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   237
    while (((t < 7) and (Strs[i].Time > RealTicks)) or ((t <= MaxStrIndex + 1) and showAll))
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   238
    and (Strs[i].Tex <> nil) do
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   239
        begin
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   240
        top:= top - ClHeight;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   241
        // draw chatline only if not offscreen
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   242
        if top > 0 then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   243
            DrawTexture(left, top, Strs[i].Tex);
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   244
10375
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   245
        if i = 0 then
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   246
            i:= MaxStrIndex
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   247
        else
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   248
            dec(i);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   249
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   250
        inc(cnt);
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   251
        inc(t)
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   252
        end;
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   253
6d6adccd0d7d do not render chat if HUD is hidden
sheepluva
parents: 10370
diff changeset
   254
    visibleCount:= cnt;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   255
    end;
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   256
end;
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   257
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   258
procedure SendHogSpeech(s: shortstring);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   259
begin
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   260
SendIPC('h' + s);
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   261
ParseCommand('/hogsay '+s, true)
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   262
end;
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   263
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   264
procedure SendConsoleCommand(s: shortstring);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   265
begin
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   266
    Delete(s, 1, 1);
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   267
    SendIPC('~' + s)
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   268
end;
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   269
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   270
procedure AcceptChatString(s: shortstring);
1035
6f5842bc481b Hopefully done taunts implementation
unc0rr
parents: 1034
diff changeset
   271
var i: TWave;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   272
    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
   273
    c, t: LongInt;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   274
    x: byte;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   275
begin
10513
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   276
if s <> LocalStrs[localLastStr] then
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   277
    begin
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   278
    // put in input history
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   279
    localLastStr:= (localLastStr + 1) mod MaxStrIndex;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   280
    LocalStrs[localLastStr]:= s;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   281
    end;
58fa783e0cfd fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents: 10396
diff changeset
   282
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
   283
t:= LocalTeam;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   284
x:= 0;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   285
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
   286
    then x:= 1
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   287
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   288
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
   289
    x:= 2
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   290
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   291
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
   292
    x:= 3;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   293
8026
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents: 7722
diff changeset
   294
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
   295
    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
   296
        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
   297
            t:= c;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   298
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   299
if x <> 0 then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   300
    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
   301
    if t = -1 then
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   302
        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   303
    else
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   304
        SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2));
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   305
    exit
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   306
    end;
4467
adedeec8f18f trying to unbreak hog speech
nemo
parents: 4465
diff changeset
   307
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   308
if (s[1] = '/') then
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2003
diff changeset
   309
    begin
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   310
    // These 3 are same as above, only are to make the hedgehog say it on next attack
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   311
    if (copy(s, 2, 4) = 'hsa ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   312
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   313
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   314
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   315
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   316
            SendHogSpeech(#4 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   317
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   318
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   319
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   320
    if (copy(s, 2, 4) = 'hta ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   321
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   322
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   323
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   324
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   325
            SendHogSpeech(#5 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   326
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   327
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   328
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   329
    if (copy(s, 2, 4) = 'hya ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   330
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   331
        if CurrentTeam^.ExtDriven then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   332
            ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   333
        else
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   334
            SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   335
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   336
        end;
2111
9be70514954c Finally fix bubbles
unc0rr
parents: 2017
diff changeset
   337
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   338
    if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   339
        begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   340
        ParseCommand(s, true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   341
        exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   342
        end;
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   343
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   344
    if (copy(s, 2, 3) = 'me ') then
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   345
        begin
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   346
        ParseCommand('/say ' + s, true);
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   347
        exit
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   348
        end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   349
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   350
    if (copy(s, 2, 10) = 'togglechat') then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   351
        begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   352
        ChatHidden:= (not ChatHidden);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   353
        if ChatHidden then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   354
           showAll:= false;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   355
        exit
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   356
        end;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   357
10304
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   358
    // debugging commands
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   359
    if (copy(s, 2, 7) = 'debugvl') then
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   360
        begin
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   361
        cViewLimitsDebug:= (not cViewLimitsDebug);
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   362
        UpdateViewLimits();
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   363
        exit
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   364
        end;
7e40820b7ed6 fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents: 10303
diff changeset
   365
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   366
    if (copy(s, 2, 3) = 'lua') then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   367
        begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   368
        AddFileLog('/lua issued');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   369
        if gameType <> gmtNet then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   370
            begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   371
            liveLua:= (not liveLua);
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   372
            if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   373
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   374
                AddFileLog('[Lua] chat input string parsing enabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   375
                AddChatString(#3 + 'Lua parsing: ON');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   376
                end
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   377
            else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   378
                begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   379
                AddFileLog('[Lua] chat input string parsing disabled');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   380
                AddChatString(#3 + 'Lua parsing: OFF');
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   381
                end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   382
            end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   383
        exit
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   384
        end;
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   385
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   386
    // hedghog animations/taunts and engine commands
9680
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   387
    if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
50a001b1964e Fix chat yet again
unc0rr
parents: 9676
diff changeset
   388
        begin
9669
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   389
        for i:= Low(TWave) to High(TWave) do
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   390
            if (s = Wavez[i].cmd) then
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   391
                begin
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   392
                ParseCommand('/taunt ' + char(i), true);
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   393
                exit
9fa0f67ff628 Small refactor
unc0rr
parents: 9666
diff changeset
   394
                end;
10588
6189bb1c903d don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents: 10514
diff changeset
   395
        end;
8152
5e329951afe5 GCI2012 - In-Game Chat Commands
koda
parents: 7722
diff changeset
   396
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
   397
    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
   398
        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
   399
            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
   400
            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
   401
            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
   402
            end;
10392
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   403
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   404
    if (gameType = gmtNet) then
5012e1f9e893 - Support for pausing multiplayer games
alfadur
parents: 10376
diff changeset
   405
        SendConsoleCommand(s)
10308
7350be35b335 whoops. an "end" moved there
sheepluva
parents: 10304
diff changeset
   406
    end
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   407
else
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   408
    begin
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   409
    if liveLua then
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   410
        LuaParseString(s)
9676
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   411
    else
ce7396d4eaf7 Fix broken chat
unc0rr
parents: 9669
diff changeset
   412
        ParseCommand('/say ' + s, true);
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   413
    end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   414
end;
622c5de38d72 Start implementing waves
unc0rr
parents: 1001
diff changeset
   415
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   416
procedure CleanupInput;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   417
begin
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   418
    FreezeEnterKey;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   419
    history:= 0;
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   420
{$IFNDEF SDL2}
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   421
    SDL_EnableKeyRepeat(0,0);
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   422
{$ENDIF}
8738
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   423
    GameState:= gsGame;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   424
    ResetKbd;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   425
end;
50291d9a4ca0 gather a few common code
koda
parents: 8737
diff changeset
   426
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   427
procedure KeyPressChat(Key, Sym: Longword);
6893
69cc0166be8d - Track array size to use for High function
unc0rr
parents: 6854
diff changeset
   428
const firstByteMark: array[0..3] of byte = (0, $C0, $E0, $F0);
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   429
var i, btw, index: integer;
8740
3eb1891f81ef use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents: 8739
diff changeset
   430
    utf8: shortstring;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   431
    action: boolean;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   432
begin
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   433
    action:= true;
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   434
    case Sym of
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   435
        SDLK_BACKSPACE:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   436
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   437
            if Length(InputStr.s) > 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   438
                begin
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   439
                InputStr.s[0]:= InputStrL[byte(InputStr.s[0])];
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   440
                SetLine(InputStr, InputStr.s, true)
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   441
                end
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   442
            end;
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   443
        SDLK_ESCAPE:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   444
            begin
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   445
            if Length(InputStr.s) > 0 then
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   446
                SetLine(InputStr, '', true)
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   447
            else CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   448
            end;
9319
492a0ad67e33 allow to send chat messages with numpad enter key too (regression?)
koda
parents: 9317
diff changeset
   449
        SDLK_RETURN, SDLK_KP_ENTER:
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   450
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   451
            if Length(InputStr.s) > 0 then
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   452
                begin
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   453
                AcceptChatString(InputStr.s);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   454
                SetLine(InputStr, '', false)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2716
diff changeset
   455
                end;
8743
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   456
            CleanupInput
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   457
            end;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   458
        SDLK_UP, SDLK_DOWN:
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   459
            begin
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   460
            if (Sym = SDLK_UP) and (history < localLastStr) then inc(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   461
            if (Sym = SDLK_DOWN) and (history > 0) then dec(history);
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   462
            index:= localLastStr - history + 1;
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   463
            if (index > localLastStr) then
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   464
                 SetLine(InputStr, '', true)
0097855532f6 useless test
nemo
parents: 8742
diff changeset
   465
            else SetLine(InputStr, LocalStrs[index], true)
8745
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   466
            end;
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   467
        SDLK_RIGHT, SDLK_LEFT, SDLK_DELETE,
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   468
        SDLK_HOME, SDLK_END,
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   469
        SDLK_PAGEUP, SDLK_PAGEDOWN:
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   470
            begin
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   471
            // ignore me!!!
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   472
            end;
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   473
        else
b3756c3f65e5 ingore moar keys
koda
parents: 8743
diff changeset
   474
            action:= false;
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   475
        end;
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   476
    if not action and (Key <> 0) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   477
        begin
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   478
        if (Key < $80) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   479
            btw:= 1
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   480
        else if (Key < $800) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   481
            btw:= 2
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   482
        else if (Key < $10000) then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   483
            btw:= 3
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   484
        else
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   485
            btw:= 4;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   486
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   487
        utf8:= '';
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   488
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   489
        for i:= btw downto 2 do
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   490
            begin
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   491
            utf8:= char((Key or $80) and $BF) + utf8;
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   492
            Key:= Key shr 6
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   493
            end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   494
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   495
        utf8:= char(Key or firstByteMark[Pred(btw)]) + utf8;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   496
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   497
        if byte(InputStr.s[0]) + btw > 240 then
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   498
            exit;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2290
diff changeset
   499
8742
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   500
        InputStrL[byte(InputStr.s[0]) + btw]:= InputStr.s[0];
b7b8bd398c1b Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents: 8741
diff changeset
   501
        SetLine(InputStr, InputStr.s + utf8, true)
8735
42892d1fb9e1 formatting
koda
parents: 8516
diff changeset
   502
        end
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   503
end;
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   504
4404
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   505
procedure chChatMessage(var s: shortstring);
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   506
begin
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   507
    AddChatString(s)
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   508
end;
6bae4e9461aa Remove some more circular dependencies
unc0rr
parents: 4402
diff changeset
   509
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   510
procedure chSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   511
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   512
    SendIPC('s' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   513
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   514
    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
   515
        s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   516
    else
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   517
        s:= #1 + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   518
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   519
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   520
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   521
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   522
procedure chTeamSay(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   523
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   524
    SendIPC('b' + s);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   525
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   526
    s:= #4 + '[Team] ' + UserNick + ': ' + s;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   527
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   528
    AddChatString(s)
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   529
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   530
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   531
procedure chHistory(var s: shortstring);
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   532
var i: LongInt;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   533
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   534
    s:= s; // avoid compiler hint
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   535
    showAll:= not showAll;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   536
    // immediatly recount
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   537
    visibleCount:= 0;
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   538
    if showAll or (not ChatHidden) then
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   539
        for i:= 0 to MaxStrIndex do
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   540
            begin
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   541
            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
   542
                inc(visibleCount);
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   543
            end;
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   544
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   545
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   546
procedure chChat(var s: shortstring);
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   547
begin
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   548
    s:= s; // avoid compiler hint
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   549
    GameState:= gsChat;
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   550
{$IFNDEF SDL2}
5099
ce1a761d3c1e enable keyrepeat while chatting so you can keep backspace pressed to delete a line (fix issue 111)
koda
parents: 4976
diff changeset
   551
    SDL_EnableKeyRepeat(200,45);
9317
a04c30940d2d use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents: 9311
diff changeset
   552
{$ENDIF}
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   553
    if length(s) = 0 then
5100
951767beffc8 you can use esc to exit chat when input is empty
koda
parents: 5099
diff changeset
   554
        SetLine(InputStr, '', true)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   555
    else
8739
bbab7e35eaf2 less cryptic text insertion
koda
parents: 8738
diff changeset
   556
        SetLine(InputStr, '/team ', true)
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   557
end;
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   558
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   559
procedure initModule;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   560
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   561
begin
6898
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   562
    RegisterVariable('chatmsg', @chChatMessage, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   563
    RegisterVariable('say', @chSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   564
    RegisterVariable('team', @chTeamSay, true);
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   565
    RegisterVariable('history', @chHistory, true );
344b0dbd9690 - Remove support for variables in command handlers
unc0rr
parents: 6893
diff changeset
   566
    RegisterVariable('chat', @chChat, true );
4402
54a78ec6aac4 Remove uChat dependency from uCommands
unc0rr
parents: 4385
diff changeset
   567
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   568
    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
   569
    localLastStr:= 0;
8737
0d56265dd60a implement up and down keys to navigate in the chat history, needs testing over network
koda
parents: 8736
diff changeset
   570
    history:= 0;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   571
    visibleCount:= 0;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   572
    showAll:= false;
3539
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   573
    ChatReady:= false;
c3d1fccbe0ed General:
smaxx
parents: 3407
diff changeset
   574
    missedCount:= 0;
10312
eda8d563f677 various tweaks
sheepluva
parents: 10308
diff changeset
   575
    liveLua:= false;
10514
a1423588a4e4 chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents: 10513
diff changeset
   576
    ChatHidden:= false;
4925
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   577
3d90fd7f738a initialize pointers properly with nil
sheepluva
parents: 4920
diff changeset
   578
    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
   579
    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
   580
        Strs[i].Tex := nil;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   581
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   582
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   583
procedure freeModule;
4901
d1e2d82d9ccc Thou shalt not leak!
sheepluva
parents: 4814
diff changeset
   584
var i: ShortInt;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   585
begin
10634
35d059bd0932 Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents: 10588
diff changeset
   586
    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
   587
    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
   588
        FreeAndNilTexture(Strs[i].Tex);
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2699
diff changeset
   589
end;
946
42c5cc87cbd1 Preparing to have gsChat gamestate
unc0rr
parents: 945
diff changeset
   590
942
b41af014d85e Stub for chat implementation
unc0rr
parents:
diff changeset
   591
end.