anchor.diff:  var I: Integer;
   begin
     inherited Create;
  -  fParsingMode := aMode;
  -  fDefaultLocation := 0;
  +
  +  Init(aMode);
   
     for I := 0 to High(fPlayerEnabled) do
       fPlayerEnabled[I] := True;
  
positive.code:   UT: TKMUnitType;
    iPlayerAI: TKMHandAI;
    ChooseLoc: TKMChooseLoc;
  begin
    Result := False; //Set it right from the start. There are several Exit points below
  
  
negative.code:                             end
                              else
                              begin
                                attackPos.Group := fLastTroop;
                                attackPos.Target := KMPoint(P[0]+1,P[1]+1);
                                fAttackPositions.Add(attackPos);
                              end
                            else
                              AddError('ct_AttackPosition without prior declaration of Troop');
  