# 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]>> with a smile looking at your messy hair.'
	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

				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:
					!Igor Kruglov
					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 ---------------------------------