hedgewars/uAIMisc.pas
changeset 15753 72f735c03fec
parent 15728 cc8882e46784
child 15900 128ace913837
child 15959 723be7e392e5
equal deleted inserted replaced
15752:f09db263bc2a 15753:72f735c03fec
   889     hadSkips: boolean;
   889     hadSkips: boolean;
   890 begin
   890 begin
   891 meX:= Me^.X;
   891 meX:= Me^.X;
   892 meY:= Me^.Y;
   892 meY:= Me^.Y;
   893 rate:= 0;
   893 rate:= 0;
       
   894 hadSkips:= false;
   894 for i:= 0 to Targets.Count do
   895 for i:= 0 to Targets.Count do
   895     if not Targets.ar[i].dead then
   896     if not Targets.ar[i].dead then
   896         with Targets.ar[i] do
   897         with Targets.ar[i] do
   897             begin
   898             begin
   898             pX:= Point.X;
   899             pX:= Point.X;
   973     hadSkips: boolean;
   974     hadSkips: boolean;
   974 begin
   975 begin
   975 meX:= Me^.X;
   976 meX:= Me^.X;
   976 meY:= Me^.Y;
   977 meY:= Me^.Y;
   977 rate:= 0;
   978 rate:= 0;
       
   979 hadSkips:= false;
   978 for i:= 0 to Targets.Count do
   980 for i:= 0 to Targets.Count do
   979     if (Targets.ar[i].Kind = gtGrave) and (not Targets.ar[i].dead) then
   981     if (Targets.ar[i].Kind = gtGrave) and (not Targets.ar[i].dead) then
   980         with Targets.ar[i] do
   982         with Targets.ar[i] do
   981             begin
   983             begin
   982             pX:= Point.X;
   984             pX:= Point.X;