# pavSharedApt
gs 'themes', 'indoors'
if $ARGS[0] = 'update':
rentWeekly = 2000
if rentLeft <= 0:rentLeft = 0
!how much of the unpaid weekly rent is left
if orgB > 100:orgB = 100
price_cook = 50
price_clean = 50
price_handjob = 50
price_blowjob = 100
price_vaginal = 150
price_anal = 200
price_special = 250
! time calculations
weekNum = (daystart - (daystart mod 7)) / 7
! pcs setup
$pcs_font = '990099'
!pink
! servitudeLvl = 0 - no service, pays rent
! servitudeLvl = 1 - nonsexual service
! servitudeLvl = 2 - sexual and nonsexual service
! nerd guy
! shy, polite, but latent kink (giving golden shower, etc.)
! brown hair, hairy, pale skin
! average dick, hairy balls
! not paying attention to his own image and looks, wears glasses
$nd_name = 'Oleg'
$nd_font = '0096FF'
!blue
nd_leaves = 9
nd_comes = 18
nd_sleeps = 23
nd_wakes = 8
if nd_rel > 100: nd_rel = 100
if nd_rel < 0: nd_rel = 0
ndDick = 17
nd_cumMax = 80
nd_cumMin = 15
if nd_cumVol > nd_cumMax:nd_cumVol = nd_cumMax
if nd_cumVol < nd_cumMin:nd_cumVol = nd_cumMin
nd_horny = (nd_cumVol * 10000 / nd_cumMax) / 100
if nd_served = 1:nd_hadSex = 1
!flag if there was already a sex between him and Sveta
!sex flags: nd_bj ; nd_bjDeep ; nd_swall ; nd_vag ; nd_vagCumInside ; nd_vagCumInsideUnwanted ; nd_anal ; nd_analCumInside ; nd_analCumInsideUnwanted
!unlocked sex: nd_doAnal ; nd_doPornpos
!nd_cleaned = 1 - if was cleaned this day already
! gopnik guy
! rude, the younger the better, aggresive, hard
! dark hair, dark skin
! above average dick, somehow maintained hairs; event: he will take some enlarging pills testing his monster cock on Sveta
$gp_name = 'Nestor'
$gp_font = 'CC0000'
!red
gp_leaves = 11
gp_comes = 19
gp_sleeps = 23
gp_wakes = 9
if gp_rel > 100: gp_rel = 100
if gp_rel < 0: gp_rel = 0
gpDick = 22
gp_cumMax = 100
gp_cumMin = 30
if gp_cumVol > gp_cumMax:gp_cumVol = gp_cumMax
if gp_cumVol < gp_cumMin:gp_cumVol = gp_cumMin
gp_horny = (gp_cumVol * 10000 / gp_cumMax) / 100
if gp_served = 1:gp_hadSex = 1
!flag if there was already a sex between him and Sveta
!gp_bj ; gp_bjDeep ; gp_swall ; gp_vag ; gp_vagCumInside ; gp_vagCumInsideUnwanted ; gp_anal ; gp_analCumInside ; gp_analCumInsideUnwanted
!unlocked sex: gp_doAnal ; gp_doPornpos ; gp_doVacuum
! sportsman guy
! blond hair, tanned
! latent gay, muscular and athletic, secret fantasies of being used by femboy (or at least a girl with strapon)
! bellow average dick, shaved
$sp_name = 'Yakov'
$sp_font = '009900'
!green
sp_leaves = 7
sp_comes = 16
sp_sleeps = 22
sp_wakes = 5
if sp_rel > 100: sp_rel = 100
if sp_rel < 0: sp_rel = 0
spDick = 14
sp_cumMax = 60
sp_cumMin = 10
sp_horny = (sp_cumVol * 10000 / sp_cumMax) / 100
if sp_cumVol > sp_cumMax:sp_cumVol = sp_cumMax
if sp_cumVol < sp_cumMin:sp_cumVol = sp_cumMin
if sp_served = 1:sp_hadSex = 1
!flag if there was already a sex between him and Sveta
!sp_bj ; sp_bjDeep ; sp_swall ; sp_vag ; sp_vagCumInside ; sp_vagCumInsideUnwanted ; sp_anal ; sp_analCumInside ; sp_analCumInsideUnwanted
!mood setup
if nd_mood = 1:$nd_mood = 'very good'
if nd_mood = 2:$nd_mood = 'good'
if nd_mood = 3:$nd_mood = 'normal'
if nd_mood = 4:$nd_mood = 'bad'
if nd_mood = 5:$nd_mood = 'very bad'
if gp_mood = 1:$gp_mood = 'very good'
if gp_mood = 2:$gp_mood = 'good'
if gp_mood = 3:$gp_mood = 'normal'
if gp_mood = 4:$gp_mood = 'bad'
if gp_mood = 5:$gp_mood = 'very bad'
if sp_mood = 1:$sp_mood = 'very good'
if sp_mood = 2:$sp_mood = 'good'
if sp_mood = 3:$sp_mood = 'normal'
if sp_mood = 4:$sp_mood = 'bad'
if sp_mood = 5:$sp_mood = 'very bad'
gs 'stat'
if pavSharedAptDebug = 0:
elseif pavSharedAptDebug = 1:
'Debug'
elseif pavSharedAptDebug = 2:
'Debug Close'
'Debug Disable'
$nd_name+' relation: '+nd_rel
$gp_name+' relation: '+gp_rel
$sp_name+' relation: '+sp_rel
'rentLeft: '+rentLeft
'weekNum: '+weekNum
'rentWeekNum: '+rentWeekNum
'servitudeLvl: '+servitudeLvl
'servicePaid: '+servicePaid
'cashPaid: '+cashPaid
'step: '+step
'subStep: '+subStep
'gp_mood: '+gp_mood
'gp_cumVol: '+gp_cumVol
'gp_cumVag: '+gp_cumVag
'gp_cumAnal: '+gp_cumAnal
'gp_cumSwall: '+gp_cumSwall
'nd_cumVol: '+nd_cumVol
'nd_cumMax: '+nd_cumMax
'nd_horny: '+nd_horny
'gp_horny: '+gp_horny
'sp_horny: '+sp_horny
''
nd_served = 0
nd_mood = 2
gp_served = 0
gp_mood = 2
sp_mood = 2
sp_served = 0
end
end
! accomodation advert
if $ARGS[0] = 'advertNo30':
$menu_loc = 'pavSharedApt'
$menu_arg = 'advertNo30'
menu_off = 1
minut += 2
seenAd = 1
gs 'stat'
'
> src="images/locations/pavlovsk/resident/apartment/stairs/pod_ob'+rand(1,2)+'.jpg">'
'
As you pass by the advertisments, you notice a sign - "сдаeтся в аренду комната" (Room for rent!). Some guys are looking for a roommate. They live in an apartment in of the other buildings in the apartment complex.'
act 'Continue':gt 'pod_ezd','etaj_1'
end
! door No 3 - shared
if $ARGS[0] = 'doorNo30':
CLOSE ALL
$menu_loc = 'pavSharedApt'
$menu_arg = 'doorNo30'
menu_off = 1
act 'Go back outside':gt 'pavComplex', 'start'
if pavSharedAptEnabled = 1:
'
> src="images/locations/shared/apartment/podezdhr.jpg">'
'
You stand before the entry door to apartment No 30. The apartment you share with three others'
act 'Go inside':gt 'pavSharedApt', 'start'
else
'
> src="images/locations/pavlovsk/resident/sharedapt/aptno3door.jpg">'
'
You stand before the entry door to apartment No 30. There is a sign on the door saying - "сдаeтся в аренду комната" (Room for rent).'
act 'Knock on the door':gt 'pavSharedApt', 'intro'
end
end
! apt hall
if $ARGS[0] = 'start':
$menu_loc = 'pavSharedApt'
$menu_arg = 'start'
menu_off = 0
$locM = 'pavSharedApt'
$metkaM = 'start'
$loc = 'pavSharedApt'
$metka = 'start'
$goBack = $metka
$location_type = 'private'
killvar '$locclass'
gs 'pavSharedApt', 'update'
if introDone = 0:gt 'pavSharedApt', 'intro'
minut += 2
gs 'stat'
if courtletter_date <= daystart and courtletter_date ! 0: gt 'sentence', 'letter'
! do this once a day
if daystart >= tomorrow:
tomorrow = daystart + 1
nd_mood = rand (1, 5)
nd_served = 0
nd_cleaned = 0
nd_cumVol += rand(15, 30)
gp_mood = rand (1, 5)
gp_served = 0
gp_cleaned = 0
gp_cumVol = rand(20, 40)
sp_mood = rand (1, 5)
sp_served = 0
sp_cleaned = 0
sp_cumVol += rand(5, 20)
end
! do this every time
rentLeft = rentWeekly - servicePaid - cashPaid
'Hallway
'
'
> src="images/locations/pavlovsk/resident/sharedapt/hallway.jpg">'
'It is week number <>.'
if weekNum < rentWeekNum:
if rentLeft > 0:
'You have left <> ₽ of rent to pay for the next week.'
if servitudeLvl >= 1:
'You may still pay it in cash, if you want.'
else
'Pay it in cash.'
end
else
'You have already paid the whole rent for the next week.'
end
elseif weekNum >= rentWeekNum:
if rentLeft = 0:
!rent was forepaid, everything OK, proceed to next week
rentLeft += 2000
cashPaid = 0
rentWeekNum = weekNum + 1
elseif rentLeft > 0:
!rent was not fully paid
'You did not pay the whole rent for this week. You still have to pay <> ₽.'
if money >= rentLeft:
!not enough cash to pay it manually
'You still can pay it in cash, otwerwise you''ll be kicked out!'
else
!in future add some way to serve your way out
'You do not have enough money to pay the rest of the rent in cash, even if you wanted to. Guess you''ll have to find a new living place...'
rentPaid = 0
pavSharedAptEnabled = 0
end
end
end
act 'Leave and go outside':
if $clothingworntype ! 'nude':
gt 'pavComplex', 'start'
else
msg'You need to get dressed.'
gt 'pavSharedApt', 'start'
end
end
if NatashaQW >= 4 and week < 6 and hour = 7 and kanikuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0:
act 'Go pick up Natasha before school': gt 'natbelEv', 'carrybooks'
end
if rentPaid = 1:
'A large apartment currently serves as shared living. As well as the normal living spaces, there are four bedrooms, one rented by you and three occupied by >><<$nd_name>>, >><<$gp_name>>, >><<$sp_name>>.'
'You stand in the hallway. '
''
'From the hallway several doors lead to <<$nd_name>>''s, <<$gp_name>>''s and <<$sp_name>>''s rooms.'
'The last doors lead to the room you have rented.'
''
!! Wardrobe is here, because Sveta''s bedroom is actually the unused living room, with no wardrobe, so she is using the hall cupboard.
'There are no cupboards in your livingroom cum bedroom, but there are several hall closets, that you can use to store your clothes, with a large tall mirror attached.'
''
if servitudeLvl >= 1:'A computer printed list hangs on the exit door.'
act 'Go to your room':gt 'pavSharedApt', 'pcsRoom'
act 'Go to the bathroom':gt 'pavSharedApt', 'bathroom'
act 'Go to the kitchen':gt 'pavSharedApt', 'kitchen'
act '>><<$nd_name>>''s room':gt 'pavSharedApt', 'ndRoom'
act '>><<$gp_name>>''s room':gt 'pavSharedApt', 'gpRoom'
act '>><<$sp_name>>''s room':gt 'pavSharedApt', 'spRoom'
end
if home_owned[2] = 0 and kid > 0:
*clr & cla
pavIntroStep = 0
introDone = 0
minut = 5
!Need to have some actual story to this with NPC reactions.
'
> src="images/characters/pavlovsk/school/boy/dimka/revenge/crying.jpg">'
'You''ve been kicked out of the apartment due to having children.'
pavSharedAptEnabled = 0
act 'Leave':gt 'pavComplex', 'start'
end
end
if $ARGS[0] = 'payCash':
menu_off = 1
minut += 2
cash = rentLeft
if money >= cash:
'You have decided to pay the remainder of the weekly rent in cash. It makes '+cash+' ₽.'
cashPaid += cash
money -= cash
rentPaid = 1
pavSharedAptEnabled = 1
else
'You do not have enough money to pay it.'
end
act 'Proceed':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'payService':
menu_off = 1
minut += 1
'The amount '+price+' ₽ was taken in account of your weekly rent.'
servicePaid += price
act 'Continue':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'rentSetup':
menu_off = 1
minut += 2
'You get a list of paper, saying the weekly rent fee is <> rubles.'
rentPaid = 1
introDone = 1
rentWeekNum = (daystart - (daystart mod 7)) / 7 + 1
act 'Continue':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'intro':
menu_off = 1
gs 'pavSharedApt', 'update'
if step > 0:
'
'
''
end
if pavIntroStep = 0:
minut += 2
pavIntroStep = 1
'
> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg">'
''
'The door are opened by a young, nice looking athletic man.'
'>>"Hi sweetie! What do you need?"'
'>>"Hello, my name is <<$pcs_firstname>> <<$pcs_lastname>>. I''ve seen the advert that someone here have a spare room for rent?"'
'>>"Yeah, that''s true. Come in, I''ll call the guys and we can talk about it. I''m <<$sp_name>> by the way."'
act 'Go in':gt 'pavSharedApt', 'intro'
elseif pavIntroStep = 1:
minut += 3
pavIntroStep = 2
'You go through the door in a hallway. By the amount of coats and shoes you guess there are about 3 or 4 people living here.'
'The guy disappears in one of the doors and you can hear talking him to someone.'
'They seem to be trying to talk quietly, but you can hear a sentence or two..:'
''
'"..a girl I tell you.." "..nice one, really, with nice round tits man.." "..better than another dick, idiot.." "..ok ok just be done with it.."'
''
'In a while three young guys appear in the hallway.'
'>>"So that''s her guys. <<$pcs_firstname>>, could you introduce yourself to guys?"'
'>>"Hello, my name is <<$pcs_firstname>> <<$pcs_lastname>>. I would like to rent the empty room in your apartment."'
'>>"Well now that''s what I like! Finally this won''t be such a gay party!"'
'>>"<<$pcs_firstname>> please excuse my friend <<$gp_name>>, he is such a rude prick to everyone. My name is <<$nd_name>>."'
'>>"Yup, I''m <<$gp_name>>."'
'>>"So you would like to live here with us?"'
'>>"Yes. I need a new place to stay."'
'>>"How old are you girl?"'
'>>"<<$gp_name>>! Not this again!"'
'>>"It''s OK. I am actually <> years old. Why do you ask?"'
'>>"He''s just idiot, don''t listen to him."'
if age < 18:
'(You can see <<$gp_name>> rub his crotch just a brief moment after you told him your age. What''s he up to?)'
end
if knowpreg = 1:
act 'Ask about children':
cla
pavIntroStep = 50
'>>"I thought I should tell you, I''m currently pregnant. How you feel about having children in the apartment, will this be a problem?"'
act 'continue':gt 'pavSharedApt', 'intro'
end
elseif kid > 0:
act 'Ask about children':
cla
pavIntroStep = 50
'>>"I thought I should tell, I''m mother. How you feel about having children in the apartment, will this be a problem?"'
act 'continue':gt 'pavSharedApt', 'intro'
end
else
act 'Continue':gt 'pavSharedApt', 'intro'
end
elseif pavIntroStep = 2:
minut += 3
pavIntroStep = 3
'>>"So what do you guys say, will you take me in?"'
'>>"We may. But first, do you have the money to pay the rent?"'
'>>"Well, of course I don''t expect to let me live here for free. But I hope the rent is reasonable.."'
'>>"It is indeed."'
'>>"<> rubles. Per week."'
'>>"Uhm. That''s quite a lot. I''m not sure if I''ll be able to afford this.."'
'>>"You can pay other ways if you''d like!"'
'>>"<<$gp_name>>!"'
'>>"What do you mean by other ways?"'
'>>"Well <<$pcs_firstname>>, since we are just guys here, and since we suck at these things, we could use someone as you, a girl I mean, to be something like our, let''s say, handmaiden. If you know what I mean."'
'>>"Like cooking and cleaning?"'
'>>"Yes, exactly."'
'>>"And more."'
'>>"Oh my... I give up."'
act 'More what?':gt 'pavSharedApt', 'intro'
elseif pavIntroStep = 3:
minut += 3
'>>"More services."'
'>>"What kind of ''more services''?"'
'>>"Girl to guys kind of services."'
'>>"You mean to be a whore for you? Instead of paying the rent???"'
'>>"Please <<$pcs_firstname>>, don''t get mad. <<$gp_name>> is not just idiot, he is a rude idiot. We are definitely not asking you to be our whore or something like that."'
'>>"As <<$sp_name>> told you, we could decrease your rent if you would do some homekeeping stuff we really suck at. But only if you want, of course."'
'>>"So what do you say <<$pcs_firstname>>?"'
act 'Say that you changed your mind about this':pavIntroStep = 40 & gt 'pavSharedApt', 'intro'
act 'Say you will pay the rent the normal way':pavSharedAptEnabled = 1 & pavIntroStep = 10 & gt 'pavSharedApt', 'intro'
act 'Say you don''t mind doing the homekeeping stuff':pavSharedAptEnabled = 1 & pavIntroStep = 20 & gt 'pavSharedApt', 'intro'
act 'Say you don''t mind anything':pavSharedAptEnabled = 1 & pavIntroStep = 30 & gt 'pavSharedApt', 'intro'
elseif pavIntroStep = 10:
minut += 2
'>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"'
'>>"Yes, OK, I understand."'
'>>"So the room is over there.'
'>>"Wait, Isn''t that the living room?"'
'>>"Yes it is, but we don''t use it, so we are renting it out. There is all you need, a bed, a table with chair, all this stuff, we even put a curtain over the doorway. Just move in when you want. See you later <<$pcs_firstname>>!"'
'>>"Have a nice day <<$pcs_firstname>>."'
'>>"See ya later girlie..."'
'>>"Later guys!"'
servitudeLvl = 0
act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
elseif pavIntroStep = 20:
minut += 2
'>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"'
'>>"Yes, OK, I understand."'
'>>"We will pepare a list of the charges for the homekeeping services you may want to do, so it''s clear how much will be deducted form your rent."'
'>>"Cool!"'
'>>"So the room is over there.'
'>>"Wait, Isn''t that the living room?"'
'>>"Yes it is, but we don''t use it, so we are renting it out. There is all you need, a bed, a table with chair, all this stuff, we even put a curtain over the doorway. Just move in when you want. See you later <<$pcs_firstname>>!"'
'>>"Have a nice day <<$pcs_firstname>>."'
'>>"See ya later girlie..."'
'>>"Later guys!"'
servitudeLvl = 1
act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
elseif pavIntroStep = 30:
minut += 2
'>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"'
'>>"Yes, OK, I understand."'
'>>"We will pepare a list of the charges for the homekeeping services you may want to do, so it''s clear how much will be deducted form your rent."'
'>>"The extra stuff services will be there too, girl."'
'>>"OK.."'
'>>"So the room is over there.'
'>>"Wait, Isn''t that the living room?"'
'>>"Yes it is, but we don''t use it, so we are renting it out. There is all you need, a bed, a table with chair, all this stuff. Just move in when you want, we even put a curtain over the doorway. See you later <<$pcs_firstname>>!"'
'>>"Have a nice day <<$pcs_firstname>>."'
'>>"See ya later girlie..."'
'>>"Later guys!"'
servitudeLvl = 2
act 'Continue':pavIntroStep = 0 & gt 'pavSharedApt', 'rentSetup'
elseif pavIntroStep = 40:
minut += 2
'>>"I told you idiot not to scare her away!"'
'>>"Sorry man! We can still lock her to the radiator like I suggested in the first place.."'
'>>"Just shut up already!"'
''
'>>"Sorry <<$pcs_firstname>>. We respect your decision. If you change your mind and room is still empty, let us know and we can talk again. Goodbye!"'
act 'Tell them goodbye and leave':pavIntroStep = 0 & gt 'pavComplex', 'start'
elseif pavIntroStep = 50:
minut += 2
!add dialogue for returning after being previously expelled from apartment
'>>"I''m sorry <<$pcs_firstname>>, but we don''t want children or pets in the apartment!"'
'>>"If you get rid of the kid, come back and see us."'
'>>"Don''t mind him. There''s simply not enough room for 4 people, plus kids or pets. I hope you understand"'
if home_owned[2] = 1:
act 'Suggest a compromise':
cla
pavIntroStep = 2
'>>"I can leave them with my parents for the time being, and keep them away from the apartment, how does this sound?'
'>>"Are you certain you want to do this?"'
'>>"Sounds good to me!"'
'>>"hmmmm"'
act 'Continue':gt 'pavSharedApt', 'intro'
end
act 'I wont leave my children':
cla
pavIntroStep = 0
'>>"OK, I will make do with my current accomodation.'
'>>"We understand"'
'>>"Damn"'
'>>"No problem <<$pcs_firstname>>"'
act 'Continue':gt 'pavSharedApt', 'intro'
end
else
'>>OK, I understand.'
act 'Thank them and leave':pavIntroStep = 0 & gt 'pavComplex', 'start'
end
end
end
! the pricelist
if $ARGS[0] = 'list':
menu_off = 1
$metka = 'list'
minut += 2
$goBack = $metka
'<<$pcs_firstname>>''s pricelist
'
'
> src="images/locations/pavlovsk/resident/sharedapt/list.jpg">'
''
'The basic weekly rent is <> rubles.'
'It is possible to pay it in cash, or offer services instead. The prices are folllowing:'
''
'---------------'
''
'Cooking a warm meal: '+price_cook
'Cleaning the apartment: '+price_clean
if servitudeLvl >= 2:
''
'Handjob: '+price_handjob
'Blowjob: '+price_blowjob
'Sex: '+price_vaginal
'Anal sex: '+price_anal
'Special treats: '+price_special
end
''
'---------------'
''
'Not having paid the full weekly rent at the beginning of a new week will lead to termination of the accommodation services.'
'Signed: >><<$nd_name>>, >><<$gp_name>>, >><<$sp_name>>, <<$pcs_firstname>>.'
''
'---------------'
act 'Continue':gt 'pavSharedApt', 'start'
end
! paying with money
if $ARGS[0] = 'payRent':
menu_off = 1
minut += 1
'You decided to give the guys money, instead of serving them.'
'You just spent <> cash.'
money -= paid_rent
gs 'stat'
act 'Continue': gs 'pavSharedApt', 'start'
end
if $ARGS[0] = 'bathroom':
$menu_loc = 'pavSharedApt'
$menu_arg = 'bathroom'
menu_off = 0
minut += 1
$location_type = 'bathroom'
$loc = 'pavSharedApt'
$metka = 'bathroom'
$metkaM = 'bathroom'
$locM = 'pavSharedApt'
'Bathroom
'
'
> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg">'
*nl
'Modest bathroom, containing all that young people need for their daily life, such as:'
'A Shower, toilet, mirror, where you can ' + iif(pcs_hairbsh = 0,'brush','brush') + ' your hair, a sink and even a bath tub.'
*nl
gs 'din_van', 'private'
gs 'stat'
act 'Leave':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'kitchen':
$menu_loc = 'pavSharedApt'
$menu_arg = 'kitchen'
menu_off = 0
*clr & cla
minut += 2
$loc = 'pavSharedApt'
$metka = 'kitchen'
$locclass = 'kitr'
gs 'stat'
gs 'kit_din'
'Kitchen
'
'
> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg">'
'It''s a modest kitchen, but has all that is needed.'
! dishes
if cltarelka > 0:
'Above the sink are <> the clean plates'
else
'You have no clean dishes left.'
end
if dirttarelka > 0:'The sink has <> dirty dishes. that need to be washed.'
if fairy > 0:
'Above the sink is some detergent to wash the dishes with. There is enough for <> uses.'
else
'You do not have enough detergent, you should buy some from the supermarket.'
end
! food
if eda > 0:
if cltarelka = 0 or edahot > 0:$edagot = ''
if cltarelka > 0 and edahot = 0:
$edagot = 'Cook a meal for yourself (0:30)'
end
'In the refrigerator there''s enough (your own) food for <> servings. <<$edagot>>'
end
if edahot > 0:'On the table is ready meal (0:30).'
if edaD = 0 and eda = 0:'You have nothing to eat, the refrigerator is empty!'
if eda >= 3: 'Cook meal (1:30) for the guys'
dynamic $edasnack
dynamic $driwater
dynamic $dritea
dynamic $fill_bottle
dynamic $pranik
dynamic $edaD
dynamic $fatdel
dynamic $lekarstvo
act 'Leave':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'cookForGuys':
menu_off = 1
cla
*clr
$loc = 'pavSharedApt'
$metka = 'kitchen'
minut += 90
eda -= 3
kuhdrova = 0
pcs_mood -= 10
gs 'stat'
'
> src="images/shared/home/kitchen/cook.jpg">'
'You prepare three meals.'
price = price_cook
act 'Leave the meal':gt 'pavSharedApt', 'payService'
end
if $ARGS[0] = 'cleanForGuys':
menu_off = 1
cla
*clr
minut += 60
poroshok -= 3
pcs_mood -= 10
gs 'stat'
'
> src="images/locations/city/residential/apartment/stir.jpg">'
price = price_clean
*nl
'You collect piles of dirty clothes around the room, carry them into the bathroom, put them in a basin and then pour washing powder on them. You wash them until they are finally clean.'
cumStainCh = rand (0, 100)
if servitudeLvl = 2 and cumStainCh <= 50:'You notice bedsheets with what seems as dried out cum. Probably remainder of one of yours "servings". Maybe it is really better to swallow everytime, you wonder?'
act 'Hang them to dry out and leave':gt 'pavSharedApt', 'payService'
end
! living room & pc bedroom
if $ARGS[0] = 'pcsRoom':
$menu_loc = 'pavSharedApt'
$menu_arg = 'pcsRoom'
menu_off = 0
$loc = 'pavSharedApt'
$metka = 'pcsRoom'
$location_type = 'private'
$locclass = 'bedr'
minut += 2
gs 'stat'
gs 'pavSharedApt', 'update'
'Living Room'
'
> src="images/shared/sharedapt/bedroom/sofabed.jpg">'
*nl
'The living room wasn''t in use by the other apartment occupants, so it is now rented to use as a bedroom. It''s sparsly decorated, with, a sofa bed, against the back wall.'
*nl
'Beside the sofa bed, is an old cabinet, with your alarm clock on top.'
if budilnikOn = 0:
'Your alarm clock is set for <> hours <> minutes and currently turned off.'
else
'Your alarm clock is set for <> hours <> minutes and currently turned on.'
end
*nl
if TV = 0:$TV = 'a great place for a TV, if you had one.'
if TV = 1:$TV = 'an old CRT TV sits on the shelf'
'There is an wall unit at the other side of the room, <<$TV>>. Everyone in the household spends their time in their own rooms, so there was never a reason to use the living room for its intended purpose.'
*nl
'On the other side of the sofa bed are your old suitcases, which you could use to store the clothes you don''t often wear.'
*nl
'There is no door to the living room, instead there''s curtain covering entry to the room, which gives you a modicum of privacy; not much better than the state of the non-existant window curtains'
act 'Leave the room':gt 'pavSharedApt', 'start'
act 'Sit on the sofa bed':gt 'pavSharedApt', 'sofabed'
if obruch > 0: '
A hula hoop stands in corner of the room. '
if skak > 0: 'A jump rope is on a shelf. '
if bookYog > 0: 'A yoga mat is rolled up in a corner. '
gs 'exercise', 'start'
*nl
if komp = 1:'Your laptop is sitting on small table.'
if student > 0 and kursovik < 100:
act 'Do coursework (1:00)':
cla
*clr
minut += 60
kursovik += rand(pcs_intel / 20, pcs_intel / 10)
if kursovik > 100:kursovik = 100
pcs_mood -= 10
'
> src="images/pc/activities/study.jpg">'
'You sit down on the sofa bed and do your coursework, you''ve finished <> percent of it.'
act 'Stand up':gt 'pavSharedApt', 'pcsRoom'
end
end
if vcard > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
if card > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'
if dur > 0:'You have <> doses of Pale Lady, hidden from the other housemates.'
if dur > 0 and narkday ! daystart:
act 'Use some Pale Lady (0:05)':
cla
*clr
minut += 5
narkday = daystart
gs 'drugs', 'cocaine'
gs 'stat'
'
> src="images/shared/drugs/dur.jpg">'
'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
act 'Continue':gt 'pavSharedApt', 'pcsRoom'
end
end
if gobelen>0:'You have <> completed tapestries.'
if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <> lessons.'
if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
if pcs_sewng >= 80:
if newgobelen = 0 and tkan > 0:
act'Start a new tapestry':
cls
tkan -= 1
newgobelen = 1
minut += 15
gs'stat'
'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
act'Set the tapestry aside':gt 'pavSharedApt', 'pcsRoom'
end
end
if newgobelen>=1:
'Your tapestry is <> percent finished.'
act'Work on the tapestry for an hour':
cls
minut+=60
sewng_exp += rand(pcs_intel/10, pcs_intel/5)
gobramax = (pcs_sewng - 70) * 6
gobramin = (pcs_sewng - 70) * 2
newgobelen += rand(gobramin,gobramax)
gs'stat'
if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <> percent finished.'
if newgobelen >= 1000:
newgobelen = 0
gobelen += 1
'Your work on the tapestry is done.'
end
act'Set the tapestry aside':gt 'pavSharedApt', 'pcsRoom'
end
end
end
if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
'Your birth control tablets are in the cabinet next to your bed, along with some condoms.'
elseif tabletki > 0:
'Your birth control tablets are in the cabinet next to your bed.'
elseif prezik + prezikcount + preziksabo > 0:
'Your condoms are in the cabinet next to your bed.'
end
''
if sewing_kit = 1:
'Your sewing kit is stored on a shelf.'
end
if tovarL > 0:'You currently have <> trinkets to sell at the station. The maximum you can carry with you is 30.'
dynamic $wearpan
dynamic $removepan
!gs 'subkid'
act 'Relax on your bed': gt 'bed', 'start'
end
if $ARGS[0] = 'sofabed':
$menu_loc = 'pavSharedApt'
$menu_arg = 'sofabed'
menu_off = 0
$loc = 'pavSharedApt'
$metka = 'sofabed'
*clr & cla
gs 'stat'
'
> src="images/shared/sharedapt/bedroom/sofabed.jpg">'
'A small sofa bed, when not unfolded, is just big enough for you to curl up on and take a nap.'
if TV = 1:
act 'Watch some TV':gt 'TV', 'start'
end
if pornMagazine > 0:'
There is a porn magazine under the sofa cushions'
gs 'events', 'read_porn'
gs 'events', 'read'
if pcs_horny >= 50:
act 'Masturbate':gt 'selfplay', 'start'
end
act 'Take a nap (1:00)':
if pcs_sleep < 90:
pcs_sleep += 10
pcs_health += 5
minut += 60
gs 'stat'
'You sleep about an hour.'
else
minut += 5
gs 'stat'
'You are not tired enough to sleep, even for a short nap.'
end
end
act 'Get up':gt 'pavSharedApt', 'pcsRoom'
end
if $ARGS[0] = 'ndRoom':
$menu_loc = 'pavSharedApt'
$menu_arg = 'ndRoom'
menu_off = 0
$loc = 'pavSharedApt'
$metka = 'ndRoom'
minut += 2
'>><<$nd_name>>''s room
'
'
> src="images/locations/pavlovsk/resident/sharedapt/nd/room.jpg">'
''
'The room is surprisingly not as messy as one would expect, given that <<$nd_name>> is an IT guy.'
'There is one large window with bed bellow it, but the whole room is dominated by a large table with several computers and monitors.'
'Looking at it one would say that this must be a den of a hacker.'
if hour >= nd_sleeps and hour < nd_wakes:
'<<$nd_name>> is sleeping in his bed.'
elseif hour >= nd_wakes and hour < nd_leaves:
'<<$nd_name>> is already awake, getting ready to leave.'
act 'Approach him': gt 'pavShared_nd', 'nd'
elseif hour >= nd_leaves and hour < nd_comes:
'<<$nd_name>> is not here.'
elseif hour >= nd_comes and hour < nd_sleeps:
'<<$nd_name>> is currently behind his desk, doing some clever IT stuff.'
act 'Approach him': gt 'pavShared_nd', 'nd'
end
if servitudeLvl >= 1 and nd_cleaned = 0:
if poroshok >= 1:
act 'Clean the room':nd_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
else
'You don''t have enough laundry detergent to clean the room'
end
end
act 'Leave':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'gpRoom':
$menu_loc = 'pavSharedApt'
$menu_arg = 'gpRoom'
menu_off = 0
$loc = 'pavSharedApt'
$metka = 'gpRoom'
minut += 2
'>><<$gp_name>>''s room
'
'
> src="images/locations/pavlovsk/resident/sharedapt/gp/room.jpg">'
''
'Messy room. Clothes everywhere.'
if hour >= gp_wakes and hour < gp_leaves:
'<<$gp_name>> is already awake, getting ready to leave.'
act 'Approach him': gt 'pavShared_gp', 'gp'
elseif hour >= gp_leaves and hour < gp_comes:
'<<$gp_name>> is not here.'
elseif hour >= gp_comes and hour < gp_sleeps:
'<<$gp_name>> is currently on his bed, listing through some magazines.'
act 'Approach him': gt 'pavShared_gp', 'gp'
elseif hour >= gp_sleeps or hour < gp_wakes:
'<<$gp_name>> is sleeping in his bed.'
end
if servitudeLvl >= 1 and gp_cleaned = 0:
if poroshok >= 1:
act 'Clean the room':gp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
else
'You don''t have enough laundry detergent to clean the room'
end
end
act 'Leave':gt 'pavSharedApt', 'start'
end
if $ARGS[0] = 'spRoom':
$menu_loc = 'pavSharedApt'
$menu_arg = 'spRoom'
menu_off = 0
$loc = 'pavSharedApt'
$metka = 'spRoom'
minut += 2
'>><<$sp_name>>''s room
'
'
> src="images/locations/pavlovsk/resident/sharedapt/sp/room.jpg">'
''
'Tidy room full of sporting stuff like dresses, equipment and trophys. On the walls hang several posters of famous sport guys.'
if hour >= sp_wakes and hour < sp_leaves:
'<<$sp_name>> is already awake, packing his bags to leave.'
act 'Approach him': gt 'pavShared_sp', 'sp'
elseif hour >= sp_leaves and hour < sp_comes:
'<<$sp_name>> is not here.'
elseif hour >= sp_comes and hour < sp_sleeps:
doesStuff = rand (0, 100)
if doesStuff < 50:'<<$sp_name>> is currently on his bed, listing through sport magazines.'
if doesStuff >= 50:'<<$sp_name>> is working out on the floor.'
act 'Approach him': gt 'pavShared_sp', 'sp'
elseif hour >= sp_sleeps or hour < sp_wakes:
'<<$sp_name>> is sleeping in his bed.'
end
if servitudeLvl >= 1 and sp_cleaned = 0:
if poroshok >= 1:
act 'Clean the room':sp_cleaned = 1 & gt 'pavSharedApt', 'cleanForGuys'
else
'You don''t have enough laundry detergent to clean the room'
end
end
act 'Leave':gt 'pavSharedApt', 'start'
end
--- pavSharedApt ---------------------------------