1
0

WorkHosp 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336
  1. # WorkHosp
  2. if $ARGS[0] = 'start':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $sexloc = $CURLOC
  6. $location_type = 'event'
  7. gs 'stat'
  8. '<center><b><font color="maroon">Clinic</font></b></center>'
  9. '<center><img src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  10. 'The clinic are hard at work, patients sit in queues, doctors are receiving, nurses rush from office to office.'
  11. jobhosprand = rand(0, 9)
  12. act 'Work in the procedural':
  13. cla
  14. minut += 60
  15. if jobhosprand = 0:gt 'WorkHosp', '2'
  16. 'You worked in the treatment room.'
  17. act 'Move away':gt 'WorkHosp', 'start'
  18. end
  19. act 'Help the doctor at the reception':
  20. cla
  21. minut += 60
  22. if jobhosprand = 0:gt 'WorkHosp', '3'
  23. 'You helped a doctor at the reception.'
  24. act 'Move away':gt 'WorkHosp', 'start'
  25. end
  26. act 'Relax in nursing':
  27. cla
  28. minut += 30
  29. gs 'stat'
  30. 'You relax.'
  31. act 'Masturbate (0:15)':
  32. mastrrand = rand(0, 2)
  33. if mastrrand = 0:
  34. gt 'WorkHosp', '1'
  35. else
  36. cla
  37. *clr
  38. minut += 15
  39. stat['mast'] += 1
  40. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  41. pcs_horny = 0
  42. orgasm += 1
  43. picrand = 11
  44. '<center><img src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
  45. 'You masturbated.'
  46. 'Gradually a pleasant warmth and pulsation increases in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm'
  47. end
  48. act 'Leave':gt 'WorkHosp', 'start'
  49. end
  50. act 'Move away':gt 'WorkHosp', 'start'
  51. end
  52. act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'
  53. act 'Chat with Kat':
  54. cla
  55. minut += 30
  56. kat += 1
  57. if kat > 60 and military = 0:gt 'WorkHosp', 'milit'
  58. 'You chatted with Kate.'
  59. if kat > 50:
  60. act 'Suggest to retire':gt 'WorkHosp', '0'
  61. end
  62. act 'Move away':gt 'WorkHosp', 'start'
  63. end
  64. if hour >= 16:
  65. cls
  66. '<center><b><font color="maroon">Clinic</font></b></center>'
  67. '<center><img src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  68. 'Your shift ended.'
  69. act 'Go home':gt 'street'
  70. end
  71. end
  72. if $ARGS[0] = 'milit':
  73. cla
  74. military = 1
  75. '"Listen, I immediately offered to earn the weekend, but I have plans. Overall the thing is close to the city are often held war games, well, according to the rules that need to be attended by doctors there. Do not be afraid you will be there with you doctor, so the maximum that you have to do is to stick patches. short if you decide on a Saturday bus at the clinic, he was waiting for from 6 to 9 hours. Yeah I almost forgot to pay for two days of 5000. "'
  76. act 'Move away':gt 'WorkHosp', 'start'
  77. end
  78. if $ARGS[0] = '0':
  79. $location_type = 'event'
  80. cla
  81. *clr
  82. katprorand = rand(0, 2)
  83. if katprorand = 0:
  84. girl += 1
  85. lesbian += 1
  86. picrand = 11
  87. xgt 'lezbsex', 'var'
  88. elseif katprorand = 1:
  89. '<center><img src="images/locations/city/residential/clinic/sex/hospsex7.jpg"></center>'
  90. 'Only you and Kat began to fondle each other as to the treatment the patient is entered. You backed away from her trying to pretend that nothing happened, on the contrary, Kate did not hesitate and was lying on the couch with her legs spread wide, proudly showing off her wet pussy on your tongue, and looked appealingly at the guy look inviting him prisoedinitsa.'
  91. act 'Leave':gt 'WorkHosp', 'start'
  92. act 'Amuse':
  93. girl += 1
  94. guy += 1
  95. lesbian += 1
  96. picrand = 12
  97. sexpartkno = 1
  98. gs 'npcgeneratec', 0, 'Patient', rand(18,48)
  99. gs 'boyStat', $npclastgenerated
  100. gt 'podrsex', 'suck'
  101. end
  102. elseif katprorand = 2:
  103. '<center><img src="images/locations/city/residential/clinic/sex/hospsex8.jpg"></center>'
  104. 'While your tryst with Kate was in full swing, two doctors came in. You were both so exited that you payed no attention to them until they started to caress you. You spread your legs wider, inviting them to join the fun.'
  105. act 'Entertain':
  106. gang += 1
  107. picrand = 11
  108. sexpartkno = 1
  109. gs 'WorkHosp', 'randdoc'
  110. $boy[1] = $boy
  111. $boydesc[1] = $boydesc
  112. if docfuck[randdoc] = 1:guy += 1
  113. :docloop
  114. gs 'WorkHosp', 'randdoc'
  115. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop'
  116. if docfuck[randdoc] = 1:guy += 1
  117. xgt 'sexdvanadva', 'var'
  118. end
  119. end
  120. end
  121. if $ARGS[0] = '1':
  122. cla
  123. *clr
  124. mastrrand = rand(0, 1)
  125. if mastrrand = 0:
  126. '<center><img src="images/locations/city/residential/clinic/sex/hospsex9.jpg"></center>'
  127. 'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. The doctor enters the room but you are so absorbed that you only notice him when his hand starts to pull your head to his erection.'
  128. if pcs_horny < 50:act 'Break and run':gt 'WorkHosp', 'start'
  129. act 'Amuse':
  130. guy += 1
  131. picrand = 12
  132. gs 'WorkHosp', 'randdoc'
  133. if docfuck[randdoc] = 1:guy += 1
  134. gt 'sex', 'minet'
  135. end
  136. else
  137. picrand = rand(12, 13)
  138. '<center><img src="images/locations/city/residential/clinic/sex/hospsex10.jpg"></center>'
  139. 'As you lose yourself in pleasure, two doctors come into the room. You are so absorbed that you only notice them when they start to openly masturbate in front of you.'
  140. if pcs_horny < 50:
  141. act 'Leave':gt 'WorkHosp', 'start'
  142. end
  143. act 'Amuse':
  144. sexpartkno = 1
  145. gs 'WorkHosp', 'randdoc'
  146. $boy[1] = $boy
  147. $boydesc[1] = $boydesc
  148. if docfuck[randdoc] = 1:guy += 1
  149. :docloop2
  150. gs 'WorkHosp', 'randdoc'
  151. if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop2'
  152. if docfuck[randdoc] = 1:guy += 1
  153. xgt 'sexdvoe', 'var'
  154. end
  155. end
  156. end
  157. if $ARGS[0] = '2':
  158. cla
  159. *clr
  160. picrand = rand(13, 15)
  161. '<center><img src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
  162. 'To you and the patient comes from the doorway taking his pants demonstrates his flaccid penis and asks you to help him as you see it is not worth it. Mind you realize that it''s all just a silly gimmick that would fuck you, but you still feel sorry for him. And suddenly it does not worth it, and you will be able to pick it up, but what if he just no luck with girls and if today is not lucky, he will jump out of the window.'
  163. act 'Oust him':gt 'WorkHosp', 'start'
  164. act 'Pick up':guy += 1 & gt 'sex', 'minet'
  165. end
  166. if $ARGS[0] = '3':
  167. cla
  168. *clr
  169. '<center><img src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
  170. 'It comes to you pretty patient until the doctor tries to examine her, and then she touches his trousers near term, the doctor glances at you with a question in his eyes.'
  171. act 'Make her remark':gt 'WorkHosp', 'start'
  172. act 'Amuse':
  173. guy += 1
  174. girl += 1
  175. lesbian += 1
  176. picrand = 13
  177. sexpartkno = 1
  178. gs 'WorkHosp', 'randdoc'
  179. if docfuck[randdoc] = 1:guy += 1
  180. gt 'podrsex', 'suck'
  181. end
  182. end
  183. if $ARGS[0] = 'randdoc':
  184. if $randdoc[0] = '':
  185. randdoc = rand(0,19)
  186. if randdoc = 0:
  187. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  188. $npc_usedname[$npclastgenerated] = 'Dr. Ivanov'
  189. $npc_lastname[$npclastgenerated] = 'Ivanov'
  190. gs 'npcpreservec', $npclastgenerated
  191. elseif randdoc = 1:
  192. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  193. $npc_usedname[$npclastgenerated] = 'Dr. Smirnov'
  194. $npc_lastname[$npclastgenerated] = 'Smirnov'
  195. gs 'npcpreservec', $npclastgenerated
  196. elseif randdoc = 2:
  197. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  198. $npc_usedname[$npclastgenerated] = 'Dr. Kuznetsov'
  199. $npc_lastname[$npclastgenerated] = 'Kuznetsov'
  200. gs 'npcpreservec', $npclastgenerated
  201. elseif randdoc = 3:
  202. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  203. $npc_usedname[$npclastgenerated] = 'Dr. Popov'
  204. $npc_lastname[$npclastgenerated] = 'Popov'
  205. gs 'npcpreservec', $npclastgenerated
  206. elseif randdoc = 4:
  207. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  208. $npc_usedname[$npclastgenerated] = 'Dr. Vasiliev'
  209. $npc_lastname[$npclastgenerated] = 'Vasiliev'
  210. gs 'npcpreservec', $npclastgenerated
  211. elseif randdoc = 5:
  212. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  213. $npc_usedname[$npclastgenerated] = 'Dr. Petrov'
  214. $npc_lastname[$npclastgenerated] = 'Petrov'
  215. gs 'npcpreservec', $npclastgenerated
  216. elseif randdoc = 6:
  217. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  218. $npc_usedname[$npclastgenerated] = 'Dr. Sokolov'
  219. $npc_lastname[$npclastgenerated] = 'Sokolov'
  220. gs 'npcpreservec', $npclastgenerated
  221. elseif randdoc = 7:
  222. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  223. $npc_usedname[$npclastgenerated] = 'Dr. Mikhailov'
  224. $npc_lastname[$npclastgenerated] = 'Mikhailov'
  225. gs 'npcpreservec', $npclastgenerated
  226. elseif randdoc = 8:
  227. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  228. $npc_usedname[$npclastgenerated] = 'Dr. Fedorov'
  229. $npc_lastname[$npclastgenerated] = 'Fedorov'
  230. gs 'npcpreservec', $npclastgenerated
  231. elseif randdoc = 9:
  232. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  233. $npc_usedname[$npclastgenerated] = 'Dr. Morozov'
  234. $npc_lastname[$npclastgenerated] = 'Morozov'
  235. gs 'npcpreservec', $npclastgenerated
  236. elseif randdoc = 10:
  237. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  238. $npc_usedname[$npclastgenerated] = 'Dr. Volkov'
  239. $npc_lastname[$npclastgenerated] = 'Volkov'
  240. gs 'npcpreservec', $npclastgenerated
  241. elseif randdoc = 11:
  242. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  243. $npc_usedname[$npclastgenerated] = 'Dr. Alexeev'
  244. $npc_lastname[$npclastgenerated] = 'Alexeev'
  245. gs 'npcpreservec', $npclastgenerated
  246. elseif randdoc = 12:
  247. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  248. $npc_usedname[$npclastgenerated] = 'Dr. Lebedev'
  249. $npc_lastname[$npclastgenerated] = 'Lebedev'
  250. gs 'npcpreservec', $npclastgenerated
  251. elseif randdoc = 13:
  252. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  253. $npc_usedname[$npclastgenerated] = 'Dr. Semenov'
  254. $npc_lastname[$npclastgenerated] = 'Semenov'
  255. gs 'npcpreservec', $npclastgenerated
  256. elseif randdoc = 14:
  257. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  258. $npc_usedname[$npclastgenerated] = 'Dr. Egerov'
  259. $npc_lastname[$npclastgenerated] = 'Egerov'
  260. gs 'npcpreservec', $npclastgenerated
  261. elseif randdoc = 15:
  262. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  263. $npc_usedname[$npclastgenerated] = 'Dr. Pavlov'
  264. $npc_lastname[$npclastgenerated] = 'Pavlov'
  265. gs 'npcpreservec', $npclastgenerated
  266. elseif randdoc = 16:
  267. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  268. $npc_usedname[$npclastgenerated] = 'Dr. Kozlov'
  269. $npc_lastname[$npclastgenerated] = 'Kozlov'
  270. gs 'npcpreservec', $npclastgenerated
  271. elseif randdoc = 17:
  272. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  273. $npc_usedname[$npclastgenerated] = 'Dr. Stepanov'
  274. $npc_lastname[$npclastgenerated] = 'Stepanov'
  275. gs 'npcpreservec', $npclastgenerated
  276. elseif randdoc = 18:
  277. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  278. $npc_usedname[$npclastgenerated] = 'Dr. Nikolaev'
  279. $npc_lastname[$npclastgenerated] = 'Nikolaev'
  280. gs 'npcpreservec', $npclastgenerated
  281. elseif randdoc = 19:
  282. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  283. $npc_usedname[$npclastgenerated] = 'Dr. Orlov'
  284. $npc_lastname[$npclastgenerated] = 'Orlov'
  285. gs 'npcpreservec', $npclastgenerated
  286. end
  287. end
  288. gs 'boyStat', $npclastsaved
  289. docfuck[randdoc] += 1
  290. end
  291. --- WorkHosp ---------------------------------