1
0

WorkHosp.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395
  1. # WorkHosp
  2. if $ARGS[0] = 'start':
  3. $loc_arg = 'start'
  4. $loc = 'WorkHosp'
  5. $sexloc = 'WorkHosp'
  6. $location_type = 'event'
  7. $menu_loc = 'WorkHosp'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. gs 'stat'
  11. '<center><b><font color="maroon">Clinic</font></b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  13. 'The hospital staff are hard at work, with many patients waiting in the lobbies. Doctors and nurses rush from office to office trying to keep the flow of patients going as quickly as possible.'
  14. jobhosprand = rand(0, 9)
  15. act 'Work in the operating room (1:00)':
  16. cla
  17. minut += 60
  18. medcn_exp += rand (0,2)
  19. if jobhosprand = 0:gt 'WorkHosp', '2'
  20. 'You work as part of the operating team, helping the doctors with whatever tasks they request of you.'
  21. act 'Move away':gt 'WorkHosp', 'start'
  22. end
  23. act 'Help the doctors in the emergency room (1:00)':
  24. cla
  25. minut += 60
  26. medcn_exp += rand (0,2)
  27. if jobhosprand = 0:gt 'WorkHosp', '3'
  28. 'You spend a frenzied hour helping patients that come into the emergency room.'
  29. act 'Move away':gt 'WorkHosp', 'start'
  30. end
  31. act 'Relax in the nurse station':
  32. cla
  33. minut += 30
  34. gs 'stat'
  35. 'You relax a little while pretending to be busy.'
  36. if pcs_inhib > 20:
  37. act 'Masturbate (0:15)':
  38. mastrrand = rand(0, 2)
  39. if mastrrand = 0:
  40. gt 'WorkHosp', '1'
  41. else
  42. *clr & cla
  43. picrand = 11
  44. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
  45. 'You begin to secretly masturbate whenever nobody is watching.'
  46. $orgasm_or = 'yes'
  47. $orgasm_txt = 'Gradually a pleasant warmth and sensation radiates from your needy sex, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
  48. gs 'arousal', 'clit_finger', 15, 'masturbate'
  49. gs 'stat'
  50. end
  51. act 'Leave':gt 'WorkHosp', 'start'
  52. end
  53. end
  54. act 'Move away':gt 'WorkHosp', 'start'
  55. end
  56. act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'
  57. act 'Chat with Kat':
  58. cla
  59. minut += 30
  60. kat += 1
  61. if npc_rel['A219'] > 60 and military = 0:gt 'WorkHosp', 'milit'
  62. 'You spend some time chatting with Kat.'
  63. if npc_rel['A219'] > 50:
  64. act 'Suggest going to an empty room together':gt 'WorkHosp', '0'
  65. end
  66. act 'Move away':gt 'WorkHosp', 'start'
  67. end
  68. if hour >= 16:
  69. cls
  70. '<center><b><font color="maroon">Clinic</font></b></center>'
  71. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  72. 'Your shift has ended.'
  73. act 'Go home':gt 'city_residential'
  74. end
  75. end
  76. if $ARGS[0] = 'milit':
  77. cla
  78. military = 1
  79. '"Listen, I am scheduled to work this weekend, but I have plans. Here''s the deal: war games are often held not far from the city and, well, according to the rules, they need doctors on site before they can begin. Don''t worry, you will have a doctor with you, so the most you''ll need to do is apply some bandages. If you feel up to it, on Saturday you can catch a bus at the clinic between 6 and 9. Oh yeah, I almost forgot! The pay for two days is 5000 <b>₽</b>. So what do you say?" asks Kat.'
  80. act 'Move away':gt 'WorkHosp', 'start'
  81. end
  82. if $ARGS[0] = '0':
  83. $location_type = 'event'
  84. cla & *clr
  85. katprorand = rand(0, 2)
  86. if katprorand = 0:
  87. girl += 1
  88. picrand = 11
  89. xgt 'lezbsex', 'var'
  90. elseif katprorand = 1:
  91. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex7.jpg"></center>'
  92. 'You and Kat have just begun to fondle each other when a patient enters the room. You back away from her, trying to pretend that nothing was happening. In contrast, Kat does not hesitate and lies down on the couch with her legs spread wide, proudly showing off her wet pussy. She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing, while looking hungrily at the guy and inviting him to join in the fun.'
  93. gs 'arousal', 'cuni_give', 10, 'lesbian'
  94. gs 'stat'
  95. act 'Leave':gt 'WorkHosp', 'start'
  96. act 'Sounds like fun':
  97. girl += 1
  98. guy += 1
  99. picrand = 12
  100. sexpartkno = 1
  101. gs 'npcgeneratec', 0, 'Patient', rand(18,48)
  102. gs 'boyStat', $npclastgenerated
  103. gt 'podrsex', 'suck'
  104. gs 'arousal', 'cuni_give', 10, 'lesbian'
  105. gs 'arousal', 'vaginal', 10, 'unknown'
  106. minut -= 10
  107. gs 'arousal', 'end'
  108. gs 'stat'
  109. end
  110. elseif katprorand = 2:
  111. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex8.jpg"></center>'
  112. 'While Kat and you are in full swing, two doctors enter the room. You are both so engrossed with each other that you don''t even notice them until they started to caress you. You both spread your legs wider, inviting them to join the fun.'
  113. act 'Entertain them':
  114. gang += 1
  115. picrand = 11
  116. sexpartkno = 1
  117. gs 'WorkHosp', 'randdoc'
  118. $boy[1] = $boy
  119. $boydesc[1] = $boydesc
  120. if docfuck[randdoc] = 1:guy += 1
  121. :docloop
  122. gs 'WorkHosp', 'randdoc'
  123. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop'
  124. if docfuck[randdoc] = 1:guy += 1
  125. gs 'arousal', 'bj', 10, 'group'
  126. gs 'arousal', 'vaginal', 10, 'group'
  127. minut -= 10
  128. gs 'arousal', 'end'
  129. gs 'stat'
  130. xgt 'sexdvanadva', 'var'
  131. end
  132. end
  133. end
  134. if $ARGS[0] = '1':
  135. cla & *clr
  136. mastrrand = rand(0, 1)
  137. if mastrrand = 0:
  138. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex9.jpg"></center>'
  139. 'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room, but you are so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
  140. gs 'arousal', 'clit_finger', 10, 'masturbate'
  141. gs 'stat'
  142. gs 'willpower', 'sex', 'resist'
  143. if will_cost <= pcs_willpwr:
  144. act 'Break and run (<<will_cost>> Willpower)':
  145. gs 'arousal', 'end'
  146. gs 'willpower', 'pay', 'resist'
  147. gt 'WorkHosp', 'start'
  148. end
  149. else
  150. act 'Break and run (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  151. end
  152. act 'Go along with it':
  153. guy += 1
  154. picrand = 12
  155. gs 'WorkHosp', 'randdoc'
  156. if docfuck[randdoc] = 1:guy += 1
  157. gt 'sex', 'minet'
  158. end
  159. else
  160. picrand = rand(12, 13)
  161. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex10.jpg"></center>'
  162. 'As you lose yourself in pleasure, two doctors come into the room. You are so distracted that you only notice them when they start to openly masturbate in front of you.'
  163. gs 'arousal', 'clit_finger', 10, 'masturbate'
  164. gs 'stat'
  165. act 'Leave':
  166. gs 'arousal', 'end'
  167. gt 'WorkHosp', 'start'
  168. end
  169. gs 'willpower', 'sex', 'self'
  170. if will_cost <= pcs_willpwr:
  171. act 'Play with them (<<will_cost>> Willpower)':
  172. sexpartkno = 1
  173. gs 'WorkHosp', 'randdoc'
  174. $boy[1] = $boy
  175. $boydesc[1] = $boydesc
  176. if docfuck[randdoc] = 1:guy += 1
  177. :docloop2
  178. gs 'WorkHosp', 'randdoc'
  179. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop2'
  180. if docfuck[randdoc] = 1:guy += 1
  181. gs 'arousal', 'bj', 10, 'group'
  182. gs 'arousal', 'vaginal', 10, 'group'
  183. minut -= 10
  184. gs 'willpower', 'pay', 'self'
  185. gs 'arousal', 'end'
  186. gs 'stat'
  187. xgt 'sexdvoe', 'var'
  188. end
  189. else
  190. act 'Play with them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  191. end
  192. end
  193. end
  194. if $ARGS[0] = '2':
  195. *clr & cla
  196. picrand = rand(13, 15)
  197. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
  198. 'A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him, as he can''t seem to get an erection and it''s causing him depression. You realize that it''s all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.'
  199. act 'Oust him':
  200. medcn_exp += rand (0,1)
  201. gt 'WorkHosp', 'start'
  202. end
  203. gs 'willpower', 'sex', 'self'
  204. if will_cost <= pcs_willpwr:
  205. act 'Give him what he wants (<<will_cost>> Willpower)':
  206. guy += 1
  207. gs 'willpower', 'pay', 'self'
  208. gt 'sex', 'minet'
  209. end
  210. else
  211. act 'Give him what he wants (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  212. end
  213. end
  214. if $ARGS[0] = '3':
  215. *clr & cla
  216. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
  217. 'A pretty patient comes into the room, and the doctor tries to examine her. Then she touches his trousers near his poorly hidden erection. The doctor glances at you with a question in his eyes.'
  218. act 'Ask if she actually needs treatment':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
  219. gs 'willpower', 'sex', 'self'
  220. if will_cost <= pcs_willpwr:
  221. act 'Play along (<<will_cost>> Willpower)':
  222. guy += 1
  223. girl += 1
  224. lesbian += 1
  225. picrand = 13
  226. sexpartkno = 1
  227. gs 'WorkHosp', 'randdoc'
  228. if docfuck[randdoc] = 1:guy += 1
  229. gt 'podrsex', 'suck'
  230. gs 'arousal', 'cuni_give', 10, 'group'
  231. gs 'arousal', 'vaginal', 10, 'group'
  232. minut -= 10
  233. gs 'willpower', 'pay', 'self'
  234. gs 'arousal', 'end'
  235. gs 'stat'
  236. end
  237. else
  238. act 'Play along (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  239. end
  240. end
  241. if $ARGS[0] = 'randdoc':
  242. if $randdoc[0] = '':
  243. randdoc = rand(0,19)
  244. if randdoc = 0:
  245. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  246. $npc_usedname[$npclastgenerated] = 'Dr. Ivanov'
  247. $npc_lastname[$npclastgenerated] = 'Ivanov'
  248. gs 'npcpreservec', $npclastgenerated
  249. elseif randdoc = 1:
  250. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  251. $npc_usedname[$npclastgenerated] = 'Dr. Smirnov'
  252. $npc_lastname[$npclastgenerated] = 'Smirnov'
  253. gs 'npcpreservec', $npclastgenerated
  254. elseif randdoc = 2:
  255. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  256. $npc_usedname[$npclastgenerated] = 'Dr. Kuznetsov'
  257. $npc_lastname[$npclastgenerated] = 'Kuznetsov'
  258. gs 'npcpreservec', $npclastgenerated
  259. elseif randdoc = 3:
  260. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  261. $npc_usedname[$npclastgenerated] = 'Dr. Popov'
  262. $npc_lastname[$npclastgenerated] = 'Popov'
  263. gs 'npcpreservec', $npclastgenerated
  264. elseif randdoc = 4:
  265. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  266. $npc_usedname[$npclastgenerated] = 'Dr. Vasiliev'
  267. $npc_lastname[$npclastgenerated] = 'Vasiliev'
  268. gs 'npcpreservec', $npclastgenerated
  269. elseif randdoc = 5:
  270. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  271. $npc_usedname[$npclastgenerated] = 'Dr. Petrov'
  272. $npc_lastname[$npclastgenerated] = 'Petrov'
  273. gs 'npcpreservec', $npclastgenerated
  274. elseif randdoc = 6:
  275. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  276. $npc_usedname[$npclastgenerated] = 'Dr. Sokolov'
  277. $npc_lastname[$npclastgenerated] = 'Sokolov'
  278. gs 'npcpreservec', $npclastgenerated
  279. elseif randdoc = 7:
  280. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  281. $npc_usedname[$npclastgenerated] = 'Dr. Mikhailov'
  282. $npc_lastname[$npclastgenerated] = 'Mikhailov'
  283. gs 'npcpreservec', $npclastgenerated
  284. elseif randdoc = 8:
  285. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  286. $npc_usedname[$npclastgenerated] = 'Dr. Fedorov'
  287. $npc_lastname[$npclastgenerated] = 'Fedorov'
  288. gs 'npcpreservec', $npclastgenerated
  289. elseif randdoc = 9:
  290. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  291. $npc_usedname[$npclastgenerated] = 'Dr. Morozov'
  292. $npc_lastname[$npclastgenerated] = 'Morozov'
  293. gs 'npcpreservec', $npclastgenerated
  294. elseif randdoc = 10:
  295. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  296. $npc_usedname[$npclastgenerated] = 'Dr. Volkov'
  297. $npc_lastname[$npclastgenerated] = 'Volkov'
  298. gs 'npcpreservec', $npclastgenerated
  299. elseif randdoc = 11:
  300. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  301. $npc_usedname[$npclastgenerated] = 'Dr. Alexeev'
  302. $npc_lastname[$npclastgenerated] = 'Alexeev'
  303. gs 'npcpreservec', $npclastgenerated
  304. elseif randdoc = 12:
  305. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  306. $npc_usedname[$npclastgenerated] = 'Dr. Lebedev'
  307. $npc_lastname[$npclastgenerated] = 'Lebedev'
  308. gs 'npcpreservec', $npclastgenerated
  309. elseif randdoc = 13:
  310. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  311. $npc_usedname[$npclastgenerated] = 'Dr. Semenov'
  312. $npc_lastname[$npclastgenerated] = 'Semenov'
  313. gs 'npcpreservec', $npclastgenerated
  314. elseif randdoc = 14:
  315. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  316. $npc_usedname[$npclastgenerated] = 'Dr. Egerov'
  317. $npc_lastname[$npclastgenerated] = 'Egerov'
  318. gs 'npcpreservec', $npclastgenerated
  319. elseif randdoc = 15:
  320. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  321. $npc_usedname[$npclastgenerated] = 'Dr. Pavlov'
  322. $npc_lastname[$npclastgenerated] = 'Pavlov'
  323. gs 'npcpreservec', $npclastgenerated
  324. elseif randdoc = 16:
  325. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  326. $npc_usedname[$npclastgenerated] = 'Dr. Kozlov'
  327. $npc_lastname[$npclastgenerated] = 'Kozlov'
  328. gs 'npcpreservec', $npclastgenerated
  329. elseif randdoc = 17:
  330. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  331. $npc_usedname[$npclastgenerated] = 'Dr. Stepanov'
  332. $npc_lastname[$npclastgenerated] = 'Stepanov'
  333. gs 'npcpreservec', $npclastgenerated
  334. elseif randdoc = 18:
  335. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  336. $npc_usedname[$npclastgenerated] = 'Dr. Nikolaev'
  337. $npc_lastname[$npclastgenerated] = 'Nikolaev'
  338. gs 'npcpreservec', $npclastgenerated
  339. elseif randdoc = 19:
  340. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  341. $npc_usedname[$npclastgenerated] = 'Dr. Orlov'
  342. $npc_lastname[$npclastgenerated] = 'Orlov'
  343. gs 'npcpreservec', $npclastgenerated
  344. end
  345. end
  346. gs 'boyStat', $npclastsaved
  347. docfuck[randdoc] += 1
  348. end
  349. --- WorkHosp ---------------------------------