equal
deleted
inserted
replaced
1040 if (Gear^.Kind = gtHedgehog) then |
1040 if (Gear^.Kind = gtHedgehog) then |
1041 begin |
1041 begin |
1042 Gear^.LastDamage := AttackerHog; |
1042 Gear^.LastDamage := AttackerHog; |
1043 |
1043 |
1044 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
1044 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
1045 uStats.HedgehogDamaged(Gear, AttackerHog); |
|
1046 HHHurt(Gear^.Hedgehog, Source); |
1045 HHHurt(Gear^.Hedgehog, Source); |
1047 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, Gear^.Hedgehog^.Team^.Clan^.Color); |
1046 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, Gear^.Hedgehog^.Team^.Clan^.Color); |
1048 tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage)); |
1047 tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage)); |
1049 if (Gear <> CurrentHedgehog^.Gear) and (CurrentHedgehog^.Gear <> nil) and (tmpDmg >= 1) then |
1048 if (Gear <> CurrentHedgehog^.Gear) and (CurrentHedgehog^.Gear <> nil) and (tmpDmg >= 1) then |
1050 begin |
1049 begin |
1082 end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure |
1081 end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure |
1083 begin |
1082 begin |
1084 Gear^.Hedgehog:= AttackerHog; |
1083 Gear^.Hedgehog:= AttackerHog; |
1085 end; |
1084 end; |
1086 inc(Gear^.Damage, Damage); |
1085 inc(Gear^.Damage, Damage); |
|
1086 |
|
1087 uStats.HedgehogDamaged(Gear, AttackerHog); |
1087 ScriptCall('onGearDamage', Gear^.UID, Damage); |
1088 ScriptCall('onGearDamage', Gear^.UID, Damage); |
1088 end; |
1089 end; |
1089 |
1090 |
1090 procedure SetAllToActive; |
1091 procedure SetAllToActive; |
1091 var t: PGear; |
1092 var t: PGear; |