hedgewars/uAmmos.pas
changeset 784 b203147d91b5
parent 783 4f59db6f147d
child 883 07a568ba44e0
--- a/hedgewars/uAmmos.pas	Tue Feb 05 17:53:38 2008 +0000
+++ b/hedgewars/uAmmos.pas	Tue Feb 05 18:25:46 2008 +0000
@@ -217,7 +217,7 @@
 
 procedure SetWeapon(weap: TAmmoType);
 begin
-ParseCommand('/setweap ' + chr(ord('a') + byte(weap)), true)
+ParseCommand('/setweap ' + char(weap), true)
 end;
 
 end.