bed2.qsrc 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751
  1. # bed2
  2. !2020/10/14/Gwen
  3. if $ARGS[0] = '':
  4. cla & *clr
  5. $menu_loc = 'bed2'
  6. $menu_arg = ''
  7. menu_off = 0
  8. $alarmloc = 'bed2'
  9. if clo_flag['bed'] = 1:
  10. clo_flag['bed'] = 0
  11. gs 'clothing', 'wear', $lastwornclothingtype['bed'], lastwornclothingnumber['bed']
  12. gs 'panties', 'wear', $lastwornpantytype['bed'], lastwornpantynumber['bed']
  13. gs 'bras', 'wear', $lastwornbratype['bed'], lastwornbranumber['bed']
  14. end
  15. gs 'stat'
  16. if $clothingworntype ! 'nude':
  17. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  18. else
  19. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  20. end
  21. *nl
  22. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b> during the week and <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b> during the weekend. It is currently turned '+iif(budilnikOn = 0, '<a href="exec: budilnikOn = 1 & gt ''bed2''">OFF</a>.', '<a href="exec: budilnikOn = 0 & gt ''bed2''">ON</a>.')
  23. *nl
  24. if hypnoPanty <= 0:
  25. if bedPanty = 0:
  26. 'Will you always wear your underwear to bed? Currently - <a href="exec:bedPanty = 1 & gs ''stat'' & & gt ''bed2''">AS IS</a>.'
  27. elseif bedPanty = 1:
  28. 'Will you always wear your underwear to bed? Currently - <a href="exec:bedPanty = 2 & gs ''stat'' & gt ''bed2''">YES</a>.'
  29. elseif bedPanty = 2:
  30. 'Will you always wear your underwear to bed? Currently - <a href="exec:bedPanty = 0 & gs ''stat'' & gt ''bed2''">NO</a>.'
  31. end
  32. end
  33. *nl
  34. if analplug = 1 :
  35. if bedAnal = 0:
  36. 'Should you always remove your anal plug before bed? Currently - <a href="exec:bedAnal = 1 & gs ''stat'' & gt ''bed2''">NO</a>.'
  37. elseif bedAnal = 1:
  38. 'Should you always remove your anal plug before bed? Currently - <a href="exec:bedAnal = 0 & gs ''stat'' & gt ''bed2''">YES</a>.'
  39. end
  40. end
  41. if vibrator = 1 and cheatVib = 1:
  42. if bedVibrator = 0:
  43. 'Should you always remove your vibrator before bed? Currently - <a href="exec:bedVibrator = 1 & gs ''stat'' & gt ''bed2''">NO</a>.'
  44. elseif bedVibrator = 1:
  45. 'Should you always remove your vibrator before bed? Currently - <a href="exec:bedVibrator = 0 & gs ''stat'' & gt ''bed2''">YES</a>.'
  46. end
  47. end
  48. if pcs_makeup ! 1 and cosmetic_tattoo = 0:*nl '<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
  49. if pcs_sleep <= 80:
  50. if $clothingworntype = 'nude':
  51. $sleep_txt = 'Go to bed'
  52. else
  53. $sleep_txt = 'Undress and go to bed'
  54. end
  55. if succubusQW = 2:
  56. act '<<$sleep_txt>>':
  57. if clo_flag['bed'] = 0:
  58. clo_flag['bed'] = 1
  59. $lastwornclothingtype['bed'] = $clothingworntype
  60. lastwornclothingnumber['bed'] = clothingwornnumber
  61. $lastwornpantytype['bed'] = $pantyworntype
  62. lastwornpantynumber['bed'] = pantywornnumber
  63. $lastwornbratype['bed'] = $braworntype
  64. lastwornbranumber['bed'] = brawornnumber
  65. end
  66. menu_off = 1
  67. if bedPanty = 2:
  68. gs 'underwear', 'remove'
  69. elseif bedPanty = 1:
  70. gs 'underwear', 'wear'
  71. end
  72. if $clothingworntype ! 'nude':
  73. strip_here = 1
  74. gs 'clothing', 'strip'
  75. end
  76. gt 'bed2', 'succhoice'
  77. end
  78. else
  79. act '<<$sleep_txt>>':
  80. if clo_flag['bed'] = 0:
  81. clo_flag['bed'] = 1
  82. $lastwornclothingtype['bed'] = $clothingworntype
  83. lastwornclothingnumber['bed'] = clothingwornnumber
  84. $lastwornpantytype['bed'] = $pantyworntype
  85. lastwornpantynumber['bed'] = pantywornnumber
  86. $lastwornbratype['bed'] = $braworntype
  87. lastwornbranumber['bed'] = brawornnumber
  88. end
  89. menu_off = 1
  90. if bedPanty = 2:
  91. gs 'underwear', 'remove'
  92. elseif bedPanty = 1:
  93. gs 'underwear', 'wear'
  94. end
  95. if disable_autosave = 0:
  96. if StoryLine = 0:
  97. savegame 'autosave.sav'
  98. else
  99. savegame 'autosave_alt.sav'
  100. end
  101. end
  102. if $clothingworntype ! 'nude':
  103. strip_here = 1
  104. gs 'clothing', 'strip'
  105. end
  106. if magf2bdo = 2:
  107. gt 'bed2', 'magbstchoice'
  108. else
  109. gt 'bed2', 'sleep'
  110. end
  111. end
  112. killvar '$sleep_txt'
  113. end
  114. end
  115. act 'Get out of bed': killvar '$sleep_txt' & gt $loc, $loc_arg
  116. act 'Take a nap (1:00)':
  117. menu_off = 1
  118. if pcs_sleep >= 10 and pcs_sleep <= 90:
  119. pcs_sleep += 10
  120. pcs_health += 5
  121. minut += 60
  122. gs 'stat'
  123. *nl
  124. 'You sleep about an hour.'
  125. elseif pcs_sleep < 10:
  126. gt 'bed2', 'sleep'
  127. else
  128. minut += 5
  129. gs 'stat'
  130. *nl
  131. 'You are not tired enough to sleep, even for a short nap.'
  132. end
  133. end
  134. gs 'events', 'read'
  135. if $loc = 'bedrPar':
  136. if anyaloc['inroom'] = 0 or anyaloc = 1 or anyaloc = 26:
  137. if pornMagazine > 0:gs 'events', 'read_porn'
  138. if (pcs_horny > 75 and pcs_inhib >= 60) or (pcs_horny > 50 and fame['pav_slut'] >= 150) or (pcs_horny > 50 and fame['pav_slut'] >= 50 and pcs_inhib >= 60):
  139. act 'Masturbate':
  140. InSleep = 0
  141. gt 'selfplay', 'start'
  142. end
  143. end
  144. end
  145. else
  146. if pornMagazine > 0:gs 'events', 'read_porn'
  147. if (pcs_horny > 75 and pcs_inhib >= 60) or (pcs_horny > 50 and fame['pav_slut'] >= 150) or (pcs_horny > 50 and fame['pav_slut'] >= 50 and pcs_inhib >= 60):
  148. act 'Masturbate':
  149. InSleep = 0
  150. gt 'selfplay', 'start'
  151. end
  152. end
  153. end
  154. end
  155. if $ARGS[0] = 'sleep':
  156. *clr & cla
  157. menu_off = 1
  158. if $clothingworntype ! 'nude':
  159. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  160. else
  161. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  162. end
  163. gs 'stat'
  164. *nl
  165. if budilnikOn = 1 and ((hour => timer and week + 1 < 6) or (hour < timer and week < 6)):
  166. 'You run through your regular nightly routine, setting your alarm for <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b>, you undress, and prepare for sleep:'
  167. elseif budilnikOn = 1 and alarm_holiday = 1 and (week > 5 or kanikuli > 0):
  168. 'You run through your regular nightly routine, setting your alarm for <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b>, you undress, and prepare for sleep:'
  169. elseif budilnikOn = 1 and (week > 5):
  170. 'You run through your regular nightly routine, setting your alarm for <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b>, you undress, and prepare for sleep:'
  171. elseif budilnikOn = 1:
  172. 'You run through your regular nightly routine, setting your alarm for <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b>, you undress, and prepare for sleep:'
  173. else
  174. 'You run through your regular nightly routine, not bothering to setting your alarm, you undress, and prepare for sleep:'
  175. end
  176. pcs_hairbsh = 0
  177. pain['killer'] = 0
  178. if StoryLine = 1 and $loc ! 'bedrPar' and SchoolAtestat = 0:
  179. notathomesleep += 1
  180. else
  181. notathomesleep = 0
  182. end
  183. if succubusflag = 1 and sucwalkday <= daystart and (succhungry < (0 - 1 - succublvl) or pcs_willpwr < ((succublvl * willpowermax) / 13) or sucpowzeroed >= 3): gs 'succubus', 'sucwalkinginit'
  184. if analplugIN = 1 and vibratorIN = 1:
  185. if bedAnal = 1 and bedVibrator = 1:
  186. analplugIN = 0
  187. vibratorIN = 0
  188. gs 'stat'
  189. *nl
  190. 'You remove your butt plug and your vibrator.'
  191. elseif bedAnal = 0 and bedVibrator = 0:
  192. *nl
  193. 'You decide to leave your butt plug and vibrator in.'
  194. elseif bedAnal = 1 and bedVibrator = 0:
  195. vibratorIN = 0
  196. gs 'stat'
  197. *nl
  198. 'You decide to leave your butt plug in, but remove your vibrator.'
  199. elseif bedAnal = 0 and bedVibrator = 1:
  200. analplugIN = 0
  201. gs 'stat'
  202. *nl
  203. 'You decide to remove your butt plug, but leave your vibrator in.'
  204. end
  205. elseif analplugIN = 1 and vibratorIN = 0:
  206. if bedAnal = 1:
  207. analplugIN = 0
  208. gs 'stat'
  209. *nl
  210. 'You remove your butt plug.'
  211. elseif bedAnal = 0:
  212. *nl
  213. 'You decide to leave your butt plug in.'
  214. end
  215. elseif analplugIN = 0 and vibratorIN = 1:
  216. if bedVibrator = 1:
  217. vibratorIN = 0
  218. *nl
  219. 'You remove your vibrator.'
  220. elseif bedVibrator = 0:
  221. *nl
  222. 'You decide to leave your vibrator in.'
  223. end
  224. end
  225. if $shoeworntype = 'none':
  226. $bed['shoetype'] = 'none'
  227. else
  228. $bed['shoetype'] = $shoeworntype
  229. bed['shoenumber'] = shoewornnumber
  230. !! gs 'shoes', 'strip'
  231. end
  232. if bedPanty = 1 and $pantyworntype = 'none' and $braworntype = 'none':
  233. *nl
  234. 'You put on your bra and panties.'
  235. elseif bedPanty = 1 and $pantyworntype ! 'none' and $braworntype = 'none':
  236. *nl
  237. 'You put on your bra.'
  238. elseif bedPanty = 1 and $pantyworntype ! 'none' and $braworntype ! 'none':
  239. *nl
  240. 'You put on your panties.'
  241. elseif bedPanty = 1:
  242. *nl
  243. 'You change your bra and panties.'
  244. elseif bedPanty = 2:
  245. *nl
  246. 'You remove your bra and panties.'
  247. else
  248. *nl
  249. 'You were too tired to worry about your underwear, so for tonight you left it as is.'
  250. end
  251. if hscrunchw = 1:
  252. *nl
  253. '<<$hscrunch>>.'
  254. elseif hscrunchw = 2:
  255. *nl
  256. '<<$hpigtail>>'
  257. elseif hpingripw > 0:
  258. *nl
  259. '<<$hpingrip>>'
  260. elseif hbraids > 0:
  261. *nl
  262. '<<$hbraids>>'
  263. else
  264. *nl
  265. 'Your hair is loose and free.'
  266. end
  267. if pcs_makeup > 1 and cosmetic_tattoo = 0:
  268. pcs_makeup = 0
  269. vidageday -= 1
  270. *nl
  271. 'You went to bed wearing your makeup, which will smear your face as you sleep; your skin will age faster from this!'
  272. end
  273. if fat > 5 and stringimplant = 1: silicone += 1 & fat -= 5
  274. act 'Sleep...':
  275. !!flag to stop autosave breaking my awesome clothing thingy
  276. clo_flag['bed'] = 0
  277. gt 'bed2', 'dream'
  278. end
  279. end
  280. if $ARGS[0] = 'dream':
  281. if $loc = 'nichBedroomServant':
  282. gs 'nichBedroomServant', 'sleepEvents'
  283. end
  284. *clr & cla
  285. menu_off = 1
  286. InSleep = 1
  287. gs 'stat'
  288. gs 'dreams', 'start'
  289. !! to avoid sleeping the whole day I decide to calcululate the duration of the sleep in advance
  290. !! the quality of the sleep depends on many factors, so the time of sleep can be modify later, especially the part when the time of sleep is shortened
  291. varsleep['time_to_full'] = (100 - pcs_sleep) * 6
  292. !! fully exhausted Sveta can recover in 420 minutes = 7 hours of sleep
  293. !! healthy Sveta can hardly sleep more then 10 hours = 600 minutes
  294. !! so we can add about 3 hours to time to full as a limit
  295. varsleep['time_to_full'] += 150 + rand(0,60)
  296. varsleep['time_now'] = daystart*1440 + hour * 60 + minut
  297. varsleep['alarm_time_end'] = daystart*1440 + timerEnd * 60 + timerEndM
  298. if varsleep['time_now'] >= varsleep['alarm_time_end']: varsleep['alarm_time_end'] += 1440
  299. varsleep['alarm_time'] = daystart*1440 + timer * 60 + timerM
  300. if varsleep['time_now'] >= varsleep['alarm_time']: varsleep['alarm_time'] += 1440
  301. if budilnikOn = 1:
  302. varsleep['minutes to wakeup'] = min(varsleep['time_to_full'], varsleep['alarm_time'] - varsleep['time_now'])
  303. varsleep['minutes to wakeup end'] = min(varsleep['time_to_full'], varsleep['alarm_time_end'] - varsleep['time_now'])
  304. else
  305. varsleep['minutes to wakeup'] = varsleep['time_to_full']
  306. varsleep['minutes to wakeup end'] = varsleep['time_to_full']
  307. end
  308. :loopson_bed
  309. minut += 1
  310. stime += 1
  311. if recuperation = 0:pcs_health += 5
  312. if vibratorIN = 1:
  313. vtime += 1
  314. if vtime >= 5:
  315. pcs_horny +=1
  316. vtime = 0
  317. end
  318. if pcs_horny = 100:
  319. *clr & cla
  320. pcs_horny = 0
  321. orgasm += 1
  322. minut += 5
  323. gs 'stat'
  324. '<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
  325. *nl
  326. 'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
  327. act 'Go back to sleep':
  328. *clr & cla
  329. gt 'bed2', 'dream'
  330. end
  331. act 'Give up trying to sleep':
  332. *clr & cla
  333. '<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
  334. *nl
  335. 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  336. gs 'bed2', 'wake'
  337. end
  338. exit
  339. end
  340. !! Exclusions for succubus dreams as they set horny to 100 and will always get overridden otherwise
  341. elseif pcs_horny > 80 and pcs_sleep >= 30 and rand (1,300) = 300 and succubusQW ! 1 and succubusQW ! 2:
  342. gs 'stat'
  343. $waketext = 'You glance at your alarm clock. It reads <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
  344. gt 'bed2', 'wake_horny'
  345. end
  346. if stime >= 60:
  347. stime = 0
  348. pcs_sleep += 15
  349. gs 'stat'
  350. end
  351. varsleep['minutes to wakeup'] -= 1
  352. varsleep['minutes to wakeup end'] -= 1
  353. if alarm_holiday = 1 and kanikuli > 0:
  354. !! use weekend time alarm
  355. varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
  356. if varsleep['minutes to wakeup end'] > 0:jump 'loopson_bed'
  357. elseif week > 5:
  358. !! use weeken time alarm
  359. varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
  360. if varsleep['minutes to wakeup end'] > 0:jump 'loopson_bed'
  361. else
  362. varsleep['alarm_time'] = daystart*1440 + timer * 60 + timerM
  363. if varsleep['minutes to wakeup'] > 0:jump 'loopson_bed'
  364. end
  365. varsleep['time_now'] = daystart*1440 + hour * 60 + minut
  366. gs 'stat'
  367. if slept_in = 1:
  368. $waketext = 'You wake up at <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, after sleeping-in a little longer than planned, but at least you''ve had plenty of sleep.'
  369. elseif pcs_sleep >= 100 and budilnikOn = 1 and varsleep['time_now'] >= varsleep['alarm_time']:
  370. $waketext = 'You wake up at <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, just before your alarm goes off. You''ve had plenty of sleep.'
  371. elseif pcs_sleep >= 100:
  372. $waketext = 'You wake up at <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, no longer tired and ready to start the day with plenty of sleep.'
  373. elseif budilnikOn = 1 and varsleep['time_now'] = varsleep['alarm_time']:
  374. pcs_mood -= 10
  375. $waketext = 'Your alarm goes off at <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, '+iif(pcs_sleep < 90, 'but you could do with some extra sleep.', 'and you''ve had plenty of sleep.')+''
  376. gs 'bed2', 'extra'
  377. else
  378. !! I do not think that it could go here
  379. $waketext = ''
  380. end
  381. gs 'bed2', 'wake'
  382. *nl
  383. '<<$waketext>>'
  384. end
  385. if $ARGS[0] = 'wake_horny':
  386. cla
  387. menu_off = 1
  388. InSleep = 1
  389. SleepHorny += 1
  390. gs 'stat'
  391. if $pantyworntype = 'none':
  392. if SleepHorny = 1:
  393. '<center><img <<$set_imgh>> src="images/shared/home/sleep_horny.jpg"></center>'
  394. elseif SleepHorny = 2:
  395. '<center><img <<$set_imgh>> src="images/shared/sex/mast/klit.jpg"></center>'
  396. elseif SleepHorny >= 3:
  397. '<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
  398. end
  399. else
  400. if SleepHorny = 1:
  401. '<center><img <<$set_imgh>> src="images/shared/sex/mast/start.jpg"></center>'
  402. elseif SleepHorny = 2:
  403. '<center><img <<$set_imgh>> src="images/shared/sex/undress/kiska.jpg"></center>'
  404. elseif SleepHorny >= 3:
  405. '<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
  406. end
  407. end
  408. *nl
  409. '<<$waketext>>'
  410. *nl
  411. if SleepHorny = 1:
  412. '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.'
  413. *nl
  414. '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.'
  415. *nl
  416. 'Of course, you could always just give up on trying to sleep and just get up.'
  417. elseif SleepHorny = 2:
  418. 'You''re so horny that you''ve woken a second time. Your pussy is still wet and wanting attention.'
  419. *nl
  420. 'You could try and get back to sleep again, but it''s doubtful that you will get much sleep, and continuously ignoring your needs won''t help; maybe you should masturbate, and make the most of the time that''s left.'
  421. *nl
  422. 'Soon you will have to get up one way or another.'
  423. elseif SleepHorny >= 3:
  424. 'Once again your horniness has roused you from your sleep. This is getting ridiculous! You are finding it very difficult to get any sleep at all.'
  425. *nl
  426. 'Going back to sleep almost feels like a waste of time at this point; you won''t get much rest at all, at least until you fix the problem.'
  427. *nl
  428. if $pantyworntype ! 'none':
  429. gs 'underwear', 'remove'
  430. 'You''ve removed your underwear, as your panties were soaked through.'
  431. *nl
  432. end
  433. 'Maybe you should just get up.'
  434. end
  435. if $loc = 'bedrPar' and sisterLesb = 6 and hour < 6:
  436. *nl
  437. 'Or... you could wake up Anya and see if your dearest sister would be willing to help you with that.'
  438. elseif $loc = 'FedorEv4':
  439. *nl
  440. 'Or... you could wake up Fedor and see if your boyfriend can''t help you with that.'
  441. elseif $loc = 'bedr' and husband > 0:
  442. *nl
  443. 'Or... you could wake up <<$husName>> and see if your husband can''t help you with that.'
  444. end
  445. act 'Try and go back to sleep':
  446. pcs_mood -= 10
  447. pcs_sleep -= 5
  448. gt 'bed2', 'dream'
  449. end
  450. act 'Masturbate': InSleep = 0 & gt 'selfplay', 'start'
  451. act 'Get out of bed (0:10)':
  452. minut += 10
  453. gs 'bed2', 'end'
  454. end
  455. if strip_here = 1:
  456. act 'Get out of bed and get dressed (0:15)':
  457. minut += 15
  458. gs 'clothing', 'wear', $lastwornclothingtype['bed'], lastwornclothingnumber['bed']
  459. gs 'panties', 'wear', $lastwornpantytype['bed'], lastwornpantynumber['bed']
  460. gs 'bras', 'wear', $lastwornbratype['bed'], lastwornbranumber['bed']
  461. if bed['shoetype'] ! 'none':
  462. gs 'shoes', 'wear', $bed['shoetype'], bed['shoenumber']
  463. end
  464. gs 'bed2', 'end'
  465. end
  466. end
  467. if $loc = 'bedrPar' and sisterLesb = 6 and hour < 6:
  468. act 'Wake Anya and see if she''s in the mood': strip_here = 0 & InSleep = 0 & gt 'sistersleep', 'sister_sleep'
  469. elseif $loc = 'FedorEv4':
  470. act 'Wake Fedor and see if he''s in the mood': strip_here = 0 & InSleep = 0 & gt 'FedorEv4', 'Bedroom 1'
  471. !!Intro text doesn''t quite fit event (but doesn''t quite fit - try for baby - scenario either) - custom scene from VK?
  472. elseif ($loc = 'bedr' or $loc = 'bedr2x') and husband > 0:
  473. act 'Wake your husband and see if he''s in the mood': strip_here = 0 & InSleep = 0 & gt 'husbSex', 'variant'
  474. !!Should be custom scene - maybe boyfriend/husband overhaul can cover this?
  475. end
  476. end
  477. if $ARGS[0] = 'wake':
  478. if StoryLine = 1 and indorf = 0 and motherQW['bathroom_dildos'] > 0 and MarishaQW["marisha_sleepover"] = 0:gt'mother_sextalk','dildo_wakeup1'
  479. menu_off = 1
  480. InSleep = 1
  481. gs 'stat'
  482. if MarishaQW["marisha_sleepover"] = 1: gs 'marisha_ev', 'morning'
  483. 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."'
  484. 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.'
  485. if slept_in = 1 and kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 9 and hour < 14 and suspended['on'] ! 1:
  486. if schoolprogul > 2 and schoolPredupr = 2:
  487. pcs_mood -= 35
  488. gs 'stat'
  489. msg '<center>Damn it''s <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>. It''s too late to go to school now!<br><<$npc_nickname[''A29'']>> will be furious. I don''t know what she might do...</center>'
  490. elseif schoolprogul > 2 and schoolPredupr = 1:
  491. pcs_mood -= 30
  492. gs 'stat'
  493. msg '<center>Damn it''s <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>. It''s too late to go to school now!<br><<$npc_nickname[''A29'']>> will be very angry if I miss another day of school.</center>'
  494. elseif schoolprogul > 2 and schoolPredupr = 0:
  495. pcs_mood -= 25
  496. gs 'stat'
  497. msg '<center>Damn it''s <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>. It''s too late to go to school now!<br><<$npc_nickname[''A29'']>> will be angry to find out I missed a day of school.</center>'
  498. else
  499. pcs_mood -= 20
  500. gs 'stat'
  501. msg '<center>Damn it''s <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>. It''s too late to go to school now!<br><<$npc_nickname[''A29'']>> will be very upset if I''m not at school every day.</center>'
  502. end
  503. end
  504. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  505. if slept_in = 1 and (hour = 7 or hour = 8) and suspended['on'] ! 1:
  506. pcs_mood -= 10
  507. gs 'stat'
  508. msg '<center>Damn it''s <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, you''ve slept too long! You need to hurry or you''re going to be late for school!</center>'
  509. end
  510. act 'Get out of bed and get dressed for school (0:15)':
  511. minut += 15
  512. gs 'wardrobe', 'school_outfit'
  513. gs 'bed2', 'end'
  514. end
  515. end
  516. if strip_here = 1:
  517. act 'Get out of bed and get dressed (0:15)':
  518. minut += 15
  519. gs 'clothing', 'wear', $lastwornclothingtype['bed'], lastwornclothingnumber['bed']
  520. gs 'panties', 'wear', $lastwornpantytype['bed'], lastwornpantynumber['bed']
  521. gs 'bras', 'wear', $lastwornbratype['bed'], lastwornbranumber['bed']
  522. if bed['shoetype'] ! 'none':
  523. gs 'shoes', 'wear', $bed['shoetype'], bed['shoenumber']
  524. end
  525. gs 'bed2', 'end'
  526. end
  527. end
  528. if enfullmorrout = 1 and hour >= 4 and hour < 12:
  529. act 'Full morning routine (01:00)':
  530. minut += 15
  531. fullmorrout = 1
  532. gs 'clothing', 'wear', $lastwornclothingtype['bed'], lastwornclothingnumber['bed']
  533. gs 'panties', 'wear', $lastwornpantytype['bed'], lastwornpantynumber['bed']
  534. gs 'bras', 'wear', $lastwornbratype['bed'], lastwornbranumber['bed']
  535. if bed['shoetype'] ! 'none':
  536. gs 'shoes', 'wear', $bed['shoetype'], bed['shoenumber']
  537. end
  538. gs 'bed2', 'end'
  539. end
  540. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9 and suspended['on'] ! 1:
  541. act 'Full morning routine for School (01:00)':
  542. fullmorrout = 1
  543. minut += 15
  544. gs 'wardrobe', 'school_outfit'
  545. gs 'bed2', 'end'
  546. end
  547. end
  548. end
  549. act 'Get out of bed (0:10)':
  550. minut += 10
  551. slept_in = 0
  552. gs 'bed2', 'end'
  553. end
  554. end
  555. if $ARGS[0] = 'extra':
  556. act '"Snooze" a few minutes more...':
  557. menu_off = 1
  558. slept_in = 1
  559. gs 'stat'
  560. gt 'bed2', 'dream'
  561. end
  562. end
  563. if $ARGS[0] = 'end':
  564. menu_off = 1
  565. minut -= 1
  566. InSleep = 0
  567. slept_in = 0
  568. strip_here = 0
  569. SleepHorny = 0
  570. if fullmorrout = 1 and $loc = 'bedrPar':
  571. gt 'vanrPar'
  572. elseif fullmorrout = 1 and $loc = 'bedr':
  573. gt 'vanr'
  574. else
  575. gt $loc, $loc_arg
  576. end
  577. end
  578. if $ARGS[0] = 'succhoice':
  579. menu_off = 1
  580. minut += 15
  581. gs 'stat'
  582. cla
  583. if $clothingworntype ! 'nude':
  584. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  585. else
  586. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  587. end
  588. ''
  589. '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.'
  590. ''
  591. 'Thinking about it you realize that you could push the energy out or pull it in!'
  592. ''
  593. '<font color="red"><b>You also feel that both are <i>permanent</i> choices.</b></font>'
  594. act 'Try to ignore it and go to sleep':
  595. if disable_autosave = 0:
  596. if StoryLine = 0:
  597. savegame 'autosave.sav'
  598. else
  599. savegame 'autosave_alt.sav'
  600. end
  601. end
  602. gt 'bed2', 'sleep'
  603. end
  604. act 'Push the Energy out for all time': gt 'bed2', 'succhoiceNO'
  605. act 'Pull the Energy in and let it change you permanently': gt 'bed2', 'succhoiceYES'
  606. end
  607. if $ARGS[0] = 'succhoiceNO':
  608. cla
  609. menu_off = 1
  610. if $clothingworntype ! 'nude':
  611. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  612. else
  613. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  614. end
  615. ''
  616. 'You push the energy out of you and it dissipates.'
  617. succubusQW = 3
  618. pcs_horny = 0
  619. minut +=5
  620. gs 'stat'
  621. act 'Go to sleep':
  622. if disable_autosave = 0:
  623. if StoryLine = 0:
  624. savegame 'autosave.sav'
  625. else
  626. savegame 'autosave_alt.sav'
  627. end
  628. end
  629. gt 'bed2', 'sleep'
  630. end
  631. end
  632. if $ARGS[0] = 'succhoiceYES':
  633. cla
  634. menu_off = 1
  635. if $clothingworntype ! 'nude':
  636. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  637. else
  638. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  639. end
  640. succubusQW = 4
  641. ''
  642. 'You pull the energy deeper into yourself and hold it there.'
  643. ''
  644. 'Then you feel pressure building...'
  645. wait 450
  646. minut += 5
  647. gs 'stat'
  648. 'BUILDING...'
  649. wait 450
  650. minut += 5
  651. gs 'stat'
  652. '<b>BUILDING...</b>'
  653. wait 450
  654. minut += 5
  655. gs 'stat'
  656. 'Power bursts through your body causing you to hop out of bed.'
  657. act 'Continue': gt 'bed2', 'succubinit'
  658. end
  659. if $ARGS[0] = 'succubinit':
  660. *clr & cla
  661. menu_off = 1
  662. minut += 10
  663. gs 'stat'
  664. !!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
  665. !! & the succubus descriptor ($sucself1). The -2 on succhungry is to give th PC 2 days to get in the Succubus grove.
  666. succubusflag = 1
  667. succublvl = 1
  668. suclezsnapshot = lesbian
  669. succhungry = -2
  670. sucwalkday = daystart + 2 + rand(0,5)
  671. $sucself1 = 'that feeling'
  672. pcs_horny = 100
  673. InSleep = 0
  674. slept_in = 0
  675. strip_here = 0
  676. '<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
  677. *nl
  678. '<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>'
  679. if preg = 1:
  680. gs 'medical_din', 'remove_preg'
  681. RecovH = 0
  682. end
  683. act 'Finish': gt $loc, $loc_arg
  684. end
  685. if $ARGS[0] = 'magbstchoice':
  686. *clr & cla
  687. menu_off = 1
  688. tittmp = tits + 1
  689. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tittmp>>.jpg"></center>'
  690. killvar 'tittmp'
  691. 'You have an odd dream where you are looking at your naked chest in a mirror and your breasts seem larger...'
  692. 'As the dream starts to drift away, you find yourself gazing at the reflection of your breasts and think:'
  693. act 'Nice, I wish my breasts really would grow.':
  694. magf2bdo = 1
  695. magtarcup += 1
  696. killvar 'mgf2bnocnt'
  697. gt 'bed2', 'sleep'
  698. end
  699. act 'Eh, I don''t like them like that.': magf2bdo = 0 & mgf2bnocnt += 1 & gt 'bed2', 'dream'
  700. end
  701. --- bed2 ---------------------------------