# menu_options
$options_start = {
gs 'stat'
clr
if BakaGHomework = 0:$BakaGHomework = 'OFF'
if BakaGHomework = 1:$BakaGHomework = 'ON'
if NoCondomUse = 0:$NoCondomUse = 'OFF'
if NoCondomUse = 1:$NoCondomUse = 'ON'
if NoSTD = 0:$NoSTD = 'OFF'
if NoSTD = 1:$NoSTD = 'ON'
if ReminderSystem = 0:$ReminderSystem = 'OFF'
if ReminderSystem = 1:$ReminderSystem = 'ON'
if ShowStatsAs = 0:$ShowStatsAs = 'old style'
if ShowStatsAs = 1:$ShowStatsAs = 'bars'
if ShowStatsAs = 2:$ShowStatsAs = 'text'
if ShowStatsAs = 3:$ShowStatsAs = 'bars and text'
pl 'BakaG Homework System <a href="exec:dynamic $options_BakaGHomework"><<$BakaGHomework>></a>'
pl 'Don´t use condoms <a href="exec:dynamic $options_NoCondomUse"><<$NoCondomUse>></a>'
pl 'Disable STD system <a href="exec:dynamic $options_NoSTD"><<$NoSTD>></a>'
pl 'Reminder System <a href="exec:dynamic $options_ReminderSystem"><<$ReminderSystem>></a>'
pl '    Remind me when my supplies go below <a href="exec:dynamic $options_RSN"><<ReminderNumber>></a>'
pl 'Show stats as <a href="exec:dynamic $options_ShowStatsAs"><<$ShowStatsAs>></a>'
}
$options_BakaGHomework = {
if BakaGHomework = 0:
	BakaGHomework = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if BakaGHomework = 1:
	BakaGHomework = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_NoCondomUse = {
if NoCondomUse = 0:
	NoCondomUse = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if NoCondomUse = 1:
	NoCondomUse = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_NoSTD = {
if NoSTD = 0:
	NoSTD = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if NoSTD = 1:
	NoSTD = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_ReminderSystem = {
if ReminderSystem = 0:
	ReminderSystem = 1
	gs 'stat'
	dynamic $options_start
	exit
end
if ReminderSystem = 1:
	ReminderSystem = 0
	gs 'stat'
	dynamic $options_start
end
}
$options_RSN = {
ReminderNumber = input ("When will the system remind you?")
dynamic $options_start
}
$options_ShowStatsAs = {
ShowStatsAs += 1
if ShowStatsAs > 3: ShowStatsAs = 0
dynamic $options_start
}
--- menu_options ---------------------------------

