Updated to use the new way piercings are handled by the main game.

locations/mod_wlife.qsrc

@@ -189,7 +189,7 @@ elseif wl_status['main'] > -1:
 
 	!!Location Checks 2
 	if menu_off = 0 and $loc = $wl_loc[0] and $loc_arg = $wl_loc[1] and $menu_arg ! 'garages':
-		if wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['pirsA'] = 0:
+		if wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['tongue_piercing'] = 0:
 			if hour = 16 and PCloStyle = 4 and ShoHeels > 3:
 !!ToDo: Activate if done if wl_party['status'] > 1 and wl_vadim['timer'] < daystart: gt 'mod_wlife_vadim', 'pick_up'
 				'Volya is waiting for you in his <a href="exec: minut += 1 & gt ''mod_wlife_volya'', ''shift_start''">car</a>.'
@@ -198,10 +198,10 @@ elseif wl_status['main'] > -1:
 			elseif hour < 16:
 				'Volya will pick you up between 16:00 and 17:00. You''ll have to wear an appropriate outfit and heels.'
 			end
-		elseif wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['pirsA'] > 0:
-			if hour = 16 and PCloStyle = 4 and ShoHeels > 3 and pirsA < 10000:
+		elseif wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['tongue_piercing'] > 0:
+			if hour = 16 and PCloStyle = 4 and ShoHeels > 3 and wl_whore['tongue_piercing'] < 10000:
 				'Volya is waiting for you in his <a href="exec: minut += 1 & gt ''mod_wlife_volya'', ''shift_start''">car</a>.'
-			elseif hour = 16 and (PCloStyle ! 4 or ShoHeels < 4 or pirsA = 10000):
+			elseif hour = 16 and (PCloStyle ! 4 or ShoHeels < 4 or wl_whore['tongue_piercing'] = 10000):
 				'Volya is waiting for you in his car, but you have to wear an appropriate outfit, heels and your tongue piercing.'
 			elseif hour < 16:
 				'Volya will pick you up between 16:00 and 17:00. You''ll have to wear an appropriate outfit, heels and your tongue piercing.'
@@ -350,10 +350,10 @@ elseif wl_status['main'] > -1:
 			$wl_status_msg += '<td><a href="exec: gt ''mod_wlife_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></td>'
 		end
 
-		if wl_whore['pirsA'] = 0:
+		if wl_whore['tongue_piercing'] = 0:
 			if PCloStyle = 4 and ShoHeels > 3: $wl_status_msg += '<td><img title="Your outfit suits a whore perfectly." height = 80 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"></td>'
 		else
-			if PCloStyle = 4 and ShoHeels > 3 and pirsA = wl_whore['pirsA']: $wl_status_msg += '<td><img title="Your outfit suits a whore perfectly." height = 80 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"></td>'
+			if PCloStyle = 4 and ShoHeels > 3 and pcs_piercings['tongue'] = wl_whore['tongue_piercing']: $wl_status_msg += '<td><img title="Your outfit suits a whore perfectly." height = 80 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"></td>'
 		end
 
 		$wl_status_msg += '</tr></table></center><br><br>'

locations/mod_wlife_functions.qsrc

@@ -530,11 +530,11 @@ if $ARGS[0] = 'payment':
 
 	if ($wl_whore['client_scene'] = 'Blowjob') or ($wl_whore['pav_scene'] = 'blowjob'):
 		wl_whore['payment_mod'] = wl_whore['payment_mod'] / 2
-		if pirsA = 2:
+		if pcs_piercings['tongue'] = 2:
 			wl_whore['payment_mod'] += 50
-		elseif pirsA = 4:
+		elseif pcs_piercings['tongue'] = 4:
 			wl_whore['payment_mod'] += 75
-		elseif pirsA > 0 and pirsA < 10000:
+		elseif pcs_piercings['tongue'] > 0 and pcs_piercings['tongue'] < 10000:
 			wl_whore['payment_mod'] += 25
 		end
 	end
@@ -724,40 +724,6 @@ if $ARGS[0] = 'weed_check':
 	end
 end
 
