SET TotalScienceGathered TO  0.
SET ScienceLine TO 5.
SET ScienceLineMin TO ScienceLine.
SET ScienceLineMax TO 14.


PRINT "Action - Initiating science scan".

	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 "Science gathered: " + TotalScienceGathered.