ri-multi.per

;Research/Upgrades

;---Economic---
;Town Center
(defrule
	(up-can-research 0 c: ri-loom)
	(game-time > 600)
=>
	(up-research 0 c: ri-loom)
)
(defrule
	(up-can-research 0 c: ri-wheel-barrow)
=>
	(up-research 0 c: ri-wheel-barrow)
)
(defrule
	(up-can-research 0 c: ri-hand-cart)
=>
	(up-research 0 c: ri-hand-cart)
)
(defrule
	(up-can-research 0 c: ri-town-watch)
=>
	(up-research 0 c: ri-town-watch)
)
(defrule
	(up-can-research 0 c: ri-town-patrol)
=>
	(up-research 0 c: ri-town-patrol)
)

;Mill
(defrule
	(up-can-research 0 c: ri-horse-collar)
=>
	(up-research 0 c: ri-horse-collar)
)
(defrule
	(up-can-research 0 c: ri-heavy-plow)
=>
	(up-research 0 c: ri-heavy-plow)
)
(defrule
	(up-can-research 0 c: ri-crop-rotation)
=>
	(up-research 0 c: ri-crop-rotation)
)

;Lumber Camp
(defrule
	(up-can-research 0 c: ri-double-bit-axe)
=>
	(up-research 0 c: ri-double-bit-axe)
)
(defrule
	(up-can-research 0 c: ri-bow-saw)
=>
	(up-research 0 c: ri-bow-saw)
)
(defrule
	(up-can-research 0 c: ri-two-man-saw)
=>
	(up-research 0 c: ri-two-man-saw)
)

;Mining Camp
(defrule
	(up-can-research 0 c: ri-gold-mining)
=>
	(up-research 0 c: ri-gold-mining)
)
(defrule
	(up-can-research 0 c: ri-gold-shaft-mining)
=>
	(up-research 0 c: ri-gold-shaft-mining)
)
(defrule
	(up-can-research 0 c: ri-stone-mining)
=>
	(up-research 0 c: ri-stone-mining)
)
(defrule
	(up-can-research 0 c: ri-stone-shaft-mining)
=>
	(up-research 0 c: ri-stone-shaft-mining)
)

;Market
(defrule
	(up-can-research 0 c: ri-coinage)
=>
	(up-research 0 c: ri-coinage)
)
(defrule
	(up-can-research 0 c: ri-banking)
=>
	(up-research 0 c: ri-banking)
)

;---Monestry---
(defrule
	(up-can-research 0 c: ri-faith)
=>
	(up-research 0 c: ri-faith)
)
(defrule
	(up-can-research 0 c: ri-heresy)
=>
	(up-research 0 c: ri-heresy)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-redemption)
=>
	(up-research 0 c: ri-redemption)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-atonement)
=>
	(up-research 0 c: ri-atonement)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-fervor)
=>
	(up-research 0 c: ri-fervor)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-sanctity)
=>
	(up-research 0 c: ri-sanctity)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-block-printing)
=>
	(up-research 0 c: ri-block-printing)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-illumination)
=>
	(up-research 0 c: ri-illumination)
)
(defrule
	(up-compare-const unit5 == monk)
	(up-can-research 0 c: ri-theocracy)
=>
	(up-research 0 c: ri-theocracy)
)

;---University---
(defrule
	(up-can-research 0 c: ri-ballistics)
=>
	(up-research 0 c: ri-ballistics)
)
(defrule
	(up-can-research 0 c: ri-murder-holes)
=>
	(up-research 0 c: ri-murder-holes)
)
(defrule
	(up-can-research 0 c: ri-masonry)
=>
	(up-research 0 c: ri-masonry)
)
;Uknown Identifier
;(defrule
;	(up-can-research 0 c: ri-treadmill-crane)
;=>
;	(up-research 0 c: ri-treadmill-crane)
;	(disable-self)
;)
(defrule
	(up-can-research 0 c: ri-architecture)
=>
	(up-research 0 c: ri-architecture)
)
;Uknown Identifier
;(defrule
;	(civ-selected sicilians)
;	(up-can-research 0 c: ri-arrow-slits)
;=>
;	(up-research 0 c: ri-arrow-slits)
;	(disable-self)
;)
(defrule
	(up-compare-const research-siege == 1)
	(up-can-research 0 c: ri-siege-engineers)
=>
	(up-research 0 c: ri-siege-engineers)
)
(defrule
	(or
		(or
			(civ-selected spanish)
			(up-compare-const unit4 == hand-cannoneer)
		)
		(up-compare-const siege3 == bombard-cannon)
	)
	(up-can-research 0 c: ri-chemistry)
=>
	(up-research 0 c: ri-chemistry)
)