-if $ARGS[0] = 'tat_pierce_count':
-	tattCount = 0
-
-	if tatarm >= 1: tattCount += 1
-	if tatass >= 1:	tattCount += 1
-	if tatback >= 1: tattCount += 1
-	if tatblly >= 1: tattCount += 1
-	if tatbrst >= 1: tattCount += 1
-	if tatchst >= 1: tattCount += 1
-	if tatfce >= 1:	tattCount += 1
-	if tatankle >= 1: tattCount += 1
-	if tatleg >= 1:	tattCount += 1
-	if tatlip >= 1:	tattCount += 1
-	if tatneck >= 1: tattCount += 1
-	if tatvag >= 1: tattCount += 1
-	if tatlech >= 1: tattCount += 1
-	if tatside >= 1: tattCount += 1
-	if tatupb >= 1: tattCount += 1
-	if tatunder >= 1: tattCount += 1
-	if tatwrist >= 1: tattCount += 1
-	if tathand >= 1: tattCount += 1
-
-	pierWearCount = 0
-
-	if pirsA > 0 and pirsA ! 10000:	pierWearCount += 1
-	if pirsB > 0 and pirsB ! 10000:	pierWearCount += 1
-	if pirsC > 0 and pirsC ! 10000:	pierWearCount += 1
-	if pirsD > 0 and pirsD ! 10000:	pierWearCount += 1
-	if pirsE > 0 and pirsE ! 10000:	pierWearCount += 1
-	if pirsF > 0 and pirsF ! 10000:	pierWearCount += 1
-	if pirsG > 0 and pirsG ! 10000:	pierWearCount += 1
-	if pirsN > 0 and pirsN ! 10000:	pierWearCount += 1
-end
-
 if $ARGS[0] = 'pav_client':
 	!!Reset
 	wl_whore['pav_internal'] = 0

locations/mod_wlife_highway.qsrc

@@ -437,7 +437,7 @@ if $ARGS[0] = 'work':
 	end
 
 	'<center><video autoplay src="mod/wlife/images/prostitution/normal/negotiation/search.mp4"></video></center>'
-	'You are walking near the gas station waiting for a client. On a scale from 1 to 10 you look like a <<hotcat>>. A good looking girl will always earn more money.'+iif(pcs_makeup < 2, ' You should '+iif(pcs_makeup = 0, 'fix your make-up', 'wear make-up')+' to increase your earnings.', ' Wearing make-up is a good way to increase your earnings.')+iif(pirsA > 0 and pirsA < 10000, ' Your tongue piercing will make a blowjob more enjoyable for most men, that could bring in a small bonus.', '')+iif($pantyworntype = 'sexshop' and CloSkirtShortness > 4, ' Wearing such a short skirt reveals your slutty panties to your potential customers.', '')+iif(pcs_apprnc = -10, ' You don''t look healthy and should seek treatment for your STD. There is a high chance that a guy won''t touch you without a condom.', '')
+	'You are walking near the gas station waiting for a client. On a scale from 1 to 10 you look like a <<hotcat>>. A good looking girl will always earn more money.'+iif(pcs_makeup < 2, ' You should '+iif(pcs_makeup = 0, 'fix your make-up', 'wear make-up')+' to increase your earnings.', ' Wearing make-up is a good way to increase your earnings.')+iif(pcs_piercings['tongue'] > 0 and pcs_piercings['tongue'] < 10000, ' Your tongue piercing will make a blowjob more enjoyable for most men, that could bring in a small bonus.', '')+iif($pantyworntype = 'sexshop' and CloSkirtShortness > 4, ' Wearing such a short skirt reveals your slutty panties to your potential customers.', '')+iif(pcs_apprnc = -10, ' You don''t look healthy and should seek treatment for your STD. There is a high chance that a guy won''t touch you without a condom.', '')
 
 	if wl_whore['enema'] = 0: '<br>Nearly all men won''t like dirty anal sex, even with a condom, and it''s probably a safe bet that they won''t pay a lot for it. You should start giving yourself an enema before going to work.'
 	if mesec > 0: '<br>You are having your period, most men will pay less for vaginal sex during that time of the month.'
