430_menu_options 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586
  1. # menu_options
  2. $options_start = {
  3. gs 'stat'
  4. clr
  5. if BakaGHomework = 0:$BakaGHomework = 'OFF'
  6. if BakaGHomework = 1:$BakaGHomework = 'ON'
  7. if NoCondomUse = 0:$NoCondomUse = 'OFF'
  8. if NoCondomUse = 1:$NoCondomUse = 'ON'
  9. if NoSTD = 0:$NoSTD = 'OFF'
  10. if NoSTD = 1:$NoSTD = 'ON'
  11. if ReminderSystem = 0:$ReminderSystem = 'OFF'
  12. if ReminderSystem = 1:$ReminderSystem = 'ON'
  13. if ShowStatsAs = 0:$ShowStatsAs = 'old style'
  14. if ShowStatsAs = 1:$ShowStatsAs = 'bars'
  15. if ShowStatsAs = 2:$ShowStatsAs = 'text'
  16. if ShowStatsAs = 3:$ShowStatsAs = 'bars and text'
  17. pl 'BakaG Homework System <a href="exec:dynamic $options_BakaGHomework"><<$BakaGHomework>></a>'
  18. pl 'Don´t use condoms <a href="exec:dynamic $options_NoCondomUse"><<$NoCondomUse>></a>'
  19. pl 'Disable STD system <a href="exec:dynamic $options_NoSTD"><<$NoSTD>></a>'
  20. pl 'Reminder System <a href="exec:dynamic $options_ReminderSystem"><<$ReminderSystem>></a>'
  21. pl ' Remind me when my supplies go below <a href="exec:dynamic $options_RSN"><<ReminderNumber>></a>'
  22. pl 'Show stats as <a href="exec:dynamic $options_ShowStatsAs"><<$ShowStatsAs>></a>'
  23. }
  24. $options_BakaGHomework = {
  25. if BakaGHomework = 0:
  26. BakaGHomework = 1
  27. gs 'stat'
  28. dynamic $options_start
  29. exit
  30. end
  31. if BakaGHomework = 1:
  32. BakaGHomework = 0
  33. gs 'stat'
  34. dynamic $options_start
  35. end
  36. }
  37. $options_NoCondomUse = {
  38. if NoCondomUse = 0:
  39. NoCondomUse = 1
  40. gs 'stat'
  41. dynamic $options_start
  42. exit
  43. end
  44. if NoCondomUse = 1:
  45. NoCondomUse = 0
  46. gs 'stat'
  47. dynamic $options_start
  48. end
  49. }
  50. $options_NoSTD = {
  51. if NoSTD = 0:
  52. NoSTD = 1
  53. gs 'stat'
  54. dynamic $options_start
  55. exit
  56. end
  57. if NoSTD = 1:
  58. NoSTD = 0
  59. gs 'stat'
  60. dynamic $options_start
  61. end
  62. }
  63. $options_ReminderSystem = {
  64. if ReminderSystem = 0:
  65. ReminderSystem = 1
  66. gs 'stat'
  67. dynamic $options_start
  68. exit
  69. end
  70. if ReminderSystem = 1:
  71. ReminderSystem = 0
  72. gs 'stat'
  73. dynamic $options_start
  74. end
  75. }
  76. $options_RSN = {
  77. ReminderNumber = input ("When will the system remind you?")
  78. dynamic $options_start
  79. }
  80. $options_ShowStatsAs = {
  81. ShowStatsAs += 1
  82. if ShowStatsAs > 3: ShowStatsAs = 0
  83. dynamic $options_start
  84. }
  85. --- menu_options ---------------------------------