bordel.qsrc 7.4 KB

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