1
0

bordel.qsrc 5.3 KB

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