glife/locations/kit_din.qsrc

# kit_din

$santehnikgr = {
	*clr & cla
	ransloman = 0
	minut += 25
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
	'You called the plumber and Grisha arrived literally 15 minutes later. He quickly found the cause and repairs the problem.'
	act 'Next':dynamic $santehnikend
}

$santehnikend3 = {
	*clr & cla
	ransloman = 0
	
	spafinloc = 11
	gs 'cum_manage'
	if GrishaSex = 0:GrishaSex = 1 & guy += 1
	if pcs_makeup > 1:pcs_makeup = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj2.jpg"></center>'
	'You feel like you are slapped in the face by something warm and viscous. Then another and another, covering your face with his white seed. Cum drips from your face on the lips, chin and cheeks. The plumber is finally spent.'
	'You can not open your eyes because they are covered in sperm which has matted your eyelashes. The plumber chuckles and says, "Classy lady. You slut." His words touch you and you feel your cheeks flush with shame.'
	'You have try wiping the sperm from the face, hoping to unstick your eyes, but you only manage to smear it all over your face. Finally you are able to open one eye and see the plumber standing over you, he smirks as he buttons up his pants.'
	'Thereafter, the plumber turna and leaves your apartment.'

	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Get up':gt $curloc
}

$santehnikend1 = {
	*clr & cla
	kransloman = 0
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
	'You helplessly shrug and mumble that you have no idea what to do now. The plumber examines you with oily eyes and tells you with an infamous smirk, "Maybe there is another way. I can take payment for work, but not with money."'

	act 'Suggest a loan':dynamic $santehnikend2

	act 'Another way?':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
		'You ask the plumber what he has in mind. Instead of answering, he takes you by the shoulders and draws you to him. You rest your soft breasts against his chest and feel your stomach resting on something solid. He easily pushes your shoulders and whispers, "Come on baby, do not be shy."'

		act 'Kneel':
			*clr & cla
			minut += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj.jpg"></center>'
			'You slowly kneel before then smelly plumber. He unbuttons his pants and his dick slaps you in your face, making you pull back.'

			if stat['bj'] = 0:
				'You have never blown a guy before and you look with horror at the cock in front of you. The plumber sees your confusion and taking you by the head pulls you to the member. Unwittingly your lips touch the crimson head.'
			else
				'You tilt your head forward and kiss it.'
			end

			act 'Suck':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/plumber/bj1.jpg"></center>'
				'You cup the warm and hard cock between your lips and start sucking it, uttering slurping sounds. The plumber begins to move his hips trying to drive his cock deeper into your mouth. His solid organ fills almost your entire mouth and sticks in your throat, unwittingly choking you.'
				'Tears flow from your eyes, but the plumber has already fallen into a rage, and not paying attention to you, fucking your mouth, keeping it in. Finally he quickly pull his cock out of your wet mouth and starts masturbating in front of your face.'

				gs 'arousal', 'bj', 3, 'sub', 'deepthroat', 'rough'
				gs 'stat'
				
				act 'Close your eyes':dynamic $santehnikend3
			end
		end
	end
}

$santehnikend2 = {
	*clr & cla
	kransloman = 0
	minut += 15
	santehnikDolg = 1500

	if Grisha >= 1:$textsan = 'Grisha smiles at you. "Not the first time I''ve been here. Write receipt, then you save up the money, again."'
	if Grisha = 0:Grisha = 1 & $textsan = 'I''m Grisha by the way, you? "You smile feeling that the storm has passed and tell the plumber that your name is <<$pcs_nickname>>.'

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
	'You offer to issue the plumber a reciept of debt. He thinks for a moment and says, "Okay. Write a receipt. Next time I''m about, I''ll look in and you give me the money. <<$textsan>> Then teking a pen and paper you write the plumber a receipt that you owe him 1,500 <b>₽</b>. Grisha takes the paper and puts it in his pocket. "If you have another leak, call me, here''s my card."'

	act 'Plumber leaves':gt $curloc
}

