glife/locations/artemhome

# artemhome
gs 'stat'
$boy = 'Artem'
dick = 16
silavag = 0

if artemhomemark = 0:
	'You came to the house Artem Chebotarev.'

	act 'Leave':minut += 15 & gt 'gorodok'

	if week < 6:
		if hour < 16 and hour >= 7:
			'Artem not at home.'
		elseif hour >= 16 and hour < 20:
			'The door you opened Artem and invited to enter.'

			act 'Enter':artemhomemark = 1 & gt $curloc
		elseif hour >= 20 or hour < 7:
			'Too late, that would go to visit.'
		end
	elseif week >= 6:
		if hour < 10:
			'Too early time, that would go to visit.'
		elseif hour >= 10 and hour < 20:
			'The door you opened Artem and invited to enter.'

			act 'Enter':artemhomemark = 1 & gt $curloc
		elseif hour >= 20 or hour < 5:
			'Too late, that would go to visit.'
		end
	end
elseif artemhomemark = 1:
	if (arthakQW = 1 or (artQW = 4 and arthakQW = 2)) and artemhakday ! daystart and artemblag = 0:
		!!tell_a_lie
		DimaRudeBlock = 1
		'Artem tells you "There are no words - well.I was ready to do anything for you .I think after that I saw our relationship will move to another plane. A record pobudet let me - so that your head is not climbed all sorts of nonsense. And now ON KNEES BITCH! Exhaustion - it''s the least you can do that I have not used this entry."Artem very disappointed and angry.It seems he began to despise you.'

		act 'Get on your knees':
			cls
			minut += 5
			bj += 1

			if npcSex[2] = 0:npcSex[2] = 1 & guy += 1

			swallow += 1
			cumlip += 1
			gs 'stat'
			'<center><img src="images/qwest/alter/artom/facefuck.jpg"></center>'
			'After these words, you choke, you are sick and flow snot, tears and saliva, Artem not stand for a long time and ends you right in the throat. You choking convulsively swallow sperm.'

			act 'Breathe':
				cls
				gs 'stat'
				'Artem takes you by the hand and says "I think that this bitch what are you showed not mind to devote my friend into the secrets of the female body." You shakes his head. "Well then .. And if you ''re obedient bitch - I promise - that no one is going to show her and eventually destroy. So do not speak and go."'

				act 'To escape and run away':
					artemblok = 1
					artemhakday = daystart
					artemvbrosvid = 1
					gt 'gorodok'
				end

				act 'Go with Artem':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/qwest/alter/artom/2.jpg"></center>'
					'You go to the garage with Artem. In the garage you see Pete Klyueva.'
					'Artem:"Look who I have here. As I promised you <<$name>> kindly agreed to teach us all the secrets of the female body. Anatomy lessons will be held on Mondays. And today''s lesson we will start with the vagina ...!"'
					'Artem:"Stretch ka pussy. I can imagine what else you got up with Nosov!"'

					act 'Spread your lips':
						cls
						minut += 15
						vagina += 3
						gs 'stat'
						'<center><img src="images/qwest/alter/artom/fist.jpg"></center>'
						'Artem :"Here Petruchio see what her capacious pussy. Yes stronger Do not be afraid - I know what you''re capable!"'
						'You stretch even further.'
						'Artem:"And not to be unfounded zasun a hand."'
						'Have you tried but did not get:" Give Vaseline please .Does not work." Artem gets what that oil and throws you "For such a whore ." You lubricate the hands of those that have and shove it in yourself.Oddly but you chustvuete excited that start from these humiliations.'
						'Artem:"That''s how come there -here until the end of!"'
						'You do not have to say anything .'
						'Under the comments guys "Bring it on! come_on!" you end exhausted and lie down on the floor.'

						act 'Open your eyes':
							cls
							minut += 15
							bj += 2

							if npcSex[2] = 0:npcSex[2] = 1 & guy += 1
							if npcSex[6] = 0:npcSex[6] = 1 & guy += 1

							gang += 1
							cumface += 2
							facial += 1
							arthakQW = 10
							artemblok = 1
							gs 'stat'
							'<center><img src="images/qwest/alter/artom/doublebj.jpg"></center>'
							'You open your eyes and see how Peter and Artem surrounded you masturbate their cocks.'
							'Artem:"That stared - Get direct their work - you know how it is good. Petya now you enjoy all the pleasures of professional blow job!"'
							'You remove the hand from the vagina and begins to suck alternately guys and they end up on your face.'
							'Do_You:" You erase record?"'
							'Artem :"Erase ... but not today ... we Petka at you a lot of plans. Do not roar.'
							'It will be our little secret. Fair_Enough - until next week."'

							act 'Leave':gt 'garmassiv'
						end
					end
				end
			end
		end

		act 'To escape and run away':
			artemvbrosvid = 1
			artemblok = 1
			artemhakday = daystart
			gt 'gorodok'
		end
	elseif (arthakQW = 2 or (arthakQW = 1 and artemblag = 1)) and artemhakday ! daystart:
		arthakQW = 7
		!!the_truth
		DimaRudeBlock = 1
		'Artem tells you "all, I Rushed comp bow and destroyed records."'
	end

	if artemtimes >= 15 and artQW = 0 and lernHome > 0 and GorSlut < 2:artQW = 1 & gt 'artemev2'

	'Artem sits in his room on the bed.'

	artemRand = rand(0,1)
	if artemRand = 1 and artemtimes >= 45 and artemsex > 0 and artemanal > 0 and artemProgul ! day and (GorSlut < 2 or artemblag = 1):
		artemProgul = day
		cla
		gs 'stat'
		artemRand = rand(0,1)
		if artemRand = 0:
			'"<<$name>>, Let`s go for a walk?"'
			act 'Agree':
				'You agree, quickly packed up and went for a walk on the square.'
				act 'Walk':dynamic $artomSkver
			end
			act 'Refuse': gt $curloc
		else
			'"<<$name>>, Let`s go to bibleotek, to write the essay?"'
			act 'Agree':
				'You agreed and went with Artem in bibleotek.'
				act 'Go':dynamic $artomBibl
			end
			act 'Refuse': gt $curloc
		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:
		!!wanker Artem
		'Artem hugs you and kisses'
		dynamic $artomKiss
	elseif artQW >= 2 and artQW <= 3 and artemtimes >= 30 and Suspeh >= 90 and GorSlut < 2:
		artQW = 10
		gt 'artemev2'
	elseif artQW = 20 and artemkissday ! daystart:
		'Artem hugs you and kisses'
		dynamic $artomKiss
	end

	if dimaFilm > 0 and arthakQW = 0 and vagina > 0:
		act 'Ask Artem to steal the video Dimka filmed of you':
			cls
			minut += 15
			gs 'stat'
			'<center><img src="images/qwest/alter/artom/2.jpg"></center>'
			'You:"Artem we''re more than friends?"'
			'Artem: "Of course."'
			'You: "Could you help me with one simple fact is not? After all, well versed in computers?"'
			'Artem:"Certainly help. tell."'
			'You: "Promise? Well. It stores it on your computer. Could you hack it and destroy this computer record. Just do not see it pozhalusta!"'
			'Artem :"Okay. And that on the record?"'

			act 'Lie':
				cls
				minut += 5
				artemhakday = daystart
				arthakQW = 1
				gs 'stat'
				'<center><img src="images/qwest/alter/artom/2.jpg"></center>'
				'"Yes, I dance drunk and he took it on video and promised my mother tell" you lied.'

				if lernHome > 0:
					dynamic $din_artem_lern
				else
					act 'Leave':artemhomemark = 0 & minut += 15 & gt 'gorodok'
				end
			end

			act 'Tell him the truth':
				cls
				minut += 5
				artemhakday = daystart
				arthakQW = 2
				gs 'stat'
				'<center><img src="images/qwest/alter/artom/2.jpg"></center>'
				'"It seemed to me that I love him and he took off like I''m doing him a blow job - now he is blackmailing me this." you said Artem downcast eyes.'

				if lernHome > 0:
					dynamic $din_artem_lern
				else
					act 'Leave':artemhomemark = 0 & minut += 15 & gt 'gorodok'
				end
			end
		end
	end

	if lernHome > 0:dynamic $din_artem_lern

	act 'Leave':artemhomemark = 0 & minut += 15 & gt 'gorodok'

	if talkartemday ! daystart:
		act 'Chat with Artem':
			cls
			artemtimes += 1
			talkartemday = daystart
			lern += rand(3, 6)
			intel += rand(1, 2)
			minut += 60
			manna += 10
			gs 'stat'
			'<center><img src="images/qwest/alter/npc/<<2>>.jpg"></center>'
			'You talked for an hour with Artem. Rather you are talking, and Artem listened to your stream of consciousness.'

			act 'Leave':artemhomemark = 0 & minut += 15 & gt 'gorodok'
		end
	end
elseif artemhomemark = 2:
	minut += 60
	grupNPC[2] += 10
	lernHome = 0
	lern += rand(3, 6)
	intel += rand(1, 2)
	artemtimes += 1

	if ArtemBeInHome = 0:ArtemBeInHome = 1

	gs 'stat'
	'<center><img src="images/qwest/alter/npc/<<2>>.jpg"></center>'
	'Did you do with Artem in under an hour, During this time he helped you with homework and explained something of the studied material.'

	act 'Rest':artemhomemark = 1 & gt $curloc
end

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