# 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 sisboyparty = 2 and hour > 18 and sisboypartyQW = 1:
cls
minut += 5
sisboyparty = -1
gs 'stat'
'
'
'You have forgotten to come to a party in honor of the birthday Rex.'
'- Oh well, I hope they are not offended me greatly...'
act 'Move away':gt $loc, $metka
exit
end
if sisboyparty_day + 1 = daystart and (sisboyparty = 2 or sisboyparty = 1) and hour > 18 and sisboypartyQW > 1:
if sisboyparty = 1:sisboyparty = -1
if sisboyparty = 2:
cls
minut += 5
sisboyparty = -1
gs 'stat'
''
'You forgot to come to the party.'
'- Oh well, I hope they at me will not mind much...'
act 'Move away':gt $loc,$metka
exit
end
end
if sister_indorf = 0:
if $loc = 'bedrPar':
sisterHere = 0
if hour < 7:
sisterHere = 1
'Your sister Anja asleep in bed.'
end
if week < 6:
if hour = 7:
sisterHere = 2
'Your sister Anja is going to work.'
end
end
if week >= 6:
if hour >= 7 and hour < 10:
sisterHere = 1
'Your sister Anja asleep in bed.'
end
if hour = 10:
sisterHere = 2
'Your sister Anja going for a walk.'
end
end
if hour >= 18 and sisboyparty_day + 1 ! daystart:
sisterHere = 2
'Your sister Anja sitting on bed and reading a book.'
elseif sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
cls
minut += 5
gs 'stat'
''
'Drunk, disheveled Anja bursts into the room.'
'You notice that her hair, All clothes are smeared with sticky sperm.'
'In this form,, she falls on the bed and falls asleep instantly.'
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 Anja asleep in bed.'
end
end
end
if indorf = 0:
if $loc = 'bedrPar2':
if hour < 6 or hour >= 21:
'On the bed sleeping mom and stepfather.'
if hour = 21:parsexrand = rand(0, 5)
end
end
if $loc = 'sitrPar':
if hour < 7 or hour >= 21:'Sleeps on the couch your younger brother Kolka.'
if week < 6:
if father_go = 0:
if hour >= 16 and hour < 21:'Sitting on the couch stepfather and watching TV.'
end
if hour >= 18 and hour < 20:'Sitting at the table your little brother Kolka and teaches lessons.'
if hour = 20:'Sitting on the couch your younger brother Kolka and watching TV.'
end
if week >= 6:
if father_go = 0:
if hour >= 7 and hour < 21:'Sitting on the couch stepfather watching TV.'
else
if hour >= 7 and hour < 16:'Sitting on the couch stepfather watching TV.'
end
if hour >= 18 and hour <= 20:'Sitting on the couch your younger brother Kolka and watching TV.'
end
end
if $loc = 'kuhrPar':
if week < 6:
if mother_go = 0:
if hour >= 16 and hour < 21:'Stands near the stove Mom and that it cooks.'
else
if hour >= 17 and hour < 21:'Near the stove stands Mom and that it is preparing.'
end
end
if week >= 6:
if mother_go = 0:
if hour >= 7 and hour < 21:'Stands near the stove Mom and that it cooks.'
else
if (hour >= 7 and hour < 16) or (hour >= 17 and hour < 21):'Near the stove stands Mom and that it is preparing.'
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 Anja sitting in the company of beautiful girls and guys drinking beer.'
end
if week >= 6:
if hour >= 11 and hour < 18:'Your sister Anja sitting in the company of beautiful girls and guys drinking beer.'
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):
if hour >= 15 and hour <= 17:'On the football field near the school your brother plays futbol.'
end
end
end
end
--- family ---------------------------------