put "{$MODE ...}" directive in each source file; removed trailing spaces, and convert...

[d2df-sdl.git] / src / game / g_console.pas

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 4898bfb113ed2dacad7e59213b5cfaf464dcf02e..8b9ef250a34b6c3fff8d245cd63acd70af04bdb0 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 unit g_console;
 
 interface
@@ -27,8 +28,8 @@ 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, wadreader, Math,
+  g_menu, g_language, g_net, g_netmsg, e_log;
 
 type
   TCmdProc = procedure (P: SArray);
@@ -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,6 +833,10 @@ begin
       Time := MsgTime;
     end;
   end;
+
+{$IFDEF HEADLESS}
+  e_WriteLog('CON: ' + L, MSG_NOTIFY);
+{$ENDIF}
 end;
 
 procedure g_Console_Clear();