X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_console.pas;h=72503f28f5695686087b8d6f5f74bb6f654e172a;hb=997a94053b44d7b4c6e149cd3e50463386ef730c;hp=27ca859c4167563426b36a324b4e0e4876db1b48;hpb=0968d19494ddf24230a822c02acbe3a3334bc3ad;p=d2df-sdl.git

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 27ca859..72503f2 100644
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 unit g_console;
 
 interface
@@ -27,7 +28,7 @@ implementation
 
 uses
   g_textures, g_main, e_graphics, e_input, g_game,
-  SysUtils, g_basic, g_options, WADEDITOR, Math,
+  SysUtils, g_basic, g_options, wadreader, Math,
   g_menu, g_language, g_net, g_netmsg, e_log;
 
 type
@@ -442,6 +443,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');
@@ -820,7 +833,7 @@ begin
       Time := MsgTime;
     end;
   end;
-  
+
 {$IFDEF HEADLESS}
   e_WriteLog('CON: ' + L, MSG_NOTIFY);
 {$ENDIF}
@@ -879,6 +892,15 @@ begin
   if Trim(L) = '' then
     Exit;
 
+  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);