12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094 |
- # 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 '<BR>Did you start at the <a href="exec:daystart_start = 241 & gs''daystart'' & gs''stat''">end of August</a> or <a href="exec:daystart_start = 152 & gs''daystart'' & gs''stat''">beginning of June</a>?'
- 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 = '<b>You feel like a strength has been revealed within you and you gush with magic, lifting you to a new energy level.</b>'
- if orgasm >= 1 and magik < 1:
- magik = 1
- glaraz += 1
- rikudo += 500
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 2 and magik < 2:
- magik = 2
- resnic += 1
- rikudo += 500
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 4 and magik < 3:
- magik = 3
- glaraz += 1
- rikudo += 500
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 8 and magik < 4:
- magik = 4
- resnic += 1
- rikudo += 500
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 16 and magik < 5:
- magik = 5
- glaraz += 1
- rikudo += 500
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 32 and magik < 6:
- magik = 6
- resnic += 1
- rikudo += 1000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 64 and magik < 7:
- magik = 7
- glaraz += 1
- rikudo += 1000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 100 and magik < 8:
- magik = 8
- rikudo += 1000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 200 and magik < 9:
- magik = 9
- rikudo += 1000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 300 and magik < 10:
- magik = 10
- rikudo += 2000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 400 and magik < 11:
- magik = 11
- rikudo += 4000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 500 and magik < 12:
- magik = 12
- rikudo += 4000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 600 and magik < 13:
- magik = 13
- rikudo += 4000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 700 and magik < 14:
- magik = 14
- rikudo += 4000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 800 and magik < 15:
- magik = 15
- rikudo += 8000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 900 and magik < 16:
- magik = 16
- rikudo += 8000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 1000 and magik < 17:
- magik = 17
- rikudo += 8000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 1100 and magik < 18:
- magik = 18
- rikudo += 8000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 1200 and magik < 19:
- magik = 19
- rikudo += 8000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 1300 and magik < 20:
- magik = 20
- rikudo += 16000
- $stat_msg += '<BR>' + $levelUpString
- elseif orgasm >= 1400 and magik < 20:
- magik = 21
- rikudo += 21000
- $stat_msg += '<BR>' + $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:
- !!<font color="green">You are completely healthy shine and a healthy glow.</font>
- manna = mannamax
- SbrosNerdism = 0
- $mudnerd = '<font color="green">You are lost in a fantasy after reading a book.</font>'
- end
- if lastreadday + 1 = daystart:
- !!manna = mannamax
- SbrosNerdism = 0
- $mudnerd = '<font color="black">You are a little bored and want to plunge into a book.</font>'
- end
- if lastreadday + 2 = daystart:
- SbrosNerdism = 0
- if manna > mannamax / 2:manna -= 10
- $mudnerd = '<font color="red">You really want to read something.</font>'
- end
- if lastreadday + 3 <= daystart:
- if manna > mannamax / 10:manna -= 10
- SbrosNerdism = 1
- $mudnerd = '<font color="red"><b>You have an incredibly strong desire to read!!!</b></font>'
- end
- !!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
- else
- SbrosNerdism = 0
- $mudnerd = ''
- end
- if bimbolevel > 0:
- if bimbowithdrawal = 0:
- $bimbostatus = '<font color = #FF1493>You''re, like, super hawt today.</font>'
- elseif bimbowithdrawal = 1:
- $bimbostatus = '<font color="green">You feel, like, kind of lame today.</font>'
- elseif bimbowithdrawal < 4:
- $bimbostatus = '<font color="black">You feel, like, totally lame today.</font>'
- elseif bimbowithdrawal < 6:
- if manna > mannamax / 2:manna -= 10
- $bimbostatus = '<font color="red">You really feel, like, awful today.</font>'
- elseif bimbowithdrawal >= 6:
- if manna > mannamax / 10:manna -= 10
- $bimbostatus= '<font color="red"><b>You feel that, like, horrible today!</b></font>'
- end
- if bimbowithdrawal > 30:
- bimbowithdrawal = 0
- bimbo = 0
- bimbolevel = 0
- $stat_msg += '<BR>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 += '<BR>Absorb ext <<sexnutrition>>'
- 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 += '<BR>SOMETHING HAPPENED!'
- end
- $stat_msg += '<BR>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 += '<BR><font color=red><B>You starved to death, but Cheat Mode keeps you Alive.</B></font>'
- 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 += '<BR><font color=red><B>You died from injuries, but Cheat Mode keeps you Alive.</B></font>'
- 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 += '<BR><font color=red><B>You are insane, but Cheat Mode keeps you Alive.</B></font>'
- !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 = '<font color="green">You are very healthy.</font>'
- elseif health >= healthmax * 75 / 100:
- $health = '<font color="blue">You are healthy.</font>'
- elseif health >= healthmax * 50 / 100:
- $health = '<font color="brown">You are not healthy.</font>'
- elseif health >= healthmax * 25 / 100:
- $health = '<font color="red">You are sick.</font>'
- else
- $health = '<font color="red">You are on the verge of death.</font>'
- end
- if willpower >= willpowermax:
- $willpower = '<font color="green">Your mind is clear.</font>'
- elseif willpower >= willpowermax * 75 / 100:
- $willpower = '<font color="blue">You are mostly clear of mind.</font>'
- elseif willpower >= willpowermax * 50 / 100:
- $willpower = '<font color="brown">You are depressed.</font>'
- elseif willpower >= willpowermax * 25 / 100:
- $willpower = '<font color="red">You have depression.</font>'
- else
- $willpower = '<font color="red">You are on the verge of madness.</font>'
- end
- if manna >= mannamax:
- $manna = '<font color="green">You are in a good mood.</font>'
- elseif manna >= mannamax * 75 / 100:
- $manna = '<font color="blue">You have a normal mood.</font>'
- elseif manna >= mannamax * 50 / 100:
- $manna = '<font color="brown">You are in a bad mood.</font>'
- elseif manna >= mannamax * 25 / 100:
- $manna = '<font color="red">You are in a terrible mood.</font>'
- else
- $manna = '<font color="red">Your mood is stuck in the gutter.</font>'
- end
- if energy >= 80:
- $energy = '<font color="green">You couldn''t eat one more bite.</font>'
- elseif energy >= 40:
- $energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
- elseif energy >= 8:
- $energy = '<font color="brown">You are hungry.</font>'
- else
- $energy = '<font color="red">You are very hungry.</font>'
- end
- if water >= 80:
- $water = '<font color="green">You are not thirsty at all.</font>'
- elseif water >= 40:
- $water = '<font color="blue">You are slightly thirsty.</font>'
- elseif water >= 8:
- $water = '<font color="brown">You are thirsty.</font>'
- else
- $water = '<font color="red">You are very thirsty.</font>'
- end
- if son >= 80:
- $son = '<font color="green">You are well rested.</font>'
- elseif son >= 40:
- $son = '<font color="blue">You are slightly tired.</font>'
- elseif son >= 8:
- $son = '<font color="brown">You are tired.</font>'
- else
- $son = '<font color="red">You are very tired.</font>'
- end
- !$din_shame = {
- !!dynamic din_shame
- !!shame += 1
- !!if shame >= 5:shame = 4 & shameless += 1
- !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
- !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
- !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
- !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
- !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
- !!gs 'stat'
- }
- !!if shame >= 5:shame = 4 & shameless += 1
- !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
- !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
- !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
- !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
- !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
- 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 += '<BR>You have 1 night left on your hotel booking.'
- if hotelroom1day < daystart and hour <= 11: $stat_msg += '<BR>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 ---------------------------------
|