Scriptname pchsSexSlavesForFFF_MCM extends SKI_ConfigBase  

Quest Property SexSlavesQuest Auto


int aOID


bool aVal = false

function ModStartCheck()
	if (SexSlavesQuest.IsRunning() == 1)
		aVal = true;
	else  
		aVal = false;
	endIf
endFunction

event OnPageReset(string page)
	ModStartCheck()
	
	SetCursorFillMode(TOP_TO_BOTTOM)
	SetCursorPosition(0)

	AddHeaderOption("Mod status")
	aOID = AddToggleOption("Mod started", aVal)

endEvent

event OnOptionSelect(int option)
	if (option == aOID)
		aVal = !aVal
		SetToggleOptionValue(aOID, aVal)
		SexSlavesQuest.Start()
		Debug.Notification("SexSlaves for Vanilla Bandit Camps quest re-initialized.")
	endIf
endEvent

event OnOptionDefault(int option)
	if (option == aOID)
        aVal = true ; default value
    endIf
endEvent