bed_get_out.qsrc 741 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. # bed_get_out
  2. $sleep_loc = 'bed_get_out'
  3. if $ARGS[0] = 'start' or $ARGS[0] = '':
  4. menu_off = 1
  5. minut -= 1
  6. InSleep = 0
  7. slept_in = 0
  8. strip_here = 0
  9. SleepHorny = 0
  10. !! to fudge the first hour wake up sleep loss.
  11. gs 'bed_get_out', 'mod_triggers'
  12. xgt 'bed_get_out_events', 'start'
  13. end
  14. if $ARGS[0] = 'mod_triggers':
  15. !! This location is here to allow mods to hook into the system.
  16. !! Check for: if $sleep_loc = 'bed_get_out' and $ARGS[0] = 'mod_triggers'
  17. !!
  18. !! This is NOT for events!!
  19. end
  20. if $ARGS[0] = 'end':
  21. menu_off = 0
  22. killvar '$sleep_loc'
  23. if fullmorrout = 1:
  24. if $loc = 'bedrPar':
  25. gt 'vanrPar'
  26. elseif $loc = 'bedr':
  27. gt 'vanr'
  28. end
  29. end
  30. gt $loc, $loc_arg
  31. end
  32. --- bed_get_out ---------------------------------