anchor.diff:  
     for I := 0 to Count - 1 do
     if (Members[I].UID = aUID) and not Members[I].IsDead then
  -  begin
  -    Result := Members[I];
  -    Break;
  -  end;
  +    Exit(Members[I]);
   end;
   
   
  
positive.code:   if (U <> nil) and (U is TKMUnitWarrior) then
    for I := 0 to Count - 1 do
      if Groups[I].HitTest(X,Y) then
      begin
        Result := Groups[I];
        Break;
      end;
  end;
  
  
  
negative.code: 
  
  procedure TKMUnitGroup.ClearOffenders;
  var
    I: Integer;
    U: TKMUnit;
  begin
    for I := fOffenders.Count - 1 downto 0 do
    begin
  