bed2.qsrc 21 KB

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