@@ -537,9 +537,9 @@ if $ARGS[0] = 'work':
 end
 
 if $ARGS[0] = 'event_check':
-	if hour > 18 and ((wl_bad['counter'] > 0 and wl_bad['status'] = 1) or wl_whore['share_timer']> 0) and pirsA = 0:
+	if hour > 18 and ((wl_bad['counter'] > 0 and wl_bad['status'] = 1) or wl_whore['share_timer']> 0) and pcs_piercings['tongue'] = 0:
 		gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_start'
-	elseif wl_bad['status'] = 1 and pirsA > 0:
+	elseif wl_bad['status'] = 1 and pcs_piercings['tongue'] > 0:
 		wl_bad['status'] = 2
 	end
 

locations/mod_wlife_highway_sex.qsrc

@@ -129,9 +129,9 @@ if $ARGS[0] = 'rimjob_start':
 	cla & *nl
 	minut += 10
 	wl_whore['rim_pity_counter'] = 0
-	wl_whore['payment'] = 500 + hotcat * 5 + iif(wl_whore['pirsA']= pirsA and pirsA < 10000, pirsA * 15, 0)
+	wl_whore['payment'] = 500 + hotcat * 5 + iif(wl_whore['tongue_piercing']= pcs_piercings['tongue'] and pcs_piercings['tongue'] < 10000, pcs_piercings['tongue'] * 15, 0)
 	gs 'stat'
-	iif(rand(0,1) = 0 or $wl_fetish['rimjob'] = '', 'Even after ten more minutes he still doesn''t seem to be close to shooting his load. "Something wrong?" you ask. He shakes his head. "Not really, but this will take a while." You let out an involuntary sigh. "There is something that will get me off quickly if you''re willing to do it." You send him a questioning look. "Lick my ass, that always get''s me off quickly,"', '"This isn''t working," he says after ten more minutes. "Could you maybe eat my ass? It''s a sure way for me to cum,"')+' he continues and quickly adds. "I pay extra, of course. How about <<wl_whore[''payment'']>> <b>₽</b>? I would really love to feel '+iif(pirsA > 0 and pirsA < 10000, 'that piercing', 'your tongue')+' on my asshole."'
+	iif(rand(0,1) = 0 or $wl_fetish['rimjob'] = '', 'Even after ten more minutes he still doesn''t seem to be close to shooting his load. "Something wrong?" you ask. He shakes his head. "Not really, but this will take a while." You let out an involuntary sigh. "There is something that will get me off quickly if you''re willing to do it." You send him a questioning look. "Lick my ass, that always get''s me off quickly,"', '"This isn''t working," he says after ten more minutes. "Could you maybe eat my ass? It''s a sure way for me to cum,"')+' he continues and quickly adds. "I pay extra, of course. How about <<wl_whore[''payment'']>> <b>₽</b>? I would really love to feel '+iif(pcs_piercings['tongue'] > 0 and pcs_piercings['tongue'] < 10000, 'that piercing', 'your tongue')+' on my asshole."'
 
 	if $wl_fetish['rimjob'] = '':
 		'<br>He wants you to do what? Licking his ass? You think shocked and look down to his ass. You knew that anal would be a possibility, but this? You don''t even have time to think about it more, before he asks, "and?" He clearly wants you to quickly make a decision.'
@@ -415,7 +415,7 @@ if $ARGS[0] = 'rimjob_end':
 			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s1.mp4"></video></center>'
 			'In contrast to most guys he''s completely shaved. Not a single hair is left on his ass, balls and crotch which makes the whole experience a bit more enjoyable for you.'+iif(wl_thought['rimjob'] < 2, ' You give yourself a mental shake. It isn''t as if you like giving guys a rimjob... or do you? You ask yourself, but immediately push the thought aside and concentrate on the task in front of you. ', ' ')+'He also tastes like nothing, not even sweat as if he stepped right out of the shower. "That''s great, keep doing that," he says with a blissful smile on his face, when you flick your tongue through the puckered meat of his hole.'
 			*nl
