src/game/g_console.pas

   1 (* Copyright (C)  Doom 2D: Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  *)
  16 {$INCLUDE ../shared/a_modes.inc}
  17 unit g_console;
  18
  19 interface
  20
  21 uses
  22   utils; // for SSArray
  23
  24 procedure g_Console_Init ();
  25 procedure g_Console_Update ();
  26 procedure g_Console_Draw ();
  27 procedure g_Console_Switch ();
  28 procedure g_Console_Char (C: AnsiChar);
  29 procedure g_Console_Control (K: Word);
  30 procedure g_Console_Process (L: AnsiString; quiet: Boolean=false);
  31 procedure g_Console_Add (L: AnsiString; show: Boolean=false);
  32 procedure g_Console_Clear ();
  33 function  g_Console_CommandBlacklisted (C: AnsiString): Boolean;
  34
  35 procedure conwriteln (const s: AnsiString; show: Boolean=false);
  36 procedure conwritefln (const s: AnsiString; args: array of const; show: Boolean=false);
  37
  38 // <0: no arg; 0/1: true/false
  39 function conGetBoolArg (p: SSArray; idx: Integer): Integer;
  40
  41 procedure g_Console_Chat_Switch (team: Boolean=false);
  42
  43 procedure conRegVar (const conname: AnsiString; pvar: PBoolean; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
  44 procedure conRegVar (const conname: AnsiString; pvar: PSingle; amin, amax: Single; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
  45 procedure conRegVar (const conname: AnsiString; pvar: PInteger; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
  46
  47 // poor man's floating literal parser; i'm sorry, but `StrToFloat()` sux cocks
  48 function conParseFloat (var res: Single; const s: AnsiString): Boolean;
  49
  50
  51 var
  52   gConsoleShow: Boolean = false; // True - êîíñîëü îòêðûòà èëè îòêðûâàåòñÿ
  53   gChatShow: Boolean = false;
  54   gChatTeam: Boolean = false;
  55   gAllowConsoleMessages: Boolean = true;
  56   gChatEnter: Boolean = true;
  57   gJustChatted: Boolean = false; // ÷òîáû àäìèí â èíòåðå ÷àòÿñü íå ïðîìàòûâàë ñòàòèñòèêó
  58
  59
  60 implementation
  61
  62 uses
  63   g_textures, g_main, e_graphics, e_input, g_game,
  64   SysUtils, g_basic, g_options, Math, g_touch,
  65   g_menu, g_language, g_net, g_netmsg, e_log, conbuf;
  66
  67
  68 type
  69   PCommand = ^TCommand;
  70
  71   TCmdProc = procedure (p: SSArray);
  72   TCmdProcEx = procedure (me: PCommand; p: SSArray);
  73
  74   TCommand = record
  75     cmd: AnsiString;
  76     proc: TCmdProc;
  77     procEx: TCmdProcEx;
  78     help: AnsiString;
  79     hidden: Boolean;
  80     ptr: Pointer; // various data
  81     msg: AnsiString; // message for var changes
  82     cheat: Boolean;
  83   end;
  84
  85   TAlias = record
  86     name: AnsiString;
  87     commands: SSArray;
  88   end;
  89
  90
  91 const
  92   Step = 32;
  93   Alpha = 25;
  94   MsgTime = 144;
  95   MaxScriptRecursion = 16;
  96
  97   DEBUG_STRING = 'DEBUG MODE';
  98
  99 var
 100   ID: DWORD;
 101   RecursionDepth: Word = 0;
 102   RecursionLimitHit: Boolean = False;
 103   Cons_Y: SmallInt;
 104   Cons_Shown: Boolean; // Ðèñîâàòü ëè êîíñîëü?
 105   Line: AnsiString;
 106   CPos: Word;
 107   //ConsoleHistory: SSArray;
 108   CommandHistory: SSArray;
 109   Whitelist: SSArray;
 110   commands: Array of TCommand = nil;
 111   Aliases: Array of TAlias = nil;
 112   CmdIndex: Word;
 113   conSkipLines: Integer = 0;
 114   MsgArray: Array [0..4] of record
 115                               Msg: AnsiString;
 116                               Time: Word;
 117                             end;
 118
 119
 120 // poor man's floating literal parser; i'm sorry, but `StrToFloat()` sux cocks
 121 function conParseFloat (var res: Single; const s: AnsiString): Boolean;
 122 var
 123   pos: Integer = 1;
 124   frac: Single = 1;
 125   slen: Integer;
 126 begin
 127   result := false;
 128   res := 0;
 129   slen := Length(s);
 130   while (slen > 0) and (s[slen] <= ' ') do Dec(slen);
 131   while (pos <= slen) and (s[pos] <= ' ') do Inc(pos);
 132   if (pos > slen) then exit;
 133   if (slen-pos = 1) and (s[pos] = '.') then exit; // single dot
 134   // integral part
 135   while (pos <= slen) do
 136   begin
 137     if (s[pos] < '0') or (s[pos] > '9') then break;
 138     res := res*10+Byte(s[pos])-48;
 139     Inc(pos);
 140   end;
 141   if (pos <= slen) then
 142   begin
 143     // must be a dot
 144     if (s[pos] <> '.') then exit;
 145     Inc(pos);
 146     while (pos <= slen) do
 147     begin
 148       if (s[pos] < '0') or (s[pos] > '9') then break;
 149       frac := frac/10;
 150       res += frac*(Byte(s[pos])-48);
 151       Inc(pos);
 152     end;
 153   end;
 154   if (pos <= slen) then exit; // oops
 155   result := true;
 156 end;
 157
 158
 159 // ////////////////////////////////////////////////////////////////////////// //
 160 // <0: no arg; 0/1: true/false; 666: toggle
 161 function conGetBoolArg (p: SSArray; idx: Integer): Integer;
 162 begin
 163   if (idx < 0) or (idx > High(p)) then begin result := -1; exit; end;
 164   result := 0;
 165   if (p[idx] = '1') or (CompareText(p[idx], 'on') = 0) or (CompareText(p[idx], 'true') = 0) or
 166      (CompareText(p[idx], 'tan') = 0) or (CompareText(p[idx], 'yes') = 0) then result := 1
 167   else if (CompareText(p[idx], 'toggle') = 0) or (CompareText(p[idx], 'switch') = 0) or
 168           (CompareText(p[idx], 't') = 0) then result := 666;
 169 end;
 170
 171
 172 procedure boolVarHandler (me: PCommand; p: SSArray);
 173   procedure binaryFlag (var flag: Boolean; msg: AnsiString);
 174   begin
 175     if (Length(p) > 2) then
 176     begin
 177       conwritefln('too many arguments to ''%s''', [p[0]]);
 178     end
 179     else
 180     begin
 181       case conGetBoolArg(p, 1) of
 182         -1: begin end;
 183          0: if not me.cheat or conIsCheatsEnabled then flag := false else begin conwriteln('not available'); exit; end;
 184          1: if not me.cheat or conIsCheatsEnabled then flag := true else begin conwriteln('not available'); exit; end;
 185          666: if not me.cheat or conIsCheatsEnabled then flag := not flag else begin conwriteln('not available'); exit; end;
 186       end;
 187       if (Length(msg) = 0) then msg := p[0] else msg += ':';
 188       if flag then conwritefln('%s tan', [msg]) else conwritefln('%s ona', [msg]);
 189     end;
 190   end;
 191 begin
 192   binaryFlag(PBoolean(me.ptr)^, me.msg);
 193 end;
 194
 195
 196 procedure intVarHandler (me: PCommand; p: SSArray);
 197   procedure binaryFlag (var flag: Boolean; msg: AnsiString);
 198   begin
 199     if (Length(p) > 2) then
 200     begin
 201       conwritefln('too many arguments to ''%s''', [p[0]]);
 202     end
 203     else
 204     begin
 205       case conGetBoolArg(p, 1) of
 206         -1: begin end;
 207          0: if not me.cheat or conIsCheatsEnabled then flag := false else begin conwriteln('not available'); exit; end;
 208          1: if not me.cheat or conIsCheatsEnabled then flag := true else begin conwriteln('not available'); exit; end;
 209          666: if not me.cheat or conIsCheatsEnabled then flag := not flag else begin conwriteln('not available'); exit; end;
 210       end;
 211       if (Length(msg) = 0) then msg := p[0] else msg += ':';
 212       if flag then conwritefln('%s tan', [msg]) else conwritefln('%s ona', [msg]);
 213     end;
 214   end;
 215 begin
 216   if (Length(p) <> 2) then
 217   begin
 218     conwritefln('%s %d', [me.cmd, PInteger(me.ptr)^]);
 219   end
 220   else
 221   begin
 222     try
 223       PInteger(me.ptr)^ := StrToInt(p[1]);
 224     except
 225       conwritefln('invalid integer value: "%s"', [p[1]]);
 226     end;
 227   end;
 228 end;
 229
 230
 231 procedure conRegVar (const conname: AnsiString; pvar: PBoolean; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
 232 var
 233   f: Integer;
 234   cp: PCommand;
 235 begin
 236   f := Length(commands);
 237   SetLength(commands, f+1);
 238   cp := @commands[f];
 239   cp.cmd := LowerCase(conname);
 240   cp.proc := nil;
 241   cp.procEx := boolVarHandler;
 242   cp.help := ahelp;
 243   cp.hidden := ahidden;
 244   cp.ptr := pvar;
 245   cp.msg := amsg;
 246   cp.cheat := acheat;
 247 end;
 248
 249
 250 procedure conRegVar (const conname: AnsiString; pvar: PInteger; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
 251 var
 252   f: Integer;
 253   cp: PCommand;
 254 begin
 255   f := Length(commands);
 256   SetLength(commands, f+1);
 257   cp := @commands[f];
 258   cp.cmd := LowerCase(conname);
 259   cp.proc := nil;
 260   cp.procEx := intVarHandler;
 261   cp.help := ahelp;
 262   cp.hidden := ahidden;
 263   cp.ptr := pvar;
 264   cp.msg := amsg;
 265   cp.cheat := acheat;
 266 end;
 267
 268
 269 // ////////////////////////////////////////////////////////////////////////// //
 270 type
 271   PVarSingle = ^TVarSingle;
 272   TVarSingle = record
 273     val: PSingle;
 274     min, max, def: Single; // default will be starting value
 275   end;
 276
 277
 278 procedure singleVarHandler (me: PCommand; p: SSArray);
 279 var
 280   pv: PVarSingle;
 281   nv: Single;
 282   msg: AnsiString;
 283 begin
 284   if (Length(p) > 2) then
 285   begin
 286     conwritefln('too many arguments to ''%s''', [me.cmd]);
 287     exit;
 288   end;
 289   pv := PVarSingle(me.ptr);
 290   if (Length(p) = 2) then
 291   begin
 292     if me.cheat and (not conIsCheatsEnabled) then begin conwriteln('not available'); exit; end;
 293     if (CompareText(p[1], 'default') = 0) or (CompareText(p[1], 'def') = 0) or
 294        (CompareText(p[1], 'd') = 0) or (CompareText(p[1], 'off') = 0) or
 295        (CompareText(p[1], 'ona') = 0) then
 296     begin
 297       pv.val^ := pv.def;
 298     end
 299     else
 300     begin
 301       if not conParseFloat(nv, p[1]) then
 302       begin
 303         conwritefln('%s: ''%s'' doesn''t look like a floating number', [me.cmd, p[1]]);
 304         exit;
 305       end;
 306       if (nv < pv.min) then nv := pv.min;
 307       if (nv > pv.max) then nv := pv.max;
 308       pv.val^ := nv;
 309     end;
 310   end;
 311   msg := me.msg;
 312   if (Length(msg) = 0) then msg := me.cmd else msg += ':';
 313   conwritefln('%s %s', [msg, pv.val^]);
 314 end;
 315
 316
 317 procedure conRegVar (const conname: AnsiString; pvar: PSingle; amin, amax: Single; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false; ahidden: Boolean=false); overload;
 318 var
 319   f: Integer;
 320   cp: PCommand;
 321   pv: PVarSingle;
 322 begin
 323   GetMem(pv, sizeof(TVarSingle));
 324   pv.val := pvar;
 325   pv.min := amin;
 326   pv.max := amax;
 327   pv.def := pvar^;
 328   f := Length(commands);
 329   SetLength(commands, f+1);
 330   cp := @commands[f];
 331   cp.cmd := LowerCase(conname);
 332   cp.proc := nil;
 333   cp.procEx := singleVarHandler;
 334   cp.help := ahelp;
 335   cp.hidden := ahidden;
 336   cp.ptr := pv;
 337   cp.msg := amsg;
 338   cp.cheat := acheat;
 339 end;
 340
 341
 342 // ////////////////////////////////////////////////////////////////////////// //
 343 function GetStrACmd(var Str: AnsiString): AnsiString;
 344 var
 345   a: Integer;
 346 begin
 347   Result := '';
 348   for a := 1 to Length(Str) do
 349     if (a = Length(Str)) or (Str[a+1] = ';') then
 350     begin
 351       Result := Copy(Str, 1, a);
 352       Delete(Str, 1, a+1);
 353       Str := Trim(Str);
 354       Exit;
 355     end;
 356 end;
 357
 358 function ParseAlias(Str: AnsiString): SSArray;
 359 begin
 360   Result := nil;
 361
 362   Str := Trim(Str);
 363
 364   if Str = '' then
 365     Exit;
 366
 367   while Str <> '' do
 368   begin
 369     SetLength(Result, Length(Result)+1);
 370     Result[High(Result)] := GetStrACmd(Str);
 371   end;
 372 end;
 373
 374 procedure ConsoleCommands(p: SSArray);
 375 var
 376   cmd, s: AnsiString;
 377   a, b: Integer;
 378   F: TextFile;
 379 begin
 380   cmd := LowerCase(p[0]);
 381   s := '';
 382
 383   if cmd = 'clear' then
 384   begin
 385     //ConsoleHistory := nil;
 386     cbufClear();
 387     conSkipLines := 0;
 388
 389     for a := 0 to High(MsgArray) do
 390       with MsgArray[a] do
 391       begin
 392         Msg := '';
 393         Time := 0;
 394       end;
 395   end;
 396
 397   if cmd = 'clearhistory' then
 398     CommandHistory := nil;
 399
 400   if cmd = 'showhistory' then
 401     if CommandHistory <> nil then
 402     begin
 403       g_Console_Add('');
 404       for a := 0 to High(CommandHistory) do
 405         g_Console_Add('  '+CommandHistory[a]);
 406     end;
 407
 408   if cmd = 'commands' then
 409   begin
 410     g_Console_Add('');
 411     g_Console_Add('commands list:');
 412     for a := High(commands) downto 0 do
 413     begin
 414       if (Length(commands[a].help) > 0) then
 415       begin
 416         g_Console_Add('  '+commands[a].cmd+' -- '+commands[a].help);
 417       end
 418       else
 419       begin
 420         g_Console_Add('  '+commands[a].cmd);
 421       end;
 422     end;
 423   end;
 424
 425   if cmd = 'time' then
 426     g_Console_Add(TimeToStr(Now), True);
 427
 428   if cmd = 'date' then
 429     g_Console_Add(DateToStr(Now), True);
 430
 431   if cmd = 'echo' then
 432     if Length(p) > 1 then
 433       begin
 434         if p[1] = 'ololo' then
 435           gCheats := True
 436         else
 437         begin
 438           s := '';
 439           for a := 1 to High(p) do
 440             s := s + p[a] + ' ';
 441           g_Console_Add(b_Text_Format(s), True);
 442         end;
 443       end
 444     else
 445       g_Console_Add('');
 446
 447   if cmd = 'dump' then
 448   begin
 449     (*
 450     if ConsoleHistory <> nil then
 451     begin
 452       if Length(P) > 1 then
 453         s := P[1]
 454       else
 455         s := GameDir+'/console.txt';
 456
 457       {$I-}
 458       AssignFile(F, s);
 459       Rewrite(F);
 460       if IOResult <> 0 then
 461       begin
 462         g_Console_Add(Format(_lc[I_CONSOLE_ERROR_WRITE], [s]));
 463         CloseFile(F);
 464         Exit;
 465       end;
 466
 467       for a := 0 to High(ConsoleHistory) do
 468         WriteLn(F, ConsoleHistory[a]);
 469
 470       CloseFile(F);
 471       g_Console_Add(Format(_lc[I_CONSOLE_DUMPED], [s]));
 472       {$I+}
 473     end;
 474     *)
 475   end;
 476
 477   if cmd = 'exec' then
 478   begin
 479     // exec <filename>
 480     if Length(p) > 1 then
 481     begin
 482       s := GameDir+'/'+p[1];
 483
 484       {$I-}
 485       AssignFile(F, s);
 486       Reset(F);
 487       if IOResult <> 0 then
 488       begin
 489         g_Console_Add(Format(_lc[I_CONSOLE_ERROR_READ], [s]));
 490         CloseFile(F);
 491         Exit;
 492       end;
 493       g_Console_Add(Format(_lc[I_CONSOLE_EXEC], [s]));
 494
 495       while not EOF(F) do
 496       begin
 497         ReadLn(F, s);
 498         if IOResult <> 0 then
 499         begin
 500           g_Console_Add(Format(_lc[I_CONSOLE_ERROR_READ], [s]));
 501           CloseFile(F);
 502           Exit;
 503         end;
 504         if Pos('#', s) <> 1 then // script comment
 505         begin
 506           // prevents endless loops
 507           Inc(RecursionDepth);
 508           RecursionLimitHit := (RecursionDepth > MaxScriptRecursion) or RecursionLimitHit;
 509           if not RecursionLimitHit then
 510             g_Console_Process(s, True);
 511           Dec(RecursionDepth);
 512         end;
 513       end;
 514       if (RecursionDepth = 0) and RecursionLimitHit then
 515       begin
 516         g_Console_Add(Format(_lc[I_CONSOLE_ERROR_CALL], [s]));
 517         RecursionLimitHit := False;
 518       end;
 519
 520       CloseFile(F);
 521       {$I+}
 522     end
 523     else
 524       g_Console_Add('exec <script file>');
 525   end;
 526
 527   if (cmd = 'ver') or (cmd = 'version') then
 528   begin
 529     conwriteln('Doom 2D: Forever v. ' + GAME_VERSION);
 530     conwritefln('Net protocol v. %d', [NET_PROTOCOL_VER]);
 531     conwritefln('Build date: %s at %s', [GAME_BUILDDATE, GAME_BUILDTIME]);
 532   end;
 533
 534   if cmd = 'alias' then
 535   begin
 536     // alias [alias_name] [commands]
 537     if Length(p) > 1 then
 538     begin
 539       for a := 0 to High(Aliases) do
 540         if Aliases[a].name = p[1] then
 541         begin
 542           if Length(p) > 2 then
 543             Aliases[a].commands := ParseAlias(p[2])
 544           else
 545             for b := 0 to High(Aliases[a].commands) do
 546               g_Console_Add(Aliases[a].commands[b]);
 547           Exit;
 548         end;
 549       SetLength(Aliases, Length(Aliases)+1);
 550       a := High(Aliases);
 551       Aliases[a].name := p[1];
 552       if Length(p) > 2 then
 553         Aliases[a].commands := ParseAlias(p[2])
 554       else
 555         for b := 0 to High(Aliases[a].commands) do
 556           g_Console_Add(Aliases[a].commands[b]);
 557     end else
 558       for a := 0 to High(Aliases) do
 559         if Aliases[a].commands <> nil then
 560           g_Console_Add(Aliases[a].name);
 561   end;
 562
 563   if cmd = 'call' then
 564   begin
 565     // call <alias_name>
 566     if Length(p) > 1 then
 567     begin
 568       if Aliases = nil then
 569         Exit;
 570       for a := 0 to High(Aliases) do
 571         if Aliases[a].name = p[1] then
 572         begin
 573           if Aliases[a].commands <> nil then
 574           begin
 575             // with this system proper endless loop detection seems either impossible
 576             // or very dirty to implement, so let's have this instead
 577             // prevents endless loops
 578             for b := 0 to High(Aliases[a].commands) do
 579             begin
 580               Inc(RecursionDepth);
 581               RecursionLimitHit := (RecursionDepth > MaxScriptRecursion) or RecursionLimitHit;
 582               if not RecursionLimitHit then
 583                 g_Console_Process(Aliases[a].commands[b], True);
 584               Dec(RecursionDepth);
 585             end;
 586             if (RecursionDepth = 0) and RecursionLimitHit then
 587             begin
 588               g_Console_Add(Format(_lc[I_CONSOLE_ERROR_CALL], [s]));
 589               RecursionLimitHit := False;
 590             end;
 591           end;
 592           Exit;
 593         end;
 594     end
 595     else
 596       g_Console_Add('call <alias name>');
 597   end;
 598 end;
 599
 600 procedure WhitelistCommand(cmd: AnsiString);
 601 var
 602   a: Integer;
 603 begin
 604   SetLength(Whitelist, Length(Whitelist)+1);
 605   a := High(Whitelist);
 606   Whitelist[a] := LowerCase(cmd);
 607 end;
 608
 609 procedure AddCommand(cmd: AnsiString; proc: TCmdProc; ahelp: AnsiString=''; ahidden: Boolean=false; acheat: Boolean=false);
 610 var
 611   a: Integer;
 612   cp: PCommand;
 613 begin
 614   SetLength(commands, Length(commands)+1);
 615   a := High(commands);
 616   cp := @commands[a];
 617   cp.cmd := LowerCase(cmd);
 618   cp.proc := proc;
 619   cp.procEx := nil;
 620   cp.help := ahelp;
 621   cp.hidden := ahidden;
 622   cp.ptr := nil;
 623   cp.msg := '';
 624   cp.cheat := acheat;
 625 end;
 626
 627
 628 procedure segfault (p: SSArray);
 629 var
 630   pp: PByte = nil;
 631 begin
 632   pp^ := 0;
 633 end;
 634
 635
 636 procedure g_Console_Init();
 637 var
 638   a: Integer;
 639 begin
 640   g_Texture_CreateWAD(ID, GameWAD+':TEXTURES\CONSOLE');
 641   Cons_Y := -(gScreenHeight div 2);
 642   gConsoleShow := False;
 643   gChatShow := False;
 644   Cons_Shown := False;
 645   CPos := 1;
 646
 647   for a := 0 to High(MsgArray) do
 648     with MsgArray[a] do
 649     begin
 650       Msg := '';
 651       Time := 0;
 652     end;
 653
 654   AddCommand('segfault', segfault, 'make segfault');
 655
 656   AddCommand('clear', ConsoleCommands, 'clear console');
 657   AddCommand('clearhistory', ConsoleCommands);
 658   AddCommand('showhistory', ConsoleCommands);
 659   AddCommand('commands', ConsoleCommands);
 660   AddCommand('time', ConsoleCommands);
 661   AddCommand('date', ConsoleCommands);
 662   AddCommand('echo', ConsoleCommands);
 663   AddCommand('dump', ConsoleCommands);
 664   AddCommand('exec', ConsoleCommands);
 665   AddCommand('alias', ConsoleCommands);
 666   AddCommand('call', ConsoleCommands);
 667   AddCommand('ver', ConsoleCommands);
 668   AddCommand('version', ConsoleCommands);
 669
 670   AddCommand('d_window', DebugCommands);
 671   AddCommand('d_sounds', DebugCommands);
 672   AddCommand('d_frames', DebugCommands);
 673   AddCommand('d_winmsg', DebugCommands);
 674   AddCommand('d_monoff', DebugCommands);
 675   AddCommand('d_botoff', DebugCommands);
 676   AddCommand('d_monster', DebugCommands);
 677   AddCommand('d_health', DebugCommands);
 678   AddCommand('d_player', DebugCommands);
 679   AddCommand('d_joy', DebugCommands);
 680   AddCommand('d_mem', DebugCommands);
 681
 682   AddCommand('p1_name', GameCVars);
 683   AddCommand('p2_name', GameCVars);
 684   AddCommand('p1_color', GameCVars);
 685   AddCommand('p2_color', GameCVars);
 686   AddCommand('r_showfps', GameCVars);
 687   AddCommand('r_showtime', GameCVars);
 688   AddCommand('r_showscore', GameCVars);
 689   AddCommand('r_showlives', GameCVars);
 690   AddCommand('r_showstat', GameCVars);
 691   AddCommand('r_showkillmsg', GameCVars);
 692   AddCommand('r_showspect', GameCVars);
 693   AddCommand('r_showping', GameCVars);
 694   AddCommand('g_gamemode', GameCVars);
 695   AddCommand('g_friendlyfire', GameCVars);
 696   AddCommand('g_weaponstay', GameCVars);
 697   AddCommand('g_allow_exit', GameCVars);
 698   AddCommand('g_allow_monsters', GameCVars);
 699   AddCommand('g_bot_vsmonsters', GameCVars);
 700   AddCommand('g_bot_vsplayers', GameCVars);
 701   AddCommand('g_scorelimit', GameCVars);
 702   AddCommand('g_timelimit', GameCVars);
 703   AddCommand('g_maxlives', GameCVars);
 704   AddCommand('g_warmuptime', GameCVars);
 705   AddCommand('net_interp', GameCVars);
 706   AddCommand('net_forceplayerupdate', GameCVars);
 707   AddCommand('net_predictself', GameCVars);
 708   AddCommand('sv_name', GameCVars);
 709   AddCommand('sv_passwd', GameCVars);
 710   AddCommand('sv_maxplrs', GameCVars);
 711   AddCommand('sv_public', GameCVars);
 712   AddCommand('sv_intertime', GameCVars);
 713
 714   AddCommand('quit', GameCommands);
 715   AddCommand('exit', GameCommands);
 716   AddCommand('pause', GameCommands);
 717   AddCommand('endgame', GameCommands);
 718   AddCommand('restart', GameCommands);
 719   AddCommand('addbot', GameCommands);
 720   AddCommand('bot_add', GameCommands);
 721   AddCommand('bot_addlist', GameCommands);
 722   AddCommand('bot_addred', GameCommands);
 723   AddCommand('bot_addblue', GameCommands);
 724   AddCommand('bot_removeall', GameCommands);
 725   AddCommand('chat', GameCommands);
 726   AddCommand('teamchat', GameCommands);
 727   AddCommand('game', GameCommands);
 728   AddCommand('host', GameCommands);
 729   AddCommand('map', GameCommands);
 730   AddCommand('nextmap', GameCommands);
 731   AddCommand('endmap', GameCommands);
 732   AddCommand('goodbye', GameCommands);
 733   AddCommand('suicide', GameCommands);
 734   AddCommand('spectate', GameCommands);
 735   AddCommand('ready', GameCommands);
 736   AddCommand('kick', GameCommands);
 737   AddCommand('kick_id', GameCommands);
 738   AddCommand('ban', GameCommands);
 739   AddCommand('permban', GameCommands);
 740   AddCommand('ban_id', GameCommands);
 741   AddCommand('permban_id', GameCommands);
 742   AddCommand('unban', GameCommands);
 743   AddCommand('connect', GameCommands);
 744   AddCommand('disconnect', GameCommands);
 745   AddCommand('reconnect', GameCommands);
 746   AddCommand('say', GameCommands);
 747   AddCommand('tell', GameCommands);
 748   AddCommand('overtime', GameCommands);
 749   AddCommand('rcon_password', GameCommands);
 750   AddCommand('rcon', GameCommands);
 751   AddCommand('callvote', GameCommands);
 752   AddCommand('vote', GameCommands);
 753   AddCommand('clientlist', GameCommands);
 754   AddCommand('event', GameCommands);
 755
 756   AddCommand('god', GameCheats);
 757   AddCommand('notarget', GameCheats);
 758   AddCommand('give', GameCheats); // "exit" too ;-)
 759   AddCommand('open', GameCheats);
 760   AddCommand('fly', GameCheats);
 761   AddCommand('noclip', GameCheats);
 762   AddCommand('speedy', GameCheats);
 763   AddCommand('jumpy', GameCheats);
 764   AddCommand('noreload', GameCheats);
 765   AddCommand('aimline', GameCheats);
 766   AddCommand('automap', GameCheats);
 767
 768   WhitelistCommand('say');
 769   WhitelistCommand('tell');
 770   WhitelistCommand('overtime');
 771   WhitelistCommand('ready');
 772   WhitelistCommand('map');
 773   WhitelistCommand('nextmap');
 774   WhitelistCommand('endmap');
 775   WhitelistCommand('restart');
 776   WhitelistCommand('kick');
 777   WhitelistCommand('ban');
 778
 779   WhitelistCommand('addbot');
 780   WhitelistCommand('bot_add');
 781   WhitelistCommand('bot_addred');
 782   WhitelistCommand('bot_addblue');
 783   WhitelistCommand('bot_removeall');
 784
 785   WhitelistCommand('g_gamemode');
 786   WhitelistCommand('g_friendlyfire');
 787   WhitelistCommand('g_weaponstay');
 788   WhitelistCommand('g_allow_exit');
 789   WhitelistCommand('g_allow_monsters');
 790   WhitelistCommand('g_scorelimit');
 791   WhitelistCommand('g_timelimit');
 792
 793   g_Console_Add(Format(_lc[I_CONSOLE_WELCOME], [GAME_VERSION]));
 794   g_Console_Add('');
 795 end;
 796
 797 procedure g_Console_Update();
 798 var
 799   a, b: Integer;
 800 begin
 801   if Cons_Shown then
 802   begin
 803   // Â ïðîöåññå îòêðûòèÿ:
 804     if gConsoleShow and (Cons_Y < 0) then
 805     begin
 806       Cons_Y := Cons_Y+Step;
 807     end;
 808
 809   // Â ïðîöåññå çàêðûòèÿ:
 810     if (not gConsoleShow) and
 811        (Cons_Y > -(gScreenHeight div 2)) then
 812       Cons_Y := Cons_Y-Step;
 813
 814   // Îêîí÷àòåëüíî îòêðûëàñü:
 815     if Cons_Y > 0 then
 816       Cons_Y := 0;
 817
 818   // Îêîí÷àòåëüíî çàêðûëàñü:
 819     if Cons_Y <= (-(gScreenHeight div 2)) then
 820     begin
 821       Cons_Y := -(gScreenHeight div 2);
 822       Cons_Shown := False;
 823     end;
 824   end;
 825
 826   a := 0;
 827   while a <= High(MsgArray) do
 828   begin
 829     if MsgArray[a].Time > 0 then
 830     begin
 831       if MsgArray[a].Time = 1 then
 832         begin
 833           if a < High(MsgArray) then
 834           begin
 835             for b := a to High(MsgArray)-1 do
 836               MsgArray[b] := MsgArray[b+1];
 837
 838             MsgArray[High(MsgArray)].Time := 0;
 839
 840             a := a - 1;
 841           end;
 842         end
 843       else
 844         Dec(MsgArray[a].Time);
 845     end;
 846
 847     a := a + 1;
 848   end;
 849 end;
 850
 851
 852 procedure drawConsoleText ();
 853 var
 854   CWidth, CHeight: Byte;
 855   ty: Integer;
 856   sp, ep: LongWord;
 857   skip: Integer;
 858
 859   procedure putLine (sp, ep: LongWord);
 860   var
 861     p: LongWord;
 862     wdt, cw: Integer;
 863   begin
 864     p := sp;
 865     wdt := 0;
 866     while p <> ep do
 867     begin
 868       cw := e_TextureFontCharWidth(cbufAt(p), gStdFont);
 869       if wdt+cw > gScreenWidth-8 then break;
 870       //e_TextureFontPrintChar(X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False);
 871       Inc(wdt, cw);
 872       cbufNext(p);
 873     end;
 874     if p <> ep then putLine(p, ep); // do rest of the line first
 875     // now print our part
 876     if skip = 0 then
 877     begin
 878       ep := p;
 879       p := sp;
 880       wdt := 2;
 881       while p <> ep do
 882       begin
 883         cw := e_TextureFontCharWidth(cbufAt(p), gStdFont);
 884         e_TextureFontPrintCharEx(wdt, ty, cbufAt(p), gStdFont);
 885         Inc(wdt, cw);
 886         cbufNext(p);
 887       end;
 888       Dec(ty, CHeight);
 889     end
 890     else
 891     begin
 892       Dec(skip);
 893     end;
 894   end;
 895
 896 begin
 897   e_TextureFontGetSize(gStdFont, CWidth, CHeight);
 898   ty := (gScreenHeight div 2)-4-2*CHeight-Abs(Cons_Y);
 899   skip := conSkipLines;
 900   cbufLastLine(sp, ep);
 901   repeat
 902     putLine(sp, ep);
 903     if ty+CHeight <= 0 then break;
 904   until not cbufLineUp(sp, ep);
 905 end;
 906
 907 procedure g_Console_Draw();
 908 var
 909   CWidth, CHeight: Byte;
 910   mfW, mfH: Word;
 911   a, b: Integer;
 912 begin
 913   e_TextureFontGetSize(gStdFont, CWidth, CHeight);
 914
 915   for a := 0 to High(MsgArray) do
 916     if MsgArray[a].Time > 0 then
 917       e_TextureFontPrintFmt(0, CHeight*a, MsgArray[a].Msg,
 918         gStdFont, True);
 919
 920   if not Cons_Shown then
 921   begin
 922     if gChatShow then
 923     begin
 924       if gChatTeam then
 925       begin
 926         e_TextureFontPrintEx(0, gScreenHeight - CHeight - 1, 'say team> ' + Line,
 927           gStdFont, 255, 255, 255, 1, True);
 928         e_TextureFontPrintEx((CPos + 9)*CWidth, gScreenHeight - CHeight - 1, '_',
 929           gStdFont, 255, 255, 255, 1, True);
 930       end
 931       else
 932       begin
 933         e_TextureFontPrintEx(0, gScreenHeight - CHeight - 1, 'say> ' + Line,
 934           gStdFont, 255, 255, 255, 1, True);
 935         e_TextureFontPrintEx((CPos + 4)*CWidth, gScreenHeight - CHeight - 1, '_',
 936           gStdFont, 255, 255, 255, 1, True);
 937       end;
 938     end;
 939     Exit;
 940   end;
 941
 942   if gDebugMode then
 943   begin
 944     e_CharFont_GetSize(gMenuFont, DEBUG_STRING, mfW, mfH);
 945     a := (gScreenWidth - 2*mfW) div 2;
 946     b := Cons_Y + ((gScreenHeight div 2) - 2*mfH) div 2;
 947     e_CharFont_PrintEx(gMenuFont, a div 2, b div 2, DEBUG_STRING,
 948                        _RGB(128, 0, 0), 2.0);
 949   end;
 950
 951   e_DrawSize(ID, 0, Cons_Y, Alpha, False, False, gScreenWidth, gScreenHeight div 2);
 952   e_TextureFontPrint(0, Cons_Y+(gScreenHeight div 2)-CHeight-4, '> '+Line, gStdFont);
 953
 954   drawConsoleText();
 955   (*
 956   if ConsoleHistory <> nil then
 957   begin
 958     b := 0;
 959     if CHeight > 0 then
 960       if Length(ConsoleHistory) > ((gScreenHeight div 2) div CHeight)-1 then
 961         b := Length(ConsoleHistory)-((gScreenHeight div 2) div CHeight)+1;
 962
 963     b := Max(b-Offset, 0);
 964     d := Max(High(ConsoleHistory)-Offset, 0);
 965
 966     c := 2;
 967     for a := d downto b do
 968     begin
 969       e_TextureFontPrintFmt(0, (gScreenHeight div 2)-4-c*CHeight-Abs(Cons_Y), ConsoleHistory[a],
 970                            gStdFont, True);
 971       c := c + 1;
 972     end;
 973   end;
 974   *)
 975
 976   e_TextureFontPrint((CPos+1)*CWidth, Cons_Y+(gScreenHeight div 2)-21, '_', gStdFont);
 977 end;
 978
 979 procedure g_Console_Switch();
 980 begin
 981   if gChatShow then Exit;
 982   gConsoleShow := not gConsoleShow;
 983   Cons_Shown := True;
 984   g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
 985 end;
 986
 987 procedure g_Console_Chat_Switch(Team: Boolean = False);
 988 begin
 989   if gConsoleShow then Exit;
 990   if not g_Game_IsNet then Exit;
 991   gChatShow := not gChatShow;
 992   gChatTeam := Team;
 993   if gChatShow then
 994     gChatEnter := False;
 995   Line := '';
 996   CPos := 1;
 997   g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
 998 end;
 999
1000 procedure g_Console_Char(C: AnsiChar);
1001 begin
1002   if gChatShow and (not gChatEnter) then
1003     Exit;
1004   Insert(C, Line, CPos);
1005   CPos := CPos + 1;
1006 end;
1007
1008
1009 var
1010   tcomplist: array of AnsiString = nil;
1011   tcompidx: array of Integer = nil;
1012
1013 procedure Complete ();
1014 var
1015   i, c: Integer;
1016   tused: Integer;
1017   ll, lpfx, cmd: AnsiString;
1018 begin
1019   if (Length(Line) = 0) then
1020   begin
1021     if (g_Game_IsNet and g_Game_IsServer) or (g_Game_IsClient) then exit;
1022     g_Console_Add('');
1023     for i := 0 to High(commands) do
1024     begin
1025       // hidden commands are hidden when cheats aren't enabled
1026       if commands[i].hidden and not conIsCheatsEnabled then continue;
1027       if (Length(commands[i].help) > 0) then
1028       begin
1029         g_Console_Add('  '+commands[i].cmd+' -- '+commands[i].help);
1030       end
1031       else
1032       begin
1033         g_Console_Add('  '+commands[i].cmd);
1034       end;
1035     end;
1036     exit;
1037   end;
1038
1039   ll := LowerCase(Line);
1040   lpfx := '';
1041
1042   if (Length(ll) > 1) and (ll[Length(ll)] = ' ') then
1043   begin
1044     ll := Copy(ll, 0, Length(ll)-1);
1045     for i := 0 to High(commands) do
1046     begin
1047       // hidden commands are hidden when cheats aren't enabled
1048       if commands[i].hidden and not conIsCheatsEnabled then continue;
1049       if (commands[i].cmd = ll) then
1050       begin
1051         if (Length(commands[i].help) > 0) then
1052         begin
1053           g_Console_Add('  '+commands[i].cmd+' -- '+commands[i].help);
1054         end;
1055       end;
1056     end;
1057     exit;
1058   end;
1059
1060   // build completion list
1061   tused := 0;
1062   for i := 0 to High(commands) do
1063   begin
1064     // hidden commands are hidden when cheats aren't enabled
1065     if commands[i].hidden and not conIsCheatsEnabled then continue;
1066     cmd := commands[i].cmd;
1067     if (Length(cmd) >= Length(ll)) and (ll = Copy(cmd, 0, Length(ll))) then
1068     begin
1069       if (tused = Length(tcomplist)) then
1070       begin
1071         SetLength(tcomplist, Length(tcomplist)+128);
1072         SetLength(tcompidx, Length(tcompidx)+128);
1073       end;
1074       tcomplist[tused] := cmd;
1075       tcompidx[tused] := i;
1076       Inc(tused);
1077       if (Length(cmd) > Length(lpfx)) then lpfx := cmd;
1078     end;
1079   end;
1080
1081   // get longest prefix
1082   for i := 0 to tused-1 do
1083   begin
1084     cmd := tcomplist[i];
1085     for c := 1 to Length(lpfx) do
1086     begin
1087       if (c > Length(cmd)) then break;
1088       if (cmd[c] <> lpfx[c]) then begin lpfx := Copy(lpfx, 0, c-1); break; end;
1089     end;
1090   end;
1091
1092   if (tused = 0) then exit;
1093
1094   if (tused = 1) then
1095   begin
1096     Line := tcomplist[0]+' ';
1097     CPos := Length(Line)+1;
1098   end
1099   else
1100   begin
1101     // has longest prefix?
1102     if (Length(lpfx) > Length(ll)) then
1103     begin
1104       Line := lpfx;
1105       CPos:= Length(Line)+1;
1106     end
1107     else
1108     begin
1109       g_Console_Add('');
1110       for i := 0 to tused-1 do
1111       begin
1112         if (Length(commands[tcompidx[i]].help) > 0) then
1113         begin
1114           g_Console_Add('  '+tcomplist[i]+' -- '+commands[tcompidx[i]].help);
1115         end
1116         else
1117         begin
1118           g_Console_Add('  '+tcomplist[i]);
1119         end;
1120       end;
1121     end;
1122   end;
1123 end;
1124
1125
1126 procedure g_Console_Control(K: Word);
1127 begin
1128   case K of
1129     IK_BACKSPACE:
1130       if (Length(Line) > 0) and (CPos > 1) then
1131       begin
1132         Delete(Line, CPos-1, 1);
1133         CPos := CPos-1;
1134       end;
1135     IK_DELETE:
1136       if (Length(Line) > 0) and (CPos <= Length(Line)) then
1137         Delete(Line, CPos, 1);
1138     IK_LEFT, IK_KPLEFT, VK_LEFT:
1139       if CPos > 1 then
1140         CPos := CPos - 1;
1141     IK_RIGHT, IK_KPRIGHT, VK_RIGHT:
1142       if CPos <= Length(Line) then
1143         CPos := CPos + 1;
1144     IK_RETURN, IK_KPRETURN, VK_OPEN, VK_FIRE:
1145     begin
1146       if Cons_Shown then
1147         g_Console_Process(Line)
1148       else
1149         if gChatShow then
1150         begin
1151           if (Length(Line) > 0) and g_Game_IsNet then
1152           begin
1153             if gChatTeam then
1154             begin
1155               if g_Game_IsClient then
1156                 MC_SEND_Chat(b_Text_Format(Line), NET_CHAT_TEAM)
1157               else
1158                 MH_SEND_Chat('[' + gPlayer1Settings.name + ']: ' + b_Text_Format(Line),
1159                   NET_CHAT_TEAM, gPlayer1Settings.Team);
1160             end
1161             else
1162             begin
1163               if g_Game_IsClient then
1164                 MC_SEND_Chat(b_Text_Format(Line), NET_CHAT_PLAYER)
1165               else
1166                 MH_SEND_Chat('[' + gPlayer1Settings.name + ']: ' + b_Text_Format(Line),
1167                 NET_CHAT_PLAYER);
1168             end;
1169           end;
1170
1171           Line := '';
1172           CPos := 1;
1173           gChatShow := False;
1174           gJustChatted := True;
1175           g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
1176         end;
1177     end;
1178     IK_TAB:
1179       if not gChatShow then
1180         Complete();
1181     IK_DOWN, IK_KPDOWN, VK_DOWN:
1182       if not gChatShow then
1183         if (CommandHistory <> nil) and
1184            (CmdIndex < Length(CommandHistory)) then
1185         begin
1186           if CmdIndex < Length(CommandHistory)-1 then
1187             CmdIndex := CmdIndex + 1;
1188           Line := CommandHistory[CmdIndex];
1189           CPos := Length(Line) + 1;
1190         end;
1191     IK_UP, IK_KPUP, VK_UP:
1192       if not gChatShow then
1193         if (CommandHistory <> nil) and
1194            (CmdIndex <= Length(CommandHistory)) then
1195         begin
1196           if CmdIndex > 0 then
1197             CmdIndex := CmdIndex - 1;
1198           Line := CommandHistory[CmdIndex];
1199           Cpos := Length(Line) + 1;
1200         end;
1201     IK_PAGEUP, IK_KPPAGEUP, VK_PREV: // PgUp
1202       if not gChatShow then Inc(conSkipLines);
1203     IK_PAGEDN, IK_KPPAGEDN, VK_NEXT: // PgDown
1204       if not gChatShow and (conSkipLines > 0) then Dec(conSkipLines);
1205     IK_HOME, IK_KPHOME:
1206       CPos := 1;
1207     IK_END, IK_KPEND:
1208       CPos := Length(Line) + 1;
1209   end;
1210 end;
1211
1212 function GetStr(var Str: AnsiString): AnsiString;
1213 var
1214   a, b: Integer;
1215 begin
1216   Result := '';
1217   if Str[1] = '"' then
1218   begin
1219     for b := 1 to Length(Str) do
1220       if (b = Length(Str)) or (Str[b+1] = '"') then
1221       begin
1222         Result := Copy(Str, 2, b-1);
1223         Delete(Str, 1, b+1);
1224         Str := Trim(Str);
1225         Exit;
1226       end;
1227   end;
1228
1229   for a := 1 to Length(Str) do
1230     if (a = Length(Str)) or (Str[a+1] = ' ') then
1231     begin
1232       Result := Copy(Str, 1, a);
1233       Delete(Str, 1, a+1);
1234       Str := Trim(Str);
1235       Exit;
1236     end;
1237 end;
1238
1239 function ParseString(Str: AnsiString): SSArray;
1240 begin
1241   Result := nil;
1242
1243   Str := Trim(Str);
1244
1245   if Str = '' then
1246     Exit;
1247
1248   while Str <> '' do
1249   begin
1250     SetLength(Result, Length(Result)+1);
1251     Result[High(Result)] := GetStr(Str);
1252   end;
1253 end;
1254
1255 procedure g_Console_Add (L: AnsiString; show: Boolean=false);
1256
1257   procedure conmsg (s: AnsiString);
1258   var
1259     a: Integer;
1260   begin
1261     if length(s) = 0 then exit;
1262     for a := 0 to High(MsgArray) do
1263     begin
1264       with MsgArray[a] do
1265       begin
1266         if Time = 0 then
1267         begin
1268           Msg := s;
1269           Time := MsgTime;
1270           exit;
1271         end;
1272       end;
1273     end;
1274     for a := 0 to High(MsgArray)-1 do MsgArray[a] := MsgArray[a+1];
1275     with MsgArray[High(MsgArray)] do
1276     begin
1277       Msg := L;
1278       Time := MsgTime;
1279     end;
1280   end;
1281
1282 var
1283   f: Integer;
1284 begin
1285   // put it to console
1286   cbufPut(L);
1287   if (length(L) = 0) or ((L[length(L)] <> #10) and (L[length(L)] <> #13)) then cbufPut(#10);
1288
1289   // now show 'em out of console too
1290   show := show and gAllowConsoleMessages;
1291   if show and gShowMessages then
1292   begin
1293     // Âûâîä ñòðîê ñ ïåðåíîñàìè ïî î÷åðåäè
1294     while length(L) > 0 do
1295     begin
1296       f := Pos(#10, L);
1297       if f <= 0 then f := length(L)+1;
1298       conmsg(Copy(L, 1, f-1));
1299       Delete(L, 1, f);
1300     end;
1301   end;
1302
1303   //SetLength(ConsoleHistory, Length(ConsoleHistory)+1);
1304   //ConsoleHistory[High(ConsoleHistory)] := L;
1305
1306   (*
1307 {$IFDEF HEADLESS}
1308   e_WriteLog('CON: ' + L, MSG_NOTIFY);
1309 {$ENDIF}
1310   *)
1311 end;
1312
1313
1314 var
1315   consolewriterLastWasEOL: Boolean = false;
1316
1317 procedure consolewriter (constref buf; len: SizeUInt);
1318 var
1319   b: PByte;
1320 begin
1321   if (len < 1) then exit;
1322   b := PByte(@buf);
1323   consolewriterLastWasEOL := (b[len-1] = 13) or (b[len-1] = 10);
1324   while (len > 0) do
1325   begin
1326     if (b[0] <> 13) and (b[0] <> 10) then
1327     begin
1328       cbufPut(AnsiChar(b[0]));
1329     end
1330     else
1331     begin
1332       if (len > 1) and (b[0] = 13) then begin len -= 1; b += 1; end;
1333       cbufPut(#10);
1334     end;
1335     len -= 1;
1336     b += 1;
1337   end;
1338 end;
1339
1340
1341 // returns formatted string if `writerCB` is `nil`, empty string otherwise
1342 //function formatstrf (const fmt: AnsiString; args: array of const; writerCB: TFormatStrFCallback=nil): AnsiString;
1343 //TFormatStrFCallback = procedure (constref buf; len: SizeUInt);
1344 procedure conwriteln (const s: AnsiString; show: Boolean=false);
1345 begin
1346   g_Console_Add(s, show);
1347 end;
1348
1349
1350 procedure conwritefln (const s: AnsiString; args: array of const; show: Boolean=false);
1351 begin
1352   if show then
1353   begin
1354     g_Console_Add(formatstrf(s, args), true);
1355   end
1356   else
1357   begin
1358     consolewriterLastWasEOL := false;
1359     formatstrf(s, args, consolewriter);
1360     if not consolewriterLastWasEOL then cbufPut(#10);
1361   end;
1362 end;
1363
1364
1365 procedure g_Console_Clear();
1366 begin
1367   //ConsoleHistory := nil;
1368   cbufClear();
1369   conSkipLines := 0;
1370 end;
1371
1372 procedure AddToHistory(L: AnsiString);
1373 var
1374   len: Integer;
1375 begin
1376   len := Length(CommandHistory);
1377
1378   if (len = 0) or
1379      (LowerCase(CommandHistory[len-1]) <> LowerCase(L)) then
1380   begin
1381     SetLength(CommandHistory, len+1);
1382     CommandHistory[len] := L;
1383   end;
1384
1385   CmdIndex := Length(CommandHistory);
1386 end;
1387
1388 function g_Console_CommandBlacklisted(C: AnsiString): Boolean;
1389 var
1390   Arr: SSArray;
1391   i: Integer;
1392 begin
1393   Result := True;
1394
1395   Arr := nil;
1396
1397   if Trim(C) = '' then
1398     Exit;
1399
1400   Arr := ParseString(C);
1401   if Arr = nil then
1402     Exit;
1403
1404   for i := 0 to High(Whitelist) do
1405     if Whitelist[i] = LowerCase(Arr[0]) then
1406       Result := False;
1407 end;
1408
1409 procedure g_Console_Process(L: AnsiString; quiet: Boolean = False);
1410 var
1411   Arr: SSArray;
1412   i: Integer;
1413 begin
1414   Arr := nil;
1415
1416   if Trim(L) = '' then
1417     Exit;
1418
1419   conSkipLines := 0; // "unscroll"
1420
1421   if L = 'goobers' then
1422   begin
1423     Line := '';
1424     CPos := 1;
1425     gCheats := true;
1426     g_Console_Add('Your memory serves you well.');
1427     exit;
1428   end;
1429
1430   if not quiet then
1431   begin
1432     g_Console_Add('> '+L);
1433     Line := '';
1434     CPos := 1;
1435   end;
1436
1437   Arr := ParseString(L);
1438   if Arr = nil then
1439     Exit;
1440
1441   if commands = nil then
1442     Exit;
1443
1444   if not quiet then
1445     AddToHistory(L);
1446
1447   for i := 0 to High(commands) do
1448   begin
1449     if commands[i].cmd = LowerCase(Arr[0]) then
1450     begin
1451       if assigned(commands[i].procEx) then
1452       begin
1453         commands[i].procEx(@commands[i], Arr);
1454         exit;
1455       end;
1456       if assigned(commands[i].proc) then
1457       begin
1458         commands[i].proc(Arr);
1459         exit;
1460       end;
1461     end;
1462   end;
1463
1464   g_Console_Add(Format(_lc[I_CONSOLE_UNKNOWN], [Arr[0]]));
1465 end;
1466
1467
1468 end.