glife/locations/gorodok

# gorodok
$metka = $ARGS[0]
$loc = $CURLOC
$metkaStreet = $ARGS[0]
$locStreet = $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 hour >= 16 and AlbFather = 1:gt 'AlbFatherQW'
if hour >= 16 and hour <= 22 and AlbFather = 2 and AlbZaDay + 30 < daystart and year > 2010:
	gt 'AlbStarsEnd'
end

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

if NosovRevenge = 2 and daynosovrevenge + 1 >= daystart:
	cls
	gs'stat'
	'<center><b><font color="maroon"><<$npcName[1]>> <<$npcSurName[1]>></font></b></center>'
	'<center><img src="images/qwest/alter/npc/1.jpg" ></center>'
	'Near the house "Well slut. If you do not want that to video became public, Now let`s go and talk to me."'

	act 'Go to Dimka':
		cls
		NosovRevenge = 3
		minut += 30
		gs 'stat'
		'You went to the house of Dimka. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden. With Dimka you have gone to his room and he closed the door with a key.'

		act 'Go into the room Dima':gt 'dimaHome'
	end

	exit
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>.'

!!!CV edition
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 district <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'
'Aside from residential buildings is <a href="exec:minut += 5 & gt ''garmassiv''">Garage array</a>'

if ArtemBeInHome > 0 and artemblok = 0:'apartment <a href="exec:minut += 15 & gt ''artemhome''">Artem Chebotarev</a>'
if DimaBeHomeOnce = 1 and DimaRudeBlock = 0:'Private house in which he lives <a href="exec:minut += 15 & gt ''dimaGoHome2''">Dimka Nosov</a>'
if katjaFirstKiss >= 1:'Private house in which he lives <a href="exec:minut += 15 & gt ''KatjaHome''">Katja Meynold</a>'

if BeInNatBelHome = 1:
	if hour >= 18 and hour <= 20 and week < 6 or hour >= 8 and hour <= 20 and week >= 6:'The house where the apartment <a href="exec:minut += 15 & gt ''NatBelHome''">Natasha Belova</a>'
end

if BeInJulMilHome = 1:
	if hour >= 18 and hour <= 20 and week < 6 or hour >= 8 and hour <= 20 and week >= 6:'The house where the apartment <a href="exec:minut += 15 & gt ''JuliaMilHome''">Julia Milova</a>'
end

if beinalbinahome > 0:'Luxurious mansion in which he lives <a href="exec:minut += 15 & gt ''albinaporog''">Albina Barlovskaya</a>'

'Urban development enterprise <a href="exec:minut += 15 & gt ''Gshveyfab''">Garment factory named Paris Commune</a>'

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
	if waiting > 0 and waiting <= 120:set minut += waiting

	act 'Take a look at the clock':gt $curloc
end

if StoryLine = 1 and hour >= 8 and hour < 23:
	if cumface > 0:
		sosedrand = rand(0, 3)

		if sosedrand = 0 and sosedday ! day:
			cls

			if sosedknow = 0:
				sosedknow = 1
				sosedday = day
				gs 'stat'
				'Suddenly "Sveta." You turn around and see a neighbor Uncle Misha, he looks at your face with surprise "It`s that on your face?" You blush and hesitate, Stra hand to wipe off the face of sperm. he grins "Well, all clear." and goes on about his business.'

				act 'further':gt curloc

				exit
			end

			if sosedknow > 0:
				sosedday = day
				'Once again you are confronted face to face with Uncle Misha, your neighbor, he chuckled looking at you "Well."'

				act 'further':gt $curloc
			end
		end
	end
end

!!act 'rating':gt 'ratinglist'

--- gorodok ---------------------------------