bordel 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195
  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, get it treated."'
  8. act 'Leave':gt 'down'
  9. elseif vnesh < 100:
  10. '"Look at you, no one will pay for such a product, get cleaned up and come back."'
  11. act 'Leave':gt 'down'
  12. else
  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 there is a lot of competition, in order to avoid a massacre they introduced a rule - no more than two clients per day'
  24. 'In the middle is a huge bed, there is a small side door to the <a href="exec:gt ''bordel'', ''dysh''">bathroom</a>.'
  25. act 'Leave':
  26. if ($clothingworntype ! 'naughty' and CloQuality ! 2) and $clothingworntype ! 'nude':
  27. gt 'down'
  28. else
  29. cla
  30. 'You need to change into suitable clothes.'
  31. act 'Go to the bathroom':gt 'bordel', 'dysh'
  32. end
  33. end
  34. act 'Go to the reception room and wait for customers':
  35. if $clothingworntype = 'naughty' and CloQuality = 2:
  36. cla
  37. 'You need to change into something more appropriate, all you need is in the locker in the bathroom.'
  38. act 'Go to the bathroom':gt 'bordel', 'dysh'
  39. end
  40. if arrsize('sparrloc') > 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 'Go to the bathroom':gt 'bordel', 'dysh'
  44. else
  45. gt 'bordel', 'var'
  46. end
  47. end
  48. end
  49. if $ARGS[0] = 'dysh':
  50. $metka = $ARGS[0]
  51. $loc = $CURLOC
  52. $metkaM = $ARGS[0]
  53. $locM = $CURLOC
  54. cla
  55. *clr
  56. gs 'stat'
  57. '<center><img src="images/img/centr/bordysh.jpg"></center>'
  58. act 'Go to your room':gt 'bordel', 'start'
  59. act 'Bathroom':
  60. bordysh = 1
  61. gt 'vann', 'start'
  62. end
  63. act 'Mirror':
  64. borMir = 1
  65. gt 'mirror', 'start'
  66. end
  67. act 'Change your clothes':
  68. gt 'clothing_QV', 'list'
  69. end
  70. end
  71. if $ARGS[0] = 'var':
  72. if borsexkol >= 2:gt 'bordel', 'start'
  73. $boy = 'Client'
  74. $boy1 = 'Client 2'
  75. minut += 30
  76. borrand = rand(0, 10)
  77. if borrand = 0:
  78. 'Customer orders one girl (1,000 <b>₽</b>).'
  79. act 'Refuse':gt 'bordel', 'start'
  80. act 'Agree':
  81. borsexkol += 1
  82. money += 1000
  83. slutty += 1
  84. bordelslutty += 1
  85. minut += 10
  86. zpprand = rand(0, 100)
  87. if zpprand >= 70:dynamic $venerasiak
  88. gt 'sex', 'start'
  89. end
  90. elseif borrand = 1:
  91. 'Customer orders two girls (1,000 <b>₽</b>).'
  92. act 'Refuse':gt 'bordel', 'start'
  93. act 'Agree':
  94. borsexkol += 1
  95. money += 1000
  96. slutty += 1
  97. bordelslutty += 1
  98. minut += 10
  99. zpprand = rand(0, 100)
  100. if zpprand >= 70:dynamic $venerasiak
  101. gt 'podrsex', 'start'
  102. end
  103. elseif borrand = 2:
  104. 'Two clients book one girl (1,500 <b>₽</b>).'
  105. act 'Refuse':gt 'bordel', 'start'
  106. act 'Agree':
  107. borsexkol += 1
  108. money += 1500
  109. slutty += 1
  110. bordelslutty += 1
  111. minut += 10
  112. zpprand = rand(0, 100)
  113. if zpprand >= 70:dynamic $venerasiak
  114. gt 'sexdvoe', 'start'
  115. end
  116. elseif borrand = 3:
  117. 'Two clients book two girls (1,500 <b>₽</b>).'
  118. act 'Refuse':gt 'bordel', 'start'
  119. act 'Agree':
  120. borsexkol += 1
  121. money += 1500
  122. slutty += 1
  123. bordelslutty += 1
  124. minut += 10
  125. zpprand = rand(0, 100)
  126. if zpprand >= 70:dynamic $venerasiak
  127. gt 'sexdvanadva', 'start'
  128. end
  129. elseif borrand = 4:
  130. 'Group of customers order one girl, price 2,000 <b>₽</b>.'
  131. act 'Refuse':gt 'bordel', 'start'
  132. act 'Agree':
  133. borsexkol += 1
  134. money += 2000
  135. slutty += 1
  136. bordelslutty += 1
  137. minut += 10
  138. zpprand = rand(0, 100)
  139. if zpprand >= 70:dynamic $venerasiak
  140. guy += 3
  141. dynamic $clrboy
  142. dynamic $CatName, 'Bordel client'
  143. dynamic $CatName, 'Bordel client', '$boy1'
  144. dynamic $CatName, 'Bordel client', '$boy2'
  145. $boy[1] = $boy1
  146. $boy[2] = $boy2
  147. gt 'paysex', 'start'
  148. end
  149. elseif borrand > 4:
  150. 'You are not chosen.'
  151. act 'Go to your room':gt 'bordel', 'start'
  152. act 'Wait for another':gt 'bordel', 'var'
  153. end
  154. end
  155. --- bordel ---------------------------------