WorkHosp.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359
  1. # WorkHosp
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'WorkHosp'
  5. $sexloc = 'WorkHosp'
  6. $location_type = 'event'
  7. gs 'stat'
  8. '<center><b><font color="maroon">Clinic</font></b></center>'
  9. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  10. '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.'
  11. jobhosprand = rand(0, 9)
  12. act 'Work in the Operating Room (1:00)':
  13. cla
  14. minut += 60
  15. medcn_exp += rand (0,2)
  16. if jobhosprand = 0:gt 'WorkHosp', '2'
  17. 'You were part of the operating team, helping the doctors with whatever tasks they requested of you.'
  18. act 'Move away':gt 'WorkHosp', 'start'
  19. end
  20. act 'Help the doctor at the Emergency Room (1:00)':
  21. cla
  22. minut += 60
  23. medcn_exp += rand (0,2)
  24. if jobhosprand = 0:gt 'WorkHosp', '3'
  25. 'You spent a frenzied hour helping patients that came into the Emergency room.'
  26. act 'Move away':gt 'WorkHosp', 'start'
  27. end
  28. act 'Relax in the nurse station':
  29. cla
  30. minut += 30
  31. gs 'stat'
  32. 'You relax a little while pretending to be busy.'
  33. act 'Masturbate (0:15)':
  34. mastrrand = rand(0, 2)
  35. if mastrrand = 0:
  36. gt 'WorkHosp', '1'
  37. else
  38. cla
  39. *clr
  40. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  41. picrand = 11
  42. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
  43. 'You begin to secretly masturbate whenever nobody is watching.'
  44. $orgasm_or = 'custom'
  45. $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.'
  46. gs 'arousal', 'masturbate', 15
  47. gs 'stat'
  48. end
  49. act 'Leave':gt 'WorkHosp', 'start'
  50. end
  51. act 'Move away':gt 'WorkHosp', 'start'
  52. end
  53. act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'
  54. act 'Chat with Kat':
  55. cla
  56. minut += 30
  57. kat += 1
  58. if npc_rel['A219'] > 60 and military = 0:gt 'WorkHosp', 'milit'
  59. 'You spent some time chatting with Kat.'
  60. if npc_rel['A219'] > 50:
  61. act 'Suggest going to an empty room together':gt 'WorkHosp', '0'
  62. end
  63. act 'Move away':gt 'WorkHosp', 'start'
  64. end
  65. if hour >= 16:
  66. cls
  67. '<center><b><font color="maroon">Clinic</font></b></center>'
  68. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  69. 'Your shift ended.'
  70. act 'Go home':gt 'street'
  71. end
  72. end
  73. if $ARGS[0] = 'milit':
  74. cla
  75. military = 1
  76. '"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."'
  77. act 'Move away':gt 'WorkHosp', 'start'
  78. end
  79. if $ARGS[0] = '0':
  80. $location_type = 'event'
  81. cla
  82. *clr
  83. katprorand = rand(0, 2)
  84. if katprorand = 0:
  85. girl += 1
  86. picrand = 11
  87. xgt 'lezbsex', 'var'
  88. elseif katprorand = 1:
  89. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex7.jpg"></center>'
  90. 'You and Kat just began to fondle each other when a patient entered the room. You backed away from her trying to pretend that nothing was happening. On the contrary, Kat did not hesitate and was lying 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.'
  91. gs 'arousal', 'cuni_give', 10, 'lesbian'
  92. gs 'stat'
  93. act 'Leave':gt 'WorkHosp', 'start'
  94. act 'Sounds like fun':
  95. girl += 1
  96. guy += 1
  97. picrand = 12
  98. sexpartkno = 1
  99. gs 'npcgeneratec', 0, 'Patient', rand(18,48)
  100. gs 'boyStat', $npclastgenerated
  101. gt 'podrsex', 'suck'
  102. gs 'arousal', 'cuni_give', 10, 'lesbian'
  103. gs 'arousal', 'vaginal', 10, 'unkown'
  104. minut -= 10
  105. gs 'arousal', 'end'
  106. gs 'stat'
  107. end
  108. elseif katprorand = 2:
  109. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex8.jpg"></center>'
  110. 'While your tryst with Kate was in full swing, two doctors came in. You were both so engrossed with each other, that you didn''t even notice them until they started to caress you. You both spread your legs wider, inviting them to join the fun.'
  111. act 'Entertain them':
  112. gang += 1
  113. picrand = 11
  114. sexpartkno = 1
  115. gs 'WorkHosp', 'randdoc'
  116. $boy[1] = $boy
  117. $boydesc[1] = $boydesc
  118. if docfuck[randdoc] = 1:guy += 1
  119. :docloop
  120. gs 'WorkHosp', 'randdoc'
  121. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop'
  122. if docfuck[randdoc] = 1:guy += 1
  123. xgt 'sexdvanadva', 'var'
  124. gs 'arousal', 'bj', 10, 'group'
  125. gs 'arousal', 'vaginal', 10, 'group'
  126. minut -= 10
  127. gs 'arousal', 'end'
  128. gs 'stat'
  129. end
  130. end
  131. end
  132. if $ARGS[0] = '1':
  133. cla
  134. *clr
  135. mastrrand = rand(0, 1)
  136. if mastrrand = 0:
  137. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex9.jpg"></center>'
  138. '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.'
  139. gs 'arousal', 'masturbate', 10
  140. gs 'stat'
  141. if pcs_horny < 50:act 'Break and run':gt 'WorkHosp', 'start'
  142. act 'Go along with it':
  143. guy += 1
  144. picrand = 12
  145. gs 'WorkHosp', 'randdoc'
  146. if docfuck[randdoc] = 1:guy += 1
  147. gt 'sex', 'minet'
  148. gs 'arousal', 'vaginal', 10, 'sub'
  149. gs 'arousal', 'end'
  150. gs 'stat'
  151. end
  152. else
  153. picrand = rand(12, 13)
  154. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex10.jpg"></center>'
  155. '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.'
  156. if pcs_horny < 50:
  157. act 'Leave':gt 'WorkHosp', 'start'
  158. end
  159. act 'Play with them':
  160. sexpartkno = 1
  161. gs 'WorkHosp', 'randdoc'
  162. $boy[1] = $boy
  163. $boydesc[1] = $boydesc
  164. if docfuck[randdoc] = 1:guy += 1
  165. :docloop2
  166. gs 'WorkHosp', 'randdoc'
  167. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop2'
  168. if docfuck[randdoc] = 1:guy += 1
  169. xgt 'sexdvoe', 'var'
  170. gs 'arousal', 'bj', 10, 'group'
  171. gs 'arousal', 'vaginal', 10, 'group'
  172. minut -= 10
  173. gs 'arousal', 'end'
  174. gs 'stat'
  175. end
  176. end
  177. end
  178. if $ARGS[0] = '2':
  179. cla
  180. *clr
  181. picrand = rand(13, 15)
  182. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
  183. '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.'
  184. act 'Oust him':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
  185. act 'Give him what he wants':guy += 1 & gt 'sex', 'minet'
  186. end
  187. if $ARGS[0] = '3':
  188. cla
  189. *clr
  190. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
  191. '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.'
  192. act 'Ask if she actually needs treatment':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
  193. act 'Play along':
  194. guy += 1
  195. girl += 1
  196. lesbian += 1
  197. picrand = 13
  198. sexpartkno = 1
  199. gs 'WorkHosp', 'randdoc'
  200. if docfuck[randdoc] = 1:guy += 1
  201. gt 'podrsex', 'suck'
  202. gs 'arousal', 'cuni_give', 10, 'group'
  203. gs 'arousal', 'vaginal', 10, 'group'
  204. minut -= 10
  205. gs 'arousal', 'end'
  206. gs 'stat'
  207. end
  208. end
  209. if $ARGS[0] = 'randdoc':
  210. if $randdoc[0] = '':
  211. randdoc = rand(0,19)
  212. if randdoc = 0:
  213. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  214. $npc_usedname[$npclastgenerated] = 'Dr. Ivanov'
  215. $npc_lastname[$npclastgenerated] = 'Ivanov'
  216. gs 'npcpreservec', $npclastgenerated
  217. elseif randdoc = 1:
  218. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  219. $npc_usedname[$npclastgenerated] = 'Dr. Smirnov'
  220. $npc_lastname[$npclastgenerated] = 'Smirnov'
  221. gs 'npcpreservec', $npclastgenerated
  222. elseif randdoc = 2:
  223. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  224. $npc_usedname[$npclastgenerated] = 'Dr. Kuznetsov'
  225. $npc_lastname[$npclastgenerated] = 'Kuznetsov'
  226. gs 'npcpreservec', $npclastgenerated
  227. elseif randdoc = 3:
  228. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  229. $npc_usedname[$npclastgenerated] = 'Dr. Popov'
  230. $npc_lastname[$npclastgenerated] = 'Popov'
  231. gs 'npcpreservec', $npclastgenerated
  232. elseif randdoc = 4:
  233. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  234. $npc_usedname[$npclastgenerated] = 'Dr. Vasiliev'
  235. $npc_lastname[$npclastgenerated] = 'Vasiliev'
  236. gs 'npcpreservec', $npclastgenerated
  237. elseif randdoc = 5:
  238. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  239. $npc_usedname[$npclastgenerated] = 'Dr. Petrov'
  240. $npc_lastname[$npclastgenerated] = 'Petrov'
  241. gs 'npcpreservec', $npclastgenerated
  242. elseif randdoc = 6:
  243. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  244. $npc_usedname[$npclastgenerated] = 'Dr. Sokolov'
  245. $npc_lastname[$npclastgenerated] = 'Sokolov'
  246. gs 'npcpreservec', $npclastgenerated
  247. elseif randdoc = 7:
  248. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  249. $npc_usedname[$npclastgenerated] = 'Dr. Mikhailov'
  250. $npc_lastname[$npclastgenerated] = 'Mikhailov'
  251. gs 'npcpreservec', $npclastgenerated
  252. elseif randdoc = 8:
  253. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  254. $npc_usedname[$npclastgenerated] = 'Dr. Fedorov'
  255. $npc_lastname[$npclastgenerated] = 'Fedorov'
  256. gs 'npcpreservec', $npclastgenerated
  257. elseif randdoc = 9:
  258. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  259. $npc_usedname[$npclastgenerated] = 'Dr. Morozov'
  260. $npc_lastname[$npclastgenerated] = 'Morozov'
  261. gs 'npcpreservec', $npclastgenerated
  262. elseif randdoc = 10:
  263. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  264. $npc_usedname[$npclastgenerated] = 'Dr. Volkov'
  265. $npc_lastname[$npclastgenerated] = 'Volkov'
  266. gs 'npcpreservec', $npclastgenerated
  267. elseif randdoc = 11:
  268. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  269. $npc_usedname[$npclastgenerated] = 'Dr. Alexeev'
  270. $npc_lastname[$npclastgenerated] = 'Alexeev'
  271. gs 'npcpreservec', $npclastgenerated
  272. elseif randdoc = 12:
  273. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  274. $npc_usedname[$npclastgenerated] = 'Dr. Lebedev'
  275. $npc_lastname[$npclastgenerated] = 'Lebedev'
  276. gs 'npcpreservec', $npclastgenerated
  277. elseif randdoc = 13:
  278. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  279. $npc_usedname[$npclastgenerated] = 'Dr. Semenov'
  280. $npc_lastname[$npclastgenerated] = 'Semenov'
  281. gs 'npcpreservec', $npclastgenerated
  282. elseif randdoc = 14:
  283. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  284. $npc_usedname[$npclastgenerated] = 'Dr. Egerov'
  285. $npc_lastname[$npclastgenerated] = 'Egerov'
  286. gs 'npcpreservec', $npclastgenerated
  287. elseif randdoc = 15:
  288. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  289. $npc_usedname[$npclastgenerated] = 'Dr. Pavlov'
  290. $npc_lastname[$npclastgenerated] = 'Pavlov'
  291. gs 'npcpreservec', $npclastgenerated
  292. elseif randdoc = 16:
  293. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  294. $npc_usedname[$npclastgenerated] = 'Dr. Kozlov'
  295. $npc_lastname[$npclastgenerated] = 'Kozlov'
  296. gs 'npcpreservec', $npclastgenerated
  297. elseif randdoc = 17:
  298. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  299. $npc_usedname[$npclastgenerated] = 'Dr. Stepanov'
  300. $npc_lastname[$npclastgenerated] = 'Stepanov'
  301. gs 'npcpreservec', $npclastgenerated
  302. elseif randdoc = 18:
  303. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  304. $npc_usedname[$npclastgenerated] = 'Dr. Nikolaev'
  305. $npc_lastname[$npclastgenerated] = 'Nikolaev'
  306. gs 'npcpreservec', $npclastgenerated
  307. elseif randdoc = 19:
  308. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  309. $npc_usedname[$npclastgenerated] = 'Dr. Orlov'
  310. $npc_lastname[$npclastgenerated] = 'Orlov'
  311. gs 'npcpreservec', $npclastgenerated
  312. end
  313. end
  314. gs 'boyStat', $npclastsaved
  315. docfuck[randdoc] += 1
  316. end
  317. --- WorkHosp ---------------------------------