FallenWorldsDiagnostics.ars

//	FallenWorldsDiagnostics.ars
//
//	Fallen Worlds Diagnostics
//	Copyright (c) 2019 Kronosaur Productions, LLC. All Rights Reserved.

(define runDiagnostics (lambda ()
	(block (
		(allWorlds (unvFindObjects
			nil
			(list
				{ type:'worlds }
				)
			))
		)

		(enum allWorlds theWorld
			(block (
				(sovereign (@ theWorld 'sovereign))
				(basics {
					id: (@ theWorld 'id)
					name: (@ theWorld 'name)
					sovereign: (@ sovereign 'name)
					designation: (@ theWorld 'designation)
					worldClass: (@ theWorld 'worldClass)
					population: (@ theWorld 'population)
					techLevel: (@ theWorld 'techLevel)
					efficiency: (@ theWorld 'efficiency)
					})
				(economicActivity (@ theWorld 'economicActivity))
				(shortages
					(map economicActivity 'excludeNil theEntry
						(if (!= (@ theEntry 'actualBaseConsumption) (@ theEntry 'desiredBaseConsumption))
							theEntry
							)
						)
					)

				(industryDebug (@ theWorld 'industryDebug))
				(totalAlloc 0)
				)
				(enum industryDebug theEntry
					(set! totalAlloc (+ totalAlloc (@ theEntry 'targetAllocation)))
					)

				(switch
					shortages
						(block ()
							(print "[" (@ theWorld 'id) "]: Shortages on " (@ theWorld 'name) ":")
							(output shortages)
							)

					(> totalAlloc 101)
						(block ()
							(print "[" (@ theWorld 'id) "]: Industry allocation at " totalAlloc "%:")
							(output industryDebug)
							)
					)
				)
			)

		(print "Diagnostics run complete.")
		)
	))

(define outputObj (lambda (objID)
	(block (
		(theObj (obj objID))
		(sovereign (@ theObj 'sovereign))
		(basics {
			id: (@ theObj 'id)
			name: (@ theObj 'name)
			sovereign: (@ sovereign 'name)
			designation: (@ theObj 'designation)
			worldClass: (@ theObj 'worldClass)
			population: (@ theObj 'population)
			techLevel: (@ theObj 'techLevel)
			efficiency: (@ theObj 'efficiency)
			})
		(economicActivity (@ theObj 'economicActivity))
		(tradeRoutes (@ theObj 'tradeRoutes))
		(industryDebug (@ theObj 'industryDebug))
		)
		(output basics)
		(output economicActivity)
		(output industryDebug)
		(output tradeRoutes)
		)
	))

(define testSetupCombat (lambda (objID)
	(block (
		(theFleet (obj objID))
		(fleetSov (@ theFleet 'sovereign))
		(theWorld (@ theFleet 'anchorObj))

		(allUnits '(
			core.armoredInfantry
			core.exotroops
			core.explorerHelion
			core.explorerVanguard
			core.gunshipCerberus
			core.gunshipHammerhead
			core.gunshipMinotaur
			core.gunshipSirius
			core.imperialSecurity
			core.infantry
			core.jumpcruiserAdamant
			core.jumpcruiserUndine
			core.jumpshipEldritch
			core.jumpshipStinger
			core.jumptransportReliant
			core.jumptransportWarphant
			core.starcruiserBehemoth
			core.starcruiserMegathere
			core.starcruiserTyphon
			core.starcruiserVictory
			core.starfrigateCyclops
			core.starfrigateDefiance
			core.starfrigateGorgos
			core.starfrigateManta
			core.transportCetus
			core.transportLuna
			core.transportOrion
			core.transportSeraph
			))

		(fleetUnits {
			core.jumpcruiserAdamant: 1000
			core.jumptransportReliant: 1000
			core.infantry: 1000
			})

		(worldUnits {
			core.jumpshipStinger: 1000
			core.infantry: 1000
			})
		)
		(switch
			//	objID must be a Fleet belonging to a player sovereign

			(!= (@ theFleet 'category) 'fleet)
				(print (@ theFleet 'name) " must be a fleet.")

			(not (@ fleetSov 'isPlayer))
				(print (@ theFleet 'name) " must be owned by player.")

			//	Fleet must be over an independent world

			(|| (not theWorld) (@ (@ theWorld 'sovereign) 'isEmpire))
				(print (@ theWorld 'name) " must be at an independent world.")

			//	Set up combat

			(block ()
				//	Remove all units from fleet and from world

				(enum allUnits theUnit
					(block ()
						(objRemoveResource theFleet theUnit)
						(objRemoveResource theWorld theUnit)
						)
					)

				//	Add required units to Fleet

				(enum fleetUnits theUnits
					(objAddResource theFleet (@ theUnits 0) (@ theUnits 1))
					)

				//	Add required units to world

				(enum worldUnits theUnits
					(objAddResource theWorld (@ theUnits 0) (@ theUnits 1))
					)

				//	Done

				(print (@ theFleet 'name))
				(output fleetUnits)
				(print (@ theWorld 'name))
				(output worldUnits)
				)
			)
		)
	))

(define upgrade01 (lambda ()
	(block (
		(allWorlds (unvFindObjects
			nil
			(list
				{ type:'worlds }
				)
			))
		)
		//	Add core.closedEcosystem trait to all appropriate worlds

		(enum allWorlds theWorld
			(block (
				(worldClass (@ theWorld 'worldClass))
				)
				(if (|| (= worldClass 'core.aetherealWorld)
						(= worldClass 'core.barrenWorld)
						(= worldClass 'core.chthonicWorld)
						(= worldClass 'core.fieryWorld)
						(= worldClass 'core.hadeanWorld)
						(= worldClass 'core.nebularWorld)
						(= worldClass 'core.primordialWorld)
						(= worldClass 'core.transuranicWorld)
						(= worldClass 'core.volcanicWorld)
						)
					(if (not (find (@ theWorld 'traits) 'core.closedEcosystem))
						(block ()
							(objAddTrait theWorld 'core.closedEcosystem)
							(print (@ theWorld 'name) " [" (@ theWorld 'id) "]: Added core.closedEcosystem to " worldClass ".")
							(if (not (find (@ theWorld 'traits) 'core.closedEcosystem))
								(print "Failed to add trait.")
								)
							)

						(print (@ theWorld 'name) " [" (@ theWorld 'id) "]: core.closedEcosystem already set.")
						)
					)
				)
			)
		)
	))