hedgewars/CCHandlers.inc
changeset 1849 2a989e5abda6
parent 1836 da31003c151f
child 1850 a0332e79fdc9
--- a/hedgewars/CCHandlers.inc	Fri Feb 27 21:40:13 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Mar 01 17:24:25 2009 +0000
@@ -364,14 +364,14 @@
 begin
 if (s[0] <> #1) or CheckNoTeamOrHH then exit;
 
-if TAmmoType(s[1]) > High(TAmmoType) then exit;
+if TAmmoType(LongInt(s[1])-33) > High(TAmmoType) then exit;
 
 if not CurrentTeam^.ExtDriven then SendIPC('w' + s);
 
 with CurrentHedgehog^.Gear^ do
      begin
      Message:= Message or gm_Weapon;
-     MsgParam:= byte(s[1])
+     MsgParam:= byte(LongInt(s[1])-33)
      end
 end;