|
|
@@ -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
|
