hedgewars/uAIAmmoTests.pas
changeset 15836 f7875779d910
parent 15749 82fd124e6512
child 15840 8553c51a9ec8
equal deleted inserted replaced
15835:f0f615dcbe7c 15836:f7875779d910
  1666     // calculate score
  1666     // calculate score
  1667     for i:= 0 to 5 do
  1667     for i:= 0 to 5 do
  1668         if dmg[i] <> BadTurn then
  1668         if dmg[i] <> BadTurn then
  1669             inc(value, dmg[i]);
  1669             inc(value, dmg[i]);
  1670     t:= value;
  1670     t:= value;
  1671     targetX:= Targ.Point.X - 60;
  1671     targetX:= Targ.Point.X - 60 - cShift;
  1672 
  1672 
  1673     for i:= 0 to 3 do
  1673     for i:= 0 to 3 do
  1674         if dmg[i] <> BadTurn then
  1674         if dmg[i] <> BadTurn then
  1675             begin
  1675             begin
  1676             dec(t, dmg[i]);
  1676             dec(t, dmg[i]);