From c3d57d5e3e623994ca55362abfd99a62d8708000 Mon Sep 17 00:00:00 2001 From: Stas'M Date: Thu, 25 Jul 2019 20:05:45 +0300 Subject: [PATCH] Console: Fix copypasta --- src/game/g_console.pas | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/src/game/g_console.pas b/src/game/g_console.pas index b5e7710..fd7c366 100644 --- a/src/game/g_console.pas +++ b/src/game/g_console.pas @@ -243,24 +243,6 @@ end; procedure intVarHandler (me: PCommand; p: SSArray); - procedure binaryFlag (var flag: Boolean; msg: AnsiString); - 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 not me.cheat or conIsCheatsEnabled then flag := false else begin conwriteln('not available'); exit; end; - 1: if not me.cheat or conIsCheatsEnabled then flag := true else begin conwriteln('not available'); exit; end; - 666: if not me.cheat or conIsCheatsEnabled then flag := not flag else begin conwriteln('not available'); exit; end; - end; - if (Length(msg) = 0) then msg := p[0] else msg += ':'; - if flag then conwritefln('%s tan', [msg]) else conwritefln('%s ona', [msg]); - end; - end; begin if (Length(p) <> 2) then begin -- 2.29.2