# mod_wlife_irina_punishment

if $ARGS[0] = 'first_punishment_0':
	*clr & cla
	minut += 360
	pcs_hydra = 100
	pcs_sleep += iif(pcs_sleep < 60, 40, 20)
	gs 'pain', 9, 'armL', 'stretch'
	gs 'pain', 9, 'armR', 'stretch'
	gs 'pain', 9, 'cheeks', 'slap'
	gs 'stat'
	'<center><video autoplay src="mod/wlife/images/punishment/whip/tits/start.mp4"></video></center>'
	'A sharp pain to your face wakes you up. Your eyes open wide and the first thing you see are Irina''s expressive gray eyes sparkling with amusement. She says something, but your brain is currently occupied to understand the whole situation.'
	'"What happened," you mumble confused as you instinctively stand up on your wobbly legs to relieve pressure from your shackled arms who had to carry your whole weight while you were unconscious.'
	'"You''re a thirsty little minx," Irina says a tad annoyed. "You were suppose to drink one or maybe two sips and not gulp down the whole bottle. I had to wait six hours for you to wake up."'
	'Six hours? What? You shake your head and close your eyes for a moment to regain your focus. Your arms don''t feel like you were shackled to the ceiling for six hours... Wait... shackled? Suddenly you''re wide awake, when you finally grasp the situation. "Why am I shackled?"'
	'"Don''t you remember? I asked you a question last time we met. And your answer was '+iif($wl_irina['punish'] = 'no', '..."', '<<$wl_irina[''punish'']>>."')
	if $wl_irina['punish'] ! 'no':
		'You swallow hard as you remember the day Georgiy took you to her and the answer you gave her. "I didn''t mean it, I was only joking," you say hastily. "You don''t have to '+iif($wl_irina['punish'] = 'maybe', 'and I only said maybe not yes..."', '..."')
		'She puts one finger on your lips to stop your from rambling on. You immediately freeze and a shiver runs down your spin, when she speaks with her sultry voice. "<<$pcs_firstname>>, we both know you were serious." She steps back and opens her arms to encompass the whole room. Whereby torture chamber would be a better description. "Here in this room there''s only the two of us. You don''t need to lie to yourself," she picks up a leather flogger. "But more importantly you should never lie to me."'
	else
		'"No... I said no," you say hastily. "I clearly remember saying no."'
		'"Exactly," she says with a slow smile. She opens her arms to encompass the whole room. Whereby torture chamber would be a better description. "And that''s why you''re here." She picks up a leather flogger. "Either you lied to me or you can''t accept the truth and I need to help you to see the errors of your way."'
	end

	act 'Stay silent': wl_stats['respect'] -= 1 & gt 'mod_wlife_irina_punishment', 'first_punishment_1'

	gs 'willpower', 'misc', 'self', iif($wl_irina['punish'] = 'no', 'hard', 'easy')
	if will_cost <= pcs_willpwr:
		act 'Plead to be released (<<will_cost>> Willpower)':
			cla & *nl
			wl_stats['respect'] -= 2
			wl_stats['acceptance'] += 1
			gs 'willpower', 'misc', 'self', iif($wl_irina['punish'] = 'no', 'hard', 'easy')
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"No, please. Let me go," you plead while she takes a step towards you. "You don''t have to do anything." You look up to your hands and rattle with your chains. "Please Irina," you continue, but you stop, when she walks right up to you and stands so close that her body presses into yours.'
			'"Be quiet," she whispers, her warm breath sensually caressing your ear.'

			act 'Fall silent': gt 'mod_wlife_irina_punishment', 'first_punishment_1'
		end
	else
		act 'Plead to be released (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	gs 'willpower', 'misc', 'self', iif($wl_irina['punish'] = 'no', 'easy', 'hard')
	if will_cost <= pcs_willpwr and $wl_irina['punish'] ! 'yes':
		act 'Spit in her face (<<will_cost>> Willpower)':
			cla & *nl
			wl_stats['respect'] += 3
			gs 'willpower', 'misc', 'self', iif($wl_irina['punish'] = 'no', 'easy', 'hard')
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"NO," you scream pulling on your chains. "I didn''t say yes. Let me go!" You spit into her face and pull even harder on your chains. But it''s a futile attempt, they won''t break.'
			'Irina smiles as your saliva slowly runs down her face. This shuts you up. You would have expected for her to hit you again or tell you to shut up, but the silence is even more threatening. She scoops up your saliva with two fingers, licking it off with her tongue and turning your defiance into something pleasurable. Making it meaningless in the process.'

			act 'Fall silent': gt 'mod_wlife_irina_punishment', 'first_punishment_1'
		end
	elseif $wl_irina['punish'] ! 'yes':
		act 'Spit in her face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'first_punishment_1':
	*clr & cla
	gs 'pain', 9, 'breasts', 'hit'
	gs 'arousal', 'foreplay', 2, 'lesbian'
	gs 'arousal', 'BDSM', 2, 'lesbian', 'sub'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_0.mp4"></video></center>'
	'Without warning she swings the flogger and its leather straps strike your left tit hard. A scream slips out of your mouth as sharp pain flares up in your chest.'
	'"Did that hurt?" Irina asks faking concern while she twirls one leather strap of the flogger around her index finger. The dark leather matches her black nail polish. "Answer me!" she demands and strikes your other breast.'
	'"Yes," you shout, tears welling up in your eyes. "It fucking hurt."'
	'"Language," she admonishes you and the leather straps on the flogger connect with your sensitive breast flesh for a third time.'
	'"I''m sorry," you cry.'
	'She steps closer and cups one hand around your right breast. "I''m sorry? Is that all?" she purrs while she softly fondles your tit. "Shouldn''t you address me properly."'
	'"What?" you asks breathing heavy from the pain.'
	'Irina sighs dramatically and steps away from you. "You have no manners <<$pcs_firstname>>. You should address me properly if you talk to me. But I''m in a good mood and give you another chance."'
	'You look at her like a deer caught in a head light. Address her properly? You stare at her for two more seconds, before trying again. "I''m sorry...."'

	act 'Finish the sentence':
		cla
		$wl_temp = input("What do you call her?")
		gt 'mod_wlife_irina_punishment', 'first_punishment_2'
	end
