glife/locations/207_gdkin

# gdkin
$din_kotov_love = {
if kotovLoveQW > 0:
cls
gs 'stat'
'<center><B><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></B></center>'
'<center><img src="images\qwest\alter\npc9.jpg"></center>'
'To you and the guy fits Witek. "Che garbage? Who´s that bloke?" Witek takes for male breast and angrily said, "Well, ka sebal horrified by my heifer, and now the mug smashed into smithereens. Understood?"'
	if DPgrup = 1:
	fightboyrand = RAND(0,10)
		if fightboyran <= 5:
		'Frightened man began to speak. "Come on you, I did not know. Already leaving." Witek pushed Man "Get out of here until I´m good."'
		end
		if fightboyran > 5 and fightboyran < 10:
		'The guy pushes Victor "Get your hands off, deer!" Witek suddenly gets very fast and powerful kick.'
		'Man falls from hitting the dance floor. Witek approaches him and grabbing breast lifts his feet, and then shoves the boy to the wall. "Well, Cho motherfucker? Still need? Or is it okay?" Man holding a broken person mutters "Everything, everything, I got it!"'
		end
		if fightboyran >= 10:
		'The guy has Vit''ka silence in the face with his fist. Witek recoils from the guy and then gets fast and powerful kick. Fight begins, hitting fly from both sides, suddenly a guy misses a very powerful supply by Vic and flying away to the wall falls to the floor. Witek runs up to him and thrusts into enemy lying a couple of powerful blows. The guy is no longer resisting, apparently he lost consciousness.'
		end
	end
	if DPgrup = 2:
	'Rams kid starts with Vic "Hey, who are you in life?" Witek markedly sviripeet and to help him fit drugany. For the kid in turn, also pulled the boys. Nachinaetsya disassembly. After some time, both groups disagree peacefully.'
	end
	if DPgrup = 3:
	'Man throws up his hands "Sorry young man. Did not know." Witek repels man "Topal city bloke here until I´m good."'
	end

		act 'Go to Vic': numnpc = 9 & gt 'Snpc'
exit
end
}


$din_reakt_dance = {
if alko > 0:
horny += 10
manna += 5
'Do you feel that the actions of Man excite you.'
else
if horny > 0: horny -= 5
manna -= 5
'You feel disgusted by these actions Man.'
end
gs 'stat'
}
$din_reverse_reakt_dance = {
if alko <= 0:
manna += 20
horny += 1
'You are fun and exciting.'
elseif alko > 0:
if horny > 0: horny -= 5
manna -= 5
'You boring and uninteresting.'
end
gs 'stat'
}

$din_dance_vrp = {
minut += 5
dance += 1
gs 'stat'
'You accepted the offer and the guy took you by the hand brought you to the dance floor where you started dancing together.'
	if DPgrup = 1:
		if DPtipe = 1:
		'Guy dancing with you holding your waist with his hands.'
		dynamic $din_reverse_reakt_dance

		end
		if DPtipe = 2:

		'Drunk guy pushes you to indulge. You feel like your soft breasts literally flattened breasts of Man.'
		dynamic $din_reakt_dance

		end
	end
	if DPgrup = 2:
		if DPtipe = 1:

		'The guy is pretty enough to unleash your waist and his hands slide your hips.'
		dynamic $din_reakt_dance

		end
		if DPtipe = 2:
		'Pyany guy grabs your ass and squeezes her much, his head tilted to your face and it bites into your <<$liptalk3>> kiss.'
		dynamic $din_reakt_dance

		end
	end
	if DPgrup = 3:
		if DPtipe = 1:
		'Man very confident and elegantly leads you to dance, hold your waist with his strong hands.'
		dynamic $din_reverse_reakt_dance

		end
		if DPtipe = 2:
		'Tipsy man despite his advanced views hugs your waist and his hands down to you on the ass.'
		dynamic $din_reakt_dance

		end
	end

	dynamic $din_vibor_tipe_dance

	act 'Stop dancing':
	cls
	gt $curloc
	end
}
$din_dance_otkaz = {
if alko <= 2 and horny <= 75:
	act 'Refuse':
	cls
	willpower += RAND(0,1)
	gt 'gdkin'
	end
end

}

