hedgewars/uGearsUtils.pas
changeset 11867 f6d33710baff
parent 11848 6a0d6b00dac8
child 12048 475a1289f940
equal deleted inserted replaced
11866:afa8182003cc 11867:f6d33710baff
   173                                 if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) then
   173                                 if (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) then
   174                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   174                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   175                                 Gear^.Active:= true;
   175                                 Gear^.Active:= true;
   176                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   176                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   177                                 end;
   177                                 end;
   178                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) and (Gear^.State and gstHHDeath = 0) then
   178                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and
       
   179                                 (Gear^.Hedgehog^.Effects[heInvulnerable] = 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) and
       
   180                                 (Gear^.State and gstHHDeath = 0) then
   179                                 Gear^.Hedgehog^.Effects[hePoisoned] := 5;
   181                                 Gear^.Hedgehog^.Effects[hePoisoned] := 5;
   180                             end;
   182                             end;
   181 
   183 
   182                         end;
   184                         end;
   183                 gtGrave: if Mask and EXPLDoNotTouchAny = 0 then
   185                 gtGrave: if Mask and EXPLDoNotTouchAny = 0 then