divan 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. # divan
  2. ! WD: Reading book code cant use argument
  3. if $ARGS[0] = 'start' or $ARGS[0] = '':
  4. $divmastr = {
  5. cls
  6. if pcs_sweat < 25 : pcs_sweat += 5
  7. if divanmastr = 0:
  8. divanmastr = 1
  9. stat['mast'] += 1
  10. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  11. end
  12. gs 'stat'
  13. '<center><img <<$set_imgh>> src="images/shared/sex/mast/divmas.jpg"></center>'
  14. 'You lie down on the sofa and began to fondle your chest with one hand while you slide the other hand down your stomach and across your mound.'
  15. 'With your middle finger you start rubbing and stroking your clit, which responds to the touch by bringing a sensual warmth to your entire body.'
  16. gs 'arousal', 'masturbate', 15
  17. gs 'stat'
  18. if pcs_horny >= 100:orgasm += 1 & pcs_horny = 0 & 'Suddenly a sumptuous jolt hits your body and you delight in a powerful orgasmn.'
  19. $orgasm_or = 'yes'
  20. gs 'stat'
  21. act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
  22. if pcs_horny >= 75:act 'Proceed':dynamic $divmastr
  23. }
  24. cla
  25. clr
  26. gs 'stat'
  27. '<center><img <<$set_imgh>> src="images/shared/home/divan.jpg"></center>'
  28. 'You lie down on the sofa.'
  29. act 'Chill out':
  30. cla
  31. waiting = input ("For how many minutes do you chill out? (No more than 120 minutes)")
  32. if waiting <= 0 or waiting > 120:minut += 15
  33. if waiting > 0 and waiting <= 120:minut += waiting
  34. act 'Get off the couch':gt 'divan', 'fin'
  35. end
  36. if TV > 0 and $loc ! 'dachain':
  37. act 'Watch TV':
  38. cla
  39. gt 'TV', 'start'
  40. end
  41. end
  42. gs 'events', 'read'
  43. if pcs_horny >= 75:
  44. act 'Masturbate (0:15)':dynamic $divmastr
  45. end
  46. act 'Get off the couch':
  47. cla
  48. gt 'divan', 'fin'
  49. end
  50. end
  51. if $ARGS[0] = 'fin':
  52. cla
  53. gt $locM, $metkaM
  54. !!if housr = 1 and housrA = 1:
  55. !! housrA = 0
  56. !! gt 'sitr'
  57. !!end
  58. end
  59. --- divan ---------------------------------