143_WorkHosp 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224
  1. # WorkHosp
  2. if $ARGS[0] = 'start':
  3. $sexloc = $CURLOC
  4. gs 'stat'
  5. set jobhosprand = rand(0, 9)
  6. '<center><b><font color = maroon>Clinic</font></b></center>'
  7. '<center><img src="images/img/spaln/hospital.jpg"></center>'
  8. 'The clinic are hard at work, patients sit in queues, doctors are receiving, nurses rush from office to office.'
  9. act 'Work in the procedural':
  10. set minut += 60
  11. if jobhosprand = 0:gt 'WorkHosp', '2'
  12. 'You worked in the treatment room.'
  13. cla
  14. act 'Move away':gt 'WorkHosp', 'start'
  15. end
  16. act 'Help the doctor at the reception':
  17. set minut += 60
  18. if jobhosprand = 0:gt 'WorkHosp', '3'
  19. 'You helped a doctor at the reception.'
  20. cla
  21. act 'Move away':gt 'WorkHosp', 'start'
  22. end
  23. act 'Relax in nursing':
  24. set minut += 30
  25. 'You relax.'
  26. cla
  27. act 'Masturbate (0:15)':
  28. set minut += 15
  29. set mastrrand = rand(0, 2)
  30. if mastrrand = 0:
  31. gt 'WorkHosp', '1'
  32. else
  33. set picrand = 11
  34. cla
  35. *clr
  36. set mastr += 1
  37. '<center><img src="images/img/mastr/mastr<<picrand>>.jpg "></center>'
  38. 'You matrubiruete.'
  39. set horny = 0
  40. set orgasm += 1
  41. 'Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm'
  42. end
  43. act 'Exit':gt 'WorkHosp', 'start'
  44. end
  45. act 'Move away':gt 'WorkHosp', 'start'
  46. end
  47. act 'There in the cafeteria':
  48. set minut += 30
  49. set health += 10
  50. set manna += 5
  51. set willpower += 5
  52. if energy >= 30:
  53. set fat += 5
  54. 'You can no longer have.'
  55. end
  56. if energy >= 20 and energy < 30:
  57. set fat += 3
  58. set energy += 10
  59. 'You pushed through the power of a meal.'
  60. end
  61. if energy < 20:
  62. set energy += 20
  63. set fat += 1
  64. 'You gladly ate the food.'
  65. end
  66. if water >= 20:'Tea in you no longer climbs.'
  67. if water < 20:
  68. 'You gladly drank a mug of tea.'
  69. set water += 20
  70. end
  71. end
  72. act 'Chat with Kate':
  73. set minut += 30
  74. kat += 1
  75. if kat > 60 and military = 0:gt 'WorkHosp', 'milit'
  76. 'You chatted with Kate.'
  77. cla
  78. if kat > 50:
  79. act 'Suggest uedinitsa':gt 'WorkHosp', '0'
  80. end
  81. act 'Move away':gt 'WorkHosp', 'start'
  82. end
  83. if hour >= 16:
  84. cls
  85. '<center><b><font color = maroon>Clinic</font></b></center>'
  86. '<center><img src="images/img/spaln/hospital.jpg"></center>'
  87. 'Your shift ended.'
  88. act 'Go home':gt 'street'
  89. end
  90. end
  91. if $ARGS[0] = 'milit':
  92. military = 1
  93. '"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. "'
  94. cla
  95. act 'Move away':gt 'WorkHosp', 'start'
  96. end
  97. if $ARGS[0] = '0':
  98. cla
  99. *clr
  100. set katprorand = rand(0, 2)
  101. if katprorand = 0:
  102. set girl += 1
  103. set lesbian += 1
  104. set picrand = 11
  105. xgt 'lezbsex', 'var'
  106. end
  107. if katprorand = 1:
  108. '<center><img src="images/img/spaln/hospsex7.jpg"></center>'
  109. '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.'
  110. act 'Exit':gt 'WorkHosp', 'start'
  111. act 'Amuse':
  112. set girl += 1
  113. set guy += 1
  114. set lesbian += 1
  115. set picrand = 12
  116. gt 'podrsex', 'var'
  117. end
  118. end
  119. if katprorand = 2:
  120. '<center><img src="images/img/spaln/hospsex8.jpg"></center>'
  121. 'When your games were in full swing in procedural included two doctors, but you were already so excited that not paying any attention to them continued, and when men began to caress you, you just degradability radvinuli legs wider, inviting them into your vagina.'
  122. act 'Entertain':
  123. set gang += 1
  124. set picrand = 11
  125. xgt 'sexdvanadva', 'var'
  126. end
  127. end
  128. end
  129. if $ARGS[0] = '1':
  130. cla
  131. *clr
  132. set mastrrand = rand(0, 1)
  133. if mastrrand = 0:
  134. '<center><img src="images/img/spaln/hospsex9.jpg"></center>'
  135. 'While you samozabveno masturbate, trying to bring herself to orgasm, the doctor enters the room, you are so keen that only notice it when his hand starts to pull your head to a standing member.'
  136. if horny < 50:act 'Break and run':gt 'WorkHosp', 'start'
  137. act 'Amuse':
  138. set guy += 1
  139. set picrand = 12
  140. gt 'sex', 'minet'
  141. end
  142. end
  143. if mastrrand = 1:
  144. '<center><img src="images/img/spaln/hospsex10.jpg"></center>'
  145. 'While you samozabveno masturbate, trying to bring herself to orgasm in the room includes two doctors, you are so keen that only notice them when they stand in front of you with members shaved and masturbate.'
  146. if horny < 50:act 'Leave':gt 'WorkHosp', 'start'
  147. set picrand = rand(12, 13)
  148. act 'Amuse':set guy += 2 & xgt 'sexdvoe', 'var'
  149. end
  150. end
  151. if $ARGS[0] = '2':
  152. cla
  153. *clr
  154. set picrand = rand(13, 15)
  155. '<center><img src="images/img/spaln/hospsex11.jpg"></center>'
  156. '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.'
  157. act 'Oust him':gt 'WorkHosp', 'start'
  158. act 'Pick up':set guy += 1 & gt 'sex', 'minet'
  159. end
  160. if $ARGS[0] = '3':
  161. cla
  162. *clr
  163. '<center><img src="images/img/spaln/hospsex12.jpg"></center>'
  164. '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.'
  165. act 'Make her remark':gt 'WorkHosp', 'start'
  166. act 'Amuse':
  167. set guy += 1
  168. set girl += 1
  169. set lesbian += 1
  170. set picrand = 13
  171. gt 'podrsex', 'var'
  172. end
  173. end
  174. --- WorkHosp ---------------------------------