hedgewars/uGearsUtils.pas
changeset 10012 82dd9f0c88f7
parent 10011 ead5e4b21671
child 10015 4feced261c68
equal deleted inserted replaced
10011:ead5e4b21671 10012:82dd9f0c88f7
   152                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   152                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   153                                 Gear^.Active:= true;
   153                                 Gear^.Active:= true;
   154                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   154                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   155                                 end;
   155                                 end;
   156                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) and (Gear^.State and gstHHDeath = 0) then
   156                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) and (Gear^.State and gstHHDeath = 0) then
   157                                 Gear^.Hedgehog^.Effects[hePoisoned] := 1;
   157                                 Gear^.Hedgehog^.Effects[hePoisoned] := 5;
   158                             end;
   158                             end;
   159 
   159 
   160                         end;
   160                         end;
   161                 gtGrave: if Mask and EXPLDoNotTouchAny = 0 then
   161                 gtGrave: if Mask and EXPLDoNotTouchAny = 0 then
   162 // Run the calcs only once we know we have a type that will need damage
   162 // Run the calcs only once we know we have a type that will need damage