Simple Kasbah Mod

[historix69]

The following code modifies the Kasbah to yield 2 Food, 1 Production, 1 Gold, 1 Culture with an additional +1 Food near Fresh Water.
To compensate the increased yield, the Kasbah may only be placed on flat desert tiles and no 2 Kasbahs may be placed adjacent. (That's a maximum of only 12 tiles in case of a city completely surrounded by flat desert.)

Reason for modification is Marokko AI spamming the normal Kasbah improvement on every desert tile which looks silly.

The +1 Food near Fresh Water was tricky since "Improvement_FreshWaterYields" which I tried first did not work.

Spoiler :

<GameData>
  <!-- TODO: Insert table creation example here. -->
 
  <!-- TODO: Insert table data example here.-->
  
  <!-- Enter your Game Data here. -->

	<Improvements>

		<Update>
			<Where Type="IMPROVEMENT_KASBAH"/>
			<Set RequiresFlatlands="true"/>			
		</Update>		

		<Update>
			<Where Type="IMPROVEMENT_KASBAH"/>
			<Set NoTwoAdjacent="true"/>
		</Update>

	</Improvements>

	<Improvement_Yields>

		<Update>
			<Where ImprovementType="IMPROVEMENT_KASBAH" YieldType="YIELD_FOOD"/>
			<Set Yield="2"/>
		</Update>

		<Row>
			<ImprovementType>IMPROVEMENT_KASBAH</ImprovementType>
			<YieldType>YIELD_CULTURE</YieldType>
			<Yield>1</Yield>
		</Row>		
		
	</Improvement_Yields>

	<!-- +1 Food near Fresh Water -->

	<Improvement_TechFreshWaterYieldChanges>
		<Row>
			<ImprovementType>IMPROVEMENT_KASBAH</ImprovementType>
			<TechType>TECH_CHIVALRY</TechType>
			<YieldType>YIELD_FOOD</YieldType>
			<Yield>1</Yield>
		</Row>
	</Improvement_TechFreshWaterYieldChanges>
	
	
	
	<!-- for testing only -->

	<!-- 
	<Builds>
		<Update>
			<Where Type="BUILD_KASBAH"/>
			<Set PrereqTech="TECH_AGRICULTURE"/>			
		</Update>

		<Update>
			<Where Type="BUILD_KASBAH"/>
			<Set Time="100"/>
		</Update>
	
	</Builds>	
	-->
	
	
	<!-- for future use

	<Improvement_TechYieldChanges>		
		<Row>
			<ImprovementType>IMPROVEMENT_KASBAH</ImprovementType>
			<TechType>TECH_FLIGHT</TechType>
			<YieldType>YIELD_CULTURE</YieldType>
			<Yield>1</Yield>
		</Row>
		<Row>
			<ImprovementType>IMPROVEMENT_KASBAH</ImprovementType>
			<TechType>TECH_FLIGHT</TechType>
			<YieldType>YIELD_GOLD</YieldType>
			<Yield>1</Yield>
		</Row>
	</Improvement_TechYieldChanges>
	
	-->	
	
  
</GameData>