$santehnikend = {
	*clr & cla
	kransloman = 0
	minut += 30
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
	'Half an hour later he says he is finished, and it will be 1,500 <b>₽</b>'

	if money >= 1500:
		act 'Pay':
			money -= 1500
			gt $curloc
		end
	elseif money < 1500:
		'You do not have enough cash on you.'
		if money+stolmoney >= 1500:
			'You remember the stash in your table and with that you''ll have enough.'
			act 'Pay':
				money = money+stolmoney & stolmoney = 0
				money -= 1500
				gt $curloc
			end
		elseif money+stolmoney + karta >= 1500:
			'You know that even with your stash in the apartment you are short, but you could get the extra from the ATM.'
			act 'Walk down to the ATM and get the extra money, then pay':
				minut += 10
				money = money + stolmoney & stolmoney = 0
				karta -= (1500 - money)
				money = 0
				gt $curloc
			end
		elseif money+stolmoney < 1500:
			act 'I did not have enough money':
				*clr & cla
				gs'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s3.jpg"></center>'
				'You are embarrassed and tell the plumber, that you do not have enough money. He is visibly angry. "You call a fucking plumber and don''t have any money? What am I supposed to do now?"'
				act 'Shrug':dynamic $santehnikend1
				act 'Suggest a loan':dynamic $santehnikend2
			end
		end
		if money+stolmoney<1500 and shameless > 14:
			act 'Offer a favour instead':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s4.jpg"></center>'
				'I do not have money, but you can take another form of payment? you say, dropping to her knees and starting to unbutton his pants. The guy obviously does not mind and watching your actions. You remove it even flaccid penis and tightly gripping his hand, start to kiss the head, gradually sucking it into his mouth.'

				gs 'arousal', 'bj', 3, 'sub'
				gs 'stat'
				
				act 'Continue':
! here I need work around the direct return address and get from kuhr korr and from kuhr2x korr2x
					$sexloc = 'korr' + $mid($curloc,5,2)

					if pcs_apprnc < 60:
						*clr & cla
						guy += 1
						'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s5.jpg"></center>'
						'You diligently sucking his dick between his legs itched from all desires, you break off a couple of times to stop and go to the sex, but he took you by the head and continued to fuck your mouth, soon he came into your mouth and swallow once you come and pick it up again member, as he put his pants and silently walked to the door, to sleep with you, he was not even going. From rastrojstva you spat out semen on the floor, looks like you do not attract even plumbing.'

						gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
						gs 'arousal', 'end'
						gs 'stat'

				
						act 'Leave':gt $sexloc
					elseif pcs_apprnc >= 60:
						picrand = 90
						gt 'sex', 'minet'
					end
				end
			end
		end
	end
}

$santehnik1 = {
	kransloman = 0
	minut += 20
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s0.jpg"></center>'
	'You find a phone number for a plumber in a kitchen draw. After 20 minutes, the plumber arrives.'
	'You lead him into the kitchen and he starts to get to work. When you reached up to one of the shelves, you notice that he is staring at your ass.'

	act 'Disregard':dynamic $santehnikend
}

