# cikl
day += 1
week += 1
hour -= 24
!!Fame call to update all the fame variables
gs 'fame'
!!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
gs 'pornschedule', 'schedule'
end
gs 'daystart'
dynamic $hypnoDaychange
!!phone reset for bf
ringA = 0
ringB = 0
ringC = 0
if BuyHous = 2 and ArendHouseSL <= 0: ArendHouseSL = 0 & BuyHous = 0 & housr = 0
if BuyHous = 2 and ArendHouseSL > 0: ArendHouseSL -= 1
!!Appearance Age
vidageday -= 1
if vidageday <= 0:
vidageday = 360
vidage += 1
end
!!Birthday
age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
if workDolgDay > 0: workDolgDay -= 1
if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
if husband > 0: husbanday += 1
if husband > 10 and husbanday > 0: husband -= 15
if fingal > 0: fingal -= 1
if husbandMark = 1 and husband <= 10:
husbizvradd = 0
husbharmin = 0
husbandMark = 0
husband = 0
divorced += 1
if KFOnLineReaga > 0:KFOnLineReaga -= 1
'Your husband has filed for a divorce.'
end
if katjaPreg = 0 and month >= 2:
if schoool_year = 2001 and year > 2016:
katjaPreg = 1
elseif schoool_year = 2000 and year > 2017:
katjaPreg = 1
end
end
!Clothing stock and price randomizers
Clothingstock = rand (0,23)
i = 1
:loopprice
Clothingstock[i] = rand (0,500)
i += 1
if i <= 147:jump 'loopprice'
if coatH[defaultcoat] <= 0: defaultcoat = 0
!!------------------------------------------------------------------------------------------------------------
!! Bimbo
!!------------------------------------------------------------------------------------------------------------
!!A Succubus cannot be a Bimbo
if succubusflag = 1 and bimbo > 0: bimbo -= succublvl * 2
!!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
if bimbo > 0 or bimbolevel > 0:
if bimbo < 10:
bimbo -= 1
elseif bimbo < 20:
bimbolevel = 1
elseif bimbo < 30:
bimbolevel = 2
else
bimbolevel = 3
end
end
if bimbo >= 40: bimbo = 40
!!Bimbo levels. They use custom variables so they wont permanently change character stats
if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
if bimbocl = 1 and succubusflag = 0:
bimbocl = 0
bimbo += 2
else
bimbocl = 0
end
!Succubus Level & hunger calcs
if succubusflag = 1:
cheatHealth = 1
dynamic $cheatmenu['std_cure']
!! A Succubus cannot be a Bimbo
if bimbolevel > 0 and bimbo <= 0: bimbowithdrawal = 40
!! Hunger handling
if sucxpsnapshot >= succubxp: succhungry += 1
sucxpsnapshot = succubxp
if succubxp < 0: succubxp = 0
!! Level handling
if succubxp < 60:
succublvl = 1
$sucself1 = 'that feeling'
sucstorecap = 0
if bimbolevel <= 0: supnatvnesh = 1
elseif succubxp < 150:
succublvl = 2
$sucself1 = 'the power'
sucstorecap = 0
if bimbolevel <= 0: supnatvnesh = 3
elseif succubxp < 270:
succublvl = 3
$sucself1 = 'your other self'
sucstorecap = 100
if bimbolevel <= 0: supnatvnesh = 6
else
succublvl = 4
$sucself1 = 'your true self'
sucstorecap = 200
if bimbolevel <= 0: supnatvnesh = 10
end
if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
if pcs_react < 250: react_exp += 20 & sucexcess -= 10
if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
!! This is to drive the Succubus vidage into the max appearance range
if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
if vidageday >= 720 and vidage > 28:
vidageday -= 360
vidage -= 1
end
if sucexcess > sucstorecap: sucexcess = sucstorecap
elseif sucexcess < 0 and succhungry < 0:
succhungry += 1
if (0 - sucexcess) < (10 * succublvl):
sucexcess = 0
else
sucexcess += (10 * succublvl)
end
end
if sucexcess < 0: sucpowzeroed += 1
if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
!! This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
if sucskill >= 4:
if pcs_vag - 2 >= 13:
pcs_vag -= 2
elseif pcs_vag + 2 <= 13:
pcs_vag += 2
end
if pcs_ass - 2 >= 8:
pcs_ass -= 2
elseif pcs_ass + 2 <= 8:
pcs_ass += 2
end
end
end
!!Bimbo second half, after Succubus so changes there can be reflected here if still bimbo and Succubus
!!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
if bimbolevel >= 1:
bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
if bimbo > snapshotY:
bimbowithdrawal = 0
else
bimbowithdrawal += 1
end
end
if bimbo < 0: bimbo = 0
snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
snapshotY = bimbo
!!------------------------------------------------------------------------------------------------------------
if defcurly = 0 and curly > 0:curly -= 1
if defcurly = 1:
if straight > 0: straight -= 1
if straight = 0: curly = 2147483647
end
! WD: Added daily reduction of braids for Maruda Hair Mod
if hbraids > 0: hbraids -= 1
pcs_sweat += 2
if pcs_tan > 0: pcs_tan -= 1
if prezikmsg = 2: prezikmsg = 3
!!------------------------------------------------------------------------------------------------------------
!! Birth control
!!------------------------------------------------------------------------------------------------------------
!! Birth Control Management variables
!!
!! tabletkimm : The modifier for the current mood of the MC.
!! tabletkiap : Autopill factor affecting the liklihood you took your pill as you should have
!! tabletkipt : Pill Dicipline Take increase
!! tabletkipi : Pill Dicipline Dont take increase
!! tabletkicpd : Current MC Pill Dicipline
!! tabletkichday : Current day that the Birth Control is being evaluated for
!! tabletkicheck : If the birth control is automatically handled
!! tabletki : How many packages of Birth Control Pills there are
!! tabletkiold : Total number packages of expired pills
!! tabletkifake : Total number packages of fake/counterfeit pills
!! tabletkirej : Total number packages of factory rejected pills
!! tabletkifert : Total number packages of subsituted fertility pills
!! tabletkisug : Total number packages of sugar pills
!! pillsleft : Total number packages of pills in current package
!! tabletkishot : The flag for being on the Birth Control shot.
!! pillcon : The number for the current birth control chemical level.
!! pilldays : The number of consecutive days (you believe) you have taken your pill
if tabletkishot <= 0: pillcon -= 1000
if pillcon < 0: pillcon = 0
if tabletkicheck = 2:
if tabletkishot ! 0:
!!cycle = 1
mesec = 0
if rand(0,1000) = 1000:
EggRH = rand(20,80)
else
EggRH = 0
end
FocH = EggRH
end
if tabletkishot <= 0:
pillcon -= 29000
if tabletkishot < 0: tabletkishot = 0
end
if shotdays = -8:
tabletkicheck = 0
shotdue = 0
'Your birth control shot is no longer protecting you.'
elseif shotdays <= 0:
if shotdays = 0:
shotdue = 7
else
shotdue -= 1
end
'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <> days.'
elseif shotdays > 1 and shotdays < 5:
'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
elseif shotdays = 1:
'Your birth control shot is due for renewal tomorrow.'
end
if tabletkishot > 0:tabletkishot -= 1
end
tabletkipd += tabletkipi
tabletkipi = 0
tabletkipt = 0
if tabletkicheck = 1:
if tabletki = 0 and pillsleft[ptype] = 0:
tabletkicheck = 0
'You are out of birth control pills.'
tabletkipi = -5
elseif tabletki = 0 and pillsleft[ptype] = 28:
'You have just opened your last package of birth control pills. You need to buy more.'
elseif tabletki = 0 and pillsleft[ptype] <= 5:
'You are running out of birth control pills, you only have a few left.'
end
end
if tabletkicheck = 1 and tabletkichday < daystart:
tabletkichday = daystart
tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
if pcs_sleep < 10:
tabletkimm -= (100- (pcs_sleep * 10))
end
if pcs_willpwr < willpowermax / 4:
tabletkimm = tabletkimm / 4
elseif pcs_mood < 10:
tabletkimm = tabletkimm / 2
end
tabletkiap = tabletkimm
tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
tabletkiap += temprand
if tabletkiap < 300:
if tabletkipd > -10:
if pcs_willpwr < willpowermax / 4:
pilldaychk = 0
'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
elseif pcs_mood < 10:
pilldaychk = 0
'You stare at your package of birth control pills, but you don''t open it.'
elseif pcs_sleep < 10:
pilldaychk = 0
'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
else
pilldaychk = 0
'You just realized you forgot to take your birth control pill today.'
end
end
tabletkipt = 2
tabletkipi = -4
else
if tabletkiap < 350:
temprand = rand(0,5)
else
temprand = rand(0,1000)
end
if temprand = 0:
temprand = rand(0,1)
if temprand = 0:
gs 'din_bad','takepill'
tabletkipt = -2
tabletkipi = 1
else
tabletkipt = 3
tabletkipi = -3
end
if tabletkipd > -10:
pilldaychk = 0
'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
end
if tabletkipd > 0:
if rand(0,9) = 0:
if tabletkipt < 0:
pilldaychk = 0
'You don''t think you have taken your pill today.'
else
pilldaychk = 1
'You think you have taken your pill today.'
end
else
if tabletkipt > 0:
pilldaychk = 0
'You don''t think you have taken your pill today.'
else
pilldaychk = 1
'You think you have taken your pill today.'
end
end
end
else
'You take your birth control pill for the day.'
pilldaychk = 1
gs 'din_bad','takepill'
end
if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
tabletkiday = daystart
tabletkipt = 0
tabletkipi = 0
end
end
elseif tabletkicheck = 0:
if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
if pillcon > 0 and tabletkipi = 0 and rand(0,3) and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
end
if pilldaychk = 1:
pilldays += 1
else
pilldays -= 1
end
pilldaychk = 0
if pilldays > 18: pilldays = 18
if pilldays < 0: pilldays = 0
!!------------------------------------------------------------------------------------------------------------
if lashair ! 1:
pcs_leghair += 1
pcs_pubes += 1
end
if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
if suhbelo > 0:suhbelo2 = suhbelo & suhbelo = 0
if pcs_breath = 1:pcs_breath = 0
if cheatNoEat = 1 and dounspell = 1:fat += 15
!STD check
if SifacOnce = 1:Sifilis += 1
if GerpesOnce = 1:Gerpes += 1
if TriperOnce = 1:Triper += 1
if KandidozOnce = 1:Kandidoz += 1
VeneraN = 0
if VeneraOnce > 0:VeneraOnce = 0
if SifacOnce = 1:VeneraN += 1
if GerpesOnce = 1:VeneraN += 1
if TriperOnce = 1:VeneraN += 1
Venera = VeneraN
if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
if anusK < 0:anusK = 0
if anusK < ashrinkdays:anusK += 1
if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
if pcs_ass < 0: pcs_ass = 0
end
if pcs_vag > 10 and vshrink > 0:
if vaginaK < 0:vaginaK = 0
if vaginaK < vshrinkdays:vaginaK += 1
if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
end
lipkoef -= 1
if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
if preg = 1:
pregtime = pregchem / 24
if pregtimes = 0:pregtimes = 1
elseif preg = 2 and pregminut < totminut:
if Enable_nogameover = 0 :
cla
*clr
over = 4
MSG 'A horrible pain shoots through your body.'
xgt 'gameover'
exit
else
MSG'You should die for giving birth unprepared, but Cheat Mode keeps you Alive.'
pregminut = totminut + 1440
end
elseif preg = 0:
KILLVAR 'pregTalkBrother'
KILLVAR 'pregTalkSister'
KILLVAR 'pregTalkFather'
!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
KILLVAR 'pregTalkMom'
KILLVAR 'pregTalk'
KILLVAR 'pregTalkNat'
KILLVAR 'pregTalkKatja'
KILLVAR 'pregTalkAlbina'
KILLVAR 'pregTalkPC'
KILLVAR 'pregTalkStarlets'
KILLVAR 'pregTalkvball'
KILLVAR 'pregTalkTrack'
end
!!------------------------------------------------------------------------------------------------------------
!! Arousal
!!------------------------------------------------------------------------------------------------------------
if StoryLine = 0 or altQS = 1:
if pcs_horny < 100:pcs_horny += pcs_vag
else
if pcs_vag = 0:
razeba = 0
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
if pcs_horny > 50:pcs_horny -= 25
elseif pcs_vag > 0:
if pregtimes = 0:
if age < 18:
razeba = 1
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
if pcs_horny >= 80:pcs_horny -= 20
elseif age >= 18 and age < 21:
razeba = 2
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
if pcs_horny >= 80:pcs_horny -= 10
elseif age >= 21 and age < 25:
razeba = 3
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
if pcs_horny >= 80:pcs_horny -= 5
elseif age >= 25 and age < 30:
razeba = 4
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
if pcs_horny >= 80:pcs_horny -= 5
elseif age >= 30:
razeba = 5
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
if pcs_horny >= 80:pcs_horny += 1
end
elseif pregtimes > 0:
if preg = 0:
razeba = 5
if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
if pcs_horny >= 80:pcs_horny += 1
elseif preg > 0:
razeba = 6
if pcs_horny < 100:pcs_horny += pregtime / 10
end
end
end
end
if pcs_horny < 0:pcs_horny = 0
!!------------------------------------------------------------------------------------------------------------
!!Exhibitionism
if exhibition_outdoors > 0:
if exhibition_outdoors <= 5:
exhibition_exp += rand(2,5)
elseif exhibition_outdoors <= 10:
exhibition_exp += rand(3,6)
elseif exhibition_outdoors <= 15:
exhibition_exp += rand(4,8)
elseif exhibition_outdoors <= 20:
exhibition_exp += rand(5,10)
elseif exhibition_outdoors <= 25:
exhibition_exp += rand(7,12)
elseif exhibition_outdoors <= 30:
exhibition_exp += rand(8,15)
else
exhibition_exp += rand(10,16)
end
end
exhibition_outdoors = 0
if pcs_exhibition = 0:
if exhibition_exp >= 10: pcs_exhibition = 1 & exhibition_exp -= 10
else
if exhibition_exp >= 10 * pcs_exhibition: exhibition_exp -= 10 * pcs_exhibition & pcs_exhibition += 1
end
if pcs_exhibition > 50 and exhibitionQW < 3: pcs_exhibition = 50
!counter for Dimka avoidance
if dimaFilm = 1 and dimaRudeBlock = 0:
nodimkaK += 1
DimkaWarnedToday = 0
end
!!------------------------------------------------------------------------------------------------------------
!!Fame degradation
gs 'fame', 'deg'
!!------------------------------------------------------------------------------------------------------------
!! Maruda hair mod
!!------------------------------------------------------------------------------------------------------------
!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
if pcs_hairlng < 601:pcs_hairlng += 1
if pcs_haircol ! nathcol:
dyefade -=1
if dyefade < 0: dyefade = 0
if dyefade > 0 and dyefade < 7: dyevmod = 5
if dyefade = 0: dyevmod = 15
end
if hscrunch > 0:
hscrunchrand = rand(1, 100)
if hscrunchrand <= 8:hscrunch -= 1
end
!!------------------------------------------------------------------------------------------------------------
gs 'starenie'
if nark > 60:
nark = 60
elseif nark > 30:
nark -= 3
elseif nark > 0:
nark -= 1
end
if pregtime > 10:fat += 1
!!------------------------------------------------------------------------------------------------------------
!! Pain
!!------------------------------------------------------------------------------------------------------------
if pain['head'] > 0:pain['head'] -= rand(1,3)
if pain['hair'] > 0:pain['hair'] -= rand(1,3)
if pain['ears'] > 0:pain['ears'] -= rand(1,3)
if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
if pain['nose'] > 0:pain['nose'] -= rand(1,3)
if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
if pain['lips'] > 0:pain['lips'] -= rand(1,3)
if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
if pain['throat'] > 0:pain['throat'] -= rand(1,3)
if pain['neck'] > 0:pain['neck'] -= rand(1,3)
if pain['back'] > 0:pain['back'] -= rand(1,3)
if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
if pain['hips'] > 0:pain['hips'] -= rand(1,3)
if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
if pain['legL'] > 0:pain['legL'] -= rand(1,3)
if pain['legR'] > 0:pain['legR'] -= rand(1,3)
if pain['feet'] > 0:pain['feet'] -= rand(1,3)
if pain['toes'] > 0:pain['toes'] -= rand(1,3)
if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
if pain['armL'] > 0:pain['armL'] -= rand(1,3)
if pain['armR'] > 0:pain['armR'] -= rand(1,3)
if pain['hands'] > 0:pain['hands'] -= rand(1,3)
if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
if pain['chest'] > 0:pain['chest'] -= rand(1,3)
if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
if painpub = 2:
if painpubday + 5 < daystart:
$painpub = 'Your vulva is painfully sore.'
painpub = 1
painpubday = daystart
elseif painpubday + 5 >= daystart:
$painpub = 'Your vulva is painfully sore.'
end
elseif painpub = 1:
if painpubday + 5 < daystart:
$painpub = ''
painpub = 0
painpubday = daystart
elseif painpubday + 5 >= daystart:
$painpub = 'Your vulva is a little sore.'
end
end
prezikProver += 1
if pirs_pain_ton > 0:pirs_pain_ton -= 1
if brow > 0 and browper = 0:brow -= 1
if shorthair = 1:
shorthairday += 1
if shorthairday >= 45:shorthairday = 0 & shorthair = 0
end
!!------------------------------------------------------------------------------------------------------------
if KatjaOTN > 0:
if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
if KatjaLust >= 40:KatjaHorny += rand(1, 3)
if KatjaHorny < 0:KatjaHorny = 0
if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
end
if npc_rel['A69'] > 50:npc_rel['A69'] -= 1
!!------------------------------------------------------------------------------------------------------------
!! Generation
!!------------------------------------------------------------------------------------------------------------
if NPCnum < 290:
NPCnow = NPCnum
NPCnum += rand(1, 3)
gs 'npc'
elseif NPCnum < 300:
NPCnow = NPCnum
NPCnum += 1
gs 'npc'
end
!!------------------------------------------------------------------------------------------------------------
if kanikuli = 0:pcs_grades -= 1
dmishaevent = 0
if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
if GspravkaT = 1:Gspravka -= 1
if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
gs 'stat_sklattrib', 'daycall'
if dounspell = 1:
if strenbuf > 90:
strenbuf -= 2
elseif strenbuf > 80:
strenbuf -= 1
end
if vitalbuf > 90:
vitalbuf -= 2
elseif vitalbuf > 80:
vitalbuf -= 1
end
if strenbuf > pcs_stren: strenbuf -= 1
if strenbuf < pcs_stren: strenbuf += 1
if vitalbuf > pcs_vital: vitalbuf -= 1
if vitalbuf < pcs_vital: vitalbuf += 1
if agilbuf > pcs_agil: agilbuf -= 1
if agilbuf < pcs_agil: agilbuf += 1
else
gs 'body_shape'
end
if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
inWorkYoungShop = 0
husbandsexday = 0
borsexkol = 0
givisexday = 0
if shantsr > 0:
pay = shantsr * 5000
karta += pay
shantsr = 0
end
if shantbog > 0:
:shantftb
shantftbgrand = rand(0, 10)
if shantftbgrand > 2:
shantpopala += 1
shantbog -= 1
if shantbog > 0:jump 'shantftb'
elseif shantftbgrand <= 2:
karta += 30000
shantbog -= 1
if shantbog > 0:jump 'shantftb'
end
end
petersexday = 0
klismaday1 = 0
!!------------------------------------------------------------------------------------------------------------
!! Banking
!!------------------------------------------------------------------------------------------------------------
!!MJ: Add some (daily) interest to the bank account.
!!Not very realistic but wont make anyone too rich.
if bankAccount = 1:
kartatotal = karta
:kartaloop
if kartatotal > 20000000:
kartacount += 1
largekarta[kartacount] = 20000000
kartatotal -= 20000000
jump 'kartaloop'
else
largekarta[0] = kartatotal
end
if karta >= 2000000:
!! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
intrate = 60
elseif karta >= 0:
!! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
intrate = 30
else
!! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
intrate = -550
end
:intloop
if kartacount > 0:
smallmoneypos += (largekarta[kartacount] * intrate)
if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
largekarta[kartacount] = 0
kartacount -= 1
jump 'intloop'
else
smallmoneypos += (largekarta[0] * intrate)
largekarta[0] = 0
if kartacount ! 0: kartacount = 0
end
if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
karta += smallmoneypos / 1000000
smallmoneypos = smallmoneypos mod 1000000
end
if atmDeposit > 0 and atmDepositDate <= daystart:
karta += atmDeposit
atmDeposit = 0
end
end
!!------------------------------------------------------------------------------------------------------------
!! Payments
!!------------------------------------------------------------------------------------------------------------
if day = 25:
! -- meynold payment ---!
if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
money += 10000
'For your efforts aunt Tamara gave you 10000 rubles'
mey_tamara_help_count = 0
end
!--
if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
Pay = PersSecWorkTimes * 2500
PersSecWorkTimes = 0
karta += Pay
paydaybistrosec = 1
'Your salary of <> ₽ has been paid into your bank account for your job as a secretary.'
end
if workKafe = 1 and paydayKafe = 0:
paydayKafe = 1
pay = smenaKafe * 600
karta += pay
smenaKafe = 0
'Your salary of <> ₽ has been paid into your bank account for your job as a waitress in a cafe.'
end
if workhosp = 1 and nopaypoly = 0:
pay = smena * 1000
karta += pay
smena = 0
nopaypoly = 1
'Your salary of <> ₽ has been paid into your bank account for your work in the clinic.'
end
if worksalon = 1 and nopaysalon = 0:
pay = smena * 800
karta += pay
smena = 0
nopaysalon = 1
'Your salary of <> ₽ has been paid into your bank account for your work in a beauty salon.'
end
if tanwork = 1 and nopaytanwork = 0:
nopaytanwork = 1
karta += 25000
'Your salary of 25,000 ₽ has been paid into your bank account for your work as a house maid.'
end
if workSec = 1 and paydaySec = 0:
paydaySec = 1
pay = sekDay * 800
if officebestslut >= 3:pay += 20000
karta += pay
sekDay = 0
'Your salary of <> ₽ has been paid into your bank account for your job as a secretary.'
end
if workFabrika = 1:
pay = smenaFabrika * 400
smenaFabrika = 0
karta += pay
'Your salary of <> ₽ has been paid into your bank account for your job at the garment factory.'
end
if husband > 0 and paydayHusb = 0:
paydayHusb = 1
if husbFin = 0:huspay = 15000
if husbFin = 1:huspay = 25000
if husbFin = 2:huspay = 40000
karta += huspay
'Your husband has paid <> ₽ into your bank account.'
end
if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & 'You have received 1,200 ₽ scholarship.'
if housr = 1 and haday = 0 and BuyHous = 0:haday = 1 & money -= 3000 & 'You paid 3,000 ₽ for your apartment.'
if housr = 1 and electroday = 0:
electroday = 1
if elektro >= 800:elektro = 800 + rand(0, 100)
money -= elektro
'You paid <> for electricity.'
end
if housr = 1 and kabel > 0 and kabelday = 0:kabelday = 1 & money -= 300 & 'You have paid 300 ₽ for cable TV.'
end
if day ! 25:
if paydayHusb = 1:paydayHusb = 0
if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
if workSec = 1 and paydaySec = 1:paydaySec = 0
if housr = 1 and haday = 1 and BuyHous = 0:haday = 0
if housr = 1 and electroday = 1:electroday = 0
if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
if stipuhaday = 1:stipuhaday = 0
if nopaytanwork = 1:nopaytanwork = 0
if nopaypoly = 1:nopaypoly = 0
if nopaysalon = 1:nopaysalon = 0
if paydaybistrosec = 1:paydaybistrosec = 0
end
if sdaday = day and sdamonth = month and housr = 0:
housr = 1
'Your tenants have moved out and your apartment is now vacant.'
!msg 'Your tenants have moved out and your apartment is now vacant.'
end
!!------------------------------------------------------------------------------------------------------------
if day > monthsEnd[month]:
day -= monthsEnd[month]
month += 1
if month > 12: month = 1 & year += 1
!MJ: Dont think that one is needed. But it was in the original loop.
if month < 1: month = 1
$month = $monthName[month]
end
!MJ: Dont think that one is needed. But it was here already.
if day <= 0:day = 1
if week > 7:
:loopweek
week -= 7
husbandrink = 0
if military = 1:military = 0
if week > 7:jump 'loopweek'
end
gs 'outdoors', 'weather'
killvar 'holyday'
killvar 'kanikuli'
if storyline = 1:
!!Party refresh if you didn''t see sis
if week = 1 and sisboyparty ! 2:
if sisboyparty = -1: sisboyparty = 1
if sisboypartyQW >= 2 and sisboyparty > 0:
sisboyparty_day = daystart + rand(3,5)
end
end
!!missed graduation
if month = 5 and day = 25:
if schoool_year = 2001 and year = 2018 and kanikuli ! 7:
grad_miss = daystart + 1
elseif schoool_year = 2000 and year = 2017 and kanikuli ! 7:
grad_miss = daystart + 1
end
end
if SchoolAtestat = 0:
if month = 12 and day > 25:
if day < 31:
$holyday = 'Winter Break in <<32-day>> days.'
else
$holyday = 'Winter Break starts tomorrow.'
end
elseif month = 1 and day <= 15:
kanikuli = 2
if day < 13:
$holyday = 'Winter Break.'
elseif day < 15:
$holyday = 'Winter Break ends in <<16-day>> days.'
else
$holyday = 'Last day of Winter Break.'
end
elseif month = 3 and day > 13:
if day < 19:
$holyday = 'Spring Break starts in <<20-day>> days.'
elseif day = 19:
$holyday = 'Spring Break starts tomorrow.'
elseif day >= 20 and day <= 26:
kanikuli = 3
if day < 24:
$holyday = 'Spring Break.'
elseif day < 26:
$holyday = 'Spring Break ends in <<27-day>> days.'
else
$holyday = 'Last day of Spring Break.'
end
end
elseif month = 5:
if ( (schoool_year = 2000 and year = 2017) or (schoool_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
if day = 25:
kanikuli = 6
$holyday = 'Your graduation is today. Be there by 8:00.'
elseif day = 24:
$holyday = 'Your graduation is tomorrow. Be there by 8:00.'
else
$holyday = 'Your graduation is in <<26-day>> days.'
end
elseif day >= 25:
if day = 31:
$holyday = 'Summer Break starts tomorrow.'
else
$holyday = 'Summer Break starts in <<32-day>> days.'
end
end
elseif month = 6 or month = 7 or month = 8:
kanikuli = 4
if month = 8 and day >= 25:
if day = 31:
$holyday = 'Last day of Summer Break.'
else
$holyday = 'Summer Break ends in <<32-day>> days.'
end
else
$holyday = 'Summer Break.'
end
elseif month = 10 and day >= 29:
$holyday = 'Autumn Break starts in <<35-day>> days.'
elseif month = 11:
if day < 3:
$holyday = 'Autumn Break starts in <<4-day>> days.'
elseif day = 3:
$holyday = 'Autumn Break starts tomorrow.'
elseif day < 6:
kanikuli = 1
$holyday = 'Autumn Break.'
elseif day < 11:
kanikuli = 1
$holyday = 'Autumn Break ends in <<12-day>> days.'
elseif day = 11:
kanikuli = 1
$holyday = 'Last day of Autumn Break.'
end
end
end
end
killvar 'natholi'
if month = 1 and day >= 1 and day <= 8:
$natholi = 'New Year holidays'
natholi = 1
if day = 1:$natholi += ', New Year'
if day = 7:$natholi += ', Christmas'
end
if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
if natholi = 1:
if $holyday ! '': $holyday += '
'
$holiday += $natholi
end
if bcream_used >= 1:
bcream_used = 0
temp = rand(0,5)
nbsize += temp
if temp > 0:'Feels like your breasts have grown slightly.'
end
if steroid_dose >= 1:
if lashair < 1:
pcs_pubes += steroid_dose
pcs_leghair += steroid_dose
end
steroid_dose = 0
end
if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
if aphrodisiac_timer ! 0:aphrodisiac_timer = 0
if mentats_dose = 1:
mentats_dose = 0
elseif mentats_dose > 1:
pain['head'] += 20 * mentats_dose
mentats_dose = 0
end
if breastpumped = 0 and breastcount > 0: breastcount -= 1
if breastpumped = 1: breastpumped = 0
!!Appearance base calculation call
gs 'body_shape', 'basebeautycalc'
! vovan, from 1.2.5
hanters_check = 0
mushroom_pickers = 0
horse_river = 0
haying_time = 0
mira_go_river = 0
forestpicnic = 0
if Mira_no > 0: Mira_no -= 1
if Mira_no < 0: Mira_no = 0
if catout ! 0: catout = 0
if feedcat ! 0: feedcat = 0
loc_count = ARRSIZE('$CloLosLoc')
i = loc_count - 1
:loopCloLoc
$CloLoc = $CloLosLoc[i]
CloLostOn = CloLosDay[$CloLoc]
if CloLostOn + RAND(7,14) < daystart :
gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
end
i -=1
if i > -1 :jump 'loopCloLoc'
--- cikl ---------------------------------