# krutishi
if grupTipe[numnpc] = 3:
	if npcPol[numnpc] = 0 and hapri = 0:
	grupNPC[numnpc] -= 5
	'<<$npcName[numnpc]>> with a smile looking at your messy hair.'
	end
	if npcPol[numnpc] = 1 and hapri = 0:
	grupNPC[numnpc] -= 5
	'<<$npcName[numnpc]>> с усмешкой смотрит на ваши взлохмаченные волосы.'
	end
	if npcPol[numnpc] = 0 and hapri > 0 and $loc = 'gdkin' and grupNPC[numnpc] >= 40:
		if glamur > 0 or ski > 0:
		cla
		'<<$npcName[numnpc]>> - Can dance?'
			act 'Dance':
			cls
			minut += 5
			grupNPC[numnpc] += 5
			dance += RAND(1,3)
				if numnpc = 1:
				Mud = totminut + 120
				end
			gs 'stat'
			'You danced to the old hit the dance floor with a guy.'
			act 'Move away': gt $loc, $metka
				if numnpc = 4 and grupNPC[numnpc] >= 80:
				!Игорь Круглов
				horny += 10
				gs 'stat'
				if IgorLoverQW > 0 and IgorDominaQW = 0:
				'Igor whispers to you "Svetulechka, I love you so much. Come to me."'
				act 'Go to Igor': gt 'IgorEv'
				end

				if IgorLoverQW > 0 and IgorDominaQW > 0:
				'Igor whispers to you, "My lady, I love you so much. Come to me."'
				act 'Go to Igor': gt 'IgorEv'
				end

				if IgorLoverQW = 0:
					'During the dance, hands Igor descend on you ass and start to stroke.'
						if DimaRudeQW > 0:
						'Igor whispers in your ear, "I told Dima what you cool cocksucker. Come out, show me your class."'
							act 'Go to the street':
							cls
							gs 'stat'
							'You together with Igor slipped out of the disco. Hidden in a secluded corner of Igor began to kiss and caress you. There was the sound of his pants unbuttoned and Igor pushed your shoulders.'
							dynamic $din_igor_disco_bj
							end

							act 'Refuse':
							cls
							gs 'stat'
							'You refused to go with Igor on the street. Dima came to you and asked you what´s happening. Igor shrugged, "Your cocksucker does not want me to suck." Dimka frowned, "she asks, he´s my best friend, because there would be nothing wrong if you otsosesh it." Boys took you by the hand and led him outside.'
							dynamic $din_igor_dima_disco_bj
							end
						exit
						end
						if grupNPC[1] = 0:
						'Igor whispers in your ear, "I told Dimka as you dumped it. Done, he sometimes behaves like a pig. Incidentally, Svetsik, go outside, get some air."'
						dynamic $din_igor__disco
						exit
						end
						cla
						'Igor whispers in your ear, "Come on out Svetsik. Breathe in the fresh air."'
						dynamic $din_igor__disco
						exit
					end
				end


				if numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW > 0:
				'After the dance Dima holding your hand. "Let´s go outside."'
				act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka

				act 'Dima go to the street':
				cls
				gs 'stat'
				'You left the club with Dima on the street. "Well, the pig, take it in your mouth."'
				act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
				dynamic $din_predlog_dima_bj
				end
				end
				if numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW = 0:
				'After the dance Dima holding your hand. "Let´s go outside, get some fresh air."'
				act 'Dima go to the street':
				cls
				gs 'stat'
				'You went out with Dima and departed for the club. Dima came up to you and hugged you tight. "<<$name>>, you did the girl. Want to meet me?"'
				act 'No':
				cls
				gs 'stat'
				'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
				'You replied in the negative and Dima grinned. "Do not be shy, of course you want. Otherwise, why do you always come to me."'
					act 'Well, maybe a little':
							cls
							gs 'stat'
							'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
							'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
							'You were embarrassed and said that you do not know, but maybe. Dima smiled and hugged you. "Of course. I knew it from the start. Know, I do not need some sort of a nun, I need a girl without complexes. Overall so we will meet with you, if you are right now otsosesh me."'

							dynamic $din_dima_predlog

							end

							act 'Leave': gt $loc, $metka
				end

				act 'Yes':
				cls
				gs 'stat'
				'<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
						'<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
				'You were confused by the question and confirmed directness. Dima grinned. "Of course. I knew it from the start. Know, I do not need some sort of a nun, I need a girl without complexes. Overall so we will meet with you, if you are right now otsosesh me."'
				dynamic $din_dima_predlog

				end
				end
				end
			end

			act 'Refuse': grupNPC[numnpc] -= 5 & gt $loc, $metka
		exit
		end
	end
end
--- krutishi ---------------------------------