diff -r e2d2b84aa776 -r 4f59db6f147d hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Sun Feb 03 17:02:20 2008 +0000
+++ b/hedgewars/uTeams.pas	Tue Feb 05 17:53:38 2008 +0000
@@ -87,7 +87,6 @@
 procedure RecountTeamHealth(team: PTeam);
 procedure RestoreTeamsFromSave;
 function CheckForWin: boolean;
-procedure SetWeapon(weap: TAmmoType);
 procedure SendStats;
 
 implementation
@@ -319,19 +318,6 @@
    TeamsArray[t]^.ExtDriven:= false
 end;
 
-procedure SetWeapon(weap: TAmmoType);
-var t: LongInt;
-begin
-t:= cMaxSlotAmmoIndex;
-with CurrentTeam^ do
-     with Hedgehogs[CurrHedgehog] do
-          while (Ammo^[CurSlot, CurAmmo].AmmoType <> weap) and (t >= 0) do
-                begin
-                ParseCommand('/slot ' + chr(49 + Ammoz[TAmmoType(weap)].Slot), true);
-                dec(t)
-                end
-end;
-
 procedure SendStats;
 var i, t: LongInt;
     msd: Longword; msdhh: PHedgehog;