equal
deleted
inserted
replaced
644 gtCase, |
644 gtCase, |
645 gtFlame: begin |
645 gtFlame: begin |
646 if (Mask and EXPLNoDamage) = 0 then inc(Gear.Damage, dmg); |
646 if (Mask and EXPLNoDamage) = 0 then inc(Gear.Damage, dmg); |
647 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear.Kind <> gtHedgehog) then |
647 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear.Kind <> gtHedgehog) then |
648 begin |
648 begin |
649 Gear.dX:= Gear.dX + dmg / 200 * hwSign(Gear.X - X); |
649 Gear.dX:= Gear.dX + (dmg / 200 + cHHKick)* hwSign(Gear.X - X); |
650 Gear.dY:= Gear.dY + dmg / 200 * hwSign(Gear.Y - Y); |
650 Gear.dY:= Gear.dY + (dmg / 200 + cHHKick)* hwSign(Gear.Y - Y); |
651 Gear.Active:= true; |
651 Gear.Active:= true; |
652 FollowGear:= Gear |
652 FollowGear:= Gear |
653 end; |
653 end; |
654 end; |
654 end; |
655 gtGrave: begin |
655 gtGrave: begin |