1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586 |
- # 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 ---------------------------------
|