hedgewars/uAIAmmoTests.pas
changeset 15743 b74ce48abdea
parent 15740 0a172cfe8840
child 15744 97a9ac5d4c83
equal deleted inserted replaced
15742:0b5aea8e5eab 15743:b74ce48abdea
  1940 
  1940 
  1941         if t >= -timeLimit then
  1941         if t >= -timeLimit then
  1942             if (Level = 1) and (Flags and amtest_NoTrackFall = 0) then
  1942             if (Level = 1) and (Flags and amtest_NoTrackFall = 0) then
  1943                 value:= RateExplosion(Me, EX, EY, 61, afTrackFall)
  1943                 value:= RateExplosion(Me, EX, EY, 61, afTrackFall)
  1944             else
  1944             else
  1945                 value:= RateExplosion(Me, EX, EY, 61);
  1945                 value:= RateExplosion(Me, EX, EY, 61)
       
  1946         else
       
  1947             value:= BadTurn;
  1946 
  1948 
  1947         if (value = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then
  1949         if (value = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then
  1948             value := BadTurn;
  1950             value := BadTurn;
  1949 
  1951 
  1950         if (valueResult < value) or ((valueResult = value) and (Level < 3)) then
  1952         if (valueResult < value) or ((valueResult = value) and (Level < 3)) then