[fixed] Use specific backups for protitute clothing change to reduce errors and trimmed the trailing spaces in the file

locations/prostitution_functions.qsrc

@@ -3,23 +3,23 @@
 !! ---- Variables -------------------------------------------------------------------------------------------------------
 !!
 !! prostitute['payment_method']: 1 - Sveta works for herself; 0 - Sveta works for someone else who will take a cut
-!! prostitute['wl_block']: 1 - WLife is loaded which blocks some of the locations: Pavlovsk will rely on the WLife mod 
+!! prostitute['wl_block']: 1 - WLife is loaded which blocks some of the locations: Pavlovsk will rely on the WLife mod
 !!							  and the Gas Station will be completely blocked
-!!						  0 - WLife is not loaded, or WLife released the lock, everything works as normal.	
+!!						  0 - WLife is not loaded, or WLife released the lock, everything works as normal.
 !! prostitute['full_block']: 1 - Some mod or some other event completely blocked the prostitution content.
 !! prostitute[<<$location>>]: 1 - Sveta can work at the location.
 !!                            0 - Sveta can''t work at the location
-!!     current locations: Pavlovsk - ''pavlovsk'', Gadukino - ''gadukino'', 
+!!     current locations: Pavlovsk - ''pavlovsk'', Gadukino - ''gadukino'',
 !!                        Road between Pavlovsk and St Petersburg - ''road'', Gas Station ''gas_station''
 !! prostitute['active']: 1- Sveta ''unlocked'' prostitution somewhere. It is use for non-location specific checks, like
 !!							being able set a default prostitute outfit at home, or finding new places to work at.
 !! prostitute['work_clothes']: 1 - Sveta is wearing a prostitute outfit, i.e. clothes and shoes
-!! prostitute['outfit_is_set']: 1 - Sveta has a default outfit set up. Needed if she wants to change in restrooms 
+!! prostitute['outfit_is_set']: 1 - Sveta has a default outfit set up. Needed if she wants to change in restrooms
 !!									or in the car on location, and not travel wearing that outfit
 !! prostitute['changed_for_work']: 1 - It means that Sveta changed into her prostitute outfit on site from some regular
 !!                                     clothes. This enables the 'Change into regular clothes' action in the changing
-!!									   location. 
-!!								   0 - Sveta didn''t change which means she can''t change into regular clothing. 
+!!									   location.
+!!								   0 - Sveta didn''t change which means she can''t change into regular clothing.
 
 !!---------- Initial set up, enabling locations, etc. -------------------------------------------------------------------
 !!-----------------------------------------------------------------------------------------------------------------------
@@ -44,9 +44,9 @@ end
 if $ARGS[0] = 'wl_block':
 	prostitute['wl_block'] = ARGS[1]
 	if prostitute['wl_block']:
-		gs 'prostitution_functions', 'set_pavlovsk_hours', 6, 23	
+		gs 'prostitution_functions', 'set_pavlovsk_hours', 6, 23
 	else
-		gs 'prostitution_functions', 'set_pavlovsk_hours', 14, 2	
+		gs 'prostitution_functions', 'set_pavlovsk_hours', 14, 2
 	end
 end
 
@@ -87,7 +87,7 @@ if $ARGS[0] = 'set_pavlovsk_prostitute':
 end
 
 if $ARGS[0] = 'set_gadukion_prostitute':
-	if gadriver_gang = 2 and (mirapimp = 0 or mirapimp = 2) and prostitute['full_block'] = 0: 
+	if gadriver_gang = 2 and (mirapimp = 0 or mirapimp = 2) and prostitute['full_block'] = 0:
 		prostitute['gadukino'] = 1
 		prostitute['active'] = 1
 		prostitute['payment_method'] = 1
@@ -127,22 +127,22 @@ if $ARGS[0] = 'prostitute_outfit_at_home':
 		if prostitute['work_clothes']:
 			gs 'prostitution_functions', 'is_default'
 			if prostitute['outfit_is_set'] = 1 and is_default = 0:
-				act 'Replace your default prostitute outfit with the current outfit': 
+				act 'Replace your default prostitute outfit with the current outfit':
 					gs 'prostitution_functions', 'set_default_outfit'
 					gt $loc, $loc_arg
 				end
 			elseif prostitute['outfit_is_set'] = 0:
