317_divan 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. # divan
  2. <<<<<<< 317_divan
  3. if $ARGS[0] = 'start':
  4. cla
  5. $divmastr = {
  6. cls
  7. '<center><img src="images\pics\divmas.jpg"></center>'
  8. set minut += 15
  9. sweat += 1
  10. set horny += RAND(1,5)
  11. if divanmastr = 0: divanmastr = 1 & set mastr += 1
  12. gs 'stat'
  13. '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.'
  14. if horny >= 100: orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  15. act 'Get off the couch': divanmastr = 0 & gt 'divan','fin'
  16. if horny >= 75: act 'Proceed': dynamic $divmastr
  17. =======
  18. if $ARGS[0]='start':
  19. cla
  20. $divmastr={
  21. cls
  22. '<center><img src="pics/divmas.jpg" ></center>'
  23. set minut = minut + 15
  24. sweat+=1
  25. set horny = horny + RAND(1,5)
  26. if divanmastr=0:divanmastr=1&set mastr = mastr + 1
  27. gs'stat'
  28. 'You lay on the sofa and started with one hand caressing her breasts, finger of the other hand you started rubbing and stroking a small bump between his legs that respond to the touch of pleasant languor covering your entire body.'
  29. if horny>=100:orgasm+=1&horny=0&'Suddenly nice cramp brought your body and you covered powerful orgasm, from which you moan.'
  30. act 'Get up from the couch':divanmastr=0&gt'divan','fin'
  31. if horny>=75:act 'Resume':dynamic $divmastr
  32. >>>>>>> 317_divan
  33. }
  34. clr
  35. <<<<<<< 317_divan
  36. gs 'stat'
  37. '<center><img src="images\pics\divan.jpg"></center>'
  38. 'You lay down on the sofa.'
  39. act 'Lie':
  40. cla
  41. waiting = input ("How many minutes to wait? (Not more than 120 minutes)")
  42. if waiting <= 0 or waiting > 120:
  43. set minut += 15
  44. end
  45. if waiting > 0 and waiting <= 120:
  46. set minut += waiting
  47. end
  48. act 'Get off the couch': gt 'divan','fin'
  49. end
  50. if TV > 0:
  51. act 'Watch TV':
  52. cla
  53. gt 'TV','start'
  54. end
  55. end
  56. if book > 0:
  57. act 'Read a book (0:30)':
  58. cla
  59. *clr
  60. '<center><img src="images\pics\book.jpg"></center>'
  61. set minut += 30
  62. set horny += 5
  63. 'You are reading a book.'
  64. act 'Put the book': gt 'divan','start'
  65. end
  66. end
  67. if horny >= 75:
  68. act 'Masturbate (0:15)':
  69. dynamic $divmastr
  70. end
  71. end
  72. act 'Get off the couch':
  73. cla
  74. gt 'divan','fin'
  75. end
  76. =======
  77. gs'stat'
  78. '<center><img src="pics/divan.jpg" ></center>'
  79. 'You lay on the sofa.'
  80. act 'lie':
  81. cla
  82. waiting = input ("How many minutes to wait? (not any more 120 minutes)")
  83. if waiting <= 0 or waiting > 120:
  84. set minut = minut + 15
  85. end
  86. if waiting > 0 and waiting <= 120:
  87. set minut = minut + waiting
  88. end
  89. act 'Get up from the couch':gt'divan','fin'
  90. end
  91. if TV > 0:
  92. act 'watching TV':
  93. cla
  94. gt'TV','start'
  95. end
  96. end
  97. if book > 0:
  98. act 'read the book 30 minutes':
  99. cla
  100. *clr
  101. '<center><img src="pics/book.jpg" ></center>'
  102. set minut = minut + 30
  103. set horny = horny + 5
  104. 'You are reading a book.'
  105. act 'put the book':gt'divan','start'
  106. end
  107. end
  108. if horny>=75:
  109. act 'masturbate 15 minutes':
  110. dynamic $divmastr
  111. end
  112. end
  113. act 'Get up from the couch':
  114. cla
  115. gt'divan','fin'
  116. end
  117. >>>>>>> 317_divan
  118. end
  119. <<<<<<< 317_divan
  120. if $ARGS[0] = 'fin':
  121. =======
  122. if $ARGS[0]='fin':
  123. >>>>>>> 317_divan
  124. cla
  125. gt $locM, $metkaM
  126. <<<<<<< 317_divan
  127. !'if housr = 1 and housrA = 1:
  128. set housrA = 0
  129. gt 'sitr'
  130. end'
  131. =======
  132. !'if housr = 1 and housrA = 1:
  133. set housrA = 0
  134. gt'sitr'
  135. end'
  136. >>>>>>> 317_divan
  137. end
  138. --- divan ---------------------------------