anchor.diff:    //Verify all input parameters
     if InRange(aPlayer, 0, fPlayers.Count - 1)
     and InRange(aCount, 0, High(Word))
  -  and (aType in [Low(WareIndexToType)..High(WareIndexToType)]) then
  +  and (aType in [Low(WareIndexToType) .. High(WareIndexToType)]) then
     begin
       H := fPlayers[aPlayer].FindHouse(ht_Store, 1);
       if H <> nil then
  
positive.code:   //Verify all input parameters
    if InRange(aPlayer, 0, fPlayers.Count - 1)
    and InRange(aCount, 0, High(Word))
    and (WareIndexToType[aType] in [WARFARE_MIN..WARFARE_MAX]) then
    begin
      H := fPlayers[aPlayer].FindHouse(ht_Barracks, 1);
      if H <> nil then
  
negative.code: 
  
  function TKMScriptActions.GiveAnimal(aType, X, Y: Word): Integer;
  var
    U: TKMUnit;
  begin
    Result := -1;
  
    //Verify all input parameters
    if (aType in [UnitTypeToIndex[ANIMAL_MIN] .. UnitTypeToIndex[ANIMAL_MAX]])
    and gTerrain.TileInMapCoords(X, Y) then
    begin
      U := fPlayers.PlayerAnimals.AddUnit(UnitIndexToType[aType], KMPoint(X,Y));
      if U <> nil then
  