bedPar 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. # bedPar
  2. gs 'stat'
  3. if nude = 0:'<center><img src="images/pics/bed.jpg"></center>'
  4. if nude = 1:'<center><img src="images/pics/son.jpg"></center>'
  5. 'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'
  6. act 'Set Alarm Clock':gt 'budilnik', 'start'
  7. !!if son < 10:
  8. act 'Undress and go to bed':
  9. if disable_autosave = 0:
  10. if StoryLine = 0:
  11. savegame 'autosave.sav'
  12. else
  13. savegame 'autosave_alt.sav'
  14. end
  15. end
  16. cls
  17. health += 5
  18. hapri = 0
  19. InSleep = 1
  20. :loopson
  21. minut += 1
  22. stime += 1
  23. if stime = 60:stime = 0 & son += 3
  24. clr
  25. cls
  26. gs 'stat'
  27. '<center><img src="images/pics/son.jpg"></center>'
  28. if analplugIN = 1:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  29. if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  30. if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
  31. 'You sleep and you dream about nothing.'
  32. if hour = timer and minut = timerM:
  33. manna -= 10
  34. 'Alarm goes off'
  35. act 'Get out of bed and get dressed (0:15)':
  36. cla
  37. !!numdress = odedosna
  38. InSleep = 0
  39. minut += 15
  40. tanga = 1
  41. !!nude = 0
  42. gt $locM, $metkaM
  43. end
  44. exit
  45. end
  46. if son > 23 and dosip = 0:
  47. 'You woke up on, that slept'
  48. act 'Get out of bed and get dressed (0:15)':
  49. cla
  50. !!numdress = odedosna
  51. InSleep = 0
  52. minut += 15
  53. tanga = 1
  54. !!nude = 0
  55. gt $locM, $metkaM
  56. end
  57. exit
  58. end
  59. jump 'loopson'
  60. end
  61. !!end
  62. act 'Get out of bed':
  63. cla
  64. gt $locM, $metkaM
  65. end
  66. --- bedPar ---------------------------------