1
0

bordel.qsrc 7.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277
  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 'city_industrial', '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 'city_industrial', 'redlight'
  14. else
  15. act 'In the room':gt 'bordel', 'brothel'
  16. end
  17. end
  18. if $ARGS[0] = 'brothel':
  19. $sexloc = 'bordel'
  20. $loc_arg = $ARGS[0]
  21. $loc = 'bordel'
  22. $location_type = 'private'
  23. $menu_loc = 'bordel'
  24. $menu_arg = 'brothel'
  25. menu_off = 0
  26. killvar '$locclass'
  27. cla
  28. *clr
  29. gs 'stat'
  30. '<center><b>Your room in a brothel</b></center>'
  31. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/borroom.jpg"></center>'
  32. 'This is your room in the brothel. In the middle is a huge bed and not much else, there is a small side door to the <a href="exec:gt ''bordel'', ''dysh''">bathroom</a>.'
  33. *nl
  34. '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'
  35. act 'Leave':
  36. if $clothingworntype ! 'nude':
  37. gt 'city_industrial', 'redlight'
  38. else
  39. cla
  40. 'You can''t go outside naked.'
  41. act 'Go to the bathroom':gt 'bordel', 'dysh'
  42. end
  43. end
  44. act 'Go to the reception room and wait for customers':
  45. 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:
  46. cla
  47. '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!"'
  48. act 'Go to the bathroom':gt 'bordel', 'dysh'
  49. elseif $clothingworntype ! 'fancy_burlesque' and PCloStyle ! 4 and $clothingworntype ! 'nude':
  50. cla
  51. '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.'
  52. 'You can change your clothes in the bathroom.'
  53. act 'Go to the bathroom':gt 'bordel', 'dysh'
  54. else
  55. gt 'bordel', 'var'
  56. end
  57. end
  58. end
  59. if $ARGS[0] = 'dysh':
  60. $loc_arg = $ARGS[0]
  61. $loc = 'bordel'
  62. $locM_arg = 'dysh'
  63. $locM = 'bordel'
  64. $location_type = 'bathroom'
  65. $locclass = 'restroom'
  66. $menu_loc = 'bordel'
  67. $menu_arg = 'dysh'
  68. menu_off = 0
  69. cla
  70. *clr
  71. gs 'stat'
  72. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/bordysh.jpg"></center>'
  73. 'The bathroom is well fitted and clean as customers can access it and hygiene is very important in a brothel.'
  74. 'Your room is so dedicated to it purpose that your clothes are stored in here.'
  75. *nl
  76. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  77. act 'Return to your room':gt 'bordel', 'brothel'
  78. act 'Bathroom functions':
  79. bordysh = 1
  80. gt 'vann', 'start'
  81. end
  82. act 'Mirror':
  83. borMir = 1
  84. gt 'mirror', 'start'
  85. end
  86. act 'Change your clothes': gt 'wardrobe', 'start'
  87. end
  88. if $ARGS[0] = 'var':
  89. $location_type = 'event'
  90. menu_off = 1
  91. if borsexkol >= 2:gt 'bordel', 'brothel'
  92. if $clothingworntype = 'nude':
  93. bordelpay = 8
  94. else
  95. bordelpay = 10
  96. end
  97. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  98. gs 'boyStat', $npclastgenerated
  99. minut += 30
  100. borrand = rand(0, 10)
  101. if borrand = 0:
  102. 'Customer orders one girl (1,000 <b>₽</b>).'
  103. gs 'willpower', 'sex', 'resist'
  104. if will_cost <= pcs_willpwr:
  105. act 'Refuse (<<will_cost>> Willpower)':
  106. gs 'willpower', 'sex', 'resist'
  107. gs 'willpower', 'pay', 'resist'
  108. gs 'stat'
  109. gt 'bordel', 'brothel'
  110. end
  111. else
  112. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  113. end
  114. act 'Agree':
  115. borsexkol += 1
  116. money += 100 * bordelpay
  117. slutty += 1
  118. bordelslutty += 1
  119. minut += 10
  120. zpprand = rand(0, 100)
  121. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  122. picrand = rand(0,40)
  123. gt 'sex', 'start'
  124. end
  125. elseif borrand = 1:
  126. 'Customer orders two girls (1,000 <b>₽</b>).'
  127. gs 'willpower', 'sex', 'resist', 'hard'
  128. if will_cost <= pcs_willpwr:
  129. act 'Refuse (<<will_cost>> Willpower)':
  130. gs 'willpower', 'sex', 'resist', 'hard'
  131. gs 'willpower', 'pay', 'resist'
  132. gs 'stat'
  133. gt 'bordel', 'brothel'
  134. end
  135. else
  136. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  137. end
  138. act 'Agree':
  139. borsexkol += 1
  140. money += 100 * bordelpay
  141. slutty += 1
  142. bordelslutty += 1
  143. minut += 10
  144. zpprand = rand(0, 100)
  145. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  146. gt 'podrsex', 'start'
  147. end
  148. elseif borrand = 2:
  149. 'Two clients book one girl (1,500 <b>₽</b>).'
  150. gs 'willpower', 'sex', 'resist', 'hard'
  151. if will_cost <= pcs_willpwr:
  152. act 'Refuse (<<will_cost>> Willpower)':
  153. gs 'willpower', 'sex', 'resist', 'hard'
  154. gs 'willpower', 'pay', 'resist'
  155. gs 'stat'
  156. gt 'bordel', 'brothel'
  157. end
  158. else
  159. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  160. end
  161. act 'Agree':
  162. borsexkol += 1
  163. money += 150 * bordelpay
  164. slutty += 1
  165. bordelslutty += 1
  166. minut += 10
  167. zpprand = rand(0, 100)
  168. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  169. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  170. gs 'boyStat', $npclastgenerated,'1'
  171. gt 'sexdvoe', 'start'
  172. end
  173. elseif borrand = 3:
  174. 'Two clients book two girls (1,500 <b>₽</b>).'
  175. gs 'willpower', 'sex', 'resist'
  176. if will_cost <= pcs_willpwr:
  177. act 'Refuse (<<will_cost>> Willpower)':
  178. gs 'willpower', 'sex', 'resist'
  179. gs 'willpower', 'pay', 'resist'
  180. gs 'stat'
  181. gt 'bordel', 'brothel'
  182. end
  183. else
  184. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  185. end
  186. act 'Agree':
  187. borsexkol += 1
  188. money += 150 * bordelpay
  189. slutty += 1
  190. bordelslutty += 1
  191. minut += 10
  192. zpprand = rand(0, 100)
  193. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  194. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  195. gs 'boyStat', $npclastgenerated,'1'
  196. gt 'sexdvanadva', 'start'
  197. end
  198. elseif borrand = 4:
  199. 'Group of customers order one girl, price 2,000 <b>₽</b>.'
  200. gs 'willpower', 'sex', 'resist', 'hard'
  201. if will_cost <= pcs_willpwr:
  202. act 'Refuse (<<will_cost>> Willpower)':
  203. gs 'willpower', 'sex', 'resist', 'hard'
  204. gs 'willpower', 'pay', 'resist'
  205. gs 'stat'
  206. gt 'bordel', 'brothel'
  207. end
  208. else
  209. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  210. end
  211. act 'Agree':
  212. borsexkol += 1
  213. money += 200 * bordelpay
  214. slutty += 1
  215. bordelslutty += 1
  216. minut += 10
  217. zpprand = rand(0, 100)
  218. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  219. guy += 3
  220. killvar '$boy'
  221. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  222. gs 'boyStat', $npclastgenerated
  223. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  224. gs 'boyStat', $npclastgenerated,'1'
  225. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  226. gs 'boyStat', $npclastgenerated,'2'
  227. gt 'paysex', 'start'
  228. end
  229. elseif borrand > 4:
  230. 'You are not chosen.'
  231. act 'Go to your room':gt 'bordel', 'brothel'
  232. act 'Wait for another':gt 'bordel', 'var'
  233. end
  234. end
  235. --- bordel ---------------------------------