# Alphabet
ACT 'In the corridor':
	gt 'floor'
END
'<center><B>dorm room</B></center>'
'<center><img src="images\etogame\obskom.jpg"></center>'
clr
gs 'stat'
'Narrow room with a single window, wooden floor, three <a href="exec:GT ''Beds'',''choice''">beds</a>, small <a href="exec:GT ''table''">table</a> and a few chairs. At the entrance stands the old <a href="exec:GT ''cupboard''">wardrobe</a> to which to attach the old <a href="exec:GT ''zerkaloO''">mirror</a>.'
if palto = 1: 'At the entrance hangs a simple Chinese women´s down jacket'
if palto = 2: 'At the entrance hangs a woman´s coat'
if palto = 3: 'At the entrance hangs a dear lady´s coat'

if daystart = 0: Set daystart = 1
if house = 1 and student = 0: Set house = 0 & 'You are being evicted from their dormitory if right now you find yourself through the computer place to stay, you will remain without a roof over your head at the first exit from the hostel.'

act 'roommate Vic':
cla
clr
gs 'stat'
'Vick sits on her bed and as always paints her nails.'
act 'Room': gt 'Alphabet'
	if час < 23:
		act 'Chat with Vika (1:00)':
		cla
		Set час += 1
		Set Vika += 5
		Set kosmskill += 1
		if repa < 30: Set repa += 1
		set talkrand = RAND(0,18)
		if talkrand = 0: 'You started talking with Vika, she tells you about the boys she met, about parties, about cosmetics.'
		if talkrand = 1: 'Wick says she was in a cafe and invited her to dance even then the guy who paid her bill.'
		if talkrand = 2: 'Wick says she worked as a waitress at a strip bar, quite lucrative job for students, although customers are very pristavuchi.'
		if talkrand = 3: 'Vic tells you that several sections of beautiful girls running at the college went on a European level sports competitions and earn big money, but of course that Vick priznaetsya her laziness so they plow.'
		if talkrand = 4: 'Vick says that one of her friends flew from a guy who did not have time to pull out of it. But Vick smarter, she buys in a pharmacy contraceptives, 100% satisfaction guarantee.'
		if talkrand = 5: 'Vick says that to stay, buy an apartment or a car can be only having a PC, via the Internet.'
		if talkrand = 6: 'Vic tells how one of her friend, bought a car, took place in the market and hired a saleswoman. He can only buy the goods in stock and bring it to market themselves and money flowing to it.'
		if talkrand = 7: 'Vic tells how she once winter went outside without a coat and a bad cold.'
		if talkrand = 8: 'Vic tells about a girlfriend who all did not know how to lose weight, then started going to the sauna and lose weight. True it is costly.'
		if talkrand = 9: 'Vick says that before she was fond of diets, but they deteriorated skin and went pryshi, and start to hurt, now Vick cracks for three and only become more beautiful.'
		if talkrand = 10: 'Vic says that she used to go to dances and the Internet has managed to get into a nightclub tantsorshey, but she quickly tired of it.'
		if talkrand = 11: 'Vick says in the park, she accidentally went to the panel and she was offered sex for money, but do not spoil the reputation of Vic wanted, besides a large number of partners from start to age faster.'
		if talkrand = 12: 'Vic tells how she acted naked in studio, not a dusty job, but reputation suffers.'
		if talkrand = 13: 'Vick told her friend as one that everyone perceived as a slut arranged several parties in the cafe at his own expense, then it refers to become better.'
		if talkrand = 14: 'Vic tells a horror story about how one pretty girl did not wash his feet and did not shave, then became so terrible to her for all obbegat kilometer.'
		if talkrand = 15: 'Vic says that she buys tampons always with a reserve, and then if they go without a monthly then quickly prevratishsya in slut.'
		if talkrand = 16: 'Vic tells how one of her guys wanted anal sex, but she was not in possession of Vaseline.'
		if talkrand = 17: 'Vick says the summer sunning herself on the beach, for this truth had her buy a swimsuit, but it came in handy in the winter and go to the pool. The pool is not a bad tool to maintain a healthy body.'
		if talkrand = 18: 'Vic tells an interesting psychological effect is in the stores do not notice things that are not short of money.'
		act 'Room': gt 'Alphabet'
		end
		if Vika > 10:
		cla
		if vikavecher = 0: Set vikavecher = 1
		'Vic tells you that the party is planned, as well, and always on Fridays. You can go there with Vika'
		act 'Go to a party': gt 'party','start'
		act 'I have business': gt 'Alphabet'
		end
		if Vika > 10 and Vzaem = 0:
			act 'Borrow from Wiki 1000 rubles':
			cla
			Set money += 1000
			Set Vzaem = 1
			'Vick fumbled in her purse and gave you 1000 rubles in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if Vika > 10 and Vzaem = 1 and money >= 1000:
			act 'Giving Vick debt 1,000 rubles':
			cla
			Set money -= 1000
			Set Vzaem = 0
			Set Vika += 5
			'You gave Vick 1000 rubles taken you in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if vikasex > 0 and Vika > 20:
			act 'Offer fun':
			cla
			Set час += 1
			Set $girl = 'Vetch'
			gt 'lesb','start'
			end
		end
	end
end

act 'roommate Galya':
cla
clr
gs 'stat'
'Galya overlaid textbooks and bison.'
act 'Room': gt 'Alphabet'
	if час < 23:
		act 'Engage with Galya (1:00)':
		cla
		Set час += 1
		Set intel += 1
		Set Gala += 5
		if repa > 1: Set repa -= 1
		'You overlaid textbooks and began to prepare together with Galya.'
		act 'Room': gt 'Alphabet'
		end
		if Gala > 10 and Gzaem = 0:
			act 'Borrow from Ghali 1000 rubles':
			cla
			Set money += 1000
			Set Gzaem = 1
			'Galya rummaged in my purse and gave you 1000 rubles in debt'
			act 'Room': gt 'Alphabet'
			end
		end
		if Gala > 10 and Gzaem = 1 and money >= 1000:
			act 'Giving Gala 1000 rubles debt':
			cla
			Set money -= 1000
			Set Gzaem = 0
			Set Gala += 5
			'You gave Gale 1000 rubles taken you in debt'
			act 'Room': gt 'Alphabet'
			end
		end

	end
end

!act 'Test':
!Set newboy = 1
!gs 'boy'
!gs 'boyopred'
!act 'Room': gt 'Alphabet'
!end
--- Alphabet ---------------------------------