saunabed 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. # saunabed
  2. if $args[0] = '':
  3. cls
  4. $loc = 'saunabed'
  5. $metka = ''
  6. $location_type = 'private'
  7. gs 'stat'
  8. '<center><b>bed</b></center>'
  9. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  10. if pcs_sleep < 40:
  11. act 'Sleep': gt 'saunabed', 'sleep'
  12. end
  13. if budon = 1:
  14. 'Alarm set for <<timer>> hours <<timerM>> minutes'
  15. act 'Turn the alarm off':budon = 0 & gt 'saunabed'
  16. else
  17. act 'Turn the alarm on':budon = 1 & gt 'saunabed'
  18. end
  19. act 'Set the alarm':gt'budilnik', 'start'
  20. act 'Get out of bed':gt $locBroom, $metkaBroom
  21. end
  22. if $args[0] = 'sleep':
  23. if disable_autosave = 0:
  24. if StoryLine = 0:
  25. SAVEGAME 'autosave.sav'
  26. else
  27. SAVEGAME 'autosave_alt.sav'
  28. end
  29. end
  30. cls
  31. pcs_hairbsh = 0
  32. InSleep = 1
  33. gs 'clothing', 'strip'
  34. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  35. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  36. if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  37. if pcs_makeup > 1:pcs_makeup = 0 & vidageday = vidageday - 1 & 'Makeup smears your face, you think that it looks bad sleeping in makeup, and your skin will age faster from this.'
  38. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  39. :loopson
  40. minut += 1
  41. stime += 1
  42. pcs_health += 5
  43. if stime = 60:stime = 0 & pcs_sleep += 15
  44. gs 'stat'
  45. if budilnikOn = 1 and hour = timer and minut = timerM:
  46. pcs_mood -= 10
  47. 'Your alarm goes off.'
  48. act 'Get out of bed and get dressed (0:15)':
  49. gs 'clothing', 'wear_last_worn'
  50. InSleep = 0
  51. minut += 15
  52. gt $locBroom, $metkaBroom
  53. end
  54. act 'Get out of bed (0:10)':
  55. InSleep = 0
  56. minut += 10
  57. gt $locBroom, $metkaBroom
  58. end
  59. elseif pcs_sleep > 100:
  60. pcs_mood -= 10
  61. 'You wake up, no longer tired.'
  62. act 'Get out of bed and get dressed (0:15)':
  63. gs 'clothing', 'wear_last_worn'
  64. InSleep = 0
  65. minut += 15
  66. gt $locBroom, $metkaBroom
  67. end
  68. act 'Get out of bed (0:10)':
  69. InSleep = 0
  70. minut += 10
  71. gt $locBroom, $metkaBroom
  72. end
  73. else
  74. jump 'loopson'
  75. end
  76. end
  77. --- saunabed ---------------------------------