1
0

divan 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. # divan
  2. ! WD: Reading book code cant use argument
  3. if $ARGS[0] = 'start' or $ARGS[0] = '':
  4. $divmastr = {
  5. cls
  6. minut += 15
  7. sweat += 1
  8. horny += rand(1, 5)
  9. if divanmastr = 0:divanmastr = 1 & mastr += 1
  10. gs 'stat'
  11. '<center><img src="images/pics/divmas.jpg"></center>'
  12. '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.'
  13. if horny >= 100:orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  14. act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
  15. if horny >= 75:act 'Proceed':dynamic $divmastr
  16. }
  17. cla
  18. clr
  19. gs 'stat'
  20. '<center><img src="images/pics/divan.jpg"></center>'
  21. 'You lay down on the sofa.'
  22. act 'Lie':
  23. cla
  24. waiting = input ("How many minutes to wait? (Not more than 120 minutes)")
  25. if waiting <= 0 or waiting > 120:minut += 15
  26. if waiting > 0 and waiting <= 120:minut += waiting
  27. act 'Get off the couch':gt 'divan', 'fin'
  28. end
  29. if TV > 0:
  30. act 'Watch TV':
  31. cla
  32. gt 'TV', 'start'
  33. end
  34. end
  35. ! WD: Uninitialised ~ 'book'
  36. !{
  37. if book > 0:
  38. act 'Read a book (0:30)':
  39. cla
  40. *clr
  41. minut += 30
  42. horny += 5
  43. '<center><img src="images/pics/book.jpg"></center>'
  44. 'You are reading a book.'
  45. act 'Put the book':gt 'divan', 'start'
  46. end
  47. end
  48. }
  49. ! WD: Use read book code
  50. if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:
  51. #loc = 'divan'
  52. dynamic '$d_read_book'
  53. end
  54. if horny >= 75:
  55. act 'Masturbate (0:15)':dynamic $divmastr
  56. end
  57. act 'Get off the couch':
  58. cla
  59. gt 'divan', 'fin'
  60. end
  61. end
  62. if $ARGS[0] = 'fin':
  63. cla
  64. gt $locM, $metkaM
  65. !'
  66. if housr = 1 and housrA = 1:
  67. housrA = 0
  68. gt 'sitr'
  69. end
  70. '!
  71. end
  72. --- divan ---------------------------------