-				act 'Set the current as your default prostitute outfit': 
-					gs 'prostitution_functions', 'set_default_outfit'	
+				act 'Set the current as your default prostitute outfit':
+					gs 'prostitution_functions', 'set_default_outfit'
 					gt $loc, $loc_arg
 				end
 			end
-			act 'Change into regular clothes': 
+			act 'Change into regular clothes':
 				gs 'prostitution_functions', 'change_into_regular_clothes'
 				gt $loc, $loc_arg
 			end
-		elseif prostitute['outfit_is_set']: 
-			act 'Change into prostitute outfit': 
+		elseif prostitute['outfit_is_set']:
+			act 'Change into prostitute outfit':
 				gs 'prostitution_functions', 'change_into_prostitute_outfit'
 				gt $loc, $loc_arg
 			end
@@ -169,31 +169,31 @@ if $ARGS[0] = 'clothing_chance_modifier':
 		if hour > 19 : temp_mult = 2
 
 		if PCloStyle = 3: temp_result_attr -= 15 * temp_mult
-		
-		if PCloQuality = 7: 
-			temp_result_attr -= 15 * temp_mult 		
+
+		if PCloQuality = 7:
+			temp_result_attr -= 15 * temp_mult
 		elseif PCloQuality = 6:
-			temp_result_attr -= 10 * temp_mult 		
-		elseif PCloQuality = 5: 
-			temp_result_attr -= 5 * temp_mult 		
-		elseif PCloQuality >= 3: 
-			if temp_mult > 1: temp_result_attr -= 10 
+			temp_result_attr -= 10 * temp_mult
+		elseif PCloQuality = 5:
+			temp_result_attr -= 5 * temp_mult
+		elseif PCloQuality >= 3:
+			if temp_mult > 1: temp_result_attr -= 10
 		else
 			temp_result_attr += 5
 		end
 	end
 
-	!! PCloThinness: 
-	!!	6: intentionally reveals breast/pubic areas, with translucent/transparent areas, 
-	!!	   indecent exposure/arrest event if worn in public without underwear. 
-	!!	5: see through only in bright light, or tight enough to show the body in detail if opaque.  
-	!!	4: is thin or tight enough to be flirty, fine in most places except the most conservative (church, school, etc). 
+	!! PCloThinness:
+	!!	6: intentionally reveals breast/pubic areas, with translucent/transparent areas,
+	!!	   indecent exposure/arrest event if worn in public without underwear.
+	!!	5: see through only in bright light, or tight enough to show the body in detail if opaque.
+	!!	4: is thin or tight enough to be flirty, fine in most places except the most conservative (church, school, etc).
 	!!	3-2 standard publicly worn outfit.
 	!!	1 baggy, hiding the body, makes it hard to see the body shape.
 	!! PCloTopCut:
-	!!	4: reveals over half the skin on the torso area, 
-	!!	3: has a deep neckline that reaches the cleavage between the breasts, 
-	!!	2: is a cut high enough to be considered appropriate in most places (above the cleavage, or just below where it starts), 
+	!!	4: reveals over half the skin on the torso area,
+	!!	3: has a deep neckline that reaches the cleavage between the breasts,
+	!!	2: is a cut high enough to be considered appropriate in most places (above the cleavage, or just below where it starts),
 	!!	1: is a neckline that ends very near the neck or higher.
 	!! PCloBra
 	!!	2: Your chest is not covered at all by the outfit, if you wear a bra that will be your top
@@ -203,7 +203,7 @@ if $ARGS[0] = 'clothing_chance_modifier':
 	if PCloThinness = 5: temp_result_attr += 3
 	if PCloThinness = 4: temp_result_attr += 1
 	if PCloThinness = 1: temp_result_attr -= 4
-	
+
 	!! Top outfit
 	if PCloTopCut = 7: temp_result_attr += 7
 	if PCloTopCut = 6: temp_result_attr += 6
