1
0

post_office.qsrc 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407
  1. # post_office
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $menu_loc = 'post_office'
  5. $menu_arg = 'start'
  6. menu_off = 0
  7. gs 'stat'
  8. $postloc = ''
  9. act 'Leave':$postloc = 'leave' & gt 'post_office'
  10. if (hour >= 9 and hour <= 10) or (hour >= 15 and hour <=16):
  11. '<center><b><font color="maroon">Post Office</font></b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/city.jpg"></center>'
  13. 'It is currently very busy and looks like you''ll have to wait to get to the counter.'
  14. act 'Wait in line (30 Minutes)':
  15. cla
  16. minut += 30
  17. gs 'stat'
  18. $postloc = 'counter' & gt 'post_office'
  19. end
  20. if exhibitionist_lvl > 2:
  21. gs 'willpower', 'exhib', 'self', 'hard'
  22. if will_cost <= pcs_willpwr:
  23. act 'Flash both your tits and your pussy to skip the line (<<will_cost>> Willpower)':
  24. *clr & cla
  25. gs 'willpower', 'exhib', 'self', 'hard'
  26. gs 'willpower', 'pay', 'self'
  27. menu_off = 1
  28. gs 'flash', 'full', 'inside', 1
  29. gs 'stat'
  30. act 'Go to the counter':$postloc = 'counter' & gt 'post_office'
  31. end
  32. else
  33. act 'Flash both your tits and your pussy to skip the line (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  34. end
  35. end
  36. if exhibitionist_lvl > 1:
  37. gs 'willpower', 'exhib', 'self'
  38. if will_cost <= pcs_willpwr:
  39. act 'Flash your pussy to skip the line (<<will_cost>> Willpower)':
  40. *clr & cla
  41. gs 'willpower', 'exhib', 'self'
  42. gs 'willpower', 'pay', 'self'
  43. menu_off = 1
  44. gs 'flash', 'pussy', 'inside', 1
  45. gs 'stat'
  46. act 'Go to the counter':$postloc = 'counter' & gt 'post_office'
  47. end
  48. else
  49. act 'Flash your pussy to skip the line (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  50. end
  51. end
  52. if exhibitionist_lvl > 0 or pcs_inhib >= 45:
  53. gs 'willpower', 'exhib', 'self', 'easy'
  54. if will_cost <= pcs_willpwr:
  55. act 'Flash your tits to skip the line (<<will_cost>> Willpower)':
  56. *clr & cla
  57. gs 'willpower', 'exhib', 'self', 'easy'
  58. gs 'willpower', 'pay', 'self'
  59. menu_off = 1
  60. gs 'flash', 'tits', 'inside', 1
  61. gs 'stat'
  62. act 'Go to the counter':$postloc = 'counter' & gt 'post_office'
  63. end
  64. else
  65. act 'Flash your tits to skip the line (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  66. end
  67. end
  68. if exhibitionist_lvl > 0:
  69. gs 'willpower', 'bj', 'self'
  70. if will_cost <= pcs_willpwr:
  71. act 'Suggest a blowjob in exchange for jumping the queue (<<will_cost>> Willpower)':
  72. *clr & cla
  73. gs 'willpower', 'bj', 'self'
  74. gs 'willpower', 'pay', 'self'
  75. menu_off = 1
  76. if cumloc[11] = 0:
  77. gs 'npcgeneratec', 0, 'stranger', rand(18,45)
  78. gs 'boyStat', $npclastgenerated
  79. inhib_exp += rand(2,5)
  80. gs 'arousal', 'bj', 10, 'sub'
  81. gs 'stat'
  82. act 'Cum on your face':
  83. *clr & cla
  84. if pcs_haircol = 0:
  85. $cum_face_image = 'black/' + rand(1,23)
  86. elseif pcs_haircol = 1:
  87. $cum_face_image = 'brown/' + rand(1,31)
  88. elseif pcs_haircol = 2:
  89. $cum_face_image = 'red/' + rand(1,19)
  90. elseif pcs_haircol = 3:
  91. $cum_face_image = 'blonde/' + rand(1,25)
  92. else
  93. $cum_face_image = 'custom/' + rand(1,20)
  94. end
  95. '<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/<<$cum_face_image>>.jpg"></center>'
  96. 'The man cums on your face.'
  97. spafinloc = 11
  98. gs 'cum_manage'
  99. gs 'arousal', 'end'
  100. gs 'stat'
  101. act 'Go to the counter':$postloc = 'counter' & gt 'post_office'
  102. end
  103. act 'Cum in your mouth':
  104. *clr & cla
  105. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/sex/cumlip.jpg"></center>'
  106. 'The man cums inside your mouth.'
  107. spafinloc = 12
  108. gs 'cum_manage'
  109. gs 'arousal', 'end'
  110. gs 'stat'
  111. act 'Go to the counter':$postloc = 'counter' & gt 'post_office'
  112. end
  113. else
  114. '<center><video autoplay loop src="images/locations/shared/postoffice/punch.mp4"></video></center>'
  115. 'The Man punches you in the gut and says, <font color="#0D42C0">"Go away bitch, your face is covered in sperm."</font> You stagger away from the postoffice and spend 2 hours curled up like a ball.'
  116. minut += 120
  117. gs 'pain', 4, 'tummy', 'hit'
  118. act 'Recover':
  119. if bankloc = 1:
  120. gt 'city_center'
  121. else
  122. gt 'pav_commercial'
  123. end
  124. end
  125. end
  126. end
  127. else
  128. act 'Suggest a blowjob in exchange for jumping the queue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  129. end
  130. end
  131. else
  132. '<center><b><font color="maroon">Post Office</font></b></center>'
  133. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/city.jpg"></center>'
  134. 'It is currently quiet and you can walk straight up to the counter.'
  135. act 'Go to the counter':
  136. $postloc = 'counter' & gt 'post_office'
  137. end
  138. end
  139. if bankloc = 0: act 'Go to Postmaster''s Office': gt 'post_master', 'start'
  140. end
  141. if $postloc = 'counter':
  142. cla
  143. *clr
  144. $menu_loc = 'post_office'
  145. $menu_arg = 'counter'
  146. menu_off = 0
  147. '<center><b><font color="maroon">Counter</font></b></center>'
  148. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/counter.jpg"></center>'
  149. 'The counter, it''s boring here.'
  150. act 'Leave':$postloc = 'leave' & gt 'post_office'
  151. if bankAccount = 1 and money > 0:
  152. act 'Deposit money to your bank account':
  153. cla
  154. menu_off = 1
  155. minut += 5
  156. gs 'stat'
  157. kartaIN = input ("How much money do you want to deposit into the account?")
  158. if kartaIN <= 0 or kartaIN > money:
  159. 'Not correct operation.'
  160. else
  161. karta += kartaIN
  162. money -= kartaIN
  163. '<br>You put on the account <<kartaIN>> <b>₽</b>, now you have <<karta>> <b>₽</b> on it.'
  164. end
  165. '"Is there anything else I can do for you?"'
  166. act 'Leave the post office':$postloc = 'leave' & gt 'post_office'
  167. act 'Yes':$postloc = 'counter' & gt 'post_office'
  168. end
  169. end
  170. if legal_fine > 0:
  171. act 'Pay toward legal fine':
  172. menu_off = 1
  173. gs 'stat'
  174. fineIN = input ("How much money do you want to pay off your fine/s?")
  175. if fineIN <= 0 or fineIN > money:
  176. 'Not correct operation.'
  177. else
  178. legal_fine -= fineIN
  179. money -= fineIN
  180. '<br>You pay <<fineIN>> <b>₽</b> of your legal fine/s, now you have <<legal_fine>> <b>₽</b> still outstanding.'
  181. end
  182. end
  183. if money > legal_fine:
  184. act 'Pay off your legal fine/s':
  185. money -= legal_fine
  186. legal_fine = 0
  187. *clr & cla
  188. menu_off = 1
  189. gs 'stat'
  190. '<center><b><font color="maroon">Counter</font></b></center>'
  191. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/counter.jpg"></center>'
  192. 'You pay the full amount of your outstanding fine/s to the cashier and they print out a receipt to say that it is paid off.'
  193. act 'Done':$postloc = 'counter' & gt 'post_office'
  194. end
  195. end
  196. end
  197. if used_pattest > 0:
  198. act 'Send paternity test (20.000 <b>₽</b>)':
  199. menu_off = 1
  200. if money >= 20000:
  201. dynamic $send_test
  202. *clr & cla
  203. gs 'stat'
  204. 'You pay the fee of the testing, then you mail your used paternity test to the testing labor in Saint Petersburg with the copy of your receipt of payment. You will get answer in SMS withing a week.'
  205. else
  206. 'Unfortunately you have no money to send the test in. You could, but they would just throw it out without the receipt of payment.'
  207. end
  208. act 'Done':$postloc = 'counter' & gt 'post_office'
  209. end
  210. end
  211. act 'Check received mail':
  212. *clr & cla
  213. menu_off = 1
  214. gs 'stat'
  215. minut += 5
  216. if mail <= 0:
  217. 'Sorry no mail.'
  218. else
  219. 'You have mail.'
  220. end
  221. '"Is there anything else I can do for you?"'
  222. act 'Yes':$postloc = 'counter' & gt 'post_office'
  223. act 'Leave the post office':$postloc = 'leave' & gt 'post_office'
  224. end
  225. i = 0
  226. *pl '<center><table align="center">'
  227. :loopcard
  228. if i = 0:
  229. n = 5
  230. price = 60
  231. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''post_office''">buy ','>buy ') +'</a>'
  232. elseif i = 1:
  233. n = 10
  234. price = 115
  235. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''post_office''">buy ','>buy ') +'</a>'
  236. elseif i = 2:
  237. n = 20
  238. price = 220
  239. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''post_office''">buy ','>buy ') +'</a>'
  240. elseif i = 3:
  241. n = 50
  242. price = 520
  243. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''post_office''">buy ','>buy ') +'</a>'
  244. end
  245. i += 1
  246. '<tr><td align="center"><<n>> hour internet card </td><td align="right">(you have <<internet>> hours of internet access) </td><td align="right"><<$buy_link>> </td><td align="left">for <<price>> <b>₽</b></td></tr>'
  247. if i < 4: jump 'loopcard'
  248. '</table></center>'
  249. if money > 0:
  250. act 'Put the money on the phone':
  251. cla
  252. menu_off = 1
  253. set minut = minut + 5
  254. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  255. if obmennik <= 0:
  256. '<center><br><b>Do you want to think again?</b></center>'
  257. act 'Return':$postloc = 'counter' & gt 'post_office'
  258. else
  259. if money < obmennik:
  260. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  261. act 'Return':$postloc = 'counter' & gt 'post_office'
  262. end
  263. if money >= obmennik:
  264. set balans = balans + obmennik
  265. set money = money - obmennik
  266. clr
  267. gs'stat'
  268. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  269. '"Is there anything else I can do for you?"'
  270. act 'Yes':$postloc = 'counter' & gt 'post_office'
  271. act 'Leave the post office':$postloc = 'leave' & gt 'post_office'
  272. end
  273. end
  274. end
  275. end
  276. !!Might use for the city branch, but seems ott for Pav
  277. !! if askWork = 0 and bankloc = 0:
  278. !! act 'Ask for work':
  279. !! *clr & cla
  280. !! minut += 5
  281. !! gs 'stat'
  282. !! 'You approach the counter and ask the girl at the counter: "Excuse me... I hear you are looking for postal workers? I would like to come work as a one."'
  283. !!'She nods understandingly: "We are looking for new workers, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Oleg Koltsov, the postmaster. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
  284. !! '"I''m afraid there is no position available at this time."'
  285. !! act 'Step away from the counter':gt'post_office', 'start'
  286. !!askWork += 1
  287. !! end
  288. !! end
  289. end
  290. if $postloc = 'leave':
  291. minut += 3
  292. killvar '$postloc'
  293. if bankloc = 1:
  294. gt 'city_center'
  295. else
  296. gt 'pav_commercial'
  297. end
  298. end
  299. !! Not used for Pav, maybe use for city?
  300. if $postloc = 'post_off':
  301. *clr & cla
  302. menu_off = 1
  303. minut += 30
  304. gs 'stat'
  305. '<center><b><font color="maroon">Postmaster Office</font></b></center>'
  306. !!Blatte: MISSING IMAGE
  307. $ImageNeededPlacholder
  308. !!'<center><img src="images/system/image_needed.png"></center>'
  309. 'Behind his desk, a man of about 50 is busy with some paperwork. He''s dressed quite sharply, and you had never expected the postmaster would be this good looking.'
  310. act 'Exit office':gt'post_office', 'start'
  311. if post_wrk = 0:
  312. act 'Ask for work':
  313. *clr & cla
  314. minut += 15
  315. gs 'stat'
  316. !!Placeholder text
  317. 'You approach the man''s desk, but he doesn''t look up from his work. With a soft voice you carefully try to get his attention: "Umm... excuse me?"'
  318. 'He looks up from his desk: "Oh I''m sorry, I didn''t hear you come in. Hello, I''m Oleg Koltsov, postmaster at this post office. Is there a problem?"'
  319. 'You smile and shake your head: "No, no problem. I am looking for a job, I hear you are often looking for workers?"'
  320. 'You can feel his eyes exploring your body for a moment before he responds: "Yes, we are! We currently only have a part-time vacancy, for sorting the mail. You would be working between these and these hours, give or take. Does that sound good to you?"'
  321. act'"Sorry, not interested"':
  322. *clr & cla
  323. gs 'stat'
  324. '"I need to think about it if it''s okay."'
  325. '"Sure <<$pcs_nickname>>, come back when you''ve made up your mind."'
  326. act'Exit office':gt'post_office', 'start'
  327. end
  328. act'"That sounds great!"':
  329. *clr & cla
  330. post_wrk += 1
  331. gs 'stat'
  332. !!Placeholder text
  333. 'You beam: "That sounds fantastic, thank you so much!"'
  334. 'Oleg gives you a friendly smile, happy to have found another potential worker. He quickly writes some of your personal data down.'
  335. 'Oleg continues: "If you want to work a shift, you need to be here between this time. There''s no point in you getting changed for just 20 minutes of work."'
  336. 'That also sounds fair. You give him a handshake as you get ready to leave: "Okay. Thank you sir!"'
  337. act'Exit Office':gt'post_office', 'start'
  338. end
  339. end
  340. end
  341. end
  342. --- post_office ---------------------------------