glife/locations/261_gpoli

# gpoli
<<<<<<< 261_gpoli
set minut += 5
frost = 0
'<center><B><font color = maroon>Clinic</font></B></center>'
'<center><img src="images\etogame\poli.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
=======
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)
>>>>>>> 261_gpoli
LCOLOR = rgb(106,90,205)


<<<<<<< 261_gpoli
act 'Exit': gt 'gorodok'

if hour >= 6 and hour <= 21:
if gpoliuborka = 0:
	act 'Read listing':
	cla
	*clr
	set minut += 5
	set gpoliuborka = 1
	'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.'
	act 'Move away': gt 'gpoli'
	end
end
if gpoliuborka = 1 and hour >= 8 and hour <= 21:
	act 'Ask the chief doctor of the work as a cleaner':
	cla
	*clr
	gpoliuborka = 2
	set minut += 15
	gs 'stat'
	'<center><img src="images\etogame\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 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.'
	act 'Leave': gt 'gpoli'
	end
=======
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
>>>>>>> 261_gpoli
end

<<<<<<< 261_gpoli
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 += 60
	set manna -= 15
	set money += 25
	set sweat += 2
	gs 'stat'
	'<center><img src="images\etogame\clener1.jpg"></center>'
	'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.'
	act 'Finish the job': gt 'gpoli'
	ginrand = rand(0,1)
		if Gspravka < 3 and ginrand = 0:
		'When you remove the gynecologist office, he goes out of the room leaving you alone.'
		if vagina > 0:
		act 'Help forge':
		cls
		Gspravka = 7
			GspravkaT = 1
		gs 'stat'
		'You quickly pull out of the table form and print reference and spank seal on the certificate.'
		'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.'
		act 'Finish the job': gt 'gpoli'
		end
		end
		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
>>>>>>> 261_gpoli
end

<<<<<<< 261_gpoli
	if health < (vital*10 + stren*5) and money >= 1000:
		act 'Treat health 1,000 rubles':
		cla
		set money -= 1000
		set minut += 60
		set health = vital * 10 + stren * 5 + 1000
		'The doctor did give you a shot and you immediately felt much better'
		act 'QUIT': gt $curloc
		end
	end
	if willpower < intel*5 + will*5 and money >= 1000:
		act 'Receiving a therapist 1,000 rubles':
		cla
		set money -= 1000
		set minut += 60
		set willpower = intel * 5 + will * 5 + 1000
		set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
		'You lie down on a couch at the therapist and told him about his troubles, and you immediately become much happier.'
		act 'QUIT': gt $curloc
		end
	end


	if StoryLine > 0 and SchoolAtestat = 0 and Gspravka < 3:
		act 'Go to the gynecologist for help':
		cls
		set minut += 15
		'<center><img src="images\etogame\gin.jpg"></center>'
		'You lay on the examination table and pushed his feet. Gynecologist began to examine your vagina.'
			if vagina > 0:
			Gspravka = 7
			GspravkaT = 2
			'Help gynecologist wrote that you are not a virgin.'
			end
			if vagina = 0:
			Gspravka = 7
			GspravkaT = 1
			'Help gynecologist wrote that you are a virgin.'
			end
			if preg > 0:
			'Gynecologist told you that you are pregnant.'
			end
		gs 'stat'
		act 'QUIT': gt $curloc
		end
	end

	if sick >= 1:
		act 'Go to the therapist uchastkovumu':
		cla
		set minut += 15
		sick = 0
		gs 'stat'
		'You came to the reception to uchastkovumu therapist and doctor has prescribed pills for colds.'
		act 'QUIT': gt $curloc
		end
	end

else
'Clinic closed.'
=======
     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.'
>>>>>>> 261_gpoli
end
--- gpoli ---------------------------------