# 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
end
if nippain=1:
     if nippainday+5<daystart:
     $nippain=''
     nippain=0
     end
     if nippainday+5>=daystart:
     $nippain='You have a little sore nipples.'
     end
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
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
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: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:Sforma=0
if lern>=10:intel+=1&lern=0

if GorSlut=1:$gnikname='davalka'
if GorSlut=2:$gnikname='vaflersha'
if GorSlut=3:$gnikname='total huesoska'
if GorSlut=4:$gnikname='total hole'
if GorSlut=5:$gnikname='lowered slut'
if GorSlut=6:$gnikname='prostitute'

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='The photograph footage from your porn.'
     end
     if fotoyousuck=1 and kompromatLife<9:
     !sucked in a couple of guys and was sfotografirovanna
     if kompromatLife<9:kompromatLife=9
     $kompromatFoto='The photograph clearly shows, you suck just two members. Obviously this is the picture, which is pasted at the entrance, after you suck in the park.'
     end
     if fotoCFNMsex>0 and kompromatLife<8:
     kompromatLife=8
     $kompromatFoto='In the photo you are standing in front of a crowd of people with cancer and you fucked from behind naked man. Clearly the photo was taken in strip clubs.'
     end
     if fotoCFNMblowjobCum>0 and kompromatLife<7:
     !cum on face in the strip club
     kompromatLife=7
     $kompromatFoto='In the photo you sit down in front of a naked guy. His sperm is visible on your face and his penis touches your lips. Clearly the photo was taken in strip clubs.'
     end
     if fotoCFNMblowjob>0 and kompromatLife<6:
     !sucked in front of everyone
     kompromatLife=6
     $kompromatFoto='In the photo you sit down in front of a naked guy, lips around his dick. Visible behind a crowd of girls. Clearly the photo was taken in strip clubs.'
     end
     
     if stripdancesum>0 and kompromatLife<2:
     !stripper
     if kompromatLife<2:kompromatLife=2
     $kompromatFoto='The photograph, You dance naked near a pole. Obviously you fotkali when you worked as a stripper.'
     end
     if modelfoto > 0 and kompromatLife<1:
     !photo model
     if kompromatLife<1:kompromatLife=1
     $kompromatFoto='The photograph your naked body. When you posed in the modeling agency.'
     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
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:
if orgasm >= 1 and magik < 1:set magik = 1&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 2 and magik < 2:set magik = 2&set resnic = resnic + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 4 and magik < 3:set magik = 3&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 8 and magik < 4:set magik = 4&set resnic = resnic + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 16 and magik < 5:set magik = 5&set glaraz = glaraz + 1&set rikudo = rikudo + 500&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 32 and magik < 6:set magik = 6&set resnic = resnic + 1&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 64 and magik < 7:set magik = 7&set glaraz = glaraz + 1&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 100 and magik < 8:set magik = 8&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 200 and magik < 9:set magik = 9&set rikudo = rikudo + 1000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 300 and magik < 10:set magik = 10&set rikudo = rikudo + 2000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 400 and magik < 11:set magik = 11&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 500 and magik < 12:set magik = 12&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 600 and magik < 13:set magik = 13&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 700 and magik < 14:set magik = 14&set rikudo = rikudo + 4000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 800 and magik < 15:set magik = 15&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 900 and magik < 16:set magik = 16&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1000 and magik < 17:set magik = 17&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1100 and magik < 18:set magik = 18&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1200 and magik < 19:set magik = 19&set rikudo = rikudo + 8000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1300 and magik < 20:set magik = 20&set rikudo = rikudo + 16000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
if orgasm >= 1400 and magik < 20:set magik = 21&set rikudo = rikudo + 21000&pl'<B>You feel like that might be made manifest in you and in you gushing magic, raise you to a new energy level.</B>'
end


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
     if sec >= 60:
     jump 'loopsec'
     end 
end

if minut >= 60:
:loopmin
if SbrosNerdism=1:nerdism-=((will/10)+orgasm)
if nerdism<0:nerdism=0
if obkvsdam>0:set obkvsdam=RAND(2,5)
set hour = hour + 1
set energy = energy - 1
set water = water - 1
set son = son - 1
set minut = 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
             alko-=alko/2
             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 = health - 5
     set willpower = willpower - 5
     set manna = manna - 10
     end
if tanga = 0 and ski =0 or glamur = 0 and tanga = 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
if minut >= 60:
     jump 'loopmin'
     end
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 = age + 1
     set vidage = vidage + 1
     end
     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
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     !!!!!!!!!!!!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 = day + 1
set daystart = daystart + 1
set week = week + 1
set hour = 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 = 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 filed for divorce.</font></B>'
	 end
