Fallout 4: Hitchhiker map mod menu script

Scriptname HH_MapScript extends ObjectReference
{ It just works. }

; Fallout 4 Papyrus script by ThoraldGM | http://thoraldgm.com | Updated 20171106
; Hitchhiker mod: (url pending)

; ------------------------------------------------------------------------------------------------------------
; PROPERTIES
; ------------------------------------------------------------------------------------------------------------

GlobalVariable Property HH_DevTracking Auto Mandatory
Message Property HH_MenuMessage Auto Const Mandatory
Message Property HH_DestMessageAny Auto Const Mandatory
Message Property HH_DestMessageSpecific Auto Const Mandatory
Message Property HH_DestMessageSpecificRedRocket1 Auto Const Mandatory
Message Property HH_DestMessageSpecificRedRocket2 Auto Const Mandatory
Quest Property HH_Quest Auto Const Mandatory
HH_QuestScript Property HHQuestScript Auto

; ------------------------------------------------------------------------------------------------------------
; EVENT: ON READ
; ------------------------------------------------------------------------------------------------------------

Event OnRead()
	Int MainButtonPressed = HH_MenuMessage.Show()								; MAIN menu shows and waits for player response

	If MainButtonPressed == 0													; Main: Choose Random Location

		Int AnyButtonPressed = HH_DestMessageAny.Show()							; ANY menu shows and waits for player response

		If AnyButtonPressed == 0												; Any: Any Red Rocket
			HHQuestScript.StartHitching(1)
		ElseIf AnyButtonPressed == 1											; Any: Back
			; Go back
		EndIf

	ElseIf MainButtonPressed == 1												; Main: Choose Specific Location

		Int SpecButtonPressed = HH_DestMessageSpecific.Show()					; SPEC menu shows and waits for player response

		If SpecButtonPressed == 0												; Spec: Choose Red Rocket

			Int RR1ButtonPressed = HH_DestMessageSpecificRedRocket1.Show()		; RR1 menu shows and waits for player response

			; IMPORTANT: Int sent to StartHitching is quest number + aliasID
			; Quest number I assigned as QuestRefRedRocket is 100

			; In quests, alias IDs are in sequential order,
			; but the menu button options are in ABC order

			If RR1ButtonPressed == 0											; RR1: Atom Cats Garage
				HHQuestScript.StartHitching(116)
			ElseIf RR1ButtonPressed == 1										; RR1: Commonwealth (-11, -16)
				HHQuestScript.StartHitching(100)
			ElseIf RR1ButtonPressed == 2										; RR1: Commonwealth (-3, 2)
				HHQuestScript.StartHitching(111)
			ElseIf RR1ButtonPressed == 3										; RR1: Commonwealth (-3, -9)
				HHQuestScript.StartHitching(109)
			ElseIf RR1ButtonPressed == 4										; RR1: Commonwealth (2, -10)
				HHQuestScript.StartHitching(117)
			ElseIf RR1ButtonPressed == 5										; RR1: Commonwealth (2, -12)
				HHQuestScript.StartHitching(105)
			ElseIf RR1ButtonPressed == 6										; RR1: Commonwealth (5, -21)
				HHQuestScript.StartHitching(118)
			ElseIf RR1ButtonPressed == 7										; RR1: Commonwealth (12, 4)
				HHQuestScript.StartHitching(108)
			ElseIf RR1ButtonPressed == 8										; RR1: Commonwealth (20, 8)
				HHQuestScript.StartHitching(114)
			ElseIf RR1ButtonPressed == 9										; RR1: Egret Tours Marina
				HHQuestScript.StartHitching(101)
			ElseIf RR1ButtonPressed == 10										; RR1: More Red Rockets...

				Int RR2ButtonPressed = HH_DestMessageSpecificRedRocket2.Show()	; RR2 menu shows and waits for player response

				If RR2ButtonPressed == 0										; RR2: Electrical Hobbyist's Club
					HHQuestScript.StartHitching(103)
				ElseIf RR2ButtonPressed == 1									; RR2: Glowing Sea
					HHQuestScript.StartHitching(110)
				ElseIf RR2ButtonPressed == 2									; RR2: Graygarden
					HHQuestScript.StartHitching(102)
				ElseIf RR2ButtonPressed == 3									; RR2: Lexington Ext 02
					HHQuestScript.StartHitching(112)
				ElseIf RR2ButtonPressed == 4									; RR2: Lexington Ext 06
					HHQuestScript.StartHitching(104)
				ElseIf RR2ButtonPressed == 5									; RR2: Nahant Red Rocket
					HHQuestScript.StartHitching(119)
				ElseIf RR2ButtonPressed == 6									; RR2: Neponset Park
					HHQuestScript.StartHitching(107)
				ElseIf RR2ButtonPressed == 7									; RR2: Red Rocket Settlement
					HHQuestScript.StartHitching(115)
				ElseIf RR2ButtonPressed == 8									; RR2: Shaw High School
					HHQuestScript.StartHitching(106)
				ElseIf RR2ButtonPressed == 9									; RR2: Wilson Atomatoys Factory
					HHQuestScript.StartHitching(113)
				ElseIf RR2ButtonPressed == 10									; RR2: Back
					; Go back
				EndIf

			ElseIf RR1ButtonPressed == 11										; RR1: Back
				; Go back
			EndIf

		ElseIf SpecButtonPressed == 1											; Spec: Back
			; Go back
		EndIf

	ElseIf MainButtonPressed == 2												; Main: Start Developer Messages
		HH_DevTracking.SetValue(1)

	ElseIf MainButtonPressed == 3												; Main: Stop Developer Messages
		HH_DevTracking.SetValue(0)

	ElseIf MainButtonPressed == 4												; Main: Exit Menu
		; Exit Menu
	EndIf

EndEvent