hedgewars/uTeams.pas
changeset 3112 f1bbe35ddb83
parent 3100 5fe9c4ac4c99
child 3165 3ec07a7d8456
--- a/hedgewars/uTeams.pas	Sat Mar 27 15:41:21 2010 +0000
+++ b/hedgewars/uTeams.pas	Sat Mar 27 15:48:59 2010 +0000
@@ -55,7 +55,7 @@
             King: boolean;  // Flag for a bunch of hedgehog attributes
             Unplaced: boolean;  // Flag for hog placing mode
             Timer: Longword;
-            Poisoned: boolean;
+            Effects: Array[THogEffect] of boolean;
             end;
 
     TTeam = record
@@ -365,7 +365,7 @@
           begin
           Hedgehogs[0].King:= true;
           Hedgehogs[0].Hat:= 'crown';
-					Hedgehogs[0].Poisoned := false;
+          Hedgehogs[0].Effects[hePoisoned] := false;
           h:= Hedgehogs[0].Gear^.Health;
           Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
           if Hedgehogs[0].Gear^.Health > h then