gs'cikl'
     if nark > 0:
     set nark = nark - 1
     end
     if pregtime>10:fat+=1
     if hour >= 24:
     jump 'loop'
     end
     
     
end
!payments
if day = 25:
     if PersSecWork=1 and PersSecWorkTimes>0 and paydaybistrosec=0:
     Pay=PersSecWorkTimes*2500
     PersSecWorkTimes=0
     money+=Pay
     paydaybistrosec=1
     '<B><font color=green>you have listed <<pay>> rubles salary for a job as a secretary.</font></B>'
     end
     
     if workKafe = 1 and paydayKafe = 0:
     set paydayKafe = 1
     set pay = smenaKafe*600
     set money = money + pay
     set smenaKafe = 0 
     '<B><font color=green>you have listed <<pay>> rubles salary for a job as a waitress in a cafe.</font></B>'
     end
     
     if workhosp = 1 and nopaypoly=0:
     set pay = smena*1000
     set money = money + pay
     set smena = 0
     nopaypoly=1
     '<B><font color=green>you have listed <<pay>> rubles salary for his work in the clinic.</font></B>'
     end
     
     if worksalon = 1 and nopaysalon=0:
     set pay = smena*800
     set money = money + pay
     set smena = 0
     nopaysalon=1
     '<B><font color=green>you have listed <<pay>> rubles salary for a job in a beauty salon.</font></B>'
     end
     
     if tanwork = 1 and nopaytanwork=0:
     nopaytanwork=1
     set money+=25000
     '<B><font color=green>you have listed 25000 rubles salary for a job as a governess.</font></B>'
     end
     
     if workSec = 1 and paydaySec = 0:
     set paydaySec = 1
     set pay = sekDay*800
     if officebestslut>=3:set pay+=20000
     set karta = karta + pay
     set sekDay = 0 
     '<B><font color=green>You have listed a bank account <<pay>> rubles salary for a job as a secretary.</font></B>'
     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
         '<B><font color=green>Your husband listed salary to a bank account, in an amount <<huspay>> rubles.</font></B>'
     end
     
     if stipuha = 1 and stipuhaday = 0:set stipuhaday = 1&set money = money + 1200&'<B><font color=green>you have listed 1200 rubles scholarships.</font></B>'
     if housr = 1 and haday = 0:set haday = 1&set money = money - 3000&'<B><font color=red>you paid 3000 rubles per apartment.</font></B>'
     if housr = 1 and electroday = 0:
     set electroday = 1
     if elektro >= 800:set elektro = 800 + RAND(0,100)
     set money = money - elektro
     '<B><font color=red>you paid <<elektro>> RUR Light.</font></B>'
     end
     if housr = 1 and kabel > 0 and kabelday = 0:set kabelday = 1&set money = money - 300&'<B><font color=red>you paid 300 rubles for cable TV.</font></B>'
     
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
	 '<B><font color=red>Term of lease your apartment has expired, you returned the keys.</font></B>'
	 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 = day - 30
set month = month + 1
end'

if day = 0:set day = 1

if week > 7:
:loopweek
set week = week - 7
set husbandrink=0
if military = 1:set military = 0
     if week > 7:
     jump 'loopweek'
     end

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 = 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:
	 !<font color=green>You are completely healthy shine and a healthy glow.</font>
	 manna=mannamax
	 SbrosNerdism=0
     $mudnerd='<font color=green>You are lost in a fantasy after reading the book.</font>'
	 end
	 
	 if lastreadday+1=daystart:
	 !manna=mannamax
	 SbrosNerdism=0
     $mudnerd='<font color=black>You a little bored and want to again plunge into a book.</font>'
	 end
	 
	 if lastreadday+2=daystart:
	 SbrosNerdism=0
	 if manna>mannamax/2:manna-=10
     $mudnerd='<font color=red>Do you really want something to read.</font>'
	 end
	 
	 if lastreadday+3<=daystart:
	 if manna>mannamax/10:manna-=10
	 SbrosNerdism=1
     $mudnerd='<font color=red><b>You terribly want at least something to read!!!</b></font>'
	 end
	 !$mudnerd+='lastread<<lastread>> totminut<<totminut>> <<totminut-lastread>>'
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='year_old'
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='year_old'
else
$letgoda2='year'
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!ENERGY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if son < 0:
set son = 0
set manna = manna - 5
end