@@ -219,11 +219,11 @@ if $ARGS[0] = 'clothing_chance_modifier':
 	!! Bottom outfit
 	!!	CloSkirtShortness
 	!! IMPORTANT: CloSkirtShortness is mapped to PCloSkirt
-	!!	6: is short enough to reveal pubic areas at all times 
-	!!	5 is ~20% thigh length or less (micro-skirt), and can reveal underwear frequently 
-	!!	4 is ~40% thigh length (miniskirt) and may show underwear if bending over 
-	!!	3 is up to ~60% thigh length (skirt) and normally never reveals underwear 
-	!!	2 is ending immediately above, at or below the knees (knee-length) 
+	!!	6: is short enough to reveal pubic areas at all times
+	!!	5 is ~20% thigh length or less (micro-skirt), and can reveal underwear frequently
+	!!	4 is ~40% thigh length (miniskirt) and may show underwear if bending over
+	!!	3 is up to ~60% thigh length (skirt) and normally never reveals underwear
+	!!	2 is ending immediately above, at or below the knees (knee-length)
 	!!	1 is ankle-length.
 	!! CloPantsShortness = 1-6 scale. Higher values are shorter.
 	!! IMPORTANT: CloPantsShortness is mapped to PCloPants
@@ -234,7 +234,7 @@ if $ARGS[0] = 'clothing_chance_modifier':
 	!!	2 is calf length
 	!!	1 is ankle length
 	!! CloPanties = 1 for yes
-	!!	1: The bottom of this outfit offers no more coverage than panties and it will 
+	!!	1: The bottom of this outfit offers no more coverage than panties and it will
 	!!		replace your panties (if worn)
 
 	if PCloSkirt = 6: temp_result_attr += 6
@@ -247,11 +247,11 @@ if $ARGS[0] = 'clothing_chance_modifier':
 	if PCloPants = 1: temp_result_attr -= 4
 
 	if PCloPanties = 1: temp_result_attr += 8
-	
+
 
 	temp_result_attr = MAX(temp_result_attr, temp_result_style)
-	
-	!! PShoHeels values: 1 flats (<5cm), 2 low heel (~5cm), 3 Mid heel (~7.5cm), 
+
+	!! PShoHeels values: 1 flats (<5cm), 2 low heel (~5cm), 3 Mid heel (~7.5cm),
 	!!		 4 High heel (~10cm), 5 ultra high heel (~15cm), 6 fetish heel (>15cm)
 	!! PShoStyle values: 1 stripping or whoring, 2: bimbo style, 3: alternative style
 	!! PShoCut values: 1: shoes 2: ankle boots, 3: calf high, 4: knee high, 5: thigh high, 6: groin high
@@ -268,9 +268,9 @@ if $ARGS[0] = 'clothing_chance_modifier':
 
 	if PShoCut = 6: temp_result_attr += 2
 	if PShoCut = 5: temp_result_attr += 1
-	
+
 	result = temp_result_attr
-	
+
 	killvar 'temp_result_attr'
 	killvar 'temp_result_style'
 end
@@ -281,14 +281,14 @@ if $ARGS[0] = 'upclose_chance':
 	temp_groom_mod = func('prostitution_functions', 'grooming_modifier')
 	temp_tat_pierc_mod = func('prostitution_functions', 'tattoo_and_piercing_modifier')
 	temp_clothes_base = func('prostitution_functions', 'clothing_chance_modifier', 'upclose')
-	
+
 
 	result = (temp_base_app_mod + temp_makeup_mod + temp_groom_mod + temp_tat_pierc_mod + temp_clothes_base)
 
 	killvar 'temp_base_app_mod'
 	killvar 'temp_makeup_mod'
 	killvar 'temp_groom_mod'
-	killvar 'temp_tat_pierc_mod'	
+	killvar 'temp_tat_pierc_mod'
 	killvar 'temp_clothes_base'
 end
 
@@ -309,7 +309,7 @@ if $ARGS[0] = 'makeup_modifier':
 	if pcs_makeup = 1: result -= 5
 	if pcs_makeup = 0: result -= 10
 	temp_display = result
-	
+
 	killvar 'temp_display'
 end
 
@@ -318,8 +318,8 @@ if $ARGS[0] = 'base_appearance_modifier':
 
 	!! The following can lower the penalty from high appearance
 	!! A stunningly pretty girl being a street hooker is hard to believe
