office.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376
  1. # office
  2. !!NPC list
  3. !!Janina Vishnyovsky - fellow secretary
  4. !!Natalia Torbica - female exc, head of HR
  5. !!Ignatiy Solodnikov - old man, CEO
  6. !!Isaak Solodnikov - floor boss, son of CEO
  7. !!Valerian Perezhogin - boy secretary
  8. !!Kolina Wilenken - shemale secretary
  9. !!Gorzyslawa Rybakov - older secretary
  10. if $ARGS[0] = 'start':
  11. *clr & cla
  12. CLOSE ALL
  13. $location_type = 'event'
  14. $sexloc = 'office'
  15. $menu_loc = 'office'
  16. $menu_arg = 'start'
  17. menu_off = 0
  18. minut += 5
  19. gs 'stat'
  20. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  21. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  22. if workSec = 1:
  23. 'You walk into the building, you give a wave to the receptionist, who smiles back to you as you head for for the elevators.'
  24. act 'Go to your floor': gt 'office', 'work_floor'
  25. act 'Leave': minut += 5 & gt 'city_center'
  26. elseif jobsec = 1:
  27. 'You enter the office building of Titran-Express Engineering, the lobby is very fancy. Black marble floors, the inner walls look to be made out of white marble with lots of gold colored trim. Near the doors is a desk with a reception area, off to the side is several couches. A corridor leads off the entrance to a long row of elevators. As you look around you see the receptionist is looking at you, likely wondering why you are here. You walk over to her and say. "Hello I am here for a interview with Mrs Torbica."'
  28. 'She smiles to you. I assume you have your secretary certification?"'
  29. if secrDiplom = 1:
  30. act 'Yes':
  31. *clr & cla
  32. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  33. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  34. 'You nod your head yes. "Yes I do."'
  35. '"Excellent." She says before she looks down at her screen a moment, then back to you and smiles. "Let me call her." Then she picks up the phone and makes a call. "Excuse me ma''am, a young lady is here looking to get a interview with you." A brief pause while she listens to the reply. "Of course ma''am." Then she hangs up and looks back to you. Please go down the corridor to the elevators and take it up to the twenty third floor, then make a right. Go to the end of the hall and a left, then go to the corner office and they will get you sorted. Have a nice day."'
  36. act 'Go to the interview': gt 'office', 'interview'
  37. act 'Leave': minut += 5 & gt 'city_center'
  38. end
  39. else
  40. act 'No':
  41. *clr & cla
  42. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  43. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  44. 'You shake your head no. "No do I need one?"'
  45. 'She keeps up the pleasent smile. "Yes I am afraid you do, you can''t interview for the job with out one."'
  46. 'You frown a little, you was hoping to get this job. "Oh I see. Thank you."'
  47. 'She smiles. "My pleasure and if you ever get your certification, please feel free to come back and apply then. Have a nice day."'
  48. act 'Leave': minut += 5 & gt 'city_center'
  49. end
  50. end
  51. else
  52. 'You enter the office building of Titran-Express Engineering, the lobby is very fancy. Black marble floors, the inner walls look to be made out of white marble with lots of gold colored trim. Near the doors is a desk with a reception area, off to the side is several couches. A corridor leads off the entrance to a long row of elevators. As you look around you see the receptionist is looking at you, likely wondering why you are here. Perhaps you should see if they have a job, a large office building likely this likely has lots of secretaries, maybe they have a opening. You walk over and ask her. "Would there be a job opening for a secretary?"'
  53. 'She smiles to you. I assume you have your secretary certification?"'
  54. if secrDiplom = 1:
  55. act 'Yes':
  56. *clr & cla
  57. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  58. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  59. 'You nod your head yes. "Yes I do."'
  60. '"Excellent." She looks down at her screen a moment, then back to you and smiles. "Yes there is, Mrs Torbica is doing interview for the position. Let me call her and see if she has time to see you." Then she picks up the phone and makes a call. "Excuse me ma''am, a young lady is here looking to get a interview with you." A brief pause while she listens to the reply. "Of course ma''am." Then she hangs up and looks back to you. Please go down the corridor to the elevators and take it up to the twenty third floor, then make a right. Go to the end of the hall and a left, then go to the corner office and they will get you sorted. Have a nice day."'
  61. act 'Go to the interview': gt 'office', 'interview'
  62. act 'Leave': minut += 5 & gt 'city_center'
  63. end
  64. else
  65. act 'No':
  66. *clr & cla
  67. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  68. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  69. 'You shake your head no. "No do I need one?"'
  70. 'She keeps up the pleasent smile. "Yes I am afraid you do, you can''t interview for the job with out one."'
  71. 'You frown a little, you was hoping to get this job. "Oh I see. Thank you."'
  72. 'She smiles. "My pleasure and if you ever get your certification, please feel free to come back and apply then. Have a nice day."'
  73. act 'Leave': minut += 5 & gt 'city_center'
  74. end
  75. end
  76. end
  77. end
  78. if $ARGS[0] = 'work_floor':
  79. *clr & cla
  80. CLOSE ALL
  81. $location_type = 'event'
  82. $sexloc = 'office'
  83. $menu_loc = 'office'
  84. $menu_arg = 'work_floor'
  85. menu_off = 0
  86. if sound = 0 and hour >= 8 and hour < 17:PLAY 'sound/office.mp3',30 & PLAY 'sound/office2.mp3',30
  87. minut += 5
  88. gs 'stat'
  89. '<center><b><font color="maroon">Engineering company offices</font></b></center>'
  90. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
  91. 'This is the main hall for your work floor. It is nicely decorated and you can hear other people working in the office.'
  92. if workSec = 1:
  93. if hour >= 8 and hour < 17:
  94. if hour = 8:
  95. act 'Go to work':
  96. sek['atwork'] = daystart
  97. minut = 60 - minut
  98. gt 'office', 'secretary_office'
  99. end
  100. else
  101. 'You''re too late for work, so you''re told to take the day off.'
  102. end
  103. act 'Go to the breakroom':gt 'office', 'work_floor'
  104. act 'Go to restrooms':gt 'office', 'restrooms'
  105. end
  106. if sek['atwork'] = daystart and hour = 12:
  107. act 'Go back to work station':
  108. sekDay += 1
  109. if hour = 12: minut += 60 - minut
  110. gs 'stat'
  111. gt 'office', 'work'
  112. end
  113. end
  114. if $clothingworntype ! 'gm_office':
  115. 'You are not dressed according to the corporate dress code.'
  116. else
  117. if hour >= 8 and hour < 17:
  118. act 'Resign':
  119. *clr & cla
  120. menu_off = 1
  121. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
  122. 'You walk into Mrs Torbica''s office and tell her. "I am resigning."'
  123. '"Are you sure?" She asks obviously a little surprised you are quiting.'
  124. act 'Yes, I quit.':
  125. *clr & cla
  126. minut += 30
  127. work = 0
  128. workSec = 0
  129. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
  130. '"Yes I am sure." You tender your resignation and then leave.'
  131. act 'Leave': minut += 15 & gt 'city_center'
  132. end
  133. act 'Nevermind': gt 'office', 'work_floor'
  134. end
  135. end
  136. end
  137. end
  138. act 'Leave': minut += 5 & gt 'city_center'
  139. end
  140. if $ARGS[0] = 'secretary_office':
  141. CLOSE ALL
  142. *clr & cla
  143. $menu_loc = 'office'
  144. $menu_arg = 'secretary_office'
  145. menu_off = 0
  146. minut += 5
  147. if sound = 0 and hour >= 8 and hour < 17:PLAY 'sound/office.mp3',30 & PLAY 'sound/office2.mp3',30
  148. gs 'stat'
  149. if hour < 17:
  150. '<center><b><font color="maroon">corridor</font></b></center>'
  151. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/secoffice.jpg"></center>'
  152. 'This is rows of tables divided into small workstations. Most of the people here are young attractive women, with a few older still attracive women, and a couple of young attractive men. Many or the work stations are filled by your co-workers, most busy at what ever task they need to do. A few are relaxing between tasks. You walk over to your assigned work station and take a seat.'
  153. act 'Get to work':gt 'office', 'work'
  154. act 'Go to the corridor':gt 'office', 'work_floor'
  155. else
  156. '<center><b><font color="maroon">corridor</font></b></center>'
  157. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/secoffice_afterhours.jpg"></center>'
  158. 'The secretary office is empty, it seems everyone has gone home for the day.'
  159. act 'Leave work': minut += 5 & gt 'city_center'
  160. end
  161. end
  162. if $ARGS[0] = 'break_room':
  163. *clr & cla
  164. $loc_arg = 'break_room'
  165. $loc = 'office'
  166. $menu_loc = 'office'
  167. $menu_arg = 'break_room'
  168. menu_off = 0
  169. minut += 5
  170. gs 'stat'
  171. '<center><b><font color="maroon">Break Room</font></b></center>'
  172. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/breakroom.jpg"></center>'
  173. 'The room is neat and clean. Across from the door is a couch along one wall with a few comfortable chairs. With a large table in the middle of the room and along one wall is a set of cabinets, with a sink, some appliances and a fridge to store your lunch in, if you bring one.'
  174. dynamic $driwater
  175. if buterbrod > 0 and hour = 12:
  176. act 'eat brought lunch':
  177. *clr & cla
  178. minut += 20
  179. buterbrod = 0
  180. pcs_energy += 40
  181. cumspclnt = 2
  182. gs 'cum_cleanup'
  183. fat += 1
  184. gs 'stat'
  185. '<center><b><font color="maroon">Break Room</font></b></center>'
  186. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/breakroom.jpg"></center>'
  187. 'You get your lunch out of the fridge and warm it up in the microwave. After that you sit down to enjoy a pleasant lunch.'
  188. act 'Go to the corridor':gt 'office', 'work_floor'
  189. act 'Go back to work station':
  190. sekDay += 1
  191. if hour = 12: minut += 60 - minut
  192. gs 'stat'
  193. gt 'office', 'work'
  194. end
  195. end
  196. end
  197. act 'Go to the corridor':gt 'office', 'work_floor'
  198. end
  199. if $ARGS[0] = 'restrooms':
  200. killvar '$boy'
  201. $menu_loc = 'office'
  202. $menu_arg = 'restrooms'
  203. menu_off = 0
  204. gs 'stat'
  205. '<center><b><font color="maroon">Office Restrooms</font></b></center>'
  206. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/restrooms.jpg"></center>'
  207. 'You go to the restrooms at the end of the hall. There is a sign for the men''s and the women''s restroom.'
  208. act 'Go to the women''s restroom': gt 'office', 'womens_restrooms'
  209. gs 'willpower', 'action', 'self', 'medium'
  210. if will_cost <= pcs_willpwr:
  211. act 'Go to the men''s restroom (<<will_cost>> Willpower)':
  212. *clr & cla
  213. gs 'willpower', 'pay', 'self'
  214. gs 'stat'
  215. gt 'office', 'mens_restrooms'
  216. end
  217. else
  218. act 'Go to the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  219. end
  220. act 'Go to the corridor':gt 'office', 'work_floor'
  221. end
  222. if $ARGS[0] = 'womens_restrooms':
  223. killvar '$boy'
  224. $menu_loc = 'office'
  225. $menu_arg = 'restrooms'
  226. menu_off = 0
  227. gs 'stat'
  228. '<center><b><font color="maroon">Womens Restrooms</font></b></center>'
  229. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/womensbr.jpg"></center>'
  230. 'You enter the womens restroom, there is a couple of other women at the sink. One checking her makeup as they both talk for a moment. They give you a brief smile and then both exit leaving you alone in the restroom. The restroom is very clean and nice, it is one of the nicest if not the nicest restroom you have been in.'
  231. act 'Look in the mirror': gt 'mirror', 'start'
  232. dynamic $tampon
  233. dynamic $quickwash
  234. dynamic $basin
  235. dynamic $publicpan
  236. act 'Go to the corridor':gt 'office', 'work_floor'
  237. end
  238. if $ARGS[0] = 'mens_restrooms':
  239. killvar '$boy'
  240. $menu_loc = 'office'
  241. $menu_arg = 'restrooms'
  242. menu_off = 0
  243. gs 'stat'
  244. '<center><b><font color="maroon">Mens Restrooms</font></b></center>'
  245. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/mensbr.jpg"></center>'
  246. 'You gather your courage up and walk into the mens restroom. Inside you find it empty, you are not sure if you are happy or disappointed by that. The restroom is very clean and nice looking, you think it is the nicest mens room you have ever been in.'
  247. act 'Look in the mirror': gt 'mirror', 'start'
  248. dynamic $tampon
  249. dynamic $quickwash
  250. dynamic $basin
  251. dynamic $publicpan
  252. act 'Go to the corridor':gt 'office', 'work_floor'
  253. end
  254. if $ARGS[0] = 'work':
  255. *clr & cla
  256. killvar '$boy'
  257. $menu_loc = 'office'
  258. $menu_arg = 'work'
  259. menu_off = 0
  260. if sound = 0 and hour >= 8 and hour < 17:PLAY 'sound/office.mp3',30 & PLAY 'sound/office2.mp3',30
  261. gs 'stat'
  262. '<center><b><font color="maroon">Your workstation</font></b></center>'
  263. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work_station.jpg"></center>'
  264. 'Once seated at your work station you say hi to a few of your co-workers and then look at what work you need to get done today.'
  265. if (hour >= 8 and hour < 12) or (hour >= 13 and hour < 17):
  266. act 'Start working':
  267. if hour = 12: minut += 60 - minut + 240
  268. if hour = 8 or hour = 13: minut += 60 - minut + 180
  269. if hour = 9: minut += 60 - minut + 120
  270. *clr & cla
  271. if sound = 0 and hour >= 8 and hour < 17:PLAY 'sound/office.mp3',30 & PLAY 'sound/office2.mp3',30
  272. gs 'stat'
  273. work = rand(1,9)
  274. if temp = 1:
  275. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/answeringphone' + rand(1,3) + '.jpg"></center>'
  276. 'You spend most of your work period on the phone, either talking to clients or mangers about varies things.'
  277. gt 'office', 'secretary_office'
  278. elseif temp = 2:
  279. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/getbinders' + rand(1,2) + '.jpg"></center>'
  280. 'You spend most of your work period going to get several binders on varies projects and taking them from office to office while the mangers look over them until they send you to someone else or to finally replace the binders.'
  281. gt 'office', 'secretary_office'
  282. elseif temp = 3:
  283. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/getcoffee' + rand(1,2) + '.jpg"></center>'
  284. 'You spend most of your work period fetching coffee for the varies managers. A few make some inappropriate comments but you ignore them.'
  285. gt 'office', 'secretary_office'
  286. elseif temp = 4:
  287. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/getfiles' + rand(1,5) + '.jpg"></center>'
  288. 'You spend most of your work period getting files and taking them to different managers in different offices, or getting files from them and filing them away.'
  289. gt 'office', 'secretary_office'
  290. elseif temp = 5:
  291. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/helpcoworker1.jpg"></center>'
  292. 'You spend most of your work period helping a co-working on a large project she is having trouble with.'
  293. gt 'office', 'secretary_office'
  294. elseif temp = 6:
  295. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/makecopies' + rand(1,4) + '.jpg"></center>'
  296. 'You spend most of your work period in the copy room making copies of many documents, organizing them into binders and then putting them away.'
  297. gt 'office', 'secretary_office'
  298. elseif temp = 7:
  299. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/takenotes' + rand(1,2) + '.jpg"></center>'
  300. 'You spend most of your work period in a managers office taking notes as he brainstorms outloud his plans on a new project the company is about to start on soon.'
  301. gt 'office', 'secretary_office'
  302. elseif temp = 8:
  303. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/workatdesk' + rand(1,7) + '.jpg"></center>'
  304. 'You spend most of your work period at your desk working on your computer doing a variety of tasks.'
  305. gt 'office', 'secretary_office'
  306. else
  307. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/work/relax1.jpg"></center>'
  308. 'This work period has proven to be fairly relaxing, you have rarely been asked to do much of anything. You spend most of your time surfing the net on your computer, playing on your phone or working on your makeup.'
  309. gt 'office', 'secretary_office'
  310. end
  311. end
  312. end
  313. act 'Go to the corridor':gt 'office', 'work_floor'
  314. end
  315. if $ARGS[0] = 'interview':
  316. *clr & cla
  317. menu_off = 1
  318. minut += 15
  319. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/waiting_interview.jpg"></center>'
  320. 'You go to the elevators and follow the directions you was given. You pass by a break room many offices, some open others with their door closed. You also pass by a large open room with many work stations, most likely the secretaries room. When you arrive at HR, you are asked to take a seat. As you sit and wait to be called in for your interview you reflect on what you saw on your way here. A few things stand out to you, first the office is very nice, expensive looking furniture, new computers, it looks like the company is doing very well and like to reflect that. The second thing you notices is almost all of the managers in offices where men, ranging from their mid twenties to mid forties. The third thing you notices was almost all of the secretaries or personal assistances seemed to be women. You saw a couple of young men that might have been as well but you are not sure. The final thing you noticed was all the secretaries where either young and attractive or middle aged, yet still attractive for their age. Before you can ponder this more you are called into the office for you interview.'
  321. act 'Interview for a job':
  322. *clr & cla
  323. menu_off = 1
  324. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
  325. if hotcat >= 6 and $clothingworntype = 'gm_office':
  326. 'As you walk in she looks you over and gives you a pleasant smile. "Please take a seat so we can get started."'
  327. 'She spends the next several minutes reading your resume and looking over your certification. Once she finishes that she talks to you and asks you a lot of questions. That is followed by a quiz you have to fill out, it seems to mostly be a morality test. Once you have finally finished it all, you glance up at the clock and notice that a hour has passed.'
  328. '"Congratulations, you are exactly what we are looking for at Titran-Express." She says with a pleasant smile.'
  329. 'You smile back. "That means I got the job?"'
  330. 'She laughs slightly. "You sure did if you want it, if so just come in on our next business day dressed appropriately and we can get you started. So what do you say?"'
  331. act 'Refuse':
  332. *clr & cla
  333. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
  334. 'You think about it a moment, some of the morality questions made you uncomfortable, perhaps this isn''t the job for you. "Um thank you but I am not sure this is a good fit."'
  335. 'She looks very surprised and her smile fades for a moment but then returns. "I understand if you change your mind, you are welcome to apply again." With that you get up and leave.'
  336. act 'leave': minut += 75 & gt 'office', 'start'
  337. end
  338. act 'Take the job':
  339. *clr & cla
  340. work = 1
  341. workSec = 1
  342. sekDay = 0
  343. minut += 60
  344. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
  345. '"Yes, I will take the job. Thank you very much." You tell her.'
  346. '"Excellent, here is a welcome packet. Make sure to come to work wearing the appropriate clothes, work starts at 9am, but it is ok to show up as early as 8am. It is not ok to leave before 5pm, other than to get lunch. If you leave work early you won''t be paid for the day." After a little more pleasantries you gather your stuff and leave.'
  347. act 'Leave': minut += 15 & gt 'city_center'
  348. end
  349. elseif hotcat >= 6 and $clothingworntype ! 'gm_office':
  350. 'As soon as you walk in the woman takes one look at you and frowns. "What are you wearing?"'
  351. 'You start to respond that it is just your clothes, not sure what she meant by that, but before you can respond she keeps talking. "That is not appropriate attire, I am afraid I can''t offer you the job dressed like that. If you acquire the appropriate attire, feel free to come back later for a interview. For now though I have no positions open for you. If you don''t mind I am rather busy." She says indication the door, crestfallen and knowing there is nothing you can say you turn to leave, you should have really wore a womans suit.'
  352. act 'Leave': minut += 15 & gt 'office', 'start'
  353. elseif hotcat <= 5 and $clothingworntype = 'gm_office':
  354. 'As soon as you walk in the woman takes one look at you and frowns. "I am afraid you are just not what we are looking for, you are dressed the part at least."'
  355. 'You start to respond to ask just what she means you don''t look the part, but before you can respond she keeps talking. "I am afraid I can''t offer you the job. Perhaps you should put more effort in how you look, our employees represent us and we only hire the best. If you don''t mind I am rather busy." She says indication the door, is she really saying she isn''t going to hire you because you are not pretty enough? You feel angry that you are being judge on your looks and not how well you could do the job, but you know it is pointless to try and argue, so you get up and leave.'
  356. act 'Leave': minut += 15 & gt 'city_center'
  357. else
  358. 'As soon as you walk in the woman takes one look at you and frowns. "What are you wearing?"'
  359. 'You start to respond that it is just your clothes, not sure what she meant by that, but before you can respond she keeps talking. "It doesn''t matter. That is not appropriate attire, I am afraid I can''t offer you the job looking like that. Perhaps you should put more effort in how you look, our employees represent us and we only hire the best. If you don''t mind I am rather busy." She says indication the door, crestfallen and knowing there is nothing you can say you turn to leave, you should have really wore a womans suit.'
  360. act 'Leave': minut += 15 & gt 'city_center'
  361. end
  362. end
  363. end
  364. --- office ---------------------------------