# krutishi
!2020/10/16
if npc_grupTipe['A<<numnpc>>'] = 1:
	if npc_gender['A<<numnpc>>'] = 0 and pcs_hairbsh = 0:
		npc_rel['A<<numnpc>>'] -= 5
		'<<$npc_firstname[''A<<numnpc>>'']>> looks at you and smiles at your messy hair.'
	elseif npc_gender['A<<numnpc>>'] = 1 and pcs_hairbsh = 0:
		npc_rel['A<<numnpc>>'] -= 5
		'<<$npc_firstname[''A<<numnpc>>'']>> looks at you and smiles at your messy hair.'
	elseif npc_gender['A<<numnpc>>'] = 0 and pcs_hairbsh > 0 and $loc = 'gdkin' and npc_rel['A<<numnpc>>'] >= 40:
		if PCloSkirt > 0:
			cla
			'<<$npc_firstname[''A<<numnpc>>'']>>: "Care for a dance?"'

			act 'Dance':
				cls
				minut += 30
				npc_rel['A<<numnpc>>'] += 5
				pcs_stam -= 5
				gs 'sweat', 'add', 3
				fat -= 1
				danc_exp += rand(1,3)

				if numnpc = 1:pcs_mood = 100

				gs 'stat'
				'He takes you by the hand and leads you onto the dance floor. You hear the first few tunes of a song - you know and like it, it''s a classic, but if somebody asked you what it''s called, you wouldn''t be able to tell them - and feel a joyous tingling in your belly as you dance with your partner.'
				'This first song is followed by another good one, then another, and another.'
				''
				'Time flies, as they say, and before you know it, half an hour has passed.'

				act 'You need a break - Move away':gt $loc, $loc_arg

				if numnpc = 4 and npc_rel['A4'] >= 80:
					!!Igor Kruglov
					pcs_horny += 10
					gs 'stat'

					if IgorLoverQW > 0 and IgorDominaQW = 0:
						'Igor whispers to you: "<<$pcs_nickname>>, I love you so much. Come with me."'

						act 'Go with Igor':gt 'igorev', 'din_sex'
					elseif IgorLoverQW > 0 and IgorDominaQW > 0:
						'Igor whispers to you: "Mistress, I love you so much. Come with me."'

						act 'Go with Igor':
							if strapon >= 1:
								gt 'igorev', 'strap on'
							else
								gt 'igorev', 'din_sex'
							end
						end
					elseif IgorLoverQW = 0:
						'While you two are dancing, you feel Igor''s hands wander to the small of your back and further down, down to your ass which he gives a couple of good squeezes.'

						if DimaRudeQW > 0:
							'Igor leans to your ear and whispers: "Dimka told me that you were a fantastic cocksucker. How about we go outside and you show me if he''s right?"'

							act 'Go outside with him':
								cls
								gs 'stat'
								'You nod him yes and walk out of the disco with Igor, then slip around a corner to have a little privacy. Once you feel you''ve found a spot that''s secluded enough, Igor gives you a hungry kiss and lets his hands roam all over you, groping anything he can reach. Suddenly, you hear the sound of a zipper and feel Igor pushed you down - you''re too confused by how he managed to open his pants while he felt you up with both hands to even think about resisting.'
								dynamic $din_igor_disco_bj
							end

							gs 'willpower', 'misc', 'resist', 'hard'
							if will_cost <= pcs_willpwr:
								act 'Refuse (<<will_cost>> Willpower)':
									cls
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									'You refuse to go outside with Igor. He doesn''t say a word in response but looks angry. Dimka, as if he had sensed your refusal, comes over and asks you what''s wrong. Igor shrugs: "Your cocksucker does not want to suck me off."' 
									'Dimka frowns at you. "He''s my best friend. When he asks you to blow him, you just do it, as if it was me who asked. Now, let''s see about that blowjob!" He grabs your arm - you don''t know what it is about him but resistance seems futile. Igor, encouraged by Dimka''s action, takes the other, and the two of them lead you outside.'
									dynamic $din_igor_dima_disco_bj
								end
							else
								act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end	

							exit
						end

						if npc_rel['A1'] = 0:
							'Igor whispers into your ear: "Dimka told me that you dumped him. I get it, he can be a real asshole sometime."' 
							'He pauses for a second. "<<$pcs_nickname>>, want to go outside and get some air?"'
							'You feel that you could use some fresh air and agree.'
							dynamic $din_igor__disco
							exit
						end

						cla
						'Igor whispers into your ear: "Hey <<$pcs_nickname>>, let''s go outside and get some fresh air."'
						dynamic $din_igor__disco
						exit
					end
				elseif numnpc = 1 and npc_rel['A1'] >= 80 and DimaRudeQW > 0:
					'After the dance, Dimka holds onto your hand. "Let''s go outside."'

					act 'Refuse':npc_rel['A1'] -= 5 & gt $loc, $loc_arg
					act 'Go outside with Dimka':
						cls
						gs 'stat'
						'You leave the club with Dimka and let him lead you away, to a more secluded spot. It doesn''t come as too big of a surprise when he turns to you with an imperious look. "You''re going to suck my dick now, pig."'

						act 'Refuse':npc_rel['A1'] -= 5 & gt $loc, $loc_arg

						dynamic $din_predlog_dima_bj
					end
				elseif numnpc = 1 and npc_rel['A1'] >= 80 and DimaRudeQW = 0:
					'After the dance, Dimka keeps your hand in his. "Let''s go outside and get some fresh air."'

					act 'Go outside with Dimka':
						cls
						gs 'stat'
						'You go outside with Dimka and walk away from the club, eventually finding a quiet corner to yourselves. You''re surprised but also happy when Dimka suddenly turns to your and hugs you tightly. "<<$pcs_nickname>>, you''re such a pretty girl. Would you go out with me?"'

						gs 'willpower', 'misc', 'self', 'hard'
						if will_cost <= pcs_willpwr:
							act 'No - This is all too sudden (<<will_cost>> Willpower)':
								cls
								gs 'willpower', 'pay', 'self'
								gs 'stat'
								'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
								'<center><img <<$set_imgh>> src="images/pc/characters/shared/photos/big1.jpg"></center>'
								'You tell him "No" and give him an apologetic look. But to your surprise, Dimka grins. "Don''t be shy, <<$pcs_nickname>>, of course you want to go out with me. Why else would you be hanging out with me?"'

								act 'Well, maybe you do have a little crush on him':
									cls
									gs 'stat'
									'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
									'<center><img <<$set_imgh>> src="images/pc/characters/shared/photos/big1.jpg"></center>'
									'"I don''t know", you say, embarrassed, "maybe?"'
									'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
									'You nod carefully. Where is he going with this?'
									'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
									dynamic $din_dima_predlog
								end

								act 'Leave - You really don''t want to go out with him':gt $loc, $loc_arg
							end
						else
							act 'No - This is all too sudden (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end	

						act 'Yes - You''ve always wanted a boyfriend like him':
							cls
							gs 'stat'
							'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
							'<center><img <<$set_imgh>> src="images/pc/characters/shared/photos/big1.jpg"></center>'
							'You were a little surprised by his directness but respond "Yes".'
							'Dimka smiles. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
							'You nod carefully. Where is he going with this?'
							'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
							dynamic $din_dima_predlog
						end
					end
				end
			end

			act 'Refuse':npc_rel['A<<numnpc>>'] -= 5 & gt $loc, $loc_arg

		exit

		end
	end
end

--- krutishi ---------------------------------