hedgewars/uAmmos.pas
changeset 784 b203147d91b5
parent 783 4f59db6f147d
child 883 07a568ba44e0
equal deleted inserted replaced
783:4f59db6f147d 784:b203147d91b5
   215         end
   215         end
   216 end;
   216 end;
   217 
   217 
   218 procedure SetWeapon(weap: TAmmoType);
   218 procedure SetWeapon(weap: TAmmoType);
   219 begin
   219 begin
   220 ParseCommand('/setweap ' + chr(ord('a') + byte(weap)), true)
   220 ParseCommand('/setweap ' + char(weap), true)
   221 end;
   221 end;
   222 
   222 
   223 end.
   223 end.