postoffice.qsrc 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380
  1. # postoffice
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $menu_loc = 'postoffice'
  5. $menu_arg = 'start'
  6. menu_off = 0
  7. gs 'stat'
  8. $postloc = ''
  9. act 'Leave':$postloc = 'leave' & gt 'postoffice'
  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 'postoffice'
  19. end
  20. if exhibitionist_lvl > 2:
  21. act 'Flash both your tits and your pussy to skip the line':
  22. *clr & cla
  23. menu_off = 1
  24. gs 'flash', 'full', 'inside', 5
  25. gs 'stat'
  26. act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
  27. end
  28. end
  29. if exhibitionist_lvl > 1:
  30. act 'Flash your pussy to skip the line':
  31. *clr & cla
  32. menu_off = 1
  33. gs 'flash', 'pussy', 'inside', 5
  34. gs 'stat'
  35. act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
  36. end
  37. end
  38. if exhibitionist_lvl > 0 or pcs_inhib >= 45:
  39. act 'Flash your tits to skip the line':
  40. *clr & cla
  41. menu_off = 1
  42. gs 'flash', 'tits', 'inside', 5
  43. gs 'stat'
  44. act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
  45. end
  46. end
  47. if exhibitionist_lvl > 0:
  48. act 'Suggest a blowjob in exchange for jumping the queue':
  49. *clr & cla
  50. menu_off = 1
  51. if cumloc[11] = 0:
  52. pcs_throat += 1
  53. gs 'npcgeneratec', 0, 'stranger', rand(18,45)
  54. gs 'boyStat', $npclastgenerated
  55. inhib_exp += rand(2,5)
  56. gs 'arousal', 'bj', 10, 'sub'
  57. gs 'stat'
  58. act 'Cum on your face':
  59. *clr & cla
  60. if pcs_haircol = 0:
  61. $cum_face_image = 'black/' + rand(1,23)
  62. elseif pcs_haircol = 1:
  63. $cum_face_image = 'brown/' + rand(1,31)
  64. elseif pcs_haircol = 2:
  65. $cum_face_image = 'red/' + rand(1,19)
  66. elseif pcs_haircol = 3:
  67. $cum_face_image = 'blonde/' + rand(1,25)
  68. else
  69. $cum_face_image = 'custom/' + rand(1,20)
  70. end
  71. '<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/<<$cum_face_image>>.jpg"></center>'
  72. 'The man cums on your face.'
  73. spafinloc = 11
  74. gs 'cum_manage'
  75. gs 'arousal', 'end'
  76. gs 'stat'
  77. act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
  78. end
  79. act 'Cum in your mouth':
  80. *clr & cla
  81. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/sex/cumlip.jpg"></center>'
  82. 'The man cums inside your mouth.'
  83. spafinloc = 12
  84. gs 'cum_manage'
  85. gs 'arousal', 'end'
  86. gs 'stat'
  87. act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
  88. end
  89. else
  90. '<center><video autoplay loop src="images/locations/shared/postoffice/punch.mp4"></video></center>'
  91. '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.'
  92. minut += 120
  93. gs 'pain', 4, 'tummy', 'hit'
  94. act 'Recover':
  95. if bankloc = 1:
  96. gt 'down'
  97. else
  98. gt 'pavCommercial'
  99. end
  100. end
  101. end
  102. end
  103. end
  104. else
  105. '<center><b><font color="maroon">Post Office</font></b></center>'
  106. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/city.jpg"></center>'
  107. 'It is currently quiet and you can walk straight up to the counter.'
  108. act 'Go to the counter':
  109. $postloc = 'counter' & gt 'postoffice'
  110. end
  111. end
  112. if bankloc = 0: act 'Go to Postmaster''s Office': gt 'postmaster', 'start'
  113. end
  114. if $postloc = 'counter':
  115. cla
  116. *clr
  117. $menu_loc = 'postoffice'
  118. $menu_arg = 'counter'
  119. menu_off = 0
  120. '<center><b><font color="maroon">Counter</font></b></center>'
  121. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/counter.jpg"></center>'
  122. 'The counter, its boring here.'
  123. act 'Leave':$postloc = 'leave' & gt 'postoffice'
  124. if bankAccount = 1 and money > 0:
  125. act 'Deposit money to your bank account':
  126. cla
  127. menu_off = 1
  128. minut += 5
  129. gs 'stat'
  130. kartaIN = input ("How much money do you want to deposit into the account?")
  131. if kartaIN <= 0 or kartaIN > money:
  132. 'Not correct operation.'
  133. else
  134. karta += kartaIN
  135. money -= kartaIN
  136. '<br>You put on the account <<kartaIN>> <b>₽</b>, now you have <<karta>> <b>₽</b> on it.'
  137. end
  138. '"Is there anything else I can do for you?"'
  139. act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
  140. act 'Yes':$postloc = 'counter' & gt 'postoffice'
  141. end
  142. end
  143. if legal_fine > 0:
  144. act 'Pay toward legal fine':
  145. menu_off = 1
  146. gs 'stat'
  147. fineIN = input ("How much money do you want to pay off your fine/s?")
  148. if fineIN <= 0 or fineIN > money:
  149. 'Not correct operation.'
  150. else
  151. legal_fine -= fineIN
  152. money -= fineIN
  153. '<br>You pay <<fineIN>> <b>₽</b> of your legal fine/s, now you have <<legal_fine>> <b>₽</b> still outstanding.'
  154. end
  155. end
  156. if money > legal_fine:
  157. act 'Pay off your legal fine/s':
  158. money -= legal_fine
  159. legal_fine = 0
  160. *clr & cla
  161. menu_off = 1
  162. gs 'stat'
  163. '<center><b><font color="maroon">Counter</font></b></center>'
  164. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/counter.jpg"></center>'
  165. '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.'
  166. act 'Done':$postloc = 'counter' & gt 'postoffice'
  167. end
  168. end
  169. end
  170. if used_pattest > 0:
  171. act 'Send paternity test (20.000 <b>₽</b>)':
  172. menu_off = 1
  173. if money >= 20000:
  174. dynamic $send_test
  175. *clr & cla
  176. gs 'stat'
  177. '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.'
  178. else
  179. 'Unfortunately you have no money to send the test in. You could, but they would just throw it out without the receipt of payment.'
  180. end
  181. act 'Done':$postloc = 'counter' & gt 'postoffice'
  182. end
  183. end
  184. act 'Check received mail':
  185. *clr & cla
  186. menu_off = 1
  187. gs 'stat'
  188. minut += 5
  189. if mail <= 0:
  190. 'Sorry no mail.'
  191. else
  192. 'You have mail.'
  193. end
  194. '"Is there anything else I can do for you?"'
  195. act 'Yes':$postloc = 'counter' & gt 'postoffice'
  196. act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
  197. end
  198. i = 0
  199. *pl '<center><table align="center">'
  200. :loopcard
  201. if i = 0:
  202. n = 5
  203. price = 60
  204. $buy_link = '<a' + iif(money >= 60, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
  205. elseif i = 1:
  206. n = 10
  207. price = 115
  208. $buy_link = '<a' + iif(money >= 115, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
  209. elseif i = 2:
  210. n = 20
  211. price = 220
  212. $buy_link = '<a' + iif(money >= 220, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
  213. elseif i = 3:
  214. n = 50
  215. price = 520
  216. $buy_link = '<a' + iif(money >= 520, ' href="exec: gs ''$buy_item'', <<n>>, ''hours of internet access'', <<price>>, ''internet'', ''postoffice''">buy ','>buy ') +'</a>'
  217. end
  218. i += 1
  219. '<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>'
  220. if i < 4: jump 'loopcard'
  221. '</table></center>'
  222. if money > 0:
  223. act 'Put the money on the phone':
  224. cla
  225. menu_off = 1
  226. set minut = minut + 5
  227. obmennik = input ("How many <b>₽</b> do you want to deposit?")
  228. if obmennik <= 0:
  229. '<center><br><b>Do you want to think again?</b></center>'
  230. act 'Return':$postloc = 'counter' & gt 'postoffice'
  231. else
  232. if money < obmennik:
  233. '<center><br>You do not have <b><<obmennik>></b> <b>₽</b>.</center>'
  234. act 'Return':$postloc = 'counter' & gt 'postoffice'
  235. end
  236. if money >= obmennik:
  237. set balans = balans + obmennik
  238. set money = money - obmennik
  239. clr
  240. gs'stat'
  241. '<center><br>You put <b><<obmennik>></b> <b>₽</b> to the account.</center>'
  242. '"Is there anything else I can do for you?"'
  243. act 'Yes':$postloc = 'counter' & gt 'postoffice'
  244. act 'Leave the post office':$postloc = 'leave' & gt 'postoffice'
  245. end
  246. end
  247. end
  248. end
  249. !!Might use for the city branch, but seems ott for Pav
  250. !! if askWork = 0 and bankloc = 0:
  251. !! act 'Ask for work':
  252. !! *clr & cla
  253. !! minut += 5
  254. !! gs 'stat'
  255. !! '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."'
  256. !!'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!"'
  257. !! '"I''m afraid there is no position available at this time."'
  258. !! act 'Step away from the counter':gt'postoffice', 'start'
  259. !!askWork += 1
  260. !! end
  261. !! end
  262. end
  263. if $postloc = 'leave':
  264. minut += 3
  265. killvar '$postloc'
  266. if bankloc = 1:
  267. gt 'down'
  268. else
  269. gt 'pavCommercial'
  270. end
  271. end
  272. !! Not used for Pav, maybe use for city?
  273. if $postloc = 'post_off':
  274. *clr & cla
  275. menu_off = 1
  276. minut += 30
  277. gs 'stat'
  278. '<center><b><font color="maroon">Postmaster Office</font></b></center>'
  279. !!Blatte: MISSING IMAGE
  280. $ImageNeededPlacholder
  281. !!'<center><img src="images/system/image_needed.png"></center>'
  282. '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.'
  283. act 'Exit office':gt'postoffice', 'start'
  284. if post_wrk = 0:
  285. act 'Ask for work':
  286. *clr & cla
  287. minut += 15
  288. gs 'stat'
  289. !!Placeholder text
  290. '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?"'
  291. '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?"'
  292. 'You smile and shake your head: "No, no problem. I am looking for a job, I hear you are often looking for workers?"'
  293. '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?"'
  294. act'"Sorry, not interested"':
  295. *clr & cla
  296. gs 'stat'
  297. '"I need to think about it if it''s okay."'
  298. '"Sure <<$pcs_nickname>>, come back when you''ve made up your mind."'
  299. act'Exit office':gt'postoffice', 'start'
  300. end
  301. act'"That sounds great!"':
  302. *clr & cla
  303. post_wrk += 1
  304. gs 'stat'
  305. !!Placeholder text
  306. 'You beam: "That sounds fantastic, thank you so much!"'
  307. 'Oleg gives you a friendly smile, happy to have found another potential worker. He quickly writes some of your personal data down.'
  308. '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."'
  309. 'That also sounds fair. You give him a handshake as you get ready to leave: "Okay. Thank you sir!"'
  310. act'Exit Office':gt'postoffice', 'start'
  311. end
  312. end
  313. end
  314. end
  315. --- postoffice ---------------------------------