bed2.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578
  1. # bed2
  2. if $ARGS[0] = '':
  3. cla & *clr
  4. $menu_loc = 'bed2'
  5. $menu_arg = ''
  6. menu_off = 0
  7. gs 'stat'
  8. if $clothingworntype ! 'nude':
  9. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  10. else
  11. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  12. end
  13. *nl
  14. if budilnikOn = 0:
  15. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
  16. else
  17. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
  18. end
  19. if pcs_makeup ! 1:'<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
  20. if pcs_sleep <= 80:
  21. if $clothingworntype = 'nude':
  22. $sleep_txt = 'Go to sleep'
  23. else
  24. $sleep_txt = 'Undress and go to sleep'
  25. end
  26. if succubusQW = 2:
  27. act '<<$sleep_txt>>':
  28. menu_off = 1
  29. if $clothingworntype ! 'nude':
  30. strip_here = 1
  31. gs 'clothing', 'strip'
  32. end
  33. gt 'bed2', 'succhoice'
  34. end
  35. else
  36. act '<<$sleep_txt>>':
  37. menu_off = 1
  38. if disable_autosave = 0:
  39. if StoryLine = 0:
  40. savegame 'autosave.sav'
  41. else
  42. savegame 'autosave_alt.sav'
  43. end
  44. end
  45. if $clothingworntype ! 'nude':
  46. strip_here = 1
  47. gs 'clothing', 'strip'
  48. end
  49. if magf2bdo = 2:
  50. gt 'bed2', 'magbstchoice'
  51. else
  52. gt 'bed2', 'sleep'
  53. end
  54. end
  55. killvar '$sleep_txt'
  56. end
  57. end
  58. act 'Get out of bed': killvar '$sleep_txt' & gt $loc, $metka
  59. act 'Take a nap (1:00)':
  60. menu_off = 1
  61. if pcs_sleep >= 10 and pcs_sleep <= 90:
  62. pcs_sleep += 10
  63. pcs_health += 5
  64. minut += 60
  65. gs 'stat'
  66. *nl
  67. 'You sleep about an hour.'
  68. elseif pcs_sleep < 10:
  69. gt 'bed2', 'sleep'
  70. else
  71. minut += 5
  72. gs 'stat'
  73. *nl
  74. 'You are not tired enough to sleep, even for a short nap.'
  75. end
  76. end
  77. !!Braid hair skill
  78. if canBraidHair = 1 and hBraids = 0 and (pcs_hairlng > 80 and pcs_hairlng <= 800):
  79. act 'Braid your hair (0:30)':
  80. cls
  81. menu_off = 1
  82. hbraids = 15
  83. minut += 30
  84. 'You spend some time braiding your hair. It may not be salon level quality, but at the end you are happy with the results.'
  85. act 'Return to bed':gt 'bed2'
  86. end
  87. end
  88. if hbraids > 0:
  89. act 'Remove your braids (0:30)':
  90. cls
  91. menu_off = 1
  92. hbraids = 0
  93. minut += 30
  94. 'You spend some time removing your braids. It may not be salon level quality, but at the end you are happy with the results.'
  95. act 'Return to bed':gt 'bed2'
  96. end
  97. end
  98. if sisterHere = 0 or (sisterHere = 1 and hour < 7):
  99. 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):
  100. act 'Masturbate':
  101. InSleep = 0
  102. gt 'selfplay', 'start'
  103. end
  104. end
  105. end
  106. act 'Sleep options':gt 'bed2', 'options'
  107. end
  108. if $ARGS[0] = 'sleep':
  109. cls
  110. menu_off = 1
  111. if $clothingworntype ! 'nude':
  112. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  113. else
  114. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  115. end
  116. gs 'stat'
  117. pcs_hairbsh = 0
  118. InSleep = 1
  119. cloth_vid = 0
  120. pain['killer'] = 0
  121. if StoryLine = 1 and $loc ! 'bedrPar' and SchoolAtestat = 0:
  122. notathomesleep += 1
  123. else
  124. notathomesleep = 0
  125. end
  126. if succubusflag = 1 and sucwalkday <= daystart:
  127. If succublvl <= rand(1,20) or pcs_willpwr < ((succublvl * willpowermax) / 10) or sucpowzeroed >= 3: gs 'succubus', 'sucwalkinginit'
  128. end
  129. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  130. if vibratorIN = 1 and bedvibrator = 0:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  131. 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.'
  132. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  133. wait 450
  134. *clr
  135. gs 'dreams', 'start'
  136. :loopson
  137. minut += 1
  138. stime += 1
  139. if recuperation = 0:pcs_health += 5
  140. if vibratorIn = 1:
  141. vtime += 1
  142. if vtime >= 5:
  143. pcs_horny +=1
  144. vtime = 0
  145. end
  146. if pcs_horny = 100:
  147. cls
  148. pcs_horny = 0
  149. orgasm += 1
  150. minut += 5
  151. gs 'stat'
  152. '<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
  153. '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)>>.'
  154. act 'Go back to sleep':
  155. *clr
  156. cla
  157. gt 'bed2', 'sleep'
  158. end
  159. act 'Give up trying to sleep':
  160. $waketext = 'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
  161. gt 'bed2', 'wake'
  162. end
  163. exit
  164. end
  165. !! Exclusions for succubus dreams as they set horny to 100 and will always get overridden otherwise
  166. elseif pcs_horny > 80 and pcs_sleep >= 30 and rand (1,300) = 300 and succubusQW ! 1 and succubusQW ! 2:
  167. gt 'bed2', 'wake_horny'
  168. end
  169. if stime >= 60:
  170. stime = 0
  171. pcs_sleep += 15
  172. gs 'stat'
  173. end
  174. alarm_now = hour * 60 + minut
  175. alarm_time = timer * 60 + timerM
  176. alarm_set = alarm_time - rand(1,5)
  177. if alarm_set <0:
  178. alarm_set += 1440
  179. elseif alarm_set >= 1440:
  180. alarm_set -= 1440
  181. end
  182. if slept_in = 1:
  183. gs 'stat'
  184. $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.'
  185. gs 'bed2', 'wake'
  186. elseif pcs_sleep >= 100 and budilnikOn = 0:
  187. gs 'stat'
  188. $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.'
  189. gs 'bed2', 'wake'
  190. elseif pcs_sleep >= 100 and budilnikOn = 1 and alarm_now >= alarm_set:
  191. gs 'stat'
  192. $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.'
  193. gs 'bed2', 'wake'
  194. elseif budilnikOn = 1 and alarm_now = alarm_time:
  195. pcs_mood -= 10
  196. gs 'stat'
  197. $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.')+''
  198. gs 'bed2', 'extra'
  199. gs 'bed2', 'wake'
  200. else
  201. jump 'loopson'
  202. end
  203. end
  204. if $ARGS[0] = 'wake_horny':
  205. menu_off = 1
  206. InSleep = 1
  207. gs 'stat'
  208. '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.'
  209. ''
  210. 'You glance at your alarm clock. It reads <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>.'
  211. ''
  212. '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.'
  213. ''
  214. 'Of course, you could always just give up on trying to sleep and just get up.'
  215. if $loc = 'bedrPar' and SisterLesb = 5 and hour < 6:
  216. 'Or... you could wake up Anya and see if your dearest sister would be willing to help you with that.'
  217. elseif $loc = 'FedorEv4':
  218. 'Or... you could wake up Fedor and see if your boyfriend can''t help you with that.'
  219. elseif $loc = 'bedr' and husband > 0:
  220. 'Or... you could wake up <<$husName>> and see if your husband can''t help you with that.'
  221. end
  222. act 'Try and go back to sleep':
  223. pcs_mood -= 10
  224. pcs_sleep -= 5
  225. gt 'bed2', 'sleep'
  226. end
  227. act 'Masturbate': InSleep = 0 & gt 'selfplay', 'start'
  228. act 'Get out of bed (0:10)':
  229. minut += 10
  230. gs 'bed2', 'end'
  231. end
  232. if strip_here = 1:
  233. act 'Get out of bed and get dressed (0:15)':
  234. minut += 15
  235. gs 'clothing', 'wear_last_worn'
  236. gs 'bed2', 'end'
  237. end
  238. end
  239. if $loc = 'bedrPar' and SisterLesb = 5 and hour < 6:
  240. act 'Wake Anya and see if she''s in the mood': strip_here = 0 & InSleep = 0 & gt 'sistersleep'
  241. elseif $loc = 'FedorEv4':
  242. act 'Wake Fedor and see if he''s in the mood': strip_here = 0 & InSleep = 0 & gt 'FedorEv4', 'Bedroom 1'
  243. !!Intro text doesn''t quite fit event (but doesn''t quite fit - try for baby - scenario either) - custom scene from VK?
  244. elseif ($loc = 'bedr' or $loc = bedr2x) and husband > 0:
  245. act 'Wake your husband and see if he''s in the mood': strip_here = 0 & InSleep = 0 & gt 'husbSex', 'variant'
  246. !!Should be custom scene - maybe boyfriend/husband overhaul can cover this?
  247. end
  248. end
  249. if $ARGS[0] = 'wake':
  250. menu_off = 1
  251. '<<$waketext>>'
  252. InSleep = 1
  253. gs 'stat'
  254. 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."'
  255. 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.'
  256. 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:
  257. if schoolprogul > 2 and schoolPredupr = 2:
  258. pcs_mood -= 35
  259. gs 'stat'
  260. msg '<center>Damn it''s <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. 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>'
  261. elseif schoolprogul > 2 and schoolPredupr = 1:
  262. pcs_mood -= 30
  263. gs 'stat'
  264. msg '<center>Damn it''s <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. 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>'
  265. elseif schoolprogul > 2 and schoolPredupr = 0:
  266. pcs_mood -= 25
  267. gs 'stat'
  268. msg '<center>Damn it''s <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. 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>'
  269. else
  270. pcs_mood -= 20
  271. gs 'stat'
  272. msg '<center>Damn it''s <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. 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>'
  273. end
  274. end
  275. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  276. if slept_in = 1 and hour >= 8 and hour < 9:
  277. pcs_mood -= 10
  278. gs 'stat'
  279. 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>'
  280. end
  281. act 'Get up out of bed and get dressed for school (0:15)':
  282. minut += 15
  283. if schtype = 0:schtype = 6
  284. if schoolH[schtype] = 0:schtype = 6
  285. gs 'clothing', 'wear', 'school', schtype
  286. gs 'bed2', 'end'
  287. end
  288. end
  289. if strip_here = 1:
  290. act 'Get out of bed and get dressed (0:15)':
  291. minut += 15
  292. gs 'clothing', 'wear_last_worn'
  293. gs 'bed2', 'end'
  294. end
  295. end
  296. if enfullmorrout = 1 and hour >= 4 and hour < 12:
  297. act 'Full morning routine (01:00)':
  298. minut += 15
  299. fullmorrout = 1
  300. gs 'clothing', 'wear_last_worn'
  301. gs 'bed2', 'end'
  302. end
  303. if kanikuli = 0 and StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour >= 4 and hour < 9:
  304. if slept_in = 1 and hour >= 8 and hour < 9:
  305. pcs_mood -= 10
  306. gs 'stat'
  307. msg '<center>Damn, you''ve slept too long! You''re going to be late for school!</center>'
  308. end
  309. act 'Full morning routine for School (01:00)':
  310. fullmorrout = 1
  311. minut += 15
  312. if schtype = 0:schtype = 6
  313. if schoolH[schtype] = 0:schtype = 6
  314. gs 'clothing', 'wear', 'school', schtype
  315. gs 'bed2', 'end'
  316. end
  317. end
  318. end
  319. act 'Get out of bed (0:10)':
  320. minut += 10
  321. slept_in = 0
  322. gs 'bed2', 'end'
  323. end
  324. end
  325. if $ARGS[0] = 'extra':
  326. act '"Snooze" a few minutes more...':
  327. menu_off = 1
  328. slept_in = 1
  329. stime = 0
  330. minut = (100-pcs_sleep)*6
  331. pcs_sleep += 100
  332. gs 'stat'
  333. gt 'bed2', 'sleep'
  334. end
  335. end
  336. if $ARGS[0] = 'end':
  337. menu_off = 1
  338. InSleep = 0
  339. slept_in = 0
  340. strip_here = 0
  341. if $braworntype ! 'none': gs 'bras', 'remove'
  342. if $pantyworntype ! 'none':gs 'panties', 'remove'
  343. if bedpanty = 1:
  344. gs 'underwear', 'remove'
  345. else
  346. gs 'underwear', 'wear'
  347. end
  348. if fullmorrout = 1 and $loc = 'bedrPar':
  349. gt 'vanrPar'
  350. elseif fullmorrout = 1 and $loc = 'bedr':
  351. gt 'vanr'
  352. else
  353. gt $loc, $metka
  354. end
  355. end
  356. if $ARGS[0] = 'succhoice':
  357. menu_off = 1
  358. minut += 15
  359. gs 'stat'
  360. cla
  361. if $clothingworntype ! 'nude':
  362. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  363. else
  364. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  365. end
  366. ''
  367. '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.'
  368. ''
  369. 'Thinking about it you realize that you could push the energy out or pull it in!'
  370. ''
  371. '<font color="red"><b>You also feel that both are <i>permanent</i> choices.</b></font>'
  372. act 'Try to ignore it and go to sleep':
  373. if disable_autosave = 0:
  374. if StoryLine = 0:
  375. savegame 'autosave.sav'
  376. else
  377. savegame 'autosave_alt.sav'
  378. end
  379. end
  380. gt 'bed2', 'sleep'
  381. end
  382. act 'Push the Energy out for all time': gt 'bed2', 'succhoiceNO'
  383. act 'Pull the Energy in and let it change you permanently': gt 'bed2', 'succhoiceYES'
  384. end
  385. if $ARGS[0] = 'succhoiceNO':
  386. cla
  387. menu_off = 1
  388. if $clothingworntype ! 'nude':
  389. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  390. else
  391. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  392. end
  393. ''
  394. 'You push the energy out of you and it dissipates.'
  395. succubusQW = 3
  396. pcs_horny = 0
  397. minut +=5
  398. gs 'stat'
  399. act 'Go to sleep':
  400. if disable_autosave = 0:
  401. if StoryLine = 0:
  402. savegame 'autosave.sav'
  403. else
  404. savegame 'autosave_alt.sav'
  405. end
  406. end
  407. gt 'bed2', 'sleep'
  408. end
  409. end
  410. if $ARGS[0] = 'succhoiceYES':
  411. cla
  412. menu_off = 1
  413. if $clothingworntype ! 'nude':
  414. '<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
  415. else
  416. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
  417. end
  418. succubusQW = 4
  419. ''
  420. 'You pull the energy deeper into yourself and hold it there.'
  421. ''
  422. 'Then you feel pressure building...'
  423. wait 450
  424. minut += 5
  425. gs 'stat'
  426. 'BUILDING...'
  427. wait 450
  428. minut += 5
  429. gs 'stat'
  430. '<b>BUILDING...</b>'
  431. wait 450
  432. minut += 5
  433. gs 'stat'
  434. 'Power bursts through your body causing you to hop out of bed.'
  435. act 'Continue': gt 'bed2', 'succubinit'
  436. end
  437. if $ARGS[0] = 'succubinit':
  438. *clr & cla
  439. menu_off = 1
  440. minut += 10
  441. gs 'stat'
  442. !!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
  443. !! & the succubus descriptor ($sucself1). The -2 on succhungry is to give th PC 2 days to get in the Succubus grove.
  444. succubusflag = 1
  445. succublvl = 1
  446. suclezsnapshot = lesbian
  447. succhungry = -2
  448. sucwalkday = daystart + 2 + rand(0,5)
  449. $sucself1 = 'that feeling'
  450. pcs_horny = 100
  451. InSleep = 0
  452. slept_in = 0
  453. strip_here = 0
  454. '<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
  455. *nl
  456. '<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>'
  457. if preg = 1:
  458. preg = 0
  459. pregtime = 0
  460. pregtalk = 0
  461. pcs_pregtalk = 0
  462. npc_pregtalk['A16'] = 0
  463. npc_pregtalk['A34'] = 0
  464. thinkpreg = 0
  465. knowpreg = 0
  466. pregchem = 0
  467. cycle = 4
  468. nextbaby = arrsize('yearkid')
  469. :poliabortloop
  470. if yearkid[nextbaby-1] = 0:
  471. KILLVAR 'polkid',nextbaby-1
  472. KILLVAR '$kidname',nextbaby-1
  473. KILLVAR 'kidage',nextbaby-1
  474. KILLVAR 'daykid',nextbaby-1
  475. KILLVAR 'monthkid',nextbaby-1
  476. KILLVAR 'yearkid',nextbaby-1
  477. KILLVAR 'Babyptype',nextbaby-1
  478. KILLVAR '$ChildFath',nextbaby-1
  479. KILLVAR '$ChildThFath',nextbaby-1
  480. KILLVAR 'hairkid',nextbaby-1
  481. KILLVAR 'eyeskid',nextbaby-1
  482. KILLVAR 'cumarrcon',nextbaby-1
  483. KILLVAR '$wombpotfath'
  484. BabyEmbryo -= 1
  485. end
  486. nextbaby -= 1
  487. if nextbaby > 0:
  488. jump 'poliabortloop'
  489. end
  490. end
  491. act 'Finish': gt $loc, $metka
  492. end
  493. if $ARGS[0] = 'magbstchoice':
  494. *clr & cla
  495. menu_off = 1
  496. tittmp = tits + 1
  497. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tittmp>>.jpg"></center>'
  498. killvar 'tittmp'
  499. 'You have an odd dream where you are looking at your naked chest in a mirror and your breasts seem larger...'
  500. 'As the dream starts to drift away, you find yourself gazing at the reflection of your breasts and think:'
  501. act 'Nice, I wish my breasts really would grow.':
  502. magf2bdo = 1
  503. magtarcup += 1
  504. killvar 'mgf2bnocnt'
  505. gt 'bed2', 'sleep'
  506. end
  507. act 'Eh, I don''t like them like that.': magf2bdo = 0 & mgf2bnocnt += 1 & gt 'bed2', 'sleep'
  508. end
  509. if $ARGS[0] = 'options':
  510. cla
  511. menu_off = 1
  512. act 'Return':gt 'bed2'
  513. act 'Set Alarm Clock':gt 'budilnik', 'start'
  514. if bedPanty = 0:
  515. act 'Wear underwear in the morning: Currently (ON)':bedpanty = 1 & gt 'bed2', 'options'
  516. else
  517. act 'Wear underwear in the morning: Currently (OFF)':bedpanty = 0 & gt 'bed2', 'options'
  518. end
  519. if analplug = 1:
  520. if bedanal = 0:
  521. act 'Remove your analplug at night: Currently (ON)':bedanal = 1 & gt 'bed2', 'options'
  522. else
  523. act 'Remove your analplug at night: Currently (OFF)':bedanal = 0 & gt 'bed2', 'options'
  524. end
  525. end
  526. if vibrator = 1 and cheatVib = 1:
  527. if bedvibrator = 0:
  528. act 'Remove your vibrator at night: Currently (ON)':bedvibrator = 1 & gt 'bed2', 'options'
  529. else
  530. act 'Remove your vibrator at night: Currently (OFF)':bedvibrator = 0 & gt 'bed2', 'options'
  531. end
  532. end
  533. end
  534. --- bed2 ---------------------------------