12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409 |
- # stat
- clr
- view
- if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1: newclo[131] = 0
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
- if AutoMakeupType < 2: AutoMakeupType = 2
- if AutoHapri = 1 and greben > 0 and hapri = 0 and InSleep = 0:
- set hapri = 1
- 'You brush your hair.'
- end
- if $HouseLocation = '':$HouseLocation = 'street'
- if housr = 1: housr['Street'] = 1
- if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
- set mop = AutoMakeupType
- if $CurLoc = vanr or $CurLoc = vanrPar or bag > 0:
- if kosmetica < 3 and mop = 4: set mop = 3
- if kosmetica < 2 and mop = 3: set mop = 2
- if kosmetica < 1 and mop ! 1:
- set mop = 1
- 'You have no make-up left.'
- else
- if mop = 2:
- 'You apply just enough make-up to touch up a few spots.'
- set kosmetica -= 1
- end
- if mop = 3:
- 'You apply an amount of make-up, that should pass as an everyday-like setup.'
- set kosmetica -= 2
- end
- if mop = 4:
- 'You apply an amount of make-up, that others usually wear, when they go out.'
- set vidageday -= 1
- set kosmetica -= 3
- end
- end
- else
- if kosmetitka < 3 and mop = 4: set mop = 3
- if kosmetitka < 2 and mop = 3: set mop = 2
- if kosmetitka < 1 and mop ! 1:
- set mop = 1
- 'You have no make-up left.'
- else
- if mop = 2:
- 'You apply just enough make-up to touch up a few spots.'
- set kosmetitka -= 1
- end
- if mop = 3:
- 'You apply an amount of make-up, that should pass as an everyday-like setup.'
- set kosmetitka -= 2
- end
- if mop = 4:
- 'You apply an amount of make-up, that others usually wear, when they go out.'
- set vidageday -= 1
- set kosmetitka -= 3
- end
- end
- end
- end
- if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
- if $CurLoc = vanr or $CurLoc = vanrPar:
- set vibratorIN = 1
- if vagina < 30:
- set vagina = vagina + 2
- end
- end
- end
- if AutoButtPlug = 1 and analplug = 1 and analplugIN = 0:
- if $CurLoc = vanr or $CurLoc = vanrPar:
- set analplugIN = 1
- if anus < 30:
- set anus = anus + 5
- end
- end
- end
- if AutoEnema = 1 and klismaday ! day:
- if $CurLoc = vanr or $CurLoc = vanrPar:
- !set minut = minut + 5
- set klismaday = day
- set klismaday1= 1
- set AEnema = 0
- !'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
- end
- end
- if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
- set minut -= 10
- set lipbalm -= 1
- set lipkoef += RAND(5,15)
- if lipkoef > 50:
- set lipkoef = 0
- set lip += 1
- end
- set lipbalmstat += 8
- 'You apply a lip balm, to moisterize them.'
- end
- if AutoVitamins=1:
- if vitamin>0 and vitaminday!day:
- vitaminday=day
- vitamin-=1
- frost=0
- if KandidozOnce=1:Kandidoz-=2
- if GerpesOnce=1:Gerpes-=2
- if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
- set skinvan = skinvan + 1
- if skinvan = 20:set skinvan = 0&set skin = skin + 1
- end
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!DeX Cheats
- if cheatNewMovieDay = 1:
- if pffilmday ! -1: pffilmday = -1
- end
- if cheatNewPhotoDay = 1:
- if modelmon = month: modelmon = month - 1
- end
- if cheatYoungForever = 1:
- if vidageday ! 300: vidageday = 300
- end
- if cheatHealthMaxed = 1:
- set tempval = vital * 10 + stren * 5 + 1000
- if health ! tempval: health = tempval
- end
- if cheatWillMaxed = 1:
- set tempval = intel * 5 + will * 5 + 1000
- if willpower ! tempval: willpower = tempval
- end
- if cheatManaMaxed = 1:
- set tempval = (intel * magik) + magik * 100 + vital * 10 + rikudo
- if manna ! tempval: manna = tempval
- end
- if cheatNeverHorny = 1:
- if horny ! 0: horny = 0
- end
- if cheatModelStudent = 1:
- if suspeh ! 100: suspeh = 100
- end
- if freezetime = 1:
- if hour ! dctth: hour = dctth
- if minut ! dcttm: minut = dctth
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Author Cheats
- if cheatHapri = 1: hapri = 1
- if cheatNomakeup = 1:
- if mop = 0: mop = 1
- end
- if cheatNosweat = 1 and sweat > -3: set sweat = -3
- if cheatNoEat = 1:
- if energy ! 19: energy = 19
- if water ! 19: water = 19
- end
- if cheatAlwaysHorny=1:
- if horny ! 100: horny = 100
- end
- if cheatNoLegHair=1:
- if leghair ! 0: leghair = 0
- end
- if cheatNoPussyHair=1:
- if lobok ! 0: lobok = 0
- end
- if cheatNeverTired=1:
- if son < 25: son = 25
- end
- if cheatNeverThirsty=1:
- if water < 25: water = 25
- end
- if cheatNeverHungry=1:
- if energy < 25: energy = 25
- end
- if cheatAlwaysVirgin=1:
- if vagina ! 0: vagina = 0
- end
- if cheatVaginaHealth=1:
- if mosol ! 0: mosol = 0
- end
- if cheatAlwaysMarried=1:
- if husband ! 100: husband = 100
- end
- if cheatNoSTDs=1:
- if venera ! 0: venera = 0
- if GerpesOnce ! 0: GerpesOnce = 0
- if Gerpes ! 0: Gerpes = 0
- if SifacOnce ! 0: SifacOnce = 0
- if Sifilis ! 0: Sifilis = 0
- if KandidozOnce ! 0: KandidozOnce = 0
- if Kandidoz ! 0: Kandidoz = 0
- if TriperOnce ! 0: TriperOnce = 0
- if Triper ! 0: Triper = 0
- end
- if cheatNoSweat=1:
- if sweat ! -3: sweat = -3
- end
- if cheatNoPeriods=1:
- if mesec ! 0: mesec = 0
- end
- if cheatBrushedHair=1:
- if hapri ! 1: hapri = 1
- end
- if cheatAlwaysMakeup=1:
- if kosmetica=0:kosmetica+=50
- if cheatMakeupSelect=1:set mop=1
- if cheatMakeupSelect=2:set mop=2
- if cheatMakeupSelect=3:set mop=3
- if cheatMakeupSelect=4:set mop=4
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!TRACKER
- if $DBCurLoc ! $CURLOC:
- i = arrsize ('$DBPrevLoc')
- if i = 20:
- killvar '$DBPrevLoc', 0
- end
- $DBPrevLoc[i] = $DBCurLoc
- $DBCurLoc = $CURLOC
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if alko > 0 and frost > 0: frost = 0
- if lernSkill >= 8: intel += 1 & lernSkill = 0
- if numdress ! 131 and Sforma > 0: set Sforma = 0
- if numdress = 131 and Sforma = 0: set Sforma = 1
- if lern >= 10: intel += 1 & lern = 0
- if GorSlut = 1:$gnikname = 'flirt'
- if GorSlut = 2:$gnikname = 'easy A'
- if GorSlut = 3:$gnikname = 'cocksucker'
- if GorSlut = 4:$gnikname = 'sex addict'
- if GorSlut = 5:$gnikname = 'slut'
- if GorSlut = 6:$gnikname = 'talking pussy'
- if film > 0 and kompromatLife < 10:
- !порноактрисса
- if kompromatLife < 10: kompromatLife = 10
- $kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
- end
- if fotoyousuck = 1 and kompromatLife < 9:
- !сосала в паре у парней и была сфотографированна
- if kompromatLife < 9: kompromatLife = 9
- $kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
- end
- if fotoCFNMsex > 0 and kompromatLife < 8:
- kompromatLife = 8
- $kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
- end
- if fotoCFNMblowjobCum > 0 and kompromatLife < 7:
- !кончили на лицо в стрипклубе
- kompromatLife = 7
- $kompromatFoto = 'In this photo you are sitting infront of a guy, kissing his cock. There seems to be cum in your face. This photo must have been taken in the stripclub.'
- end
- if fotoCFNMblowjob > 0 and kompromatLife < 6:
- !сосала на глазах у всех
- kompromatLife = 6
- $kompromatFoto = 'In this 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.'
- end
- if stripdancesum > 0 and kompromatLife < 2:
- !стриптизерша
- if kompromatLife < 2: kompromatLife = 2
- $kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
- end
- if modelfoto > 0 and kompromatLife < 1:
- !фото модель
- if kompromatLife < 1: kompromatLife = 1
- $kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
- end
- shameless = guy + bj + anal + hj+(slutty * 2)+(gang * 2)
- moneySUM = money + karta + stolmoney
- cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus
- gs 'dina'
- gs 'din2'
- if husbizvradd > 5: izvratH = 1
- if husbharmin > 10: harakHusb = 0
- if clrbelo <= 0: clrbelo = 0 & tanga = 0
- if husband = 0:
- set husbizvradd = 0
- set husbharmin = 0
- set husbandMark = 0
- set houseslut = 0
- end
- if SNarkvnesh = 0: SNarkvnesh = 1
- if SNarkTimes >= SNarkvnesh * 25:
- SNarkvnesh += 1
- vidage += 1
- end
- if gopota >= 20 and gnewQW = 1: set gnewQW = 2
- if horny > hornyStat:
- hornyStat = horny
- if pirsA > 0:
- horny += 1
- end
- if pirsB > 0:
- horny += 1
- end
- if pirsC > 0:
- horny += 1
- end
- if pirsD > 0:
- horny += 1
- end
- if pirsE > 0:
- horny += 1
- end
- if pirsF > 0:
- horny += 5
- end
- if pirsG > 0:
- horny += 5
- end
- if pirsN > 0:
- horny += 1
- end
- end
- if horny < hornyStat:
- hornyStat = horny
- end
- if workDisk = 4 and week > 5: workDisk = 1
- if workDisk = 3 and week > 5: workDiskAtkPlayer = 1
- VeneraN = 0
- if VeneraOnce > 0: VeneraOnce = 0
- if SifacOnce = 1: VeneraN += 1
- if GerpesOnce = 1: VeneraN += 1
- if TriperOnce = 1: VeneraN += 1
- Venera = VeneraN
- if 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 dancePRO > 100: dancePRO = 100
- if bfa < 0: bfa = 0
- if painQW = 0: set painweather = 6
- if beg < 0: set beg = 0
- if beg > 2000: set beg = 2000
- if oficiant > 100: set oficiant = 100
- if vagina > 30: set vagina = 30
- if throat > 30: set throat = 30
- if anus > 30: set anus = 30
- if Jab > 120: set Jab = 120
- if Punch > 120: set Punch = 120
- if Kik > 120: set Kik = 120
- if KikDef > 120: set KikDef = 120
- if nark >= 30 and narkoman = 0:
- set narkoman = 1
- end
- if nark = 0 and narkoman = 0:
- set narkoman = 0
- end
- set boxing = Jab + Punch + Kik + KikDef
- if boxing > 100: set boxing = 100
- if stren > 100 and mutagenP = 0: set stren = 100
- if speed > 100 and mutagenS = 0: set speed = 100
- if agil > 100 and mutagenA = 0: set agil = 100
- if react > 100 and mutagenR = 0: set react = 100
- if vital > 100 and mutagenV = 0: set vital = 100
- if will > 100 and mutagenW = 0: set will = 100
- if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0: set intel = 100
- if stren > 150 and mutagenP = 1: set stren = 150
- if speed > 150 and mutagenS = 1: set speed = 150
- if agil > 150 and mutagenA = 1: set agil = 150
- if react > 150 and mutagenR = 1: set react = 150
- if vital > 150 and mutagenV = 1: set vital = 150
- if will > 150 and mutagenW = 1: set will = 150
- if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0: set intel = 150
- if stren > 200 and mutagenP = 2: set stren = 200
- if speed > 200 and mutagenS = 2: set speed = 200
- if agil > 200 and mutagenA = 2: set agil = 200
- if react > 200 and mutagenR = 2: set react = 200
- if vital > 200 and mutagenV = 2: set vital = 200
- if will > 200 and mutagenW = 2: set will = 200
- if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0: set intel = 200
- if stren > 250 and mutagenP = 3: set stren = 250
- if speed > 250 and mutagenS = 3: set speed = 250
- if agil > 250 and mutagenA = 3: set agil = 250
- if react > 250 and mutagenR = 3: set react = 250
- if vital > 250 and mutagenV = 3: set vital = 250
- if will > 250 and mutagenW = 3: set will = 250
- if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0: set intel = 250
- if intel > 250: set intel = 250
- if MagikDostup = 0:
- $levelUpString = '<B>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</B>'
- if orgasm >= 1 and magik < 1: set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
- if orgasm >= 2 and magik < 2: set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
- if orgasm >= 4 and magik < 3: set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
- if orgasm >= 8 and magik < 4: set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
- if orgasm >= 16 and magik < 5: set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
- if orgasm >= 32 and magik < 6: set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
- if orgasm >= 64 and magik < 7: set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
- if orgasm >= 100 and magik < 8: set magik = 8 & set rikudo += 1000 & pl $levelUpString
- if orgasm >= 200 and magik < 9: set magik = 9 & set rikudo += 1000 & pl $levelUpString
- if orgasm >= 300 and magik < 10: set magik = 10 & set rikudo += 2000 & pl $levelUpString
- if orgasm >= 400 and magik < 11: set magik = 11 & set rikudo += 4000 & pl $levelUpString
- if orgasm >= 500 and magik < 12: set magik = 12 & set rikudo += 4000 & pl $levelUpString
- if orgasm >= 600 and magik < 13: set magik = 13 & set rikudo += 4000 & pl $levelUpString
- if orgasm >= 700 and magik < 14: set magik = 14 & set rikudo += 4000 & pl $levelUpString
- if orgasm >= 800 and magik < 15: set magik = 15 & set rikudo += 8000 & pl $levelUpString
- if orgasm >= 900 and magik < 16: set magik = 16 & set rikudo += 8000 & pl $levelUpString
- if orgasm >= 1000 and magik < 17: set magik = 17 & set rikudo += 8000 & pl $levelUpString
- if orgasm >= 1100 and magik < 18: set magik = 18 & set rikudo += 8000 & pl $levelUpString
- if orgasm >= 1200 and magik < 19: set magik = 19 & set rikudo += 8000 & pl $levelUpString
- if orgasm >= 1300 and magik < 20: set magik = 20 & set rikudo += 16000 & pl $levelUpString
- if orgasm >= 1400 and magik < 20: set magik = 21 & set rikudo += 21000 & pl $levelUpString
- end
- if exhibi >= 4: pl '<B>You opened a new outfit ready</B>'
- if SUB >= DOM and DOM > 0: set SUB -= DOM & set DOM = 0
- if DOM >= SUB and SUB > 0: set DOM -= SUB & set SUB = 0
- if horny < 0: set horny = 0
- if health > vital*10 + stren*5: set health = vital * 10 + stren * 5
- if willpower > intel*5 + will*5: set willpower = intel * 5 + will * 5
- if manna > (intel*magik) + magik*100 + vital*10 + rikudo: set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
- set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
- !set musle = strenbuf + vitalbuf
- if vidageday <= 0:
- set vidageday = 360
- set vidage += 1
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!!!ВРЕМЯ
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if nminut ! minut:
- !totminut время игры в минутах
- totminut += minut
- nminut = minut
- end
- if vgape > 0:
- if vgape = 3:
- if manna>(mannamax/4):manna = mannamax/4
- end
- if vgape = 2:
- if manna>(mannamax/2):manna = mannamax/2
- end
- end
- if agape > 0:
- if agape = 3:
- if manna>(mannamax/6):manna = mannamax/6
- end
- if agape = 2:
- if manna>(mannamax/3):manna = mannamax/3
- end
- end
- if vgape > 0:
- if vgapetime+1500 <= totminut:
- if vgape = 1: vgape = 0
- if vgape = 2: vgape = 1 & vgapetime = totminut
- if vgape = 3: vgape = 2 & vgapetime = totminut
- end
- end
- if agape > 0:
- if agapetime+2500 <= totminut:
- if agape = 1: agape = 0
- if agape = 2: agape = 1 & agapetime = totminut
- if agape = 3: agape = 2 & agapetime = totminut
- end
- end
- :loopsec
- if sec >= 60:
- minut+= 1
- sec -= 60
- jump 'loopsec'
- end
- :loopmin
- if minut >= 60:
- if CompCheckedResponses = 1:
- CompCheckedResponses = 0
- if obkvsdam['Street']>0: set obkvsdam['Street'] = RAND(2,5)
- if obkvsdam['Down']>0: set obkvsdam['Down'] = RAND(2,5)
- if obkvsdam['Nord']>0: set obkvsdam['Nord'] = RAND(2,5)
- end
- set hour += 1
- set energy -= 1
- set water -= 1
- set son -= 1
- set minut -= 60
- if alko > 0:
- if alko >= 4:
- if beg > 0: beg -= 1
- if volleyboll > 0: volleyboll -= 1
- if alko >= 6:
- if stren > 10: stren -= 1 & salo += 3
- if vital > 10: vital -= 1 & salo += 3
- if intel > 10: intel -= 1
- end
- end
- alko -= 1
- 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
- set LCWorkRand = RAND(1,6)
- if narkoman = 1 and narkday ! day:
- set health -= 5
- set willpower -= 5
- set manna -= 10
- end
- if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:
- if nude = 0: mosolpred += 1
- end
- if mosolpred >= 10:
- set mosol += 1
- set mosolpred -= 10
- end
- if mosol >= 50:
- manna -= 5
- end
- if energy >= 25: energy -= 5 & fat += 1
- if tanga = 1 and mosol > 0: mosol -= 1
- 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
- jump 'loopmin'
- end
- if hour >= 24:
- if KatjaOTN > 0:
- if KatjaHorny > 0: KatjaHorny -= rand(1,3)
- if KatjaHorny < 0: KatjaHorny = 0
- if KatjaHorny >= 100: KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
- end
- if volleysostav > 0: trenerepa -= 1
- if birthday = day and birthmonth = month:
- !день рождения
- set age += 1
- set vidage += 1
- end
- if kanikuli = 0: Suspeh -= 1
- set dmishaevent = 0
- if BuyHous['Street'] = 2 and ArendHouseSL['Street'] <= 0: ArendHouseSL['Street'] = 0 & BuyHous['Street'] = 0 & housr['Street'] = 0
- if BuyHous['Street'] = 2 and ArendHouseSL['Street']>0: ArendHouseSL['Street'] -= 1
- if BuyHous['Down'] = 2 and ArendHouseSL['Down'] <= 0: ArendHouseSL['Down'] = 0 & BuyHous['Down'] = 0 & housr['Down'] = 0
- if BuyHous['Down'] = 2 and ArendHouseSL['Down']>0: ArendHouseSL['Down'] -= 1
- if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] <= 0: ArendHouseSL['Nord'] = 0 & BuyHous['Nord'] = 0 & housr['Nord'] = 0
- if BuyHous['Nord'] = 2 and ArendHouseSL['Nord']>0: ArendHouseSL['Nord'] -= 1
- if Gspravka <= 0 and GspravkaT > 0: GspravkaT = 0 & Gspravka = 0
- if GspravkaT > 0: Gspravka -= 1
- if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30: IvanPodstavaQW = 3
- if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30: PodpiskaNeviezd += 1
- if salo > fat:
- salo -= 1
- fat += 1
- end
- if salo < fat:
- salo += 1
- fat -= 1
- end
- if strenbuf > stren: set strenbuf -= 1
- if strenbuf < stren: set strenbuf += 1
- if vitalbuf > vital: set vitalbuf -= 1
- if vitalbuf < vital: set vitalbuf += 1
- if agilbuf > agil: set agilbuf -= 1
- if agilbuf < agil: set agilbuf += 1
- if husband > 0 and husbandrink ! 11: set husbandrink = rand(0,10)
- set inWorkYoungShop = 0
- set husbandsexday = 0
- set borsexkol = 0
- set givisexday = 0
- if shantsr > 0:
- set pay = shantsr * 5000
- set karta += pay
- set shantsr = 0
- end
- if shantbog > 0:
- :shantftb
- set shantftbgrand = rand(0,10)
- if shantftbgrand > 2:
- set shantpopala += 1
- set shantbog -= 1
- if shantbog > 0: jump 'shantftb'
- end
- if shantftbgrand <= 2:
- set karta += 30000
- set shantbog -= 1
- if shantbog > 0: jump 'shantftb'
- end
- end
- set petersexday = 0
- set klismaday1= 0
- set opusksexday = 0
- :loop
- set day += 1
- set daystart += 1
- set week += 1
- set hour -= 24
- !ЗПП
- if SifacOnce = 1: Sifilis += 1
- if GerpesOnce = 1: Gerpes += 1
- if TriperOnce = 1: Triper += 1
- if KandidozOnce = 1: Kandidoz += 1
- if beg >= 100 and beg < 1000: beg -= 1
- if beg >= 1000 and beg < 1500: beg -= 2
- if beg >= 1500 and beg < 2000: beg -= 3
- if beg >= 2000: beg -= 4
- set vidageday -= 1
- if workDolgDay > 0: workDolgDay -= 1
- if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
- if husband > 0: husbanday += 1
- !if kid > 0:kid += 1
- if husband > 10 and husbanday > 0: husband -= 15
- if fingal > 0: fingal -= 1
- if husbandMark = 1 and husband <= 10:
- set husbizvradd = 0
- set husbharmin = 0
- set husbandMark = 0
- set husband = 0
- set divorced += 1
- if KFOnLineReaga > 0: KFOnLineReaga -= 1
- '<B><font color = red>Your husband has filed for a divorce.</font></B>'
- end
- gs 'cikl'
- if nark > 0:
- set nark -= 1
- end
- if pregtime > 10: fat += 1
- if hour >= 24:
- jump 'loop'
- end
- end
- :loopday
- if month > 12:
- month -= 12
- year += 1
- jump 'loopday'
- end
- if day > month_end[month]:
- day -= month_end[month]
- month += 1
- jump 'loopday'
- end
- $month = $month_name[month]
- :loopweek
- if week > 7:
- set week -= 7
- set husbandrink = 0
- if military = 1: set military = 0
- jump 'loopweek'
- end
- $week = $week_name[week]
- !Выплаты
- if day = 25:
- interest = (karta/100)
- if (interest>0) and (interestPay=0):
- karta += interest
- interestPay = 1
- '<B><font color=green>You have received <<interest>> rubles as interest on your bank account deposit.</font></B>'
- end
- if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
- Pay = PersSecWorkTimes * 2500
- PersSecWorkTimes = 0
- karta += Pay
- paydaybistrosec = 1
- '<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
- end
- if workKafe = 1 and paydayKafe = 0:
- set paydayKafe = 1
- set pay = smenaKafe * 600
- set karta += pay
- set smenaKafe = 0
- '<B><font color = green>You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></B>'
- end
- if workhosp = 1 and nopaypoly = 0:
- set pay = smena * 1000
- set karta += pay
- set smena = 0
- nopaypoly = 1
- '<B><font color = green>You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></B>'
- end
- if worksalon = 1 and nopaysalon = 0:
- set pay = smena * 800
- set karta += pay
- set smena = 0
- nopaysalon = 1
- '<B><font color = green>You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></B>'
- end
- if tanwork = 1 and nopaytanwork = 0:
- nopaytanwork = 1
- set karta += 25000
- '<B><font color = green>You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</font></B>'
- end
- if workSec = 1 and paydaySec = 0:
- set paydaySec = 1
- set pay = sekDay * 800
- if officebestslut >= 3: set pay += 20000
- set karta += pay
- set sekDay = 0
- '<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
- end
- if selfPornVidMoney>0 and paydaySelfPorn=0:
- set paydaySelfPorn=1
- set karta += selfPornVidMoney
- '<B><font color = green>You have received <<selfPornVidMoney>> rubles on your bank account for your self-made porn videos.</font></B>'
- set selfPornVidMoney=0
- end
- if husband > 0 and paydayHusb = 0:
- paydayHusb = 1
- if husbFin = 0: huspay = 30000
- if husbFin = 1: huspay = 60000
- if husbFin = 2: huspay = 90000
- karta += huspay
- '<B><font color = green>Your husband has sent you <<huspay>> rubles to your bank account.</font></B>'
- end
- if stipuha = 1 and stipuhaday = 0: set stipuhaday = 1 & set karta += 1200 & '<B><font color = green>You have received 1,200 rubles scholarship on your bank account.</font></B>'
- if housr = 1 and haday = 0 and ArendHouseSL = 0: set haday = 1 & set karta -= 3000 & '<B><font color = red>You paid 3000 rubles for your apartment.</font></B>'
- if housr = 1 and electroday = 0:
- set electroday = 1
- if elektro >= 800: set elektro = 800 + RAND(0,100)
- set karta -= elektro
- '<B><font color = red>You paid <<elektro>> for electricity.</font></B>'
- set elektro = 0
- end
- if housr = 1 and kabel > 0 and kabelday = 0:
- set kabelday = 1
- set karta -= 300
- '<B><font color = red>You have paid 300 rubles for cable TV.</font></B>'
- end
- else
- if interestPay = 1: interestPay = 0
- if paydayHusb = 1: paydayHusb = 0
- if workKafe = 1 and paydayKafe = 1: set paydayKafe = 0
- if workSec = 1 and paydaySec = 1: set paydaySec = 0
- if housr = 1 and haday = 1: set haday = 0
- if housr = 1 and electroday = 1: set electroday = 0
- if housr = 1 and kabel > 0 and kabelday = 1: set kabelday = 0
- if stipuhaday = 1: set stipuhaday = 0
- if nopaytanwork = 1: nopaytanwork = 0
- if nopaypoly = 1: nopaypoly = 0
- if nopaysalon = 1: nopaysalon = 0
- if paydaybistrosec = 1: paydaybistrosec = 0
- end
- if sdaday['Street'] = day and sdamonth['Street'] = month and houserent['Street'] = 1:
- set houserent['Street'] = 0
- '<B><font color = red>The term of your residental apartment lease expired.</font></B>'
- end
- if sdaday['Down'] = day and sdamonth['Down'] = month and houserent['Down'] = 1:
- set houserent['Down'] = 0
- '<B><font color = red>The term of your downtown apartment lease expired.</font></B>'
- end
- if sdaday['Nord'] = day and sdamonth['Nord'] = month and houserent['Nord'] = 1:
- set houserent['Nord'] = 0
- '<B><font color = red>The term of your northern apartment lease expired.</font></B>'
- end
- !{
- if kid > 0:
- if year > yearkid[1] and markyear[1]!year:
- if monthkid[1] = month and daykid[1] = day:
- markyear[1] = year
- kidage[1] += 1
- end
- end
- }
- if kid > 0:
- set kI = 1
- :kidBirthday
- if year > yearkid[kI] and markyear[kI]!year:
- if monthkid[kI] = month and daykid[kI] = day:
- markyear[kI] = year
- kidage[kI] += 1
- end
- end
- set kI += 1
- if kI <= numkid:
- jump 'kidBirthday'
- end
- end
- if numkids > 0:
- i = 0
- :agethekids
- if (kidbornyear2[i] + kidage2[i] + 1) < year: kidage2[i] += 1
- if (kidbornyear2[i] + kidage2[i]) < year:
- if kidbornmonth2[i] < month: kidage2[i] += 1
- if kidbornmonth2[i] = month and kidbornday2[i] <= day: kidage2[i] += 1
- end
- i += 1
- if i < numkids: jump 'agethekids'
- end
- if Mud >= totminut:
- manna = mannamax
- $mud = 'You feel buoyed.'
- else
- $mud = ''
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!!КОНЕЦ ВРЕМЕНИ
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- subage = 0
- :metakasubage
- subage += 10
- if subage + 10 < age:
- JUMP 'metakasubage'
- else
- subage = age - subage
- end
- if subage = 0 or subage >= 5:
- $letgoda = 'years'
- elseif subage = 1:
- $letgoda = 'year'
- else
- $letgoda = 'year'
- end
- subagevne = 0
- :metakasubagevne
- subagevne += 10
- if subagevne + 10 < vidage:
- JUMP 'metakasubagevne'
- else
- subagevne = vidage - subagevne
- end
- if subagevne ! 1:
- $letgoda2 = 'years'
- else
- $letgoda2 = 'year'
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!!!!!ЭНЕРГИЯ
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if son < 0:
- set son = 0
- set manna -= 5
- end
- if energy < 0:
- set energy = 0
- set health -= 1
- if fat = 0 and stren + vital > 0:
- set stren -= 1
- set vital -= 1
- set energy += 2
- end
- if fat = 0 and stren + vital <= 0:
- set over = 3
- gt 'gameover'
- exit
- end
- if fat > 0:
- set fat -= 1
- set energy += 2
- end
- end
- if water < 0:
- set water = 1
- set health -= 5
- set willpower -= 1
- end
- if manna <= 0:
- set manna = 1
- set health -= 5
- set willpower -= 5
- !set fat += 1
- end
- if health < 0:
- set over = 1
- gt 'gameover'
- exit
- end
- if willpower < 0 and StoryLine = 0:
- set over = 2
- gt 'gameover'
- exit
- end
- if saloonce = 0 and opPRE = 0:
- set saloonce = 1
- set salo = fat
- set strenbuf = stren
- set vitalbuf = vital
- set agilbuf = agil
- end
- gs 'body'
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if health = vital * 10 + stren * 5: set $health = '<font color = green>You are very healthy.</font>'
- if willpower = intel * 5 + will * 5: set $willpower = '<font color = green>Your mind is clear.</font>'
- if manna = (intel * magik) + magik * 100 + vital * 10 + rikudo: set $manna = '<font color = green>You are in a good mood.</font>'
- if health < vital*10 + stren*5 and health >= (vital * 10 + stren * 5)*75/100: set $health = '<font color = blue>You are healthy.</font>'
- if health < (vital*10 + stren*5)*75/100 and health >= (vital * 10 + stren * 5)*50/100: set $health = '<font color = brown>you are not healthy.</font>'
- if health < (vital*10 + stren*5)*50/100 and health >= (vital * 10 + stren * 5)*25/100: set $health = '<font color = red>You are sick.</font>'
- if health < (vital*10 + stren*5)*25/100: set $health = '<font color = red>You are on the verge of death.'
- if willpower < intel*5 + will*5 and willpower >= (intel * 5 + will * 5)*75/100: set $willpower = '<font color = blue>You are mostly in thought.</font>'
- if willpower < (intel*5 + will*5)*75/100 and willpower >= (intel * 5 + will * 5)*50/100: set $willpower = '<font color = brown>You are depressed.</font>'
- if willpower < (intel*5 + will*5)*50/100 and willpower >= (intel * 5 + will * 5)*25/100: set $willpower = '<font color = red>You are in depression.</font>'
- if willpower < (intel*5 + will*5)*25/100: set $willpower = '<font color = red>You are on the verge of madness.</font>'
- if manna < (intel*magik) + magik*100 + vital*10 + rikudo and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*75/100: set $manna = '<font color = blue>You have a normal mood.</font>'
- if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*50/100: set $manna = '<font color = brown>You are in a bad mood.</font>'
- if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*25/100: set $manna = '<font color = red>You are in a terrible mood.</font>'
- if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100: set $manna = '<font color = red>Your mood is below any skirting and urban sanitation.</font>'
- if energy >= 20: set $energy = '<font color = green>You couldn''t eat one more bite.</font>'
- if energy < 20 and energy >= 10: set $energy = '<font color = blue>You''re not really hungry, but a small snack would be very welcome.</font>'
- if energy < 10 and energy >= 2: set $energy = '<font color = brown>You are hungry.</font>'
- if energy < 2: set $energy = '<font color = red>You are very hungry.</font>'
- if water >= 20: set $water = '<font color = green>You are not thirtsy at all.</font>'
- if water < 20 and water >= 10: set $water = '<font color = blue>You are slightly thirsty.</font>'
- if water < 10 and water >= 2: set $water = '<font color = brown>You are thirsty.</font>'
- if water < 2: set $water = '<font color = red>You are very thirsty.</font>'
- if son >= 20: set $son = '<font color = green>You are well rested.</font>'
- if son < 20 and son >= 10: set $son = '<font color = blue>You are slightly tired.</font>'
- if son < 10 and son >= 2: set $son = '<font color = brown>You are tired.</font>'
- if son < 2: set $son = '<font color = red>You are very tired.</font>'
- $din_shame = {
- !dynamic din_shame
- !shame += 1
- !if shame >= 5:shame = 4 & shameless += 1
- !if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
- !if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
- !if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
- !if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
- !if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'
- !gs 'stat'
- }
- !if shame >= 5:shame = 4 & shameless += 1
- !if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
- !if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
- !if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
- !if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
- !if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'
- set $holyday = ''
- kanikuli = 0
- if (month = 10 and day >= 27) or (month = 11 and day <= 4): set $holyday = '<b>Autumn holidays.</b>'&kanikuli = 1
- if (month = 12 and day >= 29) or (month = 1 and day <= 13): set $holyday = '<b>Winter Break.</b>'&kanikuli = 2
- if (month = 3 and day >= 25): set $holyday = '<b>Spring Break.</b>'&kanikuli = 3
- if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8: set $holyday = '<b>Summer holidays.</b>'&kanikuli = 4
- if month = 1 and day = 1: set $holyday = '<b>New Year</b>'&kanikuli = 5
- if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
- !прогул школы
- schoolprogul += 1
- schoolProgulDay = day
- end
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !!!!!!!!!НАЧАЛО ОПИСАНИЯ
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if hour > 9 :
- if minut > 9 :
- pl '<B><<hour>>:<<minut>></B> <<$week>> <<day>> <<$month>> <<year>>'
- else
- pl '<B><<hour>>:0<<minut>></B> <<$week>> <<day>> <<$month>> <<year>>'
- end
- else
- if minut > 9 :
- pl '<B>0<<hour>>:<<minut>></B> <<$week>> <<day>> <<$month>> <<year>>'
- else
- pl '<B>0<<hour>>:0<<minut>></B> <<$week>> <<day>> <<$month>> <<year>>'
- end
- end
- pl '<b><<money>></b> rubles in your wallet.'
- if karta > 0: pl '<b><<karta>></b> rubles in your bank account.'
- if stolmoney > 0: pl '<b><<stolmoney>></b> rubles in the table in your hall.'
- if StoryLine > 0 and SchoolAtestat = 0: pl '<<$holyday>>'
- if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>'
- !if shame > 0:pl '<<$shame>>'
- if ETOmenu = 1:
- pl '<B><<$manna>></B>'
- if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
- if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
- pl '<B><<$health>></B>'
- pl '<B><<$willpower>></B>'
- pl '<B><<$energy>></B>'
- pl '<B><<$water>></B>'
- pl '<B><<$son>></B>'
- end
- if ETOmenu = 0:
- if ShowStatsAs = 0:
- pl '<B><<$manna>></B>'
- if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
- if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
- end
- set a = horny
- !set a1 = horny
- if ShowStatsAs ! 2:
- gs 'indik','2'
- pl '<<$ind>> Arousal'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0:
- if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
- if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
- end
- healthmax=(vital * 10 + stren * 5)
- set a = ( health * 100 /healthmax )
- set a1 = health
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Health'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$health>></B>'
- willpowermax =(intel * 5 + will * 5)
- set a = ( willpower * 100 / willpowermax )
- set a1 = willpower
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Willpower'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$willpower>></B>'
- set a = ( manna *100 / mannamax )
- set a1 = manna
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Mood'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$manna>></B>'
- set a = energy * 4
- set a1 = energy
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Hunger'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$energy>></B>'
- set a = water * 5
- set a1 = water
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Thirst'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$water>></B>'
- set a = son * 4
- set a1 = son
- if ShowStatsAs ! 2:
- gs 'indik','1'
- pl '<<$ind>> Sleep'
- end
- if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$son>></B>'
- end
- $strip_dress={
- if stripdress=0:
- stripdress=1
- nude=1
- odedosna=numdress
- numdress=0
- gs'stat'
- 'You remove your clothes.'
- exit
- end
- if stripdress=1:
- stripdress=0
- numdress=odedosna
- nude=0
- gs'stat'
- 'You get dressed.'
- exit
- end
- }
- nl
- if nude=1:stripdress=1
- if nude=0:stripdress=0
- if stripdress=0:$stripDress='Strip'
- if stripdress=1:$stripDress='Dress'
- pl'<a href="exec:dynamic $strip_dress"><B><<$stripDress>></B></a>'
- $smoker = {
- siga -= 1
- smoker += 1
- smokeHour = hour
- smokeDay = day
- smokeminut = minut + 5
- smokerNeed = 0
- manna += 100
- wipo += 100
- if energy < 20: energy += 3
- gs 'stat'
- }
- if $mud ! '': pl '<font color = green><b><<$mud>></b></font>'
- if siga <= 0 and smoker >= 20: pl '<font color = red><b>You have run out of cigarettes.</b></font>'
- if smokerNeed > 0 and siga > 0 and smoker >= 20:
- pl '<a href="exec:dynamic $smoker"><font color = red><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
- elseif siga > 0 and smoker >= 20:
- pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
- end
- if siga > 0 and smoker < 20:
- if smokeHour = hour and smokeday = day and smokeminut >= minut:
- else
- pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
- end
- end
- if smokeHour = hour and smokeday = day and smokeminut >= minut: pl '<font color = green>You are smoking a cigarette</font>'
- if ReminderSystem = 1:
- if tampon < ReminderNumber: pl '<font color = red>I should go buy some tampons</font>'
- if stanok < ReminderNumber: pl '<font color = red>I should go buy some razors</font>'
- if poroshok < ReminderNumber: pl '<font color = red>I should go buy some washing powder</font>'
- if clrbelo < ReminderNumber: pl '<font color = red>I should go buy some clean underwear</font>'
- if shampoo < ReminderNumber: pl '<font color = red>I should go buy some shampoo</font>'
- if fairy < ReminderNumber: pl '<font color = red>I should go buy some dishwashing detergent</font>'
- if (eda + edaD) < ReminderNumber: pl '<font color = red>I should go buy some food</font>'
- end
- if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.'
- !!!!!!!!!!!!!!!!!!!
- if sweat = 1: pl '<font color = brown>You´re sweating.</font>'
- if sweat = 2: pl '<font color = red>You are a little smelly.</font>'
- if sweat = 3: pl '<font color = red>You stink.</font>'
- if sweat > 3: pl '<B><font color = red>You stink.</font></B>'
- if isprok = 0 and mesec > 0 and preg = 0: pl '<B><font color = red>You are bleeding between your legs, urgently need a tampon.</font></B>'
- if isprok = 1 and mesec > 0 and preg = 0: pl 'You are having your period.'
- if preg = 1 and pregtime = 280: pl '<B><font color = red>You urgently need to go to the hospital</font></B>'
- if preg = 1: Set rodtime = 280 - pregtime
- if preg = 1 and pregtime < 280 and pregtime > 6: pl '<B><font color = blue>You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></B>'
- if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1: pl '<B><font color = red>You have a work shift as a waitress in a cafe</font></B>'
- if hour >= 8 and hour < 9 and week < 5 and workSec >= 1: pl '<B><font color = red>You have a work shift as a secretary</font></B>'
- if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5: pl '<B><font color = red>You have a work shift as a secretary</font></B>'
- $cumeater = {
- cumlip += 1
- vaf += 1
- cumbelly = 0
- gs 'stat'
- 'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
- }
- $cumeater2 = {
- cumlip += 1
- vaf += 1
- cumpussy = 0
- gs 'stat'
- 'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
- }
- $cumeater3 = {
- cumlip += 1
- vaf += 1
- cumass = 0
- gs 'stat'
- 'You have collected sperm from fingers and licked their priests felt tart taste of semen.'
- }
- $cumeater4 = {
- cumlip += 1
- vaf += 1
- cumface = 0
- gs 'stat'
- 'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
- }
- $cumeater5 = {
- cumlip += 1
- vaf += 1
- cumfrot = 0
- gs 'stat'
- 'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
- }
- $cumeater6 = {
- cumlip += 1
- vaf += 1
- cumanus = 0
- gs 'stat'
- 'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
- }
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !'<a href="exec:view''images\body\cumface.jpg''">лицо</a>'
- !'<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Ваше лицо</font></B></a>'
- !'<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Ваша попа</font></B></a>'
- if cumbelly > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumbelly.jpg''">stomach</a> is smeared with sperm.</font></B>'
- if cumbelly > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumbelly.jpg''"><B><font color = red>Your stomach</font></B></a> <a href="exec:dynamic $cumeater"><B><font color = red>is smeared with sperm.</font></B></a>'
- if cumpussy > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumpussy.jpg''">pussy</a>.</font></B>'
- if cumpussy > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumpussy.jpg''"><B><font color = red><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></B></a>.'
- if cumass > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumass.jpg''">ass</a> is smeared with semen.</font></B>'
- if cumass > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Your ass</font></B></a> <a href="exec:dynamic $cumeater3"><B><font color = red>is smeared with semen.</font></B></a>'
- if cumlip > 0: pl '<B><font color = red>Your mouth smells like sperm.</font></B>'
- if cumface > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumface.jpg''">face</a> and hair are smeared with sperm.</font></B>'
- if cumface > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Your face</font></B></a> <a href="exec:dynamic $cumeater4"><B><font color = red>and hair are smeared with sperm.</font></B></a>'
- if cumfrot > 0 and swallow < 10: pl '<B><font color = red>You have semen stains on your <a href="exec:view''images\body\cumfrot.jpg''">clothes</a>.</font></B>'
- if cumfrot > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumfrot.jpg''"><B><font color = redYou have <a href="exec:dynamic $cumeater5"><B><font color = red>semen stains</font></B></a> on your clothes</font></B></a>.'
- if cumanus > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumanal.jpg''">ass</a>.</font></B>'
- if cumanus > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumanal.jpg''"><B><font color = red><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></B></a>.'
- if vgape = 3: pl '<B><font color = red>You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></B>'
- if vgape = 2: pl '<B><font color = red>You have a sore vagina and you can hardly keep your feet together.</font></B>'
- if vgape = 1: pl '<B><font color = red>You have a slightly sore vagina.</font></B>'
- if agape = 3: pl '<B><font color = red>You have very sore anus and it emits blood.</font></B>'
- if agape = 2: pl '<B><font color = red>You have a sore anus.</font></B>'
- if agape = 1: pl '<B><font color = red>You have a slightly sore and itchy anus.</font></B>'
- if Gerpes >= 3: pl '<B><font color = red>On your lips sores. All signs of genital herpes.</font></B>'
- if Gerpes < 10 and Gerpes >= 5: pl '<B><font color = red>Your pussy flushed and highly itchy. This genital herpes.</font></B>'
- if Gerpes >= 10: pl '<B><font color = red>On your pussy sores appeared. This genital herpes.</font></B>'
- if Gerpes >= 20: pl '<B><font color = red>cover your ass sores of genital herpes.</font></B>'
- if Sifilis >= 21 and Sifilis < 50: pl '<B><font color = red>You have jumped big, hard sore on the lip.</font></B>'
- if Sifilis >= 50: pl '<B><font color = red>syphilitic rash covers your whole body.</font></B>'
- if Triper > 2: pl '<B><font color = red>From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></B>'
- if Kandidoz > 30: pl '<B><font color = red>Do you thrush.</font></B>'
- if SLomka > 0: pl '<B><font color = red>You are very bad and hurt all the bones. Do you break-up</font></B>'
- if narkday ! day and narkoman = 1: pl '<B><font color = red>You are very bad and hurt all the bones. Urgently need pale lady</font></B>'
- if fingal > 0: pl '<B><font color = red>You have a black eye on the face.</font></B>'
- if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
- pl '<B><font color = red>blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></B>'
- end
- if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:
- pl '<B><font color = red>you do not put panties.</font></B>'
- end
- if mosol >= 30 and mosol < 50: pl '<B><font color = red>Pisya flushed and itchy, it seems you are rubbed by clothing.</font></B>'
- if mosol >= 50: pl '<B><font color = red>Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></B>'
- if analplugIN = 1: pl '<B><font color = red>Do you in the ass anal plug is inserted.</font></B>'
- if vibratorin = 1: pl '<B><font color = red>Do you work in the vagina vibrator.</font></B>'
- if young_shop_work = 1 and hour = 14 and week < 6: pl '<B><font color = red>Within 15 hours you have to be at work in the shop Keys Puss.</font></B>'
- if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0: young_shop_miss += 1 & pl '<B><font color = red>You squandered work.</font></B>'
- if workrin = 1:
- if week = 2 or week = 4 or week = 6:
- if hour = 7: pl '<B><font color = red > 8m hours you work on the market.</font></B>'
- if hour = 8: pl '<B><font color = red>You need to work on the market.</font></B>'
- end
- end
- if frost > 0 and frost <= 5: pl '<B><font>You have a little chilly.</font></B>'
- if frost > 5 and frost < 11: pl '<B><font color = red>Are you cold.</font></B>'
- if frost >= 11: pl '<B><font color = red>You are very cold.</font></B>'
- if sick = 1: pl '<B><font color = red>you that is not good, tickle in the throat and a little runny nose.</font></B>'
- if sick > 1 and sick < 24: pl '<B><font color = red>you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></B>'
- if sick >= 24 and sick < 48: pl '<B><font color = red>You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></B>'
- if sick >= 48 and sick < 72: pl '<B><font color = red>You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it´s the flu.</font></B>'
- if sick >= 72: pl '<B><font color = red>you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it´s a sore throat.</font></B>'
- if $meetloc = 'street': $meetlocation = 'residential'
- if $meetloc = 'down': $meetlocation = 'downtown'
- if $meetloc = 'Nord': $meetlocation = 'northern'
- if hour < meethour and svidanieA = 1: pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
- if hour = meethour and svidanieA = 1: pl '<B><font color = red><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></B>'
- if meetday < daystart and svidanieA = 1: bfA -= 10 & svidanieA = 0
- if StrongNarkota > 20: pl '<B><font color = red>You are stoned.</font></B>'
- if alko > 0:
- if alko < 3: pl '<B><font color = red>You´re a little dizzy.</font></B>'
- if alko >= 3 and alko < 6: pl '<B><font color = red>You´re drunk.</font></B>'
- if alko >= 6: pl '<B><font color = red>You´re wasted.</font></B>'
- end
- gs 'din_bad'
- if bag > 0:
- pl '<a href="exec:dynamic $d_bag"><B>Handbag</B></a>'
- end
- !обнуление проверок на замужество
- set proverka1 = 0
- set proverka2 = 0
- set proverka3 = 0
- set proverka4 = 0
- set proverka5 = 0
- !!!!!!!!!!!!!!!!!!!!
- --- stat ---------------------------------
|