1
0

belgang.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231
  1. # belgang
  2. menu_off = 1
  3. if $ARGS[0] = 'workofdebt':
  4. cla & *clr
  5. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  6. 'The tinted window slides down and you find yourself staring directly into Vadim''s face. "Slut, get in. It''s time for you to work off your debts."'
  7. *nl
  8. 'You owe him: <<belgangPay>> <b>₽</b>'
  9. if belgangPayWeek >= 0:
  10. 'This week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  11. else
  12. 'This week you need to pay him: 0 <b>₽</b>'
  13. 'You have reduced your next weeks payment by: <<-1*belgangPayWeek>> <b>₽</b>'
  14. end
  15. if money >= belgangPay:
  16. act 'Pay the remaining debt (<<belgangPay>> <b>₽</b>)': gt 'belgang', 'payremaining'
  17. end
  18. if money >= belgangPayWeek and money < belgangPay:
  19. act 'Pay for this week (<<belgangPayWeek>> <b>₽</b>)':
  20. cla & *clr
  21. minut += 5
  22. money -= belgangPayWeek
  23. belgangPay -= belgangPayWeek
  24. belgangPayWeek = 0
  25. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belymoney.jpg"></center>'
  26. 'You don''t get in, instead you hand him the payment for this week. "That''s it, everything for this week."'
  27. 'He takes a moment to count the money and nods approvingly. "Very good, it''s the full amount. See you next week, <<$pcs_nickname>>."'
  28. *nl
  29. 'You owe him: <<belgangPay>> <b>₽</b>'
  30. 'This week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  31. act 'Move on': gt $loc
  32. end
  33. end
  34. act 'Get into the jeep':
  35. cla & *clr
  36. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
  37. 'You open the door and take a seat in the back as Vadim drives through the city.'
  38. if temper >= 18 and sunWeather = 1 and hour <= 19 and rand (0,2) = 0:
  39. cla & *clr
  40. minut += 30
  41. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
  42. 'As the car leaves the city and goes off-road at some point, one of the more silent criminals feels the need to explain: "We have a little picnic planned for today. We know just the place... nice and quiet. You''ll be able to entertain us there without interruptions."'
  43. 'The way he says it sends a shiver down your spine.'
  44. 'Finally, a few minutes after the car has left the main roads, you stop somewhere. You have absolutely no idea where you are. The criminals get out of the car and Vadim does the same, telling you to get out and follow them.'
  45. act 'Get out of the car': gt'belpicknick'
  46. else
  47. cla & *clr
  48. minut += 5
  49. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  50. 'A few minutes later you arrive at an apartment block, it isn''t is great shape but Vadim leads you inside and up to a second floor apartment.'
  51. 'The apartment is actually in decent shape. The minimal amount of furniture and decorations don''t make it look very hospitable though, and you assume this might just be one of the places Vadim rented for business or pleasure, not for living in.'
  52. 'Noticing you''re spending too much time looking around and aren''t following him swiftly enough, he grabs you by your hair and pulls your face to his, roughly shoving his tongue in your mouth. You can smell the tobacco on his breath, and do your best to ignore the taste as he kisses you.'
  53. act 'Kiss him': gt 'BelSex', 'sex'
  54. end
  55. end
  56. elseif $ARGS[0] = 'payday':
  57. cla & *clr
  58. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  59. 'Vadim Bely steps out, along with several of his henchmen. He gives you a smile that you know is 100% fake and behaves amicably while he says: "Long time no see, <<$pcs_nickname>>! How are you? I hope you bear good news?"'
  60. *nl
  61. 'You owe him: <<belgangPay>> <b>₽</b>'
  62. if belgangPayWeek >= 0:
  63. 'This week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  64. else
  65. 'This week you need to pay him: 0 <b>₽</b>'
  66. 'You have reduced your next weeks payment by: <<-1*belgangPayWeek>> <b>₽</b>'
  67. end
  68. if money >= belgangPay:
  69. act 'Pay the remaining debt (<<belgangPay>> <b>₽</b>)': gt 'belgang', 'payremaining'
  70. elseif money >= belgangPayWeek and money < belgangPay and belgangPayWeek > 0:
  71. act 'Pay for this week (<<belgangPayWeek>> <b>₽</b>)':
  72. cla & *clr
  73. minut += 5
  74. money -= belgangPayWeek
  75. belgangPay -= belgangPayWeek
  76. belgangPayWeek = 0
  77. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belymoney.jpg"></center>'
  78. 'You hand over the payment for this week. "That''s it, everything for this week."'
  79. 'He takes a moment to count the money and nods approvingly. "Very good, it''s the full amount."'
  80. gs 'belgang', 'saunamention'
  81. act 'Continue':
  82. cla & *clr
  83. minut += 5
  84. belgangPayWeek += belgangPayWeekAmount
  85. if belgangPayWeek > belgangPay:
  86. belgangPayWeek = belgangPay
  87. end
  88. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  89. 'He gives you a fake smile. "See you next week, <<$pcs_nickname>>."'
  90. *nl
  91. 'You owe him: <<belgangPay>> <b>₽</b>'
  92. 'Next week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  93. act 'Move on': gt $loc
  94. end
  95. end
  96. elseif belgangPayWeek <= 0:
  97. cla & *clr
  98. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  99. if belfirstweek = 1:
  100. belfirstweek = 0
  101. 'Vadim Bely steps out, along with several of his henchmen. He gives you a smile that you know is 100% fake and behaves amicably while he says: "Long time no see, <<$pcs_nickname>>! Remember next Sunday you need to start paying us," he says.'
  102. else
  103. 'Vadim Bely steps out, along with several of his henchmen. He gives you a smile that you know is 100% fake and behaves amicably while he says: "Long time no see, <<$pcs_nickname>>! You are doing good. If you keep paying early, this will work out for the both of us," he says.'
  104. end
  105. gs 'belgang', 'saunamention'
  106. act 'Continue':
  107. cla & *clr
  108. minut += 5
  109. belgangPayWeek += belgangPayWeekAmount
  110. if belgangPayWeek > belgangPay:
  111. belgangPayWeek = belgangPay
  112. end
  113. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  114. 'He gives you a fake smile, gets back in his jeep and drives away.'
  115. *nl
  116. 'You owe him: <<belgangPay>> <b>₽</b>'
  117. 'Next week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  118. act 'Move on': gt $loc
  119. end
  120. else
  121. act 'You don''t have the money':
  122. cla & *clr
  123. minut += 5
  124. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  125. 'You''re tearing up as you look down at your shoes, not daring to look him in the eye. "I''m... I''m sorry, mister Bely. I simply don''t have the of money. If you give me some more time, I wi-"'
  126. if belgangPayextension = 0:
  127. belgangPayextension += 1
  128. belgangPay += 2000
  129. belgangPayWeek += 2000
  130. if belgangPayWeek > belgangPay:
  131. belgangPayWeek = belgangPay
  132. end
  133. 'He frowns, abruptly cutting you off. You can see the disapproval in his eyes when you glance up. "That is very unfortunate, <<$pcs_nickname>>," he says. "You can pay me next week, but I expect 2000 <b>₽</b> extra."'
  134. if belgangProstitute = 0:
  135. belgangProstitute = 1
  136. '"And don''t worry, <<$pcs_nickname>>. I''ll give you some opportunities to help you pay your debts," he says with a dangerous smile.'
  137. end
  138. gs 'belgang', 'saunamention'
  139. *nl
  140. 'You owe him: <<belgangPay>> <b>₽</b>'
  141. 'Next week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  142. act 'Move on': gt $loc
  143. elseif belgangPayextension = 1:
  144. belgangPayextension += 1
  145. belgangPay += 5000
  146. belgangPayWeek += 5000
  147. if belgangPayWeek > belgangPay:
  148. belgangPayWeek = belgangPay
  149. end
  150. 'He frowns, abruptly cutting you off. You can see the disapproval in his eyes when you glance up. "That is the last time, <<$pcs_nickname>>," he says. "You can pay me next week, but I expect 5000 <b>₽</b> extra.'
  151. gs 'belgang', 'saunamention'
  152. *nl
  153. 'You owe him: <<belgangPay>> <b>₽</b>'
  154. 'Next week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
  155. act 'Move on': gt $loc
  156. else
  157. 'He frowns, abruptly cutting you off. You can see the disapproval in his eyes when you glance up. "That is very unfortunate <<$pcs_nickname>>. I had such high hopes for you," he says. "I guess we will have to find an alternative way for you to pay off your debts."'
  158. 'He then directs his attention to two of his henchmen: "She''s coming with us."'
  159. 'Too scared to resist, you simply let the two men grab you by your arms and pull you into the Mitsubishi. Vadim gets back behind the wheel and within minutes you''ve left Pavlovsk. You notice you''re being taken to the city, and you wonder what they''re planning for you there.'
  160. act 'In the city...':
  161. cla & *clr
  162. minut+=60
  163. workDolg = belgangPay
  164. workDolg -= money
  165. money = 0
  166. belgangPayWeek = 0
  167. belgangPayWeekAmount = 0
  168. belgangPay = 0
  169. belgangProstitute = 0
  170. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/Strela/vadimbely.jpg"></center>'
  171. 'The car pulls over in front of the sauna. After one of the criminals makes sure the coast is clear, two of the men pull you out of the car and escort you to a room inside the building. Vadim follows them and asks to be left alone with you for a minute. After the other guys leave the room, he explains: "Until you pay off your debts, we own you. You will live here and work here. Any expenses you incur while you are here will be added to your debt. Understood?"'
  172. 'Silence fills the room as he waits for you to acknowledge what he just said. Mortified about what might happen if you don''t, you nod. He decides to paint the picture anyway: "If you try to escape or refuse to work, we''ll put a bullet in your head, chop you up and bury you in the woods in pieces. And that would be a waste, with such a pretty face as yours." He pinches your cheeks and then slaps your face; not hard enough to be painful, but it certainly drives the message home. You can tell he''s dead serious.'
  173. 'After looking you in the eyes for a few more seconds to make sure you get the message, he turns around and leaves. You are all alone now.'
  174. act 'Look around': gt 'city_sauna', 'saunaroom'
  175. end
  176. end
  177. end
  178. end
  179. end
  180. if $ARGS[0] = 'payremaining':
  181. cla & *clr
  182. minut += 5
  183. money -= belgangPay
  184. belgangPay = 0
  185. belgangPayWeek = 0
  186. belgangPayWeekAmount = 0
  187. belgangProstitute = 0
  188. npc_QW['A113'] = 2
  189. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belymoney.jpg"></center>'
  190. 'No, today you won''t work for him, you will never work for him again, today you will finally be free. "Here is everything. May debts are payed." You hand it over to Vadim while his henchmen keep a lookout. Once again, he gives you an awkward smile, very pleased how things have turned out. "It''s all there, right? I would hate to have to come back for the rest."'
  191. 'You nod at him, reassuring him. "It''s all there, mister Bely. Count it if you don''t believe me."'
  192. 'He takes a moment to count the money and nods approvingly. "Very good, it''s the full amount. Pleasure doing business with you, <<$pcs_nickname>>. Take care of yourself."'
  193. gs 'belgang', 'saunamention'
  194. 'He signals his crew to get back in the jeep. You barely manage to dodge the spray of pebbles and dirt the spinning tires spew your way, as they drive off as fast as they can, probably on their way to another ''business appointment''.'
  195. act 'Move on': gt $loc
  196. end
  197. if $ARGS[0] = 'saunamention':
  198. if slutty >= 20 and SaunaWhore = 0:
  199. SaunaWhore = 1
  200. '"Since you were such an obedient whore, <<$pcs_nickname>>, I''ll give you a small parting gift. If you ever need money, go to the sauna in the city and tell them Mr. Bely sent you. You will have plenty of opportunities to use your ''talents'' there."'
  201. elseif slutty >= 10 and SaunaWhore = 0:
  202. SaunaWhore = 1
  203. '"If you ever need money, go to the sauna in the city and tell them Mr. Bely sends you. There you will have plenty of opportunities to use your ''talents''."'
  204. end
  205. end
  206. --- belgang ---------------------------------