$santehnik = {
	*clr & cla
	kransloman = 0

	if husband = 0 or husbandrink = 10:dynamic $santehnik1 & exit
	if husband > 0 and week < 6 and hour < 17 and hour > 7:dynamic $santehnik1 & exit

	sexpartkno = 1
	gs 'boyStat', $HusID
	gs 'boyStat', 53, 'a'

	if husband > 0 and husbandrink ! 10:
		*clr & cla
		minut += 20
		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s7.jpg"></center>'
		'You tell your husband about the leak and he makes a phone call. After 20 minutes, a plumber arrives.'
		'Your husband walks him to the kitchen and the two of you began to observe his actions, you are sick of hearing about how the plumber hates cheap Chinese fittings and what people pushed into the sink, and you decided to wait in the living room.'

		act 'Leave':
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
			'You go into the room and sit on the couch, soon your husband comes in and sits down beside you. With one hand on your breast, he runs his other hand down under your panties and begins to massage your clitoris.'
			'"What are you doing? What if the plumber comes in?"'
			'"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
			'"OK, lets." you say, now excited, it really looks like his hand has done its job.'

			gs 'arousal', 'foreplay', 10, 'sub'
			gs 'stat'
			act 'Start':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
				'The husband stands up and pulls from his unbuttoned pants his member, you drop to your knees and his cock is in your mouth, right then the plumber enters, "I''m finished." he says and freezes, seeing this picture.'

				gs 'arousal', 'bj', 10, 'sub'
				gs 'stat'
			
				if izvratH = 0:
					'Your husband tries to remove his member from your mouth'

					if pcs_horny < 80:
						act 'Stop':
							cla
							'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
							gs 'arousal', 'end'
							gs 'stat'
							act 'Leave':gt 'sitr'
						end
					end

					act 'Do not stop':
						cla
						'You grabbed your husbands hips and continued to work your mouth, he jerks a couple of times trying to free himself, but you can not stop and just swallow his cock even deeper. When he stops twitching you bring one hand to your crotch and with just a couple of motions bring yourself to orgasm.'
						'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'

						$orgasm_or = 'yes'
						gs 'arousal', 'bj', 10, 'sub'
						gs 'stat'
						act 'Ride your husband':
							*clr & cla
							gs 'cum_manage'
							suprdolg += 1
							husband += 1
							husbizvradd += 1
							'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
							'You release your husband''s member from your mouth and quickly push him to sit on the couch, then jump on top of him, quickly planting his dick in your pussy. You ride it like crazy, ignoring the plumber, still stood in the doorway, watching you. When you are again close to orgasm you feel as sperm gushes into you'
							'It take a few movements from his twitching cock, but you also reach orgasm, uttering a cry you limp and fall from your husband. He leaves you still quaking, pulls up his pants and walks out with the plumber to the hallway.'

							$orgasm_or = 'yes'
							gs 'arousal', 'vaginal', 10, 'sub'
							gs 'arousal', 'end'
							gs 'stat'
						
							act 'Leave':gt 'sitr'
						end
					end
				else
					'Your husband did not even try to stop you'

					if pcs_horny < 80:
						act 'Stop':
							if harakHusb ! 2:
								cla
								'You release your husband''s member from your mouth and he quickly pulls up his pants and with the plumber goes out into the corridor'
								act 'Leave':gt 'sitr'
							elseif harakHusb = 2:
								cla
								guy += 1
								'You tried to spit the member from your mouth, but your husband grabs hold of your head and he starts to fuck you in the mouth, talking with shocked plumber, "We''re a little busy, at the moment, it''s her feeding time." he laughes, "How much do I owe you?" He continues.'
								'"Fifteen hundred." Manages the plumber.'
								'"Well, with those prices can agree that if you feed her too, we consider it paid?" He asks.'
								'"I do not know, a blowjob would earn a discount, but if she can do us both, then yes." replied the plumber.'
								'"You know how to bargain." Says your husband, "Okay agreed." He adds, almost without thinking. Knowing the character of your husband you know that your peril has been decided.'

								act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
							end
						end
					end

					act 'Do not stop':
						cla
						'You continued to suck ignoring the watching plumber.'

						if harakHusb = 0:'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
						if harakHusb = 1:'Your husband stands savoring the process without paying attention to the plumber.'
						if harakHusb = 2:'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'

						gs 'arousal', 'bj', 10, 'sub'
						gs 'stat'
						
						act 'Continue':
							cla
							gs 'cum_call', 'mouth_swallow', $boy, 1
							suprdolg += 1
							husband += 1
							pcs_horny += 20
							'You continue to blow your husband, and soon a stream of hot liquid squirts into your mouth, swallowing the sperm you lick the remnants of semen from his penis. Your husband puts his cleaned dick in his pants and walks out into the hallway with the plumber. And you are left sitting on the floor, exhausted from desire.'

							gs 'arousal', 'end'
							gs 'stat'
							
							act 'Leave':gt 'sitr'
						end

						if pcs_horny > 70:
							act 'Suggest a threesome':
								cla
								'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'

								if harakHusb = 0:
									*clr
									houseslut += 1
									husband += 2
									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s11.jpg"></center>'
									'Your husband is a little shocked by the idea, what would convince him? In a loud voice you continue, "Let him lick me while I caress you."'
									'The plumber tenses, waiting for the reaction of your husband, "Well, if only licking you, then let him." Says your husband. The plumber does not need persuading, your husband sits on the sofa, and you get on your knees and stick out your ass as the plumbers tongue penetrates your pussy.'
									'At first your husband keeps glancing in his direction, but soon relaxes and finally when the guy starts to finger your hole with a vengance, he says nothing, you decide that he is no longer against you sharing with others.'

									gs 'arousal', 'cuni', 10, 'sub', 'group'
									gs 'arousal', 'vaginal_finger', 10, 'sub', 'group'
									minut -= 10
									gs 'stat'
							
									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
								elseif harakHusb = 1:
									husband -= 5
									'"You think I should share you, my wife with the plumber? Cool that foolish pussy, you must think with your head." shouts your husband and returning his member to his pants goes out of the room with the plumber.'

									act 'Leave':gt 'sitr'
								elseif harakHusb = 2:
									*clr
									houseslut += 1
									husband += 2
									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s10.jpg"></center>'
									'"It''s not for nothing that they say all women are whores, hey man this whore wants to do both of us, but then the repair is free of charge." Says your husband. The plumber does need a second invite, he quickly approachs and pulls out his dick.'
									'Bringing it to your face, you cling to him and start to suck both cocks alternately, your husband stands carefully watching your actions "You like sucking fresh meat, but do not forget about me, and this boys and mine you swallow deeper and deeper."'

									gs 'arousal', 'bj', 10, 'sub', 'group'
									gs 'stat'
							
									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
								end
							end
						end
					end
				end
			end
		end
	end
}

