# 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 = 'Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.'
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 'You opened a new outfit ready'
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
'Your husband has filed for a divorce.'
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
'You have received <> rubles as interest on your bank account deposit.'
end
if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
Pay = PersSecWorkTimes * 2500
PersSecWorkTimes = 0
karta += Pay
paydaybistrosec = 1
'You have received <> rubles salary for your job as a secretary on your bank account.'
end
if workKafe = 1 and paydayKafe = 0:
set paydayKafe = 1
set pay = smenaKafe * 600
set karta += pay
set smenaKafe = 0
'You have received <> rubles salary for your job as a waitress in a cafe on your bank account.'
end
if workhosp = 1 and nopaypoly = 0:
set pay = smena * 1000
set karta += pay
set smena = 0
nopaypoly = 1
'You have received <> rubles salary for your work in the clinic on your bank account.'
end
if worksalon = 1 and nopaysalon = 0:
set pay = smena * 800
set karta += pay
set smena = 0
nopaysalon = 1
'You have received <> rubles salary for your work in a beauty salon on your bank account.'
end
if tanwork = 1 and nopaytanwork = 0:
nopaytanwork = 1
set karta += 25000
'You have received a salary of 25,000 rubles for your work as a house maid on your bank account.'
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
'You have received <> rubles salary for your job as a secretary on your bank account.'
end
if selfPornVidMoney>0 and paydaySelfPorn=0:
set paydaySelfPorn=1
set karta += selfPornVidMoney
'You have received <> rubles on your bank account for your self-made porn videos.'
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
'Your husband has sent you <> rubles to your bank account.'
end
if stipuha = 1 and stipuhaday = 0: set stipuhaday = 1 & set karta += 1200 & 'You have received 1,200 rubles scholarship on your bank account.'
if housr = 1 and haday = 0 and ArendHouseSL = 0: set haday = 1 & set karta -= 3000 & 'You paid 3000 rubles for your apartment.'
if housr = 1 and electroday = 0:
set electroday = 1
if elektro >= 800: set elektro = 800 + RAND(0,100)
set karta -= elektro
'You paid <> for electricity.'
set elektro = 0
end
if housr = 1 and kabel > 0 and kabelday = 0:
set kabelday = 1
set karta -= 300
'You have paid 300 rubles for cable TV.'
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
'The term of your residental apartment lease expired.'
end
if sdaday['Down'] = day and sdamonth['Down'] = month and houserent['Down'] = 1:
set houserent['Down'] = 0
'The term of your downtown apartment lease expired.'
end
if sdaday['Nord'] = day and sdamonth['Nord'] = month and houserent['Nord'] = 1:
set houserent['Nord'] = 0
'The term of your northern apartment lease expired.'
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 = 'You are very healthy.'
if willpower = intel * 5 + will * 5: set $willpower = 'Your mind is clear.'
if manna = (intel * magik) + magik * 100 + vital * 10 + rikudo: set $manna = 'You are in a good mood.'
if health < vital*10 + stren*5 and health >= (vital * 10 + stren * 5)*75/100: set $health = 'You are healthy.'
if health < (vital*10 + stren*5)*75/100 and health >= (vital * 10 + stren * 5)*50/100: set $health = 'you are not healthy.'
if health < (vital*10 + stren*5)*50/100 and health >= (vital * 10 + stren * 5)*25/100: set $health = 'You are sick.'
if health < (vital*10 + stren*5)*25/100: set $health = 'You are on the verge of death.'
if willpower < intel*5 + will*5 and willpower >= (intel * 5 + will * 5)*75/100: set $willpower = 'You are mostly in thought.'
if willpower < (intel*5 + will*5)*75/100 and willpower >= (intel * 5 + will * 5)*50/100: set $willpower = 'You are depressed.'
if willpower < (intel*5 + will*5)*50/100 and willpower >= (intel * 5 + will * 5)*25/100: set $willpower = 'You are in depression.'
if willpower < (intel*5 + will*5)*25/100: set $willpower = 'You are on the verge of madness.'
if manna < (intel*magik) + magik*100 + vital*10 + rikudo and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*75/100: set $manna = 'You have a normal mood.'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*50/100: set $manna = 'You are in a bad mood.'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*25/100: set $manna = 'You are in a terrible mood.'
if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100: set $manna = 'Your mood is below any skirting and urban sanitation.'
if energy >= 20: set $energy = 'You couldn''t eat one more bite.'
if energy < 20 and energy >= 10: set $energy = 'You''re not really hungry, but a small snack would be very welcome.'
if energy < 10 and energy >= 2: set $energy = 'You are hungry.'
if energy < 2: set $energy = 'You are very hungry.'
if water >= 20: set $water = 'You are not thirtsy at all.'
if water < 20 and water >= 10: set $water = 'You are slightly thirsty.'
if water < 10 and water >= 2: set $water = 'You are thirsty.'
if water < 2: set $water = 'You are very thirsty.'
if son >= 20: set $son = 'You are well rested.'
if son < 20 and son >= 10: set $son = 'You are slightly tired.'
if son < 10 and son >= 2: set $son = 'You are tired.'
if son < 2: set $son = 'You are very tired.'
$din_shame = {
!dynamic din_shame
!shame += 1
!if shame >= 5:shame = 4 & shameless += 1
!if shame >= 4:set $shame = 'of your cheeks blaze zalivshego them blush with shame.'
!if shame = 3:set $shame = 'Your cheeks are red from the blush of shame.'
!if shame = 2:set $shame = 'You nemnog opokrasneli shame.'
!if shame = 1:set $shame = 'You´re a little confused.'
!if shame <= 0:set $shame = 'You´re a little confused.'
!gs 'stat'
}
!if shame >= 5:shame = 4 & shameless += 1
!if shame >= 4:set $shame = 'of your cheeks blaze zalivshego them blush with shame.'
!if shame = 3:set $shame = 'Your cheeks are red from the blush of shame.'
!if shame = 2:set $shame = 'You nemnog opokrasneli shame.'
!if shame = 1:set $shame = 'You´re a little confused.'
!if shame <= 0:set $shame = 'You´re a little confused.'
set $holyday = ''
kanikuli = 0
if (month = 10 and day >= 27) or (month = 11 and day <= 4): set $holyday = 'Autumn holidays.'&kanikuli = 1
if (month = 12 and day >= 29) or (month = 1 and day <= 13): set $holyday = 'Winter Break.'&kanikuli = 2
if (month = 3 and day >= 25): set $holyday = 'Spring Break.'&kanikuli = 3
if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8: set $holyday = 'Summer holidays.'&kanikuli = 4
if month = 1 and day = 1: set $holyday = 'New Year'&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 '<>:<> <<$week>> <> <<$month>> <>'
else
pl '<>:0<> <<$week>> <> <<$month>> <>'
end
else
if minut > 9 :
pl '0<>:<> <<$week>> <> <<$month>> <>'
else
pl '0<>:0<> <<$week>> <> <<$month>> <>'
end
end
pl '<> rubles in your wallet.'
if karta > 0: pl '<> rubles in your bank account.'
if stolmoney > 0: pl '<> rubles in the table in your hall.'
if StoryLine > 0 and SchoolAtestat = 0: pl '<<$holyday>>'
if birthday = day and birthmonth = month: pl 'Today is your birthday.'
!if shame > 0:pl '<<$shame>>'
if ETOmenu = 1:
pl '<<$manna>>'
if horny >= 90: pl 'It takes an incredible amount of willpower not to touch yourself all the time.'
if horny >= 50 and horny < 90: pl 'You have trouble focusing at times, as your mind drifts to sex.'
pl '<<$health>>'
pl '<<$willpower>>'
pl '<<$energy>>'
pl '<<$water>>'
pl '<<$son>>'
end
if ETOmenu = 0:
if ShowStatsAs = 0:
pl '<<$manna>>'
if horny >= 90: pl 'It takes an incredible amount of willpower not to touch yourself all the time.'
if horny >= 50 and horny < 90: pl 'You have trouble focusing at times, as your mind drifts to sex.'
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 'It takes an incredible amount of willpower not to touch yourself all the time.'
if horny >= 50 and horny < 90: pl 'You have trouble focusing at times, as your mind drifts to sex.'
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 '<<$health>>'
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 '<<$willpower>>'
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 '<<$manna>>'
set a = energy * 4
set a1 = energy
if ShowStatsAs ! 2:
gs 'indik','1'
pl '<<$ind>> Hunger'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<<$energy>>'
set a = water * 5
set a1 = water
if ShowStatsAs ! 2:
gs 'indik','1'
pl '<<$ind>> Thirst'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<<$water>>'
set a = son * 4
set a1 = son
if ShowStatsAs ! 2:
gs 'indik','1'
pl '<<$ind>> Sleep'
end
if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<<$son>>'
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'<<$stripDress>>'
$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 '<<$mud>>'
if siga <= 0 and smoker >= 20: pl 'You have run out of cigarettes.'
if smokerNeed > 0 and siga > 0 and smoker >= 20:
pl 'You want to smoke. You have <> cigarettes left'
elseif siga > 0 and smoker >= 20:
pl 'You have <> cigarettes left'
end
if siga > 0 and smoker < 20:
if smokeHour = hour and smokeday = day and smokeminut >= minut:
else
pl 'You have <> cigarettes left'
end
end
if smokeHour = hour and smokeday = day and smokeminut >= minut: pl 'You are smoking a cigarette'
if ReminderSystem = 1:
if tampon < ReminderNumber: pl 'I should go buy some tampons'
if stanok < ReminderNumber: pl 'I should go buy some razors'
if poroshok < ReminderNumber: pl 'I should go buy some washing powder'
if clrbelo < ReminderNumber: pl 'I should go buy some clean underwear'
if shampoo < ReminderNumber: pl 'I should go buy some shampoo'
if fairy < ReminderNumber: pl 'I should go buy some dishwashing detergent'
if (eda + edaD) < ReminderNumber: pl 'I should go buy some food'
end
if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.'
!!!!!!!!!!!!!!!!!!!
if sweat = 1: pl 'You´re sweating.'
if sweat = 2: pl 'You are a little smelly.'
if sweat = 3: pl 'You stink.'
if sweat > 3: pl 'You stink.'
if isprok = 0 and mesec > 0 and preg = 0: pl 'You are bleeding between your legs, urgently need a tampon.'
if isprok = 1 and mesec > 0 and preg = 0: pl 'You are having your period.'
if preg = 1 and pregtime = 280: pl 'You urgently need to go to the hospital'
if preg = 1: Set rodtime = 280 - pregtime
if preg = 1 and pregtime < 280 and pregtime > 6: pl 'You have been pregnant for <> days. Days until delivery <>'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1: pl 'You have a work shift as a waitress in a cafe'
if hour >= 8 and hour < 9 and week < 5 and workSec >= 1: pl 'You have a work shift as a secretary'
if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5: pl 'You have a work shift as a secretary'
$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.'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!'лицо'
!'Ваше лицо'
!'Ваша попа'
if cumbelly > 0 and swallow < 10: pl 'Your stomach is smeared with sperm.'
if cumbelly > 0 and swallow >= 10: pl 'Your stomach is smeared with sperm.'
if cumpussy > 0 and swallow < 10: pl 'Sperm slowly flows from your pussy.'
if cumpussy > 0 and swallow >= 10: pl 'Sperm slowly flows from your pussy.'
if cumass > 0 and swallow < 10: pl 'Your ass is smeared with semen.'
if cumass > 0 and swallow >= 10: pl 'Your ass is smeared with semen.'
if cumlip > 0: pl 'Your mouth smells like sperm.'
if cumface > 0 and swallow < 10: pl 'Your face and hair are smeared with sperm.'
if cumface > 0 and swallow >= 10: pl 'Your face and hair are smeared with sperm.'
if cumfrot > 0 and swallow < 10: pl 'You have semen stains on your clothes.'
if cumfrot > 0 and swallow >= 10: pl 'semen stains on your clothes.'
if cumanus > 0 and swallow < 10: pl 'Sperm slowly flows from your ass.'
if cumanus > 0 and swallow >= 10: pl 'Sperm slowly flows from your ass.'
if vgape = 3: pl 'You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.'
if vgape = 2: pl 'You have a sore vagina and you can hardly keep your feet together.'
if vgape = 1: pl 'You have a slightly sore vagina.'
if agape = 3: pl 'You have very sore anus and it emits blood.'
if agape = 2: pl 'You have a sore anus.'
if agape = 1: pl 'You have a slightly sore and itchy anus.'
if Gerpes >= 3: pl 'On your lips sores. All signs of genital herpes.'
if Gerpes < 10 and Gerpes >= 5: pl 'Your pussy flushed and highly itchy. This genital herpes.'
if Gerpes >= 10: pl 'On your pussy sores appeared. This genital herpes.'
if Gerpes >= 20: pl 'cover your ass sores of genital herpes.'
if Sifilis >= 21 and Sifilis < 50: pl 'You have jumped big, hard sore on the lip.'
if Sifilis >= 50: pl 'syphilitic rash covers your whole body.'
if Triper > 2: pl 'From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.'
if Kandidoz > 30: pl 'Do you thrush.'
if SLomka > 0: pl 'You are very bad and hurt all the bones. Do you break-up'
if narkday ! day and narkoman = 1: pl 'You are very bad and hurt all the bones. Urgently need pale lady'
if fingal > 0: pl 'You have a black eye on the face.'
if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
pl 'blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.'
end
if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:
pl 'you do not put panties.'
end
if mosol >= 30 and mosol < 50: pl 'Pisya flushed and itchy, it seems you are rubbed by clothing.'
if mosol >= 50: pl 'Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.'
if analplugIN = 1: pl 'Do you in the ass anal plug is inserted.'
if vibratorin = 1: pl 'Do you work in the vagina vibrator.'
if young_shop_work = 1 and hour = 14 and week < 6: pl 'Within 15 hours you have to be at work in the shop Keys Puss.'
if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0: young_shop_miss += 1 & pl 'You squandered work.'
if workrin = 1:
if week = 2 or week = 4 or week = 6:
if hour = 7: pl ' 8m hours you work on the market.'
if hour = 8: pl 'You need to work on the market.'
end
end
if frost > 0 and frost <= 5: pl 'You have a little chilly.'
if frost > 5 and frost < 11: pl 'Are you cold.'
if frost >= 11: pl 'You are very cold.'
if sick = 1: pl 'you that is not good, tickle in the throat and a little runny nose.'
if sick > 1 and sick < 24: pl 'you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.'
if sick >= 24 and sick < 48: pl 'You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.'
if sick >= 48 and sick < 72: pl '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.'
if sick >= 72: pl '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.'
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 <> hours'
if hour = meethour and svidanieA = 1: pl '<<$boyA>> is waiting for you around the house in <<$meetlocation>>.'
if meetday < daystart and svidanieA = 1: bfA -= 10 & svidanieA = 0
if StrongNarkota > 20: pl 'You are stoned.'
if alko > 0:
if alko < 3: pl 'You´re a little dizzy.'
if alko >= 3 and alko < 6: pl 'You´re drunk.'
if alko >= 6: pl 'You´re wasted.'
end
gs 'din_bad'
if bag > 0:
pl 'Handbag'
end
!обнуление проверок на замужество
set proverka1 = 0
set proverka2 = 0
set proverka3 = 0
set proverka4 = 0
set proverka5 = 0
!!!!!!!!!!!!!!!!!!!!
--- stat ---------------------------------