1
0

bordel 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185
  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 $clothingworntype ! 'ero':
  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 $clothingworntype ! 'ero':
  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. gt 'clothing', 'view_clothing_list', 'wardrobe'
  67. end
  68. end
  69. if $ARGS[0] = 'var':
  70. if borsexkol >= 2:gt 'bordel', 'start'
  71. minut += 30
  72. borrand = rand(0, 10)
  73. if borrand = 0:
  74. 'Customer ordered one girl, the price of 1,000 rubles.'
  75. act 'Refuse':gt 'bordel', 'start'
  76. act 'Agree':
  77. borsexkol += 1
  78. money += 1000
  79. slutty += 1
  80. bordelslutty += 1
  81. minut += 120
  82. zpprand = rand(0, 100)
  83. if zpprand >= 70:dynamic $venerasiak
  84. gt 'sex', 'start'
  85. end
  86. elseif borrand = 1:
  87. 'Customer ordered two girls, the price of 1,000 rubles.'
  88. act 'Refuse':gt 'bordel', 'start'
  89. act 'Agree':
  90. borsexkol += 1
  91. money += 1000
  92. slutty += 1
  93. bordelslutty += 1
  94. minut += 120
  95. zpprand = rand(0, 100)
  96. if zpprand >= 70:dynamic $venerasiak
  97. gt 'podrsex', 'start'
  98. end
  99. elseif borrand = 2:
  100. 'Two clients booked one girl, the price of 1,500 rubles.'
  101. act 'Refuse':gt 'bordel', 'start'
  102. act 'Agree':
  103. borsexkol += 1
  104. money += 1500
  105. slutty += 1
  106. bordelslutty += 1
  107. minut += 120
  108. zpprand = rand(0, 100)
  109. if zpprand >= 70:dynamic $venerasiak
  110. gt 'sexdvoe', 'start'
  111. end
  112. elseif borrand = 3:
  113. 'Two clients booked two girls, the price of 1,500 rubles.'
  114. act 'Refuse':gt 'bordel', 'start'
  115. act 'Agree':
  116. borsexkol += 1
  117. money += 1500
  118. slutty += 1
  119. bordelslutty += 1
  120. minut += 120
  121. zpprand = rand(0, 100)
  122. if zpprand >= 70:dynamic $venerasiak
  123. gt 'sexdvanadva', 'start'
  124. end
  125. elseif borrand = 4:
  126. 'Customer group ordered one girl, price 2,000 rubles.'
  127. act 'Refuse':gt 'bordel', 'start'
  128. act 'Agree':
  129. borsexkol += 1
  130. money += 2000
  131. slutty += 1
  132. bordelslutty += 1
  133. minut += 120
  134. zpprand = rand(0, 100)
  135. if zpprand >= 70:dynamic $venerasiak
  136. gt 'paysex', 'start'
  137. end
  138. elseif borrand > 4:
  139. 'You will not chose.'
  140. act 'Go into the room':gt 'bordel', 'start'
  141. act 'Wait another':gt 'bordel', 'var'
  142. end
  143. end
  144. --- bordel ---------------------------------