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) |
113 and (Hedgehogs[i].Gear <> ThinkingHH) |
114 and (Hedgehogs[i].Gear^.Health > Hedgehogs[i].Gear^.Damage) |
114 and (Hedgehogs[i].Gear^.Health > Hedgehogs[i].Gear^.Damage) |
115 then |
115 then |
116 begin |
116 begin |
117 with Targets.ar[Targets.Count], Hedgehogs[i] do |
117 with Targets.ar[Targets.Count], Hedgehogs[i] do |
118 begin |
118 begin |
119 skip:= false; |
119 skip:= false; |
120 Point.X:= hwRound(Gear^.X); |
120 Point.X:= hwRound(Gear^.X); |
121 Point.Y:= hwRound(Gear^.Y); |
121 Point.Y:= hwRound(Gear^.Y); |
122 if Clan <> CurrentTeam^.Clan then |
122 if (Hedgehogs[i].Gear^.AIHints and aihDoesntMatter) <> 0 then |
123 begin |
123 Score:= 0 |
124 Score:= Gear^.Health - Gear^.Damage; |
124 else if Clan <> CurrentTeam^.Clan then |
125 inc(e) |
125 begin |
126 end else |
126 Score:= Gear^.Health - Gear^.Damage; |
127 begin |
127 inc(e) |
128 Score:= Gear^.Damage - Gear^.Health; |
128 end else |
129 inc(f) |
129 begin |
130 end |
130 Score:= Gear^.Damage - Gear^.Health; |
|
131 inc(f) |
|
132 end |
131 end; |
133 end; |
132 inc(Targets.Count) |
134 inc(Targets.Count) |
133 end; |
135 end; |
134 end; |
136 end; |
135 |
137 |