Earth Observation/Commercial Applications Programs

GameData/RP-1/Contracts/Commercial Applications 1/EarlyComSat-CA.cfg

@@ -0,0 +1,180 @@
+CONTRACT_TYPE
+{
+	name = EarlyComSat-CA
+	title = Commercial Communications Satellite (Early)
+	group = CommApp	
+
+	description = <b>Program: Early Commercial Applications</b><br>Type: <color=blue>Optional</color></b><br><br>Now that satellite communications technology has been proven, launch more capable satellites to expand communication coverage further around Earth.  Every major Telecom now wants their own satellite capabilities tailored to their specific needs. Launch new communications satellites with the required specifications into the specified orbits.<br><br><b><color=yellow>NOTE: The satellite will be destroyed upon completion of the contract. This simulates transfer of the payload back to the customer.</color></b><b><color=white>Removal Condition: Completion of a Commercial Communications Satellite contract</color></b><br><br><b>The reward of this contract will slowly increase over time but will be reset to 0 after each completion.&br;<b>Current reward is at @rewardFactorPercent % of its nominal value. Elapsed/Expected Days: @elapsedDays / @RP0:expectedDays_EarlyComSat<br>Number of Contracts Completed: @index / unlimited</b>
+	genericDescription = Put a satellite with the required amount of communications satellite payload into the desired orbit.
+
+	synopsis = Launch a Communications Satellite for a customer.
+
+	completedMessage = Success! The communications satellite was launched into the proper orbit. Your customer is very happy.
+
+	sortKey = 499
+
+	cancellable = true
+	declinable = true
+	autoAccept = false
+	minExpiry = 1
+	maxExpiry = 1
+	maxCompletions = 0
+	maxSimultaneous = 1
+	deadline = 0
+
+	targetBody = HomeWorld()
+
+
+	// ************ REWARDS ************
+	prestige = Trivial       // 1.0x
+	advanceFunds = 0
+	rewardFunds = 0
+	rewardScience = 0
+	rewardReputation = Round(55 * Pow(@EarlyComSat/Orbit/minApA / 6000000, 0.5) * Pow((@EarlyComSat/HasComSatPayload/minQuantity / 325), 0.5) * @rewardFactor, 1)
+	failureReputation = 0 // was @rewardReputation
+	failureFunds = 0
+
+	// ************ REQUIREMENTS ************
+
+	REQUIREMENT
+	{
+			name = ProgramActive
+			type = ProgramActive
+			program = EarlyCommApp
+	}
+
+	REQUIREMENT
+	{
+		name = CompleteContract
+		type = CompleteContract
+		contractType = FirstComSat-CA
+		title = Complete First Communication Satellite contract
+	}
+
+	DATA
+	{
+		type = int
+		index = $EarlyComSat_Count + 0
+	}
+
+	BEHAVIOUR
+	{
+		name = IncrementTheCount
+		type = Expression
+
+		CONTRACT_OFFERED
+		{
+			RepeatSat_Completion = ($RepeatSat_Completion + 0) == 0 ? (UniversalTime() - @RP0:expectedDays_EarlyComSat * 86400) : ($RepeatSat_Completion + 0)
+		}
+		CONTRACT_COMPLETED_SUCCESS
+		{
+			EarlyComSat_Count = $EarlyComSat_Count + 1
+			RepeatSat_Completion = UniversalTime()
+		}
+	}
+
+	DATA
+	{
+		type = int
+		antiGrindCompletion = $RepeatSat_Completion == 0 ? (UniversalTime() - @RP0:expectedDays_EarlyComSat * 86400) : $RepeatSat_Completion
+	}
+
+	DATA
+	{
+		type = float
+		elapsedDays = Round((UniversalTime() - @antiGrindCompletion) / 86400.0)
+		rewardFactor = Log(Max(@elapsedDays / @RP0:expectedDays_EarlyComSat * 20 - 9, 1), 2) / 3.46
+		rewardFactorPercent = Round(@rewardFactor * 100, 1)
+	}
+
+	DATA
+	{
+		type = float
+		payload = Round(Random(150,500),1)
+	}
+
+	// ************ PARAMETERS ************
+
+	PARAMETER
+	{
+		name = EarlyComSat
+		type = VesselParameterGroup
+		define = EarlyComSatellite
+		dissassociateVesselsOnContractCompletion = true
+		title = Communications Satellite (Early)
+
+		PARAMETER
+		{
+			name = NewVessel
+			type = NewVessel
+			title = Launch a new vessel
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = Crewmembers
+			type = HasCrew
+			minCrew = 0
+			maxCrew = 0
+			title = Uncrewed
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = HasComSatPayload
+			type = HasResource
+			resource = ComSatPayload
+			minQuantity = @/payload-0.1
+			title = Have a ComSatPayload of at least @/payload units on the craft
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = Orbit
+			type = Orbit
+			minInclination = Round(Random(30, 31))
+			minPeA = Round(Random(700000, 1000000), 1000)
+			minApA = Round(Random(3000000, 10000000), 1000)
+			maxApA = Round(Random(10000000, 30000000), 1000)
+			disableOnStateChange = true
+			title = Achieve orbit within the parameters
+
+			PARAMETER
+			{
+				name = Duration
+				type = Duration
+
+				duration = 2m
+
+				preWaitText = Check for stable orbit
+				waitingText = Checking for stable orbit
+				completionText = Stable orbit: Confirmed
+			}
+		}
+	}
+
+	BEHAVIOUR
+	{
+		name = TransferVessel
+		type = DestroyVessel
+		onState = CONTRACT_SUCCESS
+		vessel = EarlyComSatellite
+	}
+
+	BEHAVIOUR
+	{
+		name = VesselDestroyed
+		type = DialogBox
+		DIALOG_BOX
+		{
+			title = Vessel Ownership Transferred
+			condition = CONTRACT_SUCCESS
+			position = CENTER
+			width = 0.5
+			TEXT
+			{
+				text = The contract has been completed successfully and the satellite has been transferred to the customer.
+			}
+		}
+	}
+}