-			'You continue to tease his ass with your '+iif(pirsA > 0 and pirsA < 10000, 'piercing', 'tongue')+' for the next few minutes and stroking his cock with your hands. "Damn, that''s...," he stops talking as cum erupts from the tip of his cock coating your hand in it.'
+			'You continue to tease his ass with your '+iif(pcs_piercings['tongue'] > 0 and pcs_piercings['tongue'] < 10000, 'piercing', 'tongue')+' for the next few minutes and stroking his cock with your hands. "Damn, that''s...," he stops talking as cum erupts from the tip of his cock coating your hand in it.'
 		elseif wl_whore['rim_counter'] = 2 or (wl_whore['rim_counter'] = 6 and wl_rand = 2):
 			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s2.mp4"></video></center>'
 			'You push your face into his shaved ass-crack and dig in. "That feels nice," he says with a grin and strokes his cock as your tongue moves up and down his ass-crack. "Sounds even nicer," he adds, when the air is filled with the slobbery sounds your mouth and tongue make on his ass.'

locations/mod_wlife_phone.qsrc

@@ -110,10 +110,10 @@ if $ARGS[0] = 'start':
 		'<br><font color="red">You can''t work today. You have to go to Volya''s apartment today (19:00) to get ready for the party at Vadim Bely''s house</font>.'
 	end
 
-	if wl_status['main'] > 4 and PCloStyle = 4 and ShoHeels > 3 and (wl_whore['pirsA'] = 0 or (wl_whore['pirsA'] > 0 and pirsA < 10000)):
-		'<br>You are ready to work. Outfit'+iif(wl_whore['pirsA'] > 0, ', heels and tongue piercing', ' and heels')+' are an appropriate choice to work as a street whore.'
+	if wl_status['main'] > 4 and PCloStyle = 4 and ShoHeels > 3 and (wl_whore['tongue_piercing'] = 0 or (wl_whore['tongue_piercing'] > 0 and pcs_piercings['tongue'] < 10000)):
+		'<br>You are ready to work. Outfit'+iif(wl_whore['tongue_piercing'] > 0, ', heels and tongue piercing', ' and heels')+' are an appropriate choice to work as a street whore.'
 	elseif wl_status['main'] > 4:
-		iif(PCloStyle = 4, '<br>Your outfit is an appropriate choice for a prostitute.', '<br>You need to change your outfit to work as a prostitute.')+iif(pirsA < 10000, '', iif(wl_whore['pirsA'] > 0, ' You''ll have to wear your tongue piercing to be able to work.', ''))
+		iif(PCloStyle = 4, '<br>Your outfit is an appropriate choice for a prostitute.', '<br>You need to change your outfit to work as a prostitute.')+iif(pcs_piercings['tongue'] < 10000, '', iif(wl_whore['tongue_piercing'] > 0, ' You''ll have to wear your tongue piercing to be able to work.', ''))
 		iif(ShoHeels > 3, 'Your shoes are a good choice', 'You should think about your choice of shoes')+' if you want to go to work today.'
 	end
 
