1
1

454_buklinik 9.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300
  1. # buklinik
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. clr
  7. gs 'stat'
  8. fcolor = rgb(0,0,0)
  9. bcolor = rgb(255,255,255)
  10. LCOLOR = rgb(106,90,205)
  11. '<center><B>Mercy clinic</B></center>'
  12. '<center><img src="images\etogame\bukli.jpg"></center>'
  13. 'Hours: 9 to 17, the weekend Saturday, Sunday.'
  14. temp = RAND(1,10)
  15. if temp = 9: 'You see the crowd of homeless people trying to get to a shelter.'
  16. if temp = 2: 'You see a homeless person trying to get into a shelter.'
  17. if temp = 3: 'You see an old man who came to the shelter.'
  18. if hour >= 9 and hour <= 17 and week < 6:
  19. act 'Go to the clinic': gt 'buklinik','holl'
  20. end
  21. act 'Leave': gt 'nord'
  22. end
  23. if $ARGS[0] = 'holl':
  24. cla
  25. *clr
  26. set minut += 5
  27. clr
  28. gs 'stat'
  29. fcolor = rgb(0,0,0)
  30. bcolor = rgb(255,255,255)
  31. LCOLOR = rgb(106,90,205)
  32. '<center><B>Mercy Clinic. hall</B></center>'
  33. '<center><img src="images\etogame\bukli_holl.jpg"></center>'
  34. 'Hospital corridor.'
  35. if bumtolik > 4: 'Things are stored on<a href="exec: GT ''buklinik'',''sklad''"> stock</a>.'
  36. if bumtolik > 5: 'The entrance is located<a href="exec: GT ''buklinik'',''registr3''"> Registry</a>.'
  37. if bumtolik > 5: 'Opposite the registry is<a href="exec: GT ''buklinik'',''olga2''"> Olga Account</a>.'
  38. if bumtolik > 5: 'At the end of the corridor<a href="exec: GT ''buklinik'',''shower''"> shower room</a>.'
  39. if bumtolik = 6: '<a href="exec: GT ''buklinik'',''spal''">Number of people</a>.'
  40. if bumtolik > 6: 'Sleeps. (I go there any more naked)'
  41. if bumtolik > 5: '<a href="exec: GT ''buklinik'',''stol''">Family Dining Room</a> residents.'
  42. if bumtolik > 5: 'office in charge<a href="exec: GT ''buklinik'',''sec''"> Jeanne</a>.'
  43. if bumtolik > 5: 'Account coordinator<a href="exec: GT ''buklinik'',''dir''"> faith</a>.'
  44. if bumtolik = 4:
  45. act 'Apply to the registry': gt 'buklinik','registr'
  46. end
  47. act 'Leave': gt 'nord'
  48. end
  49. if $ARGS[0] = 'registr':
  50. cla
  51. *clr
  52. set minut += 15
  53. clr
  54. gs 'stat'
  55. fcolor = rgb(0,0,0)
  56. bcolor = rgb(255,255,255)
  57. LCOLOR = rgb(106,90,205)
  58. '<center><B>Mercy Clinic. desk</B></center>'
  59. '<center><img src="images\etogame\bukli_reg.jpg"></center>'
  60. 'In registature sit two women in white coats.'
  61. if bumtolik = 4: 'You: - Hello, my name is <<$name>>, I am with the work. Girl named Olga gave me this card, said that you need employees.'
  62. 'Registrar: - Hello! We are very pleased to see you. But I´m afraid you refuse, the fact is that we need volunteers, ie your work will not be paid. A job to be very complicated. Will have to take care of the elderly and the homeless to feed and clothe.'
  63. act 'I knew you, I have to think': gt 'nord'
  64. act 'agree': gt 'buklinik','registr2'
  65. end
  66. if $ARGS[0] = 'registr2':
  67. cla
  68. *clr
  69. set minut += 15
  70. clr
  71. gs 'stat'
  72. fcolor = rgb(0,0,0)
  73. bcolor = rgb(255,255,255)
  74. LCOLOR = rgb(106,90,205)
  75. '<center><B>Mercy Clinic. desk</B></center>'
  76. '<center><img src="images\etogame\bukli_reg.jpg"></center>'
  77. bumtolik = 5
  78. 'You: - Well, I think I can handle it. Where do I start?'
  79. 'Registrar: - I am happy to hear that. Fill out the form. And me, store copies of your passport and if there is documentation of education diploma courses, all that is, perhaps, in the future, you can find paid work.'
  80. '(You fill out the form)'
  81. 'Registator: - Well, there you have a membership card. The corridor the first door on the right, get to the warehouse, where she will meet Olga show you everything.'
  82. act 'In the corridor': gt 'buklinik','holl'
  83. end
  84. if $ARGS[0] = 'registr3':
  85. cla
  86. *clr
  87. set minut += 15
  88. clr
  89. gs 'stat'
  90. fcolor = rgb(0,0,0)
  91. bcolor = rgb(255,255,255)
  92. LCOLOR = rgb(106,90,205)
  93. '<center><B>Mercy Clinic. desk</B></center>'
  94. '<center><img src="images\etogame\bukli_reg.jpg"></center>'
  95. 'In registature usually sit either Karina or Regina.'
  96. act 'In the corridor': gt 'buklinik','holl'
  97. end
  98. if $ARGS[0] = 'sklad':
  99. cla
  100. *clr
  101. set minut += 5
  102. clr
  103. gs 'stat'
  104. fcolor = rgb(0,0,0)
  105. bcolor = rgb(255,255,255)
  106. LCOLOR = rgb(106,90,205)
  107. '<center><B>Mercy Clinic. warehouse</B></center>'
  108. '<center><img src="images\etogame\bukli_sklad.jpg"></center>'
  109. 'Warehouse all packages littered with things.'
  110. if bumtolik = 5: act 'Find Olga': gt 'buklinik','olga'
  111. act 'In the corridor': gt 'buklinik','holl'
  112. end
  113. if $ARGS[0] = 'olga':
  114. cla
  115. *clr
  116. set minut += 5
  117. clr
  118. gs 'stat'
  119. fcolor = rgb(0,0,0)
  120. bcolor = rgb(255,255,255)
  121. LCOLOR = rgb(106,90,205)
  122. '<center><B>Your colleague Olga</B></center>'
  123. '<center><img src="images\etogame\bukli_olga.jpg"></center>'
  124. '(Olga - groomed and cute brunette with a kind smile.)'
  125. if bumtolik = 5:
  126. '- Olga, hello. I am <<$name>>, you remember me? I decided to respond to your call. And ready for duty. At the reception told me that you show here.'
  127. '- <<$name>>, good afternoon! Good for you, welcome! Let me briefly tell you how we work. We are volunteers and therefore our work is not paid. You can come at any time during working hours. Work is very different, because you attached to me, the first time the job will receive from me.'
  128. 'Olga: - You do not mind go to you?'
  129. 'You: - I am in favor.'
  130. 'Olga: - Well, let me spend a tour for you. Here we have a warehouse that we bought for the needy. We packed up his boxes and transported to the destination.'
  131. end
  132. act 'By office manager': gt 'buklinik','sec'
  133. end
  134. if $ARGS[0] = 'sec':
  135. cla
  136. *clr
  137. set minut += 15
  138. clr
  139. gs 'stat'
  140. fcolor = rgb(0,0,0)
  141. bcolor = rgb(255,255,255)
  142. LCOLOR = rgb(106,90,205)
  143. '<center><B>Your colleague Jeanne</B></center>'
  144. '<center><img src="images\etogame\bukli_sec.jpg"></center>'
  145. '(Jeanne and cheerful young blonde)'
  146. if bumtolik = 5:
  147. 'Olga: - Meet, it is our office manager Joan. Zhannochka we responsible for everything. If there are organizational issues addressed her.'
  148. 'Olga: - Zhannochka <<$name>> is our new volunteer.'
  149. 'Jeanne: - Wow! And you young <<$name>> bold. Very pleased to meet you!'
  150. 'You: - Thank you, mutually.'
  151. act 'To the head': gt 'buklinik','dir'
  152. end
  153. if bumtolik > 5:
  154. '- Hello, <<$name>>!'
  155. act 'In the corridor': gt 'buklinik','holl'
  156. end
  157. end
  158. if $ARGS[0] = 'dir':
  159. cla
  160. *clr
  161. set minut += 15
  162. clr
  163. gs 'stat'
  164. fcolor = rgb(0,0,0)
  165. bcolor = rgb(255,255,255)
  166. LCOLOR = rgb(106,90,205)
  167. '<center><B>Your colleague Vera</B></center>'
  168. '<center><img src="images\etogame\bukli_dir.jpg"></center>'
  169. '(Vera overbearing and well-groomed lady)'
  170. if bumtolik = 5:
  171. 'Olga: - And this is our coordinator Vera ...'
  172. 'Vera: - Simply Vera.'
  173. 'Olga: - Vera is not only our coordinator, but the mastermind, she came up with it and created our organization.'
  174. 'You: - Very nice, <<$name>>!'
  175. 'Vera: - Welcome to contact us. (Vera you smile)'
  176. act 'complete familiarity': gt 'buklinik','olga2'
  177. end
  178. if bumtolik > 5:
  179. '- Hello, <<$name>>!'
  180. act 'In the corridor': gt 'buklinik','holl'
  181. end
  182. end
  183. if $ARGS[0] = 'shower':
  184. cla
  185. *clr
  186. set minut += 15
  187. clr
  188. gs 'stat'
  189. fcolor = rgb(0,0,0)
  190. bcolor = rgb(255,255,255)
  191. LCOLOR = rgb(106,90,205)
  192. '<center><B>Mercy Clinic. shower room</B></center>'
  193. '<center><img src="images\etogame\bukli_show.jpg"></center>'
  194. 'Shared shower for guests'
  195. 'Here guests take a shower. Better unnecessarily here not to meddle.'
  196. act 'In the corridor': gt 'buklinik','holl'
  197. end
  198. if $ARGS[0] = 'stol':
  199. cla
  200. *clr
  201. set minut += 15
  202. clr
  203. gs 'stat'
  204. fcolor = rgb(0,0,0)
  205. bcolor = rgb(255,255,255)
  206. LCOLOR = rgb(106,90,205)
  207. '<center><B>Mercy Clinic. dining room</B></center>'
  208. '<center><img src="images\etogame\bukli_stol.jpg"></center>'
  209. 'Dining room for guests'
  210. 'Here guests take their food. Very lean diet, but they do.'
  211. act 'In the corridor': gt 'buklinik','holl'
  212. end
  213. if $ARGS[0] = 'spal':
  214. cla
  215. *clr
  216. set minut += 15
  217. clr
  218. gs 'stat'
  219. fcolor = rgb(0,0,0)
  220. bcolor = rgb(255,255,255)
  221. LCOLOR = rgb(106,90,205)
  222. '<center><B>Mercy Clinic. bedrooms</B></center>'
  223. '<center><img src="images\etogame\bukli_spal.jpg"></center>'
  224. 'Sleeping space for guests.'
  225. 'Who are there only. Alcoholics and homeless, vagrants and drug addicts. There are just people who have nowhere to sleep.'
  226. if bumtolik = 6:
  227. act 'hello': gt 'buklinik_event', 'pos1'
  228. end
  229. act 'In the corridor': gt 'buklinik','holl'
  230. end
  231. if $ARGS[0] = 'olga2':
  232. cla
  233. *clr
  234. set minut += 15
  235. clr
  236. gs 'stat'
  237. fcolor = rgb(0,0,0)
  238. bcolor = rgb(255,255,255)
  239. LCOLOR = rgb(106,90,205)
  240. '<center><B>Your colleague Olga</B></center>'
  241. '<center><img src="images\etogame\bukli_olga.jpg"></center>'
  242. '(Olga - groomed and cute brunette with a kind smile.)'
  243. if bumtolik > 5: '- Hello, <<$name>>!'
  244. if buklinikDay = day: '- Today there is no more work, we can relax.'
  245. ! if bumtolik = 7 and buklinikDay ! day: '- Света, нам нужно помощь <a href="exec:GT ''buklinik_event'',''pos6''">накормить нуждающихся</a>.'
  246. if bumtolik = 5:
  247. bumtolik = 6
  248. 'Olga: - Continue along the corridor beds, showers and a dining room where guests can eat for free. See there is nothing special. Well, that´s all. At the reception we sit two girls - Regina and Karina, you´ve seen them.'
  249. 'We were still coming the other volunteers, but you yourself to meet them at the meeting.'
  250. 'You can look around here, if that appeals to me.'
  251. end
  252. act 'In the corridor': gt 'buklinik','holl'
  253. end
  254. --- buklinik ---------------------------------