WLife-New/locations/mod_wlife_tattoo_piercing.qsrc

# mod_wlife_tattoo_piercing

!!------ Branding ------

if $ARGS[0] = 'branding_0':
	*clr & cla
	wl_status['main'] = 9
	wl_timer['branding'] = daystart
	wl_georgiy['weekly_amount'] -= 2500
	wl_whore['shifts_total'] += 1
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov_car.jpg"></center>'
	'"Get in," he says with a stern look on his face. It''s your first time back on the job after the Belys confronted you about your encounter with the police and by the looks of it something is definitely up. "Something wrong?" You ask.'
	'"I fucked up <<$pcs_nickname>> and we have to correct my mistake," he answers without explaining what''s going on. "A mistake? What mistake?" You ask after a minute goes by without him saying another word.'
	'He sighs. "Please, you need to understand. If I had known, that this would happen I would have done it." He is really struggling and it''s obvious that he is angry with himself. "Done what? Volya, what did you do?"'
	'"It''s my fault that the police didn''t leave you alone," he finally explains and for a moment you''re mind flashes back inside the attic and you almost can feel the rope around your hands again tying you to the disgusting bed. "<<$pcs_nickname>>??" He asks and pulls you mind back inside the car. "You... You did this to me?" You say anger rising up inside you. "I had to go through this, because of you?" You scream '+iif(npc_rel['A904'] < 40, 'not trying to hide your true feelings for him.', 'ignoring for a moment how you really feel about him.')+' "How could you do this? I hate you, you..."'
	'"<<$pcs_nickname>>," he stops you before you can say anything you may or may not regret. "I took a chance, OK? I''m sorry, but in my defense I hoped to get you out of this situation before something like this happened."'
	'You open your mouth to say something, but his next words stop your right in your tracks. "It was either that or branding you like the other whor... girls."'
	if wl_bad['tongue'] = 1: '"So that''s what the tattoo guy meant with ''the usual''?" you ask and Volya nods. "Yeah, sorry I didn''t mean to lie to you, but as I said, I expected to get you out of this mess before you would need the mark.'

	act 'Branding???':
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov_car.jpg"></center>'
		'"Branding? What do you mean?" You ask remembering Vadim and the others writing ''whore'' and ''slut'' on you body the day you met them for the first time. "Every girl that works for us gets a tattoo that marks her as one of our own."'
		'You don''t know how to react to that. A tattoo '+iif(pcs_tattoos['total'] > 0, 'isn''t a problem, it wouldn''t be your first', 'is something you maybe considered')+', but they want to brand you like cattle or a slave in the ancient times.'
		'"I''m sorry," he says but this time it''s you who stops him. "No, I get it."'+iif(npc_rel['A904'] < 40, ' you tell him truthfully. Maybe you were wrong about him? He tried to protect you.', ' you tell him. Even if it didn''t work out, he at least tried to protect you.')
		'"Really?" He asks cautiously. "Yeah," and without really wanting to know the answer you ask. "But I have to get marked now, don''t I?" You sigh when he nods and turn your eyes away from him. A brand to mark you as a whore? It will protect you, but at the same time it''s more than that. It will mark you as a whore for life. Or does it? Tattoos can be removed as far as you know and if your ordeal is over at some point, you can just erase it. Or can you?'

		if npc_rel['A904'] < 40:
			npc_rel['A904'] += 10
		else
			npc_rel['A904'] += 5
		end

		act 'No, it''s who you are':
			cla & *nl
			wl_stats['acceptance'] += 5
			'No, it symbolizes what you have become. Even if you remove it one day, it wouldn''t change what you are. A whore.'
			act 'Continue': gt 'mod_wlife_tattoo_piercing', 'branding_1'
		end

		act 'Yes, it''s just temporary':
			cla & *nl
			wl_stats['acceptance'] -= 5
			'Yes, it doesn''t mean anything. It''s only some stupid ink without meaning. It''s not like you are really a whore.'
			act 'Continue': gt 'mod_wlife_tattoo_piercing', 'branding_1'
		end
	end
end

if $ARGS[0] = 'branding_1':
	*clr & cla
	minut += 45
	fakepassport = 1
	wl_passport = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/passport_get.jpg"></center>'
	'You''re silent for the rest of the drive to St. Petersburg. Volya parks the car in front of a tattoo parlor, but stops you when you try to open the door. "Here, you will need this from now on," he tells you and hands you a passport. It''s obviously fake, because it has your picture inside, but the rest doesn''t match you. The name, address and birthday are fake'+iif(age < 18, ' which makes you 18 years old.', '.')+' "Carry it with you at all times and make sure to memorize the details. If anything happens again with the police, they will book you under your false name and one of our guys inside the police office will inform us to get you out."'
	'You nod. That would have been handy if you had that whem the cop caught you at the gas station. "Thanks," you say and leave the car with him.'

	if $pcs_firstname = 'Mariya' or $pcs_firstname = 'Maria':
		$wl_names['first'] = 'Anastasia'
	else
		$wl_names['first'] = 'Mariya'
	end
	if $pcs_lastname = 'Semenova':
		$wl_names['last'] = 'Ivanova'
	else
		$wl_names['last'] = 'Semenova'
	end

	act 'Go inside the tattoo shop':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><b>Tattoo & Piercing Salon</b></center>'
		'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
		'The tattoo shop is empty apart from the guy behind the counter. He looks up, but his warm smile vanishes when he spots Volya next to you. '+iif(wl_bad['tongue'] = 0, 'It''s obvious that he knows what''s going on. "The usual?" he asks and doesn''t seem to be comfortable with with you being here.', '"Back for another piercing or do you want the usual?"')+' he asks. Volya nods '+iif(wl_bad['tongue'] = 0, 'and without uttering another word he leads you towards one of the chairs for the customers.', '"Yeah, she is here to get her mark."')
		*nl
		'The tattoo artist doesn''t talk to you, never even looks you in the eyes from the moment he realized who and what you are. Instead he focuses on his work. "I''m finished," he says after a while and stands up. "I will get you a guide on how to take care of it in the coming days."'

		act 'Look at your new tattoo': minut += 90 & gt 'mod_wlife_tattoo_piercing', 'branding_2'
	end
end

