1
0

bed2 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187
  1. # bed2
  2. if $args[0] = 'options':
  3. cla
  4. act 'Set Alarm Clock':gt 'budilnik', 'start'
  5. if bedPanty = 0:
  6. act 'You will wear panties in the morning, click to turn off':bedpanty = 1 & gt 'bed2', 'options'
  7. else
  8. act 'You will not wear panties in the morning, click to turn on':bedpanty = 0 & gt 'bed2', 'options'
  9. end
  10. if analplug = 1:
  11. if bedanal = 0:
  12. act 'If worn, you will remove your analplug at night, click to always leave it in':bedanal = 1 & gt 'bed2', 'options'
  13. else
  14. act 'If worn, you will wear your analplug through the night, click to always remove it':bedanal = 0 & gt 'bed2', 'options'
  15. end
  16. end
  17. if vibrator = 1 and cheatVib = 1:
  18. if bedvibrator = 0:
  19. act 'If worn, you will remove your vibrator at night, click to always leave it in':bedvibrator = 1 & gt 'bed2', 'options'
  20. else
  21. act 'If worn, you will wear your vibrator through the night, click to always remove it':bedvibrator = 0 & gt 'bed2', 'options'
  22. end
  23. end
  24. act 'Return':gt 'bed2'
  25. end
  26. if $args[0] = '':
  27. gs 'stat'
  28. cla
  29. if $clothingworntype ! 'nude':
  30. '<center><img src="images/pics/bed.jpg"></center>'
  31. else
  32. '<center><img src="images/pics/son.jpg"></center>'
  33. end
  34. if budilnikOn = 0:
  35. 'You lie on the bed. Alarm set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 1 & GT ''bed2''">off</a>.'
  36. else
  37. 'You lie on the bed. Alarm set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & GT ''bed2''">on</a>.'
  38. end
  39. if mop ! 1:'<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
  40. if son > 80:
  41. 'You are not tired.'
  42. else
  43. act 'Undress and go to sleep':
  44. if disable_autosave = 0:
  45. if StoryLine = 0:
  46. savegame 'autosave.sav'
  47. else
  48. savegame 'autosave_alt.sav'
  49. end
  50. end
  51. gs 'clothing', 'strip'
  52. gt 'bed2', 'sleep'
  53. end
  54. end
  55. act 'Options':gt 'bed2', 'options'
  56. act 'Get out of bed':gt $locM, $metkaM
  57. end
  58. if $args[0] = 'sleep':
  59. cls
  60. '<center><img src="images/pics/son.jpg"></center>'
  61. hapri = 0
  62. InSleep = 1
  63. cloth_vid = 0
  64. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  65. if vibratorIN = 1 and bedvibrator = 0:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  66. if mop > 1:mop = 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.'
  67. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  68. wait 450
  69. *clr
  70. gs 'dreams', 'start'
  71. :loopson
  72. minut += 1
  73. stime += 1
  74. health += 5
  75. if vibratorIn = 1:
  76. vtime += 1
  77. if vtime >= 5:
  78. horny +=1
  79. vtime = 0
  80. end
  81. if horny = 100:
  82. *clr
  83. cla
  84. horny = 0
  85. orgasm += 1
  86. minut += 5
  87. '<center><img src="images/pic/o_face.jpg"></center>'
  88. 'You abruptly wake up in the throes of an orgasm.'
  89. act 'Go back to sleep':
  90. *clr
  91. cla
  92. gt 'bed2', 'sleep'
  93. end
  94. act 'Give up trying to sleep':
  95. $waketext = 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  96. gt 'bed2', 'wake'
  97. end
  98. end
  99. end
  100. if stime = 60:
  101. stime = 0
  102. son += 15
  103. gs 'stat'
  104. end
  105. alarm_now = hour * 60 + minut
  106. alarm_time = timer * 60 + timerM
  107. alarm_set = alarm_time - rand(1,5)
  108. if budilnikOn = 1 and alarm_now = alarm_time:
  109. manna -= 10
  110. $waketext = 'Your alarm goes off.'
  111. gs 'bed2', 'wake'
  112. elseif son >= 100 and budilnikOn = 1 and alarm_now >= alarm_set:
  113. $waketext = 'You wake up just before your alarm goes off.'
  114. gs 'bed2', 'wake'
  115. elseif son > 100 and budilnikOn = 0:
  116. $waketext = 'You wake up, no longer tired.'
  117. gs 'bed2', 'wake'
  118. else
  119. jump 'loopson'
  120. end
  121. end
  122. if $args[0] = 'wake':
  123. '<<$waketext>>'
  124. gs 'stat'
  125. if daystart < 10 and StoryLine = 0:'The first thing you think as you wake up is, "Damn! It''s is not a dream, I really am a woman now."'
  126. if daystart >= 10 and daystart < 30 and StoryLine = 0:'Looking at your female body, you are still a little surprised it''s actually you.'
  127. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  128. act 'Get up out of bed and get dressed for school (0:15)':
  129. if schtype = 0:schtype = 6
  130. if schoolH[schtype] = 0:schtype = 6
  131. gs 'clothing', 'wear', 'school', schtype
  132. minut += 15
  133. gs 'bed2', 'end'
  134. end
  135. end
  136. act 'Get out of bed and get dressed (0:15)':
  137. gs 'clothing', 'wear_last_worn'
  138. minut += 15
  139. gs 'bed2', 'end'
  140. end
  141. act 'Get out of bed (0:10)':
  142. minut += 10
  143. gs 'bed2', 'end'
  144. end
  145. end
  146. if $args[0] = 'end':
  147. InSleep = 0
  148. if bedpanty = 0 and clrbelo > 0:
  149. tanga = 1
  150. else
  151. tanga =0
  152. end
  153. gt $locM, $metkaM
  154. end
  155. --- bed2 ---------------------------------