divan.qsrc 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. # divan
  2. ! WD: Reading book code cant use argument
  3. menu_off = 1
  4. if $ARGS[0] = 'start' or $ARGS[0] = '':
  5. $divmastr = {
  6. *clr & cla
  7. if pcs_sweat < 25 : gs 'sweat', 'add', 5
  8. if divanmastr = 0:
  9. divanmastr = 1
  10. stat['mast'] += 1
  11. if pcs_inhib < 30:inhib_exp += rand(1,3)
  12. end
  13. gs 'stat'
  14. '<center><img <<$set_imgh>> src="images/shared/sex/mast/divmas.jpg"></center>'
  15. '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.'
  16. '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.'
  17. $orgasm_or = 'yes'
  18. gs 'arousal', 'clit_finger', 15, 'masturbate'
  19. gs 'stat'
  20. gs 'stat'
  21. act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
  22. }
  23. *clr & cla
  24. gs 'stat'
  25. '<center><img <<$set_imgh>> src="images/shared/home/divan.jpg"></center>'
  26. 'You lie down on the sofa.'
  27. act 'wait':gs 'obj_din', 'wait'
  28. if TV > 0 and $loc ! 'dachain':
  29. act 'Watch TV':
  30. cla
  31. gt 'TV', 'start'
  32. end
  33. end
  34. gs 'events', 'read'
  35. if pcs_horny >= 75:
  36. act 'Masturbate (0:15)':dynamic $divmastr
  37. end
  38. act 'Get off the couch':
  39. cla
  40. gt 'divan', 'fin'
  41. end
  42. end
  43. if $ARGS[0] = 'fin':
  44. cla
  45. gt $loc, $loc_arg
  46. end
  47. --- divan ---------------------------------