bed2.qsrc 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111
  1. # bed2
  2. $sleep_loc = 'bed2'
  3. menu_off = 0
  4. !! Lying in bed hub. From here PC can take various actions, including going to sleep.
  5. !!
  6. !! Moved here from bed_events
  7. !! Going to sleep: move to pre_sleep_events
  8. if $ARGS[0] = 'bed2' or $ARGS[0] = 'start' or $ARGS[0] = '':
  9. $menu_loc = 'bed2'
  10. $alarmloc = 'bed2'
  11. $menu_arg = 'start'
  12. $alarmarg = 'start'
  13. if clo_flag['bed'] = 1:
  14. clo_flag['bed'] = 0
  15. gs 'clothing', 'wear', $lastwornclothingtype['bed'], lastwornclothingnumber['bed']
  16. gs 'panties', 'wear', $lastwornpantytype['bed'], lastwornpantynumber['bed']
  17. gs 'bras', 'wear', $lastwornbratype['bed'], lastwornbranumber['bed']
  18. end
  19. gs 'stat'
  20. if $clothingworntype ! 'nude':
  21. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  24. end
  25. *nl
  26. 'Your <a href="exec:gt ''alarmclock'', ''start''">alarm clock</a> is set to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>> during the week and <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>> during the weekend. It is currently turned ' + iif(alarmVars['alarmOn'] = 0, '<a href="exec: alarmVars[''alarmOn''] = 1 & gt ''bed2'', ''start''">OFF</a>.', '<a href="exec: alarmVars[''alarmOn''] = 0 & gt ''bed2'', ''start''">ON</a>.')
  27. *nl
  28. gs 'bed2', 'wear_panties_decider'
  29. *nl
  30. gs 'bed2', 'wear_buttplug_decider'
  31. gs 'bed2', 'wear_vibe_decider'
  32. if pcs_makeup ! 1 and cosmetic_tattoo = 0: *nl '<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
  33. if pcs_sleep <= 80:
  34. if $clothingworntype = 'nude':
  35. act 'Go to bed': gs 'shortgs', 'auto_save' & gt 'pre_sleep_events'
  36. else
  37. act 'Undress and go to bed': gs 'shortgs', 'auto_save' & gt 'pre_sleep_events'
  38. end
  39. end
  40. act 'Get out of bed': gt 'bed_get_out', 'start'
  41. gs 'sleep_simple', 'nap_bed'
  42. gs 'events', 'read'
  43. if $loc ! 'bedrPar' or locat['Anya_inroom'] = 0 or locat['Anya'] = 1 or locat['Anya'] = 26:
  44. if mc_inventory['mag_porn'] > 0: gs 'events', 'read_porn'
  45. if (pcs_horny > 75 and pcs_inhib >= 60) or (pcs_horny > 50 and (fame['pav_slut'] >= 150 or (fame['pav_slut'] >= 50 and pcs_inhib >= 60))):
  46. act 'Masturbate':
  47. InSleep = 0
  48. gt 'selfplay', 'start'
  49. end
  50. end
  51. end
  52. gs 'bed2', 'mod_triggers'
  53. end
  54. if $ARGS[0] = 'mod_triggers':
  55. !! This location is here to allow mods to hook into the system.
  56. !! Either check for: if $sleep_loc = 'bed2' and $ARGS[0] = 'mod_triggers'
  57. !!
  58. !! This is NOT for events!!
  59. end
  60. if $ARGS[0] = 'wear_panties_decider':
  61. if hypnoPanty <= 0:
  62. if sleepVars['bedPanty'] = 0:
  63. 'Will you always wear your underwear to bed? Currently - <a href="exec:sleepVars[''bedPanty''] = 1 & gs ''stat'' & gt ''bed2'', ''start''">AS IS</a>.'
  64. elseif sleepVars['bedPanty'] = 1:
  65. 'Will you always wear your underwear to bed? Currently - <a href="exec:sleepVars[''bedPanty''] = 2 & gs ''stat'' & gt ''bed2'', ''start''">YES</a>.'
  66. elseif sleepVars['bedPanty'] = 2:
  67. 'Will you always wear your underwear to bed? Currently - <a href="exec:sleepVars[''bedPanty''] = 0 & gs ''stat'' & gt ''bed2'', ''start''">NO</a>.'
  68. end
  69. end
  70. end
  71. if $ARGS[0] = 'wear_buttplug_decider':
  72. if mc_inventory['buttplug'] = 1:
  73. if sleepVars['bedAnal'] = 0:
  74. 'Should you always remove your anal plug before bed? Currently - <a href="exec:sleepVars[''bedAnal''] = 1 & gs ''stat'' & gt ''bed2'', ''start''">NO</a>.'
  75. elseif sleepVars['bedAnal'] = 1:
  76. 'Should you always remove your anal plug before bed? Currently - <a href="exec:sleepVars[''bedAnal''] = 0 & gs ''stat'' & gt ''bed2'', ''start''">YES</a>.'
  77. end
  78. end
  79. end
  80. if $ARGS[0] = 'wear_vibe_decider':
  81. if mc_inventory['vibe'] = 1 and sleepVars['cheatVib'] = 1:
  82. if sleepVars['bedVibrator'] = 0:
  83. 'Should you always remove your vibrator before bed? Currently - <a href="exec:sleepVars[''bedVibrator''] = 1 & gs ''stat'' & gt ''bed2'', ''start''">NO</a>.'
  84. elseif sleepVars['bedVibrator'] = 1:
  85. 'Should you always remove your vibrator before bed? Currently - <a href="exec:sleepVars[''bedVibrator''] = 0 & gs ''stat'' & gt ''bed2'', ''start''">YES</a>.'
  86. end
  87. end
  88. end
  89. if $ARGS[0] = 'fin':
  90. if strpos('bedr,bedr2x,korr,korr2x',$loc) > 0: gt 'bedr'
  91. if $loc = 'uni_dorm': gt 'uni_dorm', 'dorm_room'
  92. if $loc = 'nichBedroomServant': gt 'nichBedroomServant'
  93. end
  94. --- bed2 ---------------------------------