if energy < 0:
	 set energy = 0
	 set health = health - 1
     if fat = 0 and stren + vital > 0:
		 set stren = stren - 1
		 set vital = vital - 1
		 set energy = energy + 2
		 end
     if fat = 0 and stren + vital <= 0:
		 set over = 3
		 gt'gameover'
		 exit
		 end
     if fat > 0:
		 set fat = fat - 1
		 set energy = energy + 2
		 end
	 end

if water < 0:
set water = 1
set health = health - 5
set willpower = willpower - 1
end

if manna <= 0:
set manna = 1
set health = health - 5
set willpower = willpower - 5
!set fat = 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 completely healthy shine and a healthy glow.</font>'
if willpower = intel*5 + will*5:set $willpower = '<font color=green>You have a crystal clear mind.</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, but feel like it is not very.</font>'
if health < (vital*10 + stren*5)*75/100 and health >= (vital*10 + stren*5)*50/100:set $health = '<font color=brown>You do not have health.</font>'
if health < (vital*10 + stren*5)*50/100 and health >= (vital*10 + stren*5)*25/100:set $health = '<font color=red>you `re.</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 mostly reside 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 repressed.</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 insanity.</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 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 below any baseboards and urban sanitation.</font>'


if energy >= 20:set $energy = '<font color=green>You ate to satiety.</font>'
if energy < 20 and energy >= 10:set $energy = '<font color=blue>you are full.</font>'
if energy < 10 and energy >= 2:set $energy = '<font color=brown>You are a little hungry.</font>'
if energy < 2:set $energy = '<font color=red>You are very hungry.</font>'

if water >= 20:set $water = '<font color=green>You got drunk and did not want to drink.</font>'
if water < 20 and water >= 10:set $water = '<font color=blue>You do not want to drink.</font>'
if water < 10 and water >= 2:set $water = '<font color=brown>You want to drink.</font>'
if water < 2:set $water = '<font color=red>You sushnyak.</font>'

if son >= 20:set $son = '<font color=green>You get enough sleep and do not want to sleep.</font>'
if son < 20 and son >= 10:set $son = '<font color=blue>You do not want to sleep.</font>'
if son < 10 and son >= 2:set $son = '<font color=brown>You want to sleep.</font>'
if son < 2:set $son = '<font color=red>You fall asleep on the move.</font>'

