X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_console.pas;h=d16d9d606b8fd637044548619cd9a04ae9972938;hb=96165a1a95f0ea18a20dd8578fade4b46ec23746;hp=4898bfb113ed2dacad7e59213b5cfaf464dcf02e;hpb=e06da872a0a072eea1117350ed6c14a709328807;p=d2df-sdl.git diff --git a/src/game/g_console.pas b/src/game/g_console.pas index 4898bfb..d16d9d6 100644 --- a/src/game/g_console.pas +++ b/src/game/g_console.pas @@ -1,7 +1,26 @@ +(* Copyright (C) DooM 2D:Forever Developers + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + *) +{$INCLUDE ../shared/a_modes.inc} unit g_console; interface +uses + wadreader; // for SArray + procedure g_Console_Init(); procedure g_Console_Update(); procedure g_Console_Draw(); @@ -13,8 +32,17 @@ procedure g_Console_Add(L: String; Show: Boolean = False); procedure g_Console_Clear(); function g_Console_CommandBlacklisted(C: String): Boolean; +procedure conwriteln (const s: AnsiString; show: Boolean=false); +procedure conwritefln (const s: AnsiString; args: array of const; show: Boolean=false); + +// <0: no arg; 0/1: true/false +function conGetBoolArg (P: SArray; idx: Integer): Integer; + procedure g_Console_Chat_Switch(Team: Boolean = False); +procedure conRegVar (const conname: AnsiString; pvar: PBoolean; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false); + + var gConsoleShow: Boolean; // True - êîíñîëü îòêðûòà èëè îòêðûâàåòñÿ gChatShow: Boolean; @@ -27,15 +55,24 @@ implementation uses g_textures, g_main, e_graphics, e_input, g_game, - SysUtils, g_basic, g_options, WADEDITOR, Math, - g_menu, g_language, g_net, g_netmsg; + SysUtils, g_basic, g_options, Math, + g_menu, g_language, g_net, g_netmsg, e_log, conbuf, utils; type + PCommand = ^TCommand; + TCmdProc = procedure (P: SArray); + TCmdProcEx = procedure (me: PCommand; P: SArray); TCommand = record Cmd: String; Proc: TCmdProc; + ProcEx: TCmdProcEx; + help: String; + hidden: Boolean; + ptr: Pointer; // various data + msg: AnsiString; // message for var changes + cheat: Boolean; end; TAlias = record @@ -43,6 +80,7 @@ type Commands: SArray; end; + const Step = 32; Alpha = 25; @@ -59,18 +97,72 @@ var Cons_Shown: Boolean; // Ðèñîâàòü ëè êîíñîëü? Line: String; CPos: Word; - ConsoleHistory: SArray; + //ConsoleHistory: SArray; CommandHistory: SArray; Whitelist: SArray; - Commands: Array of TCommand; - Aliases: Array of TAlias; + Commands: Array of TCommand = nil; + Aliases: Array of TAlias = nil; CmdIndex: Word; - Offset: Word; + conSkipLines: Integer = 0; MsgArray: Array [0..4] of record Msg: String; Time: Word; end; + +// <0: no arg; 0/1: true/false +function conGetBoolArg (P: SArray; idx: Integer): Integer; +begin + if (idx < 0) or (idx > High(P)) then begin result := -1; exit; end; + result := 0; + if (P[idx] = '1') or (CompareText(P[idx], 'on') = 0) or (CompareText(P[idx], 'true') = 0) or + (CompareText(P[idx], 'tan') = 0) or (CompareText(P[idx], 'yes') = 0) then result := 1; +end; + + +procedure boolVarHandler (me: PCommand; P: SArray); + + procedure binaryFlag (var flag: Boolean; msg: string); + begin + if (Length(p) > 2) then + begin + conwritefln('too many arguments to ''%s''', [P[0]]); + end + else + begin + case conGetBoolArg(P, 1) of + -1: begin end; + 0: if conIsCheatsEnabled then flag := false else begin conwriteln('not available'); exit; end; + 1: if conIsCheatsEnabled then flag := true else begin conwriteln('not available'); exit; end; + end; + if flag then conwritefln('%s: tan', [msg]) else conwritefln('%s: ona', [msg]); + end; + end; + +begin + binaryFlag(PBoolean(me.ptr)^, me.msg); +end; + + +procedure conRegVar (const conname: AnsiString; pvar: PBoolean; const ahelp: AnsiString; const amsg: AnsiString; acheat: Boolean=false); +var + f: Integer; + cp: PCommand; +begin + f := Length(Commands); + SetLength(Commands, f+1); + cp := @Commands[f]; + cp.Cmd := LowerCase(conname); + cp.Proc := nil; + cp.ProcEx := boolVarHandler; + cp.help := ahelp; + cp.hidden := false; + cp.ptr := pvar; + cp.msg := amsg; + cp.cheat := acheat; +end; + + function GetStrACmd(var Str: String): String; var a: Integer; @@ -113,7 +205,9 @@ begin if Cmd = 'clear' then begin - ConsoleHistory := nil; + //ConsoleHistory := nil; + cbufClear(); + conSkipLines := 0; for a := 0 to High(MsgArray) do with MsgArray[a] do @@ -139,7 +233,16 @@ begin g_Console_Add(''); g_Console_Add('Commands list:'); for a := High(Commands) downto 0 do - g_Console_Add(' '+Commands[a].Cmd); + begin + if (Length(Commands[a].help) > 0) then + begin + g_Console_Add(' '+Commands[a].Cmd+' -- '+Commands[a].help); + end + else + begin + g_Console_Add(' '+Commands[a].Cmd); + end; + end; end; if Cmd = 'time' then @@ -166,6 +269,7 @@ begin if Cmd = 'dump' then begin + (* if ConsoleHistory <> nil then begin if Length(P) > 1 then @@ -190,6 +294,7 @@ begin g_Console_Add(Format(_lc[I_CONSOLE_DUMPED], [s])); {$I+} end; + *) end; if Cmd = 'exec' then @@ -314,17 +419,25 @@ var begin SetLength(Whitelist, Length(Whitelist)+1); a := High(Whitelist); - Whitelist[a] := Cmd; + Whitelist[a] := LowerCase(Cmd); end; -procedure AddCommand(Cmd: String; Proc: TCmdProc); +procedure AddCommand(Cmd: String; Proc: TCmdProc; ahelp: String=''; ahidden: Boolean=false; acheat: Boolean=false); var a: Integer; + cp: PCommand; begin SetLength(Commands, Length(Commands)+1); a := High(Commands); - Commands[a].Cmd := Cmd; - Commands[a].Proc := Proc; + cp := @Commands[a]; + cp.Cmd := LowerCase(Cmd); + cp.Proc := Proc; + cp.ProcEx := nil; + cp.help := ahelp; + cp.hidden := ahidden; + cp.ptr := nil; + cp.msg := ''; + cp.cheat := acheat; end; procedure g_Console_Init(); @@ -345,7 +458,7 @@ begin Time := 0; end; - AddCommand('clear', ConsoleCommands); + AddCommand('clear', ConsoleCommands, 'clear console'); AddCommand('clearhistory', ConsoleCommands); AddCommand('showhistory', ConsoleCommands); AddCommand('commands', ConsoleCommands); @@ -442,6 +555,18 @@ begin AddCommand('clientlist', GameCommands); AddCommand('event', GameCommands); + AddCommand('god', GameCheats); + AddCommand('notarget', GameCheats); + AddCommand('give', GameCheats); // "exit" too ;-) + AddCommand('open', GameCheats); + AddCommand('fly', GameCheats); + AddCommand('noclip', GameCheats); + AddCommand('speedy', GameCheats); + AddCommand('jumpy', GameCheats); + AddCommand('noreload', GameCheats); + AddCommand('aimline', GameCheats); + AddCommand('automap', GameCheats); + WhitelistCommand('say'); WhitelistCommand('tell'); WhitelistCommand('overtime'); @@ -525,11 +650,67 @@ begin end; end; + +procedure drawConsoleText (); +var + CWidth, CHeight: Byte; + ty: Integer; + sp, ep: LongWord; + skip: Integer; + + procedure putLine (sp, ep: LongWord); + var + p: LongWord; + wdt, cw: Integer; + begin + p := sp; + wdt := 0; + while p <> ep do + begin + cw := e_TextureFontCharWidth(cbufAt(p), gStdFont); + if wdt+cw > gScreenWidth-8 then break; + //e_TextureFontPrintChar(X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False); + Inc(wdt, cw); + cbufNext(p); + end; + if p <> ep then putLine(p, ep); // do rest of the line first + // now print our part + if skip = 0 then + begin + ep := p; + p := sp; + wdt := 2; + while p <> ep do + begin + cw := e_TextureFontCharWidth(cbufAt(p), gStdFont); + e_TextureFontPrintCharEx(wdt, ty, cbufAt(p), gStdFont); + Inc(wdt, cw); + cbufNext(p); + end; + Dec(ty, CHeight); + end + else + begin + Dec(skip); + end; + end; + +begin + e_TextureFontGetSize(gStdFont, CWidth, CHeight); + ty := (gScreenHeight div 2)-4-2*CHeight-Abs(Cons_Y); + skip := conSkipLines; + cbufLastLine(sp, ep); + repeat + putLine(sp, ep); + if ty+CHeight <= 0 then break; + until not cbufLineUp(sp, ep); +end; + procedure g_Console_Draw(); var CWidth, CHeight: Byte; mfW, mfH: Word; - a, b, c, d: Integer; + a, b: Integer; begin e_TextureFontGetSize(gStdFont, CWidth, CHeight); @@ -572,6 +753,8 @@ begin e_DrawSize(ID, 0, Cons_Y, Alpha, False, False, gScreenWidth, gScreenHeight div 2); e_TextureFontPrint(0, Cons_Y+(gScreenHeight div 2)-CHeight-4, '> '+Line, gStdFont); + drawConsoleText(); + (* if ConsoleHistory <> nil then begin b := 0; @@ -590,6 +773,7 @@ begin c := c + 1; end; end; + *) e_TextureFontPrint((CPos+1)*CWidth, Cons_Y+(gScreenHeight div 2)-21, '_', gStdFont); end; @@ -621,39 +805,122 @@ begin CPos := CPos + 1; end; -procedure Complete(); + var - i: Integer; - t: Array of String; + tcomplist: array of string = nil; + tcompidx: array of Integer = nil; + +procedure Complete (); +var + i, c: Integer; + tused: Integer; + ll, lpfx, cmd: string; begin - if Line = '' then - Exit; + if (Length(Line) = 0) then + begin + g_Console_Add(''); + for i := 0 to High(Commands) do + begin + if not Commands[i].hidden then + begin + if (Length(Commands[i].help) > 0) then + begin + g_Console_Add(' '+Commands[i].Cmd+' -- '+Commands[i].help); + end + else + begin + g_Console_Add(' '+Commands[i].Cmd); + end; + end; + end; + exit; + end; + + ll := LowerCase(Line); + lpfx := ''; - t := nil; + if (Length(ll) > 1) and (ll[Length(ll)] = ' ') then + begin + ll := Copy(ll, 0, Length(ll)-1); + for i := 0 to High(Commands) do + begin + if Commands[i].hidden then continue; + if (Commands[i].Cmd = ll) then + begin + if (Length(Commands[i].help) > 0) then + begin + g_Console_Add(' '+Commands[i].Cmd+' -- '+Commands[i].help); + end; + end; + end; + exit; + end; + // build completion list + tused := 0; for i := 0 to High(Commands) do - if LowerCase(Line) = LowerCase(Copy(Commands[i].Cmd, 0, Length(Line))) then + begin + if Commands[i].hidden then continue; + cmd := Commands[i].Cmd; + if (Length(cmd) >= Length(ll)) and (ll = Copy(cmd, 0, Length(ll))) then begin - SetLength(t, Length(t) + 1); - t[Length(t)-1] := Commands[i].Cmd; + if (tused = Length(tcomplist)) then + begin + SetLength(tcomplist, Length(tcomplist)+128); + SetLength(tcompidx, Length(tcompidx)+128); + end; + tcomplist[tused] := cmd; + tcompidx[tused] := i; + Inc(tused); + if (Length(cmd) > Length(lpfx)) then lpfx := cmd; end; + end; - if t = nil then - Exit; + // get longest prefix + for i := 0 to tused-1 do + begin + cmd := tcomplist[i]; + for c := 1 to Length(lpfx) do + begin + if (c > Length(cmd)) then break; + if (cmd[c] <> lpfx[c]) then begin lpfx := Copy(lpfx, 0, c-1); break; end; + end; + end; + + if (tused = 0) then exit; - if Length(t) = 1 then + if (tused = 1) then + begin + Line := tcomplist[0]+' '; + CPos := Length(Line)+1; + end + else + begin + // has longest prefix? + if (Length(lpfx) > Length(ll)) then begin - Line := t[0]+' '; - CPos := Length(Line)+1; + Line := lpfx; + CPos:= Length(Line)+1; end - else + else begin g_Console_Add(''); - for i := 0 to High(t) do - g_Console_Add(' '+t[i]); + for i := 0 to tused-1 do + begin + if (Length(Commands[tcompidx[i]].help) > 0) then + begin + g_Console_Add(' '+tcomplist[i]+' -- '+Commands[tcompidx[i]].help); + end + else + begin + g_Console_Add(' '+tcomplist[i]); + end; + end; end; + end; end; + procedure g_Console_Control(K: Word); begin case K of @@ -729,11 +996,9 @@ begin Cpos := Length(Line) + 1; end; IK_PAGEUP, IK_KPPAGEUP: // PgUp - if not gChatShow then - IncMax(OffSet, Length(ConsoleHistory)-1); + if not gChatShow then Inc(conSkipLines); IK_PAGEDN, IK_KPPAGEDN: // PgDown - if not gChatShow then - DecMin(OffSet, 0); + if not gChatShow and (conSkipLines > 0) then Dec(conSkipLines); IK_HOME, IK_KPHOME: CPos := 1; IK_END, IK_KPEND: @@ -784,48 +1049,121 @@ begin end; end; -procedure g_Console_Add(L: String; Show: Boolean = False); -var - a: Integer; -begin - // Âûâîä ñòðîê ñ ïåðåíîñàìè ïî î÷åðåäè - while Pos(#10, L) > 0 do - begin - g_Console_Add(Copy(L, 1, Pos(#10, L) - 1), Show); - Delete(L, 1, Pos(#10, L)); - end; - - SetLength(ConsoleHistory, Length(ConsoleHistory)+1); - ConsoleHistory[High(ConsoleHistory)] := L; +procedure g_Console_Add (L: string; Show: Boolean=false); - Show := Show and gAllowConsoleMessages; - - if Show and gShowMessages then + procedure conmsg (s: AnsiString); + var + a: Integer; begin + if length(s) = 0 then exit; for a := 0 to High(MsgArray) do + begin with MsgArray[a] do + begin if Time = 0 then begin - Msg := L; + Msg := s; Time := MsgTime; - Exit; + exit; end; - - for a := 0 to High(MsgArray)-1 do - MsgArray[a] := MsgArray[a+1]; - + end; + end; + for a := 0 to High(MsgArray)-1 do MsgArray[a] := MsgArray[a+1]; with MsgArray[High(MsgArray)] do begin Msg := L; Time := MsgTime; end; end; + +var + f: Integer; +begin + // put it to console + cbufPut(L); + if (length(L) = 0) or ((L[length(L)] <> #10) and (L[length(L)] <> #13)) then cbufPut(#10); + + // now show 'em out of console too + Show := Show and gAllowConsoleMessages; + if Show and gShowMessages then + begin + // Âûâîä ñòðîê ñ ïåðåíîñàìè ïî î÷åðåäè + while length(L) > 0 do + begin + f := Pos(#10, L); + if f <= 0 then f := length(L)+1; + conmsg(Copy(L, 1, f-1)); + Delete(L, 1, f); + end; + end; + + //SetLength(ConsoleHistory, Length(ConsoleHistory)+1); + //ConsoleHistory[High(ConsoleHistory)] := L; + + (* +{$IFDEF HEADLESS} + e_WriteLog('CON: ' + L, MSG_NOTIFY); +{$ENDIF} + *) +end; + + +var + consolewriterLastWasEOL: Boolean = false; + +procedure consolewriter (constref buf; len: SizeUInt); +var + b: PByte; +begin + if (len < 1) then exit; + b := PByte(@buf); + consolewriterLastWasEOL := (b[len-1] = 13) or (b[len-1] = 10); + while (len > 0) do + begin + if (b[0] <> 13) and (b[0] <> 10) then + begin + cbufPut(Char(b[0])); + end + else + begin + if (len > 1) and (b[0] = 13) then begin len -= 1; b += 1; end; + cbufPut(#10); + end; + len -= 1; + b += 1; + end; +end; + + +// returns formatted string if `writerCB` is `nil`, empty string otherwise +//function formatstrf (const fmt: AnsiString; args: array of const; writerCB: TFormatStrFCallback=nil): AnsiString; +//TFormatStrFCallback = procedure (constref buf; len: SizeUInt); +procedure conwriteln (const s: AnsiString; show: Boolean=false); +begin + g_Console_Add(s, show); end; + +procedure conwritefln (const s: AnsiString; args: array of const; show: Boolean=false); +begin + if show then + begin + g_Console_Add(formatstrf(s, args), true); + end + else + begin + consolewriterLastWasEOL := false; + formatstrf(s, args, consolewriter); + if not consolewriterLastWasEOL then cbufPut(#10); + end; +end; + + procedure g_Console_Clear(); begin - ConsoleHistory := nil; - Offset := 0; + //ConsoleHistory := nil; + cbufClear(); + conSkipLines := 0; end; procedure AddToHistory(L: String); @@ -875,6 +1213,17 @@ begin if Trim(L) = '' then Exit; + conSkipLines := 0; // "unscroll" + + if L = 'goobers' then + begin + Line := ''; + CPos := 1; + gCheats := true; + g_Console_Add('Your memory serves you well.'); + exit; + end; + if not Quiet then begin g_Console_Add('> '+L); @@ -893,12 +1242,21 @@ begin AddToHistory(L); for i := 0 to High(Commands) do + begin if Commands[i].Cmd = LowerCase(Arr[0]) then - if @Commands[i].Proc <> nil then + begin + if assigned(Commands[i].ProcEx) then + begin + Commands[i].ProcEx(@Commands[i], Arr); + exit; + end; + if assigned(Commands[i].Proc) then begin Commands[i].Proc(Arr); - Exit; + exit; end; + end; + end; g_Console_Add(Format(_lc[I_CONSOLE_UNKNOWN], [Arr[0]])); end;