1
0

bed2 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333
  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. elseif succubusQW = 2:
  43. act 'Undress and go to sleep':
  44. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  45. gt 'bed2', 'succhoice'
  46. end
  47. else
  48. act 'Undress and go to sleep':
  49. if disable_autosave = 0:
  50. if StoryLine = 0:
  51. savegame 'autosave.sav'
  52. else
  53. savegame 'autosave_alt.sav'
  54. end
  55. end
  56. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  57. if magf2bdo = 2:
  58. gt 'bed2', 'magbstchoice'
  59. else
  60. gt 'bed2', 'sleep'
  61. end
  62. end
  63. end
  64. act 'Options':gt 'bed2', 'options'
  65. act 'Get out of bed':gt $locM, $metkaM
  66. end
  67. if $args[0] = 'sleep':
  68. cls
  69. '<center><img src="images/pics/son.jpg"></center>'
  70. hapri = 0
  71. InSleep = 1
  72. cloth_vid = 0
  73. pain['killer'] = 0
  74. if succubusflag = 1 and sucwalkday <= daystart:
  75. If succublvl <= rand(1,20) or willpower < ((succublvl * willpowermax) / 10) or sucpowzeroed >= 3: gs 'succubus', 'sucwalkinginit'
  76. end
  77. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  78. if vibratorIN = 1 and bedvibrator = 0:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  79. 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.'
  80. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  81. wait 450
  82. *clr
  83. gs 'dreams', 'start'
  84. :loopson
  85. minut += 1
  86. stime += 1
  87. health += 5
  88. if vibratorIn = 1:
  89. vtime += 1
  90. if vtime >= 5:
  91. pcs_horny +=1
  92. vtime = 0
  93. end
  94. if pcs_horny = 100:
  95. cls
  96. pcs_horny = 0
  97. orgasm += 1
  98. minut += 5
  99. gs 'stat'
  100. '<center><img src="images/pic/o_face.jpg"></center>'
  101. 'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <<hour>>:<<minut>>.'
  102. act 'Go back to sleep':
  103. *clr
  104. cla
  105. gt 'bed2', 'sleep'
  106. end
  107. act 'Give up trying to sleep':
  108. $waketext = 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  109. gt 'bed2', 'wake'
  110. end
  111. exit
  112. end
  113. end
  114. if stime >= 60:
  115. stime = 0
  116. son += 15
  117. gs 'stat'
  118. end
  119. alarm_now = hour * 60 + minut
  120. alarm_time = timer * 60 + timerM
  121. alarm_set = alarm_time - rand(1,5)
  122. if alarm_set <0:
  123. alarm_set += 1440
  124. elseif alarm_set >= 1440:
  125. alarm_set -= 1440
  126. end
  127. if budilnikOn = 1 and alarm_now = alarm_time:
  128. manna -= 10
  129. $waketext = 'Your alarm goes off.'
  130. gs 'bed2', 'wake'
  131. elseif son >= 100 and budilnikOn = 1 and alarm_now >= alarm_set:
  132. $waketext = 'You wake up just before your alarm goes off.'
  133. gs 'bed2', 'wake'
  134. elseif son > 100 and budilnikOn = 0:
  135. $waketext = 'You wake up, no longer tired.'
  136. gs 'bed2', 'wake'
  137. else
  138. jump 'loopson'
  139. end
  140. end
  141. if $args[0] = 'wake':
  142. '<<$waketext>>'
  143. gs 'stat'
  144. 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."'
  145. if daystart >= 10 and daystart < 30 and StoryLine = 0:'Looking at your female body, you are still a little surprised it''s actually you.'
  146. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  147. act 'Get up out of bed and get dressed for school (0:15)':
  148. if schtype = 0:schtype = 6
  149. if schoolH[schtype] = 0:schtype = 6
  150. gs 'clothing', 'wear', 'school', schtype
  151. minut += 15
  152. gs 'bed2', 'end'
  153. end
  154. end
  155. act 'Get out of bed and get dressed (0:15)':
  156. gs 'clothing', 'wear_last_worn'
  157. minut += 15
  158. gs 'bed2', 'end'
  159. end
  160. act 'Get out of bed (0:10)':
  161. minut += 10
  162. gs 'bed2', 'end'
  163. end
  164. end
  165. if $args[0] = 'end':
  166. InSleep = 0
  167. if tanga = 1:
  168. if bedpanty = 1:
  169. tanga = 0
  170. dirtbelo += 1
  171. else
  172. if clrbelo > 0:
  173. clrbelo -= 1 & dirtbelo += 1
  174. else
  175. tanga = 0 & dirtbelo += 1
  176. end
  177. end
  178. else
  179. if bedpanty = 0 and clrbelo > 0:tanga = 1 & clrbelo -= 1
  180. end
  181. gt $locM, $metkaM
  182. end
  183. if $ARGS[0] = 'succhoice':
  184. minut += 15
  185. gs 'stat'
  186. cla
  187. if $clothingworntype ! 'nude':
  188. '<center><img src="images/pics/bed.jpg"></center>'
  189. else
  190. '<center><img src="images/pics/son.jpg"></center>'
  191. end
  192. ''
  193. 'You toss and turn for a while, but the energy that has been buzzing under your skin since that dream just won''t let you sleep.'
  194. ''
  195. 'Thinking about it you realize that you could push the energy out or pull it in!'
  196. ''
  197. '<font color="red"><b>You also feel that both are <i>permanent</i> choices.</b></font>'
  198. act 'Try to ignore it and go to sleep':
  199. if disable_autosave = 0:
  200. if StoryLine = 0:
  201. savegame 'autosave.sav'
  202. else
  203. savegame 'autosave_alt.sav'
  204. end
  205. end
  206. gt 'bed2', 'sleep'
  207. end
  208. act 'Push the Energy out for all time': gt 'bed2', 'succhoiceNO'
  209. act 'Pull the Energy in and let it change you permanently': gt 'bed2', 'succhoiceYES'
  210. end
  211. if $ARGS[0] = 'succhoiceNO':
  212. cla
  213. if $clothingworntype ! 'nude':
  214. '<center><img src="images/pics/bed.jpg"></center>'
  215. else
  216. '<center><img src="images/pics/son.jpg"></center>'
  217. end
  218. ''
  219. 'You push the energy out of you and it dissipates.'
  220. succubusQW = 3
  221. pcs_horny = 0
  222. minut +=5
  223. gs 'stat'
  224. act 'Go to sleep':
  225. if disable_autosave = 0:
  226. if StoryLine = 0:
  227. savegame 'autosave.sav'
  228. else
  229. savegame 'autosave_alt.sav'
  230. end
  231. end
  232. gt 'bed2', 'sleep'
  233. end
  234. end
  235. if $ARGS[0] = 'succhoiceYES':
  236. cla
  237. if $clothingworntype ! 'nude':
  238. '<center><img src="images/pics/bed.jpg"></center>'
  239. else
  240. '<center><img src="images/pics/son.jpg"></center>'
  241. end
  242. succubusQW = 4
  243. ''
  244. 'You pull the energy deeper into yourself and hold it there.'
  245. ''
  246. 'Then you feel pressure building...'
  247. wait 450
  248. minut += 5
  249. gs 'stat'
  250. 'BUILDING...'
  251. wait 450
  252. minut += 5
  253. gs 'stat'
  254. '<b>BUILDING...</b>'
  255. wait 450
  256. minut += 5
  257. gs 'stat'
  258. 'Power bursts through your body causing you to hop out of bed.'
  259. act 'Continue': gt 'bed2', 'succubinit'
  260. end
  261. if $ARGS[0] = 'succubinit':
  262. cls
  263. cla
  264. minut += 10
  265. gs 'stat'
  266. !!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
  267. !! & the succubus descriptor ($sucself1). The -2 on succhungry is to give th PC 2 days to get in the Succubus grove.
  268. succubusflag = 1
  269. succublvl = 1
  270. suclezsnapshot = lesbian
  271. succhungry = -2
  272. sucwalkday = daystart + 2 + rand(0,5)
  273. $sucself1 = 'that feeling'
  274. pcs_horny = 100
  275. '<center><img src="images/picQW/succubusself.jpg"></center>'
  276. ''
  277. '<font color="red">You feel the power flowing around your body for several minutes, leaking through your skin and making changes all throughout you, before fading to a presence deep in your core leaving you looking the same as before... but feeling so different! </font>'
  278. act 'Finish': gt $locM, $metkaM
  279. end
  280. if $ARGS[0] = 'magbstchoice':
  281. cls
  282. cla
  283. tittmp = tits + 1
  284. '<center><img src="images/body/t<<tittmp>>.jpg"></center>'
  285. killvar 'tittmp'
  286. 'You have an odd dream where you are looking at your naked chest in a mirror and your breasts seem larger...'
  287. 'As the dream starts to drift away, you find yourself gazing at the reflection of your breasts and think:'
  288. act 'Nice, I wish my breasts really would grow.':
  289. magf2bdo = 1
  290. magtarcup += 1
  291. killvar 'mgf2bnocnt'
  292. gt 'bed2', 'sleep'
  293. end
  294. act 'Eh, I don''t like them like that.': magf2bdo = 0 & mgf2bnocnt += 1 & gt 'bed2', 'sleep'
  295. end
  296. --- bed2 ---------------------------------