equal
deleted
inserted
replaced
108 with TeamsArray[t]^ do |
108 with TeamsArray[t]^ do |
109 if not hasGone then |
109 if not hasGone then |
110 begin |
110 begin |
111 for i:= 0 to cMaxHHIndex do |
111 for i:= 0 to cMaxHHIndex do |
112 if (Hedgehogs[i].Gear <> nil) |
112 if (Hedgehogs[i].Gear <> nil) |
113 and (Hedgehogs[i].Gear <> ThinkingHH) then |
113 and (Hedgehogs[i].Gear <> ThinkingHH) |
|
114 and (Hedgehogs[i].Gear^.Health > Hedgehogs[i].Gear^.Damage) |
|
115 then |
114 begin |
116 begin |
115 with Targets.ar[Targets.Count], Hedgehogs[i] do |
117 with Targets.ar[Targets.Count], Hedgehogs[i] do |
116 begin |
118 begin |
117 skip:= false; |
119 skip:= false; |
118 Point.X:= hwRound(Gear^.X); |
120 Point.X:= hwRound(Gear^.X); |
119 Point.Y:= hwRound(Gear^.Y); |
121 Point.Y:= hwRound(Gear^.Y); |
120 if Clan <> CurrentTeam^.Clan then |
122 if Clan <> CurrentTeam^.Clan then |
121 begin |
123 begin |
122 Score:= Gear^.Health; |
124 Score:= Gear^.Health - Gear^.Damage; |
123 inc(e) |
125 inc(e) |
124 end else |
126 end else |
125 begin |
127 begin |
126 Score:= -Gear^.Health; |
128 Score:= Gear^.Damage - Gear^.Health; |
127 inc(f) |
129 inc(f) |
128 end |
130 end |
129 end; |
131 end; |
130 inc(Targets.Count) |
132 inc(Targets.Count) |
131 end; |
133 end; |
768 KnownExplosion.Radius:= 0; |
770 KnownExplosion.Radius:= 0; |
769 end; |
771 end; |
770 |
772 |
771 procedure freeModule; |
773 procedure freeModule; |
772 begin |
774 begin |
773 |
|
774 end; |
775 end; |
775 |
776 |
776 end. |
777 end. |