$dirtarm = {
	if fairy > 0:
		*clr & cla
		fairy -= 1
		minut += dirttarelka * 3
		cltarelka += dirttarelka
		dirttarelka = 0
		pcs_mood -= 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/shared/home/kitchen/dirt.jpg"></center>'
		'Using the dishwashing liquid you washed the dishes.'

		act 'Dry your hands':gt $loc, $loc_arg
	else
		'<b><font color="red">You have no dishwashing liquid.</font></b>'
	end
}

$edagotd = {
	*clr & cla
	gs 'stat'
	killvar '$_eat'
	'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
	'What kind of meal would you like to make?'

	act 'Prepare a light meal (0:20)': $edameal = 's_meal' & dynamic $edagotpk
	act 'Prepare a normal meal (0:25)': $edameal = 'm_meal' & dynamic $edagotpk
	act 'Prepare a hearty meal (0:30)': $edameal = 'l_meal' & dynamic $edagotpk
	act 'Nevermind':gt $loc, $loc_arg
}

$edagotpk = {
	*clr & cla
	if $edameal = 'l_meal':
		minut += 30
	elseif $edameal = 'm_meal':
		minut += 25
	elseif $edameal = 's_meal':
		minut += 20
	else
		$edameal = 'm_meal'
		minut += 25
	end
	edahot += 1
	mc_inventory['food_basic'] -= 1
	kuhdrova = 0
	musor += 1
	if $loc ! 'uni_dorm': cltarelka -= 1
	pcs_mood -= 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
	'You prepare the meal.'

	if $edameal = 'l_meal':
		act 'Eat cooked food (0:20)':dynamic $edahotd
	elseif $edameal = 'm_meal':
		act 'Eat cooked food (0:15)':dynamic $edahotd
	else
		act 'Eat cooked food (0:10)':dynamic $edahotd
	end
	act 'Leave the meal':gt $loc, $loc_arg
}

$edahotd = {
	*clr & cla
	edahot = 0
	if $loc ! 'uni_dorm': dirttarelka += 1
	pcs_mood += 20
	if $edameal = '': $edameal = 'm_meal'
	gs 'food', $edameal
	killvar '$edameal'
}

$eatout = {
	*clr & cla
	edahot = 0
	pcs_mood += 20
	gs 'food', 'm_meal'
}

$posudomashina = {
	if dirttarelka > 0 and fairy >= dirttarelka:
		cltarelka += dirttarelka
		fairy -= dirttarelka
		dirttarelka = 0
		'Your dishwasher has washed the dirty dishes.'
	elseif fairy < dirttarelka:
		'You have run out of dishwashing liquid.'
	end
}

