equal
deleted
inserted
replaced
1143 gtHedgehog, |
1143 gtHedgehog, |
1144 gtMine, |
1144 gtMine, |
1145 gtCase, |
1145 gtCase, |
1146 gtTarget, |
1146 gtTarget, |
1147 gtFlame: begin |
1147 gtFlame: begin |
1148 {$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
1148 //{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} |
1149 if (Mask and EXPLNoDamage) = 0 then |
1149 if (Mask and EXPLNoDamage) = 0 then |
1150 begin |
1150 begin |
1151 inc(Gear^.Damage, dmg); |
1151 inc(Gear^.Damage, dmg); |
1152 if Gear^.Kind = gtHedgehog then |
1152 if Gear^.Kind = gtHedgehog then |
1153 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear) |
1153 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear) |