1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546 |
- # cikl
- !!------------------------------------------------------------------------------------------------------------
- !! Masseuse Job (MUST COME BEFORE DAY CHANGES)
- !!------------------------------------------------------------------------------------------------------------
- if masseuse['jobtype'] < 1:
- masseuse['<<week>>_shift_1'] = 0
- masseuse['<<week>>_shift_2'] = 0
- masseuse['<<week>>_shift_3'] = 0
- end
- if (masseuse['<<week>>_shift_1'] ! 0 or masseuse['<<week>>_shift_2'] ! 0 or masseuse['<<week>>_shift_3'] ! 0) and masseuse['last_worked_day'] ! daystart:
- masseuse['missed_shift2'] = 1
- end
- !!----------------------------------------------------------------------------
- !! Time calculations
- day += 1
- week += 1
- hour -= 24
- if day > monthsEnd[month]:
- day -= monthsEnd[month]
- month += 1
- !! Changing the year at new year and making sure February have the correct number of days.
- if month > 12:
- month = 1
- year += 1
- if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
- monthsend[2] = 29
- else
- monthsend[2] = 28
- end
- end
- !!MJ: Dont think that one is needed. But it was in the original loop.
- if month < 1: month = 1
- $month = $monthName[month]
- !! new years party calculation
- temp = func('shortgs','dow',year,12,31)
- if temp < 6:
- nyp_day = 31
- elseif temp = 6:
- nyp_day = 30
- else
- nyp_day = 29
- end
- end
- !!MJ: Dont think that one is needed. But it was here already.
- if day <= 0:day = 1
- ciklNewWeek = 0
- if week > 7:
- odd_week = iif(odd_week,0,1)
- ciklNewWeek = 1
- :loopweek
- week -= 7
- husbandrink = 0
- if military = 1:military = 0
- if week > 7:jump 'loopweek'
- end
- gs 'daystart'
- !!----------------------------------------------------------------------------
- !!Fame call to update all the fame variables
- gs 'fame'
- !!Cycle stats for Contacts
- gs 'telefon', 'DailyStatRefresh', ciklNewWeek
- !!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
- !!------------------------------------------------------------------------------------------------------------
- !! Job Stuff
- !!------------------------------------------------------------------------------------------------------------
- !! masseuse paycheck
- if masseuse['weeks_pay'] > 0 and week = 5:masseuse['paycheck'] = 1
- if masseuse['jobtype'] > 0 and week = 5 and masseuse['weeks_pay'] > 0:
- masseuse['payday'] = 1
- end
- if week = 7 and masseuse['schedule_update'] ! daystart: gs 'masseuse_schedule','schedule_reset'
- !!modelling check
- if model_week ! (daystart - week) / 7:model_job_week = 0
- !!acting strings to set available jobs
- if casting = 1:
- acting_string1 = rand(10000000,199999999)
- acting_string2 = rand(10000000,199999999)
- end
- dynamic $hypnoDaychange
- !!phone reset for bf
- ringA = 0
- ringB = 0
- ringC = 0
- !!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 birthday = day and birthmonth = month and model['age'] > 0:model['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
- '<b><font color="red">Your husband has filed for a divorce.</font></b>'
- end
- !! after having surgery you will be in recuperation for a few days
- if surgeryday ! '':
- if daystart - 7 <= surgeryday:
- dailyhealthimprov = (daystart - surgeryday) * 50
- pcs_health = dailyhealthimprov
- recuperation = 1
- else
- killvar 'recuperation'
- killvar 'dailyhealthimprov'
- end
- end
- !!Street events daily reset
- streetevent_hour = -2
- !!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 dyneval ('RESULT = <<$coatworntype>>_coats_h[<<coatwornnumber>>]') <= 0: $coatworntype = 'none'
- !! Abortion and pregnancy recovery resets if finished
- if abortionbirthdate ! 0 and daystart - abortionbirthdate > 24: abortionbirthdate = 0
- if pregbirthdate ! 0 and daystart - pregbirthdate > 73: pregbirthdate = 0
- !!------------------------------------------------------------------------------------------------------------
- !! Nympho
- !!------------------------------------------------------------------------------------------------------------
- !! Reserved for nympho trait
- if nymphosex_flag = 1:
- end
- nymphosex_flag = 0
- !!------------------------------------------------------------------------------------------------------------
- !! Bimbo
- !!------------------------------------------------------------------------------------------------------------
- !!bimbo flag set in stat_display if bimbo clothing, shoes and makeup are worn at same time
- if succubusflag = 0 or CheatBimbo2 = 1:
- if cheatBimbo = 0 and bimbo_flag = 1:
- bimbo += 1
- end
- end
- !!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:
- if bimbo_flag = 0:
- bimbo -= 2
- end
- 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 won''t permanently change character stats
- if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
- if CheatBimbo3 = 0:
- if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
- if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 4)
- if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 3)
- elseif CheatBimbo3 = 1:
- if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = 0
- if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = 0
- if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = 0
- end
- !!A Succubus cannot be a Bimbo
- if succubusflag = 1 and CheatBimbo3 = 0:
- if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
- elseif bimbolevel >= 1:
- !!Checks flag and adds withdrawal if 0
- if bimbo_flag = 0:
- bimbowithdrawal += 1
- else
- bimbowithdrawal = 0
- end
- end
- if bimbo < 0: bimbo = 0
- !! flag reset
- bimbo_flag = 0
- !!------------------------------------------------------------------------------------------------------------
- !! Butt slut
- !!------------------------------------------------------------------------------------------------------------
- if orgasm_anal > orgasm_anal[1]:
- if traits['buttslut_lvl'] > 0: traits['buttslut_exp'] += orgasm_anal - orgasm_anal[1]
- else
- if traits['buttslut_exp'] > 1: traits['buttslut_exp'] -= 1
- end
- orgasm_anal[1] = orgasm_anal
- if orgasm_anal > 10 and traits['buttslut_lvl'] = 0: traits['buttslut_lvl'] = 1
- if traits['buttslut_exp'] >= 15 and traits['buttslut_lvl'] = 1: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
- if traits['buttslut_exp'] >= 50 and traits['buttslut_lvl'] = 2: traits['buttslut_lvl'] = 3
- if traits['buttslut_exp'] <= 0 and traits['buttslut_lvl'] = 3: traits['buttslut_lvl'] = 2 & traits['buttslut_exp'] = 0
- !!------------------------------------------------------------------------------------------------------------
- !! Exhibitionism
- !!------------------------------------------------------------------------------------------------------------
- if pcs_exhib > 0 or exhibitionist_lvl > 0:
- if pcs_exhib < 10:
- pcs_exhib -= 1
- elseif pcs_exhib < 50:
- exhibitionist_lvl = 1
- elseif pcs_exhib < 100 or exhibitionQW < 3:
- exhibitionist_lvl = 2
- elseif exhibitionQW > 2:
- exhibitionist_lvl = 3
- end
- end
- !!Inhibition increases from wearing revealing clothing
- if exhibition_outdoors > 0:
- if pcs_inhib > 90:
- exhibition_outdoors = exhibition_outdoors * 3
- elseif pcs_inhib > 75:
- exhibition_outdoors = exhibition_outdoors * 5 / 2
- elseif pcs_inhib > 60:
- exhibition_outdoors = exhibition_outdoors * 2
- elseif pcs_inhib > 30:
- exhibition_outdoors = exhibition_outdoors * 3 / 2
- end
- if exhibition_outdoors <= 5:
- inhib_exp += rand(3,6)
- elseif exhibition_outdoors <= 10:
- inhib_exp += rand(5,9)
- elseif exhibition_outdoors <= 15:
- inhib_exp += rand(7,12)
- elseif exhibition_outdoors <= 20:
- inhib_exp += rand(9,15)
- elseif exhibition_outdoors <= 25:
- inhib_exp += rand(12,20)
- elseif exhibition_outdoors <= 30:
- inhib_exp += rand(16,25)
- elseif exhibition_outdoors <= 35:
- inhib_exp += rand(20,30)
- elseif exhibition_outdoors <= 40:
- inhib_exp += rand(25,40)
- elseif exhibition_outdoors <= 50:
- inhib_exp += rand(35,50)
- elseif exhibition_outdoors <= 65:
- inhib_exp += rand(50,75)
- else
- inhib_exp += rand(70,100)
- end
- end
- exhibition_outdoors = 0
- !!------------------------------------------------------------------------------------------------------------
- !! Succubus Level & hunger calcs
- !!------------------------------------------------------------------------------------------------------------
- if succubusflag = 1: gs 'succubus','cikl'
- !!------------------------------------------------------------------------------------------------------------
- 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
- gs 'sweat', 'add', 2
- if pcs_tan > 0: pcs_tan -= 1
- if prezikmsg = 2: prezikmsg = 3
- gs 'fertility', 'birth_control'
- !!------------------------------------------------------------------------------------------------------------
- if pcs_breath = 1:pcs_breath = 0
- if cheatNoEat = 1 and dounspell = 1:fat += 15
- !!Trauma decay
- if mood_trauma > 0: mood_trauma -= 1
- !!STD check
- if SifacOnce = 1:Sifilis += 1
- if GerpesOnce = 1:Gerpes += 1
- if TriperOnce = 1:
- if Triper > 0:
- Triper += 1
- end
- if TriperOral > 0:
- TriperOral += 1
- end
- If TriperOral > 14 and TriperNapr = 0:
- if rand(TriperOral,100) > 80:
- TriperOral = 0
- if Triper = 0:TriperOnce = 0
- TriperOralSigns = 0
- end
- end
- end
- if KandidozOnce = 1:Kandidoz += 1
- Venera = 0
- if SifacOnce = 1: Venera += 1
- if GerpesOnce = 1: Venera += 1
- if TriperOnce = 1: Venera += 1
- !! Fail safe
- if ashrinkdays = 0: ashrinkdays = 6
- if vshrinkdays = 0: vshrinkdays = 6
- if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
- if daystart mod(ashrinkdays) = 0: pcs_ass -= ashrink
- if pcs_ass < 0: pcs_ass = 0
- end
- if pcs_vag > 10 and vshrink > 0:
- if daystart mod(vshrinkdays) = 0: pcs_vag -= vshrink
- if pcs_vag < 0: pcs_vag = 0
- end
- lipkoef -= rand(0,1)
- if lipkoef <= 0: lipkoef = 0
- if isprok = 1 or isprokp = 1:
- isprok_lastday = 1
- else
- isprok_lastday = 0
- end
- 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 '<center><b>A horrible pain shoots through your body.</b></center>'
- xgt 'gameover'
- exit
- else
- MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
- pregminut = totminut + 1440
- end
- elseif preg = 0:
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A14'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A16'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A23'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A28'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A29'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A33'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A34'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A69'
- gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A131'
- !{killvar 'pregTalkFamily' -- Do not kill this (Abortion talk).}
- killvar 'pcs_pregtalk'
- killvar 'pregTalk'
- killvar 'pregtime'
- killvar 'knowpreg'
- killvar 'denypreg'
- killvar '$wombthfath'
- end
- !!------------------------------------------------------------------------------------------------------------
- !! Arousal
- !!------------------------------------------------------------------------------------------------------------
- if $start_type[1] ! 'nomagic':
- if pcs_horny < 100:pcs_horny += pcs_vag
- else
- if stat['virgin'] = 1:
- razeba = 0
- if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
- if pcs_horny > 50:pcs_horny -= 25
- elseif stat['virgin'] = 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 += pregchem / 240
- end
- end
- end
- end
- if pcs_horny < 0:pcs_horny = 0
- !!------------------------------------------------------------------------------------------------------------
- !reset Natasha Belova''s clothes
- if NatbelQW['seethroughwearing'] = 1: NatbelQW['seethroughwearing'] = 0
- !!------------------------------------------------------------------------------------------------------------
- !counter for Dimka avoidance
- if dimaFilm = 1 and dimaRudeBlock = 0:
- nodimkaK += 1
- DimkaWarnedToday = 0
- end
- !!------------------------------------------------------------------------------------------------------------
- !!Fame degradation
- gs 'fame', 'deg'
- !!Traits
- gs 'traits', 'overnight'
- !!------------------------------------------------------------------------------------------------------------
- !! Clothing wear and tear
- gs 'starenie'
- !!cocaine reduction
- if nark > 60:
- nark = 60
- elseif nark > 30:
- nark -= 3
- elseif nark > 0:
- nark -= 1
- end
- if pregchem > 240: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['labia'] > 0:pain['labia'] -= 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 shorthair = 1:
- shorthairday += 1
- if shorthairday >= 45:shorthairday = 0 & shorthair = 0
- end
- !!------------------------------------------------------------------------------------------------------------
- !!Keeping Christina hating Sveta
- gs 'Zvereva_events', 'cikl'
- !!Updating Katja''s variables.
- gs 'katjaHomeTalk', 'cikl'
- if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
- !!Making Sonia''s fall progress if the player do not see the scenes at the disco, by making it such that if at a Sunday her fall have not advanced this weekend it will automatically advance.
- gs 'soniadisco', 'cikl'
- dmishaevent = 0
- if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
- if GspravkaT = 1:Gspravka -= 1
- if BurgerQW['IlyQW'] = 2 and BurgerQW['IlyQWPoliceDayCount'] = 30:BurgerQW['IlyQW'] = 3
- if BurgerQW['IlyQW'] = 2 and BurgerQW['IlyQWPoliceDayCount'] > 0 and BurgerQW['IlyQWPoliceDayCount'] < 30:BurgerQW['IvanQWPoliceDayCount'] += 1
- !!remove degradation for inhibition
- inhib_flr = inhib_lvl
- gs 'stat_sklattrib', 'daycall'
- !Update body measurements and base appearnce
- gs 'body', 'DailyUpdate'
- gs 'AppearanceSystem', 'UpdateBaseAppearnce'
- gs 'body_desc'
- if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
- !!Pussy_Kats job settings
- inWorkYoungShop = 0
- if week = 1 and young_shop_work = 100: young_shop_work = 1
- if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
- if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
- 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
- !!ugly duckling start becoming a swan
- if uglyduck_flag = 1 and hotcat >= 5:
- killvar 'uglyduck_flag'
- gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 10, 10, 0, 0
- grupvalue[1] += 100
- old_grupvalue[1] += 100
- end
- !! Resetting relationships that go over the max
- :toptemprel
- if temprel < aarraynumber:
- temprel +=1
- if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
- jump 'toptemprel'
- end
- killvar 'temprel'
- !!------------------------------------------------------------------------------------------------------------
- !! Banking
- !!------------------------------------------------------------------------------------------------------------
- !!MJ: Add some (daily) interest to the bank account.
- !!Not very realistic but won''t 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['mey_vika_qw'] >= 35 and mey_tamara['help_count'] < 10 and mey_tamara['qw_end'] = 0:
- karta += 10000
- '<b><font color=green>For your efforts aunt Tamara gave you 10,000 rubles</font></b>'
- mey_tamara['help_count'] = 0
- elseif mey_vika['mey_vika_qw'] >= 35 and mey_tamara['help_count'] >= 10 and mey_tamara['qw_end'] = 0:
- karta += 15000
- '<b><font color=green>For your efforts aunt Tamara gave you 15,000 rubles</font></b>'
- mey_tamara['help_count'] = 0
- end
- if BurgerQW['Secretary'] = 1 and BurgerQW['SecretaryTimesWorked'] > 0 and paydaybistrosec = 0:
- Pay = BurgerQW['SecretaryTimesWorked'] * 1250
- BurgerQW['SecretaryTimesWorked'] = 0
- karta += Pay
- paydaybistrosec = 1
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
- end
- if workKafe = 1 and paydayKafe = 0:
- paydayKafe = 1
- pay = smenaKafe * 600
- karta += pay
- smenaKafe = 0
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
- end
- if workhosp = 1 and nopaypoly = 0:
- pay = smena * 1000
- karta += pay
- smena = 0
- nopaypoly = 1
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
- end
- if worksalon = 1 and nopaysalon = 0:
- pay = smenaSalon * 1560
- karta += pay
- smenaSalon = 0
- nopaysalon = 1
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
- end
- if tanwork = 1 and nopaytanwork = 0:
- nopaytanwork = 1
- karta += 10000
- '<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
- end
- if workSec = 1 and paydaySec = 0:
- paydaySec = 1
- pay = sekDay * 1500
- karta += pay
- sekDay = 0
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
- end
- if workFabrika = 1:
- pay = smenaFabrika * 600
- smenaFabrika = 0
- karta += pay
- '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
- end
- if husband > 0 and paydayHusb = 0:
- paydayHusb = 1
- if husbFin = 0:huspay = 20000
- if husbFin = 1:huspay = 30000
- if husbFin = 2:huspay = 40000
- karta += huspay
- '<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
- end
- if func('uniutil', 'scholarship' , 'is_active') and scholarshipday = 0:
- scholarshipday = 1
- karta += func('uniutil', 'scholarship', 'get')
- '<b><font color="green">You have received '+func('uniutil', 'scholarship', 'get')+' <b>₽</b> from your scholarship.</font></b>'
- end
- ! Utilities for all apartments.
- if (home_owned[1] = 1 or home_owned[1] = 2 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
- gs 'housing', 'util'
- if bankAccount = 1 and karta >= elektro:
- '<b><font color="green"><<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
- electroday = 1
- if elektro >= 2000:
- elektro = 2000 + rand(0, 100)
- karta -= elektro * hcount_util
- end
- elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
- '<b><font color="green"><<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
- electroday = 1
- if elektro >= 2000:
- elektro = 2000 + rand(0, 100)
- karta -= elektro * hcount_util
- end
- elseif bankAccount = 0 and money >= elektro:
- '<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
- electroday = 1
- if elektro >= 2000:
- elektro = 2000 + rand(0, 100)
- money -= elektro * hcount_util
- end
- else
- '<b><font color="red">Your card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
- end
- end
- ! Cable for all apartments
- if kabel > 0 and kabelday = 0:
- gs 'housing', 'cable'
- if bankAccount = 1 and karta >= (300 * hcount_cable):
- '<b><font color="green">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
- kabelday = 1
- karta -= 300 * hcount_cable
- elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
- '<b><font color="green">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
- kabelday = 1
- karta -= 300 * hcount_cable
- elseif bankAccount = 0 and money >= (300 * hcount_cable):
- '<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
- kabelday = 1
- money -= 300 * hcount_cable
- else
- '<b><font color="red">Your card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
- end
- end
- 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 (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
- if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
- if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
- if scholarshipday = 1:scholarshipday = 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 home_owned[1] = 3:
- home_owned[1] = 2
- '<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
- !msg 'Your tenants have moved out and your apartment is now vacant.'
- end
- !!----------------------------------------
- !! Rent
- !!----------------------------------------
- if home_owned[1] = 1 or home_owned[4] > 0:
- gs 'housing', 'rent'
- ! Rent for the city apartment
- if home_owned[1] = 1:
- if ArendHouseSL <= 2:
- !From bank
- if bankAccount = 1 and karta >= home_rent[1]:
- '<b><font color="green">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
- karta -= home_rent[1]
- ArendHouseSL += ArendHouseSL_due
- elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
- '<b><font color="green">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
- karta -= home_rent[1]
- ArendHouseSL += ArendHouseSL_due
- elseif bankAccount = 0:
- '<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please make manual payment as soon as possible.</font></b>'
- else
- nl
- '<b><b><font color="red">Your card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
- end
- end
- end
- ! Rent for the Pushkin apartment
- if home_owned[4] > 0:
- if ArendHouseSL4 <= 2:
- !From bank
- if bankAccount = 1 and karta >= home_rent[4]:
- '<b><font color="green">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
- karta -= home_rent[4]
- ArendHouseSL4 += ArendHouseSL4_due
- elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4]:
- '<b><font color="green">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
- karta -= home_rent[4]
- ArendHouseSL4 += ArendHouseSL4_due
- elseif bankAccount = 0:
- '<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please make manual payment as soon as possible.</font></b>'
- else
- nl
- '<b><b><font color="red">Your card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
- end
- end
- end
- end
- if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
- if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
- if home_owned[1] = 1: ArendHouseSL -= 1
- if home_owned[4] > 0: ArendHouseSL4 -= 1
- !!------------------------------------------------------------------------------------------------------------
- killvar 'holyday'
- killvar 'kanikuli'
- killvar 'pcs_ate'
- killvar 'pcs_drank'
- !! THIS IS THE OLD SYSTEM. Only keeping this in while it''s still in use as reference for the old variables, otherwise THESE VALUES ARE NOT THE CORRECT ONES FOR NEW VARIABLES
- !!sisboyparty
- !!-1 - don''t go to the party
- !!0 - don''t know about parties
- !!1 - knows about the parties
- !!2 - agreed to go to the party
- !!3 - Missed the party
- !!suspension ends
- if suspended['day'] = daystart: suspended['on'] = 0
- if mid($start_type,1,2) = 'sg':
- !!Party refresh if you didn''t see sis
- if week = 1 and sisboyparty ! 2:
- if sisterQW['party'] = -1: sisterQW['party'] = 0
- if sisboypartyQW >= 2 and sisboyparty > 0:
- sisboyparty_day = daystart + rand(3,5)
- end
- end
- if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
- if SchoolAtestat = 0 and SchoolBlock = 0:
- if month = 12 and day > 25:
- if day < 31:
- $holyday = '<b>Winter Break in <<32-day>> days.</b>'
- else
- $holyday = '<b>Winter Break starts tomorrow.</b>'
- end
- elseif month = 1 and day <= 15:
- kanikuli = 2
- if day < 13:
- $holyday = '<b>Winter Break.</b>'
- elseif day < 15:
- $holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
- else
- $holyday = '<b>Last day of Winter Break.</b>'
- end
- elseif month = 3 and day > 13:
- if day < 19:
- $holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
- elseif day = 19:
- $holyday = '<b>Spring Break starts tomorrow.</b>'
- elseif day >= 20 and day <= 26:
- kanikuli = 3
- if day < 24:
- $holyday = '<b>Spring Break.</b>'
- elseif day < 26:
- $holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
- else
- $holyday = '<b>Last day of Spring Break.</b>'
- end
- end
- elseif month = 5:
- if year = 2017:
- if day = 25:
- kanikuli = 6
- SchoolAtestat = -1
- $holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
- elseif day = 24:
- $holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
- elseif day >= 19:
- $holyday = '<b>Your graduation is in <<26-day>> days.</b>'
- end
- elseif day >= 25:
- if day = 31:
- $holyday = '<b>Summer Break starts tomorrow.</b>'
- else
- $holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
- end
- end
- elseif month = 6 or month = 7 or month = 8:
- kanikuli = 4
- if month = 8 and day >= 25:
- if day = 31:
- $holyday = '<b>Last day of Summer Break.</b>'
- else
- $holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
- end
- else
- $holyday = '<b>Summer Break.</b>'
- end
- !! start inc 'I put it here because I want to reset these variables during the summer, they are related to cheerleading and it is useful just in case that PC will be part of the team for more than one year.'
- killvar 'first_time_outside_in_cold_weather'
- killvar 'first_time_doing_basketball'
- killvar 'first_time_spring_football_match'
- !! end inc
- elseif month = 10 and day >= 29:
- $holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
- elseif month = 11:
- if day < 3:
- $holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
- elseif day = 3:
- $holyday = '<b>Autumn Break starts tomorrow.</b>'
- elseif day < 6:
- kanikuli = 1
- $holyday = '<b>Autumn Break.</b>'
- elseif day < 11:
- kanikuli = 1
- $holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
- elseif day = 11:
- kanikuli = 1
- $holyday = '<b>Last day of Autumn Break.</b>'
- end
- end
- if kanikuli = 0 and week < 6:
- if week = 1:
- !!The start and end values for i have to be changed if more female schoolgirl npcs are added to the game
- i = 11
-
- :hotcat_calc_jump
- i += 1
-
- if hotcat_rating['A<<i>>'] = 0: jump 'hotcat_calc_jump'
-
- switch_rand = rand(1,100)
-
- if hotcat_movement['A<<i>>'] = 0 and switch_rand < 21:
- hotcat_rating['A<<i>>'] -= 1
- hotcat_movement['A<<i>>'] -= 1
- elseif hotcat_movement['A<<i>>'] = 0 and switch_rand > 80:
- hotcat_rating['A<<i>>'] += 1
- hotcat_movement['A<<i>>'] += 1
- elseif hotcat_movement['A<<i>>'] = 1 and switch_rand > 40:
- hotcat_rating['A<<i>>'] -= 1
- hotcat_movement['A<<i>>'] -= 1
- elseif hotcat_movement['A<<i>>'] = -1 and switch_rand > 40:
- hotcat_rating['A<<i>>'] += 1
- hotcat_movement['A<<i>>'] += 1
- end
- if i < 145: jump 'hotcat_calc_jump'
- killvar 'i'
- killvar 'switch_rand'
- end
-
- !! Resetting the late flag
- if late = 1: late = 0
-
- end
- !!Social grup changes
-
- !!Change from relatonship with other students.
- gs 'gschool_socialchg', 'group_student_rel_change'
- !!Decay for the school groups
- if grupvalue[1] > 0:
- grupvalue[1] -= rand(0,1)
- else
- grupvalue[1] = 0
- end
- if grupvalue[2] > 0:
- grupvalue[2] -= rand(0,1)
- else
- grupvalue[2] = 0
- end
- if grupvalue[3] > 0:
- grupvalue[3] -= rand(0,1)
- else
- grupvalue[3] = 0
- end
- if grupvalue[4] > 0:
- grupvalue[4] -= rand(0,1)
- else
- grupvalue[4] = 0
- end
- !!Maximum increase for grupvalues is 10 and max decay is 30
- if oldgrupvalue_set = 0:
- oldgrupvalue_set = 1
- old_grupvalue[1] = grupvalue[1]
- old_grupvalue[2] = grupvalue[2]
- old_grupvalue[3] = grupvalue[3]
- old_grupvalue[4] = grupvalue[4]
- else
- if old_grupvalue[1] + 10 < grupvalue[1]: grupvalue[1] = old_grupvalue[1] + 10
- if old_grupvalue[2] + 10 < grupvalue[2]: grupvalue[2] = old_grupvalue[2] + 10
- if old_grupvalue[3] + 10 < grupvalue[3]: grupvalue[3] = old_grupvalue[3] + 10
- if old_grupvalue[4] + 10 < grupvalue[4]: grupvalue[4] = old_grupvalue[4] + 10
- if old_grupvalue[1] - 30 > grupvalue[1]: grupvalue[1] = old_grupvalue[1] - 30
- if old_grupvalue[2] - 30 > grupvalue[2]: grupvalue[2] = old_grupvalue[2] - 30
- if old_grupvalue[3] - 30 > grupvalue[3]: grupvalue[3] = old_grupvalue[3] - 30
- if old_grupvalue[4] - 30 > grupvalue[4]: grupvalue[4] = old_grupvalue[4] - 30
- end
- !!Limit to max school group values
- if grupvalue[1] > 1000: grupvalue[1] = 1000
- if grupvalue[2] > 1000: grupvalue[2] = 1000
- if grupvalue[3] > 1000: grupvalue[3] = 1000
- if grupvalue[4] > 1000: grupvalue[4] = 1000
- old_grupvalue[1] = grupvalue[1]
- old_grupvalue[2] = grupvalue[2]
- old_grupvalue[3] = grupvalue[3]
- old_grupvalue[4] = grupvalue[4]
-
- elseif SchoolAtestat = -1:
- if home_owned[2] = 0:
- $holyday = '<b>You missed your graduation. You could pick up your diploma at the school.</b>'
- else
- $holyday = '<b>You missed your graduation. Maybe your mother picked up your diploma.</b>'
- end
- end
- !!Brother''s dick growth as he gets older
- !Commented out till some future time
- !if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26:
- ! kolka_dick_day = daystart
- ! npc_dick['A34'] += 1
- !end
- !if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
- ! $npc_thdick['A34'] = 'well proportioned'
- !elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
- ! $npc_thdick['A34'] = 'thick'
- !end
- !! Calcualting the increase/decreas of the grade each week.
- gs 'gschool', 'weekly grade update'
- 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 += '<br>'
- $holyday += $natholi
- end
- !!------------------------------------------------------------------------------------------------------------------------
- !!Setting the the weeks in the university semester and makeing sure that the gades are calculated at the right times
- gs 'uni_lessons', 'cikl'
- !!------------------------------------------------------------------------------------------------------------------------
- if bcream_used >= 1:
- bcream_used = 0
- temp = rand(0,max(nbsize-genbsize+5,5)) / max(nbsize-genbsize,1)
- if temp > 0: temp = 1
- 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
- !! vovan, from 1.2.5
- hunters_check = 0
- mushroom_pickers = 0
- mira_go_river = 0
- forestpicnic = 0
- if Mira_no > 0: Mira_no -= 1
- if Mira_no < 0: Mira_no = 0
- !! new grandparent chore stuff, for 0.8.0
- if gadstay = 1 and lost_girl = 0:
- if daystart > (grandmaQW['last_day_helped'] + 3) and daystart > (grandpaQW['last_day_helped'] + 3):
- if (daystart - grandmaQW['last_day_helped']) <= (daystart - grandpaQW['last_day_helped']):
- 'You haven''t helped your grandparents with any chores in <<daystart - grandmaQW[''last_day_helped'']>> days. You should help out more regularly to stay on your grandparents'' good side.'
- else
- 'You haven''t helped your grandparents with any chores in <<daystart - grandpaQW[''last_day_helped'']>> days. You should help out more regularly to stay on your grandparents'' good side.'
- end
- grandmaQW['help_amount'] -= 1
- end
- end
- !! disappointing grandma
- if grandmaQW['chore_clean_floor'] = 1 or grandmaQW['chore_clean_floor'] = 2:
- grandmaQW['chore_clean_floor'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_wash_clothes'] = 1 or grandmaQW['chore_wash_clothes'] = 2:
- grandmaQW['chore_wash_clothes'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_milk_cow'] = 1 or grandmaQW['chore_milk_cow'] = 2:
- grandmaQW['chore_milk_cow'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_groceries'] = 1 or grandmaQW['chore_groceries'] = 2:
- grandmaQW['chore_groceries'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_can_mushrooms'] = 1 or grandmaQW['chore_can_mushrooms'] = 2:
- grandmaQW['chore_can_mushrooms'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_can_berries'] = 1 or grandmaQW['chore_can_berries'] = 2:
- grandmaQW['chore_can_berries'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_can_veggies'] = 1 or grandmaQW['chore_can_veggies'] = 2:
- grandmaQW['chore_can_veggies'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_feed_chickens'] = 1 or grandmaQW['chore_feed_chickens'] = 2:
- grandmaQW['chore_feed_chickens'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_work_in_garden'] = 1 or grandmaQW['chore_work_in_garden'] = 2:
- grandmaQW['chore_work_in_garden'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_water_garden'] = 1 or grandmaQW['chore_water_garden'] = 2:
- grandmaQW['chore_water_garden'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_collect_strawberries'] = 1 or grandmaQW['chore_collect_strawberries'] = 2:
- grandmaQW['chore_collect_strawberries'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_collect_fruit'] = 1 or grandmaQW['chore_collect_fruit'] = 2:
- grandmaQW['chore_collect_fruit'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_harvest_garden'] = 1 or grandmaQW['chore_harvest_garden'] = 2:
- grandmaQW['chore_harvest_garden'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_gather_mushrooms'] = 1 or grandmaQW['chore_gather_mushrooms'] = 2:
- grandmaQW['chore_gather_mushrooms'] = 0
- grandmaQW['chore_mushroom_quantity'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_gather_berries'] = 1 or grandmaQW['chore_gather_berries'] = 2:
- grandmaQW['chore_gather_berries'] = 0
- grandmaQW['chore_berry_quantity'] = 0
- grandmaQW['disappointment'] = 1
- elseif grandmaQW['chore_gather_both'] = 1 or grandmaQW['chore_gather_both'] = 2:
- grandmaQW['chore_gather_both'] = 0
- grandmaQW['chore_mushroom_quantity'] = 0
- grandmaQW['chore_berry_quantity'] = 0
- grandmaQW['disappointment'] = 1
- end
- !! disappointing grandpa
- if grandpaQW['chore_fetch_firewood'] = 1 or grandpaQW['chore_fetch_firewood'] = 2:
- grandpaQW['chore_fetch_firewood'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_feed_horse'] = 1 or grandpaQW['chore_feed_horse'] = 2:
- grandpaQW['chore_feed_horse'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_feed_cow'] = 1 or grandpaQW['chore_feed_cow'] = 2:
- grandpaQW['chore_feed_cow'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_clean_yard'] = 1 or grandpaQW['chore_clean_yard'] = 2:
- grandpaQW['chore_clean_yard'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_feed_boar'] = 1 or grandpaQW['chore_feed_boar'] = 2:
- grandpaQW['chore_feed_boar'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_bathe_horse'] = 1 or grandpaQW['chore_bathe_horse'] = 2:
- grandpaQW['chore_bathe_horse'] = 0
- grandpaQW['chore_bathe_horse_prog'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_brush_horse'] = 1 or grandpaQW['chore_brush_horse'] = 2:
- grandpaQW['chore_brush_horse'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_lead_horse_to_field'] = 1 or grandpaQW['chore_lead_horse_to_field'] = 2:
- grandpaQW['chore_lead_horse_to_field'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_herd_cattle'] = 1 or grandpaQW['chore_herd_cattle'] = 2:
- grandpaQW['chore_herd_cattle'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_lead_cow_to_field'] = 1 or grandpaQW['chore_lead_cow_to_field'] = 2:
- grandpaQW['chore_lead_cow_to_field'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_gather_mushrooms'] = 1 or grandpaQW['chore_gather_mushrooms'] = 2:
- grandpaQW['chore_gather_mushrooms'] = 0
- grandpaQW['chore_mushroom_quantity'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_gather_berries'] = 1 or grandpaQW['chore_gather_berries'] = 2:
- grandpaQW['chore_gather_berries'] = 0
- grandpaQW['chore_berry_quantity'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_gather_both'] = 1 or grandpaQW['chore_gather_both'] = 2:
- grandpaQW['chore_gather_both'] = 0
- grandpaQW['chore_mushroom_quantity'] = 0
- grandpaQW['chore_berry_quantity'] = 0
- grandpaQW['disappointment'] = 1
- elseif grandpaQW['chore_bale_hay'] = 1 or grandpaQW['chore_bale_hay'] = 2:
- grandpaQW['chore_bale_hay'] = 0
- grandpaQW['disappointment'] = 1
- end
- !! grandparents use root cellar
- if boletus_stored > 0: boletus_stored -= rand(0,1)
- if bilberry_stored > 0: bilberry_stored -= rand(0,1)
- if boletus_stored < 0: boletus_stored = 0
- if bilberry_stored < 0: bilberry_stored = 0
- !! end of new grandparent chore stuff, for 0.8.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'
- if vidageday > 1080: vidageday = 1080
- if blizoruk < 10: blizoruk -= 1
- if blizoruk < 100: blizoruk -= rand(0,1)
- if blizoruk < 0: blizoruk = 0
- !!------------------------------------------------------------------------------------------------------------------------
- !!C and b array cleaning
- if InSleep = 1: gs 'npc','cleanarrays'
- !!------------------------------------------------------------------------------------------------------------
- !!-------------Family schedule variables----------------------------------------------------------------------
- !! 23 = kitchen
- !! 24 = Living room
- !! 25 = bathroom
- !! 26 = Svetas room
- if week = 6:
- momclean1 = rand(23,26)
- else
- momclean1 = rand(23,24)
- end
- if rand(0,1) = 0:
- momclean2 = 23
- else
- momclean2 = 25
- end
- !!-------------Therapist Route schedule variables----------------------------------------------------------------------
- !! 23 = kitchen
- !! 24 = Living room
- !! 25 = bathroom
- !! 26 = Master''s room
- if therapistWantsSlave > 0:
- annaclean1 = rand(23,26)
- end
- !!------------------------------------------------------------------------------------------------------------
- !!-------------Family Dog----------------------------------------------------------------------
- if $status['dog'] ! 'blocked' and rex['owned'] = 1:
- rex['timer_day'] = daystart
-
- !!Daily decay
- rex['relationship'] -= 1
- !!Chores
- if cheat['dog_rel'] = 0 and rex['gadukino_day'] ! daystart:
- npc_rel['A29'] -= iif(rex['count_walk'] + rex['count_feed'] = 0, -1, (rex['count_walk'] + rex['count_feed']))
- rex['relationship'] -= iif(rex['count_walk'] + rex['count_feed'] = 0, -1, (rex['count_walk'] + rex['count_feed']))
- end
- rex['count_run'] = 0
- rex['count_walk'] = rex['count_walk_base']
- rex['timer_walk'] = 0
- rex['count_feed'] = rex['count_feed_base']
- rex['timer_feed'] = 0
-
- if week = 1:
- if cheat['dog_rel'] = 0:
- npc_rel['A29'] -= rex['count_bath']
- rex['relationship'] -= (rex['count_bath'] * 5)
- end
- rex['count_bath'] = rex['count_bath_base']
- end
- end
- !!------------------------------------------------------------------------------------------------------------
- !!---------- School related schedule -------------------------------------------------------------------------
- starlets_on = iif( ( (week = 5 and odd_week = 0) or (week = 1 or week = 3 or week >= 6) ) and natholi = 0,1,0)
- cheerleaders_on = iif( ( (week = 5 and odd_week = 1) or (week = 2 or week = 4) ) and (natholi = 0 and (month >9 or month <6)) ,1,0)
- if starlets['late_message'] = 1: starlets['late_message'] = 0
- !!------------------------------------------------------------------------------------------------------------
- !!---------- Starlet Content ---------------------------------------------------------------------------------
- if AlbinaQW['StarletsJoined'] > 0 and AlbinaQW['StarletsShutDown'] = 0 and npc_pregtalk['A23'] = 0:
- if starlets_practice = daystart - 1:
- starlets_missed = 1
- starlets_practice = 0
- end
- if starlets_on = 1: starlets_practice = daystart
- end
- if month = 9 and day = 16 and AlbinaQW['ParkRally'] = 0: AlbinaQW['ParkRally'] = 1
- if month = 10 and day = 16 and AlbinaQW['ParkRally'] = 1: AlbinaQW['ParkRally'] = 2
- if month = 11 and day = 19 and (AlbinaQW['StarletsJoined'] <= 0 or (AlbinaQW['StarletsJoined'] = 1 and npc_pregtalk['A23'] = 1)) and AlbinaQW['StarletsShutDown'] = 0: AlbinaQW['StarletsShutDown'] = 1
- !!------------------------------------------------------------------------------------------------------------
- !!-------------Music career related variables and calculations------------------------------------------------
- !! How many hours a day can Sveta perform. It maxes out at 3.
- !! Using the actual skill level, not the one modified by Attributes because that is more realistic for this.
- ml_performance['max_perform_minutes'] = pcs_instrmusic + pcs_vokal
- ml_performance['performed_minutes'] = 0
- !! Checking for missed guitar lesson
- if ml_guitarlesson['nextlesson'] < daystart and ml_guitarlesson['lessonday'] ! 8:
- ml_guitarlesson['lessonday'] = 8
- end
- !! Calculating the fame increase from the uploaded songs and removing ones that do not effect fame anymore to keep the
- !! data at a sane level
- if ml_onlinesongcount > 0:
- i = 0
- j = -1
-
- :looponlinesongs
- !! this so every song counts only every 7 days and only for a limited number of weeks
- if ml_onlinesong_freshness[i] > 0:
- j += 1
- ml_tempsong_freshness[j] = ml_onlinesong_sfreshness[i]
- ml_tempsong_lastcalcday[j] = ml_onlinesong_lastcalcday[i]
- ml_tempsong_hotcat[j] = ml_onlinesong_hotcat[i]
- ml_tempsong_skilllevel[j] = ml_onlinesong_skilllevel[i]
- ml_tempsong_uploaded[j] = ml_onlinesong_uploaded[i]
- *nl
- if ml_tempsong_lastcalcday[j] <= (daystart - 7) and ml_tempsong_uploaded = 1:
- gs 'fame', 'city', 'music', rand(0, ml_tempsong_freshness[j]/100)
- ml_tempsong_freshness[j] -= 10
- ml_tempsong_lastcalcday[j] = daystart
- end
- end
- i += 1
- if i < ml_onlinesongcount: jump 'looponlinesongs'
- killvar 'ml_onlinesong_freshness'
- killvar 'ml_onlinesong_lastcalcday'
- killvar 'ml_onlinesong_hotcat'
- killvar 'ml_onlinesong_skilllevel'
- killvar 'ml_onlinesong_uploaded'
- i = 0
-
- if j >= 0:
- :looprebuildsongs
- ml_onlinesong_freshness[i] = ml_tempsong_freshness[i]
- ml_onlinesong_hotcat[i] = ml_tempsong_hotcat[i]
- ml_onlinesong_lastcalcday[i] = ml_tempsong_lastcalcday[i]
- ml_onlinesong_skilllevel[i] = ml_tempsong_skilllevel[i]
- ml_onlinesong_uploaded[i] = ml_tempsong_uploaded[i]
- i += 1
- if i <= j: jump 'looprebuildsongs'
- end
- killvar 'ml_tempsong_freshness'
- killvar 'ml_tempsong_lastcalcday'
- killvar 'ml_tempsong_hotcat'
- killvar 'ml_tempsong_skilllevel'
- killvar 'ml_tempsong_uploaded'
- end
- !! Repertoire quality decay if no practice is done
- if ml_performance['set_lastpracticeday'] ! (daystart-1): repertoire_quality -= 2
- --- cikl ---------------------------------
|