MWestbed 3.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  1. # MWestbed
  2. $location_type = 'private'
  3. if $ARGS[0] = 'master':
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. cls
  7. gs 'stat'
  8. '<center><img src="images/locations/city/suburb/bdsm_club/masterbed.jpg"></center>'
  9. 'Master bedroom'
  10. act 'Go to the west wing landing':gt 'MLanding', 'west'
  11. if rand (0,100) < 3:
  12. cls
  13. gs 'stat'
  14. '<center><img src="images/locations/city/suburb/bdsm_club/sex/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. gs 'arousal', 'voyeur', 5
  17. gs 'arousal', 'end'
  18. gs 'stat'
  19. act 'Return':gt 'MWestbed', 'master'
  20. elseif rand (0,100) < 3:
  21. cls
  22. gs 'stat'
  23. '<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand7.gif"></center>'
  24. 'A dominant woman is being pleasured by her sub.'
  25. gs 'arousal', 'voyeur', 5
  26. gs 'arousal', 'end'
  27. gs 'stat'
  28. act 'Return':gt 'MWestbed', 'master'
  29. elseif rand (0,100) < 3:
  30. cls
  31. gs 'stat'
  32. '<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_pun4.gif"></center>'
  33. 'Ooo, a spanking, someone''s been a bad girl.'
  34. gs 'arousal', 'voyeur', 5
  35. gs 'arousal', 'end'
  36. gs 'stat'
  37. act 'Return':gt 'MWestbed', 'master'
  38. elseif rand (0,100) < 3 and $BDSMrole = 's':
  39. cls
  40. pcs_horny += 5
  41. minut += 5
  42. gs 'pain', 4, 'asscheeks', 'spank'
  43. gs 'stat'
  44. '<center><img src="images/locations/city/suburb/bdsm_club/sex/spank'+rand(1,2)+'.gif"></center>'
  45. 'As you are walking into the bedroom you accidentally bump into a man walking out. Before you can even say a word he grabs you by the arm. "Watch where you are going little girl."'
  46. 'You meekly nod your head. "Sorry, I will be more careful in the future."'
  47. '"You don''t sound very sorry, I think I need to teach you a lesson." With that he pulls you into the room and bares your ass, then he pulls off his belt and spanks you until tears are running down your face.'
  48. 'Once he believes you learned your lesson he leaves, leaving you behind to rub your sore ass.'
  49. act 'Return':gt 'MWestbed', 'master'
  50. end
  51. end
  52. if $ARGS[0] = 'guest':
  53. $metkaM = $ARGS[0]
  54. $locM = $CURLOC
  55. cls
  56. gs 'stat'
  57. '<center><img src="images/locations/city/suburb/bdsm_club/beda.jpg"></center>'
  58. 'Guest bedroom A'
  59. act 'Go to the west wing landing':gt 'MLanding', 'west'
  60. if rand (0,100) < 3:
  61. cls
  62. gs 'stat'
  63. '<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_bound_d1.jpg"></center>'
  64. 'A submissive woman is being tied to a bed by a dominant man.'
  65. gs 'arousal', 'voyeur', 5
  66. gs 'arousal', 'end'
  67. gs 'stat'
  68. act 'Return':gt 'MWestbed', 'guest'
  69. elseif rand (0,100) < 3:
  70. cls
  71. gs 'stat'
  72. '<center><img src="images/locations/city/suburb/bdsm_club/sex/crossdressfuck.gif"></center>'
  73. 'You peek in the room when you hear grunts coming from it.'
  74. 'Inside you a man wearing womens clothes being fucked by his mistress wearing a strap-on.'
  75. gs 'arousal', 'voyeur', 5
  76. gs 'arousal', 'end'
  77. gs 'stat'
  78. act 'Return':gt 'MWestbed', 'guest'
  79. end
  80. end
  81. --- MWestbed ---------------------------------