--- 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;