[fixed] minor bugs in the newly implemented functions

locations/piercing_management.qsrc

@@ -133,6 +133,7 @@ if $ARGS[0] = 'buy':
 	end
 
 	gs 'piercing_management', 'add', $ARGS[2], ARGS[3]
+	gs 'piercing_management', 'count'
 	gs 'stat'
 
 	act 'Return': gt $loc, $loc_arg

locations/tattoo_management.qsrc

@@ -96,11 +96,13 @@ if $ARGS[0] = 'buy':
 		money -= price 
 	else 
 		karta -= price
+	end
 
 	gs 'tattoo_management', 'add', $ARGS[2], ARGS[3]
+	gs 'tattoo_management', 'count'
 	gs 'stat'
 
-	act 'Return': gt $loc, $loc_arg
+	gt $loc, $loc_arg
 end
 
 ! [1] - action_type