# HG changeset patch # User nemo # Date 1330298006 18000 # Node ID 9d8763deee4296473d9b5811117cd9aec0d5a4d4 # Parent 3f85b103f29f4589ddc7481ccee29eddbbcaaab7 don't use currenthedgehog diff -r 3f85b103f29f -r 9d8763deee42 hedgewars/uAI.pas --- a/hedgewars/uAI.pas Sun Feb 26 16:31:25 2012 -0500 +++ b/hedgewars/uAI.pas Sun Feb 26 18:13:26 2012 -0500 @@ -118,7 +118,7 @@ for i:= 0 to Pred(Targets.Count) do if (Targets.ar[i].Score >= 0) and (not StopThinking) then begin - with CurrentHedgehog^ do + with Me^.Hedgehog^ do a:= CurAmmoType; aa:= a; {$IFDEF USE_SDLTHREADS} @@ -334,6 +334,7 @@ itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber; until (itHedgehog = currHedgehogIndex) or (CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil); + inc(switchesNum); until (not (switchImmediatelyAvailable or switchAvailable)) or StopThinking