# mod_addedflavour_A34_Events
if $ARGS[0] = 'A33-SibThreesomeEv-X3':
*clr & cla
modVar_AF_EventProgress['A33-SibThreesomeEv-BroInv'] = daystart + (7 - week)
minut += 1
gs 'stat'
if modVar_AF_TerlisActive = 1:
'
'
else
''
end
*nl
'"Hey Kolka! How do you feel about a picnic this Sunday?"'
*nl
'"I don''t know... a picnic... maybe I guess."'
*nl
'"What if I said it was a sexually fuelled picnic. Just me, you, your penis, my lips, both pairs of them..."'
*nl
'"...well, if you say its going to be, that, type of picnic how can I say no."'
*nl
'You lean in and whisper into his ear. "And what about if I bought someone with me, someone I know you''ll like..."'
*nl
'Your brother is in a state of shock at the suggestion and may need some time for his brain to catch up!'
*nl
'"Wait for us at the shops this Sunday at 11am; I''ll sort out the rest"'
if modVar_AF_EventProgress['A33-SibThreesomeEv-SisInv'] = 0:
*nl
'Now I just need to talk to Anya to get her there'
end
act 'Leave him be': gt $loc, $loc_arg
end
if $ARGS[0] = 'SFLA-AptGuest-ConsiderKolka':
*clr & cla
modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 1
modVar_AF_SFLA_AptState['GuestID'] = 34
modVar_AF_SFLA_KolkaVisit['A700'] = 0
modVar_AF_SFLA_KolkaVisit['A701'] = 0
modVar_AF_SFLA_KolkaVisit['A702'] = 0
modVar_AF_SFLA_KolkaVisit['A34'] = 0
modVar_AF_SFLA_KolkaVisit['A29'] = 0
'Spare Room'
''
*nl
'You know what, I could invite Kolka. I''m sure I could get something sorted with regards to his schoolwork, there is plenty of opportunity to study here after all... yeah I think I will...'
*nl
'You think to yourself as to who you will need to get the all clear from. Kolka himself of course, but he would welcome the chance to stay in the city. Then there''s Mother, but once I explain the extra-curricular activities up here she should be on board. But before that you will need to make sure that Kaz, Liz and Jan are happy with it. Will need to have a talk with everyone.'
act 'Go about your business' : gt $loc, $loc_arg
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaApproval':
*clr & cla
modVar_AF_SFLA_KolkaVisit['A34'] = 1
gs 'stat'
if modVar_AF_TerlisActive = 1:
''
else
''
end
*nl
'"So, Brother, how do you fancy staying a couple of weeks at my Shared Apartment in the City?"'
*nl
'"You serious? Well that would be brilliant but there is no way it could happen."'
*nl
'"Don''t worry, leave it with me and I''ll get it all sorted out."'
act 'Carry on with your day' : gt $loc, $loc_arg
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaConfirm':
*clr & cla
modVar_AF_SFLA_KolkaVisit['InTransit'] = 1
modVar_AF_SFLA_KolkaVisit['BookingDate'] = daystart
gs 'mod_addedflavour_A702_Functions' , 'A34-FileRepository-Config' , 'Images'
gs 'mod_addedflavour_A702_Functions' , 'A34-FileRepository-Config' , 'Videos'
gs 'stat'
''
*nl
'"Hi Kolka! It''s your ever-loving Sister!"'
*nl
'"Hello ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I''m glad for the call and all but what do you need? I think this is one of the only times you have ever called me..."'
*nl
'"Well, I bring good news. Everything is sorted out, you can stay with us in the city for two whole weeks!"'
*nl
'"Thats brilliant! I can head over on the train next Saturday morning. I''ll send you a message when I am at the station so you can meet me."'
*nl
'"No Problem, looking forward to it already!"'
*nl
'I better make sure I don''t forget!'
act 'Put phone away' : gt $loc, $loc_arg
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaCollect-X1':
*clr & cla
modVar_AF_SFLA_KolkaVisit['InTransit'] = 0
''
*nl
if $ARGS[1] = 'late':
' ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I''ve been trying to reach you for ages! I''m at the station and you need to come meet me."'
*nl
'"Oh my god Kolka, I''m so sorry. I''ll be right there!"'
act 'Go meet him' : gt 'mod_addedflavour_A34_Events' , 'SFLA-AptGuest-KolkaCollect-1'
else
'"Hi ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m here! Can you meet me at the Station?"'
*nl
'"Of course, I''ll be there shortly"'
*nl
act 'Go meet him' : gt 'mod_addedflavour_A34_Events' , 'SFLA-AptGuest-KolkaCollect-1'
end
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaCollect-1':
*clr & cla
minut += rand(10,20)
gs 'stat'
''
*nl
'You rush over to the station and head inside. The building is still quite busy even at this time but you manage to find Kolka amongst the rabble rather quickly.'
act 'Greet him' : gt 'mod_addedflavour_A34_Events' , 'SFLA-AptGuest-KolkaCollect-2'
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaCollect-2':
*clr & cla
gs 'stat'
if modVar_AF_TerlisActive = 1:
''
else
''
end
*nl
'"Kolka! It''s so nice to finally see you here!"'
*nl
' ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! Its nice to see you too, it''s going to be a lot of fun staying here for two weeks."'
*nl
'"Well come on then, lets get you to the Apartment and meet everyone else"'
act 'Take him home' : gt 'mod_addedflavour_A34_Events' , 'SFLA-AptGuest-KolkaCollect-3'
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaCollect-3':
*clr & cla
minut += 11
gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
gs 'mod_addedflavour_SFLA_Functions' , 'guestvisit' , 'kolka' , 'stay'
gs 'stat'
if modVar_AF_SFLA_AptRProg['Sitr'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
$modVar_AF_TempStr = 'Lv2'
else
$modVar_AF_TempStr = 'Lv1'
end
'Living Room'
''
*nl
'You and Kolka soon arrive at the Apartment and after walking through the door you see your Housemates there waiting for you."'
*nl
'"Hello everyone! I would like you to meet my Brother: Kolka."'
*nl
'Kolka looks a little nervous but manages to battle through his nerves to respond'
*nl
'"Hello to you all. Thanks for letting me stay here for a bit and I assure you I will be no trouble at all."'
*nl
'"Hello there Kolka. And don''t worry, we are all more than happy for you to stay here. Also, if you have any concerns and ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' isn''t around than you are more than welcome to speak to me."'
*nl
'"Absolutely, if there is any problems then, yeah, go to Lizzie..."'
*nl
'"And lest everyone forget I am here too, I would be more than happy to help."'
*nl
'"Thanks everyone so much, I guess I''ll get settled in."'
*nl
'"Of course, you''re room is just through there"'
act 'Settle in' : gt 'mod_addedflavour_SFLA_Sitr' , 'start'
end
if $ARGS[0] = 'SFLA-AptGuest-KolkaLeave':
*clr & cla
minut += rand(5,15)
gs 'mod_addedflavour_SFLA_Functions' , 'guestvisit' , 'kolka' , 'leave'
gs 'stat'
if modVar_AF_TerlisActive = 1:
''
else
''
end
*nl
'"Are you packed and ready to head back home?"'
*nl
'"Yeah, everything''s done, just need to get to the station."'
*nl
'"Well it''s been fantastic having you here; I''m already looking forward to having you visit us again."'
*nl
'"I do envy you, you know. You have so much freedom to live your life and you really do live it. Maybe one day I can join you in the city though... Anyway, I''m leaving now; see you Sis!"'
*nl
'"Bye Bye, Kolka!"'
act 'Wave him off' : gt $loc, $loc_arg
end
if $ARGS[0] = 'A34-ShowerEv-1':
gs 'stat'
''
*nl
'You stand in the shower letting the falling water flow effortlessly over your supple skin. You are taken in by the moment and can''t help but focus on your private areas; still, your mind wanders to your horny watcher and whether she will take you up on your un-subtle invitation...'
act 'Let the dance play out' : gt 'mod_addedflavour_A34_Events' , 'A34-ShowerEv-2'
end
if $ARGS[0] = 'A34-ShowerEv-2':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
gs 'stat'
''
*nl
'Still lost in your own senses, you give a slight turn to check to see if anyone is there and to your surprise it is Kolka!'
*nl
'"Kolka... Quickly get in case you are noticed!"'
*nl
'Kolka to his part just smiles to himself, happy with the part he is playing in the routine.'
act 'Get him in' : gt 'mod_addedflavour_A34_Events' , 'A34-ShowerEv-3'
end
if $ARGS[0] = 'A34-ShowerEv-3':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 34 , 'mod_addedflavour_SFLA_BaRm' , 'Bathing' , rand(5,15)
gs 'stat'
''
*nl
'"Kolka, you do know that if the others find you in here they will kick me out, I don''t think they are ready for the relationship we have..."'
*nl
'"I''ve missed you ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' and there is only so long a man can wait before having you in his arms."'
*nl
'"Oh Kolka, I have wanted you as well, but we must be quiet, I really do like living here. But..."'
*nl
'It was at this point that you pull the towel from his waist to reveal a hard penis eagerly beckoning at your form!'
*nl
'"... there is only so long a girl can wait for what she wants..."'
act 'Get to Loving' : gt 'mod_addedflavour_SFLA_SexFunctions ' , 'playersex' , 34
end
if $ARGS[0] = 'A34-AptSleepEv-1':
minut += rand(2,4)
modVar_AF_EventLock['A34-AptSleepEv'] = daystart
gs 'stat'
''
*nl
'You are laying on you bed; sort of asleep but sort of not. Certainly aware but not really joining the real world yet. One thing you are aware of is the feeling that someone has come into your room.'
*nl
'I wonder who she is...'
act 'Play out the act' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-2'
end
if $ARGS[0] = 'A34-AptSleepEv-2':
minut += rand(1,3)
gs 'stat'
''
*nl
'Your stealthy visiter is going straight for her prize, lifting your shirt to reveal your bra-caged goodies.'
*nl
'Well, well, well; no hanging around here then!'
act 'Get fondled' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-3'
end
if $ARGS[0] = 'A34-AptSleepEv-3':
minut += rand(2,4)
gs 'stat'
''
*nl
'After releasing your supple breasts from their clothen restraint, your visitor go straight for their reward. They are still holding back a bit though.'
*nl
'Aren''t we brave... mmmm... this is starting to feel good. It''s probably Lizzie, maybe I should wake up and enjoy this at its fullest...'
act 'Keep going' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-4'
end
if $ARGS[0] = 'A34-AptSleepEv-4':
minut += rand(2,4)
gs 'stat'
''
*nl
'Having enjoyed some of the goods your body has to offer your guest turns their attentions lower. After the initial pulls to test their courage they continue to reveal the target of their intentions.'
*nl
'I''m glad I didn''t interrupt this pageantry, mmmmm... this is getting hot!'
act 'See if they take their prize' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-5'
end
if $ARGS[0] = 'A34-AptSleepEv-5':
minut += rand(2,4)
gs 'stat'
''
*nl
'With your eyes still closed but your anticipation at tenterhooks at what is to come, you feel the first foray of a tongue on your clitoris. It is gentle but whole event more than accellerates the feeling.'
*nl
'Yes! I don''t know if I can keep up the pretense of being unaware for much longer! Hang on, she is moving. What is she up to now?'
act 'Let them have you' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-6'
end
if $ARGS[0] = 'A34-AptSleepEv-6':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
gs 'stat'
''
*nl
'It''s not quite what you were expecting but you feel the feel of shaft enterring your vagina. Looks like your guest wants the whole thing!'
*nl
'Whoa, she got a dildo. There is nothing she isn''t up for... wait, that isn''t a dildo...'
act 'Reveal your intruder' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-7'
end
if $ARGS[0] = 'A34-AptSleepEv-7':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
gs 'stat'
''
*nl
'"... hang on, Kolka! It was you all along! Wait, is anyone else home?"'
*nl
'"Yes, they are all just in the other room. But I wasn''t going to let that minor detail stop me."'
*nl
'"But if they find out about us then I will get kicked out!"'
*nl
'"That hasn''t stopped you so far, in fact it seemed to excite you even more!"'
*nl
'The feel of his cock thrusting into you is managing to push through your reservations...'
*nl
'"...oh god, Kolka. Yes I want you, give it to me now!"'
act 'Get to Fucking!' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-8'
end
if $ARGS[0] = 'A34-AptSleepEv-8':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
gs 'stat'
''
*nl
'You raise your legs up and give Kolka greater room to thrust his manhood into you. The feeling of his cock, the possibility of being caught; it is multiplying together to create an ecstatic euphoria in you!'
act 'Change Position' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-9'
end
if $ARGS[0] = 'A34-AptSleepEv-9':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
gs 'stat'
''
*nl
'Kolka flips you over so that he can take you from behind, wasting no time in getting his cock back in you. You can no longer pretend that you are not enjoying this and find your self moaning hard. You don''t how you are going to explain this to your flatmates but that is something for another time!'
*nl
'"Lay down Kolka, I''m driving this now!"'
act 'Go Cowgirl' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-10'
end
if $ARGS[0] = 'A34-AptSleepEv-10':
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
gs 'stat'
''
*nl
'You change position again and start riding him hard. Whereas he had control to begin with, he is now all yours and you take advantage of the situation to thrust yourself onto his manhood with vigour.'
*nl
'"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I am going to cum so hard!"'
*nl
'You are certain that you are not far behind him!'
act 'Cum hard' : gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-11'
end
if $ARGS[0] = 'A34-AptSleepEv-11':
gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 34 , 'city_library' , 'Studying' , 30
gs 'boyStat', 'A34'
sexpartkno = 1
$orgasm_or = 'yes'
gs 'arousal', 'vaginal', 8 , 'incest'
spafinloc = 2
gs 'Cum_Manage'
gs 'stat'
''
*nl
'You fall onto your back as you orgasm allowing Kolka to get back inside you for a few thrusts before joining you as he coats your body with cum.'
*nl
'As the eroticism starts to drop with your release your mind falls back to the reality of things, the forefront being exactly what you are going to do with what greets you through that door. Kolka sees your concern...'
*nl
'"Ha! Don''t worry ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I wouldn''t be so mean as to put you in that situation. I checked the house was empty when I came in, no-one saw me come in here"'
*nl
'The sense of relief is mind-blowing!'
*nl
'"Bloody Hell Kolka, don''t do that to me! I mean, do this to me, definitely, but don''t trick me like that!"'
*nl
'Kolka smiles knowing damn well he will before leaving to sneak off to the Library before being noticed.'
act 'Get back to normal' : gt $loc, $loc_arg
end
--- mod_addedflavour_A34_Events ---------------------------------