GameData/RP-1/Contracts/Commercial Applications 1/EarlyMolniyaSat.cfg

@@ -0,0 +1,184 @@
+CONTRACT_TYPE
+{
+	name = EarlyMolniyaSat
+	title = Molniya Communications Satellite (Early)
+	group = CommApp	
+
+	description = <b>Program: Early Commercial Applications</b><br>Type: <color=blue>Optional</color></b><br><br>Now that satellite communications technology has been proven, launch more capable satellites to expand communication coverage further around Earth.  Some customers want satellites that dwell longer over the higher latitudes using Molniya orbits. Launch new communications satellites with the required specifications into the specified orbits.<br><br><b><color=yellow>NOTE: The satellite will be destroyed upon completion of the contract. This simulates transfer of the payload back to the customer.</color></b><b><color=white>Removal Condition: Completion of a Commercial Communications Satellite contract</color></b><br><br><b>The reward of this contract will slowly increase over time but will be reset to 0 after each completion.&br;<b>Current reward is at @rewardFactorPercent % of its nominal value. Elapsed/Expected Days: @elapsedDays / @RP0:expectedDays_EarlyMolniya<br>Number of Contracts Completed: @index / unlimited</b>
+	genericDescription = Put a satellite with the required amount of communications satellite payload into the desired orbit.
+
+	synopsis = Launch a customer communication satellite into a Molniya orbit.
+
+	completedMessage = Success! The communications satellite was launched into the proper orbit. Your customer is very happy.
+
+	sortKey = 499
+
+	cancellable = true
+	declinable = true
+	autoAccept = false
+	minExpiry = 1
+	maxExpiry = 1
+	maxCompletions = 0
+	maxSimultaneous = 1
+	deadline = 0
+
+	targetBody = HomeWorld()
+
+
+	// ************ REWARDS ************
+	prestige = Trivial       // 1.0x
+	advanceFunds = 0
+	rewardFunds = 0
+	rewardScience = 0
+	rewardReputation = Round(55 * Pow(@EarlyMolniya/Orbit/minPeA / 6000000, 0.5) * Pow((@EarlyMolniya/HasComSatPayload/minQuantity / 325), 0.5) * @rewardFactor, 1)
+	failureReputation = 0 // was @rewardReputation
+	failureFunds = 0
+
+	// ************ REQUIREMENTS ************
+
+	REQUIREMENT
+	{
+			name = ProgramActive
+			type = ProgramActive
+			program = EarlyCommApp
+	}
+
+	REQUIREMENT
+	{
+		name = CompleteContract
+		type = CompleteContract
+		contractType = FirstMolniyaSat-CA
+		title = Complete First Molniya Satellite contract
+	}
+
+	DATA
+	{
+		type = int
+		index = $EarlyMolniya_Count + 0
+	}
+
+	BEHAVIOUR
+	{
+		name = IncrementTheCount
+		type = Expression
+
+		CONTRACT_OFFERED
+		{
+			RepeatSat_Completion = ($RepeatSat_Completion + 0) == 0 ? (UniversalTime() - @RP0:expectedDays_EarlyMolniya * 86400) : ($RepeatSat_Completion + 0)
+		}
+		CONTRACT_COMPLETED_SUCCESS
+		{
+			EarlyMolniya_Count = $EarlyMolniya_Count + 1
+			RepeatSat_Completion = UniversalTime()
+		}
+	}
+
+	DATA
+	{
+		type = int
+		antiGrindCompletion = $RepeatSat_Completion == 0 ? (UniversalTime() - @RP0:expectedDays_EarlyMolniya * 86400) : $RepeatSat_Completion
+	}
+
+	DATA
+	{
+		type = float
+		elapsedDays = Round((UniversalTime() - @antiGrindCompletion) / 86400.0)
+		rewardFactor = Log(Max(@elapsedDays / @RP0:expectedDays_EarlyMolniya * 20 - 9, 1), 2) / 3.46
+		rewardFactorPercent = Round(@rewardFactor * 100, 1)
+	}
+
+	DATA
+	{
+		type = float
+		payload = Round(Random(150,500),1)
+	}
+
+	// ************ PARAMETERS ************
+
+	PARAMETER
+	{
+		name = EarlyMolniya
+		type = VesselParameterGroup
+		define = EarlyMolniyaSatellite
+		dissassociateVesselsOnContractCompletion = true
+		title = Molniya Satellite
+
+		PARAMETER
+		{
+			name = NewVessel
+			type = NewVessel
+			title = Launch a new vessel
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = Crewmembers
+			type = HasCrew
+			minCrew = 0
+			maxCrew = 0
+			title = Uncrewed
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = HasComSatPayload
+			type = HasResource
+			resource = ComSatPayload
+			minQuantity = @/payload-0.1
+			title = Have a ComSatPayload of at least @/payload units on the craft
+			hideChildren = true
+		}
+		PARAMETER
+		{
+			name = ReachOrbit
+			type = Orbit
+			title = Reach the correct orbit within the parameters. Note, the argument of periapsis values mean that the apogee needs to be high in the northern latitudes.
+			minInclination = 61.4
+			maxInclination = 65.4
+			minEccentricity = 0.7
+			minArgumentOfPeriapsis = 220
+			maxArgumentOfPeriapsis = 320
+			minPeA = 500000
+			minPeriod = 11h 56m 2s
+			maxPeriod = 12h 00m 2s
+			disableOnStateChange = true
+
+			PARAMETER
+			{
+				name = Duration
+				type = Duration
+
+				duration = 2m
+
+				preWaitText = Check for stable orbit
+				waitingText = Checking for stable orbit
+				completionText = Stable orbit: Confirmed
+			}
+		}
+	}
+
+	BEHAVIOUR
+	{
+		name = TransferVessel
+		type = DestroyVessel
+		onState = CONTRACT_SUCCESS
+		vessel = EarlyMolniyaSatellite
+	}
+
+	BEHAVIOUR
+	{
+		name = VesselDestroyed
+		type = DialogBox
+		DIALOG_BOX
+		{
+			title = Vessel Ownership Transferred
+			condition = CONTRACT_SUCCESS
+			position = CENTER
+			width = 0.5
+			TEXT
+			{
+				text = The contract has been completed successfully and the satellite has been transferred to the customer.
+			}
+		}
+	}
+}