bordel 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. # bordel
  2. $sexloc = $CURLOC
  3. gs 'stat'
  4. '<center><b>Brothel</b></center>'
  5. '<center><img src="images/img/centr/bordel.jpg"></center>'
  6. if vnesh < 0:
  7. '"Listen, you have some sort of infection, go to undergo treatment."'
  8. act 'Leave':gt 'down'
  9. elseif vnesh >= 0 and vnesh < 25:
  10. '"Look at you, for such a product no one will pay cleaned up and come back."'
  11. act 'Leave':gt 'down'
  12. elseif vnesh >= 25:
  13. act 'In the room':gt 'bordel', 'start'
  14. end
  15. if $ARGS[0] = 'start':
  16. $metkaM = $ARGS[0]
  17. $locM = $CURLOC
  18. cla
  19. *clr
  20. gs 'stat'
  21. '<center><b>Your room in a brothel</b></center>'
  22. '<center><img src="images/img/centr/borroom.jpg"></center>'
  23. 'In a brothel and a lot of competition in order to avoid massacre introduced a rule no more than two clients per day'
  24. 'In the middle is a huge bed, and a small side door <a href="exec:gt ''bordel'', ''dysh''">bath</a>.'
  25. act 'Leave':
  26. if odetero = 0:
  27. gt 'down'
  28. else
  29. cla
  30. 'You need to change into my clothes.'
  31. act 'In the bathroom':gt 'bordel', 'dysh'
  32. end
  33. end
  34. act 'Going to the gym, waiting for customers':
  35. if odetero = 0:
  36. cla
  37. 'You need to change into something more appropriate, in a locker in the bathroom is all there.'
  38. act 'In the bathroom':gt 'bordel', 'dysh'
  39. end
  40. if cumbelly > 0 or cumpussy > 0 or cumass > 0 or cumlip > 0 or cumface > 0 or cumfrot > 0 or cumanus > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0:
  41. cla
  42. 'You need to freshen up.'
  43. act 'In the bathroom':gt 'bordel', 'dysh'
  44. else
  45. gt 'bordel', 'var'
  46. end
  47. end
  48. end
  49. if $ARGS[0] = 'dysh':
  50. $metkaM = $ARGS[0]
  51. $locM = $CURLOC
  52. cla
  53. *clr
  54. gs 'stat'
  55. '<center><img src="images/img/centr/bordysh.jpg"></center>'
  56. act 'In the room':gt 'bordel', 'start'
  57. act 'Bathroom':
  58. bordysh = 1
  59. gt 'vann', 'start'
  60. end
  61. act 'Mirror':
  62. borMir = 1
  63. gt 'mirror', 'start'
  64. end
  65. act 'Locker for clothes':
  66. borLoker = 1
  67. gt 'loker', 'start'
  68. end
  69. end
  70. if $ARGS[0] = 'var':
  71. if borsexkol >= 2:gt 'bordel', 'start'
  72. minut += 30
  73. borrand = rand(0, 10)
  74. if borrand = 0:
  75. 'Customer ordered one girl, the price of 1,000 rubles.'
  76. act 'Refuse':gt 'bordel', 'start'
  77. act 'Agree':
  78. borsexkol += 1
  79. money += 1000
  80. slutty += 1
  81. bordelslutty += 1
  82. minut += 120
  83. zpprand = rand(0, 100)
  84. if zpprand >= 70:dynamic $venerasiak
  85. gt 'sex', 'start'
  86. end
  87. elseif borrand = 1:
  88. 'Customer ordered two girls, the price of 1,000 rubles.'
  89. act 'Refuse':gt 'bordel', 'start'
  90. act 'Agree':
  91. borsexkol += 1
  92. money += 1000
  93. slutty += 1
  94. bordelslutty += 1
  95. minut += 120
  96. zpprand = rand(0, 100)
  97. if zpprand >= 70:dynamic $venerasiak
  98. gt 'podrsex', 'start'
  99. end
  100. elseif borrand = 2:
  101. 'Two clients booked one girl, the price of 1,500 rubles.'
  102. act 'Refuse':gt 'bordel', 'start'
  103. act 'Agree':
  104. borsexkol += 1
  105. money += 1500
  106. slutty += 1
  107. bordelslutty += 1
  108. minut += 120
  109. zpprand = rand(0, 100)
  110. if zpprand >= 70:dynamic $venerasiak
  111. gt 'sexdvoe', 'start'
  112. end
  113. elseif borrand = 3:
  114. 'Two clients booked two girls, the price of 1,500 rubles.'
  115. act 'Refuse':gt 'bordel', 'start'
  116. act 'Agree':
  117. borsexkol += 1
  118. money += 1500
  119. slutty += 1
  120. bordelslutty += 1
  121. minut += 120
  122. zpprand = rand(0, 100)
  123. if zpprand >= 70:dynamic $venerasiak
  124. gt 'sexdvanadva', 'start'
  125. end
  126. elseif borrand = 4:
  127. 'Customer group ordered one girl, price 2,000 rubles.'
  128. act 'Refuse':gt 'bordel', 'start'
  129. act 'Agree':
  130. borsexkol += 1
  131. money += 2000
  132. slutty += 1
  133. bordelslutty += 1
  134. minut += 120
  135. zpprand = rand(0, 100)
  136. if zpprand >= 70:dynamic $venerasiak
  137. gt 'paysex', 'start'
  138. end
  139. elseif borrand > 4:
  140. 'You will not chose.'
  141. act 'Go into the room':gt 'bordel', 'start'
  142. act 'Wait another':gt 'bordel', 'var'
  143. end
  144. end
  145. --- bordel ---------------------------------