bedPar 1.6 KB

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