hedgewars/uAmmos.pas
changeset 1849 2a989e5abda6
parent 1784 dfe9bafb4590
child 1850 a0332e79fdc9
--- a/hedgewars/uAmmos.pas	Fri Feb 27 21:40:13 2009 +0000
+++ b/hedgewars/uAmmos.pas	Sun Mar 01 17:24:25 2009 +0000
@@ -225,7 +225,7 @@
 
 procedure SetWeapon(weap: TAmmoType);
 begin
-ParseCommand('/setweap ' + char(weap), true)
+ParseCommand('/setweap ' + char(LongInt(weap)+33), true)
 end;
 
 procedure DisableSomeWeapons;