212_gpoli 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
  1. # gpoli
  2. set minut += 5
  3. frost = 0
  4. '<center><B><font color = maroon>Clinic</font></B></center>'
  5. '<center><img src="images\etogame\poli.jpg"></center>'
  6. clr
  7. gs 'stat'
  8. fcolor = rgb(0,0,0)
  9. bcolor = rgb(255,255,255)
  10. LCOLOR = rgb(106,90,205)
  11. act 'Exit': gt 'gorodok'
  12. if hour >= 6 and hour <= 21:
  13. if gpoliuborka = 0:
  14. act 'Read listing':
  15. cla
  16. *clr
  17. set minut += 5
  18. set gpoliuborka = 1
  19. '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.'
  20. act 'Move away': gt 'gpoli'
  21. end
  22. end
  23. if gpoliuborka = 1 and hour >= 8 and hour <= 21:
  24. act 'Ask the chief doctor of the work as a cleaner':
  25. cla
  26. *clr
  27. gpoliuborka = 2
  28. set minut += 15
  29. gs 'stat'
  30. '<center><img src="images\etogame\poli.jpg"></center>'
  31. '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.'
  32. act 'Leave': gt 'gpoli'
  33. end
  34. end
  35. if gpoliuborka > 1 and hour >= 8 and hour <= 21 and gpolicleanday ! day:
  36. act 'To work as a cleaner':
  37. cla
  38. *clr
  39. set gpolicleanday = day
  40. set minut += 60
  41. set manna -= 15
  42. set money += 25
  43. set sweat += 2
  44. gs 'stat'
  45. '<center><img src="images\etogame\clener1.jpg"></center>'
  46. '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.'
  47. act 'Finish the job': gt 'gpoli'
  48. ginrand = rand(0,1)
  49. if Gspravka < 3 and ginrand = 0:
  50. 'When you remove the gynecologist office, he goes out of the room leaving you alone.'
  51. if vagina > 0:
  52. act 'Help forge':
  53. cls
  54. Gspravka = 7
  55. GspravkaT = 1
  56. gs 'stat'
  57. 'You quickly pull out of the table form and print reference and spank seal on the certificate.'
  58. '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.'
  59. act 'Finish the job': gt 'gpoli'
  60. end
  61. end
  62. end
  63. end
  64. end
  65. if health < (vital*10 + stren*5) and money >= 1000:
  66. act 'Treat health 1,000 rubles':
  67. cla
  68. set money -= 1000
  69. set minut += 60
  70. set health = vital * 10 + stren * 5 + 1000
  71. 'The doctor did give you a shot and you immediately felt much better'
  72. act 'QUIT': gt $curloc
  73. end
  74. end
  75. if willpower < intel*5 + will*5 and money >= 1000:
  76. act 'Receiving a therapist 1,000 rubles':
  77. cla
  78. set money -= 1000
  79. set minut += 60
  80. set willpower = intel * 5 + will * 5 + 1000
  81. set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  82. 'You lie down on a couch at the therapist and told him about his troubles, and you immediately become much happier.'
  83. act 'QUIT': gt $curloc
  84. end
  85. end
  86. if StoryLine > 0 and SchoolAtestat = 0 and Gspravka < 3:
  87. act 'Go to the gynecologist for help':
  88. cls
  89. set minut += 15
  90. '<center><img src="images\etogame\gin.jpg"></center>'
  91. 'You lay on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
  92. if vagina > 0:
  93. Gspravka = 7
  94. GspravkaT = 2
  95. 'Help gynecologist wrote that you are not a virgin.'
  96. end
  97. if vagina = 0:
  98. Gspravka = 7
  99. GspravkaT = 1
  100. 'Help gynecologist wrote that you are a virgin.'
  101. end
  102. if preg > 0:
  103. 'Gynecologist told you that you are pregnant.'
  104. end
  105. gs 'stat'
  106. act 'QUIT': gt $curloc
  107. end
  108. end
  109. if sick >= 1:
  110. act 'Go to the therapist uchastkovumu':
  111. cla
  112. set minut += 15
  113. sick = 0
  114. gs 'stat'
  115. 'You came to the reception to uchastkovumu therapist and doctor has prescribed pills for colds.'
  116. act 'QUIT': gt $curloc
  117. end
  118. end
  119. else
  120. 'Clinic closed.'
  121. end
  122. --- gpoli ---------------------------------