glife/locations/family

# family
if daystart ! m_day:
	m_day = daystart
	father_go = rand(0, 1)
	mother_go = rand(0, 1)
end

indorf = 0

if indorf_month ! month:
	!!monthly
	indorf_month = month
	dostupindorf = 1
end

if week = 1 and dostupindorf = 1:dostupindorf = 0

if dostupindorf = 1 and ((week = 6 and hour >= 12) or (week = 7 and hour < 20)):
	!!go to the village
	indorf = 1
	father_go = 0
	mother_go = 0
end

if indorf = 1 and sister_opr_indorf = 0:
	sister_opr_indorf = 1
	sister_indorf = rand(0, 1)
end

if indorf = 0:
	sister_opr_indorf = 0
	sister_indorf = 0
end
if sisboyparty_day + 1 = daystart:sister_indorf = 0
if sister_indorf = 1:sisterHere = 0
''

if StoryLine = 1:
	if sisboypartyQW >= 2 and sisboyparty ! 0 and sisboyparty_day + 1 < daystart and randsbPartyDay <= daystart and week >= 4:
		if week = 4:randParty = rand(5,7) & randsbPartyDay = daystart + 4
		if week = 4 and randParty = 5:sisboyparty_day = daystart
		if week = 4 and randParty = 6:sisboyparty_day = daystart + 1
		if week = 4 and randParty = 7:sisboyparty_day = daystart + 2

		if week = 5:randParty = rand(6,7) & randsbPartyDay = daystart + 3
		if week = 5 and randParty = 6:sisboyparty_day = daystart
		if week = 5 and randParty = 7:sisboyparty_day = daystart + 1
		if week = 6:randParty = 7 & randsbPartyDay = daystart + 2 & sisboyparty_day = daystart
	end

	if sisboyparty_day + 1 = daystart and hour > 18 and sisboypartyQW = 1:
		if sisboyparty = 1:sisboyparty = -1
			if sisboyparty = 2:
			cls
			minut += 5
			sisboyparty = -1
			gs 'stat'
			'<center><img src="images/qwest/alter/sisterQW/Party/sisboyQWParty_7.jpg"></center>'
			'You have forgotten to go to a Rexs'' birthday party.'
			'You think, "Oh well, I hope they are not greatly offended."'
			act 'Move away':gt $loc, $metka
			exit
		end
	end

	if sister_indorf = 0:
		if $loc = 'bedrPar':
			sisterHere = 0
			sisterdialog = 1

			if hour < 7:
				sisterHere = 1
				'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in bed.'
			end

			if week < 6:
				if hour = 7:
					sisterHere = 2
					sisterdialog = 2
					'Your sister <a href="exec:GT ''sister''">Anya</a> is getting ready for work.'
				end
			end

			if week >= 6:
				if hour >= 7 and hour < 10:
					sisterHere = 1
					'Your sister <a href="exec:gt ''sistersleep''">Anya</a> is asleep in bed.'
				end

				if hour = 10:
					sisterHere = 2
					sisterdialog = 3
					'Your sister <a href="exec:GT ''sister''">Anya</a> is getting ready to go for a walk.'
				end
			end

			if hour >= 18 and sisboyparty_day + 1 ! daystart:
				sisterHere = 2
				'Your sister <a href="exec:gt ''sister'', ''home''">Anya</a> is sitting on her bed, reading a book.'
			elseif sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
				cls
				minut += 5
				gs 'stat'
				'<center><img src="images/qwest/alter/sisterQW/Party/sisboyQWParty_6_<<rand(1,7)>>.jpg"></center>'
				'Drunk and disheveled, Anya bursts into the room.'
				'You notice that her hair, and all over her clothes she is smeared in sticky sperm.'
				'In this state, she falls on the bed and instantly falls asleep.'
				sisboyparty = 1
				act 'Move away':gt $loc
				exit
			elseif sisboyparty_day + 1 = daystart and hour >= 22:
				sisterHere = 1
				if sisboypartyQW = 1:sisboypartyQW = 2
				if sisboyparty = -1:sisboyparty = 1
				'Your drunken sister Anya asleep in her bed.'
			end
		end
	end

	if indorf = 0:
		if $loc = 'bedrPar2':
			if hour < 6 or hour >= 21:
				'On the bed sleeps your mom and stepfather.'

				if hour = 21:parsexrand = rand(0, 5)
			end
		end

		if $loc = 'sitrPar':
			if hour < 7 or hour >= 21:
				'Sleeping on the couch, your younger brother <a href="exec:GT ''brother''">Kolka</a>.'
			end

			if week < 6:
				if father_go = 0:
					if hour >= 16 and hour < 21:
						'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
					end
				end

				if hour >= 18 and hour < 20:
					if kanikuli > 0:
						'Sitting on the couch your younger brother <a href="exec:GT ''brother''">Kolka</a> is watching TV.'
					else
						'Sitting at the table your little brother <a href="exec:gt ''brother''">Kolka</a> is doing his homework.'
					end
				end
				if hour = 20 or hour = 17:
					'Sitting on the couch your younger brother <a href="exec:gt ''brother''">Kolka</a> is watching TV.'
				end
			end

			if week >= 6:
				if father_go = 0:
					if hour >= 7 and hour < 21:'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
				else
					if hour >= 7 and hour < 16:'Sitting on the couch is your <a href="exec:gt ''father''">stepfather</a> watching TV.'
				end

				if hour >= 18 and hour <= 20:'Sitting on the couch your younger brother <a href="exec:gt ''brother''">Kolka</a> is watching TV.'
			end
		end

		if $loc = 'kuhrPar':
			gs 'dinmother'

			if mother_go = 0:
				if (week < 6 and hour >= 16 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21):
					*pl dyneval($d_mother[rand(4,8)])
				end
			else
				if (week < 6 and hour >= 17 and hour < 21) or (week >= 6 and hour >= 7 and hour < 21 and hour ! 16):
					*pl dyneval($d_mother[rand(4,8)])
				end
			end
		end

		if $loc = 'korrPar':
			!! for future code I guess
		end

		if $loc = 'vokzalG':
			!! for future code I guess
		end

		if $loc = 'gdk':
			if week < 6:
				if hour >= 16 and hour < 18:
					'Your sister <a href="exec:GT ''sister'', ''gdk''">Anya</a> is sitting in a group of boys and girls, drinking beer.'
				end
			elseif week >= 6:
				if hour >= 11 and hour < 18:
					'Your sister <a href="exec:GT ''sister'', ''gdk''">Anya</a> is sitting in a group of boys and girls, drinking beer.'
				end
			end
		end

		if $loc = 'gschool':
			if (week < 6 and hour >= 15 and hour <= 17) or ((week >= 6 or kanikuli > 0) and hour >= 7 and hour <= 17):
				'On the field near the school your <a href="exec:gt ''brother''">brother</a> plays football.'
			end
		end
	end
end

--- family ---------------------------------