equal
deleted
inserted
replaced
675 {$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
675 {$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
676 if (Mask and EXPLNoDamage) = 0 then inc(Gear^.Damage, dmg); |
676 if (Mask and EXPLNoDamage) = 0 then inc(Gear^.Damage, dmg); |
677 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then |
677 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then |
678 begin |
678 begin |
679 Gear^.dX:= Gear^.dX + (_0_005 * dmg + cHHKick) * hwSign(Gear^.X - X); |
679 Gear^.dX:= Gear^.dX + (_0_005 * dmg + cHHKick) * hwSign(Gear^.X - X); |
680 addfilelog(' >> _0_005 * dmg = '+floattostr(_0_005 * dmg)); |
|
681 addfilelog(' >> dx = '+floattostr(Gear^.dX)); |
|
682 Gear^.dY:= Gear^.dY + (_0_005 * dmg + cHHKick) * hwSign(Gear^.Y - Y); |
680 Gear^.dY:= Gear^.dY + (_0_005 * dmg + cHHKick) * hwSign(Gear^.Y - Y); |
683 Gear^.Active:= true; |
681 Gear^.Active:= true; |
684 FollowGear:= Gear |
682 FollowGear:= Gear |
685 end; |
683 end; |
686 end; |
684 end; |