[Fixes] Ownership of piercings when forced to get them by lover

locations/lover_change.qsrc

@@ -209,6 +209,7 @@ if $ARGS[0] = 'Pier':
 								'The artist takes a look at your unpierced ears, and with a quick sharp pain, pierces them.'
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/c1.jpg"></center>'
 								pirsC = 1
+								pirsC1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'ears', 'pierce'
@@ -218,6 +219,7 @@ if $ARGS[0] = 'Pier':
 								'He asks you to stick out your tongue. You comply and then start to regret it as he pierces your tongue.'
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/a1.jpg"></center>'
 								pirsA = 1
+								pirsA1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'tongue', 'pierce'
@@ -227,6 +229,7 @@ if $ARGS[0] = 'Pier':
 								'The artist gently holds your lip as he drives the needle through to pierce it.'
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/b1.jpg"></center>'
 								pirsB = 1
+								pirsB1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'lips', 'pierce'
@@ -236,6 +239,7 @@ if $ARGS[0] = 'Pier':
 								'You feel a sharp pain in your nose as he pierces your nose.'
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/d1.jpg"></center>'
 								pirsD = 1
+								pirsD1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'nose', 'pierce'
@@ -245,6 +249,7 @@ if $ARGS[0] = 'Pier':
 								'The artist moves to above your eyes and quickly pierces your eyebrow.'
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/e1.jpg"></center>'
 								pirsE = 1
+								pirsE1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'eyebrows', 'pierce'
@@ -255,6 +260,7 @@ if $ARGS[0] = 'Pier':
 								'<center><img <<$set_imgh>> src="images/pc/body/piercings/n1.jpg"></center>'
 								pcs_horny += 2
 								pirsN = 1
+								pirsN1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'tummy', 'pierce'
@@ -265,6 +271,7 @@ if $ARGS[0] = 'Pier':
 								!!'<center><img <<$set_imgh>> src="images/pc/body/piercings/f1.jpg"></center>'
 								pcs_horny += 5
 								pirsF = 1
+								pirsF1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'nipples', 'pierce'
@@ -276,6 +283,7 @@ if $ARGS[0] = 'Pier':
 								!!'<center><img <<$set_imgh>> src="images/pc/body/piercings/g1.jpg"></center>'
 								pcs_horny += 7
 								pirsG = 1
+								pirsG1_owned = 1
 								pierCount += 1
 								pierWearCount += 1
 								gs 'pain', 7, 'pubic', 'pierce'