end

if $ARGS[0] = 'first_punishment_2':
	*clr & cla
	$orgasm_or = 'no'
	gs 'arousal', 'kiss', 1, 'lesbian'
	gs 'arousal', 'vaginal_finger', 1, 'lesbian'
	gs 'arousal', 'BDSM', 4, 'lesbian', 'sub'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_1.mp4"></video></center>'
	if $wl_temp = 'Mistress' or $wl_temp = 'mistress':
		gs 'pain', 9, 'breasts', 'hit'
		'"Correct," she says showing you her predatory smile. Her hand lifts the flogger and hits each of your tits once. "And that was a reminder that you will never forget it."'
	else
		gs 'pain', 9, 'breasts', 'hit'
		gs 'pain', 9, 'breasts', 'hit'
		'"Wrong," she says and immediately strikes again hitting each of your tits once. "It''s Mistress." She flogs you again. "Or Mistress Bely." The flogger strikes again. "Do you understand?"'
		'"Yes," you scream tears running down your cheeks. "Yes, Mistress."'
	end
	*nl
	'"Now with this out of the way, we can turn to other things," she says playing again with the straps of the flogger. "Georgiy told you, I take care of the more unruly girls for him, but this..." She playfully pokes your left tit with one finger. "Will be nothing compared with what you would have to endure if I would have to really punish you." She comes closer, so close that you can feel her breath on your mouth. "The last girl really didn''t want to listen," Irina whispers. "I had to take my whip." Her mouth moves even closer while one finger moves up one of your pussy lips before slowly moving down the other. "And I had to ruin her down here." You shudder with a mixture of fear and excitement and she takes this moment to kiss you. Her soft lips brush against you and for a few seconds pain turns into pleasure.'
	*nl
	'She breaks the kiss and walks over to a table and picks up a dangerous looking whip. "I used this," she continues and cracks the whip once. The loud bang makes you flinch and even if there''s a part inside you that likes pain this isn''t something you look forward to. "Can you image what happens to human skin if you hit it with that? Now imagine what happens if I would strike you between your legs. Do you want that to happen to you?"'
	'You shake your head. "No, Mistress."'
	'"Then listen to what my brothers tell you and you''ll never have to experience it."'
	'"Are we...," you start to ask before changing your mind to rephrase the question. "May I ask a question, Mistress?" Irina smiles and nods. "Is this lesson going to be over soon?"'
	'"Let''s see if we''re done here," she says, walks over to you and sticks one finger into your snatch.'

	killvar '$wl_temp'
	gs 'stat'

	act 'Continue':
		*clr & cla
		if pcs_makeup > 1: pcs_makeup = 0
		gs 'pain', 9, 'breasts', 'hit'
		gs 'arousal', 'vaginal_finger', 1, 'lesbian'
		'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_2.mp4"></video></center>'
		iif(pcs_horny < 60, '"Dry," she says disappointed', '"Wet," she says pleased')+' and pulls her finger back out. "It seems '+iif(pcs_horny < 60, 'we aren''t finished yet."', 'I wasn''t wrong about you. Let me give you what you crave."')+' She throws the whip on the table and picks up the flogger again. She hesitates for a moment, testing you if you will complain or say anything, but you bite your tongue and let it happen.'
		*nl
		'After several excruciating minutes of constant flogging, your tits have turned bright red and your pussy is dripping wet. The strange combination of pain and pleasure is confusing, but even more so is her behavior. Every strike was hard, merciless and fast, but when she''s done she walks over to you and wipes away your tears like a caring friend. "Let''s see if we achieved our goal," she says and tests the wetness of your pussy again. "We''re done here," she tells you and lifts her finger up to show you your own wetness.'
		'"Thank you, Mistress," you sob as she lasciviously licks your pussy juice from her finger.'

		gs 'arousal', 'BDSM', iif(pcs_horny < 60, 16, 8), 'lesbian', 'sub'
		if pcs_horny < 100: pcs_horny = 100
		gs 'arousal', 'end'
		gs 'stat'

		act 'Continue':
			*clr & cla
			pcs_hydra = 100
			pcs_energy = 100
			pcs_makeup = 1
			minut += rand(55,65)
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/irina_bely.jpg"></center>'
			'Half an hour later you''re standing with her outside of her manor. You had a small thing to eat, some drug-free water, five minutes in one of her bathrooms and now you''re ready to head home. "One of my servants will take you home," she says and points at a car parked next to her Porsche.'
			'"Thank you, Mistress," you say, but for the first time it''s the wrong thing to say. She turns to you, softly takes your face in both of her hands. "No, <<$pcs_firstname>>. Mistress stays down there," she points at the ground towards her weird torture cellar while her other hand caresses your cheek. "Here I''m the evil sister, the crazy fiend or a lover," she purrs'+iif($wl_brand['text_pubic'] ! '', '. "And by the way, I like your tattoo," she says pointing at your crotch. "It suits you."', ' and it''s the last thing she says to you.')+' She walks up the stairs to the entrance in her impressive heels while you watch every step she takes. Finally the door closes behind her and you''re alone. As promised the driver takes you home and after another half an hour you...'

			act '... get out of the car': gt $wl_loc[0], $wl_loc[1]
		end
	end
