# stat
clr
if Enable_Android = 0:
if oldobjmenu = 0:
gs 'obj_din', 'new'
else
gs 'obj_din', 'old'
end
end
if daystart_start < 100:
pl '
Did you start at the end of August or beginning of June?'
exit
end
view
rand1=rand(0,100)
$stat_msg=''
if poSkill > 1000:poSkill = 1000
if cheatHealth = 1:dynamic $cheatmenu['std_cure']
if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0
musle[1] = musle
flex[1] = pcs_agil
stamina[1] = pcs_vital * 3
wipo[1] = will
intel[1] = pcs_intel - bimbostupidity
krasota[1] = vnesh
rost[1] = rost
salo[1] = salo
fat[1] = fat
Bteh[1] = bteh
Uteh[1] = uteh
Zteh[1] = zteh
!!flex[0] = pcs_agil
!!stamina[0] = pcs_vital * 3
!!krasota[0] = vnesh
!!wipo[0] = will
!!This is a temporary stop-gap measure for the accomadation skill and will be removed
if succubusflag = 1 and sucskill >= 4:
if pain['throat'] > 0: pain['throat'] = 0 & sucexcess -= 1
if pain['asshole'] > 0: pain['asshole'] = 0 & sucexcess -= 1
if pain['vaginal'] > 0: pain['vaginal'] = 0 & sucexcess -= 1
if vgape > 0: vgape = 0 & vgapetime = 0 & sucexcess -= 1
if agape > 0: agape = 0 & agapetime = 0 & sucexcess -= 1
end
!!!CHEATS!!!
if cheatWork = 1:work = 0
if cheatWorkKiskis = 1:young_shop_miss = 0
if cheatHapri = 1:hapri = 1
if cheatKlisma = 1:klismaday = daystart & klismaday1 = 1
if cheatNomakeup = 1:
if mop = 0:mop = 1
end
if cheatNosweat = 1 and sweat > 0:sweat = 0
if cheatNoEat = 1:
if energy < 35:energy = 35
if water < 35:water = 35
end
if cheatpirate = 1 and pirathorny < 20:pirathorny = 20
if CheatNoSleep = 1 and son < 35:son = 35
if alko > 0 and frost > 0:frost = 0
if StrongNarkota >= 20:
if alko > 0:alko = 0
end
if lernSkill >= 8:pcs_intel += 1 & lernSkill = 0
if lern >= 10:pcs_intel += 1 & lern = 0
if GorSlut = 1:
$gnikname = 'flirt'
elseif GorSlut = 2:
$gnikname = 'cocksucker'
elseif GorSlut = 3:
$gnikname = 'easy lay'
elseif GorSlut = 4:
$gnikname = 'sex addict'
elseif GorSlut = 5:
$gnikname = 'slut'
elseif GorSlut = 6:
$gnikname = 'talking pussy'
end
if GorSlut >= 2:KatjaKnowBJ = 1
if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
if GorSlut > 6: GorSlut = 6
if film > 0:
!pornoaktrissa
$kompromatFoto = 'The photo is a screenshot from one of your porn movies.'
elseif fotoyousuck = 1:
!!sucked in a couple of guys and was sfotografirovanna
$kompromatFoto = 'The picture shows you sucking two cocks at the same time.'
elseif fotoCFNMsex > 0:
$kompromatFoto = 'In the photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclub.'
elseif fotoCFNMblowjobCum > 0:
!!cum on face in the strip club
$kompromatFoto = 'In the photo you are sitting infront of a guy, kissing his cock. There seems to be cum on your face. This photo must have been taken in the stripclub.'
elseif fotoCFNMblowjob > 0:
!!sucked in front of everyone
$kompromatFoto = 'In the photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'
elseif stripdancesum > 0:
!!stripper
$kompromatFoto = 'In the photo you are dancing on a pole. Obviously someone photographed you, while you were on stage at the stripclub.'
elseif modelfoto > 0:
!!photo model
$kompromatFoto = 'The photo shows you naked, it is very well taken and must be from a shoot at the modeling agency.'
end
shameless = guy + stat['bj'] + stat['anal'] + stat['hj'] + ((slutty + gang) * 2)
moneySUM = money + karta + stolmoney
cumSUM = cumsumbod/40
if husbizvradd > 5:izvratH = 1
if husbharmin > 10:harakHusb = 0
if clrbelo < 0:clrbelo = 0 & tanga = 0
if husband = 0:
husbizvradd = 0
husbharmin = 0
husbandMark = 0
houseslut = 0
end
if SNarkvnesh = 0:SNarkvnesh = 1
if SNarkTimes >= SNarkvnesh * 25:
SNarkvnesh += 1
vidage += 1
end
if gopota >= 20 and gnewQW = 1:gnewQW = 2
if workDisk = 4 and week > 5:workDisk = 1
if workDisk = 3 and week > 5:workDiskAtkPlayer = 1
if fat < 0:fat = 0
if vokal < 0:vokal = 0
if vokal > 100:vokal = 100
if dance > 100:dance = 100
if stripdance > 100:stripdance = 100
if poledance > 100:poledance = 100
if bfa < 0:bfa = 0
if beg < 0:beg = 0
if beg > 2000:beg = 2000
if oficiant > 100:oficiant = 100
if vagina > 36:vagina = 36
if throat > 36:throat = 36
if anus > 36:anus = 36
if Jab > 120:Jab = 120
if Punch > 120:Punch = 120
if Kik > 120:Kik = 120
if KikDef > 120:KikDef = 120
if NarkImmune = 1:
if narkoman ! 0:narkoman = 0
elseif nark >= 30 and narkoman = 0 and NarkImmune = 0:
narkoman = 1
elseif nark = 0 and narkoman = 1:
narkoman = 0
end
if CheatSlut = 1 or succubusflag = 1:
!!Succubus cannot get pregnant
mesec = 0
FocH = 0
EggRH = 0
Ovulate = 0
fertegg = 0
UnfertEgg = 0
PregChem = 0
preg = 0
LutH = 0
RecovH = 0
babyembryo = 0
cycle = 1
if pcs_horny < 50 and CheatSlut = 1: pcs_horny = 50
end
boxing = Jab + Punch + Kik + KikDef
if boxing > 100:boxing = 100
if pcs_stren > 100 and mutagenP = 0:pcs_stren = 100
if speed > 100 and mutagenS = 0:speed = 100
if pcs_agil > 100 and mutagenA = 0:pcs_agil = 100
if react > 100 and mutagenR = 0:react = 100
if pcs_vital > 100 and mutagenV = 0:pcs_vital = 100
if will > 100 and mutagenW = 0:will = 100
if pcs_intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:pcs_intel = 100
if pcs_stren > 150 and mutagenP = 1:pcs_stren = 150
if speed > 150 and mutagenS = 1:speed = 150
if pcs_agil > 150 and mutagenA = 1:pcs_agil = 150
if react > 150 and mutagenR = 1:react = 150
if pcs_vital > 150 and mutagenV = 1:pcs_vital = 150
if will > 150 and mutagenW = 1:will = 150
if pcs_intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:pcs_intel = 150
if pcs_stren > 200 and mutagenP = 2:pcs_stren = 200
if speed > 200 and mutagenS = 2:speed = 200
if pcs_agil > 200 and mutagenA = 2:pcs_agil = 200
if react > 200 and mutagenR = 2:react = 200
if pcs_vital > 200 and mutagenV = 2:pcs_vital = 200
if will > 200 and mutagenW = 2:will = 200
if pcs_intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:pcs_intel = 200
if pcs_stren > 250 and mutagenP = 3:pcs_stren = 250
if speed > 250 and mutagenS = 3:speed = 250
if pcs_agil > 250 and mutagenA = 3:pcs_agil = 250
if react > 250 and mutagenR = 3:react = 250
if pcs_vital > 250 and mutagenV = 3:pcs_vital = 250
if will > 250 and mutagenW = 3:will = 250
if pcs_intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:pcs_intel = 250
if pcs_intel > 250:pcs_intel = 250
if MagikDostup = 0:
!!!CV edition: Moved the statement after each orgasm stage to it''s own string
$levelUpString = 'You feel like a strength has been revealed within you and you gush with magic, lifting you to a new energy level.'
if orgasm >= 1 and magik < 1:
magik = 1
glaraz += 1
rikudo += 500
$stat_msg += '
' + $levelUpString
elseif orgasm >= 2 and magik < 2:
magik = 2
resnic += 1
rikudo += 500
$stat_msg += '
' + $levelUpString
elseif orgasm >= 4 and magik < 3:
magik = 3
glaraz += 1
rikudo += 500
$stat_msg += '
' + $levelUpString
elseif orgasm >= 8 and magik < 4:
magik = 4
resnic += 1
rikudo += 500
$stat_msg += '
' + $levelUpString
elseif orgasm >= 16 and magik < 5:
magik = 5
glaraz += 1
rikudo += 500
$stat_msg += '
' + $levelUpString
elseif orgasm >= 32 and magik < 6:
magik = 6
resnic += 1
rikudo += 1000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 64 and magik < 7:
magik = 7
glaraz += 1
rikudo += 1000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 100 and magik < 8:
magik = 8
rikudo += 1000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 200 and magik < 9:
magik = 9
rikudo += 1000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 300 and magik < 10:
magik = 10
rikudo += 2000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 400 and magik < 11:
magik = 11
rikudo += 4000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 500 and magik < 12:
magik = 12
rikudo += 4000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 600 and magik < 13:
magik = 13
rikudo += 4000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 700 and magik < 14:
magik = 14
rikudo += 4000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 800 and magik < 15:
magik = 15
rikudo += 8000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 900 and magik < 16:
magik = 16
rikudo += 8000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 1000 and magik < 17:
magik = 17
rikudo += 8000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 1100 and magik < 18:
magik = 18
rikudo += 8000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 1200 and magik < 19:
magik = 19
rikudo += 8000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 1300 and magik < 20:
magik = 20
rikudo += 16000
$stat_msg += '
' + $levelUpString
elseif orgasm >= 1400 and magik < 20:
magik = 21
rikudo += 21000
$stat_msg += '
' + $levelUpString
end
!!!
end
if pcs_dom > 100: pcs_dom = 100
if SUB > 100: SUB = 100
if VAF > 200: VAF = 200
if SUB >= pcs_dom and pcs_dom > 0:SUB = SUB - pcs_dom & pcs_dom = 0
if pcs_dom >= SUB and SUB > 0:pcs_dom = pcs_dom - SUB & SUB = 0
if pcs_horny < 0:pcs_horny = 0
healthmax = (pcs_vital*10 + pcs_stren*5)
willpowermax = (pcs_intel*5 + will*5)
mannamax = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
if healthmax < 1:healthmax = 1
if willpowermax < 1:willpowermax = 1
if mannamax < 1:mannamax = 1
!pre-calc max value for later display
if fairycurse >= daystart and fairyshoo > 0: pcs_horny = 90
if min_arousal > pcs_horny:pcs_horny = min_arousal
if Enable_lockhorny > 0 and pcs_horny < Enable_lockhorny - 1:pcs_horny = Enable_lockhorny - 1
if pcs_horny < 0:pcs_horny = 0
if health > healthmax:health = healthmax
if willpower > willpowermax:willpower = willpowermax
if manna > mannamax:manna = mannamax
if hypnoAddict = 1 and pcs_horny < 30:
pcs_horny = 30
elseif hypnoAddict = 2 and pcs_horny < 50:
pcs_horny = 50
end
if spdirtyi = 1 or hypnoAddict = 0:missCum = 0
if missCum >= timeTresh:
if pcs_horny < 90:pcs_horny = 90
if preziktype = 0: prezikcount = prezik
if preziktype = 2: preziksabo = prezik
prezik = 0
preziktype = 1
end
!!musle = strenbuf + vitalbuf
!!!!!!!!!!!
!!!TIME!!!
!!!!!!!!!!!
! WD: totminut fix ~ Calculates total minutes since NYE 2000
if nminut ! minut:
! Zero totminut will be at New Years Eve of 2015
! Years since 2015 in days
totminut = (year - 2015) * 365
! Days this year
if month > 1 : totminut += 31 & ! Jan
if month > 2 : totminut += 28 & ! Feb
if month > 3 : totminut += 31 & ! Mar
if month > 4 : totminut += 30 & ! Apr
if month > 5 : totminut += 31 & ! May
if month > 6 : totminut += 30 & ! Jun
if month > 7 : totminut += 31 & ! Jul
if month > 8 : totminut += 31 & ! Aug
if month > 9 : totminut += 30 & ! Sep
if month > 10: totminut += 31 & ! Oct
if month > 11: totminut += 30 & ! Nov
if month > 12: totminut += 31 & ! Dec
if month > 13: totminut += 31 & ! Jan rollover sanity check
totminut += day
! Hours
totminut = totminut * 24 + hour
! Minutes
totminut = totminut * 60 + minut + sec / 60
nminut = minut
end
!!painkiller
if pain['killer'] > 0:
if pain['killer'] = 1: pain_timer = totminut - 2
pain['killer'] = totminut - pain_timer
if pain['killer'] >= 243: pain['killer'] = 0
end
! WD: 'daystart' Should start at 1
if daystart = 0: daystart = 1
!!Gaping of vagina recovery time
if vgape > 0:
if vgapetime = 0: vgapetime = totminut
if (vgapetime + 2500) <= totminut:vgape -= 1 & vgapetime = 0
end
!!Gaping of anus recovery time
if agape > 0:
if agapetime = 0: agapetime = totminut
if (agapetime + 2500) <= totminut:agape -= 1 & agapetime = 0
end
!!Recovery from spanking - will be superseded by pain system
if spanked > 0:
if spankedtime = 0: spankedtime = totminut
if (spankedtime + 2500) <= totminut:spanked -= 1 & spankedtime = 0
end
!! Orgasmic cooldown
if orgasmic ! 0:
if orgasmic < totminut - 30: orgasmic = 0 & pcs_horny = 0
end
if sec >= 60:
:loopsec
minut += 1
sec -= 60
if sec >= 60:jump 'loopsec'
end
if minut >= 60:
:loopmin
hour += 1
if SbrosNerdism = 1:Astat_nerd[pc] = will / 10 - orgasm
if Astat_nerd[pc] < 0:Astat_nerd[pc] = 0
if obkvsdam > 0:obkvsdam = rand(2, 5)
if scpopt > 1: scpopt = 0
if insleep = 1:
energy -= (4 + succublvl/2)
water -= (4 + succublvl/2)
son -= 4
else
energy -= (8 + succublvl)
water -= (8 + succublvl)
son -= 4
end
minut -= 60
gs 'femcyc'
if hypnoAddict > 0:dynamic $hypnoAddiction
if alko > 0 and alkoblock = 0:
if alko >= 4:
if beg > 0:beg -= 1
if pcs_vball >= 50:pcs_vball -= 1
if alko >= 6:
if pcs_stren > 10:pcs_stren -= 1
if pcs_vital > 10:pcs_vital -= 1
if pcs_intel > 10:pcs_intel -= 1
alko -= rand (1, 2)
end
end
alko -= 1
end
!!!!!!!!!!!!!
!!!Avtoboy!!!
!!!!!!!!!!!!!
if hour >= 8 and hour <= 23 and NPCnum > 10 and insleep = 0:
:markturnirotbort
xf = 0
:markturnirotbortt
xf += 1
turnirFighter[xf] = rand(2, NPCnum)
if xf < 2:jump 'markturnirotbortt'
if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'
a = turnirFighter[1]
i = turnirFighter[2]
NoView = 1
gs 'Autofight'
end
!!!!!!!!!!!!!
if shame > 0:shame -= 1 & manna -= 5
if smoker >= 20:smokerNeed += 1
if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
if smokerNeed > 300:smokerNeed = 0 & smoker = 0
if StrongNarkota > 0:StrongNarkota -= 1
if SLomka > 0:SLomka += 1 & manna -= 500
if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
if narkoman = 1 and narkday ! daystart:
health -= 5
willpower -= 5
manna -= 10
end
if tanga = 0 and PCloPants > 0 and $clothingworntype ! 'nude':mosolpred += 1
if mosolpred >= 10:
mosol += 1
mosolpred -= 10
end
if mosol >= 50:
manna -= 5
end
if energy > 100:
fat += (energy - 100) / 4
energy = 100
end
if mosol > 0:
if tanga = 1 or $clothingworntype = 'nude':mosol -= 1
end
if lipbalmstat > 0:lipbalmstat -= 1
if sickstage = 1:sick += 1 & sicktimer += 1
if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
if sickstage = 2 and sick > 0:sick -= 1
if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
if perkice > 0:perkice -= 1
if frost > 0:frost -= 1
if KGOLpers > 0:
if KGHP < KGHPMAX:KGHP += 10
if KGManna < KGMannaMax:KGManna += 10
end
if pain['head'] > 0:pain['head'] -= rand(0,1)
if pain['hair'] > 0:pain['hair'] -= rand(0,1)
if pain['ears'] > 0:pain['ears'] -= rand(0,1)
if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(0,1)
if pain['eyes'] > 0:pain['eyes'] -= rand(0,1)
if pain['cheeks'] > 0:pain['cheeks'] -= rand(0,1)
if pain['nose'] > 0:pain['nose'] -= rand(0,1)
if pain['mouth'] > 0:pain['mouth'] -= rand(0,1)
if pain['lips'] > 0:pain['lips'] -= rand(0,1)
if pain['tongue'] > 0:pain['tongue'] -= rand(0,1)
if pain['throat'] > 0:pain['throat'] -= rand(0,1)
if pain['neck'] > 0:pain['neck'] -= rand(0,1)
if pain['back'] > 0:pain['back'] -= rand(0,1)
if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(0,1)
if pain['asshole'] > 0:pain['asshole'] -= rand(0,1)
if pain['hips'] > 0:pain['hips'] -= rand(0,1)
if pain['thighs'] > 0:pain['thighs'] -= rand(0,1)
if pain['legL'] > 0:pain['legL'] -= rand(0,1)
if pain['legR'] > 0:pain['legR'] -= rand(0,1)
if pain['feet'] > 0:pain['feet'] -= rand(0,1)
if pain['toes'] > 0:pain['toes'] -= rand(0,1)
if pain['shoulders'] > 0:pain['shoulders'] -= rand(0,1)
if pain['armL'] > 0:pain['armL'] -= rand(0,1)
if pain['armR'] > 0:pain['armR'] -= rand(0,1)
if pain['hands'] > 0:pain['hands'] -= rand(0,1)
if pain['fingers'] > 0:pain['fingers'] -= rand(0,1)
if pain['chest'] > 0:pain['chest'] -= rand(0,1)
if pain['breasts'] > 0:pain['breasts'] -= rand(0,1)
if pain['nipples'] > 0:pain['nipples'] -= rand(0,1)
if pain['ribs'] > 0:pain['ribs'] -= rand(0,1)
if pain['tummy'] > 0:pain['tummy'] -= rand(0,1)
if pain['pubic'] > 0:pain['pubic'] -= rand(0,1)
if pain['vaginal'] > 0:pain['vaginal'] -= rand(0,1)
if pain['clitoris'] > 0:pain['clitoris'] -= rand(0,1)
if pain['urethra'] > 0:pain['urethra'] -= rand(0,1)
if pain['cervix'] > 0:pain['cervix'] -= rand(0,1)
if aphrodisiac_timer >= 1:
if pcs_horny < 80:
pcs_horny = 80
else
pcs_horny += 10
end
aphrodisiac_timer -= 1
end
if tanga = 1 and clit_size >= 25:pcs_horny += 20
if insleep = 0:
sweat += rand(0,1)
if temper >= 20: sweat += rand(0,1)
end
! vovan edition, from 1.2.5
if clearclothes > 0: clearclothes -= 1
if hantersAndreisex > 0: hantersAndreisex -= 1
if hantersSergeisex > 0: hantersSergeisex -= 1
if hantersIgorsex > 0: hantersIgorsex -= 1
if hantslutsex > 0: hantslutsex -= 1
if mira_go_blok > 0: mira_go_blok -= 1
if mira_no_home > 0: mira_no_home -= 1
if minut >= 60:jump 'loopmin'
end
if hour >= 24: gs 'cikl'
if minut < 10:
$nilmin = '0'
else
$nilmin = ''
end
if kid > 0:
i = arrsize('yearkid')
:LoopKidAgeCounter
if i >= 0:
if yearkid[i] = year + 1 and monthkid[i] = month and daykid[i] = day: msg'It is <<$kidname[i]>>''s birthday today.'
i -= 1
jump 'LoopKidAgeCounter'
end
end
!!moodlet
!!mannamax
!!totminut
if Mud >= totminut:
manna = mannamax
$mud = 'You feel buoyed.'
else
$mud = ''
end
if Astat_nerd[pc] > 0:
if lastreadday = daystart:
!!You are completely healthy shine and a healthy glow.
manna = mannamax
SbrosNerdism = 0
$mudnerd = 'You are lost in a fantasy after reading a book.'
end
if lastreadday + 1 = daystart:
!!manna = mannamax
SbrosNerdism = 0
$mudnerd = 'You are a little bored and want to plunge into a book.'
end
if lastreadday + 2 = daystart:
SbrosNerdism = 0
if manna > mannamax / 2:manna -= 10
$mudnerd = 'You really want to read something.'
end
if lastreadday + 3 <= daystart:
if manna > mannamax / 10:manna -= 10
SbrosNerdism = 1
$mudnerd = 'You have an incredibly strong desire to read!!!'
end
!!$mudnerd += 'lastread<> totminut<> <>'
else
SbrosNerdism = 0
$mudnerd = ''
end
if bimbolevel > 0:
if bimbowithdrawal = 0:
$bimbostatus = 'You''re, like, super hawt today.'
elseif bimbowithdrawal = 1:
$bimbostatus = 'You feel, like, kind of lame today.'
elseif bimbowithdrawal < 4:
$bimbostatus = 'You feel, like, totally lame today.'
elseif bimbowithdrawal < 6:
if manna > mannamax / 2:manna -= 10
$bimbostatus = 'You really feel, like, awful today.'
elseif bimbowithdrawal >= 6:
if manna > mannamax / 10:manna -= 10
$bimbostatus= 'You feel that, like, horrible today!'
end
if bimbowithdrawal > 30:
bimbowithdrawal = 0
bimbo = 0
bimbolevel = 0
$stat_msg += '
You suddenly feel as if your head is clear, instead of filled with pink thoughts.'
end
else
bimbowithdrawal = 0
$bimbostatus = ''
end
!
! WD: Triggers every 15 minutes if not sleeping
! Update to remove long iterations on loading saves from previous versions
! Do Nothing if sleeping, invalid Trig15Minute value or more than 6 hours 16 minute pass
if InSleep ! 0 or Trig15Minute > totminut or (totminut - Trig15Minute) >= 376:
set Trig15Minute = totminut
! More than 15 minutes since last check
else
if (totminut - Trig15Minute) >= 15:
! begin Loop
:Trig15MinuteLoop
! Horny Actions
if pcs_horny > 100:
set Trig15Minute = totminut
else
set Trig15Minute += 15
! WD: Fix vibrator arousal to trigger every 15 minutes, moved from 'time' location
if vibratorin = 1:pcs_horny += rand(1, 5)
! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
if pcs_horny < 70:
hornystat = 0
if pirsF = 1:hornystat += 1
if pirsG = 1:hornystat += 1
if pirsGL = 1:hornystat += 1
hornyStat = hornystat * 4
if pirsA = 1:hornystat += 1
if pirsB = 1:hornystat += 1
if pirsC = 1:hornystat += 1
if pirsD = 1:hornystat += 1
if pirsE = 1:hornystat += 1
if pirsN = 1:hornystat += 1
set pcs_horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
end
! WD: Clothing
if CloStyle = 4 and pcs_horny < 70:set pcs_horny += rand(0, 2)
if (PCloSkirt > 5 or PCloPants > 5) and pcs_horny < 50:set pcs_horny += rand(0, 1)
if PCloTopCut = 4 and pcs_horny < 50:set pcs_horny += rand(0, 1)
end
!!SECTION: Bimbo (15 minute interval update checks)
if bimbolevel = 2:
if manna < mannamax:manna += ((manna / 100) * (rand(0,1)))
if pcs_horny < 25:pcs_horny = 25
if pcs_horny < 100:pcs_horny += 1
end
if bimbolevel = 3:
if (manna < mannamax):manna += ((manna / 100) * (rand(0,2)))
if pcs_horny < 50:pcs_horny = 50
if pcs_horny < 100:pcs_horny += 2
end
!! This is the Succubus non-direct injection (pun intented) sex to sexnutrition and the sexnutrition conversion handling
if succubusflag = 1:
if pcs_horny < 50: pcs_horny = 50
if pcs_horny < 100: pcs_horny += succublvl
if succhungry > 0:
energy -= succhungry*succublvl
water -= succhungry*succublvl
son -= succhungry*succublvl
end
if cumlip > 0:sexnutrition += cumlip & cumlip = 0
!if swallow > 0:sexnutrition += swallow * 2 & swallow = 0
if cumpussy > 0:sexnutrition += cumpussy * 4 & cumpussy = 0
if cumanus > 0:sexnutrition += cumanus * 4 & cumanus = 0
if arrsize('sparrvol') > 0:
suctempi = -1
:SuccAbsorbLoop
suctempi += 1
if suctempi <= 1 or suctempi = 4 or suctempi >= 8:
if suctempi = 12: jump 'SuccAbsorbLoop'
suctemparr = arrpos('sparrloc',suctempi)
if suctemparr >= 0 and sparrloc[suctemparr] = suctempi and sparrvol[suctemparr] > 0:
sexnutrition += succublvl * 5
cumsumbod -= sparrvol[suctemparr]
succubxp += 2
sucabscum = 1
gs 'cum_cleanup', 'cleandeposit', suctemparr
cumloc[suctempi] = 0
spdirty = 0
spdirtyn = 0
spdirtyv = 0
spdirtyf = 0
!! debug code $stat_msg += '
Absorb ext <>'
end
end
if suctempi < 17:jump 'SuccAbsorbLoop'
end
if suclezsex < lesbian:
sexnutrition += succublvl * 20
suclezsex = lesbian
succubxp += 3
sucabslez = 1
end
if sexnutrition > 0:
if sucskill >= 3 and succublvl >= 2: sexnutrition += (sexnutrition * 2) / 10
if sucabslez = 1 and sucabscum = 1:
$sucabs1 = 'absorbed energy from the woman you had sex with'
$sucabs2 = ' and you '
$sucabs3 = 'absorb the semen in your body'
elseif sucabscum = 1:
$sucabs3 = 'absorb the semen in your body'
elseif sucabslez = 1:
$sucabs1 = 'absorbed energy from the woman you had sex with'
else
!!Debug code
$stat_msg += '
SOMETHING HAPPENED!'
end
$stat_msg += '
You <<$sucabs1>><<$sucabs2>><<$sucabs3>>, gaining nourishment.'
sucabslez = 0 & sucabscum = 0
$sucabs1 = '' & $sucabs2 = '' & $sucabs3 = ''
if (manna < mannamax): manna += ((manna / 100) * 5)
if energy > 100: entemp = (energy - 100)
if sucexcess < 0 and sexnutrition > 20 and energy > 30:
if sexnutrition - 20 >= (0 - sucexcess) * 2:
sexnutrition += sucexcess * 2
sucexcess = 0
else
sucexcess += (sexnutrition - 20) / 2
sexnutrition = 20
end
end
water += sexnutrition / 2
energy += sexnutrition / 2
son += sexnutrition / 20
if succhungry > 0: succhungry = 0
sexnutrition = 0
if energy > 100: sucexcess += (energy - entemp - 100) & energy = 100 + entemp & killvar 'entemp'
end
end
!! safeguards to prevent bimbolevel from going above or below its intended limits
if bimbolevel > 3: bimbolevel = 3
if bimbolevel < 0: bimbolevel = 0
! do loop
if (totminut - Trig15Minute) >= 15:jump 'Trig15MinuteLoop'
end
end
!!!!!!!!!!!!!
!!!ENERGY!!!
!!!!!!!!!!!!!
if succubusflag = 1:
if energy < 0:
if fat >= 1:
fat -= 2
energy += 8 + succublvl
else
energy += 8 + succublvl
sucexcess -= (8+succublvl) * (6-succublvl)
end
end
if health < 0:
health = 10
sucexcess -= 25 * (9-succublvl)
end
if willpower < 0:
willpower = 10
sucexcess -= 20 * (9-succublvl)
sucpowzeroed = 4
end
end
if son < 0:
son = 0
manna -= 5
end
if energy < 0:
energy = 0
health -= 5
if fat = 0 and pcs_stren + pcs_vital > 0:
pcs_stren -= 1
pcs_vital -= 1
energy += 8
elseif fat = 0 and pcs_stren + pcs_vital <= 0:
if Enable_nogameover = 0 :
over = 3
gt'gameover'
exit
else
$stat_msg += '
You starved to death, but Cheat Mode keeps you Alive.'
fat = 1
end
elseif fat > 0:
fat -= 1
energy += 8
end
end
if water < 0:
water = 1
health -= 10
willpower -= 1
end
if manna <= 0:
manna = 1
health -= 5
willpower -= 5
!!fat += 1
end
if health < 0:
if Enable_nogameover = 0 :
over = 1
gt'gameover'
exit & !nogameover by illume
else
$stat_msg += '
You died from injuries, but Cheat Mode keeps you Alive.'
health = 0
end
end
if willpower <= 0 :
!this will set willpower to 0 correctly; then check mana =1 for insane-gameover(willpower=0&mana=1).
if manna <= 1:
if Enable_nogameover = 0 :
over = 2
gt'gameover'
exit & !nogameover by illume
else
$stat_msg += '
You are insane, but Cheat Mode keeps you Alive.'
!manna already checked for >=1 in line 1113 if manna <= 0, no need to set another one
end
end
willpower = 0
end
if saloonce = 0 and opPRE = 0:
saloonce = 1
salo = fat
strenbuf = pcs_stren
vitalbuf = pcs_vital
agilbuf = pcs_agil
end
!cars-increase/depressed mood after orgasm/rape
if rape > 0 and rape ! rape_count and orgasm = orgasm_count:
manna = 10
rape_count = rape
elseif orgasm > 0 and orgasm ! orgasm_count:
manna = mannamax
orgasm_count = orgasm
elseif rape > 0 and rape ! rape_count and orgasm > 0 and orgasm ! orgasm_count:
manna = mannamax
orgasm_count = orgasm
rape_count = rape
end
gs 'body'
!!!!!!!!!!!!!
if health >= healthmax:
$health = 'You are very healthy.'
elseif health >= healthmax * 75 / 100:
$health = 'You are healthy.'
elseif health >= healthmax * 50 / 100:
$health = 'You are not healthy.'
elseif health >= healthmax * 25 / 100:
$health = 'You are sick.'
else
$health = 'You are on the verge of death.'
end
if willpower >= willpowermax:
$willpower = 'Your mind is clear.'
elseif willpower >= willpowermax * 75 / 100:
$willpower = 'You are mostly clear of mind.'
elseif willpower >= willpowermax * 50 / 100:
$willpower = 'You are depressed.'
elseif willpower >= willpowermax * 25 / 100:
$willpower = 'You have depression.'
else
$willpower = 'You are on the verge of madness.'
end
if manna >= mannamax:
$manna = 'You are in a good mood.'
elseif manna >= mannamax * 75 / 100:
$manna = 'You have a normal mood.'
elseif manna >= mannamax * 50 / 100:
$manna = 'You are in a bad mood.'
elseif manna >= mannamax * 25 / 100:
$manna = 'You are in a terrible mood.'
else
$manna = 'Your mood is stuck in the gutter.'
end
if energy >= 80:
$energy = 'You couldn''t eat one more bite.'
elseif energy >= 40:
$energy = 'You''re not really hungry, but a small snack would be very welcome.'
elseif energy >= 8:
$energy = 'You are hungry.'
else
$energy = 'You are very hungry.'
end
if water >= 80:
$water = 'You are not thirsty at all.'
elseif water >= 40:
$water = 'You are slightly thirsty.'
elseif water >= 8:
$water = 'You are thirsty.'
else
$water = 'You are very thirsty.'
end
if son >= 80:
$son = 'You are well rested.'
elseif son >= 40:
$son = 'You are slightly tired.'
elseif son >= 8:
$son = 'You are tired.'
else
$son = 'You are very tired.'
end
!$din_shame = {
!!dynamic din_shame
!!shame += 1
!!if shame >= 5:shame = 4 & shameless += 1
!!if shame >= 4:$shame = 'of your cheeks blaze zalivshego them blush with shame.'
!!if shame = 3:$shame = 'Your cheeks are red from the blush of shame.'
!!if shame = 2:$shame = 'You nemnog opokrasneli shame.'
!!if shame = 1:$shame = 'You''re a little confused.'
!!if shame <= 0:$shame = 'You''re a little confused.'
!!gs 'stat'
}
!!if shame >= 5:shame = 4 & shameless += 1
!!if shame >= 4:$shame = 'of your cheeks blaze zalivshego them blush with shame.'
!!if shame = 3:$shame = 'Your cheeks are red from the blush of shame.'
!!if shame = 2:$shame = 'You nemnog opokrasneli shame.'
!!if shame = 1:$shame = 'You''re a little confused.'
!!if shame <= 0:$shame = 'You''re a little confused.'
maxmood = 100-moodmodifier
if mood > maxmood:
mood = maxmood
manna = mannamax
$mood = 'You feel buoyed.'
elseif mood < 0:
mood = 0
!{Asylum: basically this means clinically insane, like court-ordered committed, saliva dripping, blubbering...
Ordinarily irreversible at this stage meaning Game Over, but cheat can help}
end
if workFabrika = 1 and week => 1 and week <= 5 and hour > 8 and age => 16 and age < 18 and FabrikaProgulDay ! day or workFabrika = 1 and week => 1 and week <= 5 and hour > 16 and age > 18 and FabrikaProgulDay ! day:
!absence from work in a factory in Pavlovsk
FabrikaProgul += 1
FabrikaProgulDay = day
end
if hotelroom > 0:
if hotelroom1day = daystart: $stat_msg += '
You have 1 night left on your hotel booking.'
if hotelroom1day < daystart and hour <= 11: $stat_msg += '
Your hotel booking has expired and you cannot return to your room after 11:00'
if hotelroom1day < daystart and hour > 11: hotelroom = 0
end
if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! daystart:
!!absence from school
schoolprogul += 1
schoolProgulDay = daystart
end
if insleep = 0:gs 'stat_display'
if cumcondslip <= 0:cumcondslip_deep = 0
--- stat ---------------------------------