;---Blacksmith---
;Archer
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-padded-archer-armor)
=>
	(up-research 0 c: ri-padded-archer-armor)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-padded-archer-armor)
=>
	(up-research 0 c: ri-padded-archer-armor)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-padded-archer-armor)
=>
	(up-research 0 c: ri-padded-archer-armor)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-leather-archer-armor)
=>
	(up-research 0 c: ri-padded-archer-armor)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-ring-archer-armor)
=>
	(up-research 0 c: ri-padded-archer-armor)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-fletching)
=>
	(up-research 0 c: ri-fletching)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-bodkin-arrow)
=>
	(up-research 0 c: ri-bodkin-arrow)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-bracer)
=>
	(up-research 0 c: ri-bracer)
)

;Melee-Atk
(defrule
	(up-can-research 0 c: ri-forging)
	(up-compare-const research-melee-atk == 1)
=>
	(up-research 0 c: ri-forging)
)
(defrule
	(up-compare-const research-melee-atk == 1)
	(up-can-research 0 c: ri-iron-casting)
=>
	(up-research 0 c: ri-iron-casting)
)
(defrule
	(up-compare-const research-melee-atk == 1)
	(up-can-research 0 c: ri-blast-furnace)
=>
	(up-research 0 c: ri-blast-furnace)
)

;Melee-Def
(defrule
	(up-compare-const research-melee-def == 1)
	(up-can-research 0 c: ri-scale-mail)
=>
	(up-research 0 c: ri-scale-mail)
)
(defrule
	(up-compare-const research-melee-def == 1)
	(up-can-research 0 c: ri-chain-mail)
=>
	(up-research 0 c: ri-chain-mail)
)
(defrule
	(up-compare-const research-melee-def == 1)
	(up-can-research 0 c: ri-plate-mail)
=>
	(up-research 0 c: ri-plate-mail)
)

;Cavalry
(defrule
	(up-compare-const research-cavalry == 1)
	(up-can-research 0 c: ri-scale-barding)
=>
	(up-research 0 c: ri-scale-barding)
)
(defrule
	(up-compare-const research-cavalry == 1)
	(up-can-research 0 c: ri-chain-barding)
=>
	(up-research 0 c: ri-chain-barding)
)
(defrule
	(up-compare-const research-cavalry == 1)
	(up-can-research 0 c: ri-plate-barding)
=>
	(up-research 0 c: ri-plate-barding)
)

;Unique Unit
(defrule
	(up-compare-const unit3 == my-unique-unit)
	(up-can-research 0 c: my-unique-unit-upgrade)
=>
	(up-research 0 c: my-unique-unit-upgrade)
)

;Archer Unit
(defrule
	(or
		(up-compare-const unit1 == archer-line)
		(up-compare-const unit2 == archer-line)
	)
	(up-can-research 0 c: ri-crossbow)
=>
	(up-research 0 c: ri-crossbow)
)
(defrule
	(or
		(up-compare-const unit1 == archer-line)
		(up-compare-const unit2 == archer-line)
	)
	(up-can-research 0 c: ri-arbalest)
=>
	(up-research 0 c: ri-arbalest)
)
(defrule
	(or
		(up-compare-const unit1 == skirmisher-line)
		(up-compare-const unit2 == skirmisher-line)
	)
	(up-can-research 0 c: ri-elite-skirmisher)
=>
	(up-research 0 c: ri-elite-skirmisher)
)
(defrule
	(or
		(up-compare-const unit1 == skirmisher-line)
		(up-compare-const unit2 == skirmisher-line)
	)
	(up-can-research 0 c: ri-imperial-skirmisher)
=>
	(up-research 0 c: ri-imperial-skirmisher)
)
(defrule
	(or
		(up-compare-const unit1 == cavalry-archer-line)
		(up-compare-const unit2 == cavalry-archer-line)
	)
	(up-can-research 0 c: ri-heavy-cavalry-archer)
=>
	(up-research 0 c: ri-heavy-cavalry-archer)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-thumb-ring)
