glife/locations/krutishi

# 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.'
	elseif npcPol[numnpc] = 1 and hapri = 0:
		grupNPC[numnpc] -= 5
		'<<$npcName[numnpc]>> with a smile looking at your messy hair.'
	elseif npcPol[numnpc] = 0 and hapri > 0 and $loc = 'gdkin' and grupNPC[numnpc] >= 40:
		if PCloSkirt > 0:
			cla
			'<<$npcName[numnpc]>> - Care for a dance?'

			act 'Dance':
				cls
				minut += 5
				grupNPC[numnpc] += 5
				dance += rand(1, 3)

				if numnpc = 1:Mud = totminut + 120

				gs 'stat'
				'He takes you by the hand and leads you onto the dance floor, an old classic is playing and you dance together.'

				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 "<<$name>>, I love you so much. Come to me."'

						act 'Go to Igor':gt 'IgorEv'
					elseif 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'
					elseif 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 Dimka 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. Dimka 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, <<$name>>, go outside, get some air."'
							dynamic $din_igor__disco
							exit
						end

						cla
						'Igor whispers in your ear, "Come on out <<$name>>. Breathe in the fresh air."'
						dynamic $din_igor__disco
						exit
					end
				elseif numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW > 0:
					'After the dance Dimka holding your hand. "Let''s go outside."'

					act 'Refuse':grupNPC[numnpc] -= 5 & gt $loc, $metka
					act 'Dimka go to the street':
						cls
						gs 'stat'
						'You left the club with Dimka 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
				elseif numnpc = 1 and grupNPC[numnpc] >= 80 and DimaRudeQW = 0:
					'After the dance Dimka holding your hand. "Let''s go outside, get some fresh air."'

					act 'Dimka go to the street':
						cls
						gs 'stat'
						'You went out with Dimka and departed for the club. Dimka 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>'
							! WD: Remove Dupe Images ~ '<center><img src="images/qwest/alter/npc<<numnpc>>.jpg"></center>'
							'<center><img src="images/qwest/alter/npc/<<numnpc>>.jpg"></center>'
							'You replied in the negative and Dimka 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>'
								! WD: Remove Dupe Images ~ '<center><img src="images/qwest/alter/npc<<numnpc>>.jpg"></center>'
								'<center><img src="images/qwest/alter/npc/<<numnpc>>.jpg"></center>'
								'You were embarrassed and said that you do not know, but maybe. Dimka 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>'
							! WD: Remove Dupe Images ~ '<center><img src="images/qwest/alter/npc<<numnpc>>.jpg"></center>'
							'<center><img src="images/qwest/alter/npc/<<numnpc>>.jpg"></center>'
							'You were confused by the question and confirmed directness. Dimka 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 ---------------------------------