$edasnack = {
	act 'Have a snack (0:05)': gs 'food', 'snack'
}

	if mc_inventory['food_biscuits'] > 0:
		if mc_inventory['food_biscuits'] = 1:
			'You only have one more portion of tea biscuits.'
		else
			'You have enough tea biscuits for <b><<mc_inventory['food_biscuits']>></b> more snacks.'
		end
		act 'Eat some tea biscuits (0:05)':
			*clr & cla
			menu_off = 1
			minut += 5
			mc_inventory['food_biscuits'] -= 1
			pcs_health += 30
			pcs_mood += 20
			pcs_energy += 20
			fat += 4
			frost = 0
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
			'You enjoy your biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'

			act 'Get up from the table':gt $loc, $loc_arg
		end
	end
}

$dritea = {
	act 'Have a cup of tea (0:10)': gs 'beverage', 'bev_tea'
}

$edaD = {
	if mc_inventory['food_diet'] > 0:
		'The refrigerator contains <b><<edaD>></b> healthy meals.'
		act 'Eat diet food (0:20)':
			*clr & cla
			menu_off = 1
			frost = 0
			minut += 20
			pcs_health += 10
			pcs_mood += 20
			mc_inventory['food_diet'] -= 1
			'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
			if pcs_energy >= 100:
				'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
			elseif pcs_energy >= 80:
				pcs_energy += 40
				'You try to enjoy the diet meal, but half-way in you realize you weren''t all that hungry yet. You manage to finish the meal, but feel like it was kind of wasted.'
			else
				pcs_energy += 80
				'The diet meal is tasty, and you enjoy eating it.'
			end
			gs 'stat'

			act 'Get up from the table':gt $loc, $loc_arg
		end
	end
}

$fatdel = {
	if fatdel > 0:
		act 'Take fat burners (0:05)':
			*clr & cla
			menu_off = 1
			minut += 5
			fatdel -= 1
			if pcs_hydra >= 100:
				pcs_hydra += 25
			else
				pcs_hydra += 50
			end
			fat -= 20

			'You drink the fat burning capsule. These capsules are quick release and results can be seen soon.'
			gs 'stat'

			act 'Get up from the table':gt $loc, $loc_arg
		end
	end
}

$driwater = {
	act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
}

$fill_bottle = {
	if refillable_bottle > 0 and refillable_bottle < 4:
		*nl
		'You can fill your sports water bottle with filtrated tap water.'
		act 'Fill your water bottle (0:01)':
			minut += 1
			refillable_bottle = 4
			gt $loc, $loc_arg
		end
	end
}

$sandwich = {
	if bag > 0 and mc_inventory['food_sandwich'] = 0: 
		act 'Make a sandwich to go (0:05)': 
			minut += 5
			mc_inventory['food_sandwich'] = 1
			gt $loc, $loc_arg
		end
	end
}

$lekarstvo = {
	if lekarstvo > 0:
		'You have <b><<lekarstvo>></b> antibiotics.'

		if sick > 0 and lekarday ! daystart:
			act 'Take an antibiotic (0:05)':
				*clr & cla
				menu_off = 1
				minut += 5
				lekarday = daystart
				lekarstvo -= 1
				sick -= sick * 20 / 100
				if pcs_hydra >= 100:
					pcs_hydra += 25
				else
					pcs_hydra += 50
				end
				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<rand(1,3)>>.jpg"></center>'
				'You took an antibiotic pill'
				gs 'stat'

				act 'Move away':gt $loc, $loc_arg
			end
		end
	end
}

$vitamin = {
	if vitamin > 0:
		'You have <b><<vitamin>></b> vitamin drinks.'

		if vitaminday ! daystart:
			act 'Take vitamins (0:02)':
				*clr & cla
				menu_off = 1
				minut += 2
				vitaminday = daystart
				vitamin -= 1
				frost = 0
				if pcs_hydra >= 100:
					pcs_hydra += 25
				else
					pcs_hydra += 50
				end
				if KandidozOnce = 1:Kandidoz -= 2
				if GerpesOnce = 1:Gerpes -= 2
				if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)

				skinDailyGain += 1
				'You took some vitamins.'
				gs 'stat'

				act 'Move away':gt $loc, $loc_arg
			end
		end
	end
}

--- kit_din ---------------------------------