=>
	(up-research 0 c: ri-thumb-ring)
)
(defrule
	(up-compare-const research-archer == 1)
	(up-can-research 0 c: ri-parthian-tactics)
=>
	(up-research 0 c: ri-parthian-tactics)
)

;Barracks Unit
(defrule
	(or
		(up-compare-const unit1 == militiaman-line)
		(up-compare-const unit2 == militiaman-line)
	)
	(up-can-research 0 c: ri-man-at-arms)
=>
	(up-research 0 c: ri-man-at-arms)
)
(defrule
	(or
		(up-compare-const unit1 == militiaman-line)
		(up-compare-const unit2 == militiaman-line)
	)
	(up-can-research 0 c: ri-long-swordsman)
=>
	(up-research 0 c: ri-long-swordsman)
)
(defrule
	(or
		(up-compare-const unit1 == militiaman-line)
		(up-compare-const unit2 == militiaman-line)
	)
	(up-can-research 0 c: ri-two-handed-swordsman)
=>
	(up-research 0 c: ri-two-handed-swordsman)
)
(defrule
	(or
		(up-compare-const unit1 == militiaman-line)
		(up-compare-const unit2 == militiaman-line)
	)
	(up-can-research 0 c: ri-champion)
=>
	(up-research 0 c: ri-champion)
)
(defrule
	(or
		(up-compare-const unit1 == spearman-line)
		(up-compare-const unit2 == spearman-line)
	)
	(up-can-research 0 c: ri-pikeman)
=>
	(up-research 0 c: ri-pikeman)
)
(defrule
	(or
		(up-compare-const unit1 == spearman-line)
		(up-compare-const unit2 == spearman-line)
	)
	(up-can-research 0 c: ri-halberdier)
=>
	(up-research 0 c: ri-halberdier)
)
(defrule
	(or
		(up-compare-const unit1 == eagle-warrior-line)
		(up-compare-const unit2 == eagle-warrior-line)
	)
	(up-can-research 0 c: ri-eagle-warrior)
=>
	(up-research 0 c: ri-eagle-warrior)
)
(defrule
	(or
		(up-compare-const unit1 == eagle-warrior-line)
		(up-compare-const unit2 == eagle-warrior-line)
	)
	(up-can-research 0 c: ri-elite-eagle-warrior)
=>
	(up-research 0 c: ri-elite-eagle-warrior)
)
(defrule
	(or
		(up-compare-const unit1 == militiaman-line)
		(up-compare-const unit2 == militiaman-line)
	)
	(up-can-research 0 c: ri-supplies)
=>
	(up-research 0 c: ri-supplies)
)
(defrule
	(or
		(or
			(up-compare-const unit1 == militiaman-line)
			(up-compare-const unit2 == militiaman-line)
		)
		(or
			(up-compare-const unit1 == spearman-line)
			(up-compare-const unit2 == spearman-line)
		)
	)
	(up-can-research 0 c: ri-squires)
=>
	(up-research 0 c: ri-squires)
)
(defrule
	(or
		(or
			(up-compare-const unit1 == militiaman-line)
			(up-compare-const unit2 == militiaman-line)
		)
		(or
			(up-compare-const unit1 == spearman-line)
			(up-compare-const unit2 == spearman-line)
		)
	)
	(up-can-research 0 c: ri-arson)
=>
	(up-research 0 c: ri-arson)
)

