1
0

bordel.qsrc 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316
  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_industrial', 'redlight'
  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_industrial', 'redlight'
  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_industrial', 'redlight'
  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 sweat > 25 or pcs_hairbsh = 0:
  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. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  90. act 'Return to your room':gt 'bordel', 'brothel'
  91. act 'Bathroom functions':
  92. bordysh = 1
  93. gt 'vann', 'start'
  94. end
  95. act 'Mirror':
  96. borMir = 1
  97. gt 'mirror', 'start'
  98. end
  99. act 'Change your clothes': gt 'wardrobe', 'start'
  100. end
  101. if $ARGS[0] = 'var':
  102. $location_type = 'event'
  103. menu_off = 1
  104. if $clothingworntype = 'nude':
  105. bordelpay = 8
  106. else
  107. bordelpay = 10
  108. end
  109. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  110. gs 'boyStat', $npclastgenerated
  111. minut += 30
  112. gs 'stat'
  113. borrand = rand(0, 10)
  114. if borrand = 0:
  115. bordelpay *= 100
  116. 'A customer orders you (<<bordelpay>> <b>₽</b>).'
  117. gs 'willpower', 'sex', 'resist'
  118. if will_cost <= pcs_willpwr:
  119. act 'Refuse (<<will_cost>> Willpower)':
  120. gs 'willpower', 'sex', 'resist'
  121. gs 'willpower', 'pay', 'resist'
  122. gs 'stat'
  123. gt 'bordel', 'brothel'
  124. end
  125. else
  126. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  127. end
  128. act 'Agree':
  129. borsexkol += 1
  130. money += bordelpay
  131. slutty += 1
  132. bordelslutty += 1
  133. minut += 10
  134. zpprand = rand(0, 100)
  135. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  136. picrand = rand(0,40)
  137. gt 'sex', 'start'
  138. end
  139. elseif borrand = 1:
  140. bordelpay *= 100
  141. 'A customer orders you and another girl (<<bordelpay>> <b>₽</b>).'
  142. gs 'willpower', 'sex', 'resist', 'hard'
  143. if will_cost <= pcs_willpwr:
  144. act 'Refuse (<<will_cost>> Willpower)':
  145. gs 'willpower', 'sex', 'resist', 'hard'
  146. gs 'willpower', 'pay', 'resist'
  147. gs 'stat'
  148. gt 'bordel', 'brothel'
  149. end
  150. else
  151. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  152. end
  153. act 'Agree':
  154. borsexkol += 1
  155. money += bordelpay
  156. slutty += 1
  157. bordelslutty += 1
  158. minut += 10
  159. zpprand = rand(0, 100)
  160. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  161. gt 'podrsex', 'start'
  162. end
  163. elseif borrand = 2:
  164. bordelpay *= 150
  165. 'Two clients book you (<<bordelpay>> <b>₽</b>).'
  166. gs 'willpower', 'sex', 'resist', 'hard'
  167. if will_cost <= pcs_willpwr:
  168. act 'Refuse (<<will_cost>> Willpower)':
  169. gs 'willpower', 'sex', 'resist', 'hard'
  170. gs 'willpower', 'pay', 'resist'
  171. gs 'stat'
  172. gt 'bordel', 'brothel'
  173. end
  174. else
  175. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  176. end
  177. act 'Agree':
  178. borsexkol += 1
  179. money += bordelpay
  180. slutty += 1
  181. bordelslutty += 1
  182. minut += 10
  183. zpprand = rand(0, 100)
  184. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  185. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  186. gs 'boyStat', $npclastgenerated,'1'
  187. gt 'sexdvoe', 'start'
  188. end
  189. elseif borrand = 3:
  190. bordelpay *= 150
  191. 'Two clients book you and another girl (<<bordelpay>> <b>₽</b>).'
  192. gs 'willpower', 'sex', 'resist'
  193. if will_cost <= pcs_willpwr:
  194. act 'Refuse (<<will_cost>> Willpower)':
  195. gs 'willpower', 'sex', 'resist'
  196. gs 'willpower', 'pay', 'resist'
  197. gs 'stat'
  198. gt 'bordel', 'brothel'
  199. end
  200. else
  201. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  202. end
  203. act 'Agree':
  204. borsexkol += 1
  205. money += bordelpay
  206. slutty += 1
  207. bordelslutty += 1
  208. minut += 10
  209. zpprand = rand(0, 100)
  210. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  211. gs 'npcgeneratec', 0, 'Client', rand(18,40)
  212. gs 'boyStat', $npclastgenerated,'1'
  213. gt 'sexdvanadva', 'start'
  214. end
  215. elseif borrand = 4:
  216. bordelpay *= 200
  217. 'A group of customers order you (<<bordelpay>> <b>₽</b>).'
  218. gs 'willpower', 'sex', 'resist', 'hard'
  219. if will_cost <= pcs_willpwr:
  220. act 'Refuse (<<will_cost>> Willpower)':
  221. gs 'willpower', 'sex', 'resist', 'hard'
  222. gs 'willpower', 'pay', 'resist'
  223. gs 'stat'
  224. gt 'bordel', 'brothel'
  225. end
  226. else
  227. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  228. end
  229. act 'Agree':
  230. borsexkol += 1
  231. money += bordelpay
  232. slutty += 1
  233. bordelslutty += 1
  234. minut += 10
  235. zpprand = rand(0, 100)
  236. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  237. guy += 3
  238. killvar '$boy'
  239. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  240. gs 'boyStat', $npclastgenerated
  241. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  242. gs 'boyStat', $npclastgenerated,'1'
  243. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  244. gs 'boyStat', $npclastgenerated,'2'
  245. gt 'paysex', 'start'
  246. end
  247. else
  248. act 'Go to your room':gt 'bordel', 'brothel'
  249. if func('bordel', 'is_open'):
  250. 'You are not chosen.'
  251. act 'Wait for another':gt 'bordel', 'var'
  252. else
  253. 'You are not chosen, and the brothel is now closed.'
  254. end
  255. end
  256. if borrand <= 4 and func('bordel', 'is_open') = 0:
  257. 'The brothel is closing now, so this is your last chance to work today.'
  258. end
  259. end
  260. if $ARGS[0] = 'is_open':
  261. RESULT = hour >= func('bordel', 'open_hour') or hour <= func('bordel', 'close_hour')
  262. end
  263. if $ARGS[0] = 'open_hour':
  264. RESULT = 20
  265. end
  266. if $ARGS[0] = 'close_hour':
  267. RESULT = 3
  268. end
  269. --- bordel ---------------------------------