locations/mod_wlife_phone.qsrc

@@ -288,7 +288,7 @@ if $ARGS[0] = 'character':
 		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['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>.'
+		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="<<func(''piercing_management'', ''nipples_image'', $wl_whore[''tongue_piercing''])>>"></center>'
+	'<center><img  height = 334 src="<<func(''piercing_management'', ''tongue_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="<<func(''piercing_management'', ''nipples_image'',$wl_whore[''nipple_piercing''])>>"></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_saveupdater.qsrc

@@ -25,6 +25,8 @@ if $ARGS[0] = '':
 		gs 'mod_wlife_saveupdater', 'update_11'
 	elseif wl_save_update = 11:
 		gs 'mod_wlife_saveupdater', 'update_12'
+	elseif wl_save_update = 12:
+		gs 'mod_wlife_saveupdater', 'update_13'
 	end
 end
 
@@ -273,9 +275,19 @@ elseif $ARGS[0] = 'update_12':
 		npc_dick[$npclastsaved] = 7
 		npc_sexskill[$npclastsaved] = 0
 	end
+elseif $ARGS[0] = 'update_13':
+	wl_save_update = 13
+	if wl_whore['pirsA'] ! 0 and wl_whore['tongue_piercing'] = 0:
+		wl_whore['tongue_piercing'] = wl_whore['pirsA']
+		wl_whore['pirsA'] = 0
+	end
+	if wl_whore['pirsF'] ! 0 and wl_whore['nipple_piercing'] = 0:
+		wl_whore['nipple_piercing'] = wl_whore['pirsF']
+		wl_whore['pirsF'] = 0
+	end
 end
 
-if wl_save_update < 12: gs 'mod_wlife_saveupdater'
+if wl_save_update < 13: gs 'mod_wlife_saveupdater'
 
 gs 'mod_wlife_setup'
 $mod_name[mod_i] = $mod_info[0]
@@ -284,4 +296,4 @@ $mod_author[mod_i] = $mod_info[2]
 $mod_desc[mod_i] = $mod_info[3]
 $mod_opt[mod_i] = $mod_info[4]
 
---- mod_wlife_saveupdater ---------------------------------
+--- mod_wlife_saveupdater ---------------------------------

locations/mod_wlife_setup.qsrc

@@ -14,7 +14,7 @@ $mod_info[1] = '03806'
 $mod_info[2] = 'julzor'
 !2=mod author
 
-$mod_info[3] = 'Whore Life compatible with GL 0.9.3'
+$mod_info[3] = 'Whore Life compatible with GL 0.9.4'
 !3=mod description, input a short brief here.
 
 if $curloc = 'mod_<<$mod_info[0]>>_setup':

locations/mod_wlife_tattoo_piercing.qsrc

@@ -896,8 +896,8 @@ if $ARGS[0] = 'third_visit':
 					act 'Get pierced':
 						*clr & cla
 						minut += 20
-						$wl_whore['nipple_piercing'] = 1						
-						gs 'piercing_management', 'add', 'nipples', wl_whore['piercing_nipples']
+						wl_whore['nipple_piercing'] = 1						
+						gs 'piercing_management', 'add', 'nipples', wl_whore['nipple_piercing']
 						gs 'pain', 9, 'nipples', 'pierce'
 						gs 'pain', 9, 'nipples', 'pierce'
 						gs 'stat'