if $ARGS[0] = 'branding_2':
	*clr & cla
	gs 'stat'
	'<center><b>Tattoo & Piercing Salon</b></center>'
	'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'

	'<center><table border=1><TH>View tattoos</TH>'
	if pcs_tattoos['arm'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''arm'' & gt ''mod_wlife_tattoo_piercing'', ''arm''">Arm</TD></tr>'
	if pcs_tattoos['neck'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''neck'' & gt ''mod_wlife_tattoo_piercing'', ''neck''">Neck</TD></tr>'
	if pcs_tattoos['shoulder'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''shoulder'' & gt ''mod_wlife_tattoo_piercing'', ''shoulder''">Shoulder</TD></tr>'
	if pcs_tattoos['face'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''face'' & gt ''mod_wlife_tattoo_piercing'', ''face''">Face</TD></tr>'
	if pcs_tattoos['ankle'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''ankle'' & gt ''mod_wlife_tattoo_piercing'', ''foot''">Ankle</TD></tr>'
	if pcs_tattoos['wrist'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''wrists'' & gt ''mod_wlife_tattoo_piercing'', ''wrist''">Wrist</TD></tr>'
	if pcs_tattoos['hand'] = 0: *p '<tr><TD><a href="exec: $wl_brand[''type''] = ''hand'' & gt ''mod_wlife_tattoo_piercing'', ''hand''">Hand</TD></tr></table></center>'
	*nl
	'<b>Developer Note</b>: You can freely choose between any tattoo to represent your whore brand. If you already have a tattoo in one or all of these spots, you can set one of your existing tattoos as your whore brand.'

	if pcs_tattoos['arm'] >= 1: act 'Look at your arm tattoo': $wl_brand['type'] = 'arm' & wl_brand['number'] = pcs_tattoos['arm'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['neck'] >= 1: act 'Look at your neck tattoo': $wl_brand['type'] = 'neck' & wl_brand['number'] = pcs_tattoos['neck'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['shoulder'] >= 1: act 'Look at your shoulder tattoo': $wl_brand['type'] = 'shoulder' & wl_brand['number'] = pcs_tattoos['shoulder'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['face'] >= 1: act 'Look at your face tattoo': $wl_brand['type'] = 'face' & wl_brand['number'] = pcs_tattoos['face'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['ankle'] >= 1: act 'Look at your foot tattoo': $wl_brand['type'] = 'ankle' & wl_brand['number'] = pcs_tattoos['ankle'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['wrist'] >= 1: act 'Look at your wrist tattoo':$wl_brand['type'] = 'wrist' & wl_brand['number'] = pcs_tattoos['wrist'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
	if pcs_tattoos['hand'] >= 1: act 'Look at your hand tattoo': $wl_brand['type'] = 'hand' & wl_brand['number'] = pcs_tattoos['hand'] & gt 'mod_wlife_tattoo_piercing', 'branding_3'
end

if $ARGS[0] = 'branding_3':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/<<$wl_brand[''type'']>><<wl_brand[''number'']>>.jpg"></center>'
	'Do you want to set this tattoo as your whore brand?'

	act 'No': gt 'mod_wlife_tattoo_piercing', 'branding_2'
	act 'Yes': gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'arm':
	*clr & cla
	n = 1
	:wl_looptatarm
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''arm_get''"><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 82:jump 'wl_looptatarm'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'arm_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'arm'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 8000 & wl_brand['number'] = n & gs 'tattoo_management', 'add', 'arm', wl_brand['number'] & $wl_brand['type'] = 'arm' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'face':
	*clr & cla
	n = 1
	:wl_looptatface
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''face_get''"><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 8:jump 'wl_looptatface'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'face_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'face'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 10000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'face', wl_brand['number']  & $wl_brand['type'] = 'face' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'foot':
	*clr & cla
	n = 1
	:wl_looptatfoot
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''foot_get''"><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 25:jump 'wl_looptatfoot'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'foot_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'foot'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 8000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'ankle', wl_brand['number'] & $wl_brand['type'] = 'ankle' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'neck':
	*clr & cla
	n = 1
	:wl_looptatneck
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''neck_get''"><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 30:jump 'wl_looptatneck'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'neck_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'neck'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 8000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'neck', wl_brand['number']  & $wl_brand['type'] = 'neck' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'shoulder':
	*clr & cla
	n = 1
	:wl_looptatlech
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''shoulder_get''"><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 25:jump 'wl_looptatlech'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'shoulder_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'shoulder'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 8000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'shoulder', wl_brand['number']  & $wl_brand['type'] = 'shoulder' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'wrist':
	*clr & cla
	n = 1
	:wl_looptatwrist
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''wrist_get''"><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 51:jump 'wl_looptatwrist'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'wrist_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'wrist'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 7000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'wrist', wl_brand['number']  & $wl_brand['type'] = 'wrist' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'hand':
	*clr & cla
	n = 1
	:wl_looptathand
	*p '<a href="exec:n = <<n>> & gt ''mod_wlife_tattoo_piercing'', ''hand_get''"><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg" height="250" /></a>'
	n += 1
	if n <= 9:jump 'wl_looptathand'

	act 'Choose another type of tattoo': gt 'mod_wlife_tattoo_piercing', 'branding_2'
end

if $ARGS[0] = 'hand_get':
	*clr & cla
	'<center><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg"></center>'

	act 'Choose another tattoo': gt 'mod_wlife_tattoo_piercing', 'hand'
	act 'Set this tattoo as your whore brand': wl_brand['price'] = 7000 & wl_brand['number'] = n &  gs 'tattoo_management', 'add', 'hand', wl_brand['number']  & $wl_brand['type'] = 'hand' & gt 'mod_wlife_tattoo_piercing', 'branding_end'
end

if $ARGS[0] = 'branding_end':
	*clr & cla
	minut += 5
	wl_brand['timer'] = daystart + rand(1,3)
	$wl_brand['image'] = func('tattoo_management', "<<$wl_brand['type']>>_image", $wl_brand['number'])

	killvar 'n'
	if wl_whore['shifts_week'] > 0: wl_whore['shifts_week'] -= 1
	gs 'tattoo_management', 'count'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov_car.jpg"></center>'
	'"I''ll drive you home," he says when you are back inside the car. "What about work?" You ask him, but he immediately shakes his head. "No, it could get infected. I''ll tell Georgiy that you will only have to work <<wl_whore[''shifts_week'']>> shifts this week and that he should cut the amount you have to earn this week by 2500 <b>₽</b>."'

	act 'Go home': minut += 30 & gt $wl_loc[0], $wl_loc[1]
end

!!------ Piercing ------

if $ARGS[0] = 'tongue_piercing_start':
	*clr & cla
	minut += 3
	menu_off = 1
	wl_whore['customer_total'] += wl_whore['customer_day']
	wl_whore['customer_day'] = 0
	wl_whore['shifts_done'] += 1
	wl_bad['status'] = 2
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
	'A car stops next to you. "Hey sweetie, are you looking for...," you stop in the middle of the sentence, when you realize who is sitting inside it. "Volya? What are you doing here?" you ask confused as your shift isn''t over yet. "Did something happen?"'
	'He shakes his head. "I got a phone call from Georgiy, we have to go somewhere today. Get in." Go somewhere? That''s sounds ominous. "And where are we going exactly?"'
	'"I explain it en route," he says and sends you a reassuring smile. "Come on, get in. We don''t have all day.'

	act 'Get in':
		*clr & cla
		minut += 1
		wl_whore['share_player_money'] = wl_whore['earnings_day'] * wl_whore['share_player'] / 100
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/money.jpg"></center>'
		if wl_whore['earnings_day'] > 0:
			if wl_debt['amount'] > 0:
				wl_whore['share_player_debt'] = wl_whore['earnings_day'] * 20 / 100
				wl_whore['share_player_money'] = wl_whore['earnings_day'] * (wl_whore['share_player'] - 20) / 100
			else
				wl_whore['share_player_money'] = wl_whore['earnings_day'] * wl_whore['share_player'] / 100
			end

			if wl_stats['acceptance'] > 100:
				wl_stats['acceptance'] = 100
			elseif wl_whore['earnings_day'] > 8000:
				wl_stats['acceptance'] += 3
			elseif wl_whore['earnings_day'] > 5000:
				wl_stats['acceptance'] += 2
			elseif wl_whore['earnings_day'] > 0:
				wl_stats['acceptance'] += 1
			else
				wl_stats['acceptance'] -= 1
			end

			if wl_debt['amount'] > 0 and wl_whore['share_player_debt'] >= wl_debt['amount']:
				wl_whore['share_player_debt'] -= wl_debt['amount']
				money += wl_whore['share_player_money'] + wl_whore['share_player_debt']
				'You hand over <<wl_whore[''earnings_day'']>> <b>₽</b>. He hands you your share which amounts to <<wl_whore[''share_player_money''] + wl_whore[''share_player_debt'']>> <b>₽</b> and keeps <<wl_debt[''amount''] >> <b>₽</b> to wipe out your remaining debt.'
				wl_debt['amount'] = 0
			elseif wl_debt['amount'] > 0 and wl_whore['share_player_debt'] < wl_debt['amount']:
				'You hand over <<wl_whore[''earnings_day'']>> <b>₽</b>. He hands you your share of <<wl_whore[''share_player''] - 20>>% back (<<wl_whore[''share_player_money'']>> <b>₽</b>) and keeps 20% (<<wl_whore[''share_player_debt'']>> <b>₽</b>) to reduce your debt.'
				wl_debt['amount'] -= wl_whore['share_player_debt']
				money += wl_whore['share_player_money']
			else
				'You hand over <<wl_whore[''earnings_day'']>> <b>₽</b> and he hands you your share of <<wl_whore[''share_player'']>>% back (<<wl_whore[''share_player_money'']>> <b>₽</b>).'
				money += wl_whore['share_player_money']
			end

			wl_whore['earnings_week'] += wl_whore['earnings_day']
			wl_whore['earnings_day'] = 0
			wl_whore['share_player_debt'] = 0
			wl_whore['share_player_money'] = 0
		else
			'"I didn''t found a client," you tell him.'
			'"Don''t worry about that today, you didn''t have much time to look for one," he replies.'
		end

		if wl_whore['earnings_week'] < wl_whore['shifts_done'] * 2500: wl_whore['earnings_week'] = wl_whore['shifts_done'] * 2500

		if wl_whore['cum_dressed'] = 1:
			'<br>He looks at you and pulls out some tissues. "You still have some cum on you. You should clean yourself up."'
			act 'Remove the cum from your body':
				cla & *nl
				minut += 2
				cumspclnt = 20
				npc_rel['A904'] += 1
				gs 'cum_cleanup'
				gs 'stat'
				'You take the tissues and remove the cum from your body. "Thanks," you say.'

				act 'Ask him what''s going on': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_0'
			end
		else
			act 'Ask him what''s going on': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_0'
		end
	end
end

if $ARGS[0] = 'tongue_piercing_0':
	*clr & cla
	minut += 35
	wl_bad['tongue'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov_car.jpg"></center>'
	'"So, what is going on?" you ask, when he drives off the parking lot. "Georgiy '+iif(wl_whore['share_timer'] > 0, 'told me that you asked for a bigger share', 'isn''t satisfied with your earnings')+'," he starts to explain as he filters into the traffic. '+iif(wl_bad['status'] = 1, '"You could earn more in his opinion and he', '"He')+' wants to...," he hesitates for two seconds, "...help you with that."'
	'"Yeah, right," you snort and roll your eyes. "As if Georgiy wants to help me with anything," you say making air quotes around ''help''. "I know, I know," Volya says, "but he''s the boss and we have to do what he wants. This means we have to go to the tattoo parlor in St. Petersburg'+iif(wl_status['main'] > 8, ' again ', ' ')+'to get you a tongue piercing."'
	'"Uhm...," you stare at him and narrow your eyes as if you don''t believe what he''s saying. "Uhm... what? This is a joke, right?" But Volya shakes his head. "Sorry, no. He wants me to drive you there and get your tongue pierced."'
	'"But... why? That doesn''t make any...," you stop talking for a second as an idea pops into your head. "Is it for blowjobs?" Volya nods. "Seriously?" Volya nods again. "So Georgiy wants me to get a tongue piercing to enhance the blowjob experience for my clients?" Volya nods again. For a few moments you''re just sitting there, staring out the window as something bubbles up inside you. It is...'

	act 'Laughter':
		cla & *nl
		minut += 2
		pcs_mood = 100
		pcs_willpwr += 2
		wl_stats['acceptance'] += 1
		wl_stats['respect'] += 2
		gs 'stat'
		'... laughter. It bursts out of you like an explosion. You could scream or complain, but not today, not now. It''s just too much and too stupid. Your fit of laughter doesn''t seem to end and it feels utterly liberating to laugh about your whole situation.'
		*nl
		'"What was that?" Volya asks amused, when your laughter finally subsides. "What was so funny?"'
		'"I don''t know. Maybe Georgiy, you, me, life, everything...," you say shaking your head.'

		act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_1'
	end

	act 'Rage':
		cla & *nl
		minut += 2
		wl_stats['acceptance'] -= 1
		wl_stats['loyalty'] -= 2
		gs 'stat'
		'"That shit for brains can''t be serious. I have it up to here with this bullshit," you shout holding your hand over your head. "How can one person be such a fucking retard, asshole and sadist at the same time!" You rant and keep going for the next few minutes letting out all the anger and rage you have bottled up over the last few days.'
		*nl
		'"Feeling better?" Volya asks carefully after you finally finished. "Yes," you say and you really do feel better. "But not about the piercing," you add and for a moment Volyas laughter fills the car which tugs the corners of your mouth upward. "I think you made that clear," he says grinningly.'

		act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_1'
	end

end

if $ARGS[0] = 'tongue_piercing_1':
	*clr & cla
	minut += 6
	$location_type = 'public_indoors'
	gs 'stat'
	'<center><b>Tattoo & Piercing Salon</b></center>'
	'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
	'The tattoo shop is empty apart from the guy behind the counter. He looks up, but his warm smile vanishes when he spots Volya next to you. '+iif(wl_status['main'] < 9, '"The usual?" He asks and doesn''t seem to be comfortable with you being here. You send Volya a questioning look, but he either doesn''t see it or ignores it. Instead he shakes his head. "No, my friend wants to get her tongue pierced."', '"Didn''t I already do her tattoo?" he asks narrowing his eyes. "Yeah, great work by the way," you answer sarcastically even if the question was directed at Volya, but both men ignore you. "The boss wants the whore to have a tongue piercing," Volya says coldly. "And it should be a stud, something that feels stimulating."')
	iif(wl_status['main'] < 9, '"What does he mean with ''the usual''?" you whisper', '"The whore?" you hiss,')+', when the tattoo artist vanishes behind a door to get something. '+iif(wl_status['main'] < 9, '"Don''t worry about it, it has nothing to do with you.', '"Sorry <<$pcs_nickname>>. I didn''t mean that, but I have to keep up appearances."')+' A second later the man returns and points at a display case with different kinds of piercings.'

	act 'Look at them':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><table cellspacing="3"><tr><td><img  height = 480 src="<<func(''piercing_management'', ''tongue_image'', 2)>>"></td><td><img  height = 334 src="<<func(''piercing_management'', ''tongue_image'', 4)>>"></td></tr></table></center>'
		'"You should take the one on the right," Volya says pointing to the three smaller studs sitting inside a plush dummy tongue. "This would be the best choice for you."'
		'You take your time looking at both of them. Maybe Volya is right the three studs probably would be more stimulating, but'+iif(pcs_piercings['total'] > 0, ' ', ' this is your first piercing and ')+'the one on the left is less conspicuous and slutty.'

		gs 'willpower', 'misc', 'resist', 'easy'
		if will_cost <= pcs_willpwr:
			act 'Choose the left one (<<will_cost>> Willpower)':
				gs 'willpower', 'pay', 'resist'
				wl_whore['tongue_piercing'] = 2
				gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_2'
			end
		else
			act 'Choose the left one (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Follow Volya''s advise and choose the one on the right':
			wl_whore['tongue_piercing'] = 4
			gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_2'
		end
	end
end

if $ARGS[0] = 'tongue_piercing_2':
	*clr & cla
	minut += 5
	wl_total_price = 5000
	gs 'stat'
	'<center><table cellspacing="3"><tr><td><img  height = 334 src="images/pc/body/piercings/a2.jpg"></td><td><img  height = 334 src="images/pc/body/piercings/a4.jpg"></td></tr></table></center>'
	'"I take the one on the '+iif(wl_whore['tongue_piercing'] = 2, 'left', 'right')+'," you say pointing at it. "'+iif(wl_whore['tongue_piercing'] = 2, 'Really?" Volya asks. "Don''t you want the other one?" You shake your head and point again at the one on the left. "I want the left one."', 'Good choice." Volya and the tattoo artist say at the same time.')
	'"Alright, that costs 5.000 <b>₽</b>," the tattooist says and walks towards the cash register. At the same time you look to Volya, but he gives you a non-committal shrug. "It''s your piercing," he whispers and shots you a warning look, when you open your mouth. "Georgiy made it clear. Since it''s your piercing you''ll have to pay for it." You narrow your eyes, but don''t say anything. Making a scene in public would be a bad idea. "Fine," you hiss and follow the tattooist to the counter.'

	act 'Let Volya pay and increase your debt':
		cla & *nl
		wl_debt['amount'] += wl_total_price
		iif(karta + money < wl_total_price, '"I can''t afford it at the moment, you', '"You')+' will have to pay for it," you say to Volya. "Sure, no problem, but you''ll have to pay me back."'
		'After Volya has taken care of the payment, the tattoo artist directs you towards a chair. "Please sit down."'

		act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_3'
	end

	if karta + money >= wl_total_price:
		act 'Pay for it yourself':
			cla & *nl
			if karta >= wl_total_price:
				karta -= wl_total_price
			elseif money >= wl_total_price:
				money -= wl_total_price
			else
				wl_total_price -= karta
				karta = 0
				money -= wl_total_price
			end
			gs 'stat'
			'After you have taken care of the payment, the tattoo artist directs you towards a chair. "Please sit down."'

			act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_3'
		end
	end
end

if $ARGS[0] = 'tongue_piercing_3':
	*clr & cla
	minut += 10 * wl_whore['tongue_piercing']
	'<center><video autoplay src="mod/wlife/images/player/tongue_piercing.mp4"></video></center>'
	'You grow more tense with every passing second as you wait for the tattooist to begin his work. '+iif(pcs_piercings['total'] > 0, 'Since it''s not your first piercing, you know that it''s going to hurt and especially if it''s a more sensitive area like your tongue. "How bad is it going to hurt?"', '"Is it going to hurt?"')+' you ask.'
	'"Most people say it''s a 4 or 5 on a scale from 1 to 10," he answers as he disinfects the piercings and his tools. "Even if it hurts, the pain will subside in seconds. Your tongue will feel irritated for a day or two, but it shouldn''t hurt."'
	'"Shouldn''t?" you inquire further. "If it hurts, it would mean you have an infection, but let us not worry about that. It basically never happens." He holds up the bottle of disinfected to prove his point.'
	*nl
	'You close your eyes and breathe through your nose, when he grabs your tongue with the cold metal forceps. Suddenly pain shoots through your tongue as the sharp metal goes through the sensitive flesh. "Ahh...," you exhale sharply and your eyes fly open. "Already done," he says and offers you a sympathetic smile. "I only have to attach the stud," he explains, but it doesn''t take long and after an additional minute he''s finally done.'
	if wl_whore['tongue_piercing'] = 4: '"And now for the other two," he reminds you and another sharp pain rushes through your tongue and another...'
	gs 'piercing_management', 'add', 'tongue', wl_whore['tongue_piercing']
	
	gs 'pain', rand(4,5), 'tongue', 'pierce'
	if wl_whore['tongue_piercing'] = 4:
		gs 'pain', rand(4,5), 'tongue', 'pierce'
		gs 'pain', rand(4,5), 'tongue', 'pierce'
	end
	gs 'stat'

	act 'Continue':
		*clr & cla
		minut += 30
		killvar 'wl_total_price'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/car_phone_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
		'"I''ll drive you home," Volya says when you are back inside the car and that are the only words you two exchange until you arrive back home. You don''t really want to talk with your tongue freshly pierced. Instead you surf the web and check your messages to distract you from the irritating feeling in your mouth.'

		act 'Get out of the car':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/wlife/images/objects/info.gif"></center>'
			'From now on you''ll have to wear your tongue piercing in addition to a prostitution outfit and high heels.'
			'<br><center><img height = 100 src="mod/wlife/images/objects/whore'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></center>'
			'The icon has changed as well. It will only show up if you''re wearing a tongue piercing in addition to the old requirements. You don''t have to wear the exact tongue piercing you bought today, another one is also fine.'

			act 'Continue': gt $wl_loc[0], $wl_loc[1]
		end
	end
end

!!------ Iosif Tattoo ------

if $ARGS[0] = 'tattoo_0':
	*clr & cla
	minut += 4
	menu_off = 1
	wl_iosif['tattoo'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/iosif_orlov.jpg"></center>'
	'"Hey bitch," a voice calls out behind you. Naturally you turn around having grown accustomed to be called in such a way. Who else on the quiet street in the residential area would be the bitch? "Come here," a man shouts out of a car parked next to the curb. It''s Iosif.'
	'What does he want now?'+iif(kanikuli = 0 and  SchoolAtestat = 0 and SchoolBlock = 0, ' You have to be in school. ', ' ')+'Doesn''t he know that? You walk over to the passenger site and lean inside the car as if your''re working at the gas station. "Get in the fucking car. Right now!" He says and leans through the car to open the door for you.'
	if wl_whore['shifts_message'] = 1: wl_whore['shifts_message'] = 0 & '"Will it take long? I told Volya...," you try to explain that you wanted to work today. "Don''t worry whore, you can earn money tomorrow. Volya knows that I need you today."'

	'<br><font color="red">Content Warning: Forced Tattoo</font>'

	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Protest (<<will_cost>> Willpower)':
			cla & *nl
			minut += 4
			wl_stats['respect'] += 2
			wl_stats['loyalty'] -= 1
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"I can''t '+iif(kanikuli = 0 and  SchoolAtestat = 0 and SchoolBlock = 0, 'I have to go to school', 'I have to be somewhere else')+'," you protest. "I have a life too, you know?"'
			'"When I tell you to get in the fucking car, you get in the fucking car," he shouts aggressively and points at the empty seat. "I don''t care if you have to go to school or whatever... Get in now!"'
			'He''s crazy and if he keeps shouting like this he''ll draw everybody''s attention and you can''t risk somebody seeing him with you. The more time you spent here out in the open, leaning into his car, your ass on full-display the higher the chance is that somebody you know catches him with you.'

			gs 'mod_wlife_tattoo_piercing', 'tattoo_0_actions'
		end
	else
		act 'Protest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Do it':
		cla & *nl
		minut += 2
		wl_stats['respect'] -= 1
		gs 'stat'
		'You can''t risk somebody seeing him with you. The more time you spent here out in the open, leaning into his car your ass on full-display, the higher the chance is that somebody you know catches him with you.'

		gs 'mod_wlife_tattoo_piercing', 'tattoo_0_actions'
	end

	act '<font color="red">Block this scene</font>': gt $loc, $loc_arg
end

if $ARGS[0] = 'tattoo_0_actions':
	act 'Be quiet': gt 'mod_wlife_tattoo_piercing', 'tattoo_1'
	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Ask him what''s going on (<<will_cost>> Willpower)':
			cla & *nl
			minut += 4
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"Where are we going?" you ask him a bit nervous about what''s going to happen. Iosif never is good news and him picking you up on the street is probably even worse.'
			'He glances at you with those cold dead eyes as a knowing smirk appears on his face. "Don''t worry. You don''t have to be this tense. It''s nothing bad. In fact I have a surprise for you."'
			'"But...," you try to say, but you don''t have a chance to even start asking your question before he interjects. "And now shut the fuck up. I don''t give a shit about what you have to say."'

			act 'Be quiet': gt 'mod_wlife_tattoo_piercing', 'tattoo_1'
		end
	else
		act 'Ask him what''s going on (<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] = 'tattoo_1':
	*clr & cla
	minut += 35
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/car_phone_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
	'You watch in silence how Iosif drives through Pavlovsk and onto the highway to St. Petersburg. He never explains why he''s taking you there or what you''re going to do. Since it''s Iosif it can''t be something good. He''s a sadistic asshole and whatever surprise he has planned for you it will involve pain, your pussy getting fucked hard or both... probably both.'
	'When you drive by Gadukino you pull out your phone to try to take your mind of things, but nothing you try works. Your anxiety grows every second until you can''t stop yourself anymore. "Could you please tell me where we are going?" you ask when you reach the outskirts of St. Petersburg.'
	'"We already there," he explains and points to a building about a hundred meters away. It''s the tattoo studio you already visited with Volya. You swallow hard and wonder what Iosif has planned for you inside.'

	act 'Go inside':
		*clr & cla
		minut += 7
		$location_type = 'public_indoors'
		gs 'stat'
		'<center><b>Tattoo & Piercing Salon</b></center>'
		'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
		'"Iosif," the man behind the counter says surprised and nervous. He obviously knows who he''s dealing with. "It''s... good to see you again," he clearly lies, but Iosif doesn''t seem to care. "Lock the door," Iosif coldly says to the man as he walks to a long wall with dozens of tattoos.'
		'"Sure," the man says and nearly trips over his own feet when he rushes to the door. "Do you want something for yourself or for your...," he throws you a questioning look, but you only answer with a shrug.'
		'"Whore, call her what she is, you piece of shit. She''s a stupid whore, but when you don''t like that word she also responds well to slut or bitch. And to answer your question, it''s for her. I want a nice tattoo for her cunt."'
		'What did he just say? You clearly must have misheard what he said. It sounded like he wants a tattoo for your pussy. He can''t mean it. Please, he can''t mean it.'
		'"Something specific?" the tattoo artist asks and Iosif nods, but turns his head to you, when he says. "Why don''t you lie down on your back, I will discuss everything with him."'
		'"But...," you try to get a word in. Iosif doesn''t care and interjects with an evil smirk. "I saw the picture on your phone." Picture... what picture is he talking about? Then it hits you with the force of a missile. That picture. The picture that shows you completely covered in degrading writing. "Why would you save something like that if you don''t want it to be true," he taunts you. "And now lie down."'

		gs 'willpower', 'misc', 'self', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Protest (<<will_cost>> Willpower)':
				*clr & cla
				minut += 4
				wl_stats['respect'] += 3
				wl_stats['loyalty'] -= 1
				gs 'pain', 10, 'tummy', 'hit'
				gs 'pain', 10, 'head', 'slap'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely_angry.jpg"></center>'
				'"No, Iosif. It isn''t like that. I don''t want that. Especially not a tattoo down there. Please, I do...," you plea, but he doesn''t even bother with a verbal reply. Instead he let''s you experience his brutal side. He rams his fist into your stomach. The air is forced out of your lungs and you bow forward wheezing and trying to breathe. You never see the second hit coming. This time it''s not his fist, but his open hand, but when he slaps your head with full force you''re thrown to the ground.'
				'"Shut the fuck up, you have no right to demand anything," he tells you while the color drains from the tattoo artist face. Whatever he thinks about the situation, he never even tries to help you. "And don''t make me repeat myself again."'

				act 'Follow his order': gt 'mod_wlife_tattoo_piercing', 'tattoo_2'
			end
		else
			act 'Protest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		act 'Follow his order': gt 'mod_wlife_tattoo_piercing', 'tattoo_2'
	end
end

if $ARGS[0] = 'tattoo_2':
	*clr & cla
	minut += 320
	gs 'pain', 10, 'pubic', 'pierce'
	gs 'pain', 10, 'pubic', 'pinch'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tattoo_artist.jpg"></center>'
	'You lie down on your back and try to calm yourself down. It will be fine. You already got branded. This will be no different. Iosif will get his wish and you''ll go home.'
	'After about five minutes the tattoo artist sits down next to you. "I''ll first have to clean and sanitize the area. If you would be so kind to undress," he explains without looking at you. He avoids your gaze the whole time you''re undressing. Instead he focuses on collecting his supplies. He seems to be more uncomfortable with the situation than you are. What a coward, you think. He only has to do his job. You''re the one that has to get inked.'
	'He cleans the area above your pussy thoroughly before he takes his needle and begins. It hurts like hell. You thought your first tattoo hurt bad, but this is way worse. After what seems like an hour you ask him, "how long will it take?"'
	'"Four, maybe five hours," he replies engrossed in his work.'
	'Five hours? You think shocked and close your eyes trying without avail to block out the pain.'
	*nl
	'"I''m done," he finally says after more than five hours.'

	act 'Look at your new pubic tattoo':
		*clr & cla
		minut += 2
		wl_total_price = 20000
		gs 'stat'
		'<center><table cellspacing="3"><tr><td><img  height = 334 src="<<func(''tattoo_management'', ''pussy_image'', 1)>>"></td><td><img height = 334 src="<<func(''tattoo_management'', ''pussy_image'', 2)>>"></td></tr></table></center>'

		'<b>Developer Note</b>: The left tattoo should show the word ''Owned'' the one on the right ''Cumslut''. If that''s not the case, you have not installed the replacement image pack for girl life correctly.'
		'Which of those two tattoo''s has Iosif chosen for you?'

		act 'Owned': wl_temp = 1 & $wl_brand['text_pubic'] = 'owned' & gt 'mod_wlife_tattoo_piercing', 'tattoo_3'
		act 'Cumslut': wl_temp = 2 & $wl_brand['text_pubic'] = 'cumslut' & gt 'mod_wlife_tattoo_piercing', 'tattoo_3'
	end
end

if $ARGS[0] = 'tattoo_3':
	*clr & cla
	minut += 5
	gs 'tattoo_management', 'add', 'pussy', wl_temp
	$wl_brand['image_pubic'] = func('tattoo_management', 'pussy_image')
	gs 'tattoo_management', 'count'
	gs 'stat'
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''pussy_image'')>>"></center>'
	'You open your eyes and instinctively your eyes look down at your pubic area. It takes you a moment to decipher the upside down word... <<$wl_brand[''text_pubic'']>>. You stare at it, stare at it a bit longer until you...'

	act '... start to cry':
		cla & *nl
		minut += 3
		wl_stats['acceptance'] -= 2
		wl_stats['respect'] += 1
		pcs_mood = 0
		gs 'stat'
		'... start to cry. You don''t want this. Why can''t Iosif leave you alone? You do everything the Belys want, but this is turning out to be even more of a nightmare than you could have anticipated in your darkest dreams. Marked like this is even worse than your first tattoo. Everybody, every client will understand it and think you got it on your own. Tears well up in your eyes and you quickly rub them with your hands to erase the evidence, but Iosif has already seen it. "Look at that. Tears of happiness. I knew you would like it," he says grinning sadistically.'
		'"Yes," you sniff rubbing away more tears. "Thank you Iosif."'
		'"Your very welcome <<$pcs_nickname>>."'

		act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tattoo_4'
	end

	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act '... accept it (<<will_cost>> Willpower)':
			cla & *nl
			minut += 3
			wl_stats['acceptance'] += 2
			wl_stats['respect'] -= 3
			pcs_mood = 0
			gs 'willpower', 'misc', 'self', 'hard'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'... accept it. '+iif($wl_brand['text_pubic'] = 'cumslut', 'Maybe you are a cumslut. Deep down you know it could be true. Most other girls couldn''t cope with this situation. If this isn''t true, why could you deal with the situation so well?', 'The Belys, Iosif, they all own you. There''s no way to deny it.')
			'"And?" Iosif asks tearing you away from your thoughts. You don''t even have to force yourself to smile, when you say. "Thank you, Iosif. It really suits me."'
			'If he''s surprised by your answer, he doesn''t show it. "Of course it does. It''s what you are."'

			act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tattoo_4'
		end
	else
		act '... accept it (<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', 'medium'
	if will_cost <= pcs_willpwr:
		act '... just shrug (<<will_cost>> Willpower)':
			cla & *nl
			minut += 2
			wl_stats['respect'] += 3
			pcs_mood = 100
			gs 'willpower', 'misc', 'self', 'medium'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'It''s not like you don''t care, but indifference is probably something that Iosif annoys the most. So you shrug and turn your eyes away from your new tattoo. "Is there anything else you want? Or are we done for today? It was a long session and I''m hungry."'
			'For a moment anger flares up inside his eyes, but it quickly shifts to something else. You can''t really put your finger on it, but he doesn''t hit you, screams at you or has any other outbursts. He only nods like a small sign of respect. Like a non-verbal ''well played''. It''s not much, but you take it.'

			act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tattoo_4'
		end
	else
		act '... just shrug (<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] = 'tattoo_4':
	*clr & cla
	minut += 4
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/iosif_orlov.jpg"></center>'
	'"Uhm... yeah," the tattoo artist says and nervously rubbing the back of his head. "When there is nothing else. A tattoo like this costs 20,000 <b>₽</b>."'
	'20,000 <b>₽</b>? You sigh, because you know who is going to pay for it. You are. It''s always the same. They treat you like dirt and in the end they don''t even pay the bill.'
	'"How about you fuck her and reduce the price a bit?" Iosif suggests, but his expression makes it clear that this isn''t a suggestion. You know it, but the owner of the shop doesn''t. "What? No, I can''t do that."'
	'"What''s the problem? Do you think '+iif($wl_brand['text_pubic'] = 'cumslut', 'such a cumslut can''t give you a good time?"', 'my property is ugly?"')+' The man shakes his head and stammers. "No, no, of course not. But...," he thinks about his next words carefully. "It''s not a good idea. The area is rather sensitive right now and we shouldn''t take the risk."'
	'"Alright," Iosif replies slowly as if he''s talking to an imbecile. "It''s not like she doesn''t have other holes, doesn''t she?" He turns his attention to you. "He can fuck your mouth for 500 <b>₽</b>?"'
	'You guess you have three options. First, you could decline. Yeah, that''s not going to go down well with Iosif. You discard that option. You could accept, lower the price a bit. You could demand more money and either get the man to refuse or get more money out of it or... a sudden idea lights up in your head. Or if he can''t fuck your pussy, he could use your ass. That would either earn you even more or it could maybe force the man to finally reject the whole idea.'

	act 'Accept':
		cla & *nl
		minut += 2
		wl_temp = 500
		gs 'stat'
		'You sigh, since rejecting the ''suggestion'' isn''t an option, and gesture to the man to come to you. "See, she''s willing. What are you waiting for?" Iosif says pointing at you. The guy doesn''t offer any resistance and slowly returns to you.'

		act 'Continue': gt 'mod_wlife_iosif_sex', 'tattoo_start'
	end

	gs 'willpower', 'prostitution', 'self', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Demand more money (<<will_cost>> Willpower)':
			cla & *nl
			minut += 4
			wl_stats['respect'] -= 1
			wl_stats['loyalty'] += 1
			wl_stats['acceptance'] += 1
			wl_temp = 1000
			gs 'willpower', 'prostitution', 'self', 'easy'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"500? That isn''t enough. I''m at least worth 1,000 <b>₽</b>," you tell both of them.'
			'"Really?" Iosif asks impressed by this tiny show of dominance. "Yes, I am," you affirm.'
			'"Very well 1,000 <b>₽</b> it is. What are you waiting for?" Iosif asks the guy. "Come on give the girl what she wants." The guy doesn''t offer any resistance and slowly returns to you.'

			act 'Continue': gt 'mod_wlife_iosif_sex', 'tattoo_start'
		end
	else
		act 'Demand more money (<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', 'prostitution', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Suggest anal (<<will_cost>> Willpower)':
			cla & *nl
			minut += 4
			wl_stats['respect'] -= 2
			wl_stats['loyalty'] += 2
			wl_stats['acceptance'] += 2
			wl_temp = 2000
			gs 'willpower', 'prostitution', 'self', 'hard'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"500? That isn''t enough. I''m at least worth 2,000 <b>₽</b>," you tell both of some. '
			'"2,000 <b>₽</b>?" Iosif shakes his head about so much audacity. "Don''t kid yourself <<$pcs_nickname>>."'
			'"My mouth may not, but my asshole is," you reply firmly. "Very well 2,000 <b>₽</b> for her asshole," Iosif grins. "What are you waiting for?" Iosif asks the guy. "Come on give the girl what she wants." The guy doesn''t offer any resistance and slowly returns to you.'

			act 'Continue': gt 'mod_wlife_iosif_sex', 'tattoo_start'
		end
	else
		act 'Suggest anal (<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] = 'tattoo_5':
	*clr & cla
	minut += 2
	wl_total_price -= wl_temp

	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/iosif_orlov.jpg"></center>'
	'You don''t have to look far for something to clean yourself. You use the same supplies the tattoo artist used to clean your crotch. "How do you want to pay?" Iosif asks as you wipe away the cum'+iif(wl_temp = 2000, ' and for good measure wipe down your asshole too.', '.')

	act 'Let Iosif pay and increase your debt':
		cla & *nl
		wl_debt['amount'] += wl_total_price
		gs 'stat'
		iif(karta + money < wl_total_price, '"I can''t afford it at the moment, you', '"You')+' will have to pay for it," you say to Iosif. "Sure slut, no problem."'
		'After Iosif has taken care of the payment, you go back to the car.'

		act 'Continue': gt 'mod_wlife_tattoo_piercing', 'tattoo_end'
	end

	if karta + money >= wl_total_price:
		act 'Pay for it yourself':
			cla & *nl
			if karta >= wl_total_price:
				karta -= wl_total_price
			elseif money >= wl_total_price:
				money -= wl_total_price
			else
				wl_total_price -= karta
				karta = 0
				money -= wl_total_price
			end
				gs 'stat'
			'After you have taken care of the payment, you go back to the car.'

			act 'Go back to the car': gt 'mod_wlife_tattoo_piercing', 'tattoo_end'
		end
	end
end

if $ARGS[0] = 'tattoo_end':
	*clr & cla
	minut += 35
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/car_phone_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
	'Iosif ignores you again. He doesn''t speak a single word to you and leaves you to your own thoughts. In the end your predictions was only off by one small detail. The day involved pain and getting fucked hard, but it wasn''t your pussy that was ravaged this time.'
	*nl
	'After a bit more than half an hour Iosif parks in front of the warehouse. '+iif(wl_whore['shifts_week'] > 0 and wl_georgiy['payment_method'] = 0, '"Georgiy reminded me you''ll have to work one shift less for spending time with me today...," he looks a bit annoyed that he has to tell you that. "And now get', '"Get')+' the fuck out of my car," is the last thing he says to you.'
	if wl_whore['shifts_week'] > 0 and wl_georgiy['payment_method'] = 0: wl_whore['shifts_week'] -= 1

	killvar 'wl_temp'
	killvar 'wl_total_price'

	act 'Leave the car': gt 'mod_wlife_warehouse', 'street'
end

!!------ Irina / Nipple Piercing ------

if $ARGS[0] = 'third_visit':
	*clr & cla
	minut += 4
	menu_off = 1
	wl_irina['status'] = 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/irina_bely.jpg"></center>'
	'"<<$pcs_nickname>>," Irina calls you using your nickname for the first time. Georgiy or somebody else probably told her. She''s leaning against the passenger side of her white Porsche waving you over.'
	'"Hi Irina," you say unsure if you hope or dread that she''s maybe here for you. "Visiting your brother?"'
	'She shakes her head and opens the passenger side door. "No, I''m here to see you," she purrs like a randy cat.'

	act 'Get inside':
		*clr & cla
		minut += rand(30,40)
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/irina_bely_car.jpg"></center>'
		'"I''m here to give you a present," she tells you like a lover as she drives towards the highway. It may sound nice, but you doubt it''s something good.'
		'"Why?" you ask skeptical.'
		'"Why? Not what?" She asks amused. "You don''t trust me do you?"'
		'"Don''t take it the wrong way, but no I don''t trust you. That doesn''t mean..." But Irina cuts you off. "There''s no reason to defend yourself. I don''t take it personally. I wouldn''t trust myself if I were in your position. And to answer your question. I wanted to give you something to me remind you of the day we shared at my house."'
		'"That isn''t necessary Irina," you assure her. "Really. I doubt I''ll ever forget that day."'
		'"Sure, but as I said I want to give you something to remind you of our shared time. Something that will remind you every hour, every minute and every second of every day." She looks at you for the first time since you have entered the car. "Isn''t that romantic?"'
		'No. It really doesn''t sound romantic, you think. It sounds more what a creepy stalker would say. "Yes, it does. Thank you Irina," you say keeping your thoughts to yourself.'
		'"Good," she turns her gaze back towards the road. "You''ll love it."'

		act 'Leave the car':
			*clr & cla
			minut += 3
			$location_type = 'public_indoors'
			gs 'stat'
			'<center><b>Tattoo & Piercing Salon</b></center>'
			'<center><img height = 480 src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
			'Oh no... you know exactly where you are. You''re back at the tattoo shop where you got your brand. "It''s a tattoo. Isn''t it? Something that will remind me every day of our encounter."'
			'She laughs and shakes her head. "No silly. Of course not." You breathe a sigh of relief. "It''s a nipple piercing."'
			'You freeze and stare at her. "What?"'
			'"Wasn''t it obvious? Something that reminds you every day of what happened? A nipple piercing is the best gift for a good tit flogging. Getting it hurts, it''s something you will feel every day and it''s a gift that is connected to your tits. It''s by far the most perfect gift for such an occasion." She spins around on her heels and walks into the piercing parlor. "Now come on <<$pcs_nickname>>. You''ll love it."'

			act 'Follow her':
				*clr & cla
				minut += 3
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tattoo_artist.jpg"></center>'
				'"Irina?" A smile blossoms on the face of the tattoo artist the second you enter his shop. "It''s so good to see you." He walks around the counter and they both exchange a kiss on the cheek. "What brings you here?"'
				'"My friend <<$pcs_firstname>> wants to get a nipple piercing. Something simple." She walks over to a nearby showcase and after looking at the different piercings she points towards a very basic silver stud. "How about this one <<$pcs_nickname>>?"'
				'You walk over to the showcase and ...'

				act '... look at it':
					*clr & cla
					minut += 3
					gs 'stat'
					'<center> <img height = 480 src="images/pc/body/piercings/f1.jpg"></center>'
					'It''s the most basic piercing they have. "Looks good," you say to her. Even if you don''t want to get it, you''re sure you can''t refuse her ''present'' and if you have to get one, the smallest and least flashy one is probably best.'
					'"Alright," she beams. "Why don''t you lie down and get ready while I pay."'

					act 'Get pierced':
						*clr & cla
						minut += 20
						$wl_whore['nipple_piercing'] = 1						
						gs 'piercing_management', 'add', 'nipples', wl_whore['piercing_nipples']
						gs 'pain', 9, 'nipples', 'pierce'
						gs 'pain', 9, 'nipples', 'pierce'
						gs 'stat'
						'<center><img <<$set_imgh>> src="mod/wlife/images/player/nipple_pierced.jpg"></center>'
						'You close your eyes, when he grabs your left nipple with cold metal forceps. "Now hold still please. It''s very important that you don''t move. If I go to deep, it could result in permanent damage. So please hold your breath for a moment." You do and suddenly pain shoots through your nipple as sharp metal pierces the sensitive flesh. "Ahh...," you exhale sharply and your eyes fly open. This hurts way more than getting your tongue pierced. "Already done," he says and offers you a sympathetic smile. "I only have to attach the stud," he explains, but it doesn''t take long and after an additional minute he''s finally done with the first one. After a few more minutes and more pain he''s done with the second one as well.'

						act 'Leave':
							*clr & cla
							'<center><img <<$set_imgh>> src="mod/wlife/images/characters/irina_bely_kissing.jpg"></center>'
							gs 'arousal', 'kiss', 2, 'lesbian'
							gs 'arousal', 'end'
							gs 'stat'
							'You have barely left the tattoo parlor before Irina pulls you towards her and surprises you with an intense kiss. Her soft lips move against yours and after the initial shock has passed you return the kiss. Time seems to stop and the pain in your nipples vanishes as you melt into her kiss. It''s so different than kissing a men. You''re about the same height which makes it easier, her lips are softer and everything about it is more sensual.'
							*nl
							'Then it ends. After a few minutes she pulls back and takes two steps back in her high heels. "Goodbye <<$pcs_nickname>>." And with that said, she walks away, gets in her car, and leaves you behind while you blush like the hormonal teen that you are.'

							act 'Continue': gt 'city_industrial'
						end
					end
				end
			end
		end
	end
end

--- mod_wlife_tattoo_piercing ---------------------------------