1
0

MLanding 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. # MLanding
  2. if $ARGS[0] = 'west':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. cls
  6. gs 'stat'
  7. '<center><img src="images/BDSM_Club/Hallways/wlanding.jpg"></center>'
  8. act 'Go to the east wing landing':gt 'MLanding', 'east'
  9. act 'Go downstairs to the foyer':gt 'MHall', 'foyer'
  10. act 'Visit the master bedroom':gt 'MWestbed', 'master'
  11. act 'Visit guest bedroom A':gt 'MWestbed', 'guest'
  12. act 'Visit the games room':gt 'MGames'
  13. if rand (0,100) < 3:
  14. cls
  15. horny += 5
  16. gs 'stat'
  17. '<center><img src="images/BDSM_Club/Hallways/maid_sex_b1.gif"></center>'
  18. 'A maid is being helped with the vacuum cleaning by a man in casual clothing, you think about reporting him, but he''s a bit busy right now.'
  19. act 'Return': gt 'MLanding', 'west'
  20. end
  21. end
  22. if $ARGS[0] = 'east':
  23. $metkaM = $ARGS[0]
  24. $locM = $CURLOC
  25. cls
  26. gs 'stat'
  27. '<center><img src="images/BDSM_Club/Hallways/elanding.jpg"></center>'
  28. act 'Go to the west wing landing':gt 'MLanding', 'west'
  29. act 'Go downstairs to the foyer':gt 'MHall', 'foyer'
  30. act 'Go downstairs to the west wing hallway':gt 'MHall', 'west'
  31. act 'Visit guest bedroom B':gt 'MEastbed', 'guestB'
  32. act 'Visit guest bedroom C':gt 'MEastbed', 'guestC'
  33. act 'Visit guest bedroom D':gt 'MEastbed', 'guestD'
  34. act 'Go to the bathroom': gt 'MBathrooms', 'bath'
  35. act 'Go to the living room': gt 'MLiving'
  36. end
  37. --- MLanding ---------------------------------