@@ -282,13 +282,13 @@ if $ARGS[0] = 'character':
 	if $wl_fetish['rimjob'] ! '' and $wl_fetish['rimjob'] ! 'undecided': '- Giving rimjobs: '+iif($wl_fetish['rimjob'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['rimjob'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['rimjob'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>')
 	if $wl_fetish['atm'] ! '': '- Ass to mouth: '+iif($wl_fetish['atm'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''atm''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['atm'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''atm''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['atm'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''atm''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>')
 
-	if $wl_brand['type'] ! '' or wl_whore['pirsA'] > 0:
+	if $wl_brand['type'] ! '' or wl_whore['tongue_piercing'] > 0:
 		*nl
 		'<b>Tattoos and Piercings:</b>'
 		if $wl_brand['type'] ! '': 'You have been branded as a whore with a <a href="exec: gt ''mod_wlife_phone'', ''tattoo'', ''brand''"><<$wl_brand[''type'']>> tattoo</a>.'
 		if $wl_brand['text_pubic'] ! '': 'Iosif forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''tattoo'', ''iosif''">pubic tattoo</a>.'
-		if wl_whore['pirsA'] > 0: 'The Bely''s forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''tongue_piercing''">tongue piercing</a>.'
-		if wl_whore['pirsF'] > 0: 'Irina forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''nipple_piercing''">nipple piercing</a>.'
+		if wl_whore['tongue_piercing'] > 0: 'The Bely''s forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''tongue_piercing''">tongue piercing</a>.'
+		if $wl_whore['nipple_piercing'] > 0: 'Irina forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''nipple_piercing''">nipple piercing</a>.'
 		*nl
 	end
 
@@ -442,7 +442,7 @@ end
 
 if $ARGS[0] = 'tongue_piercing':
 	*clr & cla
-	'<center><img  height = 334 src="images/pc/body/piercings/a<<wl_whore[''pirsA'']>>.jpg"></center>'
+	'<center><img  height = 334 src="<<func(''piercing_management'', ''nipples_image'', $wl_whore[''tongue_piercing''])>>"></center>'
 	'The Bely''s forced you to buy this piercing.'
 
 	act 'Continue': gt 'mod_wlife_phone', 'start'
@@ -450,7 +450,7 @@ end
 
 if $ARGS[0] = 'nipple_piercing':
 	*clr & cla
-	'<center><img  height = 480 src="images/pc/body/piercings/a<<wl_whore[''pirsF'']>>.jpg"></center>'
+	'<center><img  height = 480 src="<<func(''piercing_management'', ''nipples_image'',$wl_whore[''nipple_piercing''])>>"></center>'
 	'Irina forced you to get this piercing.'
 
 	act 'Continue': gt 'mod_wlife_phone', 'start'

locations/mod_wlife_tattoo_piercing.qsrc

@@ -407,22 +407,22 @@ if $ARGS[0] = 'tongue_piercing_1':
 		*clr & cla
 		minut += 5
 		gs 'stat'
-		'<center><table cellspacing="3"><tr><td><img  height = 480 src="images/pc/body/piercings/a2.jpg"></td><td><img  height = 334 src="images/pc/body/piercings/a4.jpg"></td></tr></table></center>'
+		'<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(pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsG + pirsN > 0, ' ', ' this is your first piercing and ')+'the one on the left is less conspicuous and slutty.'
+		'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['pirsA'] = 2
+				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['pirsA'] = 4
+			wl_whore['tongue_piercing'] = 4
 			gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_2'
 		end
 	end
@@ -434,7 +434,7 @@ if $ARGS[0] = 'tongue_piercing_2':
 	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['pirsA'] = 2, 'left', 'right')+'," you say pointing at it. "'+iif(wl_whore['pirsA'] = 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.')
+	'"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':
@@ -468,19 +468,18 @@ end
 
 if $ARGS[0] = 'tongue_piercing_3':
 	*clr & cla
-	minut += 10 * wl_whore['pirsA']
+	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(pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsG + pirsN > 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.'
+	'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['pirsA'] = 4: '"And now for the other two," he reminds you and another sharp pain rushes through your tongue and another...'
-	pirsA = wl_whore['pirsA']
-	dynamic 'pirsA<<wl_whore[''pirsA'']>>_owned = 1'
-	pierWearCount += 1
+	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['pirsA'] = 4:
+	if wl_whore['tongue_piercing'] = 4:
 		gs 'pain', rand(4,5), 'tongue', 'pierce'
 		gs 'pain', rand(4,5), 'tongue', 'pierce'
 	end
@@ -496,7 +495,6 @@ if $ARGS[0] = 'tongue_piercing_3':
 
 		act 'Get out of the car':
 			*clr & cla
-			gs 'mod_wlife_functions', 'tat_pierce_count'
 			'<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>'
@@ -898,10 +896,8 @@ if $ARGS[0] = 'third_visit':
 					act 'Get pierced':
 						*clr & cla
 						minut += 20
-						wl_whore['pirsF'] = 1
-						pirsF = wl_whore['pirsF']
-						dynamic 'pirsF<<wl_whore[''pirsF'']>>_owned = 1'
-						pierWearCount += 1
+						$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'