end

!!------ Regular Punishments ------

if $ARGS[0] = 'whip_tits':
	*clr & cla
	minut += 10
	wl_irina['pic_temp'] = 3
	$orgasm_or = 'no'
	if wl_irina['punish_status'] = 0: wl_irina['punish_status'] = 1
	gs 'pain', 9, 'breasts', 'hit'
	gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_'+rand(0,1)+'.mp4"></video></center>'
	'"Somebody has been a bad, bad girl," Irina purrs after one of Georgiy''s goons has dropped you off at her place. Chained to the ceiling you''re at her mercy again.'
	'"Yes, Mistress," you say to her as she caresses your breasts with the flogger.'
	'"Do you deserve to be taught a lesson?" she asks so close that your lips are only centimeters apart from each other.'
	'"Yes, Mistr...," you aren''t able to finish, because she takes a step back as quick as cat and flogs your right breast. You let out a scream, but she doesn''t care, and is already hitting you again.'

	act 'Endure it':
		*clr & cla
		minut += 6
		gs 'pain', 9, 'breasts', 'hit'
		gs 'pain', 9, 'breasts', 'hit'
		gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
		gs 'arousal', 'end'
		gs 'stat'
		'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_'+rand(2,3)+'.mp4"></video></center>'
		'Again and again the leather straps of her weapon buzz through the air and hit your flesh. She doesn''t hold back and shows you no mercy. You can see the muscles tighten under Irina''s skin when she hits you with as much force as possible. '+iif($wl_fetish['BDSM'] = 'no', 'It''s hell and the pain is unbearable. You scream and scream, louder and louder, but her assault doesn''t seem to end.', 'It''s heaven and the pain is immensely stimulating. Every time you''re hit a flash of arousal shocks your whole body.')
		*nl
		'"We''re done here," she finally says and walks over to you to release you. "Get dressed, a car is waiting outside for you to take you back."'

		act 'Get back to the warehouse': minut += rand(25,35) & gt 'mod_wlife_warehouse', 'street'
	end
