equal
deleted
inserted
replaced
774 gtFlame: begin |
774 gtFlame: begin |
775 {$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
775 {$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
776 if (Mask and EXPLNoDamage) = 0 then |
776 if (Mask and EXPLNoDamage) = 0 then |
777 begin |
777 begin |
778 inc(Gear^.Damage, dmg); |
778 inc(Gear^.Damage, dmg); |
779 uStats.HedgehogDamaged(Gear, dmg); |
|
780 if Gear^.Kind = gtHedgehog then |
779 if Gear^.Kind = gtHedgehog then |
|
780 begin |
|
781 uStats.HedgehogDamaged(Gear, dmg); |
781 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear) |
782 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear) |
|
783 end |
782 end; |
784 end; |
783 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then |
785 if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then |
784 begin |
786 begin |
785 DeleteCI(Gear); |
787 DeleteCI(Gear); |
786 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X)); |
788 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X)); |