bordel.qsrc 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272
  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. '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. gs 'willpower', 'sex', 'resist'
  103. if will_cost <= pcs_willpwr:
  104. act 'Refuse (<<will_cost>> Willpower)':
  105. gs 'willpower', 'sex', 'resist'
  106. gs 'willpower', 'pay', 'resist'
  107. gs 'stat'
  108. gt 'bordel', 'brothel'
  109. end
  110. else
  111. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  112. end
  113. act 'Agree':
  114. borsexkol += 1
  115. money += 100 * bordelpay
  116. slutty += 1
  117. bordelslutty += 1
  118. minut += 10
  119. zpprand = rand(0, 100)
  120. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  121. picrand = rand(0,40)
  122. gt 'sex', 'start'
  123. end
  124. elseif borrand = 1:
  125. 'Customer orders two girls (1,000 <b>₽</b>).'
  126. gs 'willpower', 'sex', 'resist', 'hard'
  127. if will_cost <= pcs_willpwr:
  128. act 'Refuse (<<will_cost>> Willpower)':
  129. gs 'willpower', 'sex', 'resist', 'hard'
  130. gs 'willpower', 'pay', 'resist'
  131. gs 'stat'
  132. gt 'bordel', 'brothel'
  133. end
  134. else
  135. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  136. end
  137. act 'Agree':
  138. borsexkol += 1
  139. money += 100 * bordelpay
  140. slutty += 1
  141. bordelslutty += 1
  142. minut += 10
  143. zpprand = rand(0, 100)
  144. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  145. gt 'podrsex', 'start'
  146. end
  147. elseif borrand = 2:
  148. 'Two clients book one girl (1,500 <b>₽</b>).'
  149. gs 'willpower', 'sex', 'resist', 'hard'
  150. if will_cost <= pcs_willpwr:
  151. act 'Refuse (<<will_cost>> Willpower)':
  152. gs 'willpower', 'sex', 'resist', 'hard'
  153. gs 'willpower', 'pay', 'resist'
  154. gs 'stat'
  155. gt 'bordel', 'brothel'
  156. end
  157. else
  158. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  159. end
  160. act 'Agree':
  161. borsexkol += 1
  162. money += 150 * bordelpay
  163. slutty += 1
  164. bordelslutty += 1
  165. minut += 10
  166. zpprand = rand(0, 100)
  167. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  168. gt 'sexdvoe', 'start'
  169. end
  170. elseif borrand = 3:
  171. 'Two clients book two girls (1,500 <b>₽</b>).'
  172. gs 'willpower', 'sex', 'resist'
  173. if will_cost <= pcs_willpwr:
  174. act 'Refuse (<<will_cost>> Willpower)':
  175. gs 'willpower', 'sex', 'resist'
  176. gs 'willpower', 'pay', 'resist'
  177. gs 'stat'
  178. gt 'bordel', 'brothel'
  179. end
  180. else
  181. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  182. end
  183. act 'Agree':
  184. borsexkol += 1
  185. money += 150 * bordelpay
  186. slutty += 1
  187. bordelslutty += 1
  188. minut += 10
  189. zpprand = rand(0, 100)
  190. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  191. gt 'sexdvanadva', 'start'
  192. end
  193. elseif borrand = 4:
  194. 'Group of customers order one girl, price 2,000 <b>₽</b>.'
  195. gs 'willpower', 'sex', 'resist', 'hard'
  196. if will_cost <= pcs_willpwr:
  197. act 'Refuse (<<will_cost>> Willpower)':
  198. gs 'willpower', 'sex', 'resist', 'hard'
  199. gs 'willpower', 'pay', 'resist'
  200. gs 'stat'
  201. gt 'bordel', 'brothel'
  202. end
  203. else
  204. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  205. end
  206. act 'Agree':
  207. borsexkol += 1
  208. money += 200 * bordelpay
  209. slutty += 1
  210. bordelslutty += 1
  211. minut += 10
  212. zpprand = rand(0, 100)
  213. if zpprand >= 70:gs 'dinSex', 'std_trigger'
  214. guy += 3
  215. killvar '$boy'
  216. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  217. gs 'boyStat', $npclastgenerated
  218. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  219. gs 'boyStat', $npclastgenerated,'1'
  220. gs 'npcgeneratec', 0, 'Bordel Client', rand(18,40)
  221. gs 'boyStat', $npclastgenerated,'2'
  222. gt 'paysex', 'start'
  223. end
  224. elseif borrand > 4:
  225. 'You are not chosen.'
  226. act 'Go to your room':gt 'bordel', 'brothel'
  227. act 'Wait for another':gt 'bordel', 'var'
  228. end
  229. end
  230. --- bordel ---------------------------------