181 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or |
181 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or |
182 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t <= 0); |
182 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t <= 0); |
183 |
183 |
184 EX:= trunc(x); |
184 EX:= trunc(x); |
185 EY:= trunc(y); |
185 EY:= trunc(y); |
186 if Level = 1 then |
186 if (((Me = CurrentHedgehog^.Gear) and TestColl(EX, EY, 3)) or |
187 value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand) |
187 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, EX, EY, 3))) then |
188 else value:= RateExplosion(Me, EX, EY, 101); |
188 begin |
|
189 if Level = 1 then |
|
190 value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand) |
|
191 else value:= RateExplosion(Me, EX, EY, 101); |
|
192 end; |
189 if (value = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then |
193 if (value = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then |
190 if GameFlags and gfSolidLand = 0 then |
194 if GameFlags and gfSolidLand = 0 then |
191 value := 1024 - Metric(Targ.Point.X, Targ.Point.Y, EX, EY) div 64 |
195 value := 1024 - Metric(Targ.Point.X, Targ.Point.Y, EX, EY) div 64 |
192 else value := BadTurn; |
196 else value := BadTurn; |
193 if valueResult <= value then |
197 if valueResult <= value then |