ScriptName Bulwark_CloudStorage_MCM Extends SKI_ConfigBase

Int OID_ChestSlider
GlobalVariable Property BulwarkOptOut Auto

Event OnConfigInit()
	ModName = "Thane's Stash"
    Pages = new string[1]
    Pages[0] = "General"
EndEvent

Event OnGameReload()
    Parent.OnGameReload()
Endevent

Event OnPageLoad()
	If (page == "")
		LoadCustomContent("Chest.dds")
		Return
	Else
		UnloadCustomContent()
	Endif

	If (page == "General")
		SetCursorFillMode(TOP_TO_BOTTOM)
		AddHeaderOption("Options")
		OID_ChestSlider = AddSliderOption("How The Chest Works", BulwarkOptOut.GetValueInt())
	Endif
EndEvent

Event OnOptionHighlight(int option)
	If (option == OID_ChestSlider)
		SetInfoText ("0 = Thane or Paid, 1 = Thane or Free, 2 = Thane Only")
	Endif
EndEvent

Event OnOptionSliderOpen(int option)
	If (option == OID_ChestSlider)
		ChestSliderFunction(BulwarkOptOut, 1, 0, 0, 2) ; Variable, Default, Min, Max, Increment
	Endif
EndEvent

Event OnOptionSliderAccept(int Option, Float Value)
	If (Option == OID_ChestSlider)
		BulwarkOptOut.SetValueInt(Value As Int)
		SetSliderOptionValue (OID_ChestSlider, BulwarkOptOut.GetValueInt())
	Endif
EndEvent

Function ChestSliderFunction(GlobalVariable BulwarkOptOut, Int VarDef, Int VarMin, Int Max, Int VarInt)
	VarMax = 2
	VarMin = 0
	If BulwarkOptOut.GetValueInt > 2
		Set.BulwarkOptOut(VarMax)
	Elseif BulwarkOptOut.GetValueInt < 0
		Set.BulwarkOptOut(VarMin)
	Endif

	SetSliderDialogStartValue (BulwarkOptOut.GetValueInt())
	SetSliderDialogDefaultValue (VarDef)
	SetSliderDialogRange (Varmin, VarMax)
	SetSliderDialogInterval (VarInt)
Endfunction