end

if $ARGS[0] = 'whip_pussy_0':
	if wl_irina['punish_status'] = 1:
		*clr & cla
		minut += 10
		if $wl_fetish['BDSM'] = 'yes': pcs_horny += 20
		gs 'stat'
		'<center><video autoplay loop src="mod/wlife/images/punishment/whip/pussy/start.mp4"></video></center>'
		'After one of Georgiy''s henchmen has driven you to Irina you expected to be chained to the ceiling again, but this time you end up bound to a table, pussy exposed and a ball gag in your mouth.'
		'"Here we are again <<$pcs_firstname>>," Irina says and shakes her head disappointed with your behavior. "You''ll now suffer the consequences for your actions." She takes the flogger into her hand and its sight fills you with '+iif($wl_fetish['BDSM'] = 'yes', 'anticipation.', 'dread.')+' But she changes her mind and picks up a real whip. "Let''s see how your kitty likes to get spanked."'

		act 'Continue': gt 'mod_wlife_irina_punishment', 'whip_pussy_1'
	else
		gt 'mod_wlife_irina_punishment', 'whip_pussy_1'
	end
end

if $ARGS[0] = 'whip_pussy_1':
	*clr & cla
	minut += 6
	$orgasm_or = 'no'
	gs 'pain', 9, 'labia', 'hit'
	gs 'pain', 9, 'pubic', 'hit'
	gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/punishment/whip/pussy/escalation_0.mp4"></video></center>'
	if wl_irina['punish_status'] > 1:
		'After one of Georgiy''s henchmen has driven you to Irina, you end up gagged and bound to the table again and when Irina picks up the whip you know your pussy is about to get a serious beating.'
		*nl
	end
	'"One," Irina shouts into the room, the whip whizzes through the air and pain explodes between your legs. Your hands cramp around the edges of the table, your eyes grow wide and you scream against the ball gag in your mouth.'
	*nl
	'"Two." Her voice thunders through the cellar, the whip cracks and another explosion of pain nearly robs you of your senses.'
	if wl_irina['punish_status'] = 1:
		wl_irina['punish_status'] = 2
		'She walks over to you and slowly moves one finger over a fiery red whip mark on your labia. "I know it hurts," she says. "But you have to understand, I have no other choice, bad girls need to be punished. You understand that do you?" You nod blinking away the tears and try to say ''Yes Mistress'', but the gag makes it impossible. "You had enough for your first time. Remember this was just a taste of thinks to come. This were only two strikes," she warns you as her finger dances around your clit. "Next time it will be at least five. Now get dressed, a car is waiting outside for you to take you back."'

		act 'Get back to the warehouse': minut += rand(25,35) & gt 'mod_wlife_warehouse', 'street'
	else
		act 'Try to endure it':
			*clr & cla
			minut += 6
			$orgasm_or = 'no'
			gs 'pain', 9, 'labia', 'hit'
			gs 'pain', 9, 'pubic', 'hit'
			gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/punishment/whip/pussy/escalation_1.mp4"></video></center>'
			if rand(0,2) = 2 or wl_irina['punish_status'] = 2:
				gs 'pain', 9, 'clitoris', 'hit'
				if wl_irina['punish_status'] = 2: wl_irina['punish_status'] = 3
				'"Three," she continues and this time the whip finds its target. You lose control of your body and if you weren''t chained to the table all your extremities would flail around uncontrollably when the whip hits your clitoris.'
				'"That must have hurt," she says softly. "Want me to kiss it better?" she purrs, but you can''t answer the pain is just too much.'
				'"I don''t hear a yes," she taunts you with her sultry voice while you shout something unintelligible against the gag. "If that''s the case. I have no other choice, but to...," she continues and lets her whip finish her sentence. "Four."'
			else
				'Three," she continues and the whip leaves a bright red mark on your pubic area. All your muscles tense at the same time as the instinct to escape becomes uncontrollable. But you succeed in rattling your chains and make Irina laugh. "What do you think you''re doing? Think you can break chains made out of stainless steel?" She hits you again. "Four."'
			end
			'"Five," she says quickly after saying four and again pain flares up between your legs. '+iif(wl_irina['punish_in_row'] < 2, '"You had enough for today. Now get dressed, a car is waiting outside for you to take you back."', '"If you want the pain to stop, you need to learn to behave. You were here last week and already you''re back. I can''t tolerate something like this. You need to do better. Maybe five more will make you finally understand."')

			if wl_irina['punish_in_row'] > 1:
				act 'Receive more punishment':
					*clr & cla
					minut += 6
					$orgasm_or = 'no'
					if wl_irina['punish_status'] = 3: wl_irina['punish_status'] = 4
					gs 'pain', 9, 'labia', 'hit'
					gs 'pain', 9, 'pubic', 'hit'
					gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
					gs 'stat'
					'<center><video autoplay loop src="mod/wlife/images/punishment/whip/pussy/escalation_2.mp4"></video></center>'
					'"Six," Irina proclaims and smiles when you scream again. "Let that be a lesson for you... Seven."'
					'You sob, shake your head and try to speak against the ball-gag, but it''s impossible. Even if she understood what you''re saying, she would never listen to you. "Eight." This is her role in the organization of the Belys and judging from the agony you''re in, you know she is good at playing it. "Nine." Only one left, you tell yourself. Only one more time. "Ten." You scream for a last time and it''s not only fueled by pain, but relieve as well.'

					if wl_irina['punish_in_row'] > 2:
						*nl
						'"Happy that''s over?" she asks smiling like a shark who is smelling blood in the water.'
						'You nod and even if you''re still in pain, part of you relaxes, since she will release you now.'
						'"Eleven," she says, the whip cracks again. You can''t believe it. Why hasn''t she stopped.'
						'"Please," you shout against the ball-gag. "Mistress, please."'
						'"I know you want it to stop, but this is the third time in three weeks Georgiy send you to me. This...," the whip flies through the air again. "This is your own fault."'

						act 'Receive even more punishment':
							*clr & cla
							minut += 12
							if wl_irina['punish_status'] = 4: wl_irina['punish_status'] = 5
							$orgasm_or = 'no'
							gs 'pain', 9, 'labia', 'hit'
							gs 'pain', 9, 'labia', 'hit'
							gs 'pain', 9, 'pubic', 'hit'
							gs 'pain', 9, 'pubic', 'hit'
							gs 'pain', 9, 'clitoris', 'hit'
							gs 'arousal', 'BDSM', iif($wl_fetish['BDSM'] = 'yes', -8, -2), 'lesbian', 'sub'
							gs 'stat'
							'<center><video autoplay loop src="mod/wlife/images/punishment/whip/pussy/escalation_<<wl_irina[''pic_temp'']>>.mp4"></video></center>'
							'You''re barely keeping up anymore. Sometimes you still hear Irina say a number... 13, 16, 21,... but most of the time you''re only laying there, sobbing and fearful waiting for the next strike.'
							'"Twenty-five," Irina finally declares. "Let that be a lesson to you. Now get dressed, a car is waiting outside for you to take you back." She releases you from the chains, but it takes you longer than usual to get '+iif($pantyworntype ! '', 'dressed. It''s nearly impossible to put your panties over your violated private parts.', 'to the car. Every step hurts even without panties.')

							act 'Get back to the warehouse':
								minut += rand(25,35)
								wl_irina['pic_temp'] = iif(wl_irina['pic_temp'] = 3, 4, 3)
								gt 'mod_wlife_warehouse', 'street'
							end
						end
					else
						*nl
						'"You had enough for today. Now get dressed, a car is waiting outside for you to take you back."'
						act 'Get back to the warehouse': minut += rand(25,35) & gt 'mod_wlife_warehouse', 'street'
					end
				end
			else
				act 'Get back to the warehouse': minut += rand(25,35) & gt 'mod_wlife_warehouse', 'street'
			end
		end
	end
end

--- mod_wlife_irina_punishment ---------------------------------