1
0

bed2 9.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359
  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 <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  31. else
  32. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/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 pcs_makeup ! 1:'<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
  40. if pcs_sleep > 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. !!Braid hair skill
  66. if canBraidHair = 1 and hBraids = 0 and (pcs_hairlng > 80 and pcs_hairlng <= 800):
  67. act 'Spend some time braiding your hair':
  68. cls
  69. hbraids = 15
  70. minut += 30
  71. 'You spend some time braiding your hair. It may not be salon level quality, but at the end you are happy with the results.'
  72. act 'Return to bed':gt 'bed2'
  73. end
  74. end
  75. if hbraids > 0:
  76. act 'Spend some time removing your braids':
  77. cls
  78. hbraids = 0
  79. minut += 30
  80. 'You spend some time removing your braids. It may not be salon level quality, but at the end you are happy with the results.'
  81. act 'Return to bed':gt 'bed2'
  82. end
  83. end
  84. act 'Get out of bed':gt $locM, $metkaM
  85. end
  86. if $args[0] = 'sleep':
  87. cls
  88. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  89. pcs_hairbsh = 0
  90. InSleep = 1
  91. cloth_vid = 0
  92. pain['killer'] = 0
  93. if succubusflag = 1 and sucwalkday <= daystart:
  94. If succublvl <= rand(1,20) or pcs_willpwr < ((succublvl * willpowermax) / 10) or sucpowzeroed >= 3: gs 'succubus', 'sucwalkinginit'
  95. end
  96. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  97. if vibratorIN = 1 and bedvibrator = 0:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  98. if pcs_makeup > 1:pcs_makeup = 0 & vidageday -= 1 & 'Makeup smears your face, you think that it looks bad sleeping in makeup, and your skin will age faster from this.'
  99. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  100. wait 450
  101. *clr
  102. gs 'dreams', 'start'
  103. :loopson
  104. minut += 1
  105. stime += 1
  106. pcs_health += 5
  107. if vibratorIn = 1:
  108. vtime += 1
  109. if vtime >= 5:
  110. pcs_horny +=1
  111. vtime = 0
  112. end
  113. if pcs_horny = 100:
  114. cls
  115. pcs_horny = 0
  116. orgasm += 1
  117. minut += 5
  118. gs 'stat'
  119. '<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
  120. 'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <<hour>>:<<minut>>.'
  121. act 'Go back to sleep':
  122. *clr
  123. cla
  124. gt 'bed2', 'sleep'
  125. end
  126. act 'Give up trying to sleep':
  127. $waketext = 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  128. gt 'bed2', 'wake'
  129. end
  130. exit
  131. end
  132. end
  133. if stime >= 60:
  134. stime = 0
  135. pcs_sleep += 15
  136. gs 'stat'
  137. end
  138. alarm_now = hour * 60 + minut
  139. alarm_time = timer * 60 + timerM
  140. alarm_set = alarm_time - rand(1,5)
  141. if alarm_set <0:
  142. alarm_set += 1440
  143. elseif alarm_set >= 1440:
  144. alarm_set -= 1440
  145. end
  146. if budilnikOn = 1 and alarm_now = alarm_time:
  147. pcs_mood -= 10
  148. $waketext = 'Your alarm goes off.'
  149. gs 'bed2', 'wake'
  150. elseif pcs_sleep >= 100 and budilnikOn = 1 and alarm_now >= alarm_set:
  151. $waketext = 'You wake up just before your alarm goes off.'
  152. gs 'bed2', 'wake'
  153. elseif pcs_sleep > 100 and budilnikOn = 0:
  154. $waketext = 'You wake up, no longer tired.'
  155. gs 'bed2', 'wake'
  156. else
  157. jump 'loopson'
  158. end
  159. end
  160. if $args[0] = 'wake':
  161. '<<$waketext>>'
  162. gs 'stat'
  163. 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."'
  164. if daystart >= 10 and daystart < 30 and StoryLine = 0:'Looking at your female body, you are still a little surprised it''s actually you.'
  165. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  166. act 'Get up out of bed and get dressed for school (0:15)':
  167. if schtype = 0:schtype = 6
  168. if schoolH[schtype] = 0:schtype = 6
  169. gs 'clothing', 'wear', 'school', schtype
  170. minut += 15
  171. gs 'bed2', 'end'
  172. end
  173. end
  174. act 'Get out of bed and get dressed (0:15)':
  175. gs 'clothing', 'wear_last_worn'
  176. minut += 15
  177. gs 'bed2', 'end'
  178. end
  179. act 'Get out of bed (0:10)':
  180. minut += 10
  181. gs 'bed2', 'end'
  182. end
  183. end
  184. if $args[0] = 'end':
  185. InSleep = 0
  186. if tanga = 1:
  187. if bedpanty = 1:
  188. tanga = 0
  189. dirtbelo += 1
  190. else
  191. if clrbelo > 0:
  192. clrbelo -= 1 & dirtbelo += 1
  193. else
  194. tanga = 0 & dirtbelo += 1
  195. end
  196. end
  197. else
  198. if bedpanty = 0 and clrbelo > 0:tanga = 1 & clrbelo -= 1
  199. end
  200. gt $locM, $metkaM
  201. end
  202. if $ARGS[0] = 'succhoice':
  203. minut += 15
  204. gs 'stat'
  205. cla
  206. if $clothingworntype ! 'nude':
  207. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  208. else
  209. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  210. end
  211. ''
  212. '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.'
  213. ''
  214. 'Thinking about it you realize that you could push the energy out or pull it in!'
  215. ''
  216. '<font color="red"><b>You also feel that both are <i>permanent</i> choices.</b></font>'
  217. act 'Try to ignore it and go to sleep':
  218. if disable_autosave = 0:
  219. if StoryLine = 0:
  220. savegame 'autosave.sav'
  221. else
  222. savegame 'autosave_alt.sav'
  223. end
  224. end
  225. gt 'bed2', 'sleep'
  226. end
  227. act 'Push the Energy out for all time': gt 'bed2', 'succhoiceNO'
  228. act 'Pull the Energy in and let it change you permanently': gt 'bed2', 'succhoiceYES'
  229. end
  230. if $ARGS[0] = 'succhoiceNO':
  231. cla
  232. if $clothingworntype ! 'nude':
  233. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  234. else
  235. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  236. end
  237. ''
  238. 'You push the energy out of you and it dissipates.'
  239. succubusQW = 3
  240. pcs_horny = 0
  241. minut +=5
  242. gs 'stat'
  243. act 'Go to sleep':
  244. if disable_autosave = 0:
  245. if StoryLine = 0:
  246. savegame 'autosave.sav'
  247. else
  248. savegame 'autosave_alt.sav'
  249. end
  250. end
  251. gt 'bed2', 'sleep'
  252. end
  253. end
  254. if $ARGS[0] = 'succhoiceYES':
  255. cla
  256. if $clothingworntype ! 'nude':
  257. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  258. else
  259. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  260. end
  261. succubusQW = 4
  262. ''
  263. 'You pull the energy deeper into yourself and hold it there.'
  264. ''
  265. 'Then you feel pressure building...'
  266. wait 450
  267. minut += 5
  268. gs 'stat'
  269. 'BUILDING...'
  270. wait 450
  271. minut += 5
  272. gs 'stat'
  273. '<b>BUILDING...</b>'
  274. wait 450
  275. minut += 5
  276. gs 'stat'
  277. 'Power bursts through your body causing you to hop out of bed.'
  278. act 'Continue': gt 'bed2', 'succubinit'
  279. end
  280. if $ARGS[0] = 'succubinit':
  281. cls
  282. cla
  283. minut += 10
  284. gs 'stat'
  285. !!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
  286. !! & the succubus descriptor ($sucself1). The -2 on succhungry is to give th PC 2 days to get in the Succubus grove.
  287. succubusflag = 1
  288. succublvl = 1
  289. suclezsnapshot = lesbian
  290. succhungry = -2
  291. sucwalkday = daystart + 2 + rand(0,5)
  292. $sucself1 = 'that feeling'
  293. pcs_horny = 100
  294. '<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
  295. ''
  296. '<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>'
  297. act 'Finish': gt $locM, $metkaM
  298. end
  299. if $ARGS[0] = 'magbstchoice':
  300. cls
  301. cla
  302. tittmp = tits + 1
  303. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tittmp>>.jpg"></center>'
  304. killvar 'tittmp'
  305. 'You have an odd dream where you are looking at your naked chest in a mirror and your breasts seem larger...'
  306. 'As the dream starts to drift away, you find yourself gazing at the reflection of your breasts and think:'
  307. act 'Nice, I wish my breasts really would grow.':
  308. magf2bdo = 1
  309. magtarcup += 1
  310. killvar 'mgf2bnocnt'
  311. gt 'bed2', 'sleep'
  312. end
  313. act 'Eh, I don''t like them like that.': magf2bdo = 0 & mgf2bnocnt += 1 & gt 'bed2', 'sleep'
  314. end
  315. --- bed2 ---------------------------------