1
0

MWestbed 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. # MWestbed
  2. if $ARGS[0] = 'master':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. cls
  6. gs 'stat'
  7. '<center><img src="images/BDSM_Club/Bedrooms/masterbed.jpg"></center>'
  8. 'Master bedroom'
  9. act 'Go to the west wing landing':gt 'MLanding', 'west'
  10. if rand (0,100) < 3:
  11. cls
  12. horny += 10
  13. gs 'stat'
  14. '<center><img src="images/BDSM_Club/Bedrooms/bedrand3.gif"></center>'
  15. 'You see a submissive woman in lingerie and on a leash, she appears to have earned herself a treat from a dominant man in a suit.'
  16. act 'Return':gt 'MWestbed', 'master'
  17. elseif rand (0,100) < 3:
  18. cls
  19. horny += 10
  20. gs 'stat'
  21. '<center><img src="images/BDSM_Club/Bedrooms/bedrand7.gif"></center>'
  22. 'A dominant woman is being pleasured by her sub.'
  23. act 'Return':gt 'MWestbed', 'master'
  24. elseif rand (0,100) < 3:
  25. cls
  26. horny += 5
  27. gs 'stat'
  28. '<center><img src="images/BDSM_Club/Bedrooms/maid_pun4.gif"></center>'
  29. 'Ooo, a spanking, someone''s been a bad girl.'
  30. act 'Return':gt 'MWestbed', 'master'
  31. end
  32. end
  33. if $ARGS[0] = 'guest':
  34. $metkaM = $ARGS[0]
  35. $locM = $CURLOC
  36. cls
  37. gs 'stat'
  38. '<center><img src="images/BDSM_Club/Bedrooms/bedA.jpg"></center>'
  39. 'Guest bedroom A'
  40. act 'Go to the west wing landing':gt 'MLanding', 'west'
  41. if rand (0,100) < 3:
  42. cls
  43. horny += 10
  44. gs 'stat'
  45. '<center><img src="images/BDSM_Club/Bedrooms/maid_bound_d1.jpg"></center>'
  46. 'A submissive woman is being tied to a bed by a dominant man.'
  47. act 'Return':gt 'MWestbed', 'guest'
  48. end
  49. end
  50. --- MWestbed ---------------------------------