# gpoli
set minut = minut + 5
frost=0
'<center><B><font color=maroon>clinic</font></B></center>'
'<center><img src="pic/poli.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'Go_Out':gt'gorodok'

if hour>=6 and hour<=21:
if gpoliuborka = 0:
     act 'read ads':
	 cla
	 *clr
	 set minut = minut + 5
	 set gpoliuborka = 1 
	 '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.'
	 act 'move_away':gt 'gpoli'
     end
end
if gpoliuborka = 1 and hour >=8 and hour <=21:
	act 'Ask the chief doctor about work as a cleaner':
	 cla
	 *clr
	 gpoliuborka = 2
	 set minut = minut + 15
	 gs 'stat'
	 '<center><img src="pic/poli.jpg" ></center>'
	 '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.'
	 act 'Get_Away': gt 'gpoli'
	 end
end

if gpoliuborka > 1 and hour >=8 and hour <=21 and gpolicleanday ! day:
	act 'to work as a cleaner':
	 cla
	 *clr
	 set gpolicleanday = day
	 set minut = minut + 60
	 set manna = manna - 15
	 set money = money + 100
	 set sweat = sweat + 2
	 gs 'stat'
	 '<center><img src="pic/clener1.jpg" ></center>'
	 '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.'
	 act 'finish the job': gt 'gpoli'
	 ginrand=rand(0,1)
	     if Gspravka<10 and ginrand=0:
	     'When you remove the gynecologist `s office, he goes out of the room leaving you alone.'
	         if vagina > 0:
	             act 'fake certificate':
	             cls
	             Gspravka=30
		         GspravkaT=1
	             gs'stat'
	             'You pull out a quick form of a table reference and printing and printing slap FAQ.'
	             'After that. Help text from the gynecologist you write a little later on.'
	             act 'finish the job': gt 'gpoli'
	             end
	         end
	     end
	 end
end

     if health < (vital*10 + stren*5) and money >= 1000:
	     act 'treat health 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set health = vital*10 + stren*5+1000
		 'The doctor did give you an injection and you immediately become much better'
		 act 'GO_OUT':gt $curloc
		 end
	 end
     if willpower < intel*5 + will*5 and money >= 1000:
	     act 'Reception at the psychotherapist 1 sput':
		 cla
		 set money = money - 1000
		 set minut = minut + 60
		 set willpower = intel*5 + will*5+1000
		 set manna = (intel*magik) + magik*100 + vital*10 + rikudo
		 'You lie down on a couch in the therapist and told him about his troubles and you immediately become much happier.'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
	 
	 if StoryLine>0 and SchoolAtestat=0 and Gspravka<3:
	 	 act 'Go to the gynecologist for help':
		 cls
		 set minut = minut + 15
		 '<center><img src="pic/gin.jpg" ></center>'
		 'You lay down on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
		     if vagina > 0:
		     Gspravka=30
		     GspravkaT=2
		     'Gynecologist wrote Help, that you are not a virgin.'
		     end
		     if vagina = 0:
		     Gspravka=30
		     GspravkaT=1
		     'Gynecologist wrote Help, that you are a virgin.'
		     end
		     if preg>0:
		     'The gynecologist told you, you are pregnant.'
		     end
		 gs'stat'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
	 if sick >= 1:
	     act 'Go to the therapist uchastkovumu':
		 cla
		 set minut = minut + 15
		 sick=0
		 gs'stat'
		 'You`ve come to the reception to uchastkovumu therapist and doctor has prescribed pills for cold.'
		 act 'GO_OUT':gt $curloc
		 end
	 end
	 
else
'health center is closed.'
end
--- gpoli ---------------------------------

