Fix DismissTeam not clearing the team properly
authorWuzzy <Wuzzy2@mail.ru>
Wed, 16 Jan 2019 23:43:23 +0100
changeset 14639 7c5a9c1b9d4e
parent 14638 244699a97734
child 14640 03033213e800
Fix DismissTeam not clearing the team properly
hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Wed Jan 16 22:48:48 2019 +0100
+++ b/hedgewars/uScript.pas	Wed Jan 16 23:43:23 2019 +0100
@@ -2541,6 +2541,8 @@
                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
                             end;
                         HHGear^.Message:= HHGear^.Message or gmDestroy;
+                        HHGear^.Active:= true;
+                        AllInactive:= false;
                         end;
                     end;
                 // can't dismiss more than one team