bedPar 1.6 KB

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