-	!! but a stunningly pretty but somewhat ran down girl is easier to 
-	!! accept. 
+	!! but a stunningly pretty but somewhat ran down girl is easier to
+	!! accept.
 	temp_hair -= (1 - pcs_hairbsh) * 10
 
 	if pcs_haircol ! nathcol:
@@ -329,31 +329,31 @@ if $ARGS[0] = 'base_appearance_modifier':
 
 	if pcs_makeup = 0: temp_makeup_corr = 20
 
-	if pcs_apprncbase <= 20: 
+	if pcs_apprncbase <= 20:
 		result -= 100
-	elseif pcs_apprncbase <= 40: 
+	elseif pcs_apprncbase <= 40:
 		result -= 20
-	elseif pcs_apprncbase <= 60: 
+	elseif pcs_apprncbase <= 60:
 		result -= 10
-	elseif pcs_apprncbase <= 80: 
+	elseif pcs_apprncbase <= 80:
 		result += 10
-	elseif pcs_apprncbase <= 100: 
+	elseif pcs_apprncbase <= 100:
 		result += 30
-	elseif pcs_apprncbase <= 120: 
+	elseif pcs_apprncbase <= 120:
 		result += 30
-	elseif pcs_apprncbase <= 140: 
+	elseif pcs_apprncbase <= 140:
 		result += 10
-	!! Over a certain beauty people will be less likely to think that Sveta is a prostitute working 
+	!! Over a certain beauty people will be less likely to think that Sveta is a prostitute working
 	!! the highway unless she is acting like one, or looks really neglected.
-	elseif pcs_apprncbase <= 160: 
-		result -= 30 + temp_dyefade + pcs_leghair + temp_hair 
+	elseif pcs_apprncbase <= 160:
+		result -= 30 + temp_dyefade + pcs_leghair + temp_hair
 	elseif pcs_apprncbase <= 179:
-		result -= 40 + temp_dyefade + pcs_leghair + temp_hair  
+		result -= 40 + temp_dyefade + pcs_leghair + temp_hair
 	else
 		result -= 50 + temp_dyefade + pcs_leghair + temp_hair + temp_makeup_corr
 	end
 
-	!! Being high or looking like someone fighting withdrawal, downbeat or exhausted, dirty, etc. 
+	!! Being high or looking like someone fighting withdrawal, downbeat or exhausted, dirty, etc.
 	!! will lessen the high appearance penalty. Will add those later when I figure out a sensible way.
 
 	killvar 'temp_display'
@@ -373,7 +373,7 @@ if $ARGS[0] = 'grooming_modifier':
 		result -= (pcs_sweat - 10) / 2 & !! 54-10 / 2 = 22
 	else
 		result -= 3 * (pcs_sweat - 10) / 4 & !! 3 * 100-10 / 4 = 67
-	end	
+	end
 
 	temp_display = result
 	killvar 'temp_display'
@@ -398,13 +398,13 @@ if $ARGS[0] = 'tattoo_and_piercing_modifier':
 	if (PCloThinness >= 5 or PCloTopCut >= 3 or PCloBra = 1 or PCloStyle = 4 or PCloStyle2 = 3) and tatlech > 0: temp_tattoo_mod += 3
 	if (PCloThinness >= 3 or PCloTopCut >= 2 or PCloBra = 1 or PCloStyle = 4 or PCloStyle2 = 3) and tatneck > 0: temp_tattoo_mod += 5
 	if tatfce > 0: temp_tattoo_mod += 3
-	
+
 	result = temp_tattoo_mod
-	
+
 	killvar 'temp_tattoo_mod'
 end
 
-!!---- Outfit checks ---------------------------------------------------------------------------------  
+!!---- Outfit checks ---------------------------------------------------------------------------------
 if $ARGS[0] = 'work_clothes':
 	prostitute['work_clothes'] = (PCloStyle = 4 and (PShoStyle = 1 or PShoStyle = 2 or PShoHeels >= 3))
 end
@@ -417,7 +417,7 @@ end
 
 !!---- Setting, clearing and changing outfits ------------------------------------------------------------------
 if $ARGS[0] = 'set_default_outfit':
