# HG changeset patch
# User sheepluva
# Date 1427848957 -7200
# Node ID 294ef49efdd29939aeb4e891f365079ec0f65ce6
# Parent  ed7717f659ae3fcf1248909770b482c6e897d17e
terminate engine and output fatal error message if hedgehogs are added incorrectly

diff -r ed7717f659ae -r 294ef49efdd2 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Tue Mar 31 23:14:09 2015 +0300
+++ b/hedgewars/uTeams.pas	Wed Apr 01 02:42:37 2015 +0200
@@ -549,10 +549,12 @@
     Gear: PGear;
 begin
 s:= '';
-if (not isDeveloperMode) or (CurrentTeam = nil) then
+if (not isDeveloperMode) then
     exit;
+TryDo((CurrentTeam <> nil), 'Can''t add hedgehogs yet, add a team first!', true);
 with CurrentTeam^ do
     begin
+    TryDo(HedgehogsNumber<=cMaxHHIndex, 'Can''t add hedgehog to "' + TeamName + '"! (already ' + intToStr(HedgehogsNumber) + ' hogs)', true);
     SplitBySpace(id, s);
     SwitchCurrentHedgehog(@Hedgehogs[HedgehogsNumber]);
     CurrentHedgehog^.BotLevel:= StrToInt(id);