Game: Use proper syntax of sets for game options instead of raw bitwise operations

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

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index b8b19999fb4728c9edcbe2b880d1373e98d455aa..55302688c55c807547219faa4d47d2c81bf5d1e1 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -2675,10 +2675,9 @@ begin
   if FModel = nil then
     Exit;
 
-  if FModel.Weapon < WP_LAST then
-    FModel.SetWeapon(FModel.Weapon+1)
-  else
-    FModel.SetWeapon(WEAPON_KASTET);
+  if FModel.Weapon < WP_LAST
+    then FModel.SetWeapon(FModel.Weapon+1)
+    else FModel.SetWeapon(WEAPON_IRONFIST);
 end;
 
 procedure TGUIModelView.OnMessage(var Msg: TMessage);
@@ -3232,13 +3231,13 @@ begin
                   begin
                     if FItems[FIndex] = #29 + '..' then
                     begin
-                      e_LogWritefln('TGUIFileListBox: Upper dir "%s" -> "%s"', [FSubPath, e_UpperDir(FSubPath)]);
+                      //e_LogWritefln('TGUIFileListBox: Upper dir "%s" -> "%s"', [FSubPath, e_UpperDir(FSubPath)]);
                       FSubPath := e_UpperDir(FSubPath)
                     end
                     else
                     begin
                       s := Copy(AnsiString(FItems[FIndex]), 2);
-                      e_LogWritefln('TGUIFileListBox: Enter dir "%s" -> "%s"', [FSubPath, e_CatPath(FSubPath, s)]);
+                      //e_LogWritefln('TGUIFileListBox: Enter dir "%s" -> "%s"', [FSubPath, e_CatPath(FSubPath, s)]);
                       FSubPath := e_CatPath(FSubPath, s);
                     end;
                     ScanDirs;