-	!!-- Clothing	
+	!!-- Clothing
 	$prostitute['clothingworntype'] = $clothingworntype
 	prostitute['clothingwornnumber'] = clothingwornnumber
 
@@ -435,7 +435,7 @@ if $ARGS[0] = 'set_default_outfit':
 end
 
 if $ARGS[0] = 'clearing_default_outfit':
-	!!-- Clothing	
+	!!-- Clothing
 	$prostitute['clothingworntype'] = ''
 	prostitute['clothingwornnumber'] = 0
 
@@ -448,15 +448,27 @@ if $ARGS[0] = 'clearing_default_outfit':
 	!!-- Shoes
 	$prostitute['shoeworntype'] = ''
 	prostitute['shoewornnumber'] = 0
-	
+
 	prostitute['outfit_is_set'] = 0
 end
 
 
-if $ARGS[0] = 'change_into_prostitute_outfit':	
+if $ARGS[0] = 'change_into_prostitute_outfit':
+	!!-- Backup
+	$lastwornclothingtype['prostitute'] = $clothingworntype
+	lastwornclothingnumber['prostitute'] = clothingwornnumber
+	$lastwornpantytype['prostitute'] = $pantyworntype
+	lastwornpantynumber['prostitute'] = pantywornnumber
+	$lastwornbratype['prostitute'] = $braworntype
+	lastwornbranumber['prostitute'] = brawornnumber
+	$lastwornshoetype['prostitute'] = $shoeworntype
+	lastwornshoenumber['prostitute'] = shoewornnumber
+	!!-- Clothing
 	gs 'clothing', 'wear', $prostitute['clothingworntype'], prostitute['clothingwornnumber']
+	!!-- Underwear
 	gs 'panties', 'wear', $prostitute['pantyworntype'], prostitute['pantywornnumber']
 	gs 'bras', 'wear', $prostitute['braworntype'], prostitute['brawornnumber']
+	!!-- Shoes
 	gs 'shoes', 'strip'
 	gs 'shoes', 'wear', $prostitute['shoeworntype'], prostitute['shoewornnumber']
 
@@ -468,12 +480,11 @@ if $ARGS[0] = 'change_into_prostitute_outfit':
 end
 
 if $ARGS[0] = 'change_into_regular_clothes':
-	!!-- Clothing	
-	gs 'clothing', 'wear_last_worn'
+	!!-- Clothing
+	gs 'clothing', 'wear', $lastwornclothingtype['prostitute'], lastwornclothingnumber['prostitute']
 	!!-- Underwear
-	gs 'panties', 'wear_last_worn'
-	gs 'bras', 'wear_last_worn'
-
+	gs 'panties', 'wear', $lastwornpantytype['prostitute'], lastwornpantynumber['prostitute']
+	gs 'bras', 'wear', $lastwornbratype['prostitute'], lastwornbranumber['prostitute']
 	!!-- Shoes
 	gs 'shoes', 'wear', 'last_worn'
 	gs 'prostitution_functions', 'work_clothes'
@@ -494,7 +505,7 @@ if $ARGS[0] = 'change_to_work':
 	if $ARGS[1] = 'restroom':
 		!! TODO: Video / image and some text describing the cloth change in the men''s restroom
 		!! Is there a way to know if it''s a men''s or women''s restroom?
-		''+iif($loc_desc = $loc_desc,  'You slip into a stall and quickly change into your working outfit, trying t avoid your clothes touching the floor or, really, anything before you place them safely in your bag.', $loc_desc)
+		''+iif($loc_desc = $loc_desc,  'You slip into a stall and quickly change into your working outfit, trying to avoid your clothes touching the floor or, really, anything before you place them safely in your bag.', $loc_desc)
 	end
 
 	gs 'prostitution_functions', 'change_into_prostitute_outfit', 'work'
@@ -532,10 +543,10 @@ end
 if $ARGS[0] = 'check_solicitation_event':
 	gs 'prostitution_functions', 'work_clothes'
 	if prostitute['wl_block'] = 0 and prostitute['full_block'] = 0 and func('prostitution_functions', 'prostitute_work_hours') and func('prostitution_functions','is_solicitation_location'):
