bordel 4.0 KB

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