1
0

postoffice 11 KB

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