bordel.qsrc 8.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311
  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. 'The brothel madam looks you over as you enter.'
  9. if pcs_apprnc < 0:
  10. '"You look half dead, get yourself treated."'
  11. act 'Leave':gt 'city_redlight', 'start'
  12. elseif pcs_apprnc < 100:
  13. '"Look at you, no one will pay for such a product, get cleaned up and come back."'
  14. act 'Leave':gt 'city_redlight', 'start'
  15. else
  16. '"You can work tonight, head to your room and get ready."'
  17. act 'Go to your room':gt 'bordel', 'brothel'
  18. end
  19. end
  20. if $ARGS[0] = 'brothel':
  21. $sexloc = 'bordel'
  22. $loc_arg = $ARGS[0]
  23. $loc = 'bordel'
  24. $location_type = 'private'
  25. $menu_loc = 'bordel'
  26. $menu_arg = 'brothel'
  27. menu_off = 0
  28. killvar '$locclass'
  29. cla
  30. *clr
  31. gs 'stat'
  32. '<center><b>Your room in a brothel</b></center>'
  33. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/borroom.jpg"></center>'
  34. '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>.'
  35. *nl
  36. '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.'
  37. act 'Leave':
  38. if $clothingworntype ! 'nude':
  39. gt 'city_redlight', 'start'
  40. else
  41. cla
  42. 'You can''t go outside naked.'
  43. act 'Go to the bathroom':gt 'bordel', 'dysh'
  44. end
  45. end
  46. if func('bordel', 'is_open') = 0:
  47. 'The brothel is closed for the night however, so you won''t be able to work now regardless.'
  48. else
  49. if borsexkol >= 2:
  50. !! borsexkol is reset in cikl, meaning that it is reset at midnight, not when the brothel
  51. !! opens or closes. if this is not desired behavior, will need to handle resetting this var
  52. !! in brothel specific code.
  53. 'You have already hit this limit, so you won''t be able to work again until midnight.'
  54. else
  55. act 'Go to the reception room and wait for customers':
  56. 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 pcs_sweat > 25 or pcs_hairbsh < 1:
  57. cla
  58. '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!"'
  59. act 'Go to the bathroom':gt 'bordel', 'dysh'
  60. elseif $clothingworntype ! 'fancy_burlesque' and PCloStyle ! 4 and $clothingworntype ! 'nude':
  61. cla
  62. '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.'
  63. 'You can change your clothes in the bathroom.'
  64. act 'Go to the bathroom':gt 'bordel', 'dysh'
  65. else
  66. gt 'bordel', 'var'
  67. end
  68. end
  69. end
  70. end
  71. end
  72. if $ARGS[0] = 'dysh':
  73. $loc_arg = $ARGS[0]
  74. $loc = 'bordel'
  75. $locM_arg = 'dysh'
  76. $locM = 'bordel'
  77. $location_type = 'bathroom'
  78. $locclass = 'restroom'
  79. $menu_loc = 'bordel'
  80. $menu_arg = 'dysh'
  81. menu_off = 0
  82. cla
  83. *clr
  84. gs 'stat'
  85. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/bordysh.jpg"></center>'
  86. 'The bathroom is well fitted and clean as customers can access it and hygiene is very important in a brothel.'
  87. 'Your room is so dedicated to its purpose that your clothes are stored in here.'
  88. *nl
  89. act 'Return to your room':gt 'bordel', 'brothel'
  90. act 'Bathroom functions': gt 'vann', 'start'
  91. act 'Mirror': gt 'mirror', 'start'
  92. act 'Change your clothes': gt 'wardrobe', 'start'
  93. end
  94. if $ARGS[0] = 'var':
  95. $location_type = 'event'
  96. menu_off = 1
  97. if $clothingworntype = 'nude':
  98. bordelpay = 8
  99. else
  100. bordelpay = 10
  101. end
  102. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  103. gs 'boyStat', $npclastgenerated
  104. minut += 30
  105. gs 'stat'
  106. borrand = rand(0, 10)
  107. if borrand = 0:
  108. bordelpay += 100
  109. 'A customer orders you (<<bordelpay>> <b>₽</b>).'
  110. gs 'willpower', 'sex', 'resist'
  111. if will_cost <= pcs_willpwr:
  112. act 'Refuse (<<will_cost>> Willpower)':
  113. gs 'willpower', 'sex', 'resist'
  114. gs 'willpower', 'pay', 'resist'
  115. gs 'stat'
  116. gt 'bordel', 'brothel'
  117. end
  118. else
  119. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  120. end
  121. act 'Agree':
  122. borsexkol += 1
  123. money += bordelpay
  124. slutty += 1
  125. bordelslutty += 1
  126. minut += 10
  127. zpprand = rand(0, 100)
  128. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  129. picrand = rand(0,40)
  130. gt 'sex', 'start'
  131. end
  132. elseif borrand = 1:
  133. bordelpay += 100
  134. 'A customer orders you and another girl (<<bordelpay>> <b>₽</b>).'
  135. gs 'willpower', 'sex', 'resist', 'hard'
  136. if will_cost <= pcs_willpwr:
  137. act 'Refuse (<<will_cost>> Willpower)':
  138. gs 'willpower', 'sex', 'resist', 'hard'
  139. gs 'willpower', 'pay', 'resist'
  140. gs 'stat'
  141. gt 'bordel', 'brothel'
  142. end
  143. else
  144. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  145. end
  146. act 'Agree':
  147. borsexkol += 1
  148. money += bordelpay
  149. slutty += 1
  150. bordelslutty += 1
  151. minut += 10
  152. zpprand = rand(0, 100)
  153. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  154. gt 'podrsex', 'start'
  155. end
  156. elseif borrand = 2:
  157. bordelpay += 150
  158. 'Two clients book you (<<bordelpay>> <b>₽</b>).'
  159. gs 'willpower', 'sex', 'resist', 'hard'
  160. if will_cost <= pcs_willpwr:
  161. act 'Refuse (<<will_cost>> Willpower)':
  162. gs 'willpower', 'sex', 'resist', 'hard'
  163. gs 'willpower', 'pay', 'resist'
  164. gs 'stat'
  165. gt 'bordel', 'brothel'
  166. end
  167. else
  168. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  169. end
  170. act 'Agree':
  171. borsexkol += 1
  172. money += bordelpay
  173. slutty += 1
  174. bordelslutty += 1
  175. minut += 10
  176. zpprand = rand(0, 100)
  177. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  178. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  179. gs 'boyStat', $npclastgenerated,'1'
  180. gt 'sexdvoe', 'start'
  181. end
  182. elseif borrand = 3:
  183. bordelpay += 150
  184. 'Two clients book you and another girl (<<bordelpay>> <b>₽</b>).'
  185. gs 'willpower', 'sex', 'resist'
  186. if will_cost <= pcs_willpwr:
  187. act 'Refuse (<<will_cost>> Willpower)':
  188. gs 'willpower', 'sex', 'resist'
  189. gs 'willpower', 'pay', 'resist'
  190. gs 'stat'
  191. gt 'bordel', 'brothel'
  192. end
  193. else
  194. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  195. end
  196. act 'Agree':
  197. borsexkol += 1
  198. money += bordelpay
  199. slutty += 1
  200. bordelslutty += 1
  201. minut += 10
  202. zpprand = rand(0, 100)
  203. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  204. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  205. gs 'boyStat', $npclastgenerated,'1'
  206. gt 'sexdvanadva', 'start'
  207. end
  208. elseif borrand = 4:
  209. bordelpay += 200
  210. 'A group of customers order you (<<bordelpay>> <b>₽</b>).'
  211. gs 'willpower', 'sex', 'resist', 'hard'
  212. if will_cost <= pcs_willpwr:
  213. act 'Refuse (<<will_cost>> Willpower)':
  214. gs 'willpower', 'sex', 'resist', 'hard'
  215. gs 'willpower', 'pay', 'resist'
  216. gs 'stat'
  217. gt 'bordel', 'brothel'
  218. end
  219. else
  220. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  221. end
  222. act 'Agree':
  223. borsexkol += 1
  224. money += bordelpay
  225. slutty += 1
  226. bordelslutty += 1
  227. minut += 10
  228. zpprand = rand(0, 100)
  229. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  230. guy += 3
  231. killvar '$boy'
  232. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  233. gs 'boyStat', $npclastgenerated
  234. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  235. gs 'boyStat', $npclastgenerated,'1'
  236. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  237. gs 'boyStat', $npclastgenerated,'2'
  238. gt 'paysex', 'start'
  239. end
  240. else
  241. act 'Go to your room':gt 'bordel', 'brothel'
  242. if func('bordel', 'is_open'):
  243. 'You are not chosen.'
  244. act 'Wait for another':gt 'bordel', 'var'
  245. else
  246. 'You are not chosen, and the brothel is now closed.'
  247. end
  248. end
  249. if borrand <= 4 and func('bordel', 'is_open') = 0:
  250. 'The brothel is closing now, so this is your last chance to work today.'
  251. end
  252. killvar'borrand'
  253. killvar'zpprand'
  254. end
  255. if $ARGS[0] = 'is_open':
  256. RESULT = hour >= func('bordel', 'open_hour') or hour <= func('bordel', 'close_hour')
  257. end
  258. if $ARGS[0] = 'open_hour':
  259. RESULT = 20
  260. end
  261. if $ARGS[0] = 'close_hour':
  262. RESULT = 3
  263. end
  264. --- bordel ---------------------------------