# sister
!!model Megan Vale Valentina Azarov
sisterAge = age + 2
gs 'stat'
'
Anya'
''
'Your sister Anja bit older than you. She is <> years old. She graduated from high school, but didn''t go to university and now works at the supermarket.'
gs 'dinsister'
dynamic $sischecks
if $ARGS[0] = 'gdk':
!Near the club with friends
if sister < 40:
'"What do you want? Fuck off!" Anya and her friends laugh and point at you, until you leave them alone.'
elseif sisboypartyQW < 2 and sisboyparty = 2 and sisboyparty_day + 1 = daystart:
cla
'Anya and some of her friend are dressed up organizing themself before going to the party. Anya sees you and waves you to her.'
act 'Go to the party':gt 'sisterQW','sisboyQW_party'
elseif sisboypartyQW >= 2 and sisboyparty = 2 and sisboyparty_day + 1 = daystart:
cla
'A merry group of friends have gathered for another boozy party at Rexs.'
act 'Go to the party':dynamic $party_pre_conditions
elseif sister >=40:
cla
'Anya sits with some girls and boys, drinking beer. "Hello <<$nickname>>." Anya smiles. "Want some pivasom?"'
act 'Drink beer':
cls
minut += 60
sister += 5
alko += 3
cumspclnt = 2
gs 'cum_cleanup'
fbreath = 0
gs'stat'
if AniaFrends >= 1:
gt'annafrends'
elseif AniaFrends = 0:
AniaFrends = 1
'You met with Anyas friends. They are all her former classmates. There''s small and nimble Lena, Ira who is constantly confused, a tall athletic guy, whom everyone calls Rex, and a red-haired lanky guy named Roma. After the introductions you sit drinking beer and chatting with Anya and her friends.'
end
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
if sisboyparty = 2 and sisboyparty_day + 1 = daystart and hour = 17 and minut >= 30:act 'Go to the party':gt'sisterQW','sisboyQW_party'
end
act 'Move away':SiSgdk = 0 & gt $loc, $metka
exit
end
!Terms of the campaign to the party
$party_pre_conditions ={
cla
*clr
minut += 5
gs'stat'
if rex <= 80:
''
if GorSlut < 2 and mesec <= 0 and manna >= ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and alko < 3 and spdirtyv = 0 and spdirtyc = 0:
'"Hello <<$name>>, Today we''re going to a party to at Rexs, Are you with coming with us?"'
act 'Yes':gt 'sbReksHome','party'
act 'Decline':
cla
*clr
minut += 5
sisboyparty = -1
gs'stat'
''
'"I would love, but I have a lot of homework, I`m sorry."'
'"Don''t worry, maybe next time you can come."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
elseif GorSlut >= 2:
'"<<$name>>, in town we heard all sorts of rumors about you, and the guys have all heard them too, it is better that you don''t come to you party, things might get nasty."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif mesec > 0 or manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100:
'"Hello <<$name>>, Today we''re going to a party at Rexs, Are you with us?"'
'"Sorry Anya, I''m not in the mood today, you go without me."'
'"You do look a little pale sis, go home and get some rest."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif alko >= 3:
'"<<$name>>, how the hell did you get so drunk already? I was going to invite you to the party, but you look like you have already been. Go home and sleep it off."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif spdirtyv > 0 or spdirtyc > 0:
'"My God, you''ll get yourself a reputation, go home and wash that off, quickly."'
'You feel a little ashamed that your sister has seen you looking like this in public.'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
end
if rex > 80:
''
if GorSlut < 2 and mesec <= 0 and manna >= ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and alko < 3 and spdirtyv = 0 and spdirtyc = 0:
'"Baby, let`s go to my place, once again I am hosted a cool hang out."'
act 'Accept':gt 'sbReksHome','party'
act 'Decline':
cla
*clr
minut += 5
sisboyparty = -1
gs'stat'
''
'"Sorry Rex, I have a lot of homework, I would love to but I don''t want to fail my exams."'
'"Well, go on then, but next time you definitely come, okay?"'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
elseif GorSlut >= 2:
'"Shit, <<$name>> everywhere people say you are a fucking whore. What is this garbage, <<$name>>, I thought we were an item, and things were getting serious, and you''re fucking around?"'
'"I do not know what came over me, I was not myself, please forgive me, if you can."'
'"Listen, everything`s OK, but let''s just be friends and forget all that we had. Okay?"'
'"Okay..."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif mesec > 0 or manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100:
'"Sorry Rex, sweetie, I''m not feelin too good today, you go without me."'
'"Pancake, I do not want to leave you alone, but I need to go with the guys, take care, and do not be sad."'
'Rex gives you a gentle kiss on your cheek and leaves.'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif alko >= 3:
'"<<$name>>, are you drunk? I wanted to invite you to the party, but you look like you just left a party. Go home and sleep it off."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
elseif spdirtyv > 0 or spdirtyc > 0:
'"Shit, <<$name>> you are covered in semen. What is this garbage, <<$name>>, I thought we were an item, and things were getting serious, and you''re fucking around?"'
'"I do not know what came over me, I was not myself, please forgive me, if you can."'
'"Listen, everything`s OK, but let''s just be friends and forget all that we had. Okay?"'
'"Okay..."'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
end
}
act 'Move away':gt $loc, $metka
if hour >= 7 and hour < 24:
if sister > 65 and mesec > 0 and preg = 0 and tampon = 0 and narkossister = 0:
act 'Ask for a tampon':
'You tell your sister that you are menstruating and have no tampons. She looks at you knowingly, brings some of hers and recommends that next time you take care of this in advance.'
tampon=3
sister -= 15
minut += 3
cla
act 'Move away':gt $loc, $metka
exit
end
end
act 'Chat':
cls
minut+=rand(10,15)
sister+=1
gs'stat'
'Anya'
''
if sister < 20:'Your relationship with your sister is scandalous.'
if sister >= 20 and sister < 40:'Your relationship with your sister is tense.'
if sister >= 40 and sister < 60:'You and your sister have a normal relationship.'
if sister >= 60 and sister < 80:'You and your sister have a good relationship.'
if sister >= 80:'You have a great relationship with your sister.'
''
!sisboyparty
!-1 - don`t go to the party
!0 - `t know about Vecherinka
!1 - knows about the parties
!2 - agreed to go to the party
if sisboypartyQW >= 2 and sisboyparty = 1 and sisboyparty_day = daystart:
'"Listen, <<$name>>, Rexs apartment is available tomorrow and he''s having a party, do you want to go?"'
act 'Yes':
cls
minut += 5
sisboyparty = 2
gs'stat'
''
'You agree to go to the party.'
'"Awesome <<$name>>, it`ll be fun. We will meet at the community center, don`t forget to be there before 18:00, otherwise we will leave without you."'
'With these words, your sister hugs you and kisses you on the cheek.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
act 'No (study)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You turn down the invitation.'
'"Sorry Anya, I would love to, but I can''t get behind at school. I have homework and books to read, you know what it''s like."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
if bronzebeg > 0 or silverbeg > 0 or goldbeg > 0:
act 'No (training)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You refuse to go to the party.'
'"I would love to, but I have competition to prepare for, I have to train. One day I could be a great athlete, not like you lazy bones."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
end
if volleyboll >= 100:
act 'No (volleyball)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You refuse to go to the party.'
'"I can''t, the coach does not allow my to stay out late, and drinking is also prohibited."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
end
exit
end
act 'Further':SiSgdk = 0 & gt'sister'
if sister<20:
dynamic $d_sister[1]
exit
elseif sister>=20 and sister<40:
dynamic $d_sister[2]
exit
elseif sister >=40:
dynamic $d_sister[3]
end
end
if sisterLesb = 2:
cls
minut += 5
gs'stat'
''
'You`re both embarrassed after what happened that night, and can not look into each other`s eyes, finally Anya speaks with you.'
'"<<$name>>," with a smile she tells you, "Well, you`re a fool, I thought you liked guys, and I always found it much more pleasant to handle men."'
'You look at Anya blushing, "Forgive me, I was so worked up, I just could not control myself, I do not know what came over me."'
'"Well, I do not mind, so you sometimes lose control of yourself." She smiles slyly, You smile at her...'
sisterLesb = 3
act 'Finish':SiSgdk = 0 & gt'sister'
exit
end
if sisboyQW = 0 and sister >= 40:
act 'Ask about her boyfriend':
cls
minut += 5
sister += 2
sisboyQW = 1
gs'stat'
'Anya'
''
'You asked Anya about her boyfriend. She smiles.'
'"Well, I have a boyfriend. Although nothing serious. He is more of a friend who I have sex with."'
'"Awesome, Now when I know out about it, you simply must introduce me to him."'
'"Good sister, we hang out in the evenings at the community center. Meet me there and I''ll introduce you to him."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
elseif sisboyQW >= 2 and sister >= 40 and sisboytrioQW > -1 and sisboytrioDayOtkaz <= daystart and sisboypartyQW < 2:
act 'Talk about Roma':
cls
minut += 5
sisboyrand = RAND(1,10)
gs'stat'
!sisboyparty
!-1 - don`t go to the party
!0 - `t know about Vecherinka
!1 - knows about the parties
!2 - agreed to go to the party
if sisboytrio >= 5 and sisboyparty = 0 and sisboyparty_day ! daystart:
cls
minut += 5
sisboyparty = 1
sisboyparty_day = daystart
gs'stat'
''
'"<<$name>>, one of my friends birthday is tomorrow and he''s having a party, he asked me to invite you."'
'"Oh, Anya I don''t know, they are your friends and I haven''t got to know the boys, I basically just talked to the girls."'
'"Come on, he really wants you to go, I think he might like you. So will you come?"'
act 'Yes':
cls
minut += 5
sisboypartyQW = 1
sisboyparty = 2
gs'stat'
''
'You agree to go to the birthday party.'
'"Awesome <<$name>>, it`ll be fun. We will meet at the community center, don`t forget to be there before 18:00, otherwise we will leave without you."'
'With these words, your sister hugs you and kisses you on the cheek.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
act 'No (study)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You refuse to go to the birthday party.'
'"Sorry Anya, I would love to, but I can''t get behind at school. I have homework and books to read, you know what it''s like."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
if bronzebeg > 0 or silverbeg > 0 or goldbeg > 0:
act 'No (training)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You refuse to go to the birthday party.'
'"I would love to, but I have competition to prepare for, I have to train. One day I could be a great athlete, not like you lazy bones."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
end
if volleyboll >= 100:
act 'No (volleyball)':
cls
minut += 5
sisboyparty = -1
gs'stat'
''
'You refuse to go to the birthday party.'
'"I can''t, the coach does not allow my to stay out late, and drinking is also prohibited."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
end
exit
end
if sisboyrand >= 8 and sisboyQW = 2 and sisboyday ! daystart:
'Anya'
''
'Anya takes a long and hesitant look at you, and eventually decides to ask you.'
'"<<$name>> could you spend an hour tomorrow after 18.00 going for a walk, Roma wants to visit me here and... well, you know what I mean.'
'Your sister is blushing a little and looks at you with pleading eyes.'
act 'Of course':
cls
minut += 5
sister += 10
sisThank = 1
sisboyQW = 3
sisboyday = daystart
gs'stat'
''
'"Certainly sister, I understand, I will go for a walk late at night. Only do not be too loud, if Kolka hears you it will blow his tiny little mind."'
'You and Anya laugh and she joyfully hugs you saying, "You`re my best."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
act 'No':
cls
sister -= 10
minut += 5
sisboyday = daystart
gs'stat'
''
'"Sorry Anya, I need to study in the evening."'
'"Fine." Anya turns away angrily, and buries her head in her book.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
elseif sisboyrand >= 8 and (sisboyQW = 4 or sisboyQW = 6 or sisboyQW = 8) and sisboyday ! daystart and sisboyparty = 0:
'Anya'
''
'"The last time Roma was here was so good, thank you very much."'
'"You`re welcome, I am always very happy to help my beloved sister and to see you happy."'
'"He would like to come here again tomorrow, do you mind taking another walk for about an hour?"'
act 'Of course':
cls
minut += 5
sister += 10
sisThank = 1
if sisboyQW = 4 or sisboyQW = 6 or sisboyQW = 8:sisboyQW += 1
sisboyday = daystart
gs'stat'
''
'"Certainly sister, I understand, I will go for a walk late at night. Only do not be too loud, if Kolka hears you it will blow his tiny little mind."'
'You and Anya laugh and she joyfully hugs you saying, "You`re my best."'
act 'Finish':SiSgdk = 0 & gt'sister'
end
act 'No':
cls
sister -= 10
minut += 5
sisboyday = daystart
gs'stat'
''
'"Sorry Anya, I need to study in the evening."'
'"Fine." Anya turns away angrily, and buries her head in her book.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
elseif sisboyrand >= 8 and sisboyQW = 9 and sisterLesb = 4 and sisboytrioQW = 0 and sisboytrio < 5:
'Anya'
''
if sisboyday = daystart:$siboyday_text = 'tomorrow'
if sisboyday + 1 = daystart:$siboyday_text = 'this'
if sisboytrio = 0:
'"Sister, Roma and I have thought about it alot and... I do not know how to say this..."'
'"Well, don''t just leave me hanging, what is it that you want to say to me?"'
'"Generally, mmm... We want, you to err... join us <<$siboyday_text>> evening."'
else
'"Hello <<$name>>! Well, did you like it last time? We had a very good time with Roma."'
'You do not say anything and just smile slyly watching your sister''s eyes.'
'"We want to repeat our games <<$siboyday_text>> evening, if you would like to.'
end
act 'Agree':
cls
sisboytrioQW = 1
minut += 5
sister += 10
gs'stat'
''
'You agree to Anyas indecent proposal.'
'"Well, aren''t you all liberated? Of course I agree, it will be very interesting.'
'You hug and Kiss with your beloved sister'
act 'Finish':SiSgdk = 0 & gt'sister'
end
act 'Decline':
cls
sisboytrioQW = -1
sisboytrioDayOtkaz = daystart + 3
minut += 5
sister = 0
sisboyQW = 2
sisThank = 0
gs'stat'
''
'You decline your sisters indecent proposal.'
'"You fucking perverts, no way, you disgusting bitch.'
'You quarrel with her sister, when you have both shouted yourselves out and tears roll down your cheeks, she turns away from you and does not want to talk any more.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
else
minut += 10
sister += 2
talkrand = RAND(0,10)
gs'stat'
'Anya'
''
if talkrand = 0:'You ask your sister about Roma, she is happy talking about him and says how he is good, responsive and courageous.'
if talkrand = 1:'Anka says, before she met Roma-the mymra, and after leaving it for a long time he nazvanivala, from-Anya for this much scold and jealous.'
if talkrand = 2:'One day she and Roma were in a movie, and noticed on the back row a girl sucking a guy, and that Roma asked her if she would do the same.'
if talkrand = 3:'Anya complains that Roma drinks too much beer, does not buy her gifts, and doesn''t pays her enough attention.'
if talkrand = 4:'Anya says, Roma offered her a threesome with another girl, which she was most offended by and didn''t speak to him for a week afterwards.'
if talkrand = 5:'Anya blushes as she tells you that Roma sometimes comes to her work and drags her into the back room.'
if talkrand = 6:'Anya in detail and with enthusiasm tells you about Romas magnificent virility, and how if not for this, they would have long since parted.'
if talkrand = 7:'Anya shares with you a secret, that her favorite position "cowgirl", Roma prefers to do her doggy-style.'
if talkrand = 8:'You speak with your sister very frankly about sexual things, and she says shyly, she does not like to swallow sperm, but with Roma it''s different, and she is willing to swallow for him.'
if talkrand = 9:
if reksLike = 0:
reksLike = 1
rex = 50
rexSisTalk = 0
rexPark = 0
rexCar = 0
'Anya talks for a long time about hers and Romas friends, and askes you if you want to get to know any of them.'
'"Well, Rex sounds quite nice... I guess."'
'Anya simles, "Hmm.. He is a nice guy, but sometimes behaves a bit strange, Rex is obsesed with womens'' legs.'
'There was a case when Rex was driving without a license in his fathers'' car and gazing at a girl walking on the sidewalk, in stockings and short skirt. Imagine, he was so carried away, he had not noticed ahead sitting at the traffic lights, a van.'
'He drove straight into it and wrote off the car. That''s why we call him Rex, because he stares at legs with his mouth open, teeth on show, wanting to devour them." As she says this, Anya is holding her hands like claws and impersonating a T-Rex growling at your legs.'
else
'You ask your sister about Roma, she is happy talking about him and says how he is good, responsive and courageous.'
end
end
if talkrand = 10:'Anya says, that you Roma likes you, and asks if you like him.'
act 'Finish':SiSgdk = 0 & gt'sister'
end
end
end
if ((sisboyday + 1 = daystart and hour > 18) or sisboyday + 1 < daystart) and sisThank = 1:
cls
if sisboyQW = 9 or sisboyQW = 7 or sisboyQW = 5 or sisboyQW = 3:sisboyQW = sisboyQW - 1
sisboyday = 0
sisThank = 0
gs'stat'
'Anya'
''
'Merrily Anya runs up to you and wraps her arms around your neck.'
if sisboytrioQW ! 1:
'"Sister, I adore you, I spent a lovely evening with Roma."'
'"Yes, I`m glad for you, enougth already, you''ll strangle me."
Anya is happy to let you go, and kisses you on the cheek'
else
'"<<$nickname>>, I adore you, I really enjoyed our evening with Roma."'
'"Yes me too, but not so tight, you''re strangling me,"
Anya is bouncing with joy and loosens her grip just enough to kiss you on the cheek'
sisboytrioQW = 0
end
act 'Finish':SiSgdk = 0 & gt'sister'
end
if SisterKnowMastr > 0 and sisterQW = 0:
cls
sisterQW = 1
gs'stat'
'Anya'
''
'Anya looks at you and laughs "Well, <<$name>>, I know what you were upto! I went into the room, and you were playing with yourself!"'
act 'Move away':SiSgdk = 0 & gt $loc, $metka
end
if sisterdialog = 2:
cls
cla
gs'stat'
'Anya'
''
'Your sister is busy getting ready for work.'
'Anya, without even turning around, says, "<<$name>>, no time to talk, I`m already late!"'
act 'Move away':gt $loc, $metka
end
!going for a walk
if sisterdialog = 3:
cls
cla
gs'stat'
'Anya'
''
'Your sister is getting herself ready to go out. She admires herself in a mirror and wiggles her ass, trying different poses.'
'Anya, without even turning to look at you, says: "<<$name>>, If you decide to take a walk, I will be near the club with my friends."'
act 'Move away':gt $loc, $metka
end
if sister >= 80 and sisterknowslut > 0:
act 'Talk about sex':
cla
cls
gs'stat'
minut+=rand(10,15)
horny+=RAND(5,10)
sister+=1
dynamic $d_sistersexstories[1]
act 'Move away':gt 'sister'
end
end
else
'OK <<$name>>, time for bed.'
end
--- sister ---------------------------------