# stat
clr
view
gs 'dinSex2'
!1095
if nippain = 2:
if nippainday + 5 < daystart:
$nippain = 'You have greatly hurt nipples.'
nippain = 1
nippainday = daystart
end
if nippainday + 5 >= daystart:$nippain = 'You have greatly hurt nipples.'
end
if nippain = 1:
if nippainday + 5 < daystart:
$nippain = ''
nippain = 0
end
if nippainday + 5 >= daystart:$nippain = 'You have a little sore nipples.'
end
if painpub = 2:
if painpubday + 5 < daystart:
$painpub = 'You have very sore vagina.'
painpub = 1
painpubday = daystart
end
if painpubday + 5 >= daystart:$painpub = 'You have very sore vagina.'
end
if painpub = 1:
if painpubday + 5 < daystart:
$painpub = ''
painpub = 0
painpubday = daystart
end
if painpubday + 5 >= daystart:$painpub = 'You have a little sore vagina.'
end
if year = 2011 and katjaPreg = 0:katjaPreg = 1
if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0
musle[1] = musle
flex[1] = agil
stamina[1] = vital * 3
wipo[1] = will
intel[1] = intel
krasota[1] = vnesh
rost[1] = rost
salo[1] = salo
fat[1] = fat
Bteh[1] = bteh
Uteh[1] = uteh
Zteh[1] = zteh
!flex[0] = agil
!stamina[0] = vital * 3
!krasota[0] = vnesh
!wipo[0] = will
if nopornowrestling = 0:
nopornowrestling = 1
NPCnum = 30
NPCnow = 1
!shag = 1
gs 'npc'
NoView = 1
NPCrost = 30
gs 'generation'
NoView = 1
NPCrost = 30
gs 'generation'
NoView = 1
NPCrost = 30
gs 'generation'
NoView = 1
NPCrost = 30
gs 'generation'
NoView = 1
NPCrost = 30
gs 'generation'
$nikname[1] = 'schoolgirl'
!musle[0] = 100
!flex[0] = agil
!stamina[0] = vital * 3
!wipo[0] = will
!intel[0] = 10
!krasota[0] = vnesh
!rost[0] = 165
!salo[0] = 100
!fat[0] = 100
!$nikname[1] = 'steel Virgo'
!musle[1] = 100
!flex[1] = 100
!stamina[1] = 300
!wipo[1] = 50
!intel[1] = 10
!krasota[1] = 10
!rost[1] = 165
!salo[1] = 100
!fat[1] = 100
end
if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1:newclo[131] = 0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!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 alko > 0 and frost > 0:frost = 0
if lernSkill >= 8:intel += 1 & lernSkill = 0
if numdress ! 131 and Sforma > 0:set Sforma = 0
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 GorSlut >= 2:KatjaKnowBJ = 1
if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
if film > 0 and kompromatLife < 10:
!pornoaktrissa
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:
!sucked in a couple of guys and was sfotografirovanna
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:
!cum on face in the strip club
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:
!sucked in front of everyone
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:
!stripper
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:
!photo model
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 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 libonce=0:
libonce = 1
addqst 'lib/otg_lib_menu_eng.qsp'
end'
!'if youngshoponce=0:
youngshoponce=1
ADDQST 'youngshop.qsp'
end
if qwestonce=0:
qwestonce=1
ADDQST 'qwest/qwest.qsp'
end'
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
if nark = 0 and narkoman = 0:set narkoman = 0
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
!!!WD: Kept because of community kiosk extension
if exhibi >= 4:pl 'You opened a new outfit ready'
!!!
if SUB >= DOM and DOM > 0:set SUB = SUB - DOM & set DOM = 0
if DOM >= SUB and SUB > 0:set DOM = 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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!TIME
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if nminut ! minut:
!totminut playing time in minutes
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 + 2500 <= 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 + 5760 <= totminut:
if agape = 1:agape = 0
if agape = 2:agape = 1 & agapetime = totminut
if agape = 3:agape = 2 & agapetime = totminut
if anus > 1:anus -= 1
end
end
if sec >= 60:
:loopsec
minut += 1
sec -= 60
jump 'loopsec'
end
if minut >= 60:
:loopmin
if SbrosNerdism = 1:nerdism = will / 10 + orgasm
if nerdism < 0:nerdism = 0
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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!Avtoboy
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if hour >= 8 and hour <= 23 and NPCnum > 10:
:markturnirotbort
xf = 0
:markturnirotbortt
xf += 1
turnirFighter[xf] = rand(2, NPCnum)
if xf < 2:jump'markturnirotbortt'
if turnirFighter[1] = turnirFighter[2]:jump'markturnirotbort'
a = turnirFighter[1]
i = turnirFighter[2]
NoView = 1
gs 'Autofight'
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if shame > 0:shame -= 1 & manna -= 5
if smoker >= 20:smokerNeed += 1
if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
if smokerNeed > 300:smokerNeed = 0 & smoker = 0
if StrongNarkota > 0:StrongNarkota -= 1
if SLomka > 0:SLomka += 1 & manna -= 500
if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
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:mosolpred += 1
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
if minut >= 60:jump 'loopmin'
end
if hour >= 24:
if pirs_pain_ton > 0:pirs_pain_ton -= 1
if artompower <= 0:artompower = 3
if brow > 0 and browper = 0:brow -= 1
if shorthair=1:
shorthairday +=1
if shorthairday >= 45:shorthairday = 0 & shorthair = 0
end
if KatjaOTN > 0:
if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
if KatjaLust >= 40:KatjaHorny += rand(1, 3)
if KatjaHorny < 0:KatjaHorny = 0
if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
end
if volleysostav > 0:trenerepa -= 1
if birthday = day and birthmonth = month:
!birthday
set age += 1
set vidage += 1
end
if horny > hornyStat:
hornyStat = horny
if pirsA > 0:horny += 1
if pirsB > 0:horny += 1
if pirsC > 0:horny += 1
if pirsD > 0:horny += 1
if pirsE > 0:horny += 1
if pirsF > 0:horny += 5
if pirsG > 0:horny += 5
if pirsN > 0:horny += 1
end
if horny < hornyStat:hornyStat = horny
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!generation
if NPCnum < 290:
NPCnow = NPCnum
NPCnum += rand(1, 3)
gs 'npc'
end
if NPCnum >= 290 and NPCnum < 300:
NPCnow = NPCnum
NPCnum += 1
gs 'npc'
end
!End generation
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if kanikuli = 0:Suspeh -= 1
set dmishaevent = 0
if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 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
:loop
set day += 1
set daystart += 1
set week += 1
set hour -= 24
!RFP
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
if pregtime > 10:fat += 1
if hour >= 24:jump 'loop'
end
!payments
if day = 25:
if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
Pay = PersSecWorkTimes * 2500
PersSecWorkTimes = 0
money += 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 money += 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 money += 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 money += 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 money += 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 husband > 0 and paydayHusb = 0:
paydayHusb = 1
if husbFin = 0:huspay = 15000
if husbFin = 1:huspay = 25000
if husbFin = 2:huspay = 40000
money += huspay
'Your husband has sent you <> rubles to your bank account.'
end
if stipuha = 1 and stipuhaday = 0:set stipuhaday = 1 & set money += 1200 & 'You have received 1,200 rubles scholarship on your bank account.'
if housr = 1 and haday = 0:set haday = 1 & set money -= 3000 & 'You paid 3,000 rubles for your apartment.'
if housr = 1 and electroday = 0:
set electroday = 1
if elektro >= 800:set elektro = 800 + rand(0, 100)
set money -= elektro
'You paid <> for electricity.'
end
if housr = 1 and kabel > 0 and kabelday = 0:
set kabelday = 1
set money -= 300
'You have paid 300 rubles for cable TV.'
end
end
if day ! 25:
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 = day and sdamonth = month and housr = 0:
set housr = 1
'The term of your residental apartment lease expired.'
end
if month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12:
!31
if day > 31:day -= 31 & month += 1
elseif month = 2:
!28
if day > 28:day -= 28 & month += 1
elseif month = 0:
month = 1
if day > 31:day -= 31 & month += 1
elseif month = 13:
month = 1
if day > 31:day -=31 & month += 1
else
!30
if day > 30:day -= 30 & month += 1
end
!'if day > 30:
set day -= 30
set month += 1
end'
if day = 0:set day = 1
if week > 7:
:loopweek
set week -= 7
set husbandrink = 0
if military = 1:set military = 0
if week > 7:jump 'loopweek'
end
if week = 1:set $week = 'Monday'
if week = 2:set $week = 'Tuesday'
if week = 3:set $week = 'Wednesday'
if week = 4:set $week = 'Thursday'
if week = 5:set $week = 'Friday'
if week = 6:set $week = 'Saturday'
if week = 7:set $week = 'Sunday'
if month = 0:set month = 1
if month = 13:set month = 1 & set year += 1
If month = 1:set $month = 'January' & $mons = 'January'
If month = 2:set $month = 'February' & $mons = 'February'
If month = 3:set $month = 'March' & $mons = 'Martha'
If month = 4:set $month = 'April' & $mons = 'April'
If month = 5:set $month = 'May' & $mons = 'May'
If month = 6:set $month = 'June' & $mons = 'June'
If month = 7:set $month = 'July' & $mons = 'July'
If month = 8:set $month = 'August' & $mons = 'August'
If month = 9:set $month = 'September' & $mons = 'September'
If month = 10:set $month = 'October' & $mons = 'October'
If month = 11:set $month = 'November' & $mons = 'November'
If month = 12:set $month = 'December' & $mons = 'December'
if minut < 10:set $nilmin = '0'
if minut >= 10:set $nilmin = ''
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
end
!moodlet
!mannamax
!totminut
if Mud >= totminut:
manna = mannamax
$mud = 'You feel buoyed.'
else
$mud = ''
end
if nerdism > 0:
if lastreadday = daystart:
!You are completely healthy shine and a healthy glow.
manna = mannamax
SbrosNerdism = 0
$mudnerd='You are lost in a fantasy after reading the book.'
end
if lastreadday + 1 = daystart:
!manna = mannamax
SbrosNerdism = 0
$mudnerd='You a little bored and want to again plunge into a book.'
end
if lastreadday + 2 = daystart:
SbrosNerdism = 0
if manna > mannamax / 2:manna -= 10
$mudnerd='Do you really want something to read.'
end
if lastreadday + 3 <= daystart:
if manna > mannamax / 10:manna -= 10
SbrosNerdism = 1
$mudnerd='You terribly want at least something to read!!!'
end
!$mudnerd += 'lastread<> totminut<> <>'
else
SbrosNerdism = 0
$mudnerd = ''
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!end OF TIME
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!ENERGY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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:
!absence from school
schoolprogul += 1
schoolProgulDay = day
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!Beginning Description
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!pl'time <> hours <<$nilmin>><> minutes'
!pl 'At_The_Moment <> <<$month>> <>year, <<$week>>.'
if hour < 10 :
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 StoryLine > 0 and SchoolAtestat = 0:pl '<<$holyday>>'
if birthday = day and birthmonth = month:pl 'Today is your birthday.'
!if shame > 0:pl '<<$shame>>'
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.'
if ETOmenu=1:
pl '<<$health>>'
pl '<<$willpower>>'
pl '<<$energy>>'
pl '<<$water>>'
pl '<<$son>>'
end
if ETOmenu = 0:
set a = horny
!set a1 = horny
gs 'indik', '2'
pl '<<$ind>> Arousal'
healthmax=(vital * 10 + stren * 5)
set a = health * 100 / healthmax
set a1 = health
gs 'indik', '1'
pl '<<$ind>> Health'
willpowermax = intel * 5 + will * 5
set a = willpower * 100 / willpowermax
set a1 = willpower
gs 'indik', '1'
pl '<<$ind>> Willpower'
set a = manna * 100 / mannamax
set a1 = manna
gs 'indik', '1'
pl '<<$ind>> Mood'
set a = energy * 4
set a1 = energy
gs 'indik', '1'
pl '<<$ind>> Hunger'
set a = water * 5
set a1 = water
gs 'indik', '1'
pl '<<$ind>> Thirst'
set a = son * 4
set a1 = son
gs 'indik', '1'
pl '<<$ind>> Sleep'
end
$smoker = {
siga -= 1
smoker += 1
smokeHour = hour
smokeDay = day
smokeminut = minut + 5
smokeNeed = 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 smokeNeed > 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 pirs_pain_ton > 0:
if pirs_pain_ton = 1:pl'You have aches language and it is a little swollen.'
if pirs_pain_ton = 2:pl'You often aches language and it is noticeably swollen.'
if pirs_pain_ton > 2:pl'Do you have a sore tongue, he was very swollen and almost tossed in the mouth.'
end
if nippain > 0:pl'<<$nippain>>'
if painpub > 0:pl'<<$painpub>>'
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 buttocks 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.'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!'лицо'
!'Your face'
!'Your ass'
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 'You have 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.'
if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:pl 'you do not put panties.'
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 $mudnerd ! '':pl '<<$mudnerd>>'
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
if day = 29 and month = 12 and year = 2010 and StoryLine = 1:
if hour >= 5 and hour <= 14:pl 'At 14 o''clock a New Year`s party will be held.'
end
gs 'din_bad'
if bag > 0:pl 'Handbag'
!zero checks marriage
set proverka1 = 0
set proverka2 = 0
set proverka3 = 0
set proverka4 = 0
set proverka5 = 0
!clothing repair, for old saved.
if remdrop = 0:
set remdrop = 1
if jeans = 1:set jeans[1] = 1 & set jeansH[1] = 50 & set jeansB[1] = bedra
if jeans2 = 1:set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
if jeans3 = 1:set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
if jeans4 = 1:set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
if jeans5 = 1:set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
if yoga = 1:set yoga[1] = 1 & set yogaH[1] = 50
if yoga2 = 1:set yoga[2] = 1 & set yogaH[2] = 50
if yoga3 = 1:set yoga[3] = 1 & set yogaH[3] = 50
if yoga4 = 1:set yoga[4] = 1 & set yogaH[4] = 50
if yoga5 = 1:set yoga[5] = 1 & set yogaH[5] = 50
if yoga6 = 1:set yoga[6] = 1 & set yogaH[6] = 50
if yoga7 = 1:set yoga[7] = 1 & set yogaH[7] = 50
if yoga8 = 1:set yoga[8] = 1 & set yogaH[8] = 50
if yoga9 = 1:set yoga[9] = 1 & set yogaH[9] = 50
if yoga10 = 1:set yoga[10] = 1 & set yogaH[10] = 50
if yoga11 = 1:set yoga[11] = 1 & set yogaH[11] = 50
if yoga12 = 1:set yoga[12] = 1 & set yogaH[12] = 50
if yoga13 = 1:set yoga[13] = 1 & set yogaH[13] = 50
if yoga14 = 1:set yoga[14] = 1 & set yogaH[14] = 50
if yoga15 = 1:set yoga[15] = 1 & set yogaH[15] = 50
if yoga16 = 1:set yoga[16] = 1 & set yogaH[16] = 50
if yoga17 = 1:set yoga[17] = 1 & set yogaH[17] = 50
if yoga18 = 1:set yoga[18] = 1 & set yogaH[18] = 50
if sarafan = 1:set sarafan[1] = 1 & set sarafanH[1] = 50
if sarafan2 = 1:set sarafan[2] = 1 & set sarafanH[2] = 50
if short = 1:set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
if short2 = 1:set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
if short3 = 1:set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
if short4 = 1:set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
if short5 = 1:set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
if skirt = 1:set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
if skirt2 = 1:set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
if skirt3 = 1:set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
if skirt4 = 1:set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
if skirt5 = 1:set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
if dress = 1:set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
if dress2 = 1:set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
if dress3 = 1:set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
if dress4 = 1:set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
if dress5 = 1:set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
if dress6 = 1:set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
if dress7 = 1:set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
if dress8 = 1:set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
if dress9 = 1:set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
if dress10 = 1:set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
if dress11 = 1:set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
if dress12 = 1:set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
if dress13 = 1:set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
if dress14 = 1:set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
if dress15 = 1:set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
if dress16 = 1:set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
if dress17 = 1:set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
if dress18 = 1:set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
if dress19 = 1:set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
if dress20 = 1:set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
if dress21 = 1:set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
if dress22 = 1:set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
if dress23 = 1:set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
if dress24 = 1:set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
if profi = 1:set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
if profi2 = 1:set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
if pants = 1:set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
if pants2 = 1:set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
if pants3 = 1:set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
if pants4 = 1:set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
if pants5 = 1:set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
if latex = 1:set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
if latex2 = 1:set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
if hooker = 1:set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
if hooker2 = 1:set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
if hooker3 = 1:set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
if hooker4 = 1:set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
if hooker5 = 1:set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
if dressel1 = 1:set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
if odekis1 = 1:set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
if odekis2 = 1:set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
if odekis3 = 1:set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
if odekis4 = 1:set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
if odekis5 = 1:set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
if odekis6 = 1:set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
if odekis7 = 1:set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
if odekis8 = 1:set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
if odekis9 = 1:set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
end
--- stat ---------------------------------