-		if prostitute['pavlovsk'] = 1 and prostitute['pav_time_hour'] ! hour and rand(-20, 70) < minut: 
+		if prostitute['pavlovsk'] = 1 and prostitute['pav_time_hour'] ! hour and rand(-20, 70) < minut:
 			gs 'prostitution_pavlovsk', 'chance'
 		end
-		
+
 		if prostitute['pavlovsk'] = 1 and prostitute['work_clothes'] :
 			pl '<center><a href="exec: gt ''prostitution_pavlovsk'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="images/system/icons/icon_prostitute.png"></a></center>'
 		end
@@ -849,7 +860,7 @@ if $ARGS[0] = 'client_effort':
 end
 
 if $ARGS[0] = 'daily_effects':
-	if prostitute['age_mod'] >= 100: 
+	if prostitute['age_mod'] >= 100:
 		temp_age_mod_remain = prostitute['age_mod'] MOD 100
 		vidageday -= ((prostitute['age_mod'] - temp_age_mod_remain) / 100)
 		prostitute['age_mod'] = temp_age_mod_remain
@@ -870,8 +881,8 @@ end
 		prostitute['vidage_mod'] = 0
 	end
 
-!!---------- Scenes ----------------------------------------------------------------------------------------------	
-!!----------------------------------------------------------------------------------------------------------------	
+!!---------- Scenes ----------------------------------------------------------------------------------------------
+!!----------------------------------------------------------------------------------------------------------------
 
 	pro_scene_rand = rand(1,100)
 
@@ -895,7 +906,7 @@ end
 		$prostitute['client_scene'] = 'Blowjob'
 	end
 
-	!!---- Regular Worker ----------------------------------------------------------------------------------------	
+	!!---- Regular Worker ----------------------------------------------------------------------------------------
 
 	if prostitute['customer_total'] < 10:
 		prostitute['regular_chance'] = 0
@@ -909,12 +920,12 @@ end
 		prostitute['regular_chance'] = 4
 	end
 
-	!!---- Chance to find a client --------------------------------------------------------------------------------	
+	!!---- Chance to find a client --------------------------------------------------------------------------------
 
 	prostitute['client_chance'] = hotcat * 10 + prostitute['regular_chance'] * 5 + rand(1,100) + prostitute['pity_counter']
 	if $pantyworntype = 'eroto' and CloSkirtShortness > 4: prostitute['client_chance'] += 10
 
-	!!---- Client ------------------------------------------------------------------------------------------------	
+	!!---- Client ------------------------------------------------------------------------------------------------
 
 	if prostitute['regular_timer'] ! daystart and $prostitute['client_scene'] ! 'Blowjob':
 		if (prostitute['regular_chance'] = 1 and rand(1,100) > 95) or (prostitute['regular_chance'] = 2 and rand(1,100) > 90) or (prostitute['regular_chance'] = 3 and rand(1,100) > 80) or (prostitute['regular_chance'] = 4 and rand(1,100) > 60):
@@ -948,10 +959,10 @@ end
 	end
 end
 
-!!---------- Payment ---------------------------------------------------------------------------------------------	
+!!---------- Payment ---------------------------------------------------------------------------------------------
 
 if $ARGS[0] = 'payment':
-	!!---- Basic Payment -----------------------------------------------------------------------------------------	
+	!!---- Basic Payment -----------------------------------------------------------------------------------------
 
 	if $ARGS[1] = 'pav':
 		if $prostitute['pav_scene'] = 'blowjob':
@@ -977,8 +988,8 @@ if $ARGS[0] = 'payment':
 		end
 	end
 
-	!!---- Bonus -------------------------------------------------------------------------------------------------	
-	
+	!!---- Bonus -------------------------------------------------------------------------------------------------
+
 	prostitute['payment_mod'] = hotcat * 10
 	if pcs_makeup = 0:
 		prostitute['payment_mod'] -= 20
@@ -1044,7 +1055,7 @@ if $ARGS[0] = 'payment':
 	prostitute['payment_backup'] = func('prostitution_functions', 'exact_round', prostitute['payment_backup'], 10)
 end
 
