bordel 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218
  1. # bordel
  2. if $ARGS[0] = 'start' or $ARGS[0] = '':
  3. $location_type = 'event'
  4. gs 'stat'
  5. '<center><b>Brothel</b></center>'
  6. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/bordel.jpg"></center>'
  7. if pcs_apprnc < 0:
  8. '"You look half dead, get yourself treated."'
  9. act 'Leave':gt 'down'
  10. elseif pcs_apprnc < 100:
  11. '"Look at you, no one will pay for such a product, get cleaned up and come back."'
  12. act 'Leave':gt 'down'
  13. else
  14. act 'In the room':gt 'bordel', 'brothel'
  15. end
  16. end
  17. if $ARGS[0] = 'brothel':
  18. $sexloc = $CURLOC
  19. $metkaM = $ARGS[0]
  20. $locM = $CURLOC
  21. $location_type = 'private'
  22. cla
  23. *clr
  24. gs 'stat'
  25. '<center><b>Your room in a brothel</b></center>'
  26. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/borroom.jpg"></center>'
  27. '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'
  28. 'In the middle is a huge bed, there is a small side door to the <a href="exec:gt ''bordel'', ''dysh''">bathroom</a>.'
  29. act 'Leave':
  30. if $clothingworntype ! 'nude':
  31. gt 'down'
  32. else
  33. cla
  34. 'You can''t go outside naked.'
  35. act 'Go to the bathroom':gt 'bordel', 'dysh'
  36. end
  37. end
  38. act 'Go to the reception room and wait for customers':
  39. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1 or pcs_makeup < 2 or pcs_leghair > 3 or pcs_pubes > 3 or sweat > 25 or pcs_hairbsh = 0:
  40. cla
  41. 'The brothel madam comes over to you and says, "Our customers expect you to be clean, shaven, made-up and with your hair looking nice. Go and sort yourself out, now!"'
  42. act 'Go to the bathroom':gt 'bordel', 'dysh'
  43. elseif $clothingworntype ! 'burlesque' and PCloStyle ! 4 and $clothingworntype ! 'nude':
  44. cla
  45. 'You need to wear an outfit that can be used for prostitution. if you haven''t got anything suitable and you are desperate, you could work naked but you will get paid less and might get treated badly.'
  46. 'You can change your clothes in the bathroom.'
  47. act 'Go to the bathroom':gt 'bordel', 'dysh'
  48. else
  49. gt 'bordel', 'var'
  50. end
  51. end
  52. end
  53. if $ARGS[0] = 'dysh':
  54. $metka = $ARGS[0]
  55. $loc = $CURLOC
  56. $metkaM = 'dysh'
  57. $locM = 'bordel'
  58. $location_type = 'bathroom'
  59. cla
  60. *clr
  61. gs 'stat'
  62. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/bordysh.jpg"></center>'
  63. act 'Go to your room':gt 'bordel', 'brothel'
  64. act 'Bathroom':
  65. bordysh = 1
  66. gt 'vann', 'start'
  67. end
  68. act 'Mirror':
  69. borMir = 1
  70. gt 'mirror', 'start'
  71. end
  72. act 'Change your clothes':
  73. gt 'clothing_QV', 'list'
  74. end
  75. end
  76. if $ARGS[0] = 'var':
  77. $location_type = 'event'
  78. if borsexkol >= 2:gt 'bordel', 'brothel'
  79. if $clothingworntype = 'nude':
  80. bordelpay = 8
  81. else
  82. bordelpay = 10
  83. end
  84. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  85. gs 'boyStat', $npclastgenerated
  86. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  87. $boy1 = $npclastgenerated
  88. $boydesc1 = $npc_usedname[$npclastgenerated]
  89. dick1 = npc_dick[$npclastgenerated]
  90. $dick_girth1 = $npc_thdick[$npclastgenerated]
  91. silavag1 = npc_sexskill[$npclastgenerated]
  92. minut += 30
  93. borrand = rand(0, 10)
  94. if borrand = 0:
  95. 'Customer orders one girl (1,000 <b>₽</b>).'
  96. act 'Refuse':gt 'bordel', 'brothel'
  97. act 'Agree':
  98. borsexkol += 1
  99. money += 100 * bordelpay
  100. slutty += 1
  101. bordelslutty += 1
  102. minut += 10
  103. zpprand = rand(0, 100)
  104. if zpprand >= 70:dynamic $venerasiak
  105. picrand = rand(0,40)
  106. gt 'sex', 'start'
  107. end
  108. elseif borrand = 1:
  109. 'Customer orders two girls (1,000 <b>₽</b>).'
  110. act 'Refuse':gt 'bordel', 'brothel'
  111. act 'Agree':
  112. borsexkol += 1
  113. money += 100 * bordelpay
  114. slutty += 1
  115. bordelslutty += 1
  116. minut += 10
  117. zpprand = rand(0, 100)
  118. if zpprand >= 70:dynamic $venerasiak
  119. gt 'podrsex', 'start'
  120. end
  121. elseif borrand = 2:
  122. 'Two clients book one girl (1,500 <b>₽</b>).'
  123. act 'Refuse':gt 'bordel', 'brothel'
  124. act 'Agree':
  125. borsexkol += 1
  126. money += 150 * bordelpay
  127. slutty += 1
  128. bordelslutty += 1
  129. minut += 10
  130. zpprand = rand(0, 100)
  131. if zpprand >= 70:dynamic $venerasiak
  132. gt 'sexdvoe', 'start'
  133. end
  134. elseif borrand = 3:
  135. 'Two clients book two girls (1,500 <b>₽</b>).'
  136. act 'Refuse':gt 'bordel', 'brothel'
  137. act 'Agree':
  138. borsexkol += 1
  139. money += 150 * bordelpay
  140. slutty += 1
  141. bordelslutty += 1
  142. minut += 10
  143. zpprand = rand(0, 100)
  144. if zpprand >= 70:dynamic $venerasiak
  145. gt 'sexdvanadva', 'start'
  146. end
  147. elseif borrand = 4:
  148. 'Group of customers order one girl, price 2,000 <b>₽</b>.'
  149. act 'Refuse':gt 'bordel', 'brothel'
  150. act 'Agree':
  151. borsexkol += 1
  152. money += 200 * bordelpay
  153. slutty += 1
  154. bordelslutty += 1
  155. minut += 10
  156. zpprand = rand(0, 100)
  157. if zpprand >= 70:dynamic $venerasiak
  158. guy += 3
  159. dynamic $clrboy
  160. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  161. $boy[0] = $npclastgenerated
  162. $boydesc[0] = $npc_usedname[$npclastgenerated]
  163. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  164. $boy[1] = $npclastgenerated
  165. $boydesc[1] = $npc_usedname[$npclastgenerated]
  166. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  167. $boy[2] = $npclastgenerated
  168. $boydesc[2] = $npc_usedname[$npclastgenerated]
  169. gt 'paysex', 'start'
  170. end
  171. elseif borrand > 4:
  172. 'You are not chosen.'
  173. act 'Go to your room':gt 'bordel', 'brothel'
  174. act 'Wait for another':gt 'bordel', 'var'
  175. end
  176. end
  177. --- bordel ---------------------------------