DECLARE PARAMETER ScanningForXHours IS 10. 

CLEARSCREEN.

SET TotalScienceGathered TO  0.
SET TimeCount TO 0.
SET TimeLimit TO ScanningForXHours*60*60.
SET SleepTime TO 10.
SET ScienceLine TO 5.
SET ScienceLineMin TO ScienceLine.
SET ScienceLineMax TO 14.

PRINT "--------------------------------------------------" AT (0,0).
PRINT "Initiating science scan"  AT (0,1).
PRINT "Scanning time set as " + TimeLimit + " sec"  AT (0,2).
PRINT "--------------------------------------------------" AT (0,3).

UNTIL (TimeCount > TimeLimit){

	FOR ListOfExperiements IN SHIP:PARTSTAGGED("Science") {
		SET Experiment TO ListOfExperiements:GETMODULE("ModuleScienceExperiment").
		
		IF Experiment:INOPERABLE{
			Experiment:RESET.
		}.
		
		Experiment:DEPLOY.
		WAIT UNTIL Experiment:HASDATA.
	
		SET SCIENCETITLE TO "".
		SET SCIENCEVALUE TO 0.
		SET TRANSMITVALUE TO 0.
		SET DATAAMOUNT TO 0.
	
		FOR ScienceData in Experiment:DATA {
			SET SCIENCETITLE TO ScienceData:TITLE.
			SET SCIENCEVALUE TO ScienceData:SCIENCEVALUE.
			SET TRANSMITVALUE TO ScienceData:TRANSMITVALUE.
			SET DATAAMOUNT TO ScienceData:DATAAMOUNT.
		}			
		
		IF SCIENCEVALUE > 0 AND SCIENCEVALUE = TRANSMITVALUE {
			PRINT "Science found! - " +SCIENCETITLE AT (0,ScienceLine).
			SET TotalScienceGathered TO TotalScienceGathered + TRANSMITVALUE.
			Experiment:TRANSMIT.

			IF ScienceLine > ScienceLineMax {
				SET ScienceLine TO ScienceLineMin.
			}			
		}	
		Experiment:RESET.
	}.

	PRINT "Iteration complete " + TimeCount + "/" + TimeLimit   AT (0,18).
	PRINT "Science gathered: " + TotalScienceGathered AT (0,19).
	WAIT SleepTime.
	SET TimeCount TO TimeCount + SleepTime.
}