divan 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. # divan
  2. if $ARGS[0] = 'start':
  3. $divmastr = {
  4. cls
  5. minut += 15
  6. sweat += 1
  7. horny += rand(1, 5)
  8. if divanmastr = 0:divanmastr = 1 & mastr += 1
  9. gs 'stat'
  10. '<center><img src="images/pics/divmas.jpg"></center>'
  11. 'You lay down on the sofa and began to fondle her one-handed chest with a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
  12. if horny >= 100:orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  13. act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
  14. if horny >= 75:act 'Proceed':dynamic $divmastr
  15. }
  16. cla
  17. clr
  18. gs 'stat'
  19. '<center><img src="images/pics/divan.jpg"></center>'
  20. 'You lay down on the sofa.'
  21. act 'Lie':
  22. cla
  23. waiting = input ("How many minutes to wait? (Not more than 120 minutes)")
  24. if waiting <= 0 or waiting > 120:minut += 15
  25. if waiting > 0 and waiting <= 120:minut += waiting
  26. act 'Get off the couch':gt 'divan', 'fin'
  27. end
  28. if TV > 0:
  29. act 'Watch TV':
  30. cla
  31. gt 'TV', 'start'
  32. end
  33. end
  34. if book > 0:
  35. act 'Read a book (0:30)':
  36. cla
  37. *clr
  38. minut += 30
  39. horny += 5
  40. '<center><img src="images/pics/book.jpg"></center>'
  41. 'You are reading a book.'
  42. act 'Put the book':gt 'divan', 'start'
  43. end
  44. end
  45. if horny >= 75:
  46. act 'Masturbate (0:15)':dynamic $divmastr
  47. end
  48. act 'Get off the couch':
  49. cla
  50. gt 'divan', 'fin'
  51. end
  52. end
  53. if $ARGS[0] = 'fin':
  54. cla
  55. gt $locM, $metkaM
  56. !'
  57. if housr = 1 and housrA = 1:
  58. housrA = 0
  59. gt 'sitr'
  60. end
  61. '!
  62. end
  63. --- divan ---------------------------------