X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_gui.pas;h=eb068102514c2f030fad1f629875513445b1de64;hb=512930af83dba9b49ac46a3520f7e8cb17f5d3c9;hp=1516d4452328ad0489451ced4163d0a7bf7463cc;hpb=240228685437b19769862f83a079ffd8a41f43b6;p=d2df-sdl.git

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 1516d44..eb06810 100644
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -13,7 +13,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
 unit g_gui;
 
 interface
@@ -2640,7 +2640,7 @@ begin
   if FModel = nil then
     Exit;
 
-  if FModel.Weapon < WEAPON_SUPERPULEMET then
+  if FModel.Weapon < WP_LAST then
     FModel.SetWeapon(FModel.Weapon+1)
   else
     FModel.SetWeapon(WEAPON_KASTET);