bed2.qsrc 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497
  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 underwear in the morning, click to turn off':bedpanty = 1 & gt 'bed2', 'options'
  7. else
  8. act 'You will not wear underwear 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. cla & *clr
  28. gs 'stat'
  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. Your alarm is set to <<timer>>:<<timerM>> and is currently turned <a href="exec: budilnikOn = 1 & GT ''bed2''">off</a>.'
  36. else
  37. 'You lie on the bed. Your alarm is set to <<timer>>:<<timerM>> and is 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. if $clothingworntype = 'nude':
  42. $sleep_txt = 'Go to sleep'
  43. else
  44. $sleep_txt = 'Undress and go to sleep'
  45. end
  46. if succubusQW = 2:
  47. act '<<$sleep_txt>>':
  48. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  49. gt 'bed2', 'succhoice'
  50. end
  51. else
  52. act '<<$sleep_txt>>':
  53. if disable_autosave = 0:
  54. if StoryLine = 0:
  55. savegame 'autosave.sav'
  56. else
  57. savegame 'autosave_alt.sav'
  58. end
  59. end
  60. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  61. if magf2bdo = 2:
  62. gt 'bed2', 'magbstchoice'
  63. else
  64. gt 'bed2', 'sleep'
  65. end
  66. end
  67. killvar '$sleep_txt'
  68. end
  69. end
  70. act 'Options':gt 'bed2', 'options'
  71. !!Braid hair skill
  72. if canBraidHair = 1 and hBraids = 0 and (pcs_hairlng > 80 and pcs_hairlng <= 800):
  73. act 'Spend some time braiding your hair':
  74. cls
  75. hbraids = 15
  76. minut += 30
  77. 'You spend some time braiding your hair. It may not be salon level quality, but at the end you are happy with the results.'
  78. act 'Return to bed':gt 'bed2'
  79. end
  80. end
  81. if hbraids > 0:
  82. act 'Spend some time removing your braids':
  83. cls
  84. hbraids = 0
  85. minut += 30
  86. 'You spend some time removing your braids. It may not be salon level quality, but at the end you are happy with the results.'
  87. act 'Return to bed':gt 'bed2'
  88. end
  89. end
  90. act 'Get out of bed':killvar '$sleep_txt' & gt $loc, $metka
  91. end
  92. if $ARGS[0] = 'sleep':
  93. cls
  94. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  95. gs 'stat'
  96. pcs_hairbsh = 0
  97. InSleep = 1
  98. cloth_vid = 0
  99. pain['killer'] = 0
  100. if StoryLine = 1 and $loc ! 'bedrPar' and SchoolAtestat = 0:
  101. notathomesleep += 1
  102. else
  103. notathomesleep = 0
  104. end
  105. if succubusflag = 1 and sucwalkday <= daystart:
  106. If succublvl <= rand(1,20) or pcs_willpwr < ((succublvl * willpowermax) / 10) or sucpowzeroed >= 3: gs 'succubus', 'sucwalkinginit'
  107. end
  108. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  109. if vibratorIN = 1 and bedvibrator = 0:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  110. 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.'
  111. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  112. wait 450
  113. *clr
  114. gs 'dreams', 'start'
  115. :loopson
  116. minut += 1
  117. stime += 1
  118. if recuperation = 0:pcs_health += 5
  119. if vibratorIn = 1:
  120. vtime += 1
  121. if vtime >= 5:
  122. pcs_horny +=1
  123. vtime = 0
  124. end
  125. if pcs_horny = 100:
  126. cls
  127. pcs_horny = 0
  128. orgasm += 1
  129. minut += 5
  130. gs 'stat'
  131. '<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
  132. 'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>.'
  133. act 'Go back to sleep':
  134. *clr
  135. cla
  136. gt 'bed2', 'sleep'
  137. end
  138. act 'Give up trying to sleep':
  139. $waketext = 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  140. gt 'bed2', 'wake'
  141. end
  142. exit
  143. end
  144. !! Exclusions for succubus dreams as they set horny to 100 and will always get overridden otherwise
  145. elseif pcs_horny > 80 and pcs_sleep >= 30 and rand (1,300) = 300 and succubusQW ! 1 and succubusQW ! 2:
  146. gt 'bed2', 'wake_horny'
  147. end
  148. if stime >= 60:
  149. stime = 0
  150. pcs_sleep += 15
  151. gs 'stat'
  152. end
  153. alarm_now = hour * 60 + minut
  154. alarm_time = timer * 60 + timerM
  155. alarm_set = alarm_time - rand(1,5)
  156. if alarm_set <0:
  157. alarm_set += 1440
  158. elseif alarm_set >= 1440:
  159. alarm_set -= 1440
  160. end
  161. if slept_in = 1:
  162. gs 'stat'
  163. $waketext = 'You wake up at <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>, after sleeping-in a little longer than planned, but at least you''ve had plenty of sleep.'
  164. gs 'bed2', 'wake'
  165. elseif pcs_sleep >= 100 and budilnikOn = 0:
  166. gs 'stat'
  167. $waketext = 'You wake up at <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>, no longer tired and ready to start the day with plenty of sleep.'
  168. gs 'bed2', 'wake'
  169. elseif pcs_sleep >= 100 and budilnikOn = 1 and alarm_now >= alarm_set:
  170. gs 'stat'
  171. $waketext = 'You wake up at <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>, just before your alarm goes off. You''ve had plenty of sleep.'
  172. gs 'bed2', 'wake'
  173. elseif budilnikOn = 1 and alarm_now = alarm_time:
  174. pcs_mood -= 10
  175. gs 'stat'
  176. $waketext = 'Your alarm goes off at <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>, '+iif(pcs_sleep < 90, 'but you could do with some extra sleep.', 'and you''ve had plenty of sleep.')+''
  177. gs 'bed2', 'extra'
  178. gs 'bed2', 'wake'
  179. else
  180. jump 'loopson'
  181. end
  182. end
  183. if $ARGS[0] = 'wake_horny':
  184. InSleep = 1
  185. gs 'stat'
  186. 'Your wet dream and overall horniness rouse you from your sleep. From one moment to the next, you are wide awake and very much aware that your pussy is hot and wet.'
  187. ''
  188. 'You glance at your alarm clock. It reads <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>.'
  189. ''
  190. 'You could try and go back to sleep, of course, but it''s doubtful that you would find this kind of sleep very restful; not to mention the frustration that comes with ignoring your needs, but masturbating is an option, too, and not the worst one in this situation. It might take some time, but you''d be able to sleep like a baby after.'
  191. ''
  192. 'Of course, you could always just give up on trying to sleep and just get up.'
  193. if $loc = 'bedrPar' and SisterLesb = 5 and hour < 6:
  194. 'Or... you could wake up Anya and see if your dearest sister would be willing to help you with that.'
  195. elseif $loc = 'FedorEv4':
  196. 'Or... you could wake up Fedor and see if your boyfriend can''t help you with that.'
  197. elseif $loc = 'bedr' and husband > 0:
  198. 'Or... you could wake up <<$husName>> and see if your husband can''t help you with that.'
  199. end
  200. act 'Try and go back to sleep':
  201. pcs_mood -= 10
  202. pcs_sleep -= 5
  203. gt 'bed2', 'sleep'
  204. end
  205. act 'Masturbate': InSleep = 0 & gt 'selfplay', 'start'
  206. act 'Get out of bed (0:10)':
  207. minut += 10
  208. slept_in = 0
  209. gs 'bed2', 'end'
  210. end
  211. act 'Get out of bed and get dressed (0:15)':
  212. gs 'clothing', 'wear_last_worn'
  213. slept_in = 0
  214. minut += 15
  215. gs 'bed2', 'end'
  216. end
  217. if $loc = 'bedrPar' and SisterLesb = 5 and hour < 6:
  218. act 'Wake Anya and see if she''s in the mood': InSleep = 0 & gt 'sistersleep'
  219. elseif $loc = 'FedorEv4':
  220. act 'Wake Fedor and see if he''s in the mood': InSleep = 0 & gt 'FedorEv4', 'Bedroom 1'
  221. !!Intro text doesn''t quite fit event (but doesn''t quite fit - try for baby - scenario either) - custom scene from VK?
  222. elseif ($loc = 'bedr' or $loc = bedr2x) and husband > 0:
  223. act 'Wake your husband and see if he''s in the mood': InSleep = 0 & gt 'husbSex', 'variant'
  224. !!Should be custom scene - maybe boyfriend/husband overhaul can cover this?
  225. end
  226. end
  227. if $ARGS[0] = 'wake':
  228. '<<$waketext>>'
  229. InSleep = 1
  230. gs 'stat'
  231. if daystart < 10 and StoryLine = 0 and ntstart = 0:'The first thing you think as you wake up is, "Damn! It''s is not a dream, I really am a woman now."'
  232. if daystart >= 10 and daystart < 30 and StoryLine = 0 and ntstart = 0:'Looking at your female body, you are still a little surprised it''s actually you.'
  233. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  234. if slept_in = 1 and hour >= 8 and hour < 9:
  235. pcs_mood -= 10
  236. gs 'stat'
  237. msg '<center>Damn it''s <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>, you''ve slept too long! You''re going to be late for school!</center>'
  238. end
  239. act 'Get up out of bed and get dressed for school (0:15)':
  240. slept_in = 0
  241. minut += 15
  242. if schtype = 0:schtype = 6
  243. if schoolH[schtype] = 0:schtype = 6
  244. gs 'clothing', 'wear', 'school', schtype
  245. gs 'bed2', 'end'
  246. end
  247. end
  248. act 'Get out of bed and get dressed (0:15)':
  249. gs 'clothing', 'wear_last_worn'
  250. slept_in = 0
  251. minut += 15
  252. gs 'bed2', 'end'
  253. end
  254. if enfullmorrout = 1 and hour >= 4 and hour < 12:
  255. act 'Full morning routine (01:00)':
  256. gs 'clothing', 'wear_last_worn'
  257. slept_in = 0
  258. minut += 15
  259. fullmorrout = 1
  260. gs 'bed2', 'end'
  261. end
  262. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  263. if slept_in = 1 and hour >= 8 and hour < 9:
  264. pcs_mood -= 10
  265. gs 'stat'
  266. msg '<center>Damn, you''ve slept too long! You''re going to be late for school!</center>'
  267. end
  268. act 'Full morning routine for School (01:00)':
  269. fullmorrout = 1
  270. slept_in = 0
  271. minut += 15
  272. if schtype = 0:schtype = 6
  273. if schoolH[schtype] = 0:schtype = 6
  274. gs 'clothing', 'wear', 'school', schtype
  275. gs 'bed2', 'end'
  276. end
  277. end
  278. end
  279. act 'Get out of bed (0:10)':
  280. minut += 10
  281. slept_in = 0
  282. gs 'bed2', 'end'
  283. end
  284. end
  285. if $ARGS[0] = 'extra':
  286. act '"Snooze" a few minutes more...':
  287. slept_in = 1
  288. stime = 0
  289. minut = (100-pcs_sleep)*6
  290. pcs_sleep += 100
  291. gs 'stat'
  292. gt 'bed2', 'sleep'
  293. end
  294. end
  295. if $ARGS[0] = 'end':
  296. InSleep = 0
  297. if bedpanty = 1: gs 'underwear', 'remove'
  298. if fullmorrout = 1 and $loc = 'bedrPar':
  299. gt 'vanrPar'
  300. elseif fullmorrout = 1 and $loc = 'bedr':
  301. gt 'vanr'
  302. else
  303. gt $loc, $metka
  304. end
  305. end
  306. if $ARGS[0] = 'succhoice':
  307. minut += 15
  308. gs 'stat'
  309. cla
  310. if $clothingworntype ! 'nude':
  311. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  312. else
  313. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  314. end
  315. ''
  316. '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.'
  317. ''
  318. 'Thinking about it you realize that you could push the energy out or pull it in!'
  319. ''
  320. '<font color="red"><b>You also feel that both are <i>permanent</i> choices.</b></font>'
  321. act 'Try to ignore it and go to sleep':
  322. if disable_autosave = 0:
  323. if StoryLine = 0:
  324. savegame 'autosave.sav'
  325. else
  326. savegame 'autosave_alt.sav'
  327. end
  328. end
  329. gt 'bed2', 'sleep'
  330. end
  331. act 'Push the Energy out for all time': gt 'bed2', 'succhoiceNO'
  332. act 'Pull the Energy in and let it change you permanently': gt 'bed2', 'succhoiceYES'
  333. end
  334. if $ARGS[0] = 'succhoiceNO':
  335. cla
  336. if $clothingworntype ! 'nude':
  337. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  338. else
  339. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  340. end
  341. ''
  342. 'You push the energy out of you and it dissipates.'
  343. succubusQW = 3
  344. pcs_horny = 0
  345. minut +=5
  346. gs 'stat'
  347. act 'Go to sleep':
  348. if disable_autosave = 0:
  349. if StoryLine = 0:
  350. savegame 'autosave.sav'
  351. else
  352. savegame 'autosave_alt.sav'
  353. end
  354. end
  355. gt 'bed2', 'sleep'
  356. end
  357. end
  358. if $ARGS[0] = 'succhoiceYES':
  359. cla
  360. if $clothingworntype ! 'nude':
  361. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  362. else
  363. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  364. end
  365. succubusQW = 4
  366. ''
  367. 'You pull the energy deeper into yourself and hold it there.'
  368. ''
  369. 'Then you feel pressure building...'
  370. wait 450
  371. minut += 5
  372. gs 'stat'
  373. 'BUILDING...'
  374. wait 450
  375. minut += 5
  376. gs 'stat'
  377. '<b>BUILDING...</b>'
  378. wait 450
  379. minut += 5
  380. gs 'stat'
  381. 'Power bursts through your body causing you to hop out of bed.'
  382. act 'Continue': gt 'bed2', 'succubinit'
  383. end
  384. if $ARGS[0] = 'succubinit':
  385. *clr & cla
  386. minut += 10
  387. gs 'stat'
  388. !!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
  389. !! & the succubus descriptor ($sucself1). The -2 on succhungry is to give th PC 2 days to get in the Succubus grove.
  390. succubusflag = 1
  391. succublvl = 1
  392. suclezsnapshot = lesbian
  393. succhungry = -2
  394. sucwalkday = daystart + 2 + rand(0,5)
  395. $sucself1 = 'that feeling'
  396. pcs_horny = 100
  397. '<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
  398. *nl
  399. '<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>'
  400. if preg = 1:
  401. preg = 0
  402. pregtime = 0
  403. pregtalk = 0
  404. thinkpreg = 0
  405. knowpreg = 0
  406. pregchem = 0
  407. cycle = 4
  408. nextbaby = arrsize('yearkid')
  409. :poliabortloop
  410. if yearkid[nextbaby-1] = 0:
  411. KILLVAR 'polkid',nextbaby-1
  412. KILLVAR '$kidname',nextbaby-1
  413. KILLVAR 'kidage',nextbaby-1
  414. KILLVAR 'daykid',nextbaby-1
  415. KILLVAR 'monthkid',nextbaby-1
  416. KILLVAR 'yearkid',nextbaby-1
  417. KILLVAR 'Babyptype',nextbaby-1
  418. KILLVAR '$ChildFath',nextbaby-1
  419. KILLVAR '$ChildThFath',nextbaby-1
  420. KILLVAR 'hairkid',nextbaby-1
  421. KILLVAR 'eyeskid',nextbaby-1
  422. KILLVAR 'cumarrcon',nextbaby-1
  423. KILLVAR '$wombpotfath'
  424. BabyEmbryo -= 1
  425. end
  426. nextbaby -= 1
  427. if nextbaby > 0:
  428. jump 'poliabortloop'
  429. end
  430. end
  431. act 'Finish': gt $loc, $metka
  432. end
  433. if $ARGS[0] = 'magbstchoice':
  434. cls
  435. cla
  436. tittmp = tits + 1
  437. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tittmp>>.jpg"></center>'
  438. killvar 'tittmp'
  439. 'You have an odd dream where you are looking at your naked chest in a mirror and your breasts seem larger...'
  440. 'As the dream starts to drift away, you find yourself gazing at the reflection of your breasts and think:'
  441. act 'Nice, I wish my breasts really would grow.':
  442. magf2bdo = 1
  443. magtarcup += 1
  444. killvar 'mgf2bnocnt'
  445. gt 'bed2', 'sleep'
  446. end
  447. act 'Eh, I don''t like them like that.': magf2bdo = 0 & mgf2bnocnt += 1 & gt 'bed2', 'sleep'
  448. end
  449. --- bed2 ---------------------------------