hedgewars/uGears.pas
changeset 5681 5fc750c7f2b4
parent 5638 e35ba2a400d8
child 5689 48ef34701751
equal deleted inserted replaced
5680:c0107c991dda 5681:5fc750c7f2b4
  1298                                 if not Gear^.Invulnerable then
  1298                                 if not Gear^.Invulnerable then
  1299                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1299                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1300                                 Gear^.Active:= true;
  1300                                 Gear^.Active:= true;
  1301                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1301                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1302                                 end;
  1302                                 end;
  1303                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
  1303                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) and not Gear^.Invulnerable then
  1304                                 Gear^.Hedgehog^.Effects[hePoisoned] := true;
  1304                                 Gear^.Hedgehog^.Effects[hePoisoned] := true;
  1305                             end;
  1305                             end;
  1306 
  1306 
  1307                         end;
  1307                         end;
  1308                 gtGrave: begin
  1308                 gtGrave: begin