-!!---------- Abortion --------------------------------------------------------------------------------------------	
+!!---------- Abortion --------------------------------------------------------------------------------------------
 
 if $ARGS[0] = 'abortion':
 	abort += 1
@@ -1068,7 +1079,7 @@ if $ARGS[0] = 'abortion':
 	if broodcurse > 0: over = 13 & gt'gameover'
 end
 
-!!---------- Random Name -----------------------------------------------------------------------------------------	
+!!---------- Random Name -----------------------------------------------------------------------------------------
 
 if $ARGS[0] = 'random_name':
 
@@ -1145,7 +1156,7 @@ if $ARGS[0] = 'random_name':
 	killvar '$pro_temp'
 end
 
-!!---------- Payment ---------------------------------------------------------------------------------------------	
+!!---------- Payment ---------------------------------------------------------------------------------------------
 
 if $ARGS[0] = 'tat_pierce_count':
 	tattCount = 0
@@ -1181,7 +1192,7 @@ if $ARGS[0] = 'tat_pierce_count':
 	if pirsN > 0 and pirsN ! 10000:	pierWearCount += 1
 end
 
-!!---------- Random Name -----------------------------------------------------------------------------------------	
+!!---------- Random Name -----------------------------------------------------------------------------------------
 
 if $ARGS[0] = 'pav_client':
 	!!Reset
@@ -1213,8 +1224,8 @@ if $ARGS[0] = 'pav_client':
 !!ToDo: Add cheat for this chance
 	$prostitute['client_behavior'] = iif(rand(1,100) < prostitute['client_behavior_chance'] or prostitute['pav_regular'] = -1, 'nice', 'abusive')
 
-	!!---- Scene --------------------------------------------------------------------------------------------------	
-	
+	!!---- Scene --------------------------------------------------------------------------------------------------
+
 	if pro_rand > 7:
 		$prostitute['pav_scene'] = 'anal'
 	elseif mesec = 0 and rand(0,100) < 50:
@@ -1243,25 +1254,25 @@ if $ARGS[0] = 'pav_client':
 		prostitute['pav_condom_refusal'] = 0
 	end
 
-	!!---- Generator ----------------------------------------------------------------------------------------------	
-	
+	!!---- Generator ----------------------------------------------------------------------------------------------
+
 	gs 'npcgeneratec', 0, 'pavlovsk client', rand(18,45)
 	gs 'boyStat', $npclastgenerated
 end
 
-!!---- Checking visible STD and cum -------------------------------------------------------------------------------	
+!!---- Checking visible STD and cum -------------------------------------------------------------------------------
 
 if $ARGS[0] = 'std_cum_check':
-	!!---- Visible STD --------------------------------------------------------------------------------------------	
-	
+	!!---- Visible STD --------------------------------------------------------------------------------------------
+
 	if pcs_apprnc = -10 and rand(1,10) < 8:
 		prostitute['std_mod'] = 1
 	else
 		prostitute['std_mod'] = 0
 	end
 
-	!!---- Non-Visible Cum ----------------------------------------------------------------------------------------	
-	
+	!!---- Non-Visible Cum ----------------------------------------------------------------------------------------
+
 	if cumloc[0] = 1:
 		prostitute['cum_vaginal_mod'] = 1
 	else
@@ -1274,8 +1285,8 @@ if $ARGS[0] = 'std_cum_check':
 		prostitute['cum_anal_mod'] = 0
 	end
 
-	!!---- Visible Cum (Dressed) ----------------------------------------------------------------------------------	
-	
+	!!---- Visible Cum (Dressed) ----------------------------------------------------------------------------------
+
 	if cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[15] = 1:
 		prostitute['cum_dressed'] = 1
 	else
@@ -1290,8 +1301,8 @@ if $ARGS[0] = 'std_cum_check':
 	end
 end
 
-	
-!!---------- Exact Rounding --------------------------------------------------------------------------------------	
+
+!!---------- Exact Rounding --------------------------------------------------------------------------------------
 if $ARGS[0] = 'exact_round':
 	!! ARGS[1] = value you want divided
 	!! ARGS[2] = divider