hedgewars/uTeams.pas
changeset 12415 8b971d8944d6
parent 12337 657a8d63c99d
child 12584 0411e04cf12a
--- a/hedgewars/uTeams.pas	Mon May 08 03:42:51 2017 +0200
+++ b/hedgewars/uTeams.pas	Fri May 12 16:53:29 2017 +0200
@@ -743,25 +743,6 @@
 end;
 
 
-procedure chFinish(var s:shortstring);
-var t: LongInt;
-begin
-// avoid compiler hint
-s:= s;
-
-isPaused:= false;
-
-t:= 0;
-while t < TeamsCount do
-    begin
-    TeamsArray[t]^.hasGone:= true;
-    inc(t)
-    end;
-
-AddChatString(#7 + '* Good-bye!');
-RecountAllTeamsHealth();
-end;
-
 procedure SwitchCurrentHedgehog(newHog: PHedgehog);
 var oldCI, newCI: boolean;
     oldHH: PHedgehog;
@@ -843,7 +824,6 @@
 RegisterVariable('bind', @chBind, true );
 RegisterVariable('teamgone', @chTeamGone, true );
 RegisterVariable('teamback', @chTeamBack, true );
-RegisterVariable('finish', @chFinish, true ); // all teams gone
 RegisterVariable('fort'    , @chFort         , false);
 RegisterVariable('grave'   , @chGrave        , false);
 RegisterVariable('hat'     , @chSetHat       , false);