0
0

261_gpoli 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265
  1. # gpoli
  2. <<<<<<< 261_gpoli
  3. set minut += 5
  4. frost = 0
  5. '<center><B><font color = maroon>Clinic</font></B></center>'
  6. '<center><img src="images\etogame\poli.jpg"></center>'
  7. clr
  8. gs 'stat'
  9. fcolor = rgb(0,0,0)
  10. bcolor = rgb(255,255,255)
  11. =======
  12. set minut = minut + 5
  13. frost=0
  14. '<center><B><font color=maroon>clinic</font></B></center>'
  15. '<center><img src="pic/poli.jpg" ></center>'
  16. clr
  17. gs'stat'
  18. fcolor=rgb(0,0,0)
  19. bcolor=rgb(255,255,255)
  20. >>>>>>> 261_gpoli
  21. LCOLOR = rgb(106,90,205)
  22. <<<<<<< 261_gpoli
  23. act 'Exit': gt 'gorodok'
  24. if hour >= 6 and hour <= 21:
  25. if gpoliuborka = 0:
  26. act 'Read listing':
  27. cla
  28. *clr
  29. set minut += 5
  30. set gpoliuborka = 1
  31. 'On the wall near the entrance to the clinic hanging ad. Requires cleaner, work one hour a day, from 16 to 21 hours, payment of 25 rubles.'
  32. act 'Move away': gt 'gpoli'
  33. end
  34. end
  35. if gpoliuborka = 1 and hour >= 8 and hour <= 21:
  36. act 'Ask the chief doctor of the work as a cleaner':
  37. cla
  38. *clr
  39. gpoliuborka = 2
  40. set minut += 15
  41. gs 'stat'
  42. '<center><img src="images\etogame\poli.jpg"></center>'
  43. 'You came to the office of the head doctor and knocked on the door entered the office. In the office sat a large man in a white robe. He looked sternly at you through his glasses. "On what issue?" You answered that you have read the ad and would like to get a cleaner. Heads doctor thought for a moment and handed you the paper. "Write on the model application for a job part-time." You took the paper and wrote a statement. Heads doctor stood up together and you went into the corridor. He showed you the shed where the stored tools, buckets, mops, dusters.'
  44. act 'Leave': gt 'gpoli'
  45. end
  46. =======
  47. act 'Go_Out':gt'gorodok'
  48. if hour>=6 and hour<=21:
  49. if gpoliuborka = 0:
  50. act 'read ads':
  51. cla
  52. *clr
  53. set minut = minut + 5
  54. set gpoliuborka = 1
  55. 'On the wall near the entrance to the clinic hangs Ads. requires cleaner, work one hour a day, with 16 prior_to 21 hours, payment 100 rubles.'
  56. act 'move_away':gt 'gpoli'
  57. end
  58. end
  59. if gpoliuborka = 1 and hour >=8 and hour <=21:
  60. act 'Ask the chief doctor about work as a cleaner':
  61. cla
  62. *clr
  63. gpoliuborka = 2
  64. set minut = minut + 15
  65. gs 'stat'
  66. '<center><img src="pic/poli.jpg" ></center>'
  67. 'You came to the office of the head doctor and knocked on the door entered the office. In the office sat a large man in a white coat. He looked sternly at you through glasses. "On what issue?" You said that you have read the announcement and would like to get a cleaner. Heads of the doctor thought for a moment and handed you the paper. "Write on the model of an application for admission to work part-time." You took the paper and wrote a statement. Heads of the doctor stood up together and you went into the corridor. He showed you shed, where stored tool, buckets, mops, rags.'
  68. act 'Get_Away': gt 'gpoli'
  69. end
  70. >>>>>>> 261_gpoli
  71. end
  72. <<<<<<< 261_gpoli
  73. if gpoliuborka > 1 and hour >= 8 and hour <= 21 and gpolicleanday ! day:
  74. act 'To work as a cleaner':
  75. cla
  76. *clr
  77. set gpolicleanday = day
  78. set minut += 60
  79. set manna -= 15
  80. set money += 25
  81. set sweat += 2
  82. gs 'stat'
  83. '<center><img src="images\etogame\clener1.jpg"></center>'
  84. 'You took a mop bucket and washed corridors throughout the clinic. After washing corridors you steel wash rooms. Doctors certainly cursed and bubneli as you unceremoniously broke into their offices, but still give you a calm, clean the floor.'
  85. act 'Finish the job': gt 'gpoli'
  86. ginrand = rand(0,1)
  87. if Gspravka < 3 and ginrand = 0:
  88. 'When you remove the gynecologist office, he goes out of the room leaving you alone.'
  89. if vagina > 0:
  90. act 'Help forge':
  91. cls
  92. Gspravka = 7
  93. GspravkaT = 1
  94. gs 'stat'
  95. 'You quickly pull out of the table form and print reference and spank seal on the certificate.'
  96. 'After that, you take away the seal back to the table and hide help. Help text from the gynecologist you write a little later on.'
  97. act 'Finish the job': gt 'gpoli'
  98. end
  99. end
  100. end
  101. end
  102. =======
  103. if gpoliuborka > 1 and hour >=8 and hour <=21 and gpolicleanday ! day:
  104. act 'to work as a cleaner':
  105. cla
  106. *clr
  107. set gpolicleanday = day
  108. set minut = minut + 60
  109. set manna = manna - 15
  110. set money = money + 100
  111. set sweat = sweat + 2
  112. gs 'stat'
  113. '<center><img src="pic/clener1.jpg" ></center>'
  114. 'You took a mop bucket and washed corridors throughout the clinic. After washing the corridors you become a wash rooms. Doctors certainly cursed and bubneli, since you unceremoniously broke into their offices, but still gave you safely clean the floor.'
  115. act 'finish the job': gt 'gpoli'
  116. ginrand=rand(0,1)
  117. if Gspravka<10 and ginrand=0:
  118. 'When you remove the gynecologist `s office, he goes out of the room leaving you alone.'
  119. if vagina > 0:
  120. act 'fake certificate':
  121. cls
  122. Gspravka=30
  123. GspravkaT=1
  124. gs'stat'
  125. 'You pull out a quick form of a table reference and printing and printing slap FAQ.'
  126. 'After that. Help text from the gynecologist you write a little later on.'
  127. act 'finish the job': gt 'gpoli'
  128. end
  129. end
  130. end
  131. end
  132. >>>>>>> 261_gpoli
  133. end
  134. <<<<<<< 261_gpoli
  135. if health < (vital*10 + stren*5) and money >= 1000:
  136. act 'Treat health 1,000 rubles':
  137. cla
  138. set money -= 1000
  139. set minut += 60
  140. set health = vital * 10 + stren * 5 + 1000
  141. 'The doctor did give you a shot and you immediately felt much better'
  142. act 'QUIT': gt $curloc
  143. end
  144. end
  145. if willpower < intel*5 + will*5 and money >= 1000:
  146. act 'Receiving a therapist 1,000 rubles':
  147. cla
  148. set money -= 1000
  149. set minut += 60
  150. set willpower = intel * 5 + will * 5 + 1000
  151. set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  152. 'You lie down on a couch at the therapist and told him about his troubles, and you immediately become much happier.'
  153. act 'QUIT': gt $curloc
  154. end
  155. end
  156. if StoryLine > 0 and SchoolAtestat = 0 and Gspravka < 3:
  157. act 'Go to the gynecologist for help':
  158. cls
  159. set minut += 15
  160. '<center><img src="images\etogame\gin.jpg"></center>'
  161. 'You lay on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
  162. if vagina > 0:
  163. Gspravka = 7
  164. GspravkaT = 2
  165. 'Help gynecologist wrote that you are not a virgin.'
  166. end
  167. if vagina = 0:
  168. Gspravka = 7
  169. GspravkaT = 1
  170. 'Help gynecologist wrote that you are a virgin.'
  171. end
  172. if preg > 0:
  173. 'Gynecologist told you that you are pregnant.'
  174. end
  175. gs 'stat'
  176. act 'QUIT': gt $curloc
  177. end
  178. end
  179. if sick >= 1:
  180. act 'Go to the therapist uchastkovumu':
  181. cla
  182. set minut += 15
  183. sick = 0
  184. gs 'stat'
  185. 'You came to the reception to uchastkovumu therapist and doctor has prescribed pills for colds.'
  186. act 'QUIT': gt $curloc
  187. end
  188. end
  189. else
  190. 'Clinic closed.'
  191. =======
  192. if health < (vital*10 + stren*5) and money >= 1000:
  193. act 'treat health 1 sput':
  194. cla
  195. set money = money - 1000
  196. set minut = minut + 60
  197. set health = vital*10 + stren*5+1000
  198. 'The doctor did give you an injection and you immediately become much better'
  199. act 'GO_OUT':gt $curloc
  200. end
  201. end
  202. if willpower < intel*5 + will*5 and money >= 1000:
  203. act 'Reception at the psychotherapist 1 sput':
  204. cla
  205. set money = money - 1000
  206. set minut = minut + 60
  207. set willpower = intel*5 + will*5+1000
  208. set manna = (intel*magik) + magik*100 + vital*10 + rikudo
  209. 'You lie down on a couch in the therapist and told him about his troubles and you immediately become much happier.'
  210. act 'GO_OUT':gt $curloc
  211. end
  212. end
  213. if StoryLine>0 and SchoolAtestat=0 and Gspravka<3:
  214. act 'Go to the gynecologist for help':
  215. cls
  216. set minut = minut + 15
  217. '<center><img src="pic/gin.jpg" ></center>'
  218. 'You lay down on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
  219. if vagina > 0:
  220. Gspravka=30
  221. GspravkaT=2
  222. 'Gynecologist wrote Help, that you are not a virgin.'
  223. end
  224. if vagina = 0:
  225. Gspravka=30
  226. GspravkaT=1
  227. 'Gynecologist wrote Help, that you are a virgin.'
  228. end
  229. if preg>0:
  230. 'The gynecologist told you, you are pregnant.'
  231. end
  232. gs'stat'
  233. act 'GO_OUT':gt $curloc
  234. end
  235. end
  236. if sick >= 1:
  237. act 'Go to the therapist uchastkovumu':
  238. cla
  239. set minut = minut + 15
  240. sick=0
  241. gs'stat'
  242. 'You`ve come to the reception to uchastkovumu therapist and doctor has prescribed pills for cold.'
  243. act 'GO_OUT':gt $curloc
  244. end
  245. end
  246. else
  247. 'health center is closed.'
  248. >>>>>>> 261_gpoli
  249. end
  250. --- gpoli ---------------------------------