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