$din_vibor_tipe_dance = {
	!{
	if dance >= 50 and alko > 0 and horny >= 50:
		act 'Sexy dance':
		cls
		dance += 1
		gs 'stat'

		gt $curloc
		end
	end
	}

	act 'Further':
	cls
	gs 'stat'
	'<center><img src="images\etogame\club_dance.jpg"></center>'
		if DPgrup = 1:
			if DPtipe = 1:
			'The guy told you in the dance "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The song ends and the guy offers to sit with him and chat.'

			end
			if DPtipe = 2:
			'The guy told you in the dance "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." All dancing drunk guy crushed your body and now his face flushed with excitement. He offers to leave the club on the street, get some fresh air, socialize.'

			end
			act 'Go with a guy': gt 'EvBoyBuh'
		end
		if DPgrup = 2:
			if DPtipe = 1:
			'The entire dance guy grabs your ass and he is clearly excited when he pressed against you, you feel something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			act 'Go thump': gt 'EvgopBuh'
			end
			if DPtipe = 2:
			'The entire dance guy grabs your ass, breasts and kissed you, he clearly excited when he pressed against you, you feel something hard in his pants. Finally zakanchivaetsya song and the guy offers to go out, plunk.'
			act 'Go thump': gt 'EvgopBuh'
			end
		end
		if DPgrup = 3:
			if DPtipe = 1:
			'All male dance was confident and elegant, finally the song was over and the man offers to go out for some fresh air and talk.'
				act 'Go with a man':
				cls
				gs 'stat'
				'<center><img src="images\etogame\dk_night.jpg"></center>'
				'You went out with a man. He walked up to you and bit his arm around her waist. "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The man continued, "<<$name>>, I´m in your town on a business trip. Lives in the hotel from the city itself. Virtually nothing in your town do not know. Come to my hotel. Take whiskey, eggs, sit down and have a chat."'
				act 'Go to the hotel': gt 'EvOtelMan'
				dynamic $din_dance_otkaz
				end
			end
			if DPtipe = 2:
			'The entire dance tipsy man molested you when the dance ended and he whispered in your ear. "My name is <<$bname>>. What´s your name?" You answered "<<$name>>." The man continued, "<<$name>>, I´m not a local, I live in a hotel, let´s now take a taxi and go to me."'
			act 'Go to the hotel': gt 'EvOtelMan'
			end
		end
	gs 'stat'
		dynamic $din_dance_otkaz

		dynamic $din_kotov_love
	end



}


$din_otbor_dance_pertner = {
!создание партнера для танца
gs 'BnameGen'
DaPaTipeRand = RAND(0,100)
if DaPaTipeRand < 70:
!обыкновенный местный парень
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 70:
	DPtipe = 1
	DPgrup = 1
	$din_disc_dance = 'It suits you the guy in jeans and a t-shirt, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing guy in jeans and a T-shirt.'
	end
	if DrunkDPTrand >= 70:
	DPtipe = 2
	DPgrup = 1
	$din_disc_dance = 'It suits you drunk guy in jeans and a t-shirt, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing drunk guy in jeans and a T-shirt.'
	end
end
if DaPaTipeRand >= 70 and DaPaTipeRand < 90:
!местный гопарь
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 50:
	DPtipe = 1
	DPgrup = 2
	$din_disc_dance = 'It suits you guy dressed in sweatpants and a sweatshirt and the same offers to dance.'
	$din_disc_dance2 = 'Next to you dancing guy in sweatpants and sweatshirts.'
	end
	if DrunkDPTrand >= 50:
	DPtipe = 2
	DPgrup = 2
	$din_disc_dance = 'It suits you drunk guy dressed in sweatpants and sweatshirts same and takes you arms around his waist offering dance.'
	$din_disc_dance2 = 'Next to you dancing drunk guy in sweatpants and sweatshirts.'
	end
end
if DaPaTipeRand >= 90:
!командировочный
DrunkDPTrand = RAND(0,100)
	if DrunkDPTrand < 90:
	DPtipe = 1
	DPgrup = 3
	$din_disc_dance = 'To you fit man in a decent jacket, trousers with arrows, expensive shoes, and offers dance.'
	$din_disc_dance2 = 'Next to you dancing man in a decent jacket, trousers with arrows, expensive shoes.'
	end
	if DrunkDPTrand >= 90:
	DPtipe = 2
	DPgrup = 3
	$din_disc_dance = 'It suits you drunk man in a decent jacket, trousers with arrows, expensive shoes, and offers dance.'
	$din_disc_dance2 = 'Near you drunk man dancing in a decent jacket, trousers with arrows, expensive shoes.'
	end
end
}
$din_too_drunk_dance = {
tddrand = RAND(1,100)

if StoryLine = 1 and tddrand <= 80:
	cls
	gs 'stat'
	'It suits you Katya Meynold "<<$name>>, so that you get drunk? Let´s go home, I´ll take you."'
	act 'Go with Kate':
	cls
	minut += 15
	grupNPC[14] = 100
	if meynoldQW = 0: meynoldQW = 1
	gs 'stat'
	'<center><img src="images\etogame\club_dance.jpg"></center>'
	'Katya took you to your home keeping the arms.'
	act 'Go home': gt 'korrPar'
end

	if KatjaDom < dom:
		act 'Refuse': gt 'gdkin'
	end
end

if StoryLine = 1 and tddrand > 80:
	cls
	'To suit you and offer a couple of guys to dance with them. You notice Katya who fearfully shouts something and trying to squeeze you. It turns out she´s bad, and alcohol interferes you to hear and understand it. You dismiss from a friend with a drunken smile on his face agree to the offer guys.'
	act 'Dance with them': gt 'gevent','6'
end

if StoryLine = 0:
	cls
	'To suit you and offer a couple of guys to dance with them. C drunken smile on his face, you agree to the offer guys.'
	act 'Dance with them': gt 'gevent','6'

end
}

$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'<center><B><font color = maroon>Disco</font></B></center>'
'<center><img src="images\etogame\club_yaho.jpg"></center>'
	if hour >= 20 and hour <= 23:
	if StoryLine = 1 and BeInSchool > 0: 'The club and you see a few <a href="exec: GT ''SgrupDisco''">of people you know</a>.'

	if soniaslut < 5: soniaslut += 1
	if grupTipe[25] = 0 and StoryLine = 1 and BeInSchool > 0 and soniaslut >= 5:
	'You notice the disco Sonia Ivanko of your class. She is talking about something with Victor Kotov.'
	act 'View Sonya': gt 'soniaDisco'
	exit
	end
		act 'Dance one':
		cls
		'<center><img src="images\etogame\club_dance.jpg"></center>'
		minut += 5
		!fat -= 1
		dance += 1
		manna += 10
		willpower += 10
		frost = 0
		gs 'stat'
			if cumface > 0 or cumfrot > 0:
			if GorSlut < 2: GorSlut = 2
			manna -= 100
			'It suits you and the guy starts to stick, suddenly he sees you cum. The guy jumps on you "thanked, vaflersha. Lads estimate, this chick all in Concha peremazanna." To you guys still see fit. "Yeah sure. Hey nipple unsuccessfully vysmarkalas what?" You cheeks blush with shame and you´re heading for the exit.'
			act 'Leave': gt 'gdk'
			exit
			end
			if alko >= 4:
			'You´re drunk in the trash and try to dance, but the floor out from under my feet and you dance instead of just drunkenly Mota regularly bumping into other people.'

			dynamic $din_too_drunk_dance
			exit

			elseif alko < 4 and alko > 0:
			'You´re drunk and fun skip on the dance floor without paying attention to others, and even the music.'
			else
			'The music is quite old, but catchy. And you´ll have fun circling dance, paying no attention to anyone.'
			end

			if alko < 4:
			verprigrand = RAND(0,100)

				if verprigrand <= dance:
				dynamic $din_otbor_dance_pertner

				'<<$din_disc_dance2>>'
				gs 'stat'
					act 'Dance with a guy':
					cls
					'<center><img src="images\etogame\club_dance.jpg"></center>'
					dynamic $din_dance_vrp
					end

					act 'Move away':
					cls
					gt $curloc
					end
				exit
				end
			end

		gs 'stat'
		act 'Further': gt 'gdkin'
		end

		act 'Standing at the wall':
		cls
		'<center><img src="images\etogame\club_yaho.jpg"></center>'
		minut += 5
		!fat -= 1
		manna -= 5
		frost = 0
		gs 'stat'
			if cumface > 0 or cumfrot > 0:
			if GorSlut < 2: GorSlut = 2
			manna -= 100
			'It suits you and the guy starts to stick, suddenly he sees you cum. The guy jumps on you "thanked, vaflersha. Lads estimate, this chick all in Concha peremazanna." To you guys still see fit. "Yeah sure. Hey nipple unsuccessfully vysmarkalas what?" You cheeks blush with shame and you´re heading for the exit.'
			act 'Leave': gt 'gdk'
			exit
			end
			if alko >= 4:
			'You´re drunk in the trash, and standing at the wall hard for her to restrain from the fact that the floor floats you from under their feet.'
			dynamic $din_too_drunk_dance
			exit

			elseif alko < 4 and alko > 0:
			'You´re drunk, and standing at the wall watching the dancing.'
			else
			'You are standing at a modest stenochki watching dancing.'
			end

			if alko < 4:
			verodance = 0
				if hapri = 1: verodance += 1
				if glamur = 1: verodance += 2
				if ski = 1: verodance += 1
				if mop = 2: verodance += 1
				if mop = 3: verodance += 2
				if mop = 4: verodance += 3
				verodance += alko
				verodance += 5

				verprigrand = RAND(0,20)

				if verprigrand <= verodance:
				dynamic $din_otbor_dance_pertner

				'<<$din_disc_dance>>'
				gs 'stat'
					act 'Dance':
					cls
					gs 'stat'
					'<center><img src="images\etogame\club_dance.jpg"></center>'
					dynamic $din_dance_vrp
					end

					act 'Refuse':
					cls
					gt $curloc
					end
				exit
				end
			end
		gs 'stat'
		act 'Further': gt 'gdkin'
		end
	end
	if hour < 20:
	'Club closes. The lights go on, the music fades and all begin to diverge.'
	end

act 'Go outside': gt 'gdk'
--- gdkin ---------------------------------