first commit

Author: Javapower77

Javas_PlanetTerminal.esm

@@ -0,0 +1,14 @@
+ScriptName PlanetDBTerminal Extends ObjectReference conditional
+
+;-- Variables ---------------------------------------
+
+;-- Properties --------------------------------------
+Keyword[] Property traitsKeywordToDiscover Auto hidden
+planet Property planetToCheck Auto hidden
+Bool Property traitDataAwarded = False Auto conditional hidden
+
+;-- Functions ---------------------------------------
+
+Event OnTerminalMenuItemRun(Int auiMenuItemID, terminalmenu akTerminalBase, ObjectReference akTerminalRef)
+  ; Empty function
+EndEvent

Materials/SetDressing/Terminals/SplashScreens/SplashScreen_PlanetDatabank_Requisition.mat

@@ -0,0 +1,168 @@
+ScriptName PlanetDBTerminal_Menu Extends TerminalMenu
+{ award planet trait discovery data, optionally set a quest stage }
+
+;-- Variables ---------------------------------------
+; ObjectReference planetDataRef
+
+;-- Properties --------------------------------------
+sq_parentscript Property SQ_Parent Auto Const mandatory
+{ used to get planet traits }
+Int Property DiscoverTraitMenuItemID = 1 Auto Const
+{ the ID of the menu item that should discover the planet trait }
+Bool Property DiscoverTraitCompletely = True Auto Const
+{ TRUE = player fully discovers the trait
+    FALSE = player increments discovery as if they had fully explored a trait overlay }
+TerminalMenu Property Planet_Survey Auto Const mandatory
+{ autofill }
+
+Int Property DiscoverTraitBodyTextIndex = 0 Auto Const
+Int Property NoTraitBodyTextIndex = 1 Auto Const
+
+;-- Functions ---------------------------------------
+
+Event OnTerminalMenuEnter(TerminalMenu akTerminalBase, ObjectReference akTerminalRef)
+ 
+  PlanetDBTerminal myTerminalRef = akTerminalRef as PlanetDBTerminal ; #DEBUG_LINE_NO:23
+  Actor PlayerRef = Game.GetPlayer()
+  Location CurrentLocation = PlayerRef.GetCurrentLocation()
+  
+  If myTerminalRef as Bool && myTerminalRef.planetToCheck == None ; #DEBUG_LINE_NO:24   
+    Int bodyTextIndex = NoTraitBodyTextIndex ; #DEBUG_LINE_NO:26
+    GlobalVariable vAllTraitsSurvey = Game.GetFormFromFile(2062, "PlanetDatabankConsole.esm") as GlobalVariable ; Get Global Value to calculate the messege about all traits are already survey or not
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->GlobalVariable vAllTraitsSurvey: " + vAllTraitsSurvey.GetValue() as string, 0)
+    vAllTraitsSurvey.SetValue(1.0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->GlobalVariable vAllTraitsSurvey: " + vAllTraitsSurvey.GetValue() as string, 0)
+    myTerminalRef.planetToCheck = akTerminalRef.GetCurrentPlanet() ; #DEBUG_LINE_NO:29
+    planet planetToCheck = myTerminalRef.planetToCheck ; #DEBUG_LINE_NO:30
+    Keyword[] planetTraitsKW = planetToCheck.GetKeywordTypeList(SQ_Parent.KeywordType_PlanetTrait) 
+    Keyword[] planetFloraAbundanceKW = planetToCheck.GetKeywordTypeList(SQ_Parent.KeywordType_PlanetFloraAbundance) 
+    Keyword[] planetFaunaAbundanceKW = planetToCheck.GetKeywordTypeList(SQ_Parent.KeywordType_PlanetFaunaAbundance) 
+
+    ;planetDataRef = planetToCheck as ObjectReference
+    ;Flora[] floraPlanet = planetDataRef.GetBiomeFlora(100)
+
+    sq_parentscript:planettraitdata theData = SQ_Parent.FindMatchingPlanetTrait(CurrentLocation, planetToCheck) ; #DEBUG_LINE_NO:610
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->theData: " + theData as string, 0)
+    If theData ; #DEBUG_LINE_NO:611
+ 
+    EndIf
+
+    ;Game.GetPlayer().GetBiomeActors(100)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->Game.GetPlayer().GetBiomeActors(100): " + Game.GetPlayer().GetBiomeActors(100) as string, 0)
+
+    ;-- Debug Planetary Information
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck: " + planetToCheck as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->CurrentLocation: " + CurrentLocation as String, 0) 
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->CurrentLocation.IsExplored() : " + CurrentLocation.IsExplored() as String, 0) 
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->CurrentLocation.GetCurrentPlanet() : " + CurrentLocation.GetCurrentPlanet() as String, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->CurrentLocation.HasEverBeenExplored() : " + CurrentLocation.HasEverBeenExplored() as String, 0)
+
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetType(): " + planetToCheck.GetType() as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetAtmosphereType(): " + planetToCheck.GetAtmosphereType() as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetDayLength(): " + planetToCheck.GetDayLength() as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetGravity(): " + planetToCheck.GetGravity() as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetPressure(): " + planetToCheck.GetPressure() as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet planetToCheck.GetTemperature(): " + planetToCheck.GetTemperature() as string, 0)
+
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet Keyword[] planetTraitsKW: " + planetTraitsKW as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet Keyword[] planetFloraAbundanceKW: " + planetFloraAbundanceKW as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planet Keyword[] planetFaunaAbundanceKW: " + planetFaunaAbundanceKW as string, 0)
+
+    ;Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->Flora[] floraPlanet: " + floraPlanet as String, 0)
+    
+
+
+
+    ;-- ## PLANET TRAIT
+    ;-- Get all Planet Traits from the Planet object
+    Keyword[] matchingKeywords = planetToCheck.GetKeywordTypeList(SQ_Parent.KeywordType_PlanetTrait) 
+    Debug.Trace(":04:PlanetDBTerminal_Menu::DEBUG::VERBOSE->Keyword[] matchingKeywords: " + matchingKeywords as string, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->matchingKeywords.Length: " + matchingKeywords.Length as string, 0)
+
+    ;-- Loop in the Array of Keywords from Planet Traits.
+    If matchingKeywords.Length > 0 ; #DEBUG_LINE_NO:34
+      Int I = matchingKeywords.Length - 1 ; #DEBUG_LINE_NO:36
+      While I > -1 ; #DEBUG_LINE_NO:37
+        ;-- If Trait from the planet had been already surveyed then remove it from the traits array
+        If planetToCheck.IsTraitKnown(matchingKeywords[I]) ; #DEBUG_LINE_NO:38
+          Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->planetToCheck.IsTraitKnown(" + matchingKeywords[I] as string + "): " + planetToCheck.IsTraitKnown(matchingKeywords[I]) as string, 0)
+          matchingKeywords.remove(I, 1) ; #DEBUG_LINE_NO:39
+        EndIf
+        I += -1 ; #DEBUG_LINE_NO:41
+      EndWhile
+      If matchingKeywords.Length == 0 ; #DEBUG_LINE_NO:43
+        matchingKeywords = planetToCheck.GetKeywordTypeList(SQ_Parent.KeywordType_PlanetTrait) ; #DEBUG_LINE_NO:45
+      EndIf
+      vAllTraitsSurvey.SetValue(0.0) ; To show the text in terminal that all traits had been survey
+      myTerminalRef.traitsKeywordToDiscover = matchingKeywords
+      bodyTextIndex = DiscoverTraitBodyTextIndex ; #DEBUG_LINE_NO:50
+    EndIf
+
+    ;-- Loop into the array of traits to be discovery to show in the terminal
+    Form[] textSurveyTraitsReplacementArray = new Form[matchingKeywords.Length - 1] ; #DEBUG_LINE_NO:82
+    Int I = matchingKeywords.Length - 1
+    While I > -1
+      textSurveyTraitsReplacementArray.add(matchingKeywords[I] as Form, 1)
+      Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->matchingKeywords[" + I as String + "]: " + matchingKeywords[I] as string, 0)
+      I += -1
+    EndWhile
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->textSurveyTraitsReplacementArray: " + textSurveyTraitsReplacementArray as String, 0)
+          
+    PD_T_02_SurveyTraits.ClearDynamicBodyTextItems(myTerminalRef as ObjectReference) ; #DEBUG_LINE_NO:54
+    PD_T_02_SurveyTraits.AddDynamicBodyTextItem(myTerminalRef as ObjectReference, bodyTextIndex, 1, textSurveyTraitsReplacementArray) ; #DEBUG_LINE_NO:55
+  EndIf
+  ;-- ## END PLANET TRAIT
+EndEvent
+
+
+
+
+Event OnTerminalMenuItemRun(Int auiMenuItemID, TerminalMenu akTerminalBase, ObjectReference akTerminalRef)
+  ;-- Planetary Information Submenu
+  If auiMenuItemID == 0
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->auiMenuItemID: " + auiMenuItemID as String, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->Entered menu of Planetary Information", 0)
+
+  EndIf
+
+  ;-- Survey Planet Traits Submenu
+  If auiMenuItemID == 1
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->auiMenuItemID: " + auiMenuItemID as String, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->Entered menu of Survey Planet Traits", 0)    
+    PlanetDBTerminal myTerminalRef = akTerminalRef as PlanetDBTerminal ; #DEBUG_LINE_NO:63
+    If myTerminalRef ; #DEBUG_LINE_NO:64
+      planet planetToCheck = myTerminalRef.planetToCheck ; #DEBUG_LINE_NO:66
+
+      ;-- Set to 100% the chance to scan trait in order to get completed
+      GlobalVariable vChance = Game.GetForm(2427122) as GlobalVariable ; #DEBUG_LINE_NO:27 - Skill_Astrophysics_DiscoverTraitChance [GLOB:002508F2]
+      vChance.SetValue(100.0)
+
+      ;-- Loop into the array of traits to be discovery and trigger the action
+      Int I = myTerminalRef.traitsKeywordToDiscover.Length - 1
+      While I > -1
+        SQ_Parent.OnPlayerScanPlanet(planetToCheck)
+        I += -1
+      EndWhile
+
+      GlobalVariable vAllTraitsSurvey = Game.GetForm(2062) as GlobalVariable ; Get Global Value to calculate the messege about all traits are already survey or not
+      vAllTraitsSurvey.SetValue(1.0)
+    EndIf
+  EndIf
+
+  ;-- Planet Survey Slate Submenu
+  If auiMenuItemID == 2
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG::VERBOSE->auiMenuItemID: " + auiMenuItemID as String, 0)
+    Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->Entered menu of Download Planet Survey Slate", 0)    
+
+    PlanetDBTerminal myTerminalRef = akTerminalRef as PlanetDBTerminal ; #DEBUG_LINE_NO:63
+    If myTerminalRef ; #DEBUG_LINE_NO:64
+      planet planetToCheck = myTerminalRef.planetToCheck ; #DEBUG_LINE_NO:66
+      ;-- Trigger the Quest to get the Planet Survey Slate
+      Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->Start quest to get the Planet Survey Slate", 0)
+      Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->planet planetToCheck: " + planetToCheck as string, 0)
+      SQ_Parent.CheckCompletePlanetSurvey(planetToCheck, True)
+      Debug.Trace("::PlanetDBTerminal_Menu::DEBUG->End quest to get the Planet Survey Slate", 0)      
+    EndIf    
+  EndIf  
+EndEvent
+