36     Flags: LongWord;

    36     State: LongWord;

   149             Flags:= Gear^.State;

   149             State:= Gear^.State;

   397                             (((Flags and gstTmpFlag <> 0) and (dxdy > 0.35)) or

   397                             (((State and gstTmpFlag <> 0) and (dxdy > 0.35)) or

   398                              ((Flags and gstTmpFlag <> 0) and 

   398                              ((State and gstTmpFlag <> 0) and 

   449                             (((Flags and gstTmpFlag <> 0) and (dxdy > 0.35)) or

   449                             (((State and gstTmpFlag <> 0) and (dxdy > 0.35)) or

   450                              ((Flags and gstTmpFlag <> 0) and 

   450                              ((State and gstTmpFlag <> 0) and 

   594       if skip then

   594         if skip then

   595         if (Flags and afSetSkip = 0) then skip:= false else {still skip}

   595             begin

   596       else if matters then

   596             if Flags and afSetSkip = 0 then skip:= false

   597         begin

   597             end

   598         dmg:= 0;

   598         else if matters then

   599         if abs(Point.x - x) + abs(Point.y - y) < r then

   599             begin

   600             dmg:= r - trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));

   600             dmg:= 0;

   601 

   601             if abs(Point.x - x) + abs(Point.y - y) < r then

   602         if dmg > 0 then

   602                 dmg:= r - trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));

   603             begin

   603 

   604             pX:= Point.x;

   604             if dmg > 0 then

   605             pY:= Point.y-2;

   606             fallDmg:= 0;

   607             if (Flags and afSetSkip <> 0) then skip:= true;

   608             if (Flags and afTrackFall <> 0) and (Score > 0) then

   609                 fallDmg:= trunc(TraceShoveFall(pX, pY, dX, dY, Targets.ar[i]) * dmgMod);

   610             if Kind = gtHedgehog then

   612                 if fallDmg < 0 then // drowning. score healthier hogs higher, since their death is more likely to benefit the AI

   606                 pX:= Point.x;

   613                     begin

   607                 pY:= Point.y-2;

   614                     if Score > 0 then

   608                 fallDmg:= 0;

   615                         inc(rate, KillScore + Score div 10)   // Add a bit of a bonus for bigger hog drownings

   609                 if (Flags and afSetSkip <> 0) then skip:= true;

   610                 if (Flags and afTrackFall <> 0) and (Score > 0) then

   611                     fallDmg:= trunc(TraceShoveFall(pX, pY, dX, dY, Targets.ar[i]) * dmgMod);

   612                 if Kind = gtHedgehog then

   613                     begin

   614                     if fallDmg < 0 then // drowning. score healthier hogs higher, since their death is more likely to benefit the AI

   615                         begin

   616                         if Score > 0 then

   617                             inc(rate, KillScore + Score div 10)   // Add a bit of a bonus for bigger hog drownings

   618                         else

   619                             dec(rate, KillScore * friendlyfactor div 100 - Score div 10) // and more of a punishment for drowning bigger friendly hogs

   620                         end

   621                     else if power+fallDmg >= abs(Score) then

   622                         begin

   623                         dead:= true;

   624                         Targets.reset:= true;

   625                         if dX < 0.035 then

   626                             begin

   627                             subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);

   628                             if abs(subrate) > 2000 then inc(Rate,subrate div 1024)

   629                             end;

   630                         if Score > 0 then

   631                             inc(rate, KillScore)

   632                         else

   633                             dec(rate, KillScore * friendlyfactor div 100)

   634                         end

   617                         dec(rate, KillScore * friendlyfactor div 100 - Score div 10) // and more of a punishment for drowning bigger friendly hogs

   636                         begin

   637                         if Score > 0 then

   638                             inc(rate, power+fallDmg)

   639                         else

   640                             dec(rate, (power+fallDmg) * friendlyfactor div 100)

   641                         end

   619                 else if power+fallDmg >= abs(Score) then

   643                 else if (fallDmg >= 0) and ((dmg+fallDmg) >= Score) then

   623                     if dX < 0.035 then

   647                     if Kind = gtExplosives then

   624                         begin

   648                          subrate:= RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall))

   625                         subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);

   649                     else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));

   626                         if abs(subrate) > 2000 then inc(Rate,subrate div 1024)

   650                     if abs(subrate) > 2000 then inc(Rate,subrate div 1024);

   627                         end;

   628                     if Score > 0 then

   629                         inc(rate, KillScore)

   630                     else

   631                         dec(rate, KillScore * friendlyfactor div 100)

   632                     end

   633                 else

   634                     begin

   635                     if Score > 0 then

   636                         inc(rate, power+fallDmg)

   637                     else

   638                         dec(rate, (power+fallDmg) * friendlyfactor div 100)

   641             else if (fallDmg >= 0) and ((dmg+fallDmg) >= Score) then

   653             end;

   642                 begin

   643                 dead:= true;

   644                 Targets.reset:= true;

   645                 if Kind = gtExplosives then

   646                      subrate:= RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall))

   647                 else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));

   648                 if abs(subrate) > 2000 then inc(Rate,subrate div 1024);

   649                 end

   650             end

   651         end;