# stat_display
if $location_type = 'public_outdoors' or $location_type = 'secluded' or $location_type = 'event_outdoors':
gs 'outdoors', 'main'
else
gs 'indoors'
end
!!Sex stat update
stat['mast'] += mastr & mastr = 0
stat['hj'] += hj & hj = 0
stat['bj'] += bj & bj = 0
stat['vaginal'] += sex & sex = 0
stat['anal'] += anal & anal = 0
stat['cuni'] += kuni & kuni = 0
stat['anal_strap_give'] += pegging & pegging = 0
!!!!!!!!!!!!!!!!!!!!!
!!!Pain calculation!!!
!!!!!!!!!!!!!!!!!!!!!
pain['body1'] = pain['head'] + pain['hair'] + pain['ears'] + pain['eyebrows'] + pain['eyes'] + pain['cheeks'] + pain['nose'] + pain['mouth'] + pain['lips'] + pain['tongue']
pain['body2'] = pain['throat'] + pain['neck'] + pain['back'] + pain['asscheeks'] + pain['asshole'] + pain['hips'] + pain['thighs'] + pain['legL'] + pain['legR'] + pain['feet']
pain['body3'] = pain['toes'] + pain['shoulders'] + pain['armL'] + pain['armR'] + pain['hands'] + pain['fingers'] + pain['chest'] + pain['breasts'] + pain['nipples'] + pain['ribs']
pain['body4'] = pain['tummy'] + pain['pubic'] + pain['vaginal'] + pain['labia'] + pain['clitoris'] + pain['urethra'] + pain['cervix']
pain['total'] = pain['body1'] + pain['body2'] + pain['body3'] + pain['body4'] + (vgape * 8) + (agape * 10) + (spanked * 24)
if pain['total'] > 100: pain['total'] = 100
pain['relief'] = 0
if alko > 6:
pain['relief'] = 50
elseif alko > 3:
pain['relief'] = 20
end
if StrongNarkota > 0:
pain['relief'] = 90
elseif nark > 0:
pain['relief'] = 60
elseif pain['killer'] > 12:
pain['relief'] = 50
end
if pain['relief'] ! 0:
if (pain['total'] / pain['relief']) > 0:
pain['total'] = pain['total'] / pain['relief']
elseif pain['total'] > 0:
pain['total'] = 0
end
end
if pain['total'] > 80:
if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
elseif pain['total'] > 60:
if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
elseif pain['total'] > 40:
if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
elseif pain['total'] > 20:
if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
elseif pain['total'] > 0:
if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
end
!!!!!!!!!!!!!!!!!!!!!
!!!Beginning Description!!!
!!!!!!!!!!!!!!!!!!!!!
if pcs_sleep > 100: pcs_sleep = 100
if Enable_statfsize>0:$stat_msg = '>><<$stat_msg>>'
if hour < 10:
if minut > 9 :
$stat_android = ' 0<>:<>'
else
$stat_android = ' 0<>:0<>'
end
else
if minut > 9 :
$stat_android = ' <>:<>'
else
$stat_android = ' <>:0<>'
end
end
$stat_msg += '
<<$stat_android>> <<$week[week]>> <> <<$month>> <>'
$stat_android += '<<$week[week]>> <>/<>, <> ₽, Status'
! $stat_android for short desc in android mode, $stat_msg for status bar.
$stat_msg += '
'
$pockets = 'pockets'
if bag > 0: $pockets = 'purse'
$stat_msg += '
You have <> ₽ in your <<$pockets>>.'
if karta > 0: $stat_msg += '
You have <> ₽ in your bank account.'
if stolmoney > 0: $stat_msg += '
You have <> ₽ in your desk drawer.'
$stat_msg += '
'
if ETOmenu = 1:
$stat_msg += '
<<$pcs_health>>'
$stat_msg += '
<<$pcs_willpwr>>'
$stat_msg += '
<<$pcs_energy>>'
$stat_msg += '
<<$water>>'
$stat_msg += '
<<$pcs_sleep>>'
else
gs 'indik', '2', pcs_horny, pcs_horny
$stat_msg += '
<<$ind>> Arousal'
gs 'indik', '2', pain['total'], pain['total']
$stat_msg += '
<<$ind>> Pain'
gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
$stat_msg += '
<<$ind>> Health'
if MagikDostup = 0:
gs 'indik', '1', pcs_manna * 100 / mannamax, pcs_manna
$stat_msg += '
<<$ind>> Manna'
end
gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
$stat_msg += '
<<$ind>> Willpower'
gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
$stat_msg += '
<<$ind>> Stamina'
gs 'indik', '1', pcs_mood, pcs_mood
$stat_msg += '
<<$ind>> Mood'
gs 'indik', '1', pcs_energy, pcs_energy
$stat_msg += '
<<$ind>> Hunger'
gs 'indik', '1', pcs_sleep, pcs_sleep
$stat_msg += '
<<$ind>> Sleep'
end
$stat_msg += '
'
if Enable_showattr = 0:
$stat_msg += '
Attributes'
end
if Enable_showattr = 1:
$stat_msg += '
Attributes:'
gs 'indik', '1', pcs_stren, pcs_stren
$stat_msg += '
<<$ind>> Strength'
gs 'indik', '1', pcs_agil, pcs_agil
$stat_msg += '
<<$ind>> Agility'
gs 'indik', '1', pcs_vital, pcs_vital
$stat_msg += '
<<$ind>> Endurance'
gs 'indik', '1', pcs_intel, pcs_intel
$stat_msg += '
<<$ind>> Intelligence'
gs 'indik', '1', pcs_sprt, pcs_sprt
$stat_msg += '
<<$ind>> Spirit'
gs 'indik', '1', pcs_react, pcs_react
$stat_msg += '
<<$ind>> Mental Agility'
gs 'indik', '1', pcs_chrsm, pcs_chrsm
$stat_msg += '
<<$ind>> Charisma'
gs 'indik', '1', pcs_prcptn, pcs_prcptn
$stat_msg += '
<<$ind>> Perception'
if MagikDostup = 0:
gs 'indik', '1', pcs_magik, pcs_magik
$stat_msg += '
<<$ind>> Magic'
end
gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
$stat_msg += '
<<$ind>> Attractiveness'
if SUB > 0:
gs 'indik','1', SUB, SUB
$stat_msg += '
<<$ind>> Subordination'
end
if pcs_dom > 0:
gs 'indik', '1', pcs_dom, pcs_dom
$stat_msg += '
<<$ind>> Dominance'
end
if SchoolAtestat = 0 and StoryLine > 0:
gs 'indik', '1', pcs_grades, pcs_grades
$stat_msg += '
<<$ind>> School Grades'
end
if pcs_exhibition > 0:
gs 'indik', '1', pcs_exhibition, pcs_exhibition
$stat_msg += '
<<$ind>> exhibitionism'
end
end
!!----------------Mental skills--------------------------
if Enable_show_mental_skill = 0:
$stat_msg += '
Mental Skills'
end
if Enable_show_mental_skill = 1:
st_count=0
$show_table=''
if pcs_splcstng > 0: gs 'show_table', '<> Spell Casting', '2'
if pcs_humint > 0: gs 'show_table', '<> People skills', '2'
if pcs_persuas > 0: gs 'show_table', '<> Persuasion', '2'
if pcs_observ > 0: gs 'show_table', '<> Observation', '2'
if st_count > 0 :$stat_msg += '
Mental Skills: '
end
!!-----------------Sport skills--------------------------
if Enable_show_sport_skill = 0:
$stat_msg += '
Sport Skills'
end
if Enable_show_sport_skill = 1:
st_count=0
$show_table=''
if pcs_jab > 0: gs 'show_table', '<> Jabs', '2'
if pcs_punch > 0: gs 'show_table', '<> Power Strikes', '2'
if pcs_kick > 0: gs 'show_table', '<> Kicks', '2'
if pcs_def > 0: gs 'show_table', '<> Defence', '2'
if pcs_run > 0: gs 'show_table', '<> Running', '2'
if pcs_vball > 0: gs 'show_table', '<> Volleyball', '2'
if pcs_ftbll > 0: gs 'show_table', '<> Football', '2'
if pcs_wrstlng > 0: gs 'show_table', '<> Wrestling', '2'
if pcs_shoot > 0: gs 'show_table', '<> Marksmanship', '2'
if pcs_chess > 0: gs 'show_table', '<> Chess', '2'
if pcs_icesktng > 0: gs 'show_table', '<> Ice Skating', '2'
if pcs_ttgmng > 0: gs 'show_table', '<> Gaming', '2'
if st_count > 0 :$stat_msg += '
Sport Skills: '
end
!!-----------------Beauty/Modelling skills---------------
if Enable_show_beauty_skill = 0:
$stat_msg += '
Beauty/Modelling Skills'
end
if Enable_show_beauty_skill = 1:
st_count=0
$show_table=''
if pcs_makupskl > 0: gs 'show_table', '<> Makeup Skill', '2'
if pcs_danc > 0: gs 'show_table', '<> Modern Dancing', '2'
if pcs_dancero > 0: gs 'show_table', '<> Erotic Dancing', '2'
if pcs_dancpol > 0: gs 'show_table', '<> Pole Dancing', '2'
if pcs_mdlng > 0: gs 'show_table', '<> Modelling', '2'
if st_count > 0 :$stat_msg += '
Beauty/Modelling Skills: '
end
!!---------------------Artistic skills-------------------
if Enable_show_art_skill = 0:
$stat_msg += '
Artistic Skills'
end
if Enable_show_art_skill = 1:
st_count=0
$show_table=''
if pcs_vokal > 0: gs 'show_table', '<> Singing', '2'
if pcs_instrmusic > 0: gs 'show_table', '<> Instrumental Music', '2'
if pcs_photoskl > 0: gs 'show_table', '<> Photography', '2'
if pcs_artskls > 0: gs 'show_table', '<> Artistic Skills', '2'
if st_count > 0 :$stat_msg += '
Artistic Skills: '
end
!!----------------------Job skills------------------------
if Enable_show_job_skill = 0:
$stat_msg += '
Job Skills'
end
if Enable_show_job_skill = 1:
st_count=0
$show_table=''
if pcs_compskl > 0: gs 'show_table', '<> Computer Skill', '2'
if pcs_comphckng > 0: gs 'show_table', '<> Hacking', '2'
if pcs_hndiwrk > 0: gs 'show_table', '<> Handy-work', '2'
if pcs_sewng > 0: gs 'show_table', '<> Tailoring', '2'
if pcs_servng > 0: gs 'show_table', '<> Serving', '2'
if pcs_medcn > 0: gs 'show_table', '<> Medicine', '2'
if workPTU > 1: gs 'show_table','<> Teacher credibility','2'
if st_count > 0 :$stat_msg += '
Job Skills: '
end
if Enable_showrelation = 0:
$stat_msg += '
Relations'
end
if Enable_showrelation = 1:
st_count=0
$show_table=''
if nastjaqw > 0:gs'show_table','<> Nastja','2'
if tanya > 0:gs'show_table','<> Tanya','2'
if kat > 0:gs'show_table','<> Kate','2'
if vika > 0:gs'show_table','<> Vika','2'
if Irina > 0:gs'show_table','<> Irina','2'
if Tamara > 0:gs'show_table','<> Tamara','2'
if alla > 0:gs'show_table','<> Alla','2'
if masha > 0:gs'show_table','<> Masha','2'
if Givi > 0:gs'show_table','<> Givi Karapetovich','2'
if Ashot > 0:gs'show_table','<> Ashot','2'
if Dmitry > 0:gs'show_table','<> Dima','2'
if afra > 0:gs'show_table','<> Blacks','2'
if trenerepa > 0:gs'show_table','<> Mikhail Nikolaevich','2'
if JenyaLC > 0:gs'show_table','Eugene: <>','2'
if serge_shulgin > 0:gs'show_table','Sergei Shulgin: <>','2'
if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <>','2'
if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <>','2'
if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <>','2'
if hantersIgorQw > 0:gs'show_table','Hunter Igor: <>','2'
if StoryLine > 0:
if npc_rel['A29'] > 0:gs'show_table','<> mother','2'
if npc_rel['A28'] > 0:gs'show_table','<> father','2'
if npc_rel['A33'] > 0:gs'show_table','<> Sister','2'
if npc_rel['A34'] > 0:gs'show_table','<> Brother','2'
end
if st_count > 0 :$stat_msg += '
Relations:
'
end
$stat_msg += '
'
if BuyHous = 2 and ArendHouseSL <= 0:'The rent on your apartment expires today.'
if BuyHous = 2 and ArendHouseSL <= 0:
'The rent on your apartment expires today.'
if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
*P ' Renew with '
if money >= 6000:
*P ' cash'
elseif stolmoney >= 6000:
*P ' cash from drawer'
elseif money + stolmoney >= 6000:
!both < 6000, so money = money - 6000 + stolmoney
*P ' cash from purse and drawer'
end
!from purse, drawer or both
if karta >= 6000: *P ' bank account'
else
*P ' But you can''t afford to renew the lease.'
end
end
if weatherDay = daystart: $stat_msg += '
<<$weather>>' & $stat_msg += '
'
if opPRE = 0: $stat_msg += '
<<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & $stat_msg += '
'
if daystart - lastmens > 21 and thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
if daystart - lastmens < 28:
$stat_msg += '
Your period is late by <> days.'
elseif daystart - lastmens < 35:
$stat_msg += '
Your period is late by more than a week!'
elseif daystart - lastmens < 45:
$stat_msg += '
You apparently missed your period this month. Maybe you should see a doctor?'
elseif daystart - lastmens < 69:
$stat_msg += '
You didn''t have a period for two months. You really should see a doctor about it.'
else
$stat_msg += '
You should consider the possibility of a pregnancy, since apparently you no longer have periods.'
end
end
if implant_day > 0:
if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
$stat_msg += '
You feel a slight twinge in your abdomen.'
end
end
if mesec > 0:
$stat_msg += '
You are currently having your period. '
if isprok = 0 and isprokp = 0:
$stat_msg += 'You need to use your feminine hygiene products.'
elseif isprokp = 1 and tanga = 0:
isprokp = 0
$stat_msg += 'You need to wear panties to use a sanitary pad.'
end
$stat_msg += ''
end
$stat_msg += '
<<$cycreport_txt>>
'
if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': $stat_msg += '
<<$holyday>>' & $stat_msg += '
'
if birthday = day and birthmonth = month: $stat_msg += '
Today is your birthday.' & $stat_msg += '
'
!!if shame > 0:$stat_msg += '
<<$shame>>' & $stat_msg += '
'
if $pcs_mood ! '':$stat_msg += '
<<$pcs_mood>>' & $stat_msg += '
'
if mentats_dose >= 1:$stat_msg += '
You feel sharp and focused.'
if bcream_used = 1:$stat_msg += '
Your breasts are feeling hot and tingly.'
if aphrodisiac_timer > 0:$stat_msg += '
You are feeling hot and every move causes your groin to tingle.'
if pcs_energy < 5:
$stat_msg += '
You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.'
elseif pcs_energy < 10:
$stat_msg += '
You are starving, you really need to have something to eat.'
elseif pcs_energy < 20:
$stat_msg += '
You are very hungry and struggle to concentrate on anything other than food.'
elseif pcs_energy < 30:
$stat_msg += '
You feel peckish and your thoughts sometimes drift towards food.'
end
if pcs_sleep < 5:
$stat_msg += '
You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.'
elseif pcs_sleep < 10:
$stat_msg += '
You are exhausted, you really need to go to bed soon.'
elseif pcs_sleep < 20:
$stat_msg += '
You are tired and you are struggling to concentrate.'
elseif pcs_sleep < 30:
$stat_msg += '
You feel a little tired.'
end
if tanga = 1 and clit_size >= 25:$stat_msg += '
Your panties keep rubbing against your clit and making you horny.'
if pcs_horny >= 50:
if pcs_horny < 90 and tanga = 1:
$stat_msg += '
You are a little nervous, feeling nice between your legs itchy from arousal.'
elseif pcs_horny < 90 and tanga = 0:
$stat_msg += '
You are a little nervous, feeling nice between your legs itchy from arousal.'
elseif tanga = 1:
$stat_msg += '
You can''t stop thinking about sex, between your legs you are soaked from your juices.'
else
$stat_msg += '
You can''t stop thinking about sex, between your legs you are soaked from your juices.'
end
end
$smoker = {
siga -= 1
smoker += 1
smokeHour = hour
smokeDay = daystart
smokeminut = minut + 5
smokerNeed = 0
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
pcs_mood += 100
wipo += 100
if pcs_energy < 80: pcs_energy += 4
gs '$menu_obnovit'
}
if PillToggle = 1 and tabletki > 0:
Stabletki += tabletki
tabletki = 0
elseif PillToggle = 0 and Stabletki > 0:
tabletki += Stabletki
Stabletki = 0
end
if CondomToggle = 1 and prezik > 0:
Sprezik += prezik
prezik = 0
elseif CondomToggle = 0 and Sprezik > 0:
prezik += Sprezik
Sprezik = 0
end
if smoker >= 20:
if smokerNeed > 0:
if siga > 0:
$stat_msg += '
You want to smoke. You have <> cigarettes left.
'
else
$stat_msg += '
You want to smoke, but you have no cigarettes left.
'
end
else
if siga > 0:
$stat_msg += '
You have <> cigarettes left.
'
else
$stat_msg += '
You feel like you should get some cigarettes.
'
end
end
elseif siga > 0:
$stat_msg += '
You have <> cigarettes.
'
end
if smokeHour = hour and smokeday = day and smokeminut >= minut:$stat_msg += '
You are smoking a cigarette.
'
if pcs_sweat < 0 : pcs_sweat = 0
if pcs_sweat > 69 : pcs_sweat = 69
jump 'statDswt<>'
:statDswt0
if arrsize('sparrvol') = 0 : $stat_msg += '
You are sparkling clean.
'
jump 'statDswtEnd'
:statDswt1
jump 'statDswtEnd'
:statDswt2
$stat_msg += '
You''re sweating.
'
jump 'statDswtEnd'
:statDswt3
$stat_msg += '
You are a little smelly.
'
jump 'statDswtEnd'
:statDswt4
$stat_msg += '
You stink.
'
jump 'statDswtEnd'
:statDswt5
$stat_msg += '
You really stink.
'
jump 'statDswtEnd'
:statDswt6
$stat_msg += '
You are dripping wet from sweat and smell like a gym sock.
'
jump 'statDswtEnd'
:statDswtEnd
if dirtyclothes = 1:
if pcs_sweat > 40:
$stat_msg +='
You from head to toe smeared in the mud.
'
else
$stat_msg +='
Your cloth is dirty.
'
end
end
if lactate = 1:
if lactatemv >= lactatemm-1:
$stat_msg += '
Your breasts are so full they hurt and a little milk is constantly dribbling out.
'
elseif lactatemv > lactatemm*9/10:
$stat_msg += '
Your breasts are firm and full, and starting to hurt from all the milk they contain.
'
elseif lactatemv > lactatemm*3/4:
$stat_msg += '
Your breasts feel firm and heavy, full of milk.
'
elseif lactatemv > lactatemm/2:
$stat_msg += '
Your breasts are heavy, a cargo of milk inside.
'
elseif lactatemv > lactatemm/4:
$stat_msg += '
Your breasts feel a little heavy.
'
elseif lactatemv > 0:
$stat_msg += '
Your breasts tingle a little from the feeling of milk production.
'
else
$stat_msg += '
Your breasts feel soft and empty.
'
end
end
if Enable_Hymenrestore = 1: pcs_vag = 0
if Enable_tightrestore = 1: pcs_ass = 0 & if pcs_vag > 0:pcs_vag = 1
if Enable_clearwrite > 0: body_write = 0 & face_write = 0
if Enable_clearcum > 0:
killvar 'sparrvol[0]'
end
if Enable_fbreath > 0:
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath=1
end
$clear_write = {
body_write = 0
face_write = 0
minut += 10
gs '$menu_obnovit'
'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
}
if body_write > 0 or face_write > 0:
if body_write > 1 and face_write = 0:
$stat_msg += '
Your body is inscribed with derogatory graffiti.'
elseif body_write = 1 and face_write = 0:
$stat_msg += '
Your body is an obscene sign.'
elseif body_write = 0 and face_write > 1:
$stat_msg += '
Your face is covered with writing obscene epithets.'
elseif body_write = 0 and face_write = 1:
$stat_msg += '
On your face humiliating label.'
else
$stat_msg += '
Your body and face painted with obscene graffiti.'
end
end
$cumdescribe = {
idx = 0
killvar 'temparray'
strangecum = 0
tempstrage = 2
tempage = 2
tempvol = 0
idxmax = arrsize('sparrloc')
:idxloop
if sparrloc[idx] = i:
if sparridt[idx] >= 0 and ((arrcomp('temparray',$sparrnam[idx]) = -1) or strcomp($sparrnam[idx],'.*\p{Lu}.*') = 0):
$temparray[] = $npc_usedname[$sparrnam[idx]]
if sparridt[idx] = 0:somedude = 1
if sparrage[idx] < cumres['new_thresh'] and tempage > 0:
tempage = 0
elseif sparrage[idx] < cumres['crusty_thresh'] and tempage > 1:
tempage = 1
else
tempage = 2
end
elseif sparridt[idx] = -2:
strangecum = 1
if sparrage[idx] < cumres['new_thresh'] and tempstrage > 0:
tempstrage = 0
elseif sparrage[idx] < cumres['crusty_thresh'] and tempstrage > 1:
tempstrage = 1
else
tempstrage = 2
end
end
end
if idx < idxmax: idx += 1 & jump 'idxloop'
killvar 'idxmax'
killvar 'idx'
if arrsize('temparray') > 1:
$cumres['name'] = 'Multiple men'
elseif arrsize('temparray') = 1 and somedude = 1 and strcomp($temparray[0],'.*\p{Lu}.*') = 0:
$cumres['name'] = 'Some '+$temparray[0]
elseif arrsize('temparray') = 1:
$cumres['name'] = $temparray[0]
elseif arrsize('temparray') = 0 and strangecum = 1:
$cumres['name'] = 'Something that looks like somebody'
end
if tempage = 0 or (tempstrage = 0 and strangecum = 1):
$cumres['desc'] = 'fresh '
elseif tempage = 1 or (tempstrage = 1 and strangecum = 1):
$cumres['desc'] = ''
else
if sparrloc[cumres_idx] ! 0 and sparrloc[cumres_idx] ! 3:
$cumres['desc'] = 'crusty '
else
$cumres['desc'] = 'stale '
end
end
killvar 'tempage'
killvar 'tempstrage'
killvar 'strangecum'
killvar 'temparray'
killvar 'somedude'
}
if arrsize('sparrvol') > 0:
i = 0
:selector
if sparrloc[i] = 0:tempsparrvol_p[] = sparrvol[i]
if sparrloc[i] = 3:tempsparrvol_a[] = sparrvol[i]
if i < arrsize('sparrvol'): i += 1 & jump 'selector'
!{index for use in dynamic}
i = 0
!{values for fresh and crusty, only updated where needed}
cumres['new_thresh'] = 4
cumres['crusty_thresh'] = 10
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and cumsumvag > 0:
dynamic $cumdescribe
if vibratorIN = 1:
$stat_msg += '
You feel <<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm filling your pussy, corked in by your vibrator.'
else
$cumres['state'] = 'fills your '
if sparrslc[cumres_idx] > 0:
$cumres['state'] = 'slowly flows from your '
spdirtyn = 1
end
if swallow >= 10 and max('tempsparrvol_p') > 0:
$stat_msg += '
You feel the <<$cumres[''desc'']>>cum of <<$cumres[''name'']>> <<$cumres[''state'']>> filling your pussy.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>>pussy.'
end
cumloc[0] = 1
spdirty = 1
end
spdirtyi = 1
end
killvar 'tempsparrvol_p'
i = 1
cumres['new_thresh'] = 1
cumres['crusty_thresh'] = 5
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your pussy lips.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your pussy lips.'
end
cumloc[1] = 1
spdirty = 1
spdirtyn = 1
end
i = 2
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your panties.'
else
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your panties.'
end
cumloc[2] = 1
spdirtyc = 1
end
i = 3
cumres['new_thresh'] = 4
cumres['crusty_thresh'] = 10
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and cumsumass > 0:
dynamic $cumdescribe
if analplugin = 1:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is stuffed in your ass, corked in by your anal plug.'
else
$cumres['state'] = 'fills your '
if sparrslc[cumres_idx] > 0:
$cumres['state'] = 'slowly flows from your '
spdirtyn = 1
end
if swallow >= 10 and max('tempsparrvol_a') > 0:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>>ass.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>>ass.'
end
end
cumloc[3] = 1
spdirty = 1
spdirtyi = 1
end
killvar 'tempsparrvol_a'
i = 4
cumres['new_thresh'] = 1
cumres['crusty_thresh'] = 5
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your ass.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your ass.'
end
cumloc[4] = 1
spdirty = 1
spdirtyn = 1
end
i = 5
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the ass of your panties.'
else
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the ass of your panties.'
end
cumloc[5] = 1
spdirtyc = 1
end
i = 6
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your clothes.'
else
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your clothes.'
end
cumloc[6] = 1
spdirtyc = 1
end
i = 7
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on your clothes.'
else
$stat_msg += '
You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on your clothes.'
end
cumloc[7] = 1
spdirtyc = 1
end
i = 8
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your back.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your back.'
end
cumloc[8] = 1
spdirty = 1
spdirtyn = 1
end
i = 9
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your legs.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your legs.'
end
cumloc[9] = 1
spdirty = 1
spdirtyn = 1
end
i = 10
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your arms.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your arms.'
end
cumloc[10] = 1
spdirty = 1
spdirtyn = 1
end
i = 11
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
if pcs_haircol = 0:
$cum_face_image = 'brown/'
$cum_face_image += rand(1, 31)
elseif pcs_haircol = 1:
$cum_face_image = 'black/'
$cum_face_image += rand(1, 23)
elseif pcs_haircol = 2:
$cum_face_image = 'red/'
$cum_face_image += rand(1, 19)
elseif pcs_haircol = 3:
$cum_face_image = 'blonde/'
$cum_face_image += rand(1, 25)
elseif pcs_haircol > 3:
$cum_face_image = 'custom/'
$cum_face_image += rand(1, 20)
end
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your face.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your face.'
end
cumloc[11] = 1
spdirty = 1
spdirtyn = 1
spdirtyv = 1
end
i = 12
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
$stat_msg += '
Your mouth smells from <<$cumres[''name'']>>''s sperm.'
cumloc[12] = 1
spdirty = 1
spdirtyb = 1
pcs_breath = 0
end
i = 13
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your hands.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your hands.'
end
cumloc[13] = 1
spdirty = 1
spdirtyn = 1
spdirtyv = 1
spdirtyf = 1
end
i = 14
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your stomach.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your stomach.'
end
cumloc[14] = 1
spdirty = 1
spdirtyn = 1
end
i = 15
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your breasts.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your breasts.'
end
cumloc[15] = 1
spdirty = 1
spdirtyn = 1
end
i = 16
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if swallow >= 10 and sparrage[cumres_idx] < 5:
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared in your hair.'
else
$stat_msg += '
<<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared in your hair.'
end
cumloc[16] = 1
spdirty = 1
spdirtyn = 1
spdirtyv = 1
end
i = 17
cumres_idx = arrpos('sparrloc',i)
if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
dynamic $cumdescribe
if sparrage[cumres_idx] < 1:
$cumtemp = 'freshly buried'
elseif sparrage[cumres_idx] < 13:
$cumtemp = 'buried'
elseif sparrage[cumres_idx] <= 48:
$cumtemp = 'marinating'
else
$cumtemp = 'rotting'
end
if cumcondslip_deep > (pcs_vag / 2):
$cumtemp += ' deep'
end
if cumcondslip_aware > 0:
$stat_msg += '
<<$cumres[''name'']>>''s spent condom full of sperm is <<$cumtemp>> in your vagina.'
end
cumloc[17] = 1
end
end
!{should kill all temp values}
cumres_idx = 0
cumfrot = 0
cumpussy = 0
cumbelly = 0
cumass = 0
cumlip = 0
cumface = 0
cumanus = 0
if $clothingworntype = 'nude' and lactatemess > 0:
if lactatemess < 3:
$stat_msg += '
You have a little milk residue around your nipples.'
elseif lactatemess < 7:
$stat_msg += '
You have a lot of milk residue around your nipples.'
else
$stat_msg += '
Your breasts are drenched with milk residue.'
end
elseif lactatemess > 0:
if lactatemess < 3:
$stat_msg += '
You have tiny wet spots on your clothes above your nipples.'
elseif lactatemess < 7:
$stat_msg += '
Milk has soaked through your clothes and made visible circles on your breasts.'
else
$stat_msg += '
Your shirt is drenched with milk from your breasts.'
end
end
if Gerpes >= 10:
$stat_msg += '
On your pussy sores have appeared. This is genital herpes.'
elseif Gerpes >= 5:
$stat_msg += '
Your pussy is flushed and highly itchy. This is genital herpes.'
elseif Gerpes >= 3:
$stat_msg += '
On your lips sores. All signs of genital herpes.'
end
if Gerpes >= 20:$stat_msg += '
The sores also cover your ass.'
if Sifilis >= 50:
$stat_msg += '
Syphilitic rashes cover your whole body.'
elseif Sifilis >= 21:
$stat_msg += '
You have a single big, hard sore on the lip.'
end
if Triper > 2:$stat_msg += '
From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.'
if Kandidoz > 30:$stat_msg += '
You have thrush.'
if SLomka > 0:$stat_msg += '
You are very weak and hurt to the bone. You''re in withdrawal.'
if narkday ! daystart and narkoman = 1:$stat_msg += '
You are very weak and hurt to the bone. Urgently need pale lady.'
if fingal > 0:$stat_msg += '
You have a black eye.'
! WD: Bimbo look
if bimbolevel > 0: $stat_msg += '
<<$bimbostatus>>'
if tanga = 1 and $clothingworntype = 'nude':
$stat_msg += '
You are only wearing your panties and your boobs sway invitingly as you walk'
elseif tanga= 1 and PCloBimbo = 1:
$stat_msg += '
You are dressed as a bimbo'
elseif tanga = 0:
if CloStyle = 4:
$stat_msg += '
you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.'
elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3:
$stat_msg += '
You like, totally forgot to put on any panties. You are such a bimbo.'
elseif PCloSkirt > 3:
$stat_msg += '
Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.'
elseif $clothingworntype ! 'nude':
$stat_msg += '
You are not wearing panties.'
elseif towel = 1:
$stat_msg += '
Your naked body is covered only by a short towel.'
elseif $clothingworntype = 'nude' and pcs_exhibition < 5:
$stat_msg += '
You are completely naked, and it makes you feel nervous and ashamed.'
elseif $clothingworntype = 'nude' and pcs_exhibition < 20:
$stat_msg += '
You are completely naked, you''re not too comfortable we nudity but it is a little exciting.'
elseif $clothingworntype = 'nude' and pcs_exhibition >= 90:
$stat_msg += '
You are completely naked, which is far better than having to wear clothes.'
elseif $clothingworntype = 'nude':
$stat_msg += '
You are completely naked. It''s exciting and you feel tingly inside.'
end
end
$stat_msg += '
'
if mosol >= 50:
$stat_msg += '
Your pussy hurts and each step causes more pain, it''s crimson and visibly scuffed from walking without underwear.'
elseif mosol >= 30:
$stat_msg += '
Your pussy is flushed and itchy, it seems to be from rubbing against your clothing.'
end
if analplugIN = 1:$stat_msg += '
You have a butt plug inserted in your ass.'
if vibratorin = 1:$stat_msg += '
You have a vibrator inserted in your vagina.'
$stat_msg += '
'
if young_shop_work = 1:
if hour = 15 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
'You are late for work at Pussy-Cats.'
elseif hour = 15 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
misscheck = daystart
young_shop_miss += 1
$stat_msg += '
You missed work.'
elseif (hour = 14 or hour = 13) and week < 6:
$stat_msg += '
By 15:00 you have to be at work in the shop Pussy-Cats.'
end
end
if workrin = 1:
if week = 2 or week = 4 or week = 6:
if hour = 7:$stat_msg += '
At 8 c''clock you start work on the market.'
if hour = 8:$stat_msg += '
You need to work on the market now.'
end
end
if frost > 0:
if frost <= 5:
$stat_msg += '
You are a little chilly.'
elseif frost < 11:
$stat_msg += '
You are cold.'
else
$stat_msg += '
You are freezing.'
end
end
if sick > 0:
if sick = 1:
$stat_msg += '
This is not good, a tickle in the throat and a little runny nose.'
elseif sick < 24:
$stat_msg += '
You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.'
elseif sick < 48:
$stat_msg += '
You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.'
elseif sick < 72:
$stat_msg += '
You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.'
else
$stat_msg += '
You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.'
end
end
if hypnoAddict > 0:
if hypnoWithdrawal = 1:
if missCum >= timeTresh:
$stat_msg += '
You really miss the feeling of sperm in your body, you are strangely craving it. You should talk to your therapist about it.'
else
$stat_msg += '
You feel like talking to your therapist. You miss your sessions.'
end
elseif hypnoWithdrawal = 2:
if missCum >= timeTresh:
$stat_msg += '
You want some sperm inside of you NOW! You have to talk to your therapist, immediately.'
else
$stat_msg += '
You need to talk to your therapist. You feel unbalanced without your sessions.'
end
else
if missCum >= timeTresh:$stat_msg += '
You miss the feeling of sperm in your body and you feel moody.'
end
end
if $mudnerd ! '':$stat_msg += '
<<$mudnerd>>'
if housr = 1:
$streetev_home = 'your apartment'
elseif tanwork = 1:
$streetev_home = 'Tanya''s apartment'
elseif student > 0:
$streetev_home = 'your dorm'
else
$streetev_home = 'the train station'
end
if hour < meethour and svidanieA = 1:$stat_msg += '
<<$boydescA>> will be waiting for you near <<$streetev_home>> at <>:00.'
if hour = meethour and svidanieA = 1:$stat_msg += '
<<$boydescA>> is waiting for you by <<$streetev_home>>.'
if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
if StrongNarkota > 20:$stat_msg += '
You are stoned.'
if alko > 0:
if alko < 3:$stat_msg += '
You''re a little dizzy.'
if alko >= 3 and alko < 6:$stat_msg += '
You''re drunk.'
if alko >= 6:$stat_msg += '
You''re wasted.'
end
if StoryLine = 1:
if day = 31 and month = 12 and SchoolAtestat = 0 and hour >= 5 and hour <= 14 and StoryLine = 1:$stat_msg += '
At 14:00 your school''s New Year''s party will start.'
if sisboyday + 1 = daystart and hour < 19 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or (npc_QW['A33'] = 9 and sisboytrioQW ! 1)):$stat_msg += '
' & $stat_msg += '
You promised your sister not to go into your room at 18:00.'
if sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:$stat_msg += '
' & $stat_msg += '
You promised your sister to meet her in your room at 18:00.'
if week = 6 and hour > 9 and detention_set = 1:$stat_msg += '
You have a detention this morning and must be at school between 8 and 9.'
end
if model > 0 and modelmon = month:
$stat_msg += '
You worked as a model this month.'
elseif model > 0 and modelmon ! month:
$stat_msg += '
You can work as a model this month.'
end
if pornstack > 0:
aa = 0
:pfilmtime
if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
end
if pornstack > 0 and pfilmday[0] = 0:
if pfilmday[1] = 0:
$stat_msg += '
You will star in another porno in <> days.'
else
$stat_msg += '
You have a porno shoot scheduled tomorrow.'
end
end
if pfilmday[0] > 0:
if pornnow = 1:
$stat_msg += '
You are at a porn shooting.'
else
if hour < 11: $stat_msg += '
You are expected in the porno studio at 10:00.'
if hour >= 11 and hour < 13: $stat_msg += '
You should be at the porno studio, shooting!'
if hour >= 13: $stat_msg += '
You missed a scheduled porno shoot!'
end
end
if pornmiss = 1: $stat_msg += '
You missed a scheduled porno shoot!'
if prodcosttrue > 0: $stat_msg += '
You owe to the porn studio <>?'
if firstkasting > 0 and pfilmNO < 1 and pornstack < 10: $stat_msg += '
You can contract to <<10-pornstack>> porno movie.'
if hour < 22 and week >= 2 and week <= 4 and workKafe = 1:$stat_msg += '
Today you have a shift in cafe starting at 11:00.'
if hour < 17 and week < 5 and workSec >= 1 or hour < 17 and week < 5 and PersSecWork = 1:$stat_msg += '
Today you have a shift as a secretary from 9:00 to 17:00'
if hour < 20 and week => 1 and week <= 5 and age < 18 and workFabrika = 1:$stat_msg += '
Today you have work in the garment factory in Pavlovsk. Shift starts at 16:00.'
if hour < 16 and week => 1 and week <= 5 and age >= 18 and workFabrika = 1:$stat_msg += '
Today you have work in the garment factory in Pavlovsk. Shift starts at 8:00.'
if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '
You work as a nurse in the clinic. Your shift starts at 8:00.'
if hour < 10 and worksalon = 1 and (week = 1 or week = 3 or week = 5):$stat_msg += '
Today you have work as masseuse in beauty salon. Shift starts at 9:00.'
if leonidVisit = 1: $stat_msg += '
You have to serve Leonid at 20:00 in his Pavlovsk office!'
gs 'brother', 'brotherSexCount'
!!zero checks marriage
proverka1 = 0
proverka2 = 0
proverka3 = 0
proverka4 = 0
proverka5 = 0
if boletus + bilberry > 0:
if boletus + bilberry >= 10:
$stat_msg +='
You have a full basket. '
else
$stat_msg +='
In Your basket:'
end
if boletus > 0:$stat_msg +='mushrooms: <> kg.'
if bilberry > 0:$stat_msg +='berries: <> kg.'
end
if Enable_statfsize > 0: $stat_msg += '
' & !disable this, all texts comes from pl will have the same font size, like[time]
if Enable_faceturn = 1: view FUNC('$face_image')
if Enable_Android = 0:
pl '<<$stat_msg>>'
else
'<<$stat_android>>'
$stat_msg = 'Android mode, Refresh<<$stat_msg>>'
end
--- stat_display ---------------------------------
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}
+'.jpg''){kind=link}