;Stables Unit
(defrule
	(or
		(up-compare-const unit1 == scout-cavalry-line)
		(up-compare-const unit2 == scout-cavalry-line)
	)
	(up-can-research 0 c: ri-light-cavalry)
=>
	(up-research 0 c: ri-light-cavalry)
)
(defrule
	(or
		(up-compare-const unit1 == scout-cavalry-line)
		(up-compare-const unit2 == scout-cavalry-line)
	)
	(up-can-research 0 c: ri-hussar)
=>
	(up-research 0 c: ri-hussar)
)
;Uknown Identifier
;(defrule
;	(or
;		(up-compare-const unit1 == scout-cavalry-line)
;		(up-compare-const unit2 == scout-cavalry-line)
;	)
;	(up-can-research 0 c: ri-winged-hussar)
;=>
;	(up-research 0 c: ri-winged-hussar)
;	(disable-self)
;)
(defrule
	(or
		(up-compare-const unit1 == knight-line)
		(up-compare-const unit2 == knight-line)
	)
	(up-can-research 0 c: ri-cavalier)
=>
	(up-research 0 c: ri-cavalier)
)
(defrule
	(or
		(up-compare-const unit1 == knight-line)
		(up-compare-const unit2 == knight-line)
	)
	(up-can-research 0 c: ri-paladin)
=>
	(up-research 0 c: ri-paladin)
)
(defrule
	(or
		(up-compare-const unit1 == camel-line)
		(up-compare-const unit1 == camel-line)
	)
	(up-can-research 0 c: ri-heavy-camel)
=>
	(up-research 0 c: ri-heavy-camel)
)
(defrule
	(or
		(up-compare-const unit1 == camel-line)
		(up-compare-const unit1 == camel-line)
	)
	(up-can-research 0 c: ri-imperial-camel)
=>
	(up-research 0 c: ri-imperial-camel)
)
(defrule
	(or
		(up-compare-const unit1 == battle-elephant)
		(up-compare-const unit2 == battle-elephant)
	)
	(up-can-research 0 c: ri-elite-battle-elephant)
=>
	(up-research 0 c: ri-elite-battle-elephant)
)
(defrule
	(up-compare-const research-cavalry == 1)
	(up-can-research 0 c: ri-bloodlines)
=>
	(up-research 0 c: ri-bloodlines)
)
(defrule
	(up-compare-const research-cavalry == 1)
	(up-can-research 0 c: ri-husbandry)
=>
	(up-research 0 c: ri-husbandry)
)

;Siege Unit
(defrule
	(or
		(up-compare-const siege1 == battering-ram-line)
		(up-compare-const siege2 == battering-ram-line)
	)
	(up-can-research 0 c: ri-capped-ram)
=>
	(up-research 0 c: ri-capped-ram)
)
(defrule
	(or
		(up-compare-const siege1 == battering-ram-line)
		(up-compare-const siege2 == battering-ram-line)
	)
	(up-can-research 0 c: ri-siege-ram)
=>
	(up-research 0 c: ri-siege-ram)
)
(defrule
	(or
		(up-compare-const siege1 == mangonel-line)
		(up-compare-const siege2 == mangonel-line)
	)
	(up-can-research 0 c: ri-onager)
=>
	(up-research 0 c: ri-onager)
)
(defrule
	(or
		(up-compare-const siege1 == mangonel-line)
		(up-compare-const siege2 == mangonel-line)
	)
	(up-can-research 0 c: ri-siege-onager)
=>
	(up-research 0 c: ri-siege-onager)
)
(defrule
	(or
		(up-compare-const siege1 == scorpion-line)
		(up-compare-const siege2 == scorpion-line)
	)
	(up-can-research 0 c: ri-heavy-scorpion)
=>
	(up-research 0 c: ri-heavy-scorpion)
)
;Uknown Identifier
;(defrule
;	(civ-selected bohemians)
;	(up-can-research 0 c: ri-hounfnice)
;=>
;	(up-research 0 c: ri-hounfnice)
;	(disable-self)
;)

;Castle Techs
(defrule
	(up-can-research 0 c: ri-hoardings)
=>
	(up-research 0 c: ri-hoardings)
)
(defrule
	(up-compare-const sn-max-barracks >= 5)
	(up-can-research 0 c: ri-conscription)
=>
	(up-research 0 c: ri-conscription)
)

;Unique Techs