# artemhome
!! dimaRevenge = triggers dimkaRevenge plot.

CLOSE ALL
frost = 0
gs 'stat'
gs 'boyStat','A2'

if $ARGS[0] = '':
	menu_off = 1
	
	act 'Move away from the door':minut += 5 & gt 'pod_ezd','etaj_1'

	if week < 6:
		if hour < 14 and hour >= 7:
			'You go to Artem Chebotarev''s apartment and ring the door bell.'
			'No one answers the door. Artem is probably not home.'
		elseif hour >= 14 and hour < 20:
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
			'You go to Artem Chebotarev''s apartment and ring the door bell.'
			'Artem opens the door and invites you in: "Hi <<$pcs_nickname>>, come on in."'

			act 'Enter Artem''s apartment':gt 'artemhome','inside'
		elseif hour >= 20 or hour < 7:
			'It would be rude to even ring the doorbell at this time of day, Artem is probably asleep. You decide against it, and lower your hand.'
		end
	elseif week >= 6:
		if hour < 10:
			'It''s too early in the day to go visit Artem.'
		elseif hour >= 10 and hour < 20:
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
			'You go to Artem Chebotarev''s apartment and ring the door bell.'
			'Artem opens the door and invites you in: "Hi <<$pcs_nickname>>, come on in."'

			act 'Enter Artem''s apartment':gt 'artemhome','inside'
		elseif hour >= 20 or hour < 5:
			'It would be rude to even ring the doorbell at this time of day, Artem is probably asleep. You decide against it, and lower your hand.'
		end
	end
end

if $ARGS[0] = 'leave':
	minut += ARGS[1]
	gs 'shortgs','checkdress',' ''artemhome'',''inside'' '
	gt 'pod_ezd','etaj_1'
end

if $ARGS[0] = 'inside':
	$loc = $CURLOC
	$metka = $ARGS[0]
	$location_type = 'private'
	$menu_loc = 'artemhome'
	$menu_arg = 'inside'
	menu_off = 0

	if ArtemBeInHome = 0:ArtemBeInHome = 1
	'<center><b><<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
	
	act 'Leave Artem''s apartment': gt 'artemhome','leave', 1
	
	if artQW = 21:
		gt 'ArtemEv3','slut_talk'
		exit
	elseif artQW = 22:
		gt 'ArtemEv3','home_start'
		exit
	elseif (arthakQW = 1 or (artQW = 4 and arthakQW = 2)) and artomhakday ! daystart and artemblag = 0:
		!lied to artem about the content of the video
		gt 'artemhome', 'liar'
	elseif (arthakQW = 2 or (arthakQW = 1 and artemblag = 1)) and artemhakday ! daystart:
		arthakQW = 7
		!!the_truth
		DimaRudeBlock = 1
		'Artem tells you: "<<$pcs_nickname>>, I managed to get onto Dimka''s computer and deleted the video. It''s gone."'
	end
	if $clothingworntype = 'nude': act 'Dress yourself': gs 'shortgs','dress' & gt 'artemhome','inside'
	if artemtimes >= 15 and artQW = 0 and lernHome > 0 and pav_slut < 50:artQW = 1 & gt 'artemev2'

	'Artem sits in his room, on his bed.'

	artemRand = rand(0,1)
	if artemRand = 1 and artemtimes >= 45 and artemsex > 0 and artemanal > 0 and artemProgul ! daystart and (pav_slut < 50 or artemblag = 1):

		artemProgul = daystart
		cla
		gs 'stat'
		artemRand = rand(0,1)
		if artemRand = 0:
			'Artem smiles at you, and suggests: "<<$pcs_nickname>>, do you want to go for a walk in the park?"'
			act 'Agree to go for a walk':
				cla
				menu_off = 1
				'You give him a cute smile back: "Sure Artem, we could go for a walk, that sounds like fun!"'
				'You quickly pack up your things and leave the apartment with him, heading for the park.'
				act 'Walk in the park': gt 'artemEv','artemSkver'
			end
			act 'Stay here': gt 'artemhome','inside'
		else
			'Artem smiles at you, and suggests: "<<$pcs_nickname>>, that essay for school is due in not too long. We should go work on it in the library, what do you say?"'
			act 'Agree to work on the essay':
				cla
				menu_off = 1
				'You nod. You don''t feel like working on the essay, but you know you really should. At least you''ll be doing it together with Artem, hopefully he can help you out a bit.'
				'"You''re right, we really should. Okay, let''s go then."'
				'You quickly gather your things and go to the library with Artem.'
				act 'Go to the library': gt 'artemEv','artemBibl'
			end
			act 'Stay here': gt 'artemhome','inside'
		end
	end

	if artQW = 2:
		!!took the flowers but not wanker Artem
		artcooldown += 1

		if artcooldown >= 10:artcooldown = 0 & artQW = 1 & gt 'artemev2'
	elseif artQW = 3 and artemkissday ! daystart:
		gs 'artemEv'
		!!wanker Artem
		'Artem invites you to sit next to him on the bed.'
		act 'Kiss Artem': gt 'artemEv','kiss'
	elseif artQW >= 2 and artQW <= 3 and artemtimes >= 30 and pcs_grades >= 90 and pav_slut < 50:
		artQW = 10
		gt 'artemev2'
	elseif artQW = 20 and artemkissday ! daystart:
		'Artem invites you to sit next to him on the bed.'
		act 'Kiss Artem': gt 'artemEv','kiss'
	end

	if talkartemday ! daystart and artQW ! 5:
		act 'Chat with Artem':
			*clr & cla
			menu_off = 1
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
			'You talk with Artem for an hour, about various topics. Or rather: you''re doing most of the talking, and Artem is mostly listening to you talk. Occasionally he pitches in though, and you can tell he''s a very smart guy. You even learn a thing or two.'
			artemtimes += 1
			talkartemday = daystart
			lern += rand(3, 6)
			intel_exp += rand(1, 2)
			comphckng_exp += rand(1,3)
			minut += 60
			pcs_mood += 10
			gs 'stat'

			act 'Continue':gt 'artemhome','inside'
		end
	end

	if lernHome > 0:act 'Do homework with Artem': gt 'artemEv','learn'

	if dimaFilm > 0 and arthakQW = 0 and pcs_vag > 0:
		act 'Ask Artem to steal the video Dimka filmed of you':
			*clr & cla
			menu_off = 1
			dimaRevenge = 1
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
			'You''re not sure how to start this conversation, and take a deep breath. You carefully suggest: "Artem... we''re good friends, right?"'
			'Artem nods, unsure why you look so distraught: "Of course! Why, what''s wrong?"'
			'You continue: "And you''re good with computers? I could really use your help."'
			'He nods again: "Yea, I know a thing or two about computers. If I can help you out, I certainly will. What do you need?"'
			'You look at him, and decide to tell him: "Can you hack into someone else''s computer? To remove a file? I need you to hack into Dimka''s computer and delete a video. Just promise me you won''t look at it, please!"'
			'Artem looks a bit confused: "Erm, yea... I think I can do that. Why, what''s the video about?"'
			minut += 15
			gs 'stat'

			act 'Lie to him':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
				'You lie to him: "I got very drunk in the disco, a few nights ago. He made a video of it and threatened to tell my <<$npc_nickname[''A29'']>>. My <<$npc_nickname[''A29'']>> would kill me!"'
				'Artem nods: "Alright, I''ll see what I can do."'
				minut += 5
				artemhakday = daystart
				arthakQW = 1
				gs 'stat'
				if lernHome > 0:
					act 'Do homework with Artem': gt 'artemEv','learn'
				end
				act 'Leave Artem''s apartment':gt 'artemhome','leave',5
			end

			act 'Tell him the truth':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
				'You have to gather some courage to tell him the truth, and remain silent for a second.'
				'You stare at your feet, afraid to look him in the eye when you tell him: "I thought I loved him. He made a video of me giving him a blowjob... he''s blackmailing me with it now, forcing me to do all sorts of nasty things. Please, it would mean the world to me if you could make that video disappear.'
				'Artem nods: "That sounds horrible! Okay, I''ll see what I can do."'
				minut += 5
				artemhakday = daystart
				arthakQW = 2
				gs 'stat'
				if lernHome > 0:
					act 'Do homework with Artem': gt 'artemEv','learn'
				end
				act 'Leave Artem''s apartment': gt 'artemhome','leave',5
			end
		end
	end
end

!lied to artem about the content of the vide
if $ARGS[0] = 'liar':
	cla & clr
	menu_off = 1
	gs 'stat'
	DimaRudeBlock = 1
	artQW = 5
	npc_rel['A2'] = 0
	'<center><b><<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
	'Artem looks away from you, with a blank stare in his eyes. He mutters: "You know... I watched that video you wanted me to delete from Dimka''s computer. I can''t believe it... I was willing to do anything for you. Anything!"'
	'He continues: "Ever since I''ve seen that video... our relationship will be different. I saved a copy of it by the way, so I fucking own you now."'
	'He looks at you, and his gaze hardens. You can see the hatred in his eyes. His voice remains surprisingly calm, as he orders you: "And now... get down on your fucking knees, bitch! You''re going to have to earn my silence, the hard way."'
	'He will probably share the video with everyone, if you don''t do as he says.'

	act 'Get down on your knees':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/artem/sex/facefuck.jpg"></center>'
		'You drop to your knees quickly, like he tells you. You''re trying to apologize for lying to him, but all that comes out of your mouth is a blubbering mess of incoherent excuses.'
		'Not that it would''ve mattered... Artem is not interested in what you have to say, and lowers his pants to reveal his erect cock. The hatred in his eyes makes place for a cruel grin... he realizes he owns you now, and is already thinking about all the things he could have you do.'
		'When he approaches you, you open your mouth automatically and just suffer through it when he gives you a rough facefuck.'
		'He''s quite mean with you, and once or twice you feel like you''re running out of breath. Fortunately he doesn''t last very long, and after a few moments you feel his sperm sliding down your throat. You swallow his load automatically, not even giving it any thought.'
		npc_sex[$boy] += 1
		gs 'arousal','bj',5,'sub'
		gs 'cum_call','mouth',1
		swallow += 1
		gs 'arousal','end'
		gs 'stat'

		act 'Take a deep breath':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/artem/meet6.jpg"></center>'
			'You try to catch your breath, while Artem straightens his clothes. Then he takes you by the hand; an almost endearing gesture, but you know it''s not.'
			'Artem has a serious look in his eyes when he says: "Down to business, <<$pcs_nickname>>. I know you''re a slut. A slut like you wouldn''t mind teaching my friend some things about the female body, would she?"'
			'You obediently shake your head, knowing it''s what he wants to hear. He smiles: "Very good, very good. If you''re the obedient bitch for me that I think you will be, I promise no one will see that video. I''ll even destroy it. Eventually."'
			'He''s not giving you any time to think it over, and says: "So, decision time. Are you going to be my obedient little bitch, <<$pcs_nickname>>?"'
			'You know he will publish that video if you leave now. It would ruin your reputation in Pavlovsk, but you have no clue what Artem has planned for you if you stay.'
			gs 'stat'

			act 'Do what he wants':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/2.jpg"></center>'
				'You hang your head in shame and nod. He grins at you and mocks: "What''s that, <<$pcs_nickname>>? I can''t hear you."'
				'You softly say: "I''ll... I''ll be your bitch, Artem."'
				'He smiles benevolently at you and says: "I knew you would. Now come with me."'
				'You follow him to their garage, where Peter Klyuyev was already waiting. He''s by far the biggest nerd in your class.'
				'Artem grins at him: "Look who I have brought, Petka! Just like I promised you, <<$pcs_nickname>> here has kindly agreed to teach us everything about the female body. <b>We will have anatomy lessons here every Monday, after class.</b>"'
				'"Today''s lesson will be about the vagina". Artem looks at you insistently and says: "Show us your pussy and spread those lips. I don''t even want to think about what that sleezebag Nosov did with them earlier."'
				minut += 15
				gs 'stat'

				act 'Spread your lips':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/artem/sex/fist.jpg"></center>'
					'You do as he says, and pull your pussy lips apart.'
					'Artem tells Petka: "So, Petka, this is what a spacious whore pussy looks like. Open them further <<$pcs_nickname>>, I know what it''s capable of."'
					'You oblige and pull them further apart, stretching it as fas it will go.'
					'Artem nods contently: "Good. Now put your hand in. I know you can do it."'
					'You try to push your hand in, but it doesn''t work. You look up at Artem and ask him: "I can''t, not like this... can you at least give me some lubricant, please?"'
					'Artem throws a bottle of oil your way, and sighs: "Here you go, whore. Now get to work."'
					'You lubricate your hand royally, and try again. It takes a while, but eventually you manage to put your entire hand inside your snatch. Even though this experience is humiliating you to the bone, you can''t help but get aroused from the feeling. After a few minutes your body begins to spasm, and you realize you''re having an orgasm on Artem''s garage floor, while he and his friend watch you shove your own fist up your pussy. The whole world goes black.'
					minut += 15
					pcs_vag += 3
					gs 'stat'

					act 'Open your eyes':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/artem/sex/doublebj.jpg"></center>'
						'You open your eyes and see how Petka and Artem surrounded you, both stroking their cocks.'
						'Artem says: "Back in the land of the living, whore? I can''t believe you came from that. Anyway, it''s time you give Petka his first blowjob. Make sure it''s a good one. You know what, suck me off too."'
						'You slowly pull your hand from your stretched vagina and gently try to rub the sore feeling from your pussy lips while you suck off the guys, one at a time. After a few minutes, they both shoot their loads onto your face.'
						gs 'boyStat','A2','1'
						gs 'boyStat','A6','2'
						gs 'arousal','bj',5,'dick[1]','sub','group'
						gs 'arousal','bj',5,'dick[2]','sub','group'
						gs 'cum_call','face',$boy[1],1
						gs 'cum_call','face',$boy[2],1
						gs 'arousal','end'
						minut += 5
						npc_sex['A2'] += 1
						npc_sex['A6'] += 1
						gang += 1
						cumface += 2
						facial += 1
						arthakQW = 10
						artemblok = 0
						'You carefully ask: "So... will you delete the video now?"'
						'Artem chuckles: "Delete the video?" He chuckles again and shakes his head. "No."'

						!! The forced petka/artem events dont seem to exit, commented them out until they are
						!!'Artem chuckles: "Delete the video? <<$pcs_nickname>>, please... we''re just getting started. Me and Petka have big plans with you."'
						!!'He continues: "Don''t worry, it will be our little secret. Next Monday, we will continue our anatomy lessons. I''ll be waiting for you after school."'

						gs 'stat'

						act 'Leave the garage':gt 'pavComplex','garages'
					end
				end
			end

			act 'Leave his apartment and run away':
				artemblok = 1
				artemhakday = daystart
				artemvbrosvid = 1
				gt 'artemhome','leave',5
			end
		end
	end

	act 'Leave his apartment and run away':
		artemvbrosvid = 1
		artemblok = 1
		artemhakday = daystart
		gt 'artemhome','leave',5
	end
end

--- artemhome ---------------------------------

