# gorodok
$metka = $ARGS[0]
$loc = $CURLOC
litltown = 1
cla
*clr
'<center><H4>The Village</H4></center>'
'<center><img src="images\etogame\gorodok.jpg"></center>'
'A quiet province village, if you had no idea of you where abouts, you couldn''t differ this village from others. It''s tallest building is the chuches tower.'
if AlbFather >= 1:
if AlbFaterBlackTime = 0: AlbFaterBlackTime = totminut + 2880
'You can see voting posters on the walls. They say, "Vote for Boris Barlovsky!".'
end

if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and rand(1,100) > 90 and hour >= 16 and AlbFather = 1:
gt 'AlbFatherQW'
end

if StoryLine > 0 and hour < 5 and motherWorry = 0:
motherWorry = 1
end

set gorodokwhorerand = RAND(1,5)
if gorodokwhore >= 2 and gorodokwhore < 6 and gorodokwhorerand >= 4: 'You catch yourself on people´s views, some are trying to find you in someone, and maybe learn. Occasionally you hear people chuckle. Looks like someone found out about your adventures.'
if gorodokwhore >= 6 and gorodokwhore < 10 and gorodokwhorerand >= 4: 'People look at you with a grin, someone makes vulgar gestures towards you some hints on your adventures.'
if gorodokwhore >= 10 and gorodokwhorerand >= 4: 'All around you will recognize whore. Some came by and slap you on the ass. Grandmother on the benches name-calling you whore.'
set gorodokstreetsexrand = RAND(1,20)
if gorodokwhore > 5 and gorodokstreetsexrand = 20:
'To you a guy came up and offered to move into the bushes to get laid for a hundred'
act 'Agree': gt 'gevent','5'
end

gs 'stat'
gs 'time'

if car > 0 and cardrive = 20:
set cardrive = 20
'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
end

if StoryLine = 1 and ParHomeBlock = 0: 'Your home is in one of the houses, it''s an <a href="exec: minut += 15 & GT ''korrPar''">apartment</a> your parents own.'
'The <a href="exec:minut += 15 & GT ''vokzalG''">Train Station</a>.'
'The <a href="exec:minut += 15 & GT ''gpoli''">Clinic</a>.'
if hour >= 8 and hour <= 20: 'The <a href="exec: minut += 15 & GT ''gaptek'',''start''">Drugstore</a>.'
if hour >= 8 and hour <= 17: '<a href="exec: minut += 3 & GT''barbershop'',''start''">The local barbershop</a>' 
if hour >= 8 and hour <= 22: 'A kiosk selling <a href="exec: dynamic $kiosksig">cigarettes.</a>'
'<a href="exec:GT ''zaprF'',''start''">Gas Station</a>'
'This disticts <a href="exec:GT ''gdk''">House of Culture.</a>'
if SchoolBlock = 0: 'Local <a href="exec: GT ''gschool''">school</a>'
if hour >= 7 and hour <= 18: 'The <a href="exec: GT ''etoexhib'',''pos20''">Vocational School</a>'
if hour >= 8 and hour <= 20: 'The only major store in town is the <a href="exec: GT ''shop'',''start''">supermarket</a>.'
'Small city <a href="exec:GT ''gskver'',''park''">park</a>, in which people are going'
if workPTU > 2: act '<b>Go to the hostel</b>': gt 'etoexhib','pos40'

	act 'Wait':
	cla
	waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Take a look at the clock': gt curloc
	end
--- gorodok ---------------------------------