$din_shame={
!dynamic din_shame
!shame+=1
!if shame>=5:shame=4&shameless+=1
!if shame >= 4:set $shame = '<font color=red><b>Your cheeks blazing from zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color=red>Your cheeks flush red with 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>Your cheeks blazing from zalivshego them blush with shame.</b></font>'
!if shame = 3:set $shame = '<font color=red>Your cheeks flush red with 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 Holidays.</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 vacation.</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:
!absence from school
schoolprogul+=1
schoolProgulDay=day
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!Beginning Description
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!pl'time <B><<hour>></B> hours <B><<$nilmin>><<minut>></B> minutes'
!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.' 
if hour < 10 :
     if minut > 9 : pl' <B> 0<<hour>> : <<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
     if minut < 10 : pl' <B> 0<<hour>> : 0<<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
end
if hour > 9 :
     if minut > 9 : pl' <B> <<hour>> : <<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
     if minut < 10 : pl' <B> <<hour>> : 0<<minut>> </B> <<$week>> : <<day>> <<$mons>> <<year>> year, '
end

pl'  <b><<money>></b> rubles in your purse'
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>>'
pl'<B><<$manna>></B>'
if horny >= 90:pl'<font color=#FF1493>Do you feel, that between the legs soaked all of your juices.</font>'
if horny >= 50 and horny < 90:pl'<font color=#DB7093>You are a little excited, feeling like something between her legs nice itchy.</font>'
if ETOmenu=1:
pl'<B><<$health>></B>'
pl'<B><<$willpower>></B>'
pl'<B><<$energy>></B>'
pl'<B><<$water>></B>'
pl'<B><<$son>></B>'
end
if ETOmenu=0:
set a = horny
!set a1=horny
gs 'indik','2'
pl '<<$ind>> excitation'

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>> purity of mind'

set a = ( manna *100 / mannamax )
set a1 = manna
gs 'indik','1'
pl '<<$ind>> mana '

set a = energy*4
set a1=energy
gs 'indik','1'
pl '<<$ind>> satiety'

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>> cheerfulness '
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'<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 smokeNeed>0 and siga>0 and smoker>=20:
pl'<a href="exec:dynamic $smoker"><font color=red><b>You want to smoke. Do you have another <<siga>> cigarettes</b></font></a>'
elseif siga>0 and smoker>=20:
pl'<a href="exec:dynamic $smoker"><font color=blue><b>Do you have another <<siga>> cigarettes</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>Do you have another <<siga>> cigarettes</b></font></a>'
     end
end
if smokeHour=hour and smokeday=day and smokeminut>=minut:pl'<font color=green>Do you smoke a cigarette</font>'

if pirs_pain_ton>0:
if pirs_pain_ton=1:pl'<font color=red>You have aches language and it is a little swollen.</font>'
if pirs_pain_ton=2:pl'<font color=red>You often aches language and it is noticeably swollen.</font>'
if pirs_pain_ton>2:pl'<font color=red><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
end
if nippain>0:pl'<font color=red><b><<$nippain>></b></font>'
if painpub>0:pl'<font color=red><b><<$painpub>></b></font>'

if opPRE = 0:pl'<<$mop>> and <<$hapri>> hair.'
!!!!!!!!!!!!!!!!!!!
if sweat = 1:pl'<font color=brown>you sweat.</font>'
if sweat = 2:pl'<font color=red>You little smells.</font>'
if sweat = 3:pl'<font color=red>You stink then.</font>'
if sweat > 3:pl'<B><font color=red>You stink as from bomzhihi.</font></B>'
if isprok = 0 and mesec > 0 and preg = 0:pl'<B><font color=red>You have bleeding between the legs, urgently need a gasket.</font></B>'
if isprok = 1 and mesec > 0 and preg = 0:pl'You have monthly, but lining protects you.'
if preg = 1 and pregtime = 280:pl'<B><font color=red>YOU start to scramble you urgently need 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 are pregnant <<pregtime>> days, left before delivery <<rodtime>> days</font></B>'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl'<B><font color=red>You can leave for a work shift waitress in a cafe</font></B>'
if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl'<B><font color=red>YOU NEED TO WORK SECRETARY</font></B>'
if PersSecWork=1 and week<6 and hour<10 and hour>=5:pl'<B><font color=red>YOU NEED TO WORK secretary in BYSTROEZHKU, NO LATER THAN 9o`clock</font></B>'


$cumeater={
cumlip+=1
vaf+=1
cumbelly=0
gs'stat'
'You have collected fingers sperm from the stomach and licked them feel tart taste of semen.'
}
$cumeater2={
cumlip+=1
vaf+=1
cumpussy=0
gs'stat'
'You have collected sperm from fingers pussy and licked them feel 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 sperm from her face and licked them feel 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 sperm from the anus and lick them feel tart taste of semen.'
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!'<a href="exec:view''picb/cumface.jpg''">face</a>'
!'<a href="exec:view''picb/cumface.jpg''"><B><font color=red>Your face</font></B></a>'
!'<a href="exec:view''picb/cumass.jpg''"><B><font color=red>Your Booty</font></B></a>'


if cumbelly > 0 and swallow<10:pl'<B><font color=red>your <a href="exec:view''picb/cumbelly.jpg''">stomach</a> smeared in sperm.</font></B>'
if cumbelly > 0 and swallow>=10:pl'<a href="exec:view''picb/cumbelly.jpg''"><B><font color=red>your stomach</font></B></a> <a href="exec:dynamic $cumeater"><B><font color=red>smeared in sperm.</font></B></a>'

if cumpussy > 0 and swallow<10:pl'<B><font color=red>from your <a href="exec:view''picb/cumpussy.jpg''">pussy</a> sperm slowly flows.</font></B>'
if cumpussy > 0 and swallow>=10:pl'<a href="exec:view''picb/cumpussy.jpg''"><B><font color=red>Of your pussy</font></B></a> <a href="exec:dynamic $cumeater2"><B><font color=red>sperm slowly flows.</font></B></a>'

if cumass > 0 and swallow<10:pl'<B><font color=red>Your <a href="exec:view''picb/cumass.jpg''">Booty</a> peremazanna in semen.</font></B>'
if cumass > 0 and swallow>=10:pl'<a href="exec:view''picb/cumass.jpg''"><B><font color=red>Your Booty</font></B></a> <a href="exec:dynamic $cumeater3"><B><font color=red>peremazanna in semen.</font></B></a>'

if cumlip > 0:pl'<B><font color=red>From your mouth smells sperm.</font></B>'
if cumface > 0 and swallow<10:pl'<B><font color=red>your <a href="exec:view''picb/cumface.jpg''">face</a> and hair izmazanny in semen.</font></B>'
if cumface > 0 and swallow>=10:pl'<a href="exec:view''picb/cumface.jpg''"><B><font color=red>Your face</font></B></a> <a href="exec:dynamic $cumeater4"><B><font color=red>and hair izmazanny in semen.</font></B></a>'
if cumfrot > 0 and swallow<10:pl'<B><font color=red>You have to <a href="exec:view''picb/cumfrot.jpg''">clothes</a> spot sperm.</font></B>'
if cumfrot > 0 and swallow>=10:pl'<a href="exec:view''picb/cumfrot.jpg''"><B><font color=red>You have to dress</font></B></a> <a href="exec:dynamic $cumeater5"><B><font color=red>spot sperm.</font></B></a>'
if cumanus > 0 and swallow<10:pl'<B><font color=red>from your <a href="exec:view''picb/cumanal.jpg''">ass</a> sperm slowly flows.</font></B>'
if cumanus > 0 and swallow>=10:pl'<a href="exec:view''picb/cumanal.jpg''"><B><font color=red>Out of your ass</font></B></a> <a href="exec:dynamic $cumeater6"><B><font color=red>sperm slowly flows.</font></B></a>'
if vgape=3:pl'<B><font color=red>You have very sore vagina, You hardly even walk, while trying to wider legs apart.</font></B>'
if vgape=2:pl'<B><font color=red>Do 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 little sore vagina.</font></B>'
if agape=3:pl'<B><font color=red>You have very sore anus and comes out of your blood.</font></B>'
if agape=2:pl'<B><font color=red>Do you have a sore anus.</font></B>'
if agape=1:pl'<B><font color=red>You have a little sore and itchy anus.</font></B>'

if Gerpes >= 3:pl'<B><font color=red>Sores on your lips. All signs of genital herpes.</font></B>'
if Gerpes < 10 and Gerpes >= 5:pl'<B><font color=red>Your pussy blushed and strongly itches. This genital herpes.</font></B>'
if Gerpes >= 10:pl'<B><font color=red>Appeared on your pussy sores. This genital herpes.</font></B>'
if Gerpes >= 20:pl'<B><font color=red>Your ass covered with sores of genital herpes.</font></B>'
if Sifilis>=21 and Sifilis<50:pl'<B><font color=red>You have jumped most, solid 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>Vaginal white discharge come out strong and sharp pain when urinating. Just out of the vagina strongly and nasty smells.</font></B>'
if Kandidoz>30:pl'<B><font color=red>You thrush.</font></B>'
if SLomka>0:pl'<B><font color=red>You are very bad and hurt all the bones. You breaking</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 shiner on his 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 panties and now out of your short skirt sometimes shines 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 reddened and itchy, you think it rubbed on clothes.</font></B>'
if mosol>=50:pl'<B><font color=red>Pisya hurts and each step is given through the pain, Crimson and it can be seen worn by walking without underwear.</font></B>'
if analplugIN = 1:pl'<B><font color=red>You have inserted in the ass anal plug.</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>B 15 hours you have to be at work in the shop Keys Pussy.</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 will walk work.</font></B>'
if workrin=1:
	 if week=2 or week=4 or week=6:
		 if hour=7:pl'<B><font color=red>B 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 a little cold.</font></B>'
if frost>5 and frost<11:pl'<B><font color=red>you freeze.</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 have runny nose and throat was raw, you cough or sneeze - seems, you just.</font></B>'
if sick >= 24 and sick < 48:pl'<B><font color=red>You have a fever. You have clogged nose, it hurts to swallow - throat aches. You constantly cough and sneeze - seems, 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, you are very cough - seems, you got a strong cold. may be, this flu.</font></B>'
if sick >= 72:pl'<B><font color=red>You mosque in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You seriously with anguish cough - seems, you are seriously ill. may be, this sore throat.</font></B>'
if $mudnerd!'':pl'<<$mudnerd>>'

if hour < meethour and svidanieA = 1:pl'<<$boyA>> will be waiting for you near your home <<meethour>> hours'
if hour = meethour and svidanieA = 1:pl'<B><font color=red><<$boyA>> already waiting for you around the house.</font></B>'

if meetday<daystart and svidanieA = 1:bfA-=10&svidanieA = 0
if StrongNarkota>20:pl'<B><font color=red>You stoned.</font></B>'

if alko>0:
     if alko<3:pl'<B><font color=red>You`re a little drunk.</font></B>'
     if alko>=3 and alko<6:pl'<B><font color=red>you are drunk.</font></B>'
     if alko>=6:pl'<B><font color=red>You stinking drunk.</font></B>'
end

if day=29 and month=12 and year=2010 and StoryLine=1:
     if hour>=5 and hour<=14:pl'B 14 School hours will be held New Year`s party.'
end

gs'din_bad'

if bag>0:
pl'<a href="exec:dynamic $d_bag"><B>handbag</B></a>'
end

!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 ---------------------------------

