glife.qproj

@@ -1,1118 +1,1122 @@
 <?xml version="1.0" encoding="utf-8"?>
 <QGen-project version="4.0.0 beta 1">
-  <Structure>
-    <Location name="start"/>
-    <Location name="version"/>
-    <Location name="history"/>
-    <Location name="gameover"/>
-    <Location name="begin"/>
-    <Location name="onobjsel"/>
-    <Location name="obj_din"/>
-    <Location name="Cheatmenu_din"/>
-    <Folder name="System">
-      <Location name="counter"/>
-      <Location name="loadg"/>
-      <Location name="LOCA"/>
-      <Location name="saveg"/>
-      <Location name="inputProcessing"/>
-      <Location name="restoreposition"/>
-      <Location name="saveposition"/>
-      <Location name="mod_setting"/>
-    </Folder>
-    <Folder name="clothing">
-      <Location name="wardrobe"/>
-      <Location name="clothing"/>
-      <Location name="clothing_QV"/>
-      <Location name="changingroom"/>
-      <Location name="cloakroom"/>
-      <Location name="$clothing_name"/>
-      <Location name="$clothing_image"/>
-      <Location name="clothing_attributes"/>
-      <Location name="clothing_descriptions"/>
-      <Location name="$short_description"/>
-      <Location name="$attributes_cheap"/>
-      <Location name="$attributes_average"/>
-      <Location name="$attributes_expensive"/>
-      <Location name="$attributes_formal"/>
-      <Location name="$attributes_office"/>
-      <Location name="$attributes_school"/>
-      <Location name="$attributes_exercise"/>
-      <Location name="$attributes_fetish"/>
-      <Location name="$attributes_exhibit"/>
-      <Location name="$attributes_uniform"/>
-      <Location name="$attributes_coat"/>
-      <Location name="$attributes_swimwear"/>
-      <Location name="$attributes_burlesque"/>
-      <Location name="$attributes_alternative"/>
-      <Location name="lost_clothes_here"/>
-    </Folder>
-    <Folder name="shoes">
-      <Location name="shoes"/>
-      <Location name="$shoe_image"/>
-      <Location name="$shoe_description"/>
-      <Location name="shoe_attributes"/>
-      <Location name="shoe_description2"/>
-      <Location name="$attrib_shoe_boutique"/>
-      <Location name="$attrib_shoe_pussy"/>
-      <Location name="$attrib_shoe_dolls"/>
-      <Location name="$attrib_shoe_fetish"/>
-      <Location name="$attrib_shoe_gandm"/>
-      <Location name="$attrib_shoe_trainers"/>
-    </Folder>
-    <Folder name="underwear">
-      <Location name="underwear"/>
-      <Location name="bras"/>
-      <Location name="$bra_image"/>
-      <Location name="panties"/>
-      <Location name="$panty_image"/>
-    </Folder>
-    <Folder name="Accessories">
-      <Location name="purses"/>
-      <Location name="$purse_image"/>
-	  <Location name="sewing"/>
-    </Folder>
-    <Folder name="Stats">
-      <Location name="DNA"/>
-      <Location name="body"/>
-      <Location name="body_shape"/>
-      <Location name="cikl"/>
-      <Location name="daystart"/>
-      <Location name="dina"/>
-      <Location name="dinBoroda"/>
-      <Location name="MenuLoc"/>
-      <Location name="MenuMainLoc"/>
-      <Location name="starenie"/>
-      <Location name="stat"/>
-      <Location name="stat_display"/>
-      <Location name="stat_sklattrib"/>
-      <Location name="stat_sklattrib_lvlset"/>
-      <Location name="fame"/>
-      <Location name="traits"/>
-      <Location name="din_bad"/>
-      <Location name="din_van"/>
-      <Location name="statBat"/>
-      <Location name="kid"/>
-      <Location name="pattest"/>
-      <Location name="subkid"/>
-      <Location name="_statcheck"/>
-      <Location name="set_home"/>
-    </Folder>
-    <Folder name="Stimulus">
-      <Location name="boyStat"/>
-      <Location name="pain"/>
-      <Location name="arousal"/>
-      <Location name="orgasm"/>
-      <Location name="dinSex"/>
-      <Location name="dinSex2"/>
-      <Location name="dinsexFX"/>
-      <Location name="oral"/>
-      <Location name="orgazm"/>
-    </Folder>
-    <Folder name="Prostitution">
-      <Location name="Prostitute"/>
-      <Location name="NormPR"/>
-      <Location name="blowPR"/>
-      <Location name="AnalPR"/>
-    </Folder>
-    <Folder name="Quests">
-      <Location name="event"/>
-      <Location name="frot"/>
-      <Location name="kisameQW"/>
-      <Location name="lesbidomhouse"/>
-      <Location name="lesbimistress"/>
-      <Location name="lesbisubhouse"/>
-      <Location name="mainQW"/>
-      <Location name="tobiQW"/>
-      <Location name="cafe2"/>
-      <Location name="cafe3"/>
-      <Location name="ParkKafe"/>
-      <Location name="succubus"/>
-      <Location name="serpent"/>
-    </Folder>
-    <Folder name="Prehistory">
-      <Location name="preSYS"/>
-      <Location name="preSYS2"/>
-      <Location name="preTG"/>
-      <Location name="preNT"/>
-      <Location name="preCUST"/>
-      <Location name="preALT"/>
-    </Folder>
-    <Folder name="NPCManage">
-      <Location name="npccleanc"/>
-      <Location name="npcgeneratec"/>
-      <Location name="npcgenext"/>
-      <Location name="npcpreservec"/>
-      <Location name="npcrnamefile"/>
-      <Location name="npcbreeder"/>
-      <Location name="npcstatic1"/>
-      <Location name="npcstatic2"/>
-      <Location name="npcstatic3"/>
-      <Location name="npcstatic4"/>
-      <Location name="npcstatic5"/>
-      <Location name="npc_intro"/>
-      <Location name="npc_age"/>
-      <Location name="saveupdater"/>
-	  <Location name="NPCChanger"/>
-    </Folder>
-    <Folder name="Combat">
-      <Location name="fight"/>
-      <Location name="strelba"/>
-      <Location name="before"/>
-      <Location name="init"/>
-      <Location name="boxing"/>
-      <Location name="magik"/>
-      <Location name="enemy"/>
-      <Location name="atak"/>
-      <Location name="atakA"/>
-      <Location name="atakA1"/>
-      <Location name="atakB"/>
-      <Location name="atakB1"/>
-      <Location name="atakM"/>
-      <Location name="spell"/>
-      <Location name="ender"/>
-      <Location name="nill"/>
-      <Location name="test"/>
-      <Location name="priziv"/>
-      <Location name="defence"/>
-      <Location name="kikbox"/>
-      <Location name="initKik"/>
-      <Location name="Kikatak"/>
-      <Location name="enderKik"/>
-      <Location name="razrKik"/>
-    </Folder>
-    <Folder name="Shared locations">
-      <Location name="outdoors"/>
-      <Location name="indoors"/>
-      <Location name="shop"/>
-      <Location name="bank"/>
-      <Location name="kiosk"/>
-      <Location name="taxi"/>
-      <Location name="train"/>
-      <Location name="train_incidental"/>
-      <Location name="metro"/>
-      <Location name="metro_events"/>
-      <Location name="events"/>
-      <Location name="street_event"/>
-      <Location name="noticeboard"/>
-    </Folder>
-    <Folder name="Post office">
-      <Location name="postoffice"/>
-      <Location name="postmaster"/>
-      <Location name="postdeliveries"/>
-      <Location name="postevents"/>
-    </Folder>
-    <Folder name="Home Street - Locations">
-      <Location name="street"/>
-      <Location name="pharmacy"/>
-      <Location name="clener"/>
-      <Location name="dima"/>
-      <Location name="dinsexgivi"/>
-      <Location name="IrinaRoom"/>
-      <Location name="kafe"/>
-      <Location name="kafe2"/>
-      <Location name="kafeend"/>
-      <Location name="kavkazkafe"/>
-      <Location name="klofdomhouse"/>
-      <Location name="lake"/>
-      <Location name="dort"/>
-      <Location name="narkopriton"/>
-      <Location name="bobka"/>
-      <Location name="park"/>
-      <Location name="parkdin"/>
-      <Location name="parkivent"/>
-      <Location name="poli"/>
-      <Location name="rinok"/>
-      <Location name="rinwork"/>
-      <Location name="sauna"/>
-      <Location name="saunawhore"/>
-      <Location name="trashplace"/>
-      <Location name="musorkaexh"/>
-      <Location name="RynokHoz"/>
-    </Folder>
-    <Folder name="BDSM_Club">
-      <Location name="BDSM_Club"/>
-      <Location name="BDSM_training"/>
-      <Location name="MHall"/>
-      <Location name="MDressing"/>
-      <Location name="MLanding"/>
-      <Location name="MDining"/>
-      <Location name="MLibrary"/>
-      <Location name="MBallroom"/>
-      <Location name="MRear"/>
-      <Location name="MConservatory"/>
-      <Location name="MKitchen"/>
-      <Location name="MBasement"/>
-      <Location name="MWestbed"/>
-      <Location name="MEastbed"/>
-      <Location name="MGames"/>
-      <Location name="MLiving"/>
-      <Location name="MBathrooms"/>
-    </Folder>
-    <Folder name="Trade Representative">
-      <Location name="torgpred"/>
-      <Location name="StasQW"/>
-      <Location name="StasSex"/>
-    </Folder>
-    <Folder name="EfimovRA">
-      <Location name="billiard"/>
-      <Location name="billsvid"/>
-      <Location name="bordel"/>
-      <Location name="bordelv"/>
-      <Location name="bouling"/>
-      <Location name="kafesvid"/>
-      <Location name="kamera"/>
-      <Location name="kathouse0"/>
-      <Location name="Katlake"/>
-      <Location name="katspalnya"/>
-      <Location name="kazinosvid"/>
-      <Location name="kino"/>
-      <Location name="kinosvid"/>
-      <Location name="Kwlake1"/>
-      <Location name="Kwlake2"/>
-      <Location name="lezbsex"/>
-      <Location name="masharoom"/>
-      <Location name="Military"/>
-      <Location name="Nudelake"/>
-      <Location name="Palatka"/>
-      <Location name="parksvid"/>
-      <Location name="paysex"/>
-      <Location name="podrsex"/>
-      <Location name="police"/>
-      <Location name="qjob"/>
-      <Location name="sex"/>
-      <Location name="sexprefrand"/>
-      <Location name="sexdvanadva"/>
-      <Location name="sexdvoe"/>
-      <Location name="svidboy"/>
-      <Location name="Vnlake1"/>
-      <Location name="Vnlake2"/>
-      <Location name="WorkHosp"/>
-      <Location name="worksalon"/>
-    </Folder>
-    <Folder name="Tanya">
-      <Location name="tanapartment"/>
-      <Location name="tanroom"/>
-      <Location name="tanhozspal"/>
-      <Location name="tanhousezal"/>
-      <Location name="tanhouse"/>
-      <Location name="tankitchen"/>
-      <Location name="tanspalnya"/>
-      <Location name="tanvanr"/>
-      <Location name="tanNicholas"/>
-    </Folder>
-    <Folder name="Apartment">
-      <Location name="bedr"/>
-      <Location name="sitr"/>
-      <Location name="vanr"/>
-      <Location name="kuhr"/>
-      <Location name="korr"/>
-      <Location name="housecall"/>
-    </Folder>
-    <Folder name="Block">
-      <Location name="pavComplex"/>
-      <Location name="pavComplexb2"/>
-      <Location name="pavComplexb3"/>
-      <Location name="pavComplexOld"/>
-      <Location name="pod_ezd"/>
-      <Location name="pod_whore"/>
-      <Location name="gopsex"/>
-      <Location name="misha"/>
-    </Folder>
-    <Folder name="Parent's Apartment">
-      <Location name="bedrPar"/>
-      <Location name="bedrPar2"/>
-      <Location name="sitrPar"/>
-      <Location name="vanrPar"/>
-      <Location name="kuhrPar"/>
-      <Location name="korrPar"/>
-      <Location name="selfplay"/>
-      <Location name="gtelefon"/>
-    </Folder>
-    <Folder name="Family">
-      <Location name="seeparentsex"/>
-      <Location name="father"/>
-      <Location name="fathersex"/>
-      <Location name="dinfather"/>
-      <Location name="mother"/>
-      <Location name="motherQW"/>
-      <Location name="dinmother"/>
-      <Location name="sister"/>
-      <Location name="sistersleep"/>
-      <Location name="sisterQW"/>
-      <Location name="dinsister"/>
-      <Location name="family"/>
-    </Folder>
-    <Folder name="Rolan">
-      <Location name="pavcomplexrolan"/>
-      <Location name="rolanapt"/>
-      <Location name="rolanbath"/>
-    </Folder>
-    <Folder name="Generic boyfriend">
-      <Location name="Gnpc"/>
-      <Location name="Gnpc_cinema"/>
-      <Location name="Gnpc2"/>
-    </Folder>
-    <Folder name="Brother porn">
-      <Location name="brother"/>
-	  <Location name="brother_voyeur"/>
-	  <Location name="brother_lessons"/>
-      <Location name="seeporn"/>
-      <Location name="brosh"/>
-      <Location name="porn_view"/>
-      <Location name="porn_view_strings"/>
-      <Location name="porn_view_construct"/>
-    </Folder>
-    <Folder name="Reks">
-      <Location name="reks"/>
-      <Location name="sbReksHome"/>
-      <Location name="dinParty"/>
-      <Location name="party_boy"/>
-      <Location name="party_boys"/>
-      <Location name="party_girls"/>
-      <Location name="sister_party"/>
-      <Location name="roma"/>
-      <Location name="ira"/>
-      <Location name="lena"/>
-    </Folder>
-    <Folder name="Dima Nosov">
-      <Location name="dimaEv"/>
-      <Location name="dimaHome"/>
-      <Location name="dimaRevenge"/>
-      <Location name="dinnpc"/>
-      <Location name="krutishi"/>
-    </Folder>
-    <Folder name="Artem Chebotarev">
-      <Location name="artemEv"/>
-      <Location name="artemEv3"/>
-      <Location name="artemhome"/>
-      <Location name="artemev2"/>
-      <Location name="artgar"/>
-    </Folder>
-    <Folder name="Igor Kruglov">
-      <Location name="IgorEv"/>
-      <Location name="igorhome"/>
-    </Folder>
-    <Folder name="Katja Meynold">
-      <Location name="katjaEv"/>
-      <Location name="katjaEvDin"/>
-      <Location name="KatjaHome"/>
-      <Location name="KatjaHomeTalk"/>
-      <Location name="katja_sex"/>
-      <Location name="Katja_Tanga"/>
-    </Folder>
-    <Folder name="Vika Meynold">
-      <Location name="mey_home"/>
-      <Location name="mey_vika_events"/>
-      <Location name="mey_tamara_events"/>
-    </Folder>
-    <Folder name="Niko Volkov">
-      <Location name="VolkovHome"/>
-      <Location name="NikoEv"/>
-      <Location name="NikoEv2"/>
-      <Location name="NikoDates"/>
-      <Location name="NikoDreams"/>
-      <Location name="NikoPayback"/>
-      <Location name="NikoSlut"/>
-      <Location name="SoniaHome"/>
-    </Folder>
-    <Folder name="Anushka">
-      <Location name="anushka"/>
-      <Location name="anushkaev1"/>
-      <Location name="anushapt"/>
-    </Folder>
-    <Folder name="Village">
-      <Location name="famdorfride"/>
-      <Location name="farmhomeride"/>
-    </Folder>
-    <Folder name="Gadyukino">
-      <Location name="Gadhouse"/>
-      <Location name="grandmahelp"/>
-      <Location name="grandpahelp"/>
-      <Location name="Gaddvor"/>
-      <Location name="Gadsarai"/>
-      <Location name="Gadbana"/>
-      <Location name="gadukino"/>
-      <Location name="gadukino_event"/>
-      <Location name="gadriver"/>
-      <Location name="Meadow"/>
-      <Location name="mitka"/>
-      <Location name="mitkabuh"/>
-      <Location name="mitkabuh_group"/>
-      <Location name="mitkasex"/>
-      <Location name="bandit"/>
-      <Location name="banditbreak"/>
-      <Location name="gadprostitutes"/>
-      <Location name="bicycle"/>
-      <Location name="gadfield"/>
-      <Location name="Gadgarden"/>
-      <Location name="gadmarket"/>
-      <Location name="gadroad"/>
-      <Location name="grigory"/>
-      <Location name="MiroslavaHome"/>
-      <Location name="Miroslava"/>
-      <Location name="mirasex"/>
-      <Location name="Mirafather"/>
-      <Location name="gadforest"/>
-      <Location name="gadforest_event"/>
-      <Location name="gadforestlost"/>
-      <Location name="gadforestrelax"/>
-    </Folder>
-    <Folder name="Swamp">
-      <Location name="gadforestswamp"/>
-      <Location name="swamp"/>
-      <Location name="swamp_yard"/>
-      <Location name="swamphouse"/>
-      <Location name="swampspring"/>
-      <Location name="backwater"/>
-      <Location name="hanters"/>
-      <Location name="hantersex"/>
-      <Location name="HanterLoveSex"/>
-      <Location name="AndreiHanter"/>
-      <Location name="IgorHanter"/>
-      <Location name="SergeiHanter"/>
-    </Folder>
-    <Folder name="Generator">
-      <Location name="placer"/>
-      <Location name="placer_gskver"/>
-      <Location name="placer_man"/>
-      <Location name="placer_act"/>
-      <Location name="skverdin"/>
-      <Location name="placer_end"/>
-      <Location name="placer_sex"/>
-      <Location name="podval_rape"/>
-      <Location name="gopnik_house"/>
-      <Location name="placer_house"/>
-      <Location name="placer_house_one"/>
-      <Location name="placer_gop_orgy"/>
-      <Location name="fbHouse"/>
-      <Location name="fbDorm"/>
-      <Location name="fbDormD"/>
-      <Location name="fbGar"/>
-      <Location name="zsoft_gopskverGorSlut"/>
-    </Folder>
-    <Folder name="Town">
-      <Location name="pavResidential"/>
-      <Location name="pavCommercial"/>
-      <Location name="pavCommercialOffices"/>
-      <Location name="leonid"/>
-      <Location name="gargazel"/>
-      <Location name="garfather"/>
-      <Location name="Gshveyfab"/>
-      <Location name="gaptek"/>
-      <Location name="DanceWhore1"/>
-      <Location name="DanceWhore2"/>
-      <Location name="DanceWhore3"/>
-      <Location name="DanceWhore4"/>
-      <Location name="DanceWhore5"/>
-      <Location name="DanceWhore6"/>
-      <Location name="DanceWhore7"/>
-      <Location name="DanceWhore8"/>
-      <Location name="soniaDisco"/>
-      <Location name="gkafe"/>
-      <Location name="motherkafeboss"/>
-      <Location name="glake"/>
-      <Location name="gLakeNude"/>
-      <Location name="gLakeNudeEvent"/>
-      <Location name="gLakeNudeForest"/>
-      <Location name="LakeBoyZ"/>
-      <Location name="gpoli"/>
-      <Location name="therapist"/>
-      <Location name="gevent"/>
-      <Location name="gskver"/>
-      <Location name="gopskver"/>
-      <Location name="gskino"/>
-      <Location name="cafe_parco"/>
-      <Location name="EvOtelMan"/>
-      <Location name="EvgopBuh"/>
-      <Location name="EvBoyBuh"/>
-      <Location name="kotovEv"/>
-      <Location name="IvanEv"/>
-      <Location name="FedorEv"/>
-      <Location name="FedorEv2"/>
-      <Location name="FedorEv3"/>
-      <Location name="FedorEv4"/>
-      <Location name="FedorMisc"/>
-      <Location name="strela"/>
-      <Location name="kotovSex"/>
-      <Location name="kotovdom"/>
-      <Location name="boymass"/>
-      <Location name="barbershop"/>
-      <Location name="annafrends"/>
-      <Location name="MagEncounterFairy"/>
-      <Location name="ParChurch"/>
-      <Location name="ParChurch2"/>
-      <Location name="brothel"/>
-    </Folder>
-    <Folder name="School">
-      <Location name="gschool_grounds"/>
-      <Location name="gschool_lessons"/>
-      <Location name="gschool_lessonsev1"/>
-      <Location name="gschool_lessonsev2"/>
-      <Location name="gschool_lessonsev3"/>
-      <Location name="gschool_lunch"/>
-      <Location name="gschool_office"/>
-      <Location name="gschool_events"/>
-      <Location name="gschool_gossip"/>
-      <Location name="gschool_boys_bathroom"/>
-      <Location name="gschool_girls_bathroom"/>
-      <Location name="gschool_sex"/>
-      <Location name="gschool_detention"/>
-      <Location name="gschool_randperson"/>
-      <Location name="gschool_socialchg"/>
-      <Location name="gschool_schedule"/>
-      <Location name="Sgrup1"/>
-      <Location name="Sgrup2"/>
-      <Location name="Sgrup3"/>
-      <Location name="Sgrup4"/>
-      <Location name="Sgrup5"/>
-      <Location name="Sgrup"/>
-      <Location name="nogorslut"/>
-      <Location name="yesgorslut"/>
-    </Folder>
-    <Folder name="Shared_appartment">
-      <Location name="pavSharedApt"/>
-      <Location name="pavShared_gp"/>
-      <Location name="pavShared_nd"/>
-      <Location name="pavShared_sp"/>
-    </Folder>
-    <Folder name="House of Culture">
-      <Location name="gdk"/>
-      <Location name="gdkkru"/>
-      <Location name="gdkbibl"/>
-      <Location name="gdkin"/>
-      <Location name="gdksport"/>
-      <Location name="gdktoilet"/>
-      <Location name="BMloc"/>
-      <Location name="ugel"/>
-      <Location name="Voltrener"/>
-      <Location name="VolleyTrenCentr"/>
-      <Location name="VolleyTrenerSpeak"/>
-      <Location name="Voltrenersex"/>
-      <Location name="chessplay"/>
-      <Location name="boilerroom"/>
-      <Location name="krupo"/>
-      <Location name="kruchess"/>
-      <Location name="VoltrenerSexShower"/>
-      <Location name="Snpc"/>
-      <Location name="cumreaction"/>
-      <Location name="izdevat"/>
-      <Location name="kotovtalker"/>
-      <Location name="SgrupDisco"/>
-    </Folder>
-    <Folder name="Event gym town">
-      <Location name="danceGev"/>
-      <Location name="volAndGev"/>
-    </Folder>
-    <Folder name="Station Campus">
-      <Location name="vokzalG"/>
-      <Location name="Grinok"/>
-      <Location name="vokzalGin"/>
-      <Location name="vokdin"/>
-      <Location name="vokdinvera"/>
-      <Location name="vokmantoiev"/>
-      <Location name="vokzaltorg"/>
-      <Location name="vokzalper"/>
-      <Location name="vokzalperG"/>
-      <Location name="vokzaltoilet"/>
-      <Location name="vokzalholle"/>
-      <Location name="katalkin"/>
-      <Location name="katalkinSex"/>
-      <Location name="katalkinAlko"/>
-      <Location name="kutuzka"/>
-    </Folder>
-    <Folder name="Christina Zvereva">
-      <Location name="gKristinaZv"/>
-    </Folder>
-    <Folder name="Julia Milov 12">
-      <Location name="JuliaMilGo"/>
-      <Location name="JuliaMilHome"/>
-      <Location name="JuliaMilVhod"/>
-    </Folder>
-    <Folder name="Arthur">
-      <Location name="arturRinok"/>
-      <Location name="arturHome"/>
-      <Location name="arturSex"/>
-      <Location name="arturkiosk"/>
-      <Location name="arturend"/>
-      <Location name="arturdin"/>
-      <Location name="arturQW"/>
-    </Folder>
-    <Folder name="Natasha Belova 16">
-      <Location name="NatBelGo"/>
-      <Location name="NatBelHome"/>
-      <Location name="NatBelVhod"/>
-    </Folder>
-    <Folder name="Albina">
-      <Location name="albinaEv"/>
-      <Location name="albinaRide"/>
-      <Location name="albinahome"/>
-      <Location name="albinaporog"/>
-      <Location name="AlbFatherQW"/>
-      <Location name="AlbStarsEnd"/>
-    </Folder>
-    <Folder name="Lariska">
-      <Location name="LariskaStart"/>
-      <Location name="LariskaGo"/>
-      <Location name="LariskaHome"/>
-    </Folder>
-    <Folder name="Pets">
-      <Location name="soba"/>
-      <Location name="krol"/>
-      <Location name="popu"/>
-      <Location name="qwlocdog"/>
-      <Location name="RimmaSexQW"/>
-    </Folder>
-    <Folder name="Furniture">
-      <Location name="bed"/>
-      <Location name="bed1"/>
-      <Location name="bed2"/>
-      <Location name="beverage"/>
-      <Location name="beverage_menu"/>
-      <Location name="dreams"/>
-      <Location name="budilnik"/>
-      <Location name="divan"/>
-      <Location name="Komp"/>
-      <Location name="kompMFC"/>
-      <Location name="kompMFCtwo"/>
-      <Location name="webcam_site"/>
-      <Location name="mirror"/>
-      <Location name="stol"/>
-      <Location name="telefon"/>
-      <Location name="$phone_theme"/>
-      <Location name="kit_din"/>
-      <Location name="food"/>
-      <Location name="food_menu"/>
-      <Location name="TV"/>
-      <Location name="vann"/>
-    </Folder>
-    <Folder name="Encounter Generator">
-      <Location name="din_npc"/>
-      <Location name="podezdM"/>
-      <Location name="sexm"/>
-      <Location name="dateM"/>
-      <Location name="kinoM"/>
-      <Location name="parkM"/>
-      <Location name="kafeM"/>
-      <Location name="restoranM"/>
-      <Location name="anekdot"/>
-      <Location name="stihi"/>
-      <Location name="love"/>
-      <Location name="brosok"/>
-    </Folder>
-    <Folder name="City Center">
-      <Location name="down"/>
-      <Location name="cityTrain"/>
-      <Location name="agentned"/>
-      <Location name="kameraKPZ"/>
-      <Location name="bass"/>
-      <Location name="burger"/>
-      <Location name="burgerWork"/>
-      <Location name="BurgerTip"/>
-      <Location name="butik"/>
-      <Location name="butoilet"/>
-      <Location name="cfnm"/>
-      <Location name="club"/>
-      <Location name="Club2"/>
-      <Location name="vipclub"/>
-      <Location name="danceclass"/>
-      <Location name="dorm"/>
-      <Location name="downlibrary"/>
-      <Location name="fit"/>
-      <Location name="talent_agency"/>
-      <Location name="lab"/>
-      <Location name="tatiana_missions"/>
-      <Location name="NewCloShop"/>
-      <Location name="office"/>
-      <Location name="restoran"/>
-      <Location name="salon"/>
-      <Location name="hairsalon"/>
-      <Location name="sexshop"/>
-      <Location name="shopdacha"/>
-      <Location name="sportShop"/>
-      <Location name="stripclub"/>
-      <Location name="stwork"/>
-      <Location name="stwork2"/>
-      <Location name="torgcentr"/>
-      <Location name="univer"/>
-      <Location name="yarik"/>
-      <Location name="zoomagazine"/>
-      <Location name="budgetclothes"/>
-    </Folder>
-    <Folder name="Photo studio">
-      <Location name="foto"/>
-      <Location name="foto_events"/>
-      <Location name="foto_albums"/>
-      <Location name="foto_models"/>
-      <Location name="anastasia_escort"/>
-    </Folder>
-    <Folder name="North Side">
-      <Location name="Nord"/>
-      <Location name="Terminal"/>
-      <Location name="TerminalOffice"/>
-      <Location name="ivanRoom"/>
-      <Location name="trFatherMisha"/>
-      <Location name="dk"/>
-      <Location name="kakuzu"/>
-      <Location name="youry"/>
-      <Location name="alex"/>
-      <Location name="alexgang"/>
-      <Location name="lakecafe"/>
-      <Location name="laketoilet"/>
-      <Location name="LCporn"/>
-      <Location name="LCwork"/>
-      <Location name="pirsingsalon"/>
-      <Location name="vokzal"/>
-      <Location name="obekt"/>
-      <Location name="obekt2"/>
-      <Location name="dangeon"/>
-    </Folder>
-    <Folder name="Bar Rabotnik">
-      <Location name="qwBarPolet"/>
-      <Location name="qwBarPoletToilet"/>
-      <Location name="qwBarBilliard"/>
-      <Location name="qwBarBilliard2"/>
-      <Location name="qwBarEncounters"/>
-      <Location name="MartinTalk"/>
-      <Location name="MartinSex"/>
-      <Location name="MartinSex2"/>
-      <Location name="MartinSex3"/>
-    </Folder>
-    <Folder name="North Road">
-      <Location name="dachain"/>
-      <Location name="dachamy"/>
-      <Location name="dachaogr"/>
-      <Location name="dachaogr0"/>
-      <Location name="dachi"/>
-      <Location name="graveyard"/>
-      <Location name="motel"/>
-      <Location name="road"/>
-      <Location name="youplace"/>
-      <Location name="furi"/>
-      <Location name="furisex"/>
-    </Folder>
-    <Folder name="Mansion">
-      <Location name="ybass"/>
-      <Location name="yban"/>
-      <Location name="ymans"/>
-      <Location name="ybedr"/>
-      <Location name="yvan"/>
-      <Location name="ykuh"/>
-      <Location name="yzal"/>
-      <Location name="ykamin"/>
-      <Location name="ydet"/>
-      <Location name="ybib"/>
-      <Location name="ysport"/>
-      <Location name="ykabinet"/>
-    </Folder>
-    <Folder name="Porn">
-      <Location name="BDSM"/>
-      <Location name="pornstudio"/>
-      <Location name="pornfilm"/>
-      <Location name="pornhist"/>
-	  <Location name="pornschedule"/>
-    </Folder>
-    <Folder name="Boys">
-      <Location name="BDman"/>
-      <Location name="BDsex"/>
-      <Location name="boy"/>
-      <Location name="boyfrend"/>
-      <Location name="boylove"/>
-    </Folder>
-    <Folder name="Lover">
-      <Location name="girl"/>
-      <Location name="girlfriend"/>
-      <Location name="dateF"/>
-      <Location name="lover"/>
-      <Location name="lover_change"/>
-      <Location name="lover_likes"/>
-      <Location name="lover_love"/>
-      <Location name="lover_meet"/>
-      <Location name="lover_pref"/>
-      <Location name="lover_pronouns"/>
-      <Location name="pronouns"/>
-    </Folder>
-    <Folder name="University">
-      <Location name="island"/>
-      <Location name="dolls"/>
-      <Location name="vecher"/>
-      <Location name="obkitchen"/>
-      <Location name="obroom"/>
-      <Location name="Vika"/>
-      <Location name="univer_din"/>
-    </Folder>
-    <Folder name="Game 1">
-      <Location name="KGstart"/>
-      <Location name="KGOLgame"/>
-      <Location name="KGOLenemy"/>
-      <Location name="KGOLboss"/>
-      <Location name="KGOLfight"/>
-      <Location name="KGOLexpa"/>
-    </Folder>
-    <Folder name="Game 2">
-      <Location name="KGDstart"/>
-      <Location name="KGDgame"/>
-      <Location name="KGDexp"/>
-      <Location name="KGDbefore"/>
-      <Location name="KGDfight"/>
-      <Location name="KGDparty"/>
-    </Folder>
-    <Folder name="Game 3">
-      <Location name="KGZstart"/>
-      <Location name="KGZgame"/>
-      <Location name="KGZdyn"/>
-      <Location name="KGZfight"/>
-    </Folder>
-    <Folder name="Game 4">
-      <Location name="FSstart"/>
-      <Location name="FSgame"/>
-      <Location name="FSstat"/>
-      <Location name="FSfight"/>
-      <Location name="FSroom"/>
-    </Folder>
-    <Folder name="Youth Shop">
-      <Location name="young_shop"/>
-      <Location name="sell_young_clothes"/>
-      <Location name="andrey"/>
-      <Location name="gopnew"/>
-      <Location name="goplust"/>
-      <Location name="gopwho"/>
-    </Folder>
-    <Folder name="Cars">
-      <Location name="avtonorm"/>
-      <Location name="avt"/>
-      <Location name="avb"/>
-      <Location name="zaprF"/>
-      <Location name="zaprFWash"/>
-      <Location name="abduction"/>
-      <Location name="abductionCustomer"/>
-      <Location name="autosalonF"/>
-      <Location name="autoservisF"/>
-      <Location name="autotraidF"/>
-      <Location name="carF"/>
-      <Location name="carF1"/>
-    </Folder>
-    <Folder name="Quest">
-      <Location name="qwIzoldaApp"/>
-      <Location name="qwloc"/>
-      <Location name="qwmeet"/>
-    </Folder>
-    <Folder name="Casino">
-      <Location name="casino"/>
-      <Location name="mqroom"/>
-      <Location name="authors3"/>
-      <Location name="amrul"/>
-      <Location name="saloon"/>
-      <Location name="hotel"/>
-      <Location name="igravt"/>
-      <Location name="igrkart2"/>
-      <Location name="kazvar"/>
-      <Location name="cards"/>
-      <Location name="croupier"/>
-      <Location name="croupier2"/>
-      <Location name="elevator"/>
-      <Location name="Maria1"/>
-      <Location name="number1"/>
-      <Location name="number2"/>
-      <Location name="number3"/>
-      <Location name="number4"/>
-      <Location name="result"/>
-      <Location name="roulette"/>
-      <Location name="rate"/>
-      <Location name="hall"/>
-	  <Location name="blackjackPlay"/>
-	  <Location name="blackjackView"/>
-	  <Location name="deckShuffle"/>
-    </Folder>
-    <Folder name="Menu">
-      <Location name="Menu.Info"/>
-      <Location name="Menu.Create"/>
-      <Location name="Menu.Add"/>
-      <Location name="Menu.AddCondition"/>
-      <Location name="Menu.AddModule"/>
-      <Location name="Menu.AddEvent"/>
-      <Location name="Menu.Call"/>
-      <Location name="Menu.Chosen"/>
-      <Location name="Menu.Time"/>
-      <Location name="Menu.Destroy"/>
-      <Location name="Menu.Treatment"/>
-    </Folder>
-    <Folder name="Game Menu">
-      <Location name="$menu_setting"/>
-      <Location name="$menu_skills"/>
-      <Location name="$menu_descrip"/>
-      <Location name="$menu_statistika"/>
-      <Location name="$menu_calendar"/>
-      <Location name="$menu_reputation"/>
-      <Location name="$menu_traits"/>
-      <Location name="$menu_mobila"/>
-      <Location name="$menu_magic"/>
-      <Location name="$menu_pain"/>
-      <Location name="$menu_face"/>
-      <Location name="$menu_body"/>
-      <Location name="$menu_clothes"/>
-      <Location name="$menu_bra"/>
-      <Location name="$menu_panties"/>
-      <Location name="$menu_shoes"/>
-      <Location name="$menu_tattoos"/>
-      <Location name="$menu_pirs"/>
-      <Location name="$menu_obnovit"/>
-      <Location name="$menu_bloknot"/>
-      <Location name="$menu_avariya"/>
-      <Location name="$menu_addoldmenu"/>
-      <Location name="$menu_autosave"/>
-      <Location name="$menu_cheat"/>
-    </Folder>
-    <Folder name="Etogame">
-      <Location name="etoexhib"/>
-      <Location name="vokBimbo"/>
-      <Location name="parkBimbo"/>
-      <Location name="ptu_dush"/>
-      <Location name="nastja"/>
-      <Location name="Timofei"/>
-      <Location name="TimofeiMetro"/>
-      <Location name="balkon"/>
-      <Location name="balkon2"/>
-      <Location name="dom_gor"/>
-      <Location name="comendant"/>
-      <Location name="buklinik"/>
-      <Location name="buklinik_event"/>
-    </Folder>
-    <Folder name="Misc">
-      <Location name="beg"/>
-      <Location name="beg1"/>
-      <Location name="housing"/>
-      <Location name="husb"/>
-      <Location name="husbSex"/>
-      <Location name="indik"/>
-	  <Location name="indiktab"/>
-      <Location name="Peterroom"/>
-      <Location name="portnoi"/>
-      <Location name="portnoi2"/>
-      <Location name="sexorg"/>
-      <Location name="shortgs"/>
-	  <Location name="$stock_item_info"/>
-      <Location name="$stock_item"/>
-      <Location name="$single_stock_item"/>
-      <Location name="$buy_item"/>
-      <Location name="$buy_single_item"/>
-      <Location name="$face_image"/>
-      <Location name="$body_image"/>
-    </Folder>
-    <Folder name="Female wrestling">
-      <Location name="generation"/>
-      <Location name="Autofight"/>
-      <Location name="beforeFW"/>
-      <Location name="FightStat"/>
-      <Location name="FightCrouch"/>
-      <Location name="fightFW"/>
-      <Location name="fight1"/>
-      <Location name="fight2"/>
-      <Location name="fight3"/>
-      <Location name="FightE"/>
-      <Location name="FightE1"/>
-      <Location name="FightE2"/>
-      <Location name="FightE3"/>
-      <Location name="RoundEnd"/>
-      <Location name="RoundStop"/>
-      <Location name="SubWin"/>
-      <Location name="SubLoss"/>
-      <Location name="EndFight"/>
-      <Location name="ratinglist"/>
-      <Location name="npc"/>
-      <Location name="namer"/>
-      <Location name="npcview"/>
-    </Folder>
-    <Folder name="New Year 2010">
-      <Location name="nyp_school"/>
-      <Location name="sny"/>
-    </Folder>
-    <Folder name="Deck of cards">
-      <Location name="card"/>
-      <Location name="blackjack"/>
-    </Folder>
-    <Folder name="Hotel">
-      <Location name="HotelHole"/>
-      <Location name="hotel_resep"/>
-      <Location name="HotelAdmin"/>
-      <Location name="HotelWork"/>
-      <Location name="HotelRoom"/>
-    </Folder>
-    <Folder name="Shulga">
-      <Location name="shulgahome"/>
-      <Location name="shulgahall"/>
-      <Location name="shulgabed"/>
-      <Location name="shulgakuh"/>
-      <Location name="shulgabath"/>
-      <Location name="shulga_room"/>
-      <Location name="cardgame_durak"/>
-      <Location name="Serge_kuh"/>
-      <Location name="Serge_Shulgin"/>
-    </Folder>
-    <Folder name="Bel gang">
-      <Location name="LakeBoyDy"/>
-      <Location name="belgang"/>
-      <Location name="BelSex"/>
-      <Location name="belpicknick"/>
-    </Folder>
-    <Folder name="Old Town">
-      <Location name="liam"/>
-      <Location name="liamelkafe"/>
-      <Location name="stallion"/>
-      <Location name="larek"/>
-      <Location name="dvor"/>
-      <Location name="ugol"/>
-      <Location name="ugol1"/>
-      <Location name="artstudia"/>
-      <Location name="liames"/>
-      <Location name="exhibitionistshop"/>
-      <Location name="kseniyaQW"/>
-      <Location name="parks"/>
-      <Location name="lug"/>
-      <Location name="dibodi"/>
-      <Location name="psiklin"/>
-      <Location name="din_pav"/>
-    </Folder>
-    <Folder name="OldTownHome">
-      <Location name="vanr2x"/>
-      <Location name="korr2x"/>
-      <Location name="bedr2x"/>
-      <Location name="sitr2x"/>
-      <Location name="kuhr2x"/>
-      <Location name="koncepod"/>
-      <Location name="koncepod1"/>
-    </Folder>
-    <Folder name="CumManage">
-  		<Location name="Cum_Manage"/>
-  		<Location name="cum_arrcheat"/>
-  		<Location name="cum_cleanup"/>
-  		<Location name="cum_call"/>
-  		<Location name="pregriskeval"/>
-  		<Location name="cuminsidereact"/>
-    </Folder>
-    <Folder name="Ibiza">
-  		<Location name="IbizaStart"/>
-  		<Location name="IbizaDay2"/>
-  		<Location name="IbizaDay3"/>
-  		<Location name="IbizaDay4"/>
-  		<Location name="IbizaDay5"/>
-  		<Location name="IbizaDay6"/>
-  		<Location name="IbizaDay7"/>
-  		<Location name="IbizaToilet"/>
-  		<Location name="IbizaDance"/>
-  		<Location name="IbizaBar"/>
-  		<Location name="IbizaGuard"/>
-    </Folder>
-	  <Location name="LBZhouse"/>
-    <Location name="femcyc"/>
-  	<Location name="show_table"/>
-  	<Location name="exercise"/>
-    <Location name="BanSexType"/>
-
-    <Folder name="crossfit_north">
-      <Location name="crossfit_north_box"/>
-      <Location name="crossfit_north_wod"/>
-      <Location name="crossfit_north_record"/>
-      <Location name="crossfit_north_girlmeet"/>
-    </Folder>
-  </Structure>
+	<Structure>
+	<Location name="start"/>
+	<Location name="version"/>
+	<Location name="history"/>
+	<Location name="gameover"/>
+	<Location name="begin"/>
+	<Location name="onobjsel"/>
+	<Location name="obj_din"/>
+	<Location name="Cheatmenu_din"/>
+	<Folder name="System">
+		<Location name="counter"/>
+		<Location name="loadg"/>
+		<Location name="LOCA"/>
+		<Location name="saveg"/>
+		<Location name="inputProcessing"/>
+		<Location name="restoreposition"/>
+		<Location name="saveposition"/>
+		<Location name="mod_setting"/>
+		<Location name="$difficulty"/>
+	</Folder>
+	<Folder name="clothing">
+		<Location name="wardrobe"/>
+		<Location name="clothing"/>
+		<Location name="clothing_QV"/>
+		<Location name="changingroom"/>
+		<Location name="cloakroom"/>
+		<Location name="$clothing_name"/>
+		<Location name="$clothing_image"/>
+		<Location name="clothing_attributes"/>
+		<Location name="clothing_descriptions"/>
+		<Location name="$short_description"/>
+		<Location name="$attributes_cheap"/>
+		<Location name="$attributes_average"/>
+		<Location name="$attributes_expensive"/>
+		<Location name="$attributes_formal"/>
+		<Location name="$attributes_office"/>
+		<Location name="$attributes_school"/>
+		<Location name="$attributes_exercise"/>
+		<Location name="$attributes_fetish"/>
+		<Location name="$attributes_exhibit"/>
+		<Location name="$attributes_uniform"/>
+		<Location name="$attributes_coat"/>
+		<Location name="$attributes_swimwear"/>
+		<Location name="$attributes_burlesque"/>
+		<Location name="$attributes_alternative"/>
+		<Location name="lost_clothes_here"/>
+	</Folder>
+	<Folder name="shoes">
+		<Location name="shoes"/>
+		<Location name="$shoe_image"/>
+		<Location name="$shoe_description"/>
+		<Location name="shoe_attributes"/>
+		<Location name="shoe_description2"/>
+		<Location name="$attrib_shoe_boutique"/>
+		<Location name="$attrib_shoe_pussy"/>
+		<Location name="$attrib_shoe_dolls"/>
+		<Location name="$attrib_shoe_fetish"/>
+		<Location name="$attrib_shoe_gandm"/>
+		<Location name="$attrib_shoe_trainers"/>
+	</Folder>
+	<Folder name="underwear">
+		<Location name="underwear"/>
+		<Location name="bras"/>
+		<Location name="$bra_image"/>
+		<Location name="panties"/>
+		<Location name="$panty_image"/>
+	</Folder>
+	<Folder name="Accessories">
+		<Location name="purses"/>
+		<Location name="$purse_image"/>
+		<Location name="sewing"/>
+	</Folder>
+	<Folder name="Stats">
+		<Location name="DNA"/>
+		<Location name="body"/>
+		<Location name="body_shape"/>
+		<Location name="cikl"/>
+		<Location name="daystart"/>
+		<Location name="dina"/>
+		<Location name="dinBoroda"/>
+		<Location name="MenuLoc"/>
+		<Location name="MenuMainLoc"/>
+		<Location name="starenie"/>
+		<Location name="stat"/>
+		<Location name="stat_display"/>
+		<Location name="stat_sklattrib"/>
+		<Location name="stat_sklattrib_lvlset"/>
+		<Location name="fame"/>
+		<Location name="traits"/>
+		<Location name="din_bad"/>
+		<Location name="din_van"/>
+		<Location name="statBat"/>
+		<Location name="kid"/>
+		<Location name="pattest"/>
+		<Location name="subkid"/>
+		<Location name="_statcheck"/>
+		<Location name="set_home"/>
+	</Folder>
+	<Folder name="Stimulus">
+		<Location name="boyStat"/>
+		<Location name="pain"/>
+		<Location name="arousal"/>
+		<Location name="orgasm"/>
+		<Location name="exhibitionism"/>
+		<Location name="dinSex"/>
+		<Location name="dinSex2"/>
+		<Location name="dinsexFX"/>
+		<Location name="oral"/>
+		<Location name="orgazm"/>
+	</Folder>
+	<Folder name="Prostitution">
+		<Location name="Prostitute"/>
+		<Location name="NormPR"/>
+		<Location name="blowPR"/>
+		<Location name="AnalPR"/>
+	</Folder>
+	<Folder name="Quests">
+		<Location name="event"/>
+		<Location name="frot"/>
+		<Location name="kisameQW"/>
+		<Location name="lesbidomhouse"/>
+		<Location name="lesbimistress"/>
+		<Location name="lesbisubhouse"/>
+		<Location name="mainQW"/>
+		<Location name="tobiQW"/>
+		<Location name="cafe2"/>
+		<Location name="cafe3"/>
+		<Location name="ParkKafe"/>
+		<Location name="succubus"/>
+		<Location name="serpent"/>
+	</Folder>
+	<Folder name="Prehistory">
+		<Location name="preSYS"/>
+		<Location name="preSYS2"/>
+		<Location name="preTG"/>
+		<Location name="preNT"/>
+		<Location name="preCUST"/>
+		<Location name="preALT"/>
+	</Folder>
+	<Folder name="NPCManage">
+		<Location name="npccleanc"/>
+		<Location name="npcgeneratec"/>
+		<Location name="npcgenext"/>
+		<Location name="npcpreservec"/>
+		<Location name="npcrnamefile"/>
+		<Location name="npcbreeder"/>
+		<Location name="npcstatic1"/>
+		<Location name="npcstatic2"/>
+		<Location name="npcstatic3"/>
+		<Location name="npcstatic4"/>
+		<Location name="npcstatic5"/>
+		<Location name="npc_intro"/>
+		<Location name="npc_age"/>
+		<Location name="saveupdater"/>
+		<Location name="NPCChanger"/>
+	</Folder>
+	<Folder name="Combat">
+		<Location name="fight"/>
+		<Location name="strelba"/>
+		<Location name="before"/>
+		<Location name="init"/>
+		<Location name="boxing"/>
+		<Location name="magik"/>
+		<Location name="enemy"/>
+		<Location name="atak"/>
+		<Location name="atakA"/>
+		<Location name="atakA1"/>
+		<Location name="atakB"/>
+		<Location name="atakB1"/>
+		<Location name="atakM"/>
+		<Location name="spell"/>
+		<Location name="ender"/>
+		<Location name="nill"/>
+		<Location name="test"/>
+		<Location name="priziv"/>
+		<Location name="defence"/>
+		<Location name="kikbox"/>
+		<Location name="initKik"/>
+		<Location name="Kikatak"/>
+		<Location name="enderKik"/>
+		<Location name="razrKik"/>
+	</Folder>
+	<Folder name="Shared locations">
+		<Location name="outdoors"/>
+		<Location name="indoors"/>
+		<Location name="shop"/>
+		<Location name="bank"/>
+		<Location name="kiosk"/>
+		<Location name="taxi"/>
+		<Location name="train"/>
+		<Location name="train_incidental"/>
+		<Location name="metro"/>
+		<Location name="metro_events"/>
+		<Location name="events"/>
+		<Location name="flash"/>
+		<Location name="street_event"/>
+		<Location name="noticeboard"/>
+	</Folder>
+	<Folder name="Post office">
+		<Location name="postoffice"/>
+		<Location name="postmaster"/>
+		<Location name="postdeliveries"/>
+		<Location name="postevents"/>
+	</Folder>
+	<Folder name="Home Street - Locations">
+		<Location name="street"/>
+		<Location name="pharmacy"/>
+		<Location name="clener"/>
+		<Location name="dima"/>
+		<Location name="dinsexgivi"/>
+		<Location name="IrinaRoom"/>
+		<Location name="kafe"/>
+		<Location name="kafe2"/>
+		<Location name="kafeend"/>
+		<Location name="kavkazkafe"/>
+		<Location name="klofdomhouse"/>
+		<Location name="lake"/>
+		<Location name="dort"/>
+		<Location name="narkopriton"/>
+		<Location name="bobka"/>
+		<Location name="park"/>
+		<Location name="parkdin"/>
+		<Location name="parkivent"/>
+		<Location name="poli"/>
+		<Location name="rinok"/>
+		<Location name="rinwork"/>
+		<Location name="sauna"/>
+		<Location name="saunawhore"/>
+		<Location name="trashplace"/>
+		<Location name="musorkaexh"/>
+		<Location name="RynokHoz"/>
+	</Folder>
+	<Folder name="BDSM_Club">
+		<Location name="BDSM_Club"/>
+		<Location name="BDSM_training"/>
+		<Location name="MHall"/>
+		<Location name="MDressing"/>
+		<Location name="MLanding"/>
+		<Location name="MDining"/>
+		<Location name="MLibrary"/>
+		<Location name="MBallroom"/>
+		<Location name="MRear"/>
+		<Location name="MConservatory"/>
+		<Location name="MKitchen"/>
+		<Location name="MBasement"/>
+		<Location name="MWestbed"/>
+		<Location name="MEastbed"/>
+		<Location name="MGames"/>
+		<Location name="MLiving"/>
+		<Location name="MBathrooms"/>
+	</Folder>
+	<Folder name="Trade Representative">
+		<Location name="torgpred"/>
+		<Location name="StasQW"/>
+		<Location name="StasSex"/>
+	</Folder>
+	<Folder name="EfimovRA">
+		<Location name="billiard"/>
+		<Location name="billsvid"/>
+		<Location name="bordel"/>
+		<Location name="bordelv"/>
+		<Location name="bouling"/>
+		<Location name="kafesvid"/>
+		<Location name="kamera"/>
+		<Location name="kathouse0"/>
+		<Location name="Katlake"/>
+		<Location name="katspalnya"/>
+		<Location name="kazinosvid"/>
+		<Location name="kino"/>
+		<Location name="kinosvid"/>
+		<Location name="Kwlake1"/>
+		<Location name="Kwlake2"/>
+		<Location name="lezbsex"/>
+		<Location name="masharoom"/>
+		<Location name="Military"/>
+		<Location name="Nudelake"/>
+		<Location name="Palatka"/>
+		<Location name="parksvid"/>
+		<Location name="paysex"/>
+		<Location name="podrsex"/>
+		<Location name="police"/>
+		<Location name="qjob"/>
+		<Location name="sex"/>
+		<Location name="sexprefrand"/>
+		<Location name="sexdvanadva"/>
+		<Location name="sexdvoe"/>
+		<Location name="svidboy"/>
+		<Location name="Vnlake1"/>
+		<Location name="Vnlake2"/>
+		<Location name="WorkHosp"/>
+		<Location name="worksalon"/>
+	</Folder>
+	<Folder name="Tanya">
+		<Location name="tanapartment"/>
+		<Location name="tanroom"/>
+		<Location name="tanhozspal"/>
+		<Location name="tanhousezal"/>
+		<Location name="tanhouse"/>
+		<Location name="tankitchen"/>
+		<Location name="tanspalnya"/>
+		<Location name="tanvanr"/>
+		<Location name="tanNicholas"/>
+	</Folder>
+	<Folder name="Apartment">
+		<Location name="bedr"/>
+		<Location name="sitr"/>
+		<Location name="vanr"/>
+		<Location name="kuhr"/>
+		<Location name="korr"/>
+		<Location name="housecall"/>
+	</Folder>
+	<Folder name="Block">
+		<Location name="pavComplex"/>
+		<Location name="pavComplexb2"/>
+		<Location name="pavComplexb3"/>
+		<Location name="pavComplexOld"/>
+		<Location name="pod_ezd"/>
+		<Location name="pod_whore"/>
+		<Location name="gopsex"/>
+		<Location name="misha"/>
+	</Folder>
+	<Folder name="Parent's Apartment">
+		<Location name="bedrPar"/>
+		<Location name="bedrPar2"/>
+		<Location name="sitrPar"/>
+		<Location name="vanrPar"/>
+		<Location name="kuhrPar"/>
+		<Location name="korrPar"/>
+		<Location name="selfplay"/>
+		<Location name="gtelefon"/>
+	</Folder>
+	<Folder name="Family">
+		<Location name="seeparentsex"/>
+		<Location name="father"/>
+		<Location name="fathersex"/>
+		<Location name="dinfather"/>
+		<Location name="mother"/>
+		<Location name="motherQW"/>
+		<Location name="dinmother"/>
+		<Location name="sister"/>
+		<Location name="sistersleep"/>
+		<Location name="sisterQW"/>
+		<Location name="dinsister"/>
+		<Location name="family"/>
+	</Folder>
+	<Folder name="Rolan">
+		<Location name="pavcomplexrolan"/>
+		<Location name="rolanapt"/>
+		<Location name="rolanbath"/>
+	</Folder>
+	<Folder name="Generic boyfriend">
+		<Location name="Gnpc"/>
+		<Location name="Gnpc_cinema"/>
+		<Location name="Gnpc2"/>
+	</Folder>
+	<Folder name="Brother porn">
+		<Location name="brother"/>
+		<Location name="brother2"/>
+		<Location name="brother_voyeur"/>
+		<Location name="brother_lessons"/>
+		<Location name="seeporn"/>
+		<Location name="brosh"/>
+		<Location name="porn_view"/>
+		<Location name="porn_view_strings"/>
+		<Location name="porn_view_construct"/>
+	</Folder>
+	<Folder name="Reks">
+		<Location name="reks"/>
+		<Location name="sbReksHome"/>
+		<Location name="dinParty"/>
+		<Location name="party_boy"/>
+		<Location name="party_boys"/>
+		<Location name="party_girls"/>
+		<Location name="sister_party"/>
+		<Location name="roma"/>
+		<Location name="ira"/>
+		<Location name="lena"/>
+	</Folder>
+	<Folder name="Dima Nosov">
+		<Location name="dimaEv"/>
+		<Location name="dimaHome"/>
+		<Location name="dimaRevenge"/>
+		<Location name="dinnpc"/>
+		<Location name="krutishi"/>
+	</Folder>
+	<Folder name="Artem Chebotarev">
+		<Location name="artemEv"/>
+		<Location name="artemEv3"/>
+		<Location name="artemhome"/>
+		<Location name="artemev2"/>
+		<Location name="artgar"/>
+	</Folder>
+	<Folder name="Igor Kruglov">
+		<Location name="IgorEv"/>
+		<Location name="igorhome"/>
+	</Folder>
+	<Folder name="Katja Meynold">
+		<Location name="katjaEv"/>
+		<Location name="katjaEvDin"/>
+		<Location name="KatjaHome"/>
+		<Location name="KatjaHomeTalk"/>
+		<Location name="katja_sex"/>
+		<Location name="Katja_Tanga"/>
+	</Folder>
+	<Folder name="Vika Meynold">
+		<Location name="mey_home"/>
+		<Location name="mey_vika_events"/>
+		<Location name="mey_tamara_events"/>
+	</Folder>
+	<Folder name="Niko Volkov">
+		<Location name="VolkovHome"/>
+		<Location name="NikoEv"/>
+		<Location name="NikoEv2"/>
+		<Location name="NikoDates"/>
+		<Location name="NikoDreams"/>
+		<Location name="NikoPayback"/>
+		<Location name="NikoSlut"/>
+		<Location name="SoniaHome"/>
+	</Folder>
+	<Folder name="Anushka">
+		<Location name="anushka"/>
+		<Location name="anushkaev1"/>
+		<Location name="anushapt"/>
+	</Folder>
+	<Folder name="Village">
+		<Location name="famdorfride"/>
+		<Location name="farmhomeride"/>
+	</Folder>
+	<Folder name="Gadyukino">
+		<Location name="Gadhouse"/>
+		<Location name="grandmahelp"/>
+		<Location name="grandpahelp"/>
+		<Location name="Gaddvor"/>
+		<Location name="Gadsarai"/>
+		<Location name="Gadbana"/>
+		<Location name="gadukino"/>
+		<Location name="gadukino_event"/>
+		<Location name="gadriver"/>
+		<Location name="Meadow"/>
+		<Location name="mitka"/>
+		<Location name="mitkabuh"/>
+		<Location name="mitkabuh_group"/>
+		<Location name="mitkasex"/>
+		<Location name="bandit"/>
+		<Location name="banditbreak"/>
+		<Location name="gadprostitutes"/>
+		<Location name="bicycle"/>
+		<Location name="gadfield"/>
+		<Location name="Gadgarden"/>
+		<Location name="gadmarket"/>
+		<Location name="gadroad"/>
+		<Location name="grigory"/>
+		<Location name="MiroslavaHome"/>
+		<Location name="Miroslava"/>
+		<Location name="mirasex"/>
+		<Location name="Mirafather"/>
+		<Location name="gadforest"/>
+		<Location name="gadforest_event"/>
+		<Location name="gadforestlost"/>
+		<Location name="gadforestrelax"/>
+	</Folder>
+	<Folder name="Swamp">
+		<Location name="gadforestswamp"/>
+		<Location name="swamp"/>
+		<Location name="swamp_yard"/>
+		<Location name="swamphouse"/>
+		<Location name="swampspring"/>
+		<Location name="backwater"/>
+		<Location name="hanters"/>
+		<Location name="hantersex"/>
+		<Location name="HanterLoveSex"/>
+		<Location name="AndreiHanter"/>
+		<Location name="IgorHanter"/>
+		<Location name="SergeiHanter"/>
+	</Folder>
+	<Folder name="Generator">
+		<Location name="placer"/>
+		<Location name="placer_gskver"/>
+		<Location name="placer_man"/>
+		<Location name="placer_act"/>
+		<Location name="skverdin"/>
+		<Location name="placer_end"/>
+		<Location name="placer_sex"/>
+		<Location name="podval_rape"/>
+		<Location name="gopnik_house"/>
+		<Location name="placer_house"/>
+		<Location name="placer_house_one"/>
+		<Location name="placer_gop_orgy"/>
+		<Location name="fbHouse"/>
+		<Location name="fbDorm"/>
+		<Location name="fbDormD"/>
+		<Location name="fbGar"/>
+		<Location name="zsoft_gopskverGorSlut"/>
+	</Folder>
+	<Folder name="Town">
+		<Location name="pavResidential"/>
+		<Location name="pavCommercial"/>
+		<Location name="pavCommercialOffices"/>
+		<Location name="leonid"/>
+		<Location name="gargazel"/>
+		<Location name="garfather"/>
+		<Location name="Gshveyfab"/>
+		<Location name="gaptek"/>
+		<Location name="DanceWhore1"/>
+		<Location name="DanceWhore2"/>
+		<Location name="DanceWhore3"/>
+		<Location name="DanceWhore4"/>
+		<Location name="DanceWhore5"/>
+		<Location name="DanceWhore6"/>
+		<Location name="DanceWhore7"/>
+		<Location name="DanceWhore8"/>
+		<Location name="soniaDisco"/>
+		<Location name="gkafe"/>
+		<Location name="motherkafeboss"/>
+		<Location name="glake"/>
+		<Location name="gLakeNude"/>
+		<Location name="gLakeNudeEvent"/>
+		<Location name="gLakeNudeForest"/>
+		<Location name="LakeBoyZ"/>
+		<Location name="gpoli"/>
+		<Location name="therapist"/>
+		<Location name="gevent"/>
+		<Location name="gskver"/>
+		<Location name="gopskver"/>
+		<Location name="gskino"/>
+		<Location name="cafe_parco"/>
+		<Location name="EvOtelMan"/>
+		<Location name="EvgopBuh"/>
+		<Location name="EvBoyBuh"/>
+		<Location name="kotovEv"/>
+		<Location name="IvanEv"/>
+		<Location name="FedorEv"/>
+		<Location name="FedorEv2"/>
+		<Location name="FedorEv3"/>
+		<Location name="FedorEv4"/>
+		<Location name="FedorMisc"/>
+		<Location name="strela"/>
+		<Location name="kotovSex"/>
+		<Location name="kotovdom"/>
+		<Location name="boymass"/>
+		<Location name="barbershop"/>
+		<Location name="annafrends"/>
+		<Location name="MagEncounterFairy"/>
+		<Location name="ParChurch"/>
+		<Location name="ParChurch2"/>
+		<Location name="brothel"/>
+	</Folder>
+	<Folder name="School">
+		<Location name="gschool_grounds"/>
+		<Location name="gschool_lessons"/>
+		<Location name="gschool_lessonsev1"/>
+		<Location name="gschool_lessonsev2"/>
+		<Location name="gschool_lessonsev3"/>
+		<Location name="gschool_lunch"/>
+		<Location name="gschool_office"/>
+		<Location name="gschool_events"/>
+		<Location name="gschool_gossip"/>
+		<Location name="gschool_boys_bathroom"/>
+		<Location name="gschool_girls_bathroom"/>
+		<Location name="gschool_sex"/>
+		<Location name="gschool_detention"/>
+		<Location name="gschool_randperson"/>
+		<Location name="gschool_socialchg"/>
+		<Location name="gschool_schedule"/>
+		<Location name="Sgrup1"/>
+		<Location name="Sgrup2"/>
+		<Location name="Sgrup3"/>
+		<Location name="Sgrup4"/>
+		<Location name="Sgrup5"/>
+		<Location name="Sgrup"/>
+		<Location name="nogorslut"/>
+		<Location name="yesgorslut"/>
+	</Folder>
+	<Folder name="Shared_appartment">
+		<Location name="pavSharedApt"/>
+		<Location name="pavShared_gp"/>
+		<Location name="pavShared_nd"/>
+		<Location name="pavShared_sp"/>
+	</Folder>
+	<Folder name="House of Culture">
+		<Location name="gdk"/>
+		<Location name="gdkkru"/>
+		<Location name="gdkbibl"/>
+		<Location name="gdkin"/>
+		<Location name="gdksport"/>
+		<Location name="gdktoilet"/>
+		<Location name="BMloc"/>
+		<Location name="ugel"/>
+		<Location name="Voltrener"/>
+		<Location name="VolleyTrenCentr"/>
+		<Location name="VolleyTrenerSpeak"/>
+		<Location name="Voltrenersex"/>
+		<Location name="chessplay"/>
+		<Location name="boilerroom"/>
+		<Location name="krupo"/>
+		<Location name="kruchess"/>
+		<Location name="VoltrenerSexShower"/>
+		<Location name="Snpc"/>
+		<Location name="cumreaction"/>
+		<Location name="izdevat"/>
+		<Location name="kotovtalker"/>
+		<Location name="SgrupDisco"/>
+	</Folder>
+	<Folder name="Event gym town">
+		<Location name="danceGev"/>
+		<Location name="volAndGev"/>
+	</Folder>
+	<Folder name="Station Campus">
+		<Location name="vokzalG"/>
+		<Location name="Grinok"/>
+		<Location name="vokzalGin"/>
+		<Location name="vokdin"/>
+		<Location name="vokdinvera"/>
+		<Location name="vokmantoiev"/>
+		<Location name="vokzaltorg"/>
+		<Location name="vokzalper"/>
+		<Location name="vokzalperG"/>
+		<Location name="vokzaltoilet"/>
+		<Location name="vokzalholle"/>
+		<Location name="katalkin"/>
+		<Location name="katalkinSex"/>
+		<Location name="katalkinAlko"/>
+		<Location name="kutuzka"/>
+	</Folder>
+	<Folder name="Christina Zvereva">
+		<Location name="gKristinaZv"/>
+	</Folder>
+	<Folder name="Julia Milov 12">
+		<Location name="JuliaMilGo"/>
+		<Location name="JuliaMilHome"/>
+		<Location name="JuliaMilVhod"/>
+	</Folder>
+	<Folder name="Arthur">
+		<Location name="arturRinok"/>
+		<Location name="arturHome"/>
+		<Location name="arturSex"/>
+		<Location name="arturkiosk"/>
+		<Location name="arturend"/>
+		<Location name="arturdin"/>
+		<Location name="arturQW"/>
+	</Folder>
+	<Folder name="Natasha Belova 16">
+		<Location name="NatBelGo"/>
+		<Location name="NatBelHome"/>
+		<Location name="NatBelVhod"/>
+	</Folder>
+	<Folder name="Albina">
+		<Location name="albinaEv"/>
+		<Location name="albinaRide"/>
+		<Location name="albinahome"/>
+		<Location name="albinaporog"/>
+		<Location name="AlbFatherQW"/>
+		<Location name="AlbStarsEnd"/>
+	</Folder>
+	<Folder name="Lariska">
+		<Location name="LariskaStart"/>
+		<Location name="LariskaGo"/>
+		<Location name="LariskaHome"/>
+	</Folder>
+	<Folder name="Pets">
+		<Location name="soba"/>
+		<Location name="krol"/>
+		<Location name="popu"/>
+		<Location name="qwlocdog"/>
+		<Location name="RimmaSexQW"/>
+	</Folder>
+	<Folder name="Furniture">
+		<Location name="bed"/>
+		<Location name="bed1"/>
+		<Location name="bed2"/>
+		<Location name="beverage"/>
+		<Location name="beverage_menu"/>
+		<Location name="dreams"/>
+		<Location name="budilnik"/>
+		<Location name="divan"/>
+		<Location name="Komp"/>
+		<Location name="kompMFC"/>
+		<Location name="kompMFCtwo"/>
+		<Location name="webcam_site"/>
+		<Location name="mirror"/>
+		<Location name="stol"/>
+		<Location name="telefon"/>
+		<Location name="$phone_theme"/>
+		<Location name="kit_din"/>
+		<Location name="food"/>
+		<Location name="food_menu"/>
+		<Location name="TV"/>
+		<Location name="vann"/>
+	</Folder>
+	<Folder name="Encounter Generator">
+		<Location name="din_npc"/>
+		<Location name="podezdM"/>
+		<Location name="sexm"/>
+		<Location name="dateM"/>
+		<Location name="kinoM"/>
+		<Location name="parkM"/>
+		<Location name="kafeM"/>
+		<Location name="restoranM"/>
+		<Location name="anekdot"/>
+		<Location name="stihi"/>
+		<Location name="love"/>
+		<Location name="brosok"/>
+	</Folder>
+	<Folder name="City Center">
+		<Location name="down"/>
+		<Location name="cityTrain"/>
+		<Location name="agentned"/>
+		<Location name="kameraKPZ"/>
+		<Location name="bass"/>
+		<Location name="burger"/>
+		<Location name="burgerWork"/>
+		<Location name="BurgerTip"/>
+		<Location name="butik"/>
+		<Location name="butoilet"/>
+		<Location name="cfnm"/>
+		<Location name="club"/>
+		<Location name="Club2"/>
+		<Location name="vipclub"/>
+		<Location name="danceclass"/>
+		<Location name="dorm"/>
+		<Location name="downlibrary"/>
+		<Location name="fit"/>
+		<Location name="talent_agency"/>
+		<Location name="lab"/>
+		<Location name="tatiana_missions"/>
+		<Location name="NewCloShop"/>
+		<Location name="office"/>
+		<Location name="restoran"/>
+		<Location name="salon"/>
+		<Location name="hairsalon"/>
+		<Location name="sexshop"/>
+		<Location name="shopdacha"/>
+		<Location name="sportShop"/>
+		<Location name="stripclub"/>
+		<Location name="stwork"/>
+		<Location name="stwork2"/>
+		<Location name="torgcentr"/>
+		<Location name="univer"/>
+		<Location name="yarik"/>
+		<Location name="zoomagazine"/>
+		<Location name="budgetclothes"/>
+	</Folder>
+	<Folder name="Photo studio">
+		<Location name="foto"/>
+		<Location name="foto_events"/>
+		<Location name="foto_albums"/>
+		<Location name="foto_models"/>
+		<Location name="anastasia_escort"/>
+	</Folder>
+	<Folder name="North Side">
+		<Location name="Nord"/>
+		<Location name="Terminal"/>
+		<Location name="TerminalOffice"/>
+		<Location name="ivanRoom"/>
+		<Location name="trFatherMisha"/>
+		<Location name="dk"/>
+		<Location name="kakuzu"/>
+		<Location name="youry"/>
+		<Location name="alex"/>
+		<Location name="alexgang"/>
+		<Location name="lakecafe"/>
+		<Location name="laketoilet"/>
+		<Location name="LCporn"/>
+		<Location name="LCwork"/>
+		<Location name="pirsingsalon"/>
+		<Location name="vokzal"/>
+		<Location name="obekt"/>
+		<Location name="obekt2"/>
+		<Location name="dangeon"/>
+	</Folder>
+	<Folder name="Bar Rabotnik">
+		<Location name="qwBarPolet"/>
+		<Location name="qwBarPoletToilet"/>
+		<Location name="qwBarBilliard"/>
+		<Location name="qwBarBilliard2"/>
+		<Location name="qwBarEncounters"/>
+		<Location name="MartinTalk"/>
+		<Location name="MartinSex"/>
+		<Location name="MartinSex2"/>
+		<Location name="MartinSex3"/>
+	</Folder>
+	<Folder name="North Road">
+		<Location name="dachain"/>
+		<Location name="dachamy"/>
+		<Location name="dachaogr"/>
+		<Location name="dachaogr0"/>
+		<Location name="dachi"/>
+		<Location name="graveyard"/>
+		<Location name="motel"/>
+		<Location name="road"/>
+		<Location name="youplace"/>
+		<Location name="furi"/>
+		<Location name="furisex"/>
+	</Folder>
+	<Folder name="Mansion">
+		<Location name="ybass"/>
+		<Location name="yban"/>
+		<Location name="ymans"/>
+		<Location name="ybedr"/>
+		<Location name="yvan"/>
+		<Location name="ykuh"/>
+		<Location name="yzal"/>
+		<Location name="ykamin"/>
+		<Location name="ydet"/>
+		<Location name="ybib"/>
+		<Location name="ysport"/>
+		<Location name="ykabinet"/>
+	</Folder>
+	<Folder name="Porn">
+		<Location name="BDSM"/>
+		<Location name="pornstudio"/>
+		<Location name="pornfilm"/>
+		<Location name="pornhist"/>
+		<Location name="pornschedule"/>
+	</Folder>
+	<Folder name="Boys">
+		<Location name="BDman"/>
+		<Location name="BDsex"/>
+		<Location name="boy"/>
+		<Location name="boyfrend"/>
+		<Location name="boylove"/>
+	</Folder>
+	<Folder name="Lover">
+		<Location name="girl"/>
+		<Location name="girlfriend"/>
+		<Location name="dateF"/>
+		<Location name="lover"/>
+		<Location name="lover_change"/>
+		<Location name="lover_likes"/>
+		<Location name="lover_love"/>
+		<Location name="lover_meet"/>
+		<Location name="lover_pref"/>
+		<Location name="lover_pronouns"/>
+		<Location name="pronouns"/>
+	</Folder>
+	<Folder name="University">
+		<Location name="island"/>
+		<Location name="dolls"/>
+		<Location name="vecher"/>
+		<Location name="obkitchen"/>
+		<Location name="obroom"/>
+		<Location name="Vika"/>
+		<Location name="univer_din"/>
+	</Folder>
+	<Folder name="Game 1">
+		<Location name="KGstart"/>
+		<Location name="KGOLgame"/>
+		<Location name="KGOLenemy"/>
+		<Location name="KGOLboss"/>
+		<Location name="KGOLfight"/>
+		<Location name="KGOLexpa"/>
+	</Folder>
+	<Folder name="Game 2">
+		<Location name="KGDstart"/>
+		<Location name="KGDgame"/>
+		<Location name="KGDexp"/>
+		<Location name="KGDbefore"/>
+		<Location name="KGDfight"/>
+		<Location name="KGDparty"/>
+	</Folder>
+	<Folder name="Game 3">
+		<Location name="KGZstart"/>
+		<Location name="KGZgame"/>
+		<Location name="KGZdyn"/>
+		<Location name="KGZfight"/>
+	</Folder>
+	<Folder name="Game 4">
+		<Location name="FSstart"/>
+		<Location name="FSgame"/>
+		<Location name="FSstat"/>
+		<Location name="FSfight"/>
+		<Location name="FSroom"/>
+	</Folder>
+	<Folder name="Youth Shop">
+		<Location name="young_shop"/>
+		<Location name="sell_young_clothes"/>
+		<Location name="andrey"/>
+		<Location name="gopnew"/>
+		<Location name="goplust"/>
+		<Location name="gopwho"/>
+	</Folder>
+	<Folder name="Cars">
+		<Location name="avtonorm"/>
+		<Location name="avt"/>
+		<Location name="avb"/>
+		<Location name="zaprF"/>
+		<Location name="zaprFWash"/>
+		<Location name="abduction"/>
+		<Location name="abductionCustomer"/>
+		<Location name="autosalonF"/>
+		<Location name="autoservisF"/>
+		<Location name="autotraidF"/>
+		<Location name="carF"/>
+		<Location name="carF1"/>
+	</Folder>
+	<Folder name="Quest">
+		<Location name="qwIzoldaApp"/>
+		<Location name="qwloc"/>
+		<Location name="qwmeet"/>
+	</Folder>
+	<Folder name="Casino">
+		<Location name="casino"/>
+		<Location name="mqroom"/>
+		<Location name="authors3"/>
+		<Location name="amrul"/>
+		<Location name="saloon"/>
+		<Location name="hotel"/>
+		<Location name="igravt"/>
+		<Location name="igrkart2"/>
+		<Location name="kazvar"/>
+		<Location name="cards"/>
+		<Location name="croupier"/>
+		<Location name="croupier2"/>
+		<Location name="elevator"/>
+		<Location name="Maria1"/>
+		<Location name="number1"/>
+		<Location name="number2"/>
+		<Location name="number3"/>
+		<Location name="number4"/>
+		<Location name="result"/>
+		<Location name="roulette"/>
+		<Location name="rate"/>
+		<Location name="hall"/>
+		<Location name="blackjackPlay"/>
+		<Location name="blackjackView"/>
+		<Location name="deckShuffle"/>
+	</Folder>
+	<Folder name="Menu">
+		<Location name="Menu.Info"/>
+		<Location name="Menu.Create"/>
+		<Location name="Menu.Add"/>
+		<Location name="Menu.AddCondition"/>
+		<Location name="Menu.AddModule"/>
+		<Location name="Menu.AddEvent"/>
+		<Location name="Menu.Call"/>
+		<Location name="Menu.Chosen"/>
+		<Location name="Menu.Time"/>
+		<Location name="Menu.Destroy"/>
+		<Location name="Menu.Treatment"/>
+	</Folder>
+	<Folder name="Game Menu">
+		<Location name="$menu_setting"/>
+		<Location name="$menu_skills"/>
+		<Location name="$menu_descrip"/>
+		<Location name="$menu_statistika"/>
+		<Location name="$menu_calendar"/>
+		<Location name="$menu_reputation"/>
+		<Location name="$menu_traits"/>
+		<Location name="$menu_mobila"/>
+		<Location name="$menu_magic"/>
+		<Location name="$menu_pain"/>
+		<Location name="$menu_face"/>
+		<Location name="$menu_body"/>
+		<Location name="$menu_clothes"/>
+		<Location name="$menu_bra"/>
+		<Location name="$menu_panties"/>
+		<Location name="$menu_shoes"/>
+		<Location name="$menu_tattoos"/>
+		<Location name="$menu_pirs"/>
+		<Location name="$menu_obnovit"/>
+		<Location name="$menu_bloknot"/>
+		<Location name="$menu_avariya"/>
+		<Location name="$menu_addoldmenu"/>
+		<Location name="$menu_autosave"/>
+		<Location name="$menu_cheat"/>
+	</Folder>
+	<Folder name="Etogame">
+		<Location name="etoexhib"/>
+		<Location name="vokBimbo"/>
+		<Location name="parkBimbo"/>
+		<Location name="ptu_dush"/>
+		<Location name="nastja"/>
+		<Location name="Timofei"/>
+		<Location name="TimofeiMetro"/>
+		<Location name="balkon"/>
+		<Location name="balkon2"/>
+		<Location name="dom_gor"/>
+		<Location name="comendant"/>
+		<Location name="buklinik"/>
+		<Location name="buklinik_event"/>
+	</Folder>
+	<Folder name="Misc">
+		<Location name="beg"/>
+		<Location name="beg1"/>
+		<Location name="housing"/>
+		<Location name="husb"/>
+		<Location name="husbSex"/>
+		<Location name="indik"/>
+		<Location name="indiktab"/>
+		<Location name="Peterroom"/>
+		<Location name="portnoi"/>
+		<Location name="portnoi2"/>
+		<Location name="sexorg"/>
+		<Location name="shortgs"/>
+		<Location name="$stock_item_info"/>
+		<Location name="$stock_item"/>
+		<Location name="$single_stock_item"/>
+		<Location name="$buy_item"/>
+		<Location name="$buy_single_item"/>
+		<Location name="$face_image"/>
+		<Location name="$body_image"/>
+	</Folder>
+	<Folder name="Female wrestling">
+		<Location name="generation"/>
+		<Location name="Autofight"/>
+		<Location name="beforeFW"/>
+		<Location name="FightStat"/>
+		<Location name="FightCrouch"/>
+		<Location name="fightFW"/>
+		<Location name="fight1"/>
+		<Location name="fight2"/>
+		<Location name="fight3"/>
+		<Location name="FightE"/>
+		<Location name="FightE1"/>
+		<Location name="FightE2"/>
+		<Location name="FightE3"/>
+		<Location name="RoundEnd"/>
+		<Location name="RoundStop"/>
+		<Location name="SubWin"/>
+		<Location name="SubLoss"/>
+		<Location name="EndFight"/>
+		<Location name="ratinglist"/>
+		<Location name="npc"/>
+		<Location name="namer"/>
+		<Location name="npcview"/>
+	</Folder>
+	<Folder name="New Year 2010">
+		<Location name="nyp_school"/>
+		<Location name="sny"/>
+	</Folder>
+	<Folder name="Deck of cards">
+		<Location name="card"/>
+		<Location name="blackjack"/>
+	</Folder>
+	<Folder name="Hotel">
+		<Location name="HotelHole"/>
+		<Location name="hotel_resep"/>
+		<Location name="HotelAdmin"/>
+		<Location name="HotelWork"/>
+		<Location name="HotelRoom"/>
+	</Folder>
+	<Folder name="Shulga">
+		<Location name="shulgahome"/>
+		<Location name="shulgahall"/>
+		<Location name="shulgabed"/>
+		<Location name="shulgakuh"/>
+		<Location name="shulgabath"/>
+		<Location name="shulga_room"/>
+		<Location name="cardgame_durak"/>
+		<Location name="Serge_kuh"/>
+		<Location name="Serge_Shulgin"/>
+	</Folder>
+	<Folder name="Bel gang">
+		<Location name="LakeBoyDy"/>
+		<Location name="belgang"/>
+		<Location name="BelSex"/>
+		<Location name="belpicknick"/>
+	</Folder>
+	<Folder name="Old Town">
+		<Location name="liam"/>
+		<Location name="liamelkafe"/>
+		<Location name="stallion"/>
+		<Location name="larek"/>
+		<Location name="dvor"/>
+		<Location name="ugol"/>
+		<Location name="ugol1"/>
+		<Location name="artstudia"/>
+		<Location name="liames"/>
+		<Location name="exhibitionistshop"/>
+		<Location name="kseniyaQW"/>
+		<Location name="parks"/>
+		<Location name="lug"/>
+		<Location name="dibodi"/>
+		<Location name="psiklin"/>
+		<Location name="din_pav"/>
+	</Folder>
+	<Folder name="OldTownHome">
+		<Location name="vanr2x"/>
+		<Location name="korr2x"/>
+		<Location name="bedr2x"/>
+		<Location name="sitr2x"/>
+		<Location name="kuhr2x"/>
+		<Location name="koncepod"/>
+		<Location name="koncepod1"/>
+	</Folder>
+	<Folder name="CumManage">
+		<Location name="Cum_Manage"/>
+		<Location name="cum_arrcheat"/>
+		<Location name="cum_cleanup"/>
+		<Location name="cum_call"/>
+		<Location name="pregriskeval"/>
+		<Location name="cuminsidereact"/>
+	</Folder>
+	<Folder name="Ibiza">
+		<Location name="IbizaStart"/>
+		<Location name="IbizaDay2"/>
+		<Location name="IbizaDay3"/>
+		<Location name="IbizaDay4"/>
+		<Location name="IbizaDay5"/>
+		<Location name="IbizaDay6"/>
+		<Location name="IbizaDay7"/>
+		<Location name="IbizaToilet"/>
+		<Location name="IbizaDance"/>
+		<Location name="IbizaBar"/>
+		<Location name="IbizaGuard"/>
+	</Folder>
+	<Location name="LBZhouse"/>
+	<Location name="femcyc"/>
+	<Location name="lact_lib"/>
+	<Location name="show_table"/>
+	<Location name="exercise"/>
+	<Location name="BanSexType"/>
+	<Folder name="crossfit_north">
+		<Location name="crossfit_north_box"/>
+		<Location name="crossfit_north_wod"/>
+		<Location name="crossfit_north_record"/>
+		<Location name="crossfit_north_girlmeet"/>
+	</Folder>
+	</Structure>
 </QGen-project>

locations/Cheatmenu_din.qsrc

@@ -702,7 +702,7 @@ $cheatmenu['stats'] = {
 	nl
 	pl'<b>Others:</b>'
 	pl 'Chess - Adjusted total (<<pcs_chess>>) - Skill level (<<chess_lvl>>): <a href="exec:chess_lvl += 1 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:chess_lvl += 5 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:chess_lvl += 10 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:chess_lvl -= 1 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:chess_lvl -= 5 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:chess_lvl -= 10 & chess_lvlst = chess_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
-	pl 'Gaming - Adjusted total (<<pcs_ttgmng>>) - Skill level (<<ttgmng_lvl>>): <a href="exec:ttgmng_lvl += 1 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:ttgmng_lvl += 5 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:ttgmng_lvl += 10 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:ttgmng_lvl -= 1 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:ttgmng_lvl -= 5 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:ttgmng_lvl -= 10 & ttgmng_lvlst = ttgmng_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
+	pl 'Gaming - Adjusted total (<<pcs_gaming>>) - Skill level (<<gaming_lvl>>): <a href="exec:gaming_lvl += 1 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:gaming_lvl += 5 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:gaming_lvl += 10 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:gaming_lvl -= 1 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:gaming_lvl -= 5 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:gaming_lvl -= 10 & gaming_lvlst = gaming_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
 	pl 'People - skills Adjusted total (<<pcs_humint>>) - Skill level (<<humint_lvl>>): <a href="exec:humint_lvl += 1 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:humint_lvl += 5 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:humint_lvl += 10 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:humint_lvl -= 1 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:humint_lvl -= 5 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:humint_lvl -= 10 & humint_lvlst = humint_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
 	pl 'Persuasion - Adjusted total (<<pcs_persuas>>) - Skill level (<<persuas_lvl>>): <a href="exec:persuas_lvl += 1 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:persuas_lvl += 5 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:persuas_lvl += 10 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:persuas_lvl -= 1 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:persuas_lvl -= 5 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:persuas_lvl -= 10 & persuas_lvlst = persuas_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
 	pl 'Observation - Adjusted total (<<pcs_observ>>) - Skill level (<<observ_lvl>>): <a href="exec:observ_lvl += 1 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:observ_lvl += 5 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+5</a> <a href="exec:observ_lvl += 10 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:observ_lvl -= 1 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:observ_lvl -= 5 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-5</a> <a href="exec:observ_lvl -= 10 & observ_lvlst = observ_lvl & dynamic $cheatmenu[''stats'']" >-10</a>'
@@ -957,9 +957,7 @@ $cheatmenu['reputation'] = {
 				pl'Your mother thinks that you are a virgin. <a href="exec:motherKnowSpravka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
 			end
 			nl
-			if brotherSex >= 1:
-				pl'Your brother thinks you are a slut. <a href="exec:brotherSex = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
-			elseif evgenQW >= 3:
+			if evgenQW >= 3:
 				pl'Your brother thinks you are a slut. <a href="exec:evgenQW = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
 			end
 			if brotherknowslut = 1: pl'Your brother saw semen on your body and thinks you fuck around. <a href="exec:brotherknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
@@ -1347,6 +1345,7 @@ $cheatmenu['display'] = {
 
 	pl 'Mod management page: <a href="exec:gt ''mod_setting''">Here</a>'
 
+
 	if Enable_nogameover = 1:
 		pl'Prevent Non-Drama GAMEOVER: Currently ON - <a href="exec:Enable_nogameover = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
 	else
@@ -1385,6 +1384,15 @@ $cheatmenu['display'] = {
 		pl'Editing of the names of the porn movies you stared disabled: Currently OFF - <a href="exec:editpornname = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
 	end
 	nl
+
+	pl '<center><B>Difficulty Setting</B></center>'
+
+	pl 'Difficulty: Currenty at <<func(''_difficulty'',''getdifficulty'')>>'
+	pl '<ul><li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''easy peasy'') & dynamic $cheatmenu[''display'']">easy peasy</a></li>'
+	pl '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''relaxed'') & dynamic $cheatmenu[''display'']">relaxed</a></li>'
+	pl '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''realistic'') & dynamic $cheatmenu[''display'']">realistic</a></li>'
+	pl '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''hardcore'') & dynamic $cheatmenu[''display'']">hardcore</a></li></ul>'
+	nl
 	pl '<center><B>Display Setting</B></center>'
 	if set_imgh > 0: set_imgw = 0
 	if set_imgw > 0: set_imgh = 0

locations/MagEncounterFairy.qsrc

@@ -80,7 +80,7 @@ end
 if $ARGS[0] = 'fairy_chat':
 	cls
 	gs 'stat'
-	'You take the few steps over to the glowing orb that apparently only you can recognize as what it truely is: a fairy.'
+	'You take the few steps over to the glowing orb that apparently only you can recognize as what it truly is: a fairy.'
 	act 'Chat with the fairy':
 		cls
 		minut += 30
@@ -93,12 +93,12 @@ if $ARGS[0] = 'fairy_chat':
 		pcs_manna += 25 * pcs_magik
 		pcs_mood += 15
 		gs 'MagEncounterFairy', 'fairychattopic'
-		if pcs_skin < 80 and fairyday < daystart and fairyshoo = 0:
+		if pcs_skin < 80 and fairyday ! daystart and fairyshoo = 0:
 			pcs_skin += 10
 			fairyday = daystart
 			gs 'stat'
 			'The fairy bids you farewell.'
-			''
+			*nl
 			wait 725
 			'Just as she flies off, she returns fluttering in front of your face.'
 			'"You know, you could still look lovelier.", she says. "Don''t move."'
@@ -110,60 +110,81 @@ if $ARGS[0] = 'fairy_chat':
 			fairyday = daystart
 			gs 'stat'
 			'The fairy bids you farewell.'
-			''
+			*nl
 			wait 725
 			'Just as she flies off, she returns fluttering in front of your face.'
 			'"You know, you''re almost a magical creature now.", she says. "Don''t move."'
 			'Remembering the last time you hold your breath and close your eyes. Just a moment later you feel a much more intense tingling, this time seeming to go all the way through you.'
-		elseif fairyday < daystart and (pcs_nips < 80 or clit_size < 80):
+		elseif fairyday ! daystart and (pcs_nips < 80 or clit_size < 80):
 			fairyday = daystart
 			gs 'stat'
-
-			'The fairy takes another quick look at you, rubs her chin, and says "Hmm, since you''ve been a little nice to me, maybe I could be a little nice to you. Nips or Bud?"'
+			'The fairy takes another quick look at you, rubs her chin, and says "Hmm, since you''ve been a little nice to me, maybe I could be a little nice to you."'
 			act 'Huh?':
 				cls
-				' '
+				*nl
 				'You look at her, puzzled, wondering if you heard her right.  She just shrugs her shoulders and says "Okay, if you''re not interested"'
 				act 'Go on your way': gt $loc, $metka
 			end
-
-			act 'Nips?':
+			act 'Sure':
 				cls
-				pcs_nips += 5
-				pcs_horny += 10
-				gs 'stat'
-				if pcs_nips < 20:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples1.jpg"></center>'
-				if pcs_nips >= 20 and pcs_nips < 40:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples2.jpg"></center>'
-				if pcs_nips >= 40 and pcs_nips < 60:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples3.jpg"></center>'
-				if pcs_nips >= 60 and pcs_nips < 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples4.jpg"></center>'
-				if pcs_nips >= 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples5.jpg"></center>'
-				'She giggles in her little squeaky voice, "Ohh, goodie!", and throws something sparkly at your chest.  Suddenly, your nipples get really firm and pointed, and seem to be a bit larger now.'
-				'You can''t help but rub both breasts, feeling the warm tingling in them, and in your pussy.'
-				'The fairy admires the changes she''s made, and smiles at you.'
-				'You two say your goodbyes and the fairy flies off.'
+				fday_surprise += 1
+				fairy_surprise = RAND(1,9)
+				if fairy_surprise =< 2:
+					pcs_nips += 5
+					pcs_horny += 10
+					gs 'stat'
+					if pcs_nips < 20:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples1.jpg"></center>'
+					if pcs_nips >= 20 and pcs_nips < 40:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples2.jpg"></center>'
+					if pcs_nips >= 40 and pcs_nips < 60:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples3.jpg"></center>'
+					if pcs_nips >= 60 and pcs_nips < 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples4.jpg"></center>'
+					if pcs_nips >= 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples5.jpg"></center>'
+					'You hear a giggle.  Suddenly, your nipples get really firm and pointed, and seem to be a bit larger now.'
+					'You can''t help but rub both breasts, feeling the warm tingling in them, and in your pussy.'
+				elseif fairy_surprise = 3:
+					pcs_nips -= 5
+					gs 'stat'
+					if pcs_nips < 20:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples1.jpg"></center>'
+					if pcs_nips >= 20 and pcs_nips < 40:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples2.jpg"></center>'
+					if pcs_nips >= 40 and pcs_nips < 60:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples3.jpg"></center>'
+					if pcs_nips >= 60 and pcs_nips < 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples4.jpg"></center>'
+					if pcs_nips >= 80:'<center><img <<$set_imgh>> src="images/pc/body/nipples/nipples5.jpg"></center>'
+					'You hear a giggle.  Suddenly, your nipples get really firm and pointed, yet seem to be smaller then before.'
+					'You can''t help but rub both breasts, feeling the warm tingling in them, and in your pussy.'
+				elseif fairy_surprise <= 4:
+					clit_size += 5
+					pcs_horny += 10
+					gs 'stat'
+					if clit_size < 20:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit1.jpg"></center>'
+					if clit_size >= 20 and clit_size < 40:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit2.jpg"></center>'
+					if clit_size >= 40 and clit_size < 60:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit3.jpg"></center>'
+					if clit_size >= 60 and clit_size < 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit4.jpg"></center>'
+					if clit_size >= 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit5.jpg"></center>'
+					'You hear a giggle and you feel a warm tingle at the top of your slit, you reach down and part your pussy lips with your fingers.'
+					'Your clitoris has swollen, and seems to stand out even more than before! You can''t help but rub all around it, feeling the warm tingling and the moisture build at the entrance.'
+					'The fairy admires the changes she''s made, and smiles at you, looking again at your puffy pussy and licking her lips.'
+					'You two say your goodbyes and the fairy flies off.'
+				elseif fairy_surprise = 5:
+					clit_size -= 5
+					gs 'stat'
+					if clit_size < 20:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit1.jpg"></center>'
+					if clit_size >= 20 and clit_size < 40:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit2.jpg"></center>'
+					if clit_size >= 40 and clit_size < 60:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit3.jpg"></center>'
+					if clit_size >= 60 and clit_size < 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit4.jpg"></center>'
+					if clit_size >= 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit5.jpg"></center>'
+					'You hear a giggle and you feel a warm tingle at the top of your slit, you reach down and part your pussy lips with your fingers.'
+					'Your clitoris has shunk, and seems to more demure than before! You can''t help but rub all around it, feeling the warm tingling and the moisture build at the entrance.'
+				elseif fairy_surprise <= 7:
+					min_arousal += rand(1,5)
+					'You hear a giggle, then sparkles surround your body and you get all tingly.'
+					'You suddenly feel flustered and more aroused then before.'
+				else
+					min_arousal -= rand(1,5)
+					'You hear a giggle, then sparkles surround your body and you get all tingly.'
+					'You suddenly feel colder and less aroused then before.'
+				end
 				act 'Go on your way': gt $loc, $metka
 			end
-
-			act 'Bud?':
-				cls
-				clit_size += 5
-				pcs_horny += 10
-				gs 'stat'				
-				if clit_size < 20:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit1.jpg"></center>'
-				if clit_size >= 20 and clit_size < 40:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit2.jpg"></center>'
-				if clit_size >= 40 and clit_size < 60:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit3.jpg"></center>'
-				if clit_size >= 60 and clit_size < 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit4.jpg"></center>'
-				if clit_size >= 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit5.jpg"></center>'
-				'She giggles in her little squeaky voice, "Ohh, goodie!", and throws something sparkly at your hips.'
-				'Suddenly, you feel a warm tingle at the top of your slit, and, after taking a quick glance around to make sure nobody is looking, you reach down and part your pussy lips with your fingers.'
-				'Your clitoris has swollen, and seems to stand out even more than before! You can''t help but rub all around it, feeling the warm tingling and the moisture build at the entrance.'
-				'The fairy admires the changes she''s made, and smiles at you, looking again at your puffy pussy and licking her lips.'
-				'You two say your goodbyes and the fairy flies off.'
-				act 'Go on your way': gt $loc, $metka						
-			end
-
 		end
-		act 'Go on your way': gt $loc, $metka
 	end
 end
 
@@ -172,7 +193,7 @@ killvar '$din_fairy_chat_no1' & killvar '$din_fairy_shoo' & killvar '$din_fairy_
 if $ARGS[0] = 'fairychattopic':
 !!	These are the random chat texts for the Fairy from UsagiTripleSix
 	frandchat = rand(0,14)
-	
+
 	if frandchat = 1:
 		'You spend a while chatting with the fairy. She openly wonders why human children need to go to school, and brags about how fairies already know everything there is to know.'
 	elseif frandchat = 2:
@@ -204,8 +225,8 @@ if $ARGS[0] = 'fairychattopic':
 	else
 		'Today the fairy introduces you to fairy knock-knock jokes. She spends almost half an hour telling joke after joke, but you failed to understand a single one. By the time you''re ready to leave, she''s complaining about how humans have no sense of humor.'
 	end
-	
-	killvar 'frandchat'
+
+	act 'Go on your way': killvar 'frandchat' & gt $loc, $metka
 
 end
 

locations/MartinSex.qsrc

@@ -119,23 +119,23 @@ if $ARGS[0] = '':
 				'You get closer to him, an inch away from touching him, and lower your voice to a whisper. "If I''m that smart, why don''t you let me decide what I want?"'
 				'He looks at you, longing but self-possessed. "Some decisions are better made for you."'
 				*nl
-				if exhibitionism > 20 and pcs_dom > 30 and cycle ! 0:
+				if exhibitionist_lvl > 0 and pcs_dom > 30 and cycle ! 0:
 					'You are half-tempted to go on the offensive, show him what he''s missing out on by acting like a knight in shining armor and see if that won''t change his mind.'
-				elseif exhibitionism > 20 and pcs_dom > 30 and cycle = 0:
+				elseif exhibitionist_lvl > 0 and pcs_dom > 30 and cycle = 0:
 					'You are half-tempted to go on the offensive, show him what he''s missing out on by acting like a knight in shining armor and see if that won''t change his mind, but then you remember that you are on your period, so stripping isn''t really a sexy option right now.'
 				end
 
-				if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20 and cycle ! 0:
+				if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20 and cycle ! 0:
 					'Or you could just pull his pants off and blow him - you''ve done it enough times to know how convincing that can be.'
-				elseif exhibitionism > 20 and pcs_dom > 50 and cycle = 0:
+				elseif exhibitionist_lvl > 0 and pcs_dom > 50 and cycle = 0:
 					'Or you could just pull his pants off and blow him - you''ve done it enough times to know how convincing that can be, and your period certainly isn''t going to stand in the way of <i>that</i>.'
 				end
 
-				if exhibitionism > 20 and pcs_dom > 30 and cycle ! 0:
+				if exhibitionist_lvl > 0 and pcs_dom > 30 and cycle ! 0:
 					act 'Go on the offensive - Strip':MartinStripVar = 1 & gt'MartinSex','MartinTease'
 				end
 
-				if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20:
+				if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20:
 					act 'Be even more aggressive - Give Martin a blowjob': MartinConvinceBJ = 1 & gt'MartinSex3','MartinBlowTease'
 				end
 
@@ -186,12 +186,12 @@ if $ARGS[0] = '':
 		'You approach Martin from behind, but you aren''t sure he has noticed you yet. He said you were too young to know better, that you were seeing something in him that wasn''t there - he was basically saying that you were stupid, wasn''t he?'
 		*nl
 		'But instead of forgetting about him or wallowing in self-pity, you are now standing here, and feeling indecisive at that. What are you gonna do, apologize to him for not letting yourself be patronized? It''s not like he was right... right?'
-		if exhibitionism > 15 and pcs_dom > 20:
+		if exhibitionist_lvl > 0 and pcs_dom > 20:
 			*nl
 			'Maybe he just needs a little push. Maybe, all you have to do is show him that you aren''t too young, show him what he is missing out on.'
 			if cycle = 0: 'But, damn, since you are currently on your period, that isn''t an option today. You will have to think of something else or come back some other time.'
 
-			if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20:
+			if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20:
 				if cycle = 0:
 					'A good blowjob would probably set him straight right quick, no matter what time of the month it is.'
 				else
@@ -243,11 +243,11 @@ if $ARGS[0] = '':
 			act 'Leave': gt 'nord'
 		end
 
-		if exhibitionism > 15 and pcs_dom > 20 and cycle ! 0:
+		if exhibitionist_lvl > 0 and pcs_dom > 20 and cycle ! 0:
 			act 'Go on the offensive - Strip':MartinStripVar = 1 & gt'MartinSex','MartinTease'
 		end
 
-		if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20:
+		if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20:
 			act 'Be even more aggressive - Give Martin a blowjob': MartinConvinceBJ = 1 & gt'MartinSex3','MartinBlowTease'
 		end
 
@@ -261,15 +261,15 @@ if $ARGS[0] = '':
 		'Martin rejected you, but you can tell that he is attracted to you, no matter what he said about age. You told him that you understand, but that doesn''t mean it has to be the final word in the matter...'
 		*nl
 
-		if exhibitionism > 20 and pcs_dom > 30 and cycle ! 0:
+		if exhibitionist_lvl > 0 and pcs_dom > 30 and cycle ! 0:
 			'You are half-tempted to go on the offensive, show him what he''s missing out on by acting like a knight in shining armor and see if that won''t change his mind.'
-		elseif exhibitionism > 20 and pcs_dom > 30 and cycle = 0:
+		elseif exhibitionist_lvl > 0 and pcs_dom > 30 and cycle = 0:
 			'You are half-tempted to go on the offensive, show him what he''s missing out on by acting like a knight in shining armor and see if that won''t change his mind, but then you remember that you are on your period, so stripping isn''t really a sexy option right now.'
 		end
 
-		if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20 and cycle ! 0:
+		if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20 and cycle ! 0:
 			'Or you could just pull his pants off and blow him - you''ve done it enough times to know how convincing that can be.'
-		elseif exhibitionism > 20 and pcs_dom > 50 and cycle = 0:
+		elseif exhibitionist_lvl > 0 and pcs_dom > 50 and cycle = 0:
 			'Or you could just pull his pants off and blow him - you''ve done it enough times to know how convincing that can be, and your period certainly isn''t going to stand in the way of <i>that</i>.'
 		end
 
@@ -393,11 +393,11 @@ if $ARGS[0] = '':
 			end
 		end
 
-		if exhibitionism > 20 and pcs_dom > 30 and cycle ! 0:
+		if exhibitionist_lvl > 0 and pcs_dom > 30 and cycle ! 0:
 			act 'Go on the offensive - Strip':MartinStripVar = 1 & gt'MartinSex','MartinTease'
 		end
 
-		if exhibitionism > 20 and pcs_dom > 50 and count['bj'] > 20:
+		if exhibitionist_lvl > 0 and pcs_dom > 50 and count['bj'] > 20:
 			act 'Be even more aggressive - Give Martin a blowjob': MartinConvinceBJ = 1 & gt'MartinSex3','MartinBlowTease'
 		end
 
@@ -461,7 +461,7 @@ if $ARGS[0] = 'MartinTease':
 		MartinSex = 1
 		MartinSexTalk = 2
 		if pcs_dancero <= 50:dancero_exp += rand(2,5)
-		exhibition_exp += rand(0,2)
+		inhib_exp += rand(1,3)
 
 		if $pantyworntype ! 'none':
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/tease1.jpg"></center>'
@@ -554,7 +554,7 @@ if $ARGS[0] = 'MartinTease':
 
 			act 'Time for a good look':
 				cls
-				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease2.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease2.jpg"></center>'
 				'It wouldn''t be nice to tease Martin with a sight like that and keep him guessing if the carpets do indeed match the drapes.'
 				*nl
 				'Without putting the glass down, you turn your side to Martin and bare your lower half with your free hand. You can feel Martin''s eyes linger on your <<$pcdesc_legsrandom>> legs, but you know what he really wants to see, as much as he''d deny it.'
@@ -568,7 +568,7 @@ if $ARGS[0] = 'MartinTease':
 
 				act 'Then he''s gonna like what''s next':
 					cls
-					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease3.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease3.jpg"></center>'
 					'With an audience as appreciative as this, how could you possibly stop now?'
 					*nl
 					'Setting the glass, your trusty prop, aside, you pull down what little covers your ' + iif(tatbrst > 0,'tattooed ','') + 'chest and ' + iif(tatblly > 0 and tatbrst = 0,'tattooed ','') +'belly, giving Martin a good look at your <<$pcdesc_breastsrandom>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
@@ -583,7 +583,7 @@ if $ARGS[0] = 'MartinTease':
 
 					act 'Go Lust!':
 						cls
-						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease4.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease4.jpg"></center>'
 						'He''s staggering, but he isn''t out yet. You have to keep at it.'
 						*nl
 						'"I''m flexible, too. See?"'
@@ -612,7 +612,7 @@ if $ARGS[0] = 'MartinTease':
 
 						act 'Just one last push...':
 							cls
-							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease5.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease5.jpg"></center>'
 							'Ridding yourself of what little items you have still left on you, you put your leg up on the bar and bend over. Your ass and <<$pcdesc_genitals>> aren''t just visible to Martin - they are also very much accessible.'
 							*nl
 							'"<<$pcs_firstname>>-" But you cut him off.'
@@ -639,7 +639,7 @@ if $ARGS[0] = 'MartinTease':
 	else
 		if $pantyworntype ! 'none':
 			if pcs_dancero <= 50:dancero_exp += rand(2,5)
-			exhibition_exp += rand(0,2)
+			inhib_exp += rand(1,3)
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/tease1.jpg"></center>'
 			'Feeling in the mood to give Martin a bit of a show today, you give him a soft push, just strong enough to make him get the hint and sit down on the chair behind him.'
 			'You then take a few steps back and slowly bend forward, giving him a generous look at your <<$pcdesc_breastsrandom>> cleavage and <<$pcdesc_legsrandom>> legs as you take off your lower garment.'
@@ -775,7 +775,7 @@ if $ARGS[0] = 'MartinTease':
 
 			act 'A little curiosity doesn''t hurt':
 				cls
-				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease2.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease2.jpg"></center>'
 				'Without putting the glass down, you turn your side to Martin and bare your lower half with your free hand, making it blatantly obvious that you were indeed going commando. You can feel Martin''s eyes linger on your <<$pcdesc_legsrandom>> legs, but you know what he really wants to see - he wants you to confirm what he already knows.'
 				*nl
 				'You slowly turn to face Martin, revealing your <<$pcdesc_pubesrandom>> <<$pcdesc_genitals>> to him. Your boldness to strip for him, right here in the empty bar, and to walk around without underwear seem to turn him on immensely, if the bulge in his pants is any indication.'
@@ -788,7 +788,7 @@ if $ARGS[0] = 'MartinTease':
 
 				act 'He''s gonna like what''s next':
 					cls
-					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease3.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease3.jpg"></center>'
 					'With an audience as appreciative as this, how could you possibly stop now?'
 					*nl
 					'Setting the glass aside, you pull down what little covers your ' + iif(tatbrst>0,'tattooed ','') + 'chest and ' + iif(tatblly>0&tatbrst=0,'tattooed ','') +'belly, giving Martin a good look at your <<$pcdesc_breastsrandom>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
@@ -804,7 +804,7 @@ if $ARGS[0] = 'MartinTease':
 
 					act 'The show must go on':
 						cls
-						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease4.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease4.jpg"></center>'
 						'Well, if it''s a sexy torture he wants, you are happy to deliver.'
 						*nl
 						'"Want to see how flexible I am?"'
@@ -843,7 +843,7 @@ if $ARGS[0] = 'MartinTease':
 
 						act 'Better than okay':
 							cls
-							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopant_tease5.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease5.jpg"></center>'
 							'Ridding yourself of what little items you have still left on you, you put your leg up on the bar and bend over. Your ass and pussy aren''t just visible to Martin - they are also very much accessible.'
 							*nl
 							'"So..." Your tone is about as casual as you can muster, but your glistening pussy gives away your true feelings. "What do you think of my body?"'
@@ -911,7 +911,7 @@ end
 if $ARGS[0] = 'MartinTeaseDildo':
 	cls
 	gs 'boyStat', 'A216'
-	exhibition_exp += rand(0,2)
+	inhib_exp += rand(1,3)
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/teasedildo1.jpg"></center>'
 	'You roll to your ' + iif(tatside>0,'tattooed ','') + 'side. Grinning like a Cheshire cat, you rummage through your purse and, under the curious looks of Martin, pull out your ' + iif(dildo = 1,'10cm','15cm') + ' dildo.'
 	*nl

locations/MartinSex2.qsrc

@@ -137,7 +137,7 @@ if $ARGS[0] = 'MartinSexDyn':
 	elseif $martinpos = 'rev_cowgirl':
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/rev_cowgirl/rev_cowgirl<<pic_rand>>.jpg"></center>'
 	elseif $martinpos = 'doggystyle':
-		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/doggystyle/doggystyle<<pic_rand>>.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/doggystyle/doggy<<pic_rand>>.jpg"></center>'
 	elseif $martinpos = 'missionary':
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/missionary/missionary<<pic_rand>>.jpg"></center>'
 	elseif $martinpos = 'sideways':
@@ -270,12 +270,12 @@ if $ARGS[0] = 'MartinSexDyn':
 			else
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/rev_cowgirl/rev_cowgirl<<pic_rand2>>.jpg"></center>'
 			end
-			'You are moving ever faster, trying to take Martin''s wonderful cock deeper into your <<$pcs_vag>> pussy, fucking him harder, moaning louder as you go. It may have started off gently but there''s no gentleness left to be found here anymore: You are riding this man in the middle of his bar, giving him a fantastic view of your ' + iif($martinpos='rev_cowgirl','ass','tits') + ' in the same spot some guys talked about their shitty jobs and marital problems a few hours ago.'
+			'You are moving ever faster, trying to take Martin''s wonderful cock deeper into your <<$pcdesc_pussyrandom>> pussy, fucking him harder, moaning louder as you go. It may have started off gently but there''s no gentleness left to be found here anymore: You are riding this man in the middle of his bar, giving him a fantastic view of your ' + iif($martinpos='rev_cowgirl','ass','tits') + ' in the same spot some guys talked about their shitty jobs and marital problems a few hours ago.'
 			*nl
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody else is here right now.'
 			
-			if exhibitionism > 50 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to fuck the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcs_vag>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to fuck the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin, who has been relatively passive so far, leaving you in control, shakes you out of your reverie when his hands move to your hips. No doubt he intends to take a little more initiative.'
@@ -299,7 +299,7 @@ if $ARGS[0] = 'MartinSexDyn':
 				'"Please what?"'
 				'"Please fuck me with your hard cock again. I need it!"'
 				*nl
-				'That was all he wanted to hear. In the blink of an eye, Martin is balls-deep inside you again, his pelvis slamming into your <<$pcs_vag>> hole from below. You cannot move, his strong arms firmly holding you in place, and are helpless to let him fuck you from below.' 
+				'That was all he wanted to hear. In the blink of an eye, Martin is balls-deep inside you again, his pelvis slamming into your <<$pcdesc_pussyrandom>> hole from below. You cannot move, his strong arms firmly holding you in place, and are helpless to let him fuck you from below.' 
 				'And you are loving every second of it.'
 				gs 'arousal', 'vaginal', 8, 'sub'
 				gs 'stat'
@@ -311,8 +311,8 @@ if $ARGS[0] = 'MartinSexDyn':
 			*nl
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
-			if exhibitionism > 50 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcs_vag>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, but it seems like it''s not enough for him: All of a sudden, you can feel his hand at your neck, grabbing you, forcing you to look at him and increasing both his leverage and sense of power over you.'
@@ -348,8 +348,8 @@ if $ARGS[0] = 'MartinSexDyn':
 			*nl
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
-			if exhibitionism > 50 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcs_vag>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, but it seems like it''s not enough to him: All of a sudden, you can feel his hand at your neck, grabbing you, forcing you to look at him and increasing both his leverage and sense of power over you.'
@@ -392,8 +392,8 @@ if $ARGS[0] = 'MartinSexDyn':
 			*nl
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
-			if exhibitionism > 50 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcs_vag>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, and his switch of position only served to emphasize that, but it seems like it''s not enough to him: All of a sudden, you can feel one of his hands leave your hips and grab your neck, forcing you to look back at him and increasing both his leverage and sense of power over you.'
@@ -467,12 +467,12 @@ if $ARGS[0] = 'MartinSexDyn':
 			if $martinpos = 'cowgirl':
 				'"Did you enjoy yourself?" You ask coquettishly, leaning forward onto his chest.'
 				'Martin smiles up at you, and pulls you down to give you a kiss. "I think you know the answer."'
-				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcs_vag>> pussy.' 
+				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcdesc_pussyrandom>> pussy.' 
 			
 			elseif $martinpos = 'rev_cowgil':
 				'"Did you enjoy yourself?" You ask coquettishly, wiggling your butt as you look back over your shoulder.'
 				'Martin smiles up at you, and gives your ass a resounding smack. "I think you know the answer."'
-				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcs_vag>> pussy.'
+				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcdesc_pussyrandom>> pussy.'
 			
 			else
 				if $martinpos = 'doggystyle':
@@ -599,7 +599,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 	elseif MartinSurpAnal = 1:
 		'Your change of heart is a little sudden, no doubt, but when you tell Martin that you want him to fuck your ass instead, he doesn''t look unhappy about it. After all, what man would refuse an offer like that?'
 	else
-		'With your <<$pcs_vag>> pussy thoroughly plowed, you moan: "I want your hard cock in my ass right now!"'
+		'With your <<$pcdesc_pussyrandom>> pussy thoroughly plowed, you moan: "I want your hard cock in my ass right now!"'
 		'"You and me both, corazón," Martin murmurs as he pulls out.'
 	end
 	
@@ -756,7 +756,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 		
 		act 'Continue':
 			cls
-			$orgasm_txt = iif(dominance > 20,'Wresting control from','Submitting to') + ' Martin and the intense feeling of him filling your ass drive you ever closer to the edge until you can no longer take it. You cum loudly, shivering all over' + iif(exhibitionism>50 or exhibitionism['pref']>50,' as your mind basks in your exhibitionist fantasy','') + ', your ass clenching around and massaging Martin''s cock with its contractions as if it wanted to squeeze the cum out of him as' + iif($martinpos='doggystyle',' he fucks you',' you fuck him') + '. Your anal orgasm lasts for what feels like an eternity, but when it has passed and you look back at him, Martin gives you a smug, self-satisfied look that makes you chuckle. You''re not done with each other yet, though, and before long, you''ve resumed your fast, hard rhythm.'
+			$orgasm_txt = iif(dominance > 20,'Wresting control from','Submitting to') + ' Martin and the intense feeling of him filling your ass drive you ever closer to the edge until you can no longer take it. You cum loudly, shivering all over' + iif(exhibitionist_lvl > 1 or exhibitionism['pref']>50,' as your mind basks in your exhibitionist fantasy','') + ', your ass clenching around and massaging Martin''s cock with its contractions as if it wanted to squeeze the cum out of him as' + iif($martinpos='doggystyle',' he fucks you',' you fuck him') + '. Your anal orgasm lasts for what feels like an eternity, but when it has passed and you look back at him, Martin gives you a smug, self-satisfied look that makes you chuckle. You''re not done with each other yet, though, and before long, you''ve resumed your fast, hard rhythm.'
 			
 			if $martinpos = 'rev_cowgirl':
 				'<center><video src="images/locations/city/industrial/bar/sex/bar/martin/anal/anal_rev.mp4"></center>'
@@ -778,7 +778,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 					'Being fucked from below, your lover proving that he is still the man of the house turns you on, plain and simple, and the fact that you are doing it in the middle of an empty bar, <b>his</b> empty bar, just makes it more exciting.'
 				end
 				*nl
-				if exhibitionism > 50 or exhibitionism['pref'] > 50: 'This final thought, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to take the bartender''s cock up your ass right here in the center, with all of their eyes on you...' & pcs_horny += 10
+				if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This final thought, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to take the bartender''s cock up your ass right here in the center, with all of their eyes on you...' & pcs_horny += 10
 				*nl
 				if pcs_dom > 20:
 					gs 'arousal', 'anal', 10, 'dom'
@@ -807,7 +807,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 					'"You''re fucking me," you moan, aroused by the power he has over you. "You''re fucking my ass in the middle of your bar." As you say it, you are reminded of how public of a place this really is, despite being empty, and that alone is almost enough to make you cum.'
 				end
 				*nl
-				if exhibitionism > 50 or exhibitionism['pref'] > 50: 'That final thought, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to take the bartender''s cock up your ass right here in the center, with all of their eyes on you...' & pcs_horny += 10
+				if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'That final thought, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to take the bartender''s cock up your ass right here in the center, with all of their eyes on you...' & pcs_horny += 10
 				*nl
 				if pcs_dom > 20:
 					gs 'arousal', 'anal', 10

locations/MartinTalk.qsrc

@@ -803,7 +803,7 @@ if $ARGS[0] = '':
 		*nl
 		'"How could I possibly forget that?" He speaks and looks at you with a sudden intensity that almost makes you blush. "I just wanted to know how you feel about it."'
 		*nl
-		'You give him a hint of a smile. "Trust me, if I didn''t like what we''re doing, you''d know. But for the record: I like sex.' + iif(pcs_dom>0,' I like being on top.',' I like being dominated.') + iif(stat['bj']>30,' I like giving blowjobs.','') + iif(stat['anal']>30,' I like anal.','') + iif(rough['pref']>30,' I like it rough.','') + iif(pcs_exhibition>30,' I like exposing myself.','') + iif(lesbian>10,' And I kinda like women, too.','') + ' But most importantly, I like having sex with you."'
+		'You give him a hint of a smile. "Trust me, if I didn''t like what we''re doing, you''d know. But for the record: I like sex.' + iif(pcs_dom>0,' I like being on top.',' I like being dominated.') + iif(stat['bj']>30,' I like giving blowjobs.','') + iif(stat['anal']>30,' I like anal.','') + iif(rough['pref']>30,' I like it rough.','') + iif(exhibitionist_lvl > 0,' I like exposing myself.','') + iif(lesbian>10,' And I kinda like women, too.','') + ' But most importantly, I like having sex with you."'
 		'You lean forward, so close to Martin now that he can smell the alcohol on your breath. "Does that answer your questions?"'
 		*nl
 		'Baffled by your directness, Martin nods silently.'

locations/Nudelake.qsrc

@@ -111,10 +111,12 @@ if $ARGS[0] = 'swim':
 	cumspclnt = 4
 	gs 'cum_cleanup'
 	minut += 60
-	if $clothingworntype = 'nude': gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
-	if $clothingworntype = 'nude':inhib_exp += rand(1,3)
-	if $clothingworntype ! 'nude': gs 'exercise', 'tier1', 1, 'stren_exp'
-	if $clothingworntype ! 'nude':
+	if $clothingworntype = 'nude':
+		gs 'exercise', 'tier1', 1, 'stren_exp'
+		gs 'exhibitionism', 2
+		inhib_exp += rand(1,3)
+	else
+		gs 'exercise', 'tier1', 1, 'stren_exp'
 		if pcs_inhib < 50:inhib_exp += rand(1,3)
 	end
 	pcs_sweat = 10 + rand(0,4)

locations/ParChurch.qsrc

@@ -430,7 +430,7 @@ if $ARGS[0] = 'fillers':
 	elseif randtext = 8 and soniaPS = 0:
 		$safesub = 'your curfew on weekends'
 	elseif randtext = 9:
-		$safesub = 'your garandparents'
+		$safesub = 'your grandparents'
 	elseif randtext = 0:
 		moral += 1
 		$safesub = 'God and Jesus'

locations/WorkHosp.qsrc

@@ -41,25 +41,27 @@ if $ARGS[0] = 'start':
 		gs 'stat'
 		'You relax a little while pretending to be busy.'
 
-		act 'Masturbate (0:15)':
-			mastrrand = rand(0, 2)
-
-			if mastrrand = 0:
-				gt 'WorkHosp', '1'
-			else
-				cla
-				*clr
-				if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-				picrand = 11
-				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
-				'You begin to secretly masturbate whenever nobody is watching.'
-				$orgasm_or = 'custom'
-				$orgasm_txt = 'Gradually a pleasant warmth and sensation radiates from your needy sex, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
-				gs 'arousal', 'masturbate', 15
-				gs 'stat'
+		if pcs_inhib > 20:
+			act 'Masturbate (0:15)':
+				mastrrand = rand(0, 2)
+
+				if mastrrand = 0:
+					gt 'WorkHosp', '1'
+				else
+					cla
+					*clr
+					gs 'exhibitionism', 1
+					picrand = 11
+					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
+					'You begin to secretly masturbate whenever nobody is watching.'
+					$orgasm_or = 'custom'
+					$orgasm_txt = 'Gradually a pleasant warmth and sensation radiates from your needy sex, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
+					gs 'arousal', 'masturbate', 15
+					gs 'stat'
+				end
+
+				act 'Leave':gt 'WorkHosp', 'start'
 			end
-
-			act 'Leave':gt 'WorkHosp', 'start'
 		end
 
 		act 'Move away':gt 'WorkHosp', 'start'
@@ -170,7 +172,7 @@ if $ARGS[0] = '1':
 		'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room but you are so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
 		gs 'arousal', 'masturbate', 10
 		gs 'stat'
-		if pcs_horny < 50:act 'Break and run':gt 'WorkHosp', 'start'
+		if pcs_horny < 50:act 'Break and run':gs 'arousal', 'end' & gt 'WorkHosp', 'start'
 
 		act 'Go along with it':
 			guy += 1
@@ -178,9 +180,6 @@ if $ARGS[0] = '1':
 			gs 'WorkHosp', 'randdoc'
 			if docfuck[randdoc] = 1:guy += 1
 			gt 'sex', 'minet'
-			gs 'arousal', 'vaginal', 10, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
 		end
 	else
 		picrand = rand(12, 13)

locations/_difficulty.qsrc

@@ -0,0 +1,60 @@
+# _difficulty
+
+if difficulty = 0:
+	difficulty = 3
+end
+
+if $ARGS[0] = 'setdifficulty':
+	difficulty = 3
+	if $ARGS[1] = 'easy peasy': difficulty = 1
+	if $ARGS[1] = 'relaxed': difficulty = 2
+	if $ARGS[1] = 'hardcore': difficulty = 4
+end		
+
+!! following function returns the current difficulty
+if $ARGS[0] = 'getdifficulty':
+	$result = 'realistic'
+	if difficulty = 1:	$result = 'easy peasy'
+	if difficulty = 2:	$result = 'relaxed'
+	if difficulty = 4:	$result = 'hardcore'
+end &! --- getdifficulty ---
+		
+
+!! following function returns the basic adjustment for stat gain via exp.
+!! hardcore: 80
+!! realistic: 60
+!! relaxed: 40
+!! easy peasy: 20
+!! use func('_difficulty','getexpadj')
+if $ARGS[0] = 'getexpadj':
+	result = 20 * difficulty
+end &! --- getexpadj ---
+
+!! following function adjusts money gain by difficulty.
+!! use func('_difficulty','addmoney', x) with x being the base amount (for 'realistic' difficulty)
+if $ARGS[0] = 'addmoney':
+	money += (ARGS[1] * (5-difficulty)) / 2
+end &! --- addmoney ---
+
+!! following function returns the adjusted money added (e.g. for displaying the correct amount of money earnt in texts)
+!! use func('_difficulty','addmoneystring', x) with x being the base amount (for 'realistic' difficulty)
+if $ARGS[0] = 'addmoneystring':
+	result = (ARGS[1] * (5-difficulty)) / 2
+end &! --- addmoneystring ---
+
+!! following function adjusts money spent by difficulty.
+!! use func('_difficulty','spendmoney', x) with x being the base amount (for 'realistic' difficulty)
+if $ARGS[0] = 'spendmoney':
+	money -= (ARGS[1] * (difficulty + 1)) / 4
+end &! --- spendmoney ---
+
+
+!! following function returns the adjusted money spent (e.g. for displaying the correct price in shops)
+!! use func('_difficulty','spendmoneystring', x) with x being the base amount (for 'realistic' difficulty)
+if $ARGS[0] = 'spendmoneystring':
+	result = (ARGS[1] * (difficulty + 1)) / 4
+end &! --- spendmoneystring ---
+
+
+--- _difficulty ---------------------------------
+

locations/anushka.qsrc

@@ -240,7 +240,7 @@ if $ARGS[0] = 'wedgie fight':
 		act 'Punishment':
 			*clr
 			cla
-			exhibition_exp += 3
+			gs 'exhibitionism', 2
 			'<center><img src="images/locations/pavlovsk/school/detention/ffspank1.jpg"></center>'
 			'"Very well, since you both wanted to be naked so badly, take off your clothes." She says as she pulls a chair over near her leather couch, taking a seat. Anushka quickly takes off all her clothes seeming not to care in the slightest. You, however, are a little slower but finally you manage to remove all of your clothes as well. Once you are both naked, Miss Volkov motions you over. As soon as you are within an arms reach she grabs you and pulls you across her lap. She then proceeds to spank your bare ass until your buttcheeks are cherry red and stinging like crazy, while Anushka takes a seat on the couch and just watches you get spanked.'
 			act 'Next':
@@ -356,14 +356,14 @@ if $ARGS[0] = 'naked':
 	*clr
 	cla
 	npc_rel['A144'] += 3
-	exhibition_exp += 2
+	gs 'exhibitionism', 1
 	'<center><b><font color="maroon">Detention</font></b></center>'
 	'<center><img src="images/characters/pavlovsk/school/girl/anushka/getnaked2.jpg"></center>'
 	'As you start stripping off your clothes she steps out of her shorts and panties saying, "That''s the spirit, I knew you were a fun girl." Once the two of you are both naked she gathers up the clothes and stuffs them behind some books on the bottom shelf of one of the cases. She gives your naked body a quick look over before heading towards the library''s side door. "Come on, we have to go out this way."'
 	act 'Into the halls':
 		*clr
 		cla
-		exhibition_exp += 3
+		gs 'exhibitionism', 2
 		'<center><b><font color="maroon">Halls</font></b></center>'
 		'<center><img src="images/characters/pavlovsk/school/girl/anushka/halls.jpg"></center>'
 		'The two of you walk down the halls, Anushka seems completely at ease walking around without any clothes on. Apparently she really doesn''t care if anyone catches her naked, or hell maybe she would even enjoy it more. As you walk around a while longer, you start getting a bit more comfortable with the situation. The two of you talk about normal stuff, like what''s going on in school, any good movies you''ve watched and so on. Just then, you hear the noise of a machine being turned on and notice that the sound is getting closer.'
@@ -690,7 +690,6 @@ if $ARGS[0] = 'chatWhileWaiting':
 		act 'You hear that?':
 			*clr
 			cla
-			exhibition_exp += 3
 			'<center><b><font color="maroon">Classroom</font></b></center>'
 			'<center><img src="images/characters/pavlovsk/school/girl/anushka/hallcheck.jpg"></center>'
 			'You start to say something more when she raises her hand to stop you. "You hear that?"'

locations/balkon2.qsrc

@@ -199,8 +199,8 @@ if $ARGS[0] = 'finger':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/balcony_mas1-4.jpg"></center>'
-				if pcs_exhibition >= 35:
-					exhibition_exp += 2
+				if exhibitionist_lvl > 0:
+					gs 'exhibitionism', 2
 					
 					'As you open your eyes, you lock eyes with one of your neighbors peering out the window in the house across...'
 					'You can''t help but smile as there''s someone enjoying the show...'

locations/bed1.qsrc

@@ -162,7 +162,7 @@ if $ARGS[0] = 'sog1':
 									*clr
 									swallow += 1
 									husband -= 40
-									gs 'cum_call', 'mounth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="images/beast/zoo/z7.jpg"></center>'
 									'You lay the dog on the floor and take his cock in my mouth, your husband looks at you with disgust as you suck the dogs cock.'
 									'In a couple of minutes the dog cums in your mouth and you swallow his sperm.'

locations/body.qsrc

@@ -451,6 +451,7 @@ if dounspell = 0:
 	
 !!This sets weight
 !! This variable is actually only used ONCE, when stripping, to see if you fall off the pole from being too heavy. I am reluctant to touch it, since the math is not explained. Maybe later.
+!! Weight = (height in cm x bottom of average weight in kilos for a 170cm female / 170cm + (hip modifier + 2 x overrun fat)/4 + cup size
 	pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
 end
 
@@ -462,7 +463,7 @@ if pcs_hairlng <= 80:
 	if defcurly = 0:
 		curly = 0
 	else
-		!! ...Wat?
+		!! This sets curly hair to as high a number as possible to prevent it straightening in error
 		curly = 2147483647
 	end
 	hbraids = 0
@@ -1575,7 +1576,7 @@ if lashair = 0:
 		$pcdesc_pubeswordy = 'scratchy, roughly-stubbled'
 	elseif pcs_pubes <= 20:
 		lobkoef = 0
-		$pcs_pubes = 'You have light, wispy hair around your <a href="exec:view''images/pc/body/pussy/spussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+		$pcs_pubes = 'You have neatly trimmed triangle of hair around your <a href="exec:view''images/pc/body/pussy/spussy.jpg''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
 		rand_pubes = rand(0,3)
 		if rand_pubes = 0:$pcdesc_pubesrandom = 'wispy-haired'
 		if rand_pubes = 1:$pcdesc_pubesrandom = 'lightly-furred'

locations/brother.qsrc

@@ -10,7 +10,16 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! brothersawpirsF: Flag 0/1 Have your brother seen your nipple piercings
 ! npc_rel['A34']: relationship
 ! npc_dick['A34']: size of brothers dick (14cm)
-! brotherSex: Number of sexual interactions with brother (cap at 10)
+! brotherSex = 1 - You have kissed him
+! brotherSex = 2 - You have purposely shown him your tits
+! brotherSex = 3 - You have purposely shown him your naked body
+! brotherSex = 4 - You have let him touch you
+! brotherSex = 5 - You have given him a handjob
+! brotherSex = 6 - You have given him a blowjob
+! brotherSex = 7 - You've fucked
+! brotherSex = 8 - You've done anal
+! brotherSex = 9 - You are siblings with benefits
+! brotherSex = 10 - You are lovers
 ! npc_QW['A34']: Quest stages
 ! brotherAge: your age - 2
 ! brotherknowslut: brother knowledge of your sexual activity (1 = seen cum, 2 = groupsex in park)
@@ -31,11 +40,17 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 
 if $ARGS[0] = 'start':
 	gs 'stat'
+	gs 'boystat','A34'
+	dick = npc_dick['A<<34>>']
 	'<center><b><font color="maroon">Kolka</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 	'Your brother Kolka is younger than you, he''s <<brotherAge>> years old. While you share the same mother, unlike you and your sister, Kolka''s dad is your stepfather. He is a student at the same school as you, and enjoys soccer.'
 
-	if npc_rel['A34'] < 20:
+	if brotherSex = 10:
+		'You and your brother are lovers.'
+	elseif brotherSex = 9:
+		'You are siblings with benefits.'
+	elseif npc_rel['A34'] < 20:
 		'You and your brother argue all the time.'
 	elseif npc_rel['A34'] >= 20 and npc_rel['A34'] < 40:
 		'You and your brother bicker sometimes.'
@@ -102,7 +117,7 @@ if $ARGS[0] = 'start':
 			if brotherSex < 1:
 				'Your brother sarcastically comments on the small towel you are wearing:'
 				'<<$pcs_nickname>>, Are you sure that is not a hand towel?'
-			elseif brotherSex >= 1:
+			elseif brotherSex >= 2:
 				'Your brother sarcastically comments on the small towel you are wearing:'
 				'"Are you wearing that for me sis?"'
 			end
@@ -277,10 +292,10 @@ if $ARGS[0] = 'start':
 				brothersawpirsF=1
 				npc_rel['A34'] += 3
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/9vh2v.jpg" ></center>'
-				'"Look what I have," you walk up to Kolka, your chest bare, showing off your nipple pircings, "Don''t be shy, you can touch them."'
+				'"Look what I have," you walk up to Kolka, your chest bare, showing off your nipple piercings, "Don''t be shy, you can touch them."'
 				'Your brother, dumbfounded by your suggestion, hesitantly touches the piercing in one of your nipples, causing you to moan gently.'
 				if brotherSex = 0:
-					'He abruptly withdraws his hand and apologizes for his rudeness. You have no choice, but to apologise, that wasn''t fair. You cover your chest.'
+					'He abruptly withdraws his hand and apologizes for his rudeness. You have no choice, but to apologize, that wasn''t fair. You cover your chest.'
 				else
 					'Seeing the pleasure playing with your nipples brings you, he begins to play harder with your piercings, sometimes squeezing your exposed Breasts.
 					After playing for a while, he lets go of your breasts, and says, "I really like your new additions."'
@@ -293,7 +308,7 @@ if $ARGS[0] = 'start':
 
 
 		if indorf = 0 and $clothingworntype = 'nude' and pirsF > 0 and brothersawpirsF = 0:
-			if brotherSex = 0:
+			if brotherSex < 4:
 				if npc_rel['A34'] >= 70:
 					'"Looks good on you." your brother winks, and points toward your pierced nipples.'
 					if npc_rel['A34'] <50:npc_rel['A34'] += 1
@@ -328,76 +343,17 @@ if $ARGS[0] = 'start':
 
 		if indorf = 0 and brotherSexCount > 0 and brotherDay = daystart:
 			brotherRand = rand(0,10)
-			if hour >= 5 and hour < 7 and brotherSex > 0 and brotherMorningSex ! daystart and brotherRand < 2:
-				'Going up to your sleeping brother, you see he''s pitching a tent.'
-				if pcs_horny >= 90 and brothersex > 6:
-					act 'Mount him':
-						if brotherSex > 10: brotherSex = 10
-						cls
-						minut += 5
-						pcs_horny += 10
-						gs 'boyStat', 'A34'
-						pose = 0
-
-						gs 'stat'
-
-						'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/nae22.jpg"></center>'
-						'Approaching your brother, you gently pull back the covers and carefully straddle his sleeping body, taking care not to wake him.'
-						if pcs_sleep <= 50 and rand(0,4) =0:
-
-							$risk_boy = 'your own brother'
-							gs 'dinsex','vaginal_sex',10
-							gs 'brother', 'sleepsexcum'
-						else
-							protect = 0
-							vidageday -= 1
-
-							if prezik > 0:
-								dynamic $prezik
-								protect = 1
-								if preziktype = 2:
-									sexcontra = 7
-									'You take a sabotaged condom and put it on <<$boydesc>>.'
-								else
-									sexcontra = 3
-									'You take a condom and put it on <<$boydesc>>.'
-								end
-
-							end
-							$risk_boy = 'your own brother'
-							gs 'dinsex','vaginal_sex',10
-							gs 'brother', 'sleepsexcum'
-						end
-					end
-				else
-					act 'Solve your brother''s morning problem':
-						cls
-						minut += 5
-						pcs_horny += 10
-						stat['bj'] += 1
-						gs 'boyStat', 'A34'
-						spafinloc = 12
-						sexpartkno = 1
-						gs 'cum_manage'
-						swallow += 1
-						brotherbj += 1
-						brotherSex += 1
-						brotherSexCount -= 1
-						brotherMorningSex = daystart
-						gs 'stat'
-
-						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj34.jpg"></center>'
-						'Approaching your brother, you gently pull back the covers and begin to suck his <<dick>> cm dick. After a few minutes, he moans softly in his sleep and his cock twitches.'
-						'Your mouth quickly fills with warm sperm and you feel its sharp taste.'
-						'Swallowing the semen, you gently replace the blanket and, seeing a slight smile on your sleeping brother, you leave.'
-
-						act '<B>Move away</B>':gt 'sitrPar'
-						exit
-					end
+			if hour >= 6 and hour < 7 and brotherMorningSex ! daystart:
+				'You look at your brother sleeping peacefully on the couch.'
+				if brotherRand < 5:'As you look, you can also clearly see the outline of his morning wood pitching a tent under the blanket.'
+				if week < 6 and kanikuli = 0:
+					act'Wake him up for breakfast':gt'brother2','wakeup'
 				end
+			elseif hour < 7 and brotherMorningSex = daystart:
+				'Your brother is busying himself getting ready for school.'
 			end
 
-			if hour >= 21 and hour < 24 and brotherSex > 0 and brotherNightSex ! daystart:
+			if hour >= 21 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
 				'When you get close, he suddenly opens his eyes and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					'"<<$pcs_nickname>>, help me sleep." Then he throws back the blanket, revealing his erection.'
@@ -430,7 +386,7 @@ if $ARGS[0] = 'start':
 				'When you get close, He turns to you and says,:'
 				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 					gs 'boyStat', 'A34'
-					'"<<$pcs_nickname>>, Come on you have work to do, and quitely, you don''t want to wake our parents up." Then he drops his pants, and you see his hard <<dick>> cm dick.'
+					'"<<$pcs_nickname>>, come on you have work to do. And be quiet! You don''t want to wake up mom and dad." Then he drops his pants, and you see his hard <<dick>> cm dick.'
 					brotherSexCount -= 1
 					brotherEvSex = daystart
 
@@ -483,7 +439,6 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'sleepsexcum':
-	brotherSex += 1
 	brotherfuck += 1
 	minut += 15
 	if protect ! 1:
@@ -621,13 +576,12 @@ end
 if $ARGS[0] = 'brotherSexStart':
 	cla
 	gs 'boyStat', 'A34'
-	if brotherSex = 0:brotherSex = 1 & guy += 1
 	act 'Jerk your brother':
 		cls
 		minut += 5
 		stat['hj'] += 1
+		if brotherSex < 5:brotherSex = 5
 		gs 'stat'
-
 		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
 		'You take his hard cock in your hand and begin to masturbate him. Finally your brother groans and you watch sperm erupt from his cock.'
 		spafinloc = 13
@@ -635,13 +589,14 @@ if $ARGS[0] = 'brotherSexStart':
 		gs 'cum_manage'
 		gs 'brother', 'brotherSexEnd'
 	end
-	if brotherSex > 4:
+	if brotherSex >= 5:
 		act 'Suck your brother':
 			cls
 			minut += 5
 			pcs_horny += 10
 			brotherfuck += 1
 			stat['bj'] += 1
+			if brotherSex < 6:brotherSex = 6
 			gs 'stat'
 
 			'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/kolka/sex/blow0,<<rand(0,6)>>.mp4"></video></center>'
@@ -686,9 +641,9 @@ if $ARGS[0] = 'brotherSexStart':
 
 				gs 'brother', 'brotherSexEnd'
 			end
-			if brotherSex > 6:
+			if brotherSex >= 6:
 				act 'Give yourself to your brother':
-					if brotherSex > 10: brotherSex = 10
+					if brotherSex < 7:brotherSex = 7
 					cls
 					minut += 5
 					pcs_horny += 10
@@ -708,12 +663,13 @@ if $ARGS[0] = 'brotherSexStart':
 					gs 'brother', 'brotherSexEnd'
 				end
 			end
-			if brotherSex >= 10:
+			if brotherSex >= 6:
 				act 'Offer your ass to your brother':
 					cls
 					minut += 5
 					pcs_horny += 10
 					brotherfuck += 1
+					if brotherSex < 8:brotherSex = 8
 					gs 'boyStat', 'A34'
 
 					gs 'stat'
@@ -729,10 +685,10 @@ if $ARGS[0] = 'brotherSexStart':
 			end
 		end
 	end
-	if brotherSex > 6:
+	if brotherSex >= 6:
 		act 'Give yourself to your brother':
 			brotherfuck += 1
-			if brotherSex > 10: brotherSex = 10
+			if brotherSex < 7:brotherSex = 7
 			cls
 			minut += 5
 			pcs_horny += 10
@@ -751,12 +707,13 @@ if $ARGS[0] = 'brotherSexStart':
 			gs 'brother', 'brotherSexEnd'
 		end
 	end
-	if brotherSex >= 10:
+	if brotherSex >= 7:
 		act 'Offer your ass to your brother':
 			brotherfuck += 1
 			cls
 			minut += 5
 			pcs_horny += 10
+			if brotherSex < 8:brotherSex = 8
 			gs 'boyStat', 'A34'
 
 			gs 'stat'
@@ -772,7 +729,6 @@ if $ARGS[0] = 'brotherSexStart':
 end
 
 if $ARGS[0] = 'brotherSexEnd':
-	brotherSex += 1
 	if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
 		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
 			minut += 15
@@ -783,9 +739,7 @@ if $ARGS[0] = 'brotherSexEnd':
 			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
-
 			gs 'stat'
-
 			'Kolka catches his breath, then says, "Nice one <<$pcs_nickname>>, you''re well trained. Now don''t tell anyone!", and falls asleep.'
 			act 'Leave': gt 'sitrPar'
 		else
@@ -796,21 +750,16 @@ if $ARGS[0] = 'brotherSexEnd':
 	else
 		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 21:
 			minut += 15
-
 			gs 'stat'
-
 			'Kolka catches his breath, then says, "Many thanks, <<$pcs_nickname>>, you helped me a lot." He continues to go about his business.'
 			act 'Leave': gt 'sitrPar'
 		elseif $loc = 'sitrPar':
 			minut += 15
-
 			gs 'stat'
-
 			'Kolka catches his breath, then says, "Thank you, <<$pcs_nickname>>, you saved me. Now I can finally sleep.", and goes to sleep.'
 			act 'Leave': gt 'sitrPar'
 		else
 			'Kolka says, "Thanks for everything, Sis. Well, I''m off.", and leaves.'
-
 			act 'Continue':gt $loc, $metka
 		end
 	end
@@ -995,10 +944,10 @@ if $ARGS[0] = 'brother_sex_end':
 	minut += RAND(2,5)
 	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/shower.mp4"></center>'
 	'You stay under the shower for a while, touching yourself, remembering Kolka inside of you.'
-	if brothersex > 10:
+	if brothersex >= 9:
 		'You really enjoyed this little tryst, and in secret you are hoping for a repeat.'
 	elseif brothersex > 0:
-		'You are a little bedevilled that you just had sex with your own brother, in the shower, not the least, but you can''t deny that you enjoyed it, maybe more so because it is taboo.'
+		'You are a little bedeviled that you just had sex with your own brother, in the shower, not the least, but you can''t deny that you enjoyed it, maybe more so because it is taboo.'
  	else
 		'You can''t believe that you just had sex with your little brother. You are a little shocked, but also feel a strange glow, even knowing that this is fundamentally wrong.'
 	end
@@ -1151,7 +1100,7 @@ if $ARGS[0] = 'anus_check':
 		elseif brother_saw_analplug = 1:
 			'"There it is again with this thing in your ass?" asked Kolka, obviously referring to sex-toy in your ass.'
 			'"Aha..." you coquettishly answer.'
-			if brotherSex > 0:
+			if brotherSex > 4:
 				'"Maybe you should take it out and put it back in?" He asks.'
 				'"Maybe next time, Kolka"'
 			else
@@ -1292,11 +1241,12 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 	minut += RAND(5,10)
 	ivrand = RAND(1,2)
 	brotherConfidence += 4
-	if brotherConfidence < 10 and brotherSex < 1:
+	if brotherConfidence < 10 and brotherSex < 4:
 		gs 'cum_call', 'stomach', 'A34', 1, 0, 0, rand(20,30)
 		gs 'cum_call', 'breasts', 'A34', 1, 0, 0, rand(10,20)
 		gs 'cum_call', 'labia', 'A34', 1, 0, 0, rand(10,20)
 		gs 'stat'
+		if brotherSex < 4:brotherSex = 4
 		if sound = 0:PLAY 'sound/moaning<<ivrand>>.mp3',30
 			picrand = RAND(1,2)
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
@@ -1327,7 +1277,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			end
 			act'Dress':gt $loc, $metka
 		end
-	elseif brotherSex > 0:
+	elseif brotherSex >= 4:
 		cls
 		minut += 5
 		pcs_horny += 10
@@ -1337,7 +1287,6 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		sexpartkno = 1
 		gs 'cum_manage'
 		swallow += 1
-		brotherSex += 1
 		brotherSexCount -= 1
 		brotherEvSex = daystart
 		gs 'stat'
@@ -1358,7 +1307,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			'You don''t say anything as you get dressed.'
 			act'Dress':gt $loc, $metka
 		end
-	elseif brotherConfidence > 10 and brotherSex = 0:
+	elseif brotherConfidence > 10 and brotherSex < 4:
 		cls
 		minut += 5
 		pcs_horny += 10
@@ -1368,7 +1317,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		sexpartkno = 1
 		gs 'cum_manage'
 		swallow += 1
-		brotherSex += 1
+		if brotherSex < 4:brotherSex = 4
 		brotherSexCount -= 1
 		brotherEvSex = daystart
 		gs 'stat'
@@ -1395,21 +1344,21 @@ end
 
 if $ARGS[0] = 'pregreact':
 	if pregTalkbrother = 0 and knowpreg = 1:
-		if $clothingworntype = 'nude' and pregchem > 2000 and brotherSex = 0 and kid = 0:
+		if $clothingworntype = 'nude' and pregchem > 2000 and brotherSex < 7 and kid = 0:
 			'Surprised, your brother looks at your tummy. "<<$pcs_nickname>>, are you pregnant? Mom and dad are going to be pissed!" After a moments pause he adds "You do still look good pregnant, though."'
 			pregTalkbrother = 1
 
 			act 'Continue' :gt 'sitrPar'
 		exit
 
-		elseif $clothingworntype ! 'nude' and pregchem > 3460 and brotherSex = 0 and kid = 0:
+		elseif $clothingworntype ! 'nude' and pregchem > 3460 and brotherSex < 7 and kid = 0:
 			'Surprised, your brother looks at your tummy, "<<$pcs_nickname>>, why didn''t you tell me I''m going to be an uncle? '
 			pregTalkbrother = 1
 
 			act 'Continue' :gt 'sitrPar'
 		exit
 
-		elseif brotherSex > 0 and kid = 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
+		elseif brotherSex >= 7 and kid = 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
 			cla
 			'"Are you really pregnant? It''s.. It''s not mine, is it?"'
 			*nl
@@ -1425,7 +1374,7 @@ if $ARGS[0] = 'pregreact':
 		exit
 
 
-		elseif ($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem > 3460) and brotherSex = 0 and kid > 0:
+		elseif ($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem > 3460) and brotherSex < 7 and kid > 0:
 			'"You''re already pregnant again? This is starting to look like a new hobby," he laughs.'
 			'"You know what? Maybe it is," you joke back. "Some girls play sports; I get serially impregnated."'
 			'"Well, congratulations on taking home the gold in getting knocked up."'
@@ -1436,7 +1385,7 @@ if $ARGS[0] = 'pregreact':
 
 			act 'Continue' :pregTalkbrother = 1 & gt 'sitrPar'
 
-		elseif brotherSex > 0 and pregTalkMom = 0 and kid > 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
+		elseif brotherSex >= 7 and pregTalkMom = 0 and kid > 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
 			cla
 			'"Wow, you''re pregnant again? Is it mine this time?"'
 			*nl

locations/brother2.qsrc

@@ -0,0 +1,266 @@
+# brother2
+
+
+if $ARGS[0] = 'wakeup':
+	cla & *clr
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+	'"Hey, it''s time to get up Kolka."'
+	'"Mrph. Lemme alone," he mutters, eyes squeezing tight in annoyance.'
+	'"Come on Kolka. Mom''s gonna be mad if you''re late for breakfast again."'
+	'He doesn''t respond except to grumble again, turning over and pulling his blanket tighter.'
+	*nl
+	act'Leave him alone':
+		cla
+		*nl
+		'You shrug, realizing that you''re not going to find a way to wake him up any time soon without him being mad at you and decide to leave him be.'
+		act'Move away':gt $loc, $metka
+	end
+	
+	act'Yank his blanket off':
+		brotherMorningSex = daystart
+		cla
+		*nl
+		'"Come on Kolka! Wake. UP!"'
+		if $clothingworntype = 'nude':
+			'With a mighty tug, you yank the blanket off of him, leaving him clutching himself and shivering on the couch. After a few moments, he forces his eyes open, blinking wearily as he sits up on the couch and shamelessly glances up and down your naked body.'
+		else
+			'With a mighty tug, you yank the blanket off of him, leaving him clutching himself and shivering on the couch. After a few moments, he forces his eyes open, blinking wearily as he sits up on the couch, glaring at you with half closed eyes.'
+		end
+		if brotherSex >= 7:
+			'"You know, it''s a good thing that you put out or I might not like you as much."'
+			'Rolling your eyes, you toss your brother''s blanket into the corner.'
+			'"Yeah, well lucky for you, I happen to go above and beyond the qualities of a good sister. Including getting her annoying little brother out of bed when he needs to be getting ready for school. Now go get dressed before mom comes out and yells at you!"'
+		elseif brotherSex = 6:
+			'"You''re lucky that you give me blowjobs or I might actually get mad at you."'
+			'You throw your brother''s blanket into the corner.'
+			'"You''re lucky I decide to give you blowjobs at all! Keep this up and that might change. You might end up having to get your own rocks off," you sneer, miming a jerk-off motion at him. "Now go get dressed before mom comes out and yells at you too!"'
+		elseif brotherSex = 5:
+			npc_rel['A34'] -= 1
+			'"Not even handjobs are worth this," he mutters.'
+			'"Yeah well I can always stop if you''re gonna be a little baby about it," you say, throwing your brother''s blanket into the corner. "Now go get dressed before mom comes out here and yells at you."'
+		elseif $clothingworntype = 'nude':
+			npc_rel['A34'] -= 1
+			'"At least you have the decency to give me a good view when you ruin my sleep in the morning."'
+			'You roll your eyes in exasperation and throw his blanket into the corner.'
+			'"Shut the fuck up and get dressed for school Kolka. Before mom comes out here and yells at the both of us."'
+		else
+			npc_rel['A34'] -= 1
+			'"I hate you."'
+			'"Oh stop being so melodramatic," you say, rolling your eyes and tossing his blanket into the corner. "Now get ready for school before mom yells at you."'
+		end
+		act'Move away':gt $loc, $metka
+	end
+		
+	if brotherSex >= 2 or pcs_inhib >= 35 or npc_rel['A34'] >= 75:
+		act'Tell him you''ll show him your tits':
+			cla
+			brotherMorningSex = daystart
+			'"I''ll tell you what Kolka, if you get up now, I''ll let you look at my tits."'
+			if $clothingworntype = 'nude' and $braworntype = 'none':
+				'He cracks open an eye. "I don''t need to get up to do that."'
+				'You look down at yourself and remember that you''re already topless. Right. That wasn''t a very good plan...'
+				act'Back to the drawing board':gt'brother2','wakeup'
+			elseif brotherwaketrick = 1:
+				'He opens his eyes slowly, looking at you with suspicion.'
+				'"You''re not just going to leave like you did last time are you?"'
+				'"No Kolka."'
+				'"You promise? For real this time?"'
+				'"I promise."'
+				'He pulls back his blanket and sits up, rubbing the sleep from his eyes to focus on you.'
+			else
+				'He opens his eyes slowly, looking at you with suspicion.'
+				'"This isn''t just some trick to get me out of bed?"'
+				'"No Kolka."'
+				'"You promise?"'
+				'"I promise."'
+				'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focus on you.'
+			end
+			if $clothingworntype ! 'nude':
+				act'Pull up your top':
+					cla & *clr
+					npc_rel['A34'] += 4
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash<<rand(1,4)>>.jpg"></center>'
+					'Following through on your promise, you lift up your top, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
+					'"There. Happy now?"'
+					if brotherwaketrick = 1:
+						'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
+						'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
+						'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka."'
+						brotherwaketrick = 2
+					else
+						'"Very."'
+						'"Good." You cover yourself up, putting your clothes back in place. "Now go get dressed."'
+					end
+					'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
+					act'Move away':gt $loc, $metka
+				end
+			else
+				act'Pull down your bra':
+					cla & *clr
+					npc_rel['A34'] += 4
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash5.jpg"></center>'
+					'Following through on your promise, you pull down your bra, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
+					'"There. Happy now?"'
+					if brotherwaketrick = 1:
+						'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
+						'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
+						'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka."'
+						brotherwaketrick = 2
+					else
+						'"Very."'
+						'"Good." You cover yourself up, putting your clothes back in place. "Now go get dressed."'
+					end
+					'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
+					act'Move away':gt $loc, $metka
+				end
+			end
+			
+			act'Trick him and don''t do it':
+				cla & *clr
+				brotherwaketrick = 1
+				npc_rel['A34'] -= 5
+				'<center><b><font color="maroon">Kolka</font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+				'You wait for him to be more or less fully awake before snatching his blanket and move away.'
+				'"Hey!" he cries. "What are you doing?"'
+				'"I''m leaving. What the hell is wrong with you? You really thought I was gonna show you my tits?"'
+				if brotherSex = 2 or brotherSex = 3:
+					'"You''ve let me look at you before!"'
+					'"Yeah well, this isn''t ''before''. I''m not doing it today."'
+				elseif brotherSex >= 4:
+					'"You''ve done so much with me before!"'
+					'"Yeah well, this isn''t ''before''. I''m not doing anything today."'
+				end
+				'"Liar!" he screams at you.'
+				'"Listen here you little-!"'
+				'<b><i>"Hey!"</i></b> your mother shouts from the bedroom. "What is all this racket going on so early in the morning?! You two get along or so help me I will spank you! I don''t care how old you are!"'
+				'Glaring silently at one another, the two of you retreat after a ceasefire being called by your mother. This probably wasn''t good for your relationship though...'
+				act'Move away':gt $loc, $metka
+			end
+		end
+	end
+	if brotherSex >= 3  or pcs_inhib >= 45 or npc_rel['A34'] >= 80:
+		act'Tell him you''ll show him your pussy':
+			cla
+			brotherMorningSex = daystart
+			'"I''ll tell you what Kolka, if you get up now, I''ll show you my pussy."'
+			if $clothingworntype = 'nude' and $panyworntype = 'none':
+				'He cracks open an eye. "I don''t need to get up to do that."'
+				'You look down at yourself and remember that you''re naked. Right. That wasn''t a very good plan...'
+				act'Back to the drawing board':gt'brother2','wakeup'
+			elseif brotherwaketrick = 1:
+				'He opens his eyes slowly, looking at you with suspicion.'
+				'"You''re not just going to leave like you did last time are you?"'
+				'"No Kolka."'
+				'"You promise? For real this time?"'
+				'"I promise."'
+				'He pulls back his blanket and sits up, rubbing the sleep from his eyes to focus on you.'
+			else
+				'He opens his eyes slowly, looking at you with suspicion.'
+				'"This isn''t just some trick to get me out of bed?"'
+				'"No Kolka."'
+				'"You promise?"'
+				'"I promise."'
+				'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focus on you.'
+			end
+			act'Expose yourself':
+				cla & *clr
+				npc_rel['A34'] += 4
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/pussyflash.jpg"></center>'
+				'Following through on your promise, you pull down your panties and pull up your top, exposing your breasts and pussy to your brother. Still tired, he smiles only faintly in satisfaction.'
+				'"There. Happy now?"'
+				if brotherwaketrick = 1:
+					'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
+					'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
+					'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka. Mom will kill you if you''re late for school."'
+					brotherwaketrick = 2
+				else
+					'"Very. Not that I''m complaining, but how come you showed me your boobs too? I only asked to see your pussy."'
+					'"More motivation for you to wake up," you smile. You cover yourself up, putting your clothes back in place. "Bet it''s difficult to go back to sleep with an erection that hard. Now go get dressed."'
+				end
+				'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
+				act'Move away':gt $loc, $metka
+			end
+			
+			act'Trick him and don''t do it':
+				cla & *clr
+				brotherwaketrick = 1
+				npc_rel['A34'] -= 5
+				'<center><b><font color="maroon">Kolka</font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+				'You wait for him to be more or less fully awake before snatching his blanket and move away.'
+				'"Hey!" he cries. "What are you doing?"'
+				'"I''m leaving. What the hell is wrong with you? You really thought I was gonna show you my pussy?"'
+				if brotherSex = 2 or brotherSex = 3:
+					'"You''ve let me look at you before!"'
+					'"Yeah well, this isn''t ''before''. I''m not doing it today."'
+				elseif brotherSex >= 4:
+					'"You''ve done so much with me before!"'
+					'"Yeah well, this isn''t ''before''. I''m not doing anything today."'
+				end
+				'"Liar!" he screams at you.'
+				'"Listen here you little-!"'
+				'<b><i>"Hey!"</i></b> your mother shouts from the bedroom. "What is all this racket going on so early in the morning?! You two get along or so help me I will spank you! I don''t care how old you are!"'
+				'Glaring silently at one another, the two of you retreat after a ceasefire being called by your mother. This probably wasn''t good for your relationship though...'
+				act'Move away':gt $loc, $metka
+			end
+		end
+	end
+			
+	
+	if brotherSex >= 5 or pcs_inhib >= 50 or npc_rel['A34'] >= 85:
+		act'Tell him you''ll give him a handjob':
+			cla
+			brotherMorningSex = daystart
+			'"I''ll tell you what Kolka, if you get up now, I''ll help you deal with your morning wood before mom and dad come out of their room."'
+			'His eye cracks open to look at you, seemingly intrigued.'
+			'"How?"'
+			'"With a handjob of course!"'
+			'"Hmmm..." He seems to consider for a moment before throwing off his blanket and revealing to you a rock hard erection showing through his pajama pants. "Deal."'
+			act'Give your brother a handjob':
+				cla & *clr
+				gs 'arousal', 'hj', 5
+				gs 'cum_call','hands', $boy
+				if brotherSex < 5:brotherSex = 5
+				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/kotovhj.jpg"></center>'
+				'Pulling down Kolka''s pants, you get started immediately, gently working his member with your hand.'
+				'Within just a few minutes he groans, ejaculating as his warm cum coats your fingers.'
+				'Your duty done, you pull your now sticky hand back, saying, "Alright Kolka. A deal''s a deal. Now clean up and get dressed before mom comes out here and sees you like this."'
+				'"Alright!" he says cheerfully, waddling away with his pants around his ankles to find some tissues to clean himself up.'
+				act'Move away':gt $loc, $metka
+			end
+		end
+	end
+	if brotherSex >= 6 or pcs_inhib >= 50 or npc_rel['A34'] >= 85:
+		act'Tell him you''ll give him a blowjob':
+			cla
+			brotherMorningSex = daystart
+			'"Okay Kolka, if you get up now, before mom and dad come out of their room, I''ll give you a blowjob."'
+			'His eye cracks open to look at you, seemingly intrigued.'
+			'"How does that sound?"'
+			'"Sounds pretty good to me," he says, throwing off his blanket and leaning back as he pulls his <<dick>> cm cock out.'
+			act'Blow him':
+				cla & *clr
+				gs 'arousal', 'hj', 5
+				gs 'cum_call','mouth', $boy
+				swallow += 1
+				if brotherSex < 6:brotherSex = 6
+				if $clothingworntype = 'nude' and $braworntype = 'none':
+					'<center><video src="images/characters/pavlovsk/resident/kolka/bj1.mp4"></center>'
+				else
+					'<center><video src="images/characters/pavlovsk/resident/kolka/bj2.mp4"></center>'
+				end
+				'Kneeling down, you lean forward and wrap your lips around Kolka''s cock. You suck on it gently, but move your head forward and backward with quick bobbing motions.'
+				'Several minutes go by before you feel hot viscous liquid shooting into your mouth without warning and hear your brother sighing loudly in satisfaction. You pull back as he finishes cumming and realizing there''s nowhere else for you to deposit his sperm, swallow it in one gulp.'
+				'"Thanks sis," he says. "That was pretty refreshing. Actually makes me want to get up in the morning if you''re gonna give me great head like that!"'
+				'"Glad I could help I guess," you reply, giving his cock a few more licks to make sure it''s clean. "Now go get dressed for school. Before mom comes out and yells at you for having your dick hanging out."'
+				'"Okay, okay," he says, getting up and tidying up the couch from where he was sleeping.'
+				act'Move away':gt $loc, $metka
+			end
+		end
+	end
+end
+
+--- brother2 ---------------------------------
+

locations/brother_voyeur.qsrc

@@ -57,6 +57,7 @@ if $ARGS[0] = 'showertalk1':
 				npc_rel['A34'] += 5
 				*clr & cla
 				brothershowerlook = 1
+				if brotherSex < 3:brotherSex = 3
 				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothertalk4.jpg"></center>'
 				npc_rel['A34'] += 5
 				'	"Kolka..." When you say this he starts to turn towards you a little bit but then stops himself and continues to stare at the wall. You sigh sympathetically. "It''s okay to look at me you know."'
@@ -142,6 +143,7 @@ if $ARGS[0] = 'showertalk2':
 		act'"You can look at me you know"':
 			*clr & cla
 			brothershowerlook = 1
+			if brotherSex < 3:brotherSex = 3
 			npc_rel['A34'] += 5
 			bro_ass_compliment = rand(1,3)
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothertalk4.jpg"></center>'
@@ -628,10 +630,10 @@ if $ARGS[0] = 'brother_shower_together':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershower.jpg"></center>'
 			'	"So, how was your day?" you ask cheerfully.'
-			if brother_shower_times < 3 or brotherSex < 1:
+			if brother_shower_times < 3 or brotherSex < 4:
 				'	"It, uhh... was... g-good... uhm..." he stammers.'
 				act'Continue':gt'brother_voyeur','brother_shower_together_first'
-			elseif brotherSex >= 1 and brothergrope = 1:
+			elseif brotherSex >= 4 and brothergrope = 1:
 				'	"Getting better by the moment..." he says, sliding up behind you.'
 				act'"Eek-!"':gt'brother_voyeur','showerfun'
 
@@ -651,7 +653,7 @@ if $ARGS[0] = 'brother_shower_together':
 				'	"It''s... Uhh... fine..." he stammers.'
 				act'Continue':gt'brother_voyeur','brother_shower_together_first'
 
-			elseif brotherSex >= 1 and brothergrope = 1:
+			elseif brotherSex >= 4 and brothergrope = 1:
 				brothergrope = 2
 				'	"It''s fine, but I''ve been having a little trouble paying attention in class lately," he says, stepping behind you.'
 				'	"Why''s that?"'
@@ -671,7 +673,7 @@ if $ARGS[0] = 'brother_shower_together':
 			if brother_shower_times < 3 or brotherSex < 1:
 				'	"They''re... Uhh... fine..." he stammers.'
 				act'Continue':gt'brother_voyeur','brother_shower_together_first'
-			elseif brotherSex >= 1 and brothergrope = 1:
+			elseif brotherSex >= 4 and brothergrope = 1:
 				brothergrope = 3
 				'	"Who cares about them?" he says, stepping behind you.'
 				act'"Eek-!"':gt'brother_voyeur','showerfun'
@@ -733,10 +735,10 @@ if $ARGS[0] = 'brother_shower_together':
 					'	"Hey Kolka, want to see something cool?"'
 					'	"Huh?" He asks, confused. "What is it?"'
 					'	His eyes go wide when you grab him by the cock. Slightly panicked, he looks back at you when you start to kneel.'
-					'	"It''s my mouth around your cock!" you grin at him.'
+					'	"It''s my mouth around your cock!"'
 					act'Blow him':gt'brother_voyeur','brother_shower_bj'
 				else
-					'	Looking at Kolka, he glances back at you to see a mischievous twinkle in your eye. Without a second''s thought or warning, you get on your knees and start blowing him.'
+					'	Looking at Kolka, he glances back at you to see a mischievous twinkle in your eye. Without a second''s thought or warning, you get on your knees and wrap your lips around his <<dick>> cm cock.'
 					act'Blow him':gt'brother_voyeur','brother_shower_bj'
 				end
 			end
@@ -766,11 +768,12 @@ end
 
 if $ARGS[0] = 'brother_wash':
 	npc_rel['A34'] += 5
+	if brotherSex < 4:brotherSex = 4
 	cla & *clr
 	brotherwash += 1
 	'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brotherwash.jpg"></center>'
 	'	You and Kolka spend some time lathering each other with soap and rubbing each other down, both of you appreciatively feeling each other''s bodies as you do so.'
-	if brotherwash > 5 or brotherSex > 0 or brotherfuck > 0:
+	if brotherwash > 5 or brotherSex > 5 or brotherfuck > 0:
 		'	Kolka even slips his hands between your legs and gives your pussy a good cleaning, paying special attention to your clit and causing you to squirm and and moan under his touch.'
 		gs 'arousal','vaginal_finger',3
 	end
@@ -1407,7 +1410,7 @@ if $ARGS[0] = 'brother_shower_bj':
 	npc_rel['A34'] += 3
 	brotherbj += 1
 	brothershowerbj = daystart
-	brotherSex += 1
+	if brotherSex < 6:brotherSex = 6
 	cla & *clr
 	'<center><video src="images/shared/home/bathroom/showerbj.mp4"></center>'
 	'	Kneeling down, you take Kolka''s freshly washed cock and push it between your lips, sucking gently. Several minutes go by while you to continue blowing your brother, going slowly up and down his length, the sound of water raining down from the showerhead muting the soft slurping sounds coming from your mouth.'
@@ -1906,11 +1909,11 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 	npc_rel['A34'] += 20
 	gs 'boystat','A34'
 	cla & *clr
+	if brotherSex < 7:brotherSex = 7
 	'<center><video src="images/shared/home/bathroom/BroShower2.mp4"></center>'
 	'	You lean back into your brother, gripping his member and jerking it a few times to make sure he''s still hard enough for what you want to do next. You pull on him, carefully guiding his cock until you can feel the tip pressing against the entrance of pussy.'
 	if brother_knows_not_virgin = 1:
 		brotherfuck += 1
-		brotherSex += 1
 		'	"I was wondering if you were going to let me join the "Boys Who Fuck <<$pcs_nickname>>" Club," he says, grin radiating from behind you.'
 		*nl
 		act'It''s pretty exclusive':
@@ -1969,7 +1972,6 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 		end
 	else
 		brotherfuck += 1
-		brotherSex += 1
 		'	You feel Kolka tense up behind you and he hesitates.'
 		'	"Is this...? Are you...?"'
 		'	"My first time? A virgin?"'
@@ -1992,6 +1994,7 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			end
 
 			act'No, I''m a slut (lie)':
+				cla
 				brothervirginlie = 2
 				'	"Nope!" You smile at him. "Sorry to disappoint, but yours is just going to be one more of many different dicks that have been inside my pussy little brother."'
 				'	You''re not really sure why you''re lying to him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you push your ass towards him and impale yourself on his cock.'
@@ -2006,6 +2009,7 @@ if $ARGS[0] = 'brother_shower_fuck_first':
 			end
 
 			act'No, I''m a slut':
+				cla
 				'	"Nope!" You smile at him. "Sorry to disappoint, but yours is just going to be one more of many different dicks that have been inside my pussy little brother."'
 				'	You''re not really sure why you''re telling him about this, especially with the implication that you''re a huge slut, but there''s no time to think about that as you push your ass towards him and swallow his cock with your pussy.'
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_first2'
@@ -2082,6 +2086,7 @@ if $ARGS[0] = 'brother_shower_fuck':
 	gs 'boystat','A34'
 	if brotherfuck < 1:gt'brother_voyeur','brother_shower_fuck_first'
 	brotherfuck += 1
+	if brotherSex < 7:brotherSex = 7
 	npc_rel['A34'] += 5
 	gs 'arousal', 'vaginal', rand(5,10)
 	gs 'stat'
@@ -2375,7 +2380,7 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 	if brotherfuck = 1 and brother_knows_not_virgin >= 1:
 		pcs_horny = 0
 		gs'stat'
-		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 		'	Thoroughly satisfied with the dicking you received from your brother, you lean into him letting him feel you up from behind.'
 		'	"So," you ask, nonchalantly grabbing his cock and working it gently. "Did you enjoy losing your virginity? Was it everything your teenage brain dreamed of?"'
 		'	"Everything and more," he responds, gently pinching your nipples, causing you to moan and squeeze his dick in response. "But more than that, I''m happy to be part of the club."'
@@ -2386,17 +2391,18 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 			'	He hesitates before he asks his next question. "Does that mean that I''m going to be the only ''active'' member of the club? I mean... does this mean that I''m going to be the only one you have sex with?"'
 			act'No, it means we help each other out':
 				cla & *clr
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
-				'	"Well..." You think for a moment. "I''d still like to get a boyfriend, maybe get married some day. And I like fucking you, but you''re still just my brother to me. I don''t really see you that way. And I''m sure that you''d like to get a real girlfriend someday too, not just get favors from your sister. So maybe we''d just take care of each other? So we''d still see other people and stuff, but we can always fuck each other''s brains out whenever we need some relief. Deal?"'
-				'	Your brother thinks to himself briefly before his mouth splits into a wide grin.'
-				'	"Deal. Besides, you can''t be the only girl I have sex with. I need to fuck a real virgin some day. Not some loose slut throwing freebies to her brother."'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
+				if brotherSex < 9:brotherSex = 9
+				'	"Well..." You think for a moment. "I''d still like to get a boyfriend, maybe get married some day. And I like fucking you, but you''re still just my brother to me. I can''t really see you any other way. Besides, I''m sure that you''d like to get a real girlfriend someday. Not just be that boy who''s so pathetic because the only poon he can get is from his sister. Maybe we can just take care of each other? So we''d still see other people and stuff, but we can always fuck each other''s brains out whenever we need some relief. How does that sound?"'
+				'	"Sounds good," he grins at you. "Besides, you can''t be the only girl I have sex with. I need to fuck a real virgin some day. Not some loose slut throwing freebies to her brother."'
 				'	You smack his arm but smile anyways. "Yeah, but I still have <i>your</i> virginity. No matter how many other girls'' you take, yours will always be mine!"'
 				'	The two of you banter back and forth for a little while longer before you realize someone might notice that your brother is missing and become suspicious. You quickly shut off the water and dry him off, gathering Kolka''s clothes and shooing him into the hallway.'
 				act'Finish':mirror_steam = hour & gt $loc
 			end
 			act'Yes, I love you':
 				cla & *clr
-				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
+				if brotherSex < 10:brotherSex = 10
 				'	His question strikes you by surprise. Even more surprisingly, you hear yourself whispering.'
 				'	"Yes."'
 				'	"You''re the only one for Kolka. You''re my brother and I love you like a brother but... I also feel something more for you. I want to be with you. I love you."'
@@ -2410,7 +2416,7 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 
 		act'Glad to have a new member (slut)':
 			cla & *clr
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/broshowersex2.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 			'	"Oh yeah, I''m glad to have a new member. You can never have enough members inside y-, I mean, in the club," you say, winking at him mischievously.'
 			'	"Slut."'
 			'	"Cocktoy."'

locations/cikl.qsrc

@@ -1,1400 +1,1418 @@
-# cikl
-
-!!----------------------------------------------------------------------------
-!! Time calculations
-
-day += 1
-week += 1
-hour -= 24
-
-if day > monthsEnd[month]:
-	day -= monthsEnd[month]
-	month += 1
-
-	if month > 12: month = 1 & year += 1
-
-	!!MJ: Dont think that one is needed. But it was in the original loop.
-	if month < 1: month = 1
-
-	$month = $monthName[month]
-
-	!! new years party calculation
-	temp = func('shortgs','dow',year,12,31)
-	if temp < 6:
-		nyp_day = 31
-	elseif temp = 6:
-		nyp_day = 30
-	else
-		nyp_day = 29
-	end
-
-end
-
-!!MJ: Dont think that one is needed. But it was here already.
-if day <= 0:day = 1
-
-if week > 7:
-	:loopweek
-	week -= 7
-	husbandrink = 0
-
-	if military = 1:military = 0
-
-	if week > 7:jump 'loopweek'
-end
-
-!!----------------------------------------------------------------------------
-
-!!Fame call to update all the fame variables
-gs 'fame'
-
-!!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
-if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
-	if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
-	gs 'pornschedule', 'schedule'
-end
-
-!!modelling job check
-if model_week ! (daystart - week) / 7:model_job_week = 0
-
-!!acting strings to set available jobs
-if casting = 1:
-	acting_string1 = rand(10000000000,199999999999)
-	acting_string2 = rand(10000000000,199999999999)
-end
-
-gs 'daystart'
-dynamic $hypnoDaychange
-
-!!phone reset for bf
-ringA = 0
-ringB = 0
-ringC = 0
-
-if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
-if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
-
-if home_owned[1] = 1: ArendHouseSL -= 1
-if home_owned[4] > 0: ArendHouseSL4 -= 1
-
-!!Appearance Age
-vidageday -= 1
-if vidageday <= 0:
-	vidageday = 360
-	vidage += 1
-end
-!!Birthday
-age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
-
-if workDolgDay > 0: workDolgDay -= 1
-if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
-if husband > 0: husbanday += 1
-if husband > 10 and husbanday > 0: husband -= 15
-if fingal > 0: fingal -= 1
-
-if husbandMark = 1 and husband <= 10:
-	husbizvradd = 0
-	husbharmin = 0
-	husbandMark = 0
-	husband = 0
-	divorced += 1
-
-	if KFOnLineReaga > 0:KFOnLineReaga -= 1
-
-	'<b><font color="red">Your husband has filed for a divorce.</font></b>'
-end
-
-if katjaPreg = 0 and month >= 2:
-	if school_year = 2001 and year > 2016:
-		katjaPreg = 1
-	elseif school_year = 2000 and year > 2017:
-		katjaPreg = 1
-	end
-end
-
-!! after having surgery you will be in recuperation for a few days
-
-if surgeryday ! '':
-	if daystart - 7 <= surgeryday:
-		dailyhealthimprov = (daystart - surgeryday) * 50
-		pcs_health = dailyhealthimprov
-		recuperation = 1
-	else
-		killvar 'recuperation'
-		killvar 'dailyhealthimprov'
-	end
-end
-
-!!Street events daily reset
-streetevent_hour = -2
-
-!!Clothing stock and price randomizers
-Clothingstock = rand (0,23)
-i = 1
-:loopprice
-Clothingstock[i] = rand (0,500)
-i += 1
-if i <= 147:jump 'loopprice'
-
-if coatH[defaultcoat] <= 0: defaultcoat = 0
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Bimbo
-!!------------------------------------------------------------------------------------------------------------
-!!A Succubus cannot be a Bimbo
-if succubusflag = 1 and bimbo > 0: bimbo -= succublvl * 2
-
-!!Bonus from clothing and shoes
-if succubusflag = 0 and $cheatBimbo ! '<b>ON</b>':
-	if bimbocl = 1:
-		bimbocl = 0
-		bimbo += 2
-	end
-	if bimbosh = 1:
-		bimbosh = 0
-		bimbo += 1
-	end
-else
-	bimbocl = 0
-end
-
-!!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
-if bimbo > 0 or bimbolevel > 0:
-    if bimbo < 10:
-        bimbo -= 1
-    elseif bimbo < 20:
-    	bimbolevel = 1
-    elseif bimbo < 30:
-    	bimbolevel = 2
-    else
-        bimbolevel = 3
-    end
-end
-
-if bimbo >= 40: bimbo = 40
-
-!!Bimbo levels. They use custom variables so they won''t permanently change character stats
-if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
-if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
-if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
-if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
-
-!!Succubus Level & hunger calcs
-if succubusflag = 1:
-
-	cheatHealth = 1
-	dynamic $cheatmenu['std_cure']
-
-!!	A Succubus cannot be a Bimbo
-	if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
-
-!!	Hunger handling
-	if sucxpsnapshot >= succubxp: succhungry += 1
-	sucxpsnapshot = succubxp
-	if succubxp < 0: succubxp = 0
-
-!!	Level handling
-	if succubxp < 60:
-		succublvl = 1
-		$sucself1 = 'that feeling'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 1
-	elseif succubxp < 150:
-		succublvl = 2
-		$sucself1 = 'the power'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 3
-	elseif succubxp < 270:
-		succublvl = 3
-		$sucself1 = 'your other self'
-		sucstorecap = 100
-		if bimbolevel <= 0: supnatvnesh = 6
-	else
-		succublvl = 4
-		$sucself1 = 'your true self'
-		sucstorecap = 200
-		if bimbolevel <= 0: supnatvnesh = 10
-	end
-
-	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
-	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
-
-	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
-	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
-	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
-	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
-	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
-	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
-	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
-	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
-
-	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
-		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
-		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
-		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
-		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
-		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
-		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
-		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
-		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
-		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
-		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
-!!		This is to drive the Succubus vidage into the max appearance range
-		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
-		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
-		if vidageday >= 720 and vidage > 28:
-			vidageday -= 360
-			vidage -= 1
-		end
-		if sucexcess > sucstorecap: sucexcess = sucstorecap
-	elseif sucexcess < 0 and succhungry < 0:
-		succhungry += 1
-		if (0 - sucexcess) < (10 * succublvl):
-			sucexcess = 0
-		else
-			sucexcess += (10 * succublvl)
-		end
-	end
-	if sucexcess < 0: sucpowzeroed += 1
-	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
-
-!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
-	if sucskill >= 4:
-		if pcs_vag - 2 >= 13:
-			pcs_vag -= 2
-		elseif pcs_vag + 2 <= 13:
-			pcs_vag += 2
-		end
-		if pcs_ass - 2 >= 8:
-			pcs_ass -= 2
-		elseif pcs_ass + 2 <= 8:
-			pcs_ass += 2
-		end
-	end
-end
-
-!!Bimbo second half, after Succubus so changes there can be reflected here if still bimbo and Succubus
-!!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
-if bimbolevel >= 1:
-	bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
-	if bimbo > snapshotY:
-		bimbowithdrawal = 0
-	else
-		bimbowithdrawal += 1
-	end
-end
-
-if bimbo < 0: bimbo = 0
-snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
-snapshotY = bimbo
-
-!!------------------------------------------------------------------------------------------------------------
-
-if defcurly = 0 and curly > 0:curly -= 1
-if defcurly = 1:
-	if straight > 0: straight -= 1
-	if straight = 0: curly = 2147483647
-end
-
-! WD: Added daily reduction of braids for Maruda Hair Mod
-if hbraids > 0: hbraids -= 1
-
-
-pcs_sweat += 2
-
-if pcs_tan > 0: pcs_tan -= 1
-
-if prezikmsg = 2: prezikmsg = 3
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Birth control
-!!------------------------------------------------------------------------------------------------------------
-!!	Birth Control Management variables
-!!
-!!	tabletkimm		: The modifier for the current mood of the MC.
-!!	tabletkiap		: Autopill factor affecting the liklihood you took your pill as you should have
-!!	tabletkipt		: Pill Dicipline Take increase
-!!	tabletkipi		: Pill Dicipline Dont take increase
-!!	tabletkicpd		: Current MC Pill Dicipline
-!!	tabletkichday	: Current day that the Birth Control is being evaluated for
-!!	tabletkicheck	: If the birth control is automatically handled
-!!	tabletki		: How many packages of Birth Control Pills there are
-!!	tabletkiold		: Total number packages of expired pills
-!!	tabletkifake	: Total number packages of fake/counterfeit pills
-!!	tabletkirej		: Total number packages of factory rejected pills
-!!	tabletkifert	: Total number packages of subsituted fertility pills
-!!	tabletkisug		: Total number packages of sugar pills
-!!	pillsleft		: Total number packages of pills in current package
-!!	tabletkishot	: The flag for being on the Birth Control shot.
-!!	pillcon			: The number for the current birth control chemical level.
-!!	pilldays		: The number of consecutive days (you believe) you have taken your pill
-
-if Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
-placebopart -= 1
-
-if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
-if pillcon < 0:	pillcon = 0
-if pillcon2 < 0: pillcon2 = 0
-
-if tabletkicheck = 2:
-	if tabletkishot ! 0:
-		!!cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	end
-	if tabletkishot <= 0:
-		pillcon -= 29000
-		pillcon2 -= 29000
-		if tabletkishot < 0: tabletkishot = 0
-	end
-	if shotdays = -8:
-		tabletkicheck = 0
-		shotdue = 0
-		'Your birth control shot is no longer protecting you.'
-	elseif shotdays <= 0:
-		if shotdays = 0:
-			shotdue = 7
-		else
-			shotdue -= 1
-		end
-		'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
-	elseif shotdays > 1 and shotdays < 5:
-		'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
-	elseif shotdays = 1:
-		'Your birth control shot is due for renewal tomorrow.'
-	end
-
-	if shotdays > -100:shotdays -=1
-	if tabletkishot > 0:tabletkishot -= 1
-end
-
-tabletkipd += tabletkipi
-tabletkipi = 0
-tabletkipt = 0
-if tabletkicheck = 1:
-	if tabletki = 0 and pillsleft[ptype] = 0:
-		tabletkicheck = 0
-		'You are out of birth control pills.'
-		tabletkipi = -5
-	elseif tabletki = 0 and pillsleft[ptype] = 28:
-		'You have just opened your last package of birth control pills. You need to buy more.'
-	elseif tabletki = 0 and pillsleft[ptype] <= 5:
-		'You are running out of birth control pills, you only have a few left.'
-	end
-end
-
-if tabletkicheck = 1 and tabletkichday < daystart:
-	tabletkichday = daystart
-	tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
-	if pcs_sleep < 10:
-		tabletkimm -= (100- (pcs_sleep * 10))
-	end
-	if pcs_willpwr < willpowermax / 4:
-		tabletkimm = tabletkimm / 4
-	elseif pcs_mood < 10:
-		tabletkimm = tabletkimm / 2
-	end
-	tabletkiap = tabletkimm
-	tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
-	tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
-	temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
-	tabletkiap += temprand
-	if tabletkiap < 300:
-		if tabletkipd > -10:
-			if pcs_willpwr < willpowermax / 4:
-				pilldaychk = 0
-				'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
-			elseif pcs_mood < 10:
-				pilldaychk = 0
-				'You stare at your package of birth control pills, but you don''t open it.'
-			elseif pcs_sleep < 10:
-				pilldaychk = 0
-				'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
-			else
-				pilldaychk = 0
-				'You just realized you forgot to take your birth control pill today.'
-			end
-		end
-		tabletkipt = 2
-		tabletkipi = -4
-	else
-		if tabletkiap < 350:
-			temprand = rand(0,5)
-		else
-			temprand = rand(0,1000)
-		end
-		if temprand = 0:
-			temprand = rand(0,1)
-			if temprand = 0:
-				gs 'din_bad','takepill'
-				tabletkipt = -2
-				tabletkipi = 1
-			else
-				tabletkipt = 3
-				tabletkipi = -3
-			end
-
-			if tabletkipd > -10:
-				pilldaychk = 0
-				'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
-			end
-			if tabletkipd > 0:
-				if rand(0,9) = 0:
-					if tabletkipt < 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				else
-					if tabletkipt > 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				end
-			end
-		else
-			'You take your birth control pill for the day.'
-			pilldaychk = 1
-			gs 'din_bad','takepill'
-			if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
-			tabletkiday = daystart
-			tabletkipt = 0
-			tabletkipi = 0
-		end
-	end
-elseif tabletkicheck = 0:
-	if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
-	if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
-end
-
-if pilldaychk = 1:
-	pilldays += 1
-else
-	pilldays -= 1
-end
-
-pilldaychk = 0
-if pilldays > 18: pilldays = 18
-if pilldays < 0: pilldays = 0
-!!
-$MenCal[] = $str(cycle)
-if ArrSize('$MenCal') = 60: killvar '$MenCal',0
-
-
-!!------------------------------------------------------------------------------------------------------------
-
-if lashair ! 1:
-	pcs_leghair += 1
-	pcs_pubes += 1
-end
-
-if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
-
-if pcs_breath = 1:pcs_breath = 0
-
-if cheatNoEat = 1 and dounspell = 1:fat += 15
-
-!!STD check
-if SifacOnce = 1:Sifilis += 1
-if GerpesOnce = 1:Gerpes += 1
-if TriperOnce = 1:
-	if Triper > 0:
-		Triper += 1
-	end
-	if TriperOral > 0:
-		TriperOral += 1
-	end
-	If TriperOral > 14 and TriperNapr = 0:
-		if rand(TriperOral,100) > 80:
-		TriperOral = 0
-		if Triper = 0:TriperOnce = 0
-		TriperOralSigns = 0
-		end
-	end
-end
-if KandidozOnce = 1:Kandidoz += 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 pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
-	if anusK < 0:anusK = 0
-	if anusK < ashrinkdays:anusK += 1
-	if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
-	if pcs_ass < 0: pcs_ass = 0
-end
-if pcs_vag > 10 and vshrink > 0:
-	if vaginaK < 0:vaginaK = 0
-	if vaginaK < vshrinkdays:vaginaK += 1
-	if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
-end
-
-lipkoef -= rand(0,1)
-if lipkoef <= 0: lipkoef = 0
-
-if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
-if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
-
-if preg = 1:
-	pregtime = pregchem / 24
-
-	if pregtimes = 0:pregtimes = 1
-
-elseif preg = 2 and pregminut < totminut:
-	if Enable_nogameover = 0 :
-		cla
-		*clr
-		over = 4
-		MSG '<center><b>A horrible pain shoots through your body.</b></center>'
-		xgt 'gameover'
-		exit
-	else
-		MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
-		pregminut = totminut + 1440
-	end
-elseif preg = 0:
-	KILLVAR 'pregTalkBrother'
-	KILLVAR 'pregTalkSister'
-	KILLVAR 'pregTalkFather'
-	!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
-	KILLVAR 'pregTalkMom'
-	KILLVAR 'pregTalk'
-	KILLVAR 'pregTalkNat'
-	KILLVAR 'pregTalkKatja'
-	KILLVAR 'pregTalkAlbina'
-	KILLVAR 'pregTalkPC'
-	KILLVAR 'pregTalkStarlets'
-	KILLVAR 'pregTalkvball'
-	KILLVAR 'pregTalkTrack'
-	killvar 'pregtalkStarlets'
-	killvar 'pregtalkvball'
-	killvar 'pregtime'
-	killvar 'knowpreg'
-	killvar 'denypreg'
-	killvar '$wombthfath'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Arousal
-!!------------------------------------------------------------------------------------------------------------
-
-if magikDostup = 0:
-	if pcs_horny < 100:pcs_horny += pcs_vag
-else
-	if pcs_vag = 0:
-		razeba = 0
-
-		if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
-		if pcs_horny > 50:pcs_horny -= 25
-	elseif pcs_vag > 0:
-		if pregtimes = 0:
-			if age < 18:
-				razeba = 1
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
-				if pcs_horny >= 80:pcs_horny -= 20
-			elseif age >= 18 and age < 21:
-				razeba = 2
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
-				if pcs_horny >= 80:pcs_horny -= 10
-			elseif age >= 21 and age < 25:
-				razeba = 3
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
-				if pcs_horny >= 80:pcs_horny -= 5
-			elseif age >= 25 and age < 30:
-				razeba = 4
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
-				if pcs_horny >= 80:pcs_horny -= 5
-			elseif age >= 30:
-				razeba = 5
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
-				if pcs_horny >= 80:pcs_horny += 1
-			end
-		elseif pregtimes > 0:
-			if preg = 0:
-				razeba = 5
-
-				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
-				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
-				if pcs_horny >= 80:pcs_horny += 1
-			elseif preg > 0:
-				razeba = 6
-
-				if pcs_horny < 100:pcs_horny += pregtime / 10
-			end
-		end
-	end
-end
-
-if pcs_horny < 0:pcs_horny = 0
-
-!!------------------------------------------------------------------------------------------------------------
-
-!!Exhibitionism
-
-if exhibition_outdoors > 0:
-	if pcs_inhib > 90:
-		exhibition_outdoors = exhibition_outdoors * 3
-	elseif pcs_inhib > 75:
-		exhibition_outdoors = exhibition_outdoors * 5 / 2
-	elseif pcs_inhib > 60:
-		exhibition_outdoors = exhibition_outdoors * 2
-	elseif pcs_inhib > 30:
-		exhibition_outdoors = exhibition_outdoors * 3 / 2
-	end
-
-	if exhibition_outdoors <= 5:
-		inhib_exp += rand(3,6)
-	elseif exhibition_outdoors <= 10:
-		inhib_exp += rand(5,9)
-	elseif exhibition_outdoors <= 15:
-		inhib_exp += rand(7,12)
-	elseif exhibition_outdoors <= 20:
-		inhib_exp += rand(9,15)
-	elseif exhibition_outdoors <= 25:
-		inhib_exp += rand(12,20)
-	elseif exhibition_outdoors <= 30:
-		inhib_exp += rand(16,25)
-	elseif exhibition_outdoors <= 35:
-		inhib_exp += rand(20,30)
-	elseif exhibition_outdoors <= 40:
-		inhib_exp += rand(25,40)
-	elseif exhibition_outdoors <= 50:
-		inhib_exp += rand(35,50)
-	elseif exhibition_outdoors <= 65:
-		inhib_exp += rand(50,75)
-	else
-		inhib_exp += rand(70,100)
-	end
-end
-
-exhibition_outdoors = 0
-
-!counter for Dimka avoidance
-if dimaFilm = 1 and dimaRudeBlock = 0:
-	nodimkaK += 1
-	DimkaWarnedToday = 0
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-!!Fame degradation
-gs 'fame', 'deg'
-
-!!Traits
-gs 'traits', 'overnight'
-
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Maruda hair mod
-!!------------------------------------------------------------------------------------------------------------
-!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
-!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
-if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
-
-if pcs_haircol ! nathcol:
-	dyefade -=1
-	if dyefade < 0: dyefade = 0
-	if dyefade > 0 and dyefade < 7: dyevmod = 5
-	if dyefade = 0: dyevmod = 15
-end
-
-if hscrunch > 0:
-	hscrunchrand = rand(1, 100)
-
-	if hscrunchrand <= 8:hscrunch -= 1
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-!! Clothing wear and tear
-gs 'starenie'
-
-if nark > 60:
-	nark = 60
-elseif nark > 30:
-	nark -= 3
-elseif nark > 0:
-	nark -= 1
-end
-
-if pregtime > 10:fat += 1
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Pain
-!!------------------------------------------------------------------------------------------------------------
-
-if pain['head'] > 0:pain['head'] -= rand(1,3)
-if pain['hair'] > 0:pain['hair'] -= rand(1,3)
-if pain['ears'] > 0:pain['ears'] -= rand(1,3)
-if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
-if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
-if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
-if pain['nose'] > 0:pain['nose'] -= rand(1,3)
-if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
-if pain['lips'] > 0:pain['lips'] -= rand(1,3)
-if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
-if pain['throat'] > 0:pain['throat'] -= rand(1,3)
-if pain['neck'] > 0:pain['neck'] -= rand(1,3)
-if pain['back'] > 0:pain['back'] -= rand(1,3)
-if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
-if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
-if pain['hips'] > 0:pain['hips'] -= rand(1,3)
-if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
-if pain['legL'] > 0:pain['legL'] -= rand(1,3)
-if pain['legR'] > 0:pain['legR'] -= rand(1,3)
-if pain['feet'] > 0:pain['feet'] -= rand(1,3)
-if pain['toes'] > 0:pain['toes'] -= rand(1,3)
-if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
-if pain['armL'] > 0:pain['armL'] -= rand(1,3)
-if pain['armR'] > 0:pain['armR'] -= rand(1,3)
-if pain['hands'] > 0:pain['hands'] -= rand(1,3)
-if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
-if pain['chest'] > 0:pain['chest'] -= rand(1,3)
-if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
-if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
-if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
-if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
-if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
-if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
-if pain['labia'] > 0:pain['labia'] -= rand(1,3)
-if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
-if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
-if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
-
-if painpub = 2:
-	if painpubday + 5 < daystart:
-		$painpub = 'Your vulva is painfully sore.'
-		painpub = 1
-		painpubday = daystart
-	elseif painpubday + 5 >= daystart:
-		$painpub = 'Your vulva is painfully sore.'
-	end
-elseif painpub = 1:
-	if painpubday + 5 < daystart:
-		$painpub = ''
-		painpub = 0
-		painpubday = daystart
-	elseif painpubday + 5 >= daystart:
-		$painpub = 'Your vulva is a little sore.'
-	end
-end
-
-!!---- Calculation of lash extension degradation and false lash removal
-if pcs_lashes > 2:
-	if lashextensionstyle >= 1:
-		lashextensionduration -= 1
-		if lashextensionduration >= 1 and lashextensionduration <= 4:
-			'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
-		end
-		if lashextensionduration <= 0:
-			'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
-			pcs_lashes = pcs_naturallashes
-			killvar 'lashextensionstyle'
-			killvar 'lashextensionduration'
-			killvar 'lashextensionnew'
-		end
-	end
-	if false_lashes > 0:
-		false_lashes -= 1
-		if false_lashes = 0:
-			'Your false lashes came off in the night; there''s no recovering them now.'
-			pcs_lashes = pcs_naturallashes
-		else
-			'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
-		end
-	end
-end
-
-
-prezikProver += 1
-if pirs_pain_ton > 0:pirs_pain_ton -= 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 npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
-
-!!Counter for dimka/igor date
-if igor_DimaNos = 2 or igor_DimaNos = 3: $igor_DimaNos_day += 1
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Generation
-!!------------------------------------------------------------------------------------------------------------
-if NPCnum < 290:
-	NPCnow = NPCnum
-	NPCnum += rand(1, 3)
-	gs 'npc'
-elseif NPCnum < 300:
-	NPCnow = NPCnum
-	NPCnum += 1
-	gs 'npc'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-if kanikuli = 0:pcs_grades -= 1
-dmishaevent = 0
-
-if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
-if GspravkaT = 1:Gspravka -= 1
-if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
-if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
-
-gs 'stat_sklattrib', 'daycall'
-
-if dounspell = 1:
-	if strenbuf > 90:
-		strenbuf -= 2
-	elseif strenbuf > 80:
-		strenbuf -= 1
-	end
-
-	if vitalbuf > 90:
-		vitalbuf -= 2
-	elseif vitalbuf > 80:
-		vitalbuf -= 1
-	end
-
-	if strenbuf > pcs_stren: strenbuf -= 1
-	if strenbuf < pcs_stren: strenbuf += 1
-	if vitalbuf > pcs_vital: vitalbuf -= 1
-	if vitalbuf < pcs_vital: vitalbuf += 1
-	if agilbuf > pcs_agil: agilbuf -= 1
-	if agilbuf < pcs_agil: agilbuf += 1
-else
-	gs 'body_shape'
-end
-
-
-if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
-
-!!Pussy_Kats job settings
-inWorkYoungShop = 0
-if week = 1 and young_shop_work = 100: young_shop_work = 1
-if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
-if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
-
-husbandsexday = 0
-borsexkol = 0
-givisexday = 0
-
-if shantsr > 0:
-	pay = shantsr * 5000
-	karta += pay
-	shantsr = 0
-end
-
-if shantbog > 0:
-	:shantftb
-	shantftbgrand = rand(0, 10)
-	if shantftbgrand > 2:
-		shantpopala += 1
-		shantbog -= 1
-		if shantbog > 0:jump 'shantftb'
-	elseif shantftbgrand <= 2:
-		karta += 30000
-		shantbog -= 1
-		if shantbog > 0:jump 'shantftb'
-	end
-end
-
-petersexday = 0
-klismaday1 = 0
-
-!! Resetting relationships that go over the max
-
-:toptemprel
-if temprel < 250:
-	temprel +=1
-	if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
-	jump 'toptemprel'
-end
-killvar 'temprel'
-!!------------------------------------------------------------------------------------------------------------
-!!	Banking
-!!------------------------------------------------------------------------------------------------------------
-
-!!MJ: Add some (daily) interest to the bank account.
-!!Not very realistic but won''t make anyone too rich.
-
-if bankAccount = 1:
-	kartatotal = karta
-	:kartaloop
-	if kartatotal > 20000000:
-		kartacount += 1
-		largekarta[kartacount] = 20000000
-		kartatotal -= 20000000
-		jump 'kartaloop'
-	else
-		largekarta[0] = kartatotal
-	end
-	if karta >= 2000000:
-		!! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
-		intrate = 60
-	elseif karta >= 0:
-		!! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
-		intrate = 30
-	else
-		!! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
-		intrate = 550
-	end
-	:intloop
-	if kartacount > 0:
-		smallmoneypos += (largekarta[kartacount] * intrate)
-		if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
-		largekarta[kartacount] = 0
-		kartacount -= 1
-		jump 'intloop'
-	else
-		smallmoneypos += (largekarta[0] * intrate)
-		largekarta[0] = 0
-		if kartacount ! 0: kartacount = 0
-	end
-
-	if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
-		karta += smallmoneypos / 1000000
-		smallmoneypos = smallmoneypos mod 1000000
-	end
-
-	if atmDeposit > 0 and atmDepositDate <= daystart:
-		karta += atmDeposit
-		atmDeposit = 0
-	end
-end
-
-!!------------------------------------------------------------------------------------------------------------
-!!	Payments
-!!------------------------------------------------------------------------------------------------------------
-
-if day = 25:
-	!! meynold payment
-	if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
-		money += 5000
-		'<b><font color=green>For your efforts aunt Tamara gave you 5,000 rubles</font></b>'
-		mey_tamara_help_count = 0
-	end
-
-	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
-		Pay = PersSecWorkTimes * 1250
-		PersSecWorkTimes = 0
-		karta += Pay
-		paydaybistrosec = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
-	end
-
-	if workKafe = 1 and paydayKafe = 0:
-		paydayKafe = 1
-		pay = smenaKafe * 600
-		karta += pay
-		smenaKafe = 0
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
-	end
-
-	if workhosp = 1 and nopaypoly = 0:
-		pay = smena * 1000
-		karta += pay
-		smena = 0
-		nopaypoly = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
-	end
-
-	if worksalon = 1 and nopaysalon = 0:
-		pay = smenaSalon * 1560
-		karta += pay
-		smenaSalon = 0
-		nopaysalon = 1
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
-	end
-
-	if tanwork = 1 and nopaytanwork = 0:
-		nopaytanwork = 1
-		karta += 10000
-		'<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
-	end
-
-	if workSec = 1 and paydaySec = 0:
-		paydaySec = 1
-		pay = sekDay * 800
-
-		if officebestslut >= 3:pay += 10000
-		karta += pay
-		sekDay = 0
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
-	end
-
-	if workFabrika = 1:
-		pay = smenaFabrika * 420
-		smenaFabrika = 0
-		karta += pay
-		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
-	end
-
-	if husband > 0 and paydayHusb = 0:
-		paydayHusb = 1
-
-		if husbFin = 0:huspay = 20000
-		if husbFin = 1:huspay = 30000
-		if husbFin = 2:huspay = 40000
-
-		karta += huspay
-		'<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
-	end
-
-	if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
-
-	if haday = 0:
-		gs 'housing', 'rent'
-		! Rent for the city apartment
-		if home_owned[1] = 1:
-			if ArendHouseSL < 31:
-				!From bank
-				if bankAccount = 1 and karta >= home_rent[1]:
-					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
-					haday = 1
-					karta -= home_rent[1]
-					ArendHouseSL += ArendHouseSL_due
-				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
-					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
-					haday = 1
-					karta -= home_rent[1]
-					ArendHouseSL += ArendHouseSL_due
-				elseif bankAccount = 0:
-					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
-				else
-					nl
-					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
-				end
-			elseif home_owned[1] = 1 and ArendHouseSL >= 31:
-				'<b><font color="yellow">Your rent for your city apartment is already paid in full for this month.</font></b>'
-				haday = 1
-			end
-		end
-
-		! Rent for the Pushkin apartment
-		if home_owned[4] > 0:
-			if ArendHouseSL4 < 31:
-				!From bank
-				if bankAccount = 1 and karta >= home_rent[4] and ArendHouseSL4 <= 30:
-					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
-					haday = 1
-					karta -= home_rent[4]
-					ArendHouseSL4 += ArendHouseSL4_due
-				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4] and ArendHouseSL4 <= 30:
-					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
-					haday = 1
-					karta -= home_rent[4]
-					ArendHouseSL4 += ArendHouseSL4_due
-				elseif bankAccount = 0 and ArendHouseSL4 <= 30:
-					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
-				else
-					nl
-					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
-				end
-			elseif home_owned[4] > 0 and ArendHouseSL4 >= 31:
-				'<b><font color="yellow">Your rent for your Pushkin apartment is already paid in full this month.</font></b>'
-				haday = 1
-			end
-		end
-	end
-
-	! Utilities for all apartments.
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
-		gs 'housing', 'util'
-		if bankAccount = 1 and karta >= elektro:
-			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				karta -= elektro * hcount_util
-			end
-		elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
-			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				karta -= elektro * hcount_util
-			end
-		elseif bankAccount = 0 and money >= elektro:
-			'<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
-			electroday = 1
-			if elektro >= 2000:
-				elektro = 2000 + rand(0, 100)
-				money -= elektro * hcount_util
-			end
-		else
-			'<b><font color="red">You''re card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
-		end
-	end
-
-	! Cable for all apartments
-	if kabel > 0 and kabelday = 0:
-		gs 'housing', 'cable'
-		if bankAccount = 1 and karta >= (300 * hcount_cable):
-			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
-			kabelday = 1
-			karta -= 300 * hcount_cable
-			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
-		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
-			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
-			kabelday = 1
-			karta -= 300 * hcount_cable
-		elseif bankAccount = 0 and money >= (300 * hcount_cable):
-			'<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
-			kabelday = 1
-			money -= 300 * hcount_cable
-		else
-			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
-		end
-	end
-end
-
-if day ! 25:
-	if paydayHusb = 1:paydayHusb = 0
-	if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
-	if workSec = 1 and paydaySec = 1:paydaySec = 0
-	if (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
-	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
-	if stipuhaday = 1: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 home_owned[1] = 0:
-	home_owned[1] = 2
-	'<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
-	!msg 'Your tenants have moved out and your apartment is now vacant.'
-end
-
-!!------------------------------------------------------------------------------------------------------------
-
-killvar 'holyday'
-killvar 'kanikuli'
-
-!!sisboyparty
-!!-1 - don''t go to the party
-!!0 - don''t know about parties
-!!1 - knows about the parties
-!!2 - agreed to go to the party
-!!3 - Missed the party
-
-if storyline = 1:
-!!Party refresh if you didn''t see sis
-	if week = 1 and sisboyparty ! 2:
-		if sisboyparty = -1: sisboyparty = 1
-
-		if sisboypartyQW >= 2 and sisboyparty > 0:
-			sisboyparty_day = daystart + rand(3,5)
-		end
-	end
-
-	if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
-
-!!missed graduation
-	if month = 5 and day = 26:
-		if school_year = 2001 and year = 2018 and kanikuli ! 7:
-			grad_miss = daystart + 1
-		elseif school_year = 2000 and year = 2017 and kanikuli ! 7:
-			grad_miss = daystart + 1
-		end
-	end
-
-	if SchoolAtestat = 0:
-		if month = 12 and day > 25:
-			if day < 31:
-				$holyday = '<b>Winter Break in <<32-day>> days.</b>'
-			else
-				$holyday = '<b>Winter Break starts tomorrow.</b>'
-			end
-		elseif month = 1 and day <= 15:
-			kanikuli = 2
-			if day < 13:
-				$holyday = '<b>Winter Break.</b>'
-			elseif day < 15:
-				$holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
-			else
-				$holyday = '<b>Last day of Winter Break.</b>'
-			end
-		elseif month = 3 and day > 13:
-			if day < 19:
-				$holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
-			elseif day = 19:
-				$holyday = '<b>Spring Break starts tomorrow.</b>'
-			elseif day >= 20 and day <= 26:
-				kanikuli = 3
-				if day < 24:
-					$holyday = '<b>Spring Break.</b>'
-				elseif day < 26:
-					$holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
-				else
-					$holyday = '<b>Last day of Spring Break.</b>'
-				end
-			end
-		elseif month = 5:
-			if ( (school_year = 2000 and year = 2017) or (school_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
-				if day = 25:
-					kanikuli = 6
-					$holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
-				elseif day = 24:
-					$holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
-				else
-					$holyday = '<b>Your graduation is in <<26-day>> days.</b>'
-				end
-			elseif day >= 25:
-				if day = 31:
-					$holyday = '<b>Summer Break starts tomorrow.</b>'
-				else
-					$holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
-				end
-			end
-		elseif month = 6 or month = 7 or month = 8:
-			kanikuli = 4
-			if month = 8 and day >= 25:
-				if day = 31:
-					$holyday = '<b>Last day of Summer Break.</b>'
-				else
-					$holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
-				end
-			else
-				$holyday = '<b>Summer Break.</b>'
-			end
-		elseif month = 10 and day >= 29:
-			$holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
-		elseif month = 11:
-			if day < 3:
-				$holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
-			elseif day = 3:
-				$holyday = '<b>Autumn Break starts tomorrow.</b>'
-			elseif day < 6:
-				kanikuli = 1
-				$holyday = '<b>Autumn Break.</b>'
-			elseif day < 11:
-				kanikuli = 1
-				$holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
-			elseif day = 11:
-				kanikuli = 1
-				$holyday = '<b>Last day of Autumn Break.</b>'
-			end
-		end
-	end
-	!!Brother''s dick growth as he gets older
-	kolka_dick_month = daystart/30
-	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
-	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
-		$npc_thdick['A34'] = 'well proportioned'
-	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
-		$npc_thdick['A34'] = 'thick'
-	end
-end
-
-killvar 'natholi'
-if month = 1 and day >= 1 and day <= 8:
-	$natholi = 'New Year holidays'
-	natholi = 1
-	if day = 1:$natholi += ', New Year'
-	if day = 7:$natholi += ', Christmas'
-end
-if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
-if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
-if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
-if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
-if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
-if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
-if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
-if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
-if natholi = 1:
-	if $holyday ! '': $holyday += '<br>'
-	$holiday += $natholi
-end
-
-if bcream_used >= 1:
-    bcream_used = 0
-    temp = rand(0,5)
-    nbsize += temp
-    if temp > 0:'Feels like your breasts have grown slightly.'
-end
-if steroid_dose >= 1:
-    if lashair < 1:
-        pcs_pubes += steroid_dose
-        pcs_leghair += steroid_dose
-    end
-    steroid_dose = 0
-end
-if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
-if aphrodisiac_timer ! 0:aphrodisiac_timer  = 0
-
-if mentats_dose = 1:
-    mentats_dose = 0
-elseif mentats_dose > 1:
-    pain['head'] += 20 * mentats_dose
-    mentats_dose = 0
-end
-if breastpumped = 0 and breastcount > 0: breastcount -= 1
-if breastpumped = 1: breastpumped = 0
-
-!!Appearance base calculation call
-gs 'body_shape', 'basebeautycalc'
-
-!! vovan, from 1.2.5
-hanters_check = 0
-mushroom_pickers = 0
-horse_river = 0
-haying_time = 0
-mira_go_river = 0
-forestpicnic = 0
-if Mira_no > 0: Mira_no -= 1
-if Mira_no < 0: Mira_no = 0
-if catout ! 0: catout = 0
-if feedcat ! 0: feedcat = 0
-
-loc_count = ARRSIZE('$CloLosLoc')
-i = loc_count - 1
-:loopCloLoc
-	$CloLoc = $CloLosLoc[i]
-	CloLostOn = CloLosDay[$CloLoc]
-	if CloLostOn + RAND(7,14) < daystart :
-		gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
-	end
-	i -=1
-if i > -1 :jump 'loopCloLoc'
-
---- cikl ---------------------------------
-
+# cikl
+
+!!----------------------------------------------------------------------------
+!! Time calculations
+
+day += 1
+week += 1
+hour -= 24
+
+if day > monthsEnd[month]:
+	day -= monthsEnd[month]
+	month += 1
+
+	if month > 12: month = 1 & year += 1
+
+	!!MJ: Dont think that one is needed. But it was in the original loop.
+	if month < 1: month = 1
+
+	$month = $monthName[month]
+
+	!! new years party calculation
+	temp = func('shortgs','dow',year,12,31)
+	if temp < 6:
+		nyp_day = 31
+	elseif temp = 6:
+		nyp_day = 30
+	else
+		nyp_day = 29
+	end
+
+end
+
+!!MJ: Dont think that one is needed. But it was here already.
+if day <= 0:day = 1
+
+if week > 7:
+	:loopweek
+	week -= 7
+	husbandrink = 0
+
+	if military = 1:military = 0
+
+	if week > 7:jump 'loopweek'
+end
+
+!!----------------------------------------------------------------------------
+
+!!Fame call to update all the fame variables
+gs 'fame'
+
+!!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
+if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
+	if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
+	gs 'pornschedule', 'schedule'
+end
+
+!!modelling job check
+if model_week ! (daystart - week) / 7:model_job_week = 0
+
+!!acting strings to set available jobs
+if casting = 1:
+	acting_string1 = rand(10000000000,199999999999)
+	acting_string2 = rand(10000000000,199999999999)
+end
+
+gs 'daystart'
+dynamic $hypnoDaychange
+
+!!phone reset for bf
+ringA = 0
+ringB = 0
+ringC = 0
+
+if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
+if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
+
+if home_owned[1] = 1: ArendHouseSL -= 1
+if home_owned[4] > 0: ArendHouseSL4 -= 1
+
+!!Appearance Age
+vidageday -= 1
+if vidageday <= 0:
+	vidageday = 360
+	vidage += 1
+end
+!!Birthday
+age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
+if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
+
+if workDolgDay > 0: workDolgDay -= 1
+if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
+if husband > 0: husbanday += 1
+if husband > 10 and husbanday > 0: husband -= 15
+if fingal > 0: fingal -= 1
+
+if husbandMark = 1 and husband <= 10:
+	husbizvradd = 0
+	husbharmin = 0
+	husbandMark = 0
+	husband = 0
+	divorced += 1
+
+	if KFOnLineReaga > 0:KFOnLineReaga -= 1
+
+	'<b><font color="red">Your husband has filed for a divorce.</font></b>'
+end
+
+if katjaPreg = 0 and month >= 2:
+	if school_year = 2001 and year > 2016:
+		katjaPreg = 1
+	elseif school_year = 2000 and year > 2017:
+		katjaPreg = 1
+	end
+end
+
+!! after having surgery you will be in recuperation for a few days
+
+if surgeryday ! '':
+	if daystart - 7 <= surgeryday:
+		dailyhealthimprov = (daystart - surgeryday) * 50
+		pcs_health = dailyhealthimprov
+		recuperation = 1
+	else
+		killvar 'recuperation'
+		killvar 'dailyhealthimprov'
+	end
+end
+
+!!Street events daily reset
+streetevent_hour = -2
+
+!!Clothing stock and price randomizers
+Clothingstock = rand (0,23)
+i = 1
+:loopprice
+Clothingstock[i] = rand (0,500)
+i += 1
+if i <= 147:jump 'loopprice'
+
+if coatH[defaultcoat] <= 0: defaultcoat = 0
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Bimbo
+!!------------------------------------------------------------------------------------------------------------
+
+!!Bonus from clothing and shoes
+if succubusflag = 0 and $cheatBimbo ! '<b>ON</b>':
+	if bimbocl = 1:
+		bimbocl = 0
+		bimbo += 2
+	end
+	if bimbosh = 1:
+		bimbosh = 0
+		bimbo += 1
+	end
+else
+	bimbocl = 0
+end
+
+!!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
+if bimbo > 0 or bimbolevel > 0:
+    if bimbo < 10:
+        bimbo -= 1
+    elseif bimbo < 20:
+    	bimbolevel = 1
+    elseif bimbo < 30:
+    	bimbolevel = 2
+    else
+        bimbolevel = 3
+    end
+end
+
+if bimbo >= 40: bimbo = 40
+
+!!Bimbo levels. They use custom variables so they won''t permanently change character stats
+if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
+if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
+if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
+if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
+
+!!A Succubus cannot be a Bimbo
+if succubusflag = 1:
+	if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
+elseif bimbolevel >= 1:
+!!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
+	bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
+	if bimbo > snapshotY:
+		bimbowithdrawal = 0
+	else
+		bimbowithdrawal += 1
+	end
+end
+
+if bimbo < 0: bimbo = 0
+snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
+snapshotY = bimbo
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Exhibitionism
+!!------------------------------------------------------------------------------------------------------------
+
+if pcs_exhib > 0 or exhibitionist_lvl > 0:
+    if pcs_exhib < 10:
+        pcs_exhib -= 1
+    elseif pcs_exhib < 20:
+    	exhibitionist_lvl = 1
+    elseif pcs_exhib < 30:
+    	exhibitionist_lvl = 2
+    else
+        exhibitionist_lvl = 3
+    end
+end
+
+!!Inhibition increases from wearing revealing clothing
+
+if exhibition_outdoors > 0:
+	if pcs_inhib > 90:
+		exhibition_outdoors = exhibition_outdoors * 3
+	elseif pcs_inhib > 75:
+		exhibition_outdoors = exhibition_outdoors * 5 / 2
+	elseif pcs_inhib > 60:
+		exhibition_outdoors = exhibition_outdoors * 2
+	elseif pcs_inhib > 30:
+		exhibition_outdoors = exhibition_outdoors * 3 / 2
+	end
+
+	if exhibition_outdoors <= 5:
+		inhib_exp += rand(3,6)
+	elseif exhibition_outdoors <= 10:
+		inhib_exp += rand(5,9)
+	elseif exhibition_outdoors <= 15:
+		inhib_exp += rand(7,12)
+	elseif exhibition_outdoors <= 20:
+		inhib_exp += rand(9,15)
+	elseif exhibition_outdoors <= 25:
+		inhib_exp += rand(12,20)
+	elseif exhibition_outdoors <= 30:
+		inhib_exp += rand(16,25)
+	elseif exhibition_outdoors <= 35:
+		inhib_exp += rand(20,30)
+	elseif exhibition_outdoors <= 40:
+		inhib_exp += rand(25,40)
+	elseif exhibition_outdoors <= 50:
+		inhib_exp += rand(35,50)
+	elseif exhibition_outdoors <= 65:
+		inhib_exp += rand(50,75)
+	else
+		inhib_exp += rand(70,100)
+	end
+end
+
+exhibition_outdoors = 0
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Succubus
+!!------------------------------------------------------------------------------------------------------------
+
+!!Succubus Level & hunger calcs
+if succubusflag = 1:
+
+	cheatHealth = 1
+	dynamic $cheatmenu['std_cure']
+
+!!	Hunger handling
+	if sucxpsnapshot >= succubxp: succhungry += 1
+	sucxpsnapshot = succubxp
+	if succubxp < 0: succubxp = 0
+
+!!	Level handling
+	if succubxp < 60:
+		succublvl = 1
+		$sucself1 = 'that feeling'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 1
+	elseif succubxp < 150:
+		succublvl = 2
+		$sucself1 = 'the power'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 3
+	elseif succubxp < 270:
+		succublvl = 3
+		$sucself1 = 'your other self'
+		sucstorecap = 100
+		if bimbolevel <= 0: supnatvnesh = 6
+	else
+		succublvl = 4
+		$sucself1 = 'your true self'
+		sucstorecap = 200
+		if bimbolevel <= 0: supnatvnesh = 10
+	end
+
+	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
+	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
+
+	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
+	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
+	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
+	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
+	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
+	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
+	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
+	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
+
+	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
+		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
+		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
+		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
+		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
+		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
+		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
+		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
+		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
+		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
+		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
+!!		This is to drive the Succubus vidage into the max appearance range
+		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
+		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
+		if vidageday >= 720 and vidage > 28:
+			vidageday -= 360
+			vidage -= 1
+		end
+		if sucexcess > sucstorecap: sucexcess = sucstorecap
+	elseif sucexcess < 0 and succhungry < 0:
+		succhungry += 1
+		if (0 - sucexcess) < (10 * succublvl):
+			sucexcess = 0
+		else
+			sucexcess += (10 * succublvl)
+		end
+	end
+	if sucexcess < 0: sucpowzeroed += 1
+	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
+
+!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
+	if sucskill >= 4:
+		if pcs_vag - 2 >= 13:
+			pcs_vag -= 2
+		elseif pcs_vag + 2 <= 13:
+			pcs_vag += 2
+		end
+		if pcs_ass - 2 >= 8:
+			pcs_ass -= 2
+		elseif pcs_ass + 2 <= 8:
+			pcs_ass += 2
+		end
+	end
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+if defcurly = 0 and curly > 0:curly -= 1
+if defcurly = 1:
+	if straight > 0: straight -= 1
+	if straight = 0: curly = 2147483647
+end
+
+! WD: Added daily reduction of braids for Maruda Hair Mod
+if hbraids > 0: hbraids -= 1
+
+
+pcs_sweat += 2
+
+if pcs_tan > 0: pcs_tan -= 1
+
+if prezikmsg = 2: prezikmsg = 3
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Birth control
+!!------------------------------------------------------------------------------------------------------------
+!!	Birth Control Management variables
+!!
+!!	tabletkimm		: The modifier for the current mood of the MC.
+!!	tabletkiap		: Autopill factor affecting the liklihood you took your pill as you should have
+!!	tabletkipt		: Pill Dicipline Take increase
+!!	tabletkipi		: Pill Dicipline Dont take increase
+!!	tabletkicpd		: Current MC Pill Dicipline
+!!	tabletkichday	: Current day that the Birth Control is being evaluated for
+!!	tabletkicheck	: If the birth control is automatically handled
+!!	tabletki		: How many packages of Birth Control Pills there are
+!!	tabletkiold		: Total number packages of expired pills
+!!	tabletkifake	: Total number packages of fake/counterfeit pills
+!!	tabletkirej		: Total number packages of factory rejected pills
+!!	tabletkifert	: Total number packages of subsituted fertility pills
+!!	tabletkisug		: Total number packages of sugar pills
+!!	pillsleft		: Total number packages of pills in current package
+!!	tabletkishot	: The flag for being on the Birth Control shot.
+!!	pillcon			: The number for the current birth control chemical level.
+!!	pilldays		: The number of consecutive days (you believe) you have taken your pill
+
+if Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
+placebopart -= 1
+
+if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
+if pillcon < 0:	pillcon = 0
+if pillcon2 < 0: pillcon2 = 0
+
+if tabletkicheck = 2:
+	if tabletkishot ! 0:
+		!!cycle = 1
+		mesec = 0
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH = EggRH
+	end
+	if tabletkishot <= 0:
+		pillcon -= 29000
+		pillcon2 -= 29000
+		if tabletkishot < 0: tabletkishot = 0
+	end
+	if shotdays = -8:
+		tabletkicheck = 0
+		shotdue = 0
+		'Your birth control shot is no longer protecting you.'
+	elseif shotdays <= 0:
+		if shotdays = 0:
+			shotdue = 7
+		else
+			shotdue -= 1
+		end
+		'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
+	elseif shotdays > 1 and shotdays < 5:
+		'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
+	elseif shotdays = 1:
+		'Your birth control shot is due for renewal tomorrow.'
+	end
+
+	if shotdays > -100:shotdays -=1
+	if tabletkishot > 0:tabletkishot -= 1
+end
+
+tabletkipd += tabletkipi
+tabletkipi = 0
+tabletkipt = 0
+if tabletkicheck = 1:
+	if tabletki = 0 and pillsleft[ptype] = 0:
+		tabletkicheck = 0
+		'You are out of birth control pills.'
+		tabletkipi = -5
+	elseif tabletki = 0 and pillsleft[ptype] = 28:
+		'You have just opened your last package of birth control pills. You need to buy more.'
+	elseif tabletki = 0 and pillsleft[ptype] <= 5:
+		'You are running out of birth control pills, you only have a few left.'
+	end
+end
+
+if tabletkicheck = 1 and tabletkichday < daystart:
+	tabletkichday = daystart
+	tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
+	if pcs_sleep < 10:
+		tabletkimm -= (100- (pcs_sleep * 10))
+	end
+	if pcs_willpwr < willpowermax / 4:
+		tabletkimm = tabletkimm / 4
+	elseif pcs_mood < 10:
+		tabletkimm = tabletkimm / 2
+	end
+	tabletkiap = tabletkimm
+	tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
+	tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
+	temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
+	tabletkiap += temprand
+	if tabletkiap < 300:
+		if tabletkipd > -10:
+			if pcs_willpwr < willpowermax / 4:
+				pilldaychk = 0
+				'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
+			elseif pcs_mood < 10:
+				pilldaychk = 0
+				'You stare at your package of birth control pills, but you don''t open it.'
+			elseif pcs_sleep < 10:
+				pilldaychk = 0
+				'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
+			else
+				pilldaychk = 0
+				'You just realized you forgot to take your birth control pill today.'
+			end
+		end
+		tabletkipt = 2
+		tabletkipi = -4
+	else
+		if tabletkiap < 350:
+			temprand = rand(0,5)
+		else
+			temprand = rand(0,1000)
+		end
+		if temprand = 0:
+			temprand = rand(0,1)
+			if temprand = 0:
+				gs 'din_bad','takepill'
+				tabletkipt = -2
+				tabletkipi = 1
+			else
+				tabletkipt = 3
+				tabletkipi = -3
+			end
+
+			if tabletkipd > -10:
+				pilldaychk = 0
+				'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
+			end
+			if tabletkipd > 0:
+				if rand(0,9) = 0:
+					if tabletkipt < 0:
+						pilldaychk = 0
+						'You don''t think you have taken your pill today.'
+					else
+						pilldaychk = 1
+						'You think you have taken your pill today.'
+					end
+				else
+					if tabletkipt > 0:
+						pilldaychk = 0
+						'You don''t think you have taken your pill today.'
+					else
+						pilldaychk = 1
+						'You think you have taken your pill today.'
+					end
+				end
+			end
+		else
+			'You take your birth control pill for the day.'
+			pilldaychk = 1
+			gs 'din_bad','takepill'
+			if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
+			tabletkiday = daystart
+			tabletkipt = 0
+			tabletkipi = 0
+		end
+	end
+elseif tabletkicheck = 0:
+	if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
+	if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
+end
+
+if pilldaychk = 1:
+	pilldays += 1
+else
+	pilldays -= 1
+end
+
+pilldaychk = 0
+if pilldays > 18: pilldays = 18
+if pilldays < 0: pilldays = 0
+!!
+$MenCal[] = $str(cycle)
+if ArrSize('$MenCal') = 60: killvar '$MenCal',0
+
+
+!!------------------------------------------------------------------------------------------------------------
+
+if lashair ! 1:
+	pcs_leghair += 1
+	pcs_pubes += 1
+end
+
+if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
+
+if pcs_breath = 1:pcs_breath = 0
+
+if cheatNoEat = 1 and dounspell = 1:fat += 15
+
+!!STD check
+if SifacOnce = 1:Sifilis += 1
+if GerpesOnce = 1:Gerpes += 1
+if TriperOnce = 1:
+	if Triper > 0:
+		Triper += 1
+	end
+	if TriperOral > 0:
+		TriperOral += 1
+	end
+	If TriperOral > 14 and TriperNapr = 0:
+		if rand(TriperOral,100) > 80:
+		TriperOral = 0
+		if Triper = 0:TriperOnce = 0
+		TriperOralSigns = 0
+		end
+	end
+end
+if KandidozOnce = 1:Kandidoz += 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 pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
+	if anusK < 0:anusK = 0
+	if anusK < ashrinkdays:anusK += 1
+	if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
+	if pcs_ass < 0: pcs_ass = 0
+end
+if pcs_vag > 10 and vshrink > 0:
+	if vaginaK < 0:vaginaK = 0
+	if vaginaK < vshrinkdays:vaginaK += 1
+	if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
+end
+
+lipkoef -= rand(0,1)
+if lipkoef <= 0: lipkoef = 0
+
+if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
+if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
+
+if preg = 1:
+	pregtime = pregchem / 24
+
+	if pregtimes = 0:pregtimes = 1
+
+elseif preg = 2 and pregminut < totminut:
+	if Enable_nogameover = 0 :
+		cla
+		*clr
+		over = 4
+		MSG '<center><b>A horrible pain shoots through your body.</b></center>'
+		xgt 'gameover'
+		exit
+	else
+		MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
+		pregminut = totminut + 1440
+	end
+elseif preg = 0:
+	KILLVAR 'pregTalkBrother'
+	KILLVAR 'pregTalkSister'
+	KILLVAR 'pregTalkFather'
+	!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
+	KILLVAR 'pregTalkMom'
+	KILLVAR 'pregTalk'
+	KILLVAR 'pregTalkNat'
+	KILLVAR 'pregTalkKatja'
+	KILLVAR 'pregTalkAlbina'
+	KILLVAR 'pregTalkPC'
+	KILLVAR 'pregTalkStarlets'
+	KILLVAR 'pregTalkvball'
+	KILLVAR 'pregTalkTrack'
+	killvar 'pregtalkStarlets'
+	killvar 'pregtalkvball'
+	killvar 'pregtime'
+	killvar 'knowpreg'
+	killvar 'denypreg'
+	killvar '$wombthfath'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Arousal
+!!------------------------------------------------------------------------------------------------------------
+
+if magikDostup = 0:
+	if pcs_horny < 100:pcs_horny += pcs_vag
+else
+	if pcs_vag = 0:
+		razeba = 0
+
+		if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
+		if pcs_horny > 50:pcs_horny -= 25
+	elseif pcs_vag > 0:
+		if pregtimes = 0:
+			if age < 18:
+				razeba = 1
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
+				if pcs_horny >= 80:pcs_horny -= 20
+			elseif age >= 18 and age < 21:
+				razeba = 2
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
+				if pcs_horny >= 80:pcs_horny -= 10
+			elseif age >= 21 and age < 25:
+				razeba = 3
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
+				if pcs_horny >= 80:pcs_horny -= 5
+			elseif age >= 25 and age < 30:
+				razeba = 4
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
+				if pcs_horny >= 80:pcs_horny -= 5
+			elseif age >= 30:
+				razeba = 5
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
+				if pcs_horny >= 80:pcs_horny += 1
+			end
+		elseif pregtimes > 0:
+			if preg = 0:
+				razeba = 5
+
+				if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
+				if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
+				if pcs_horny >= 80:pcs_horny += 1
+			elseif preg > 0:
+				razeba = 6
+
+				if pcs_horny < 100:pcs_horny += pregtime / 10
+			end
+		end
+	end
+end
+
+if pcs_horny < 0:pcs_horny = 0
+
+!!------------------------------------------------------------------------------------------------------------
+
+!counter for Dimka avoidance
+if dimaFilm = 1 and dimaRudeBlock = 0:
+	nodimkaK += 1
+	DimkaWarnedToday = 0
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+!!Fame degradation
+gs 'fame', 'deg'
+
+!!Traits
+gs 'traits', 'overnight'
+
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Maruda hair mod
+!!------------------------------------------------------------------------------------------------------------
+!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
+!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
+if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
+
+if pcs_haircol ! nathcol:
+	dyefade -=1
+	if dyefade < 0: dyefade = 0
+	if dyefade > 0 and dyefade < 7: dyevmod = 5
+	if dyefade = 0: dyevmod = 15
+end
+
+if hscrunch > 0:
+	hscrunchrand = rand(1, 100)
+
+	if hscrunchrand <= 8:hscrunch -= 1
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+!! Clothing wear and tear
+gs 'starenie'
+
+if nark > 60:
+	nark = 60
+elseif nark > 30:
+	nark -= 3
+elseif nark > 0:
+	nark -= 1
+end
+
+if pregtime > 10:fat += 1
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Pain
+!!------------------------------------------------------------------------------------------------------------
+
+if pain['head'] > 0:pain['head'] -= rand(1,3)
+if pain['hair'] > 0:pain['hair'] -= rand(1,3)
+if pain['ears'] > 0:pain['ears'] -= rand(1,3)
+if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
+if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
+if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
+if pain['nose'] > 0:pain['nose'] -= rand(1,3)
+if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
+if pain['lips'] > 0:pain['lips'] -= rand(1,3)
+if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
+if pain['throat'] > 0:pain['throat'] -= rand(1,3)
+if pain['neck'] > 0:pain['neck'] -= rand(1,3)
+if pain['back'] > 0:pain['back'] -= rand(1,3)
+if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
+if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
+if pain['hips'] > 0:pain['hips'] -= rand(1,3)
+if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
+if pain['legL'] > 0:pain['legL'] -= rand(1,3)
+if pain['legR'] > 0:pain['legR'] -= rand(1,3)
+if pain['feet'] > 0:pain['feet'] -= rand(1,3)
+if pain['toes'] > 0:pain['toes'] -= rand(1,3)
+if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
+if pain['armL'] > 0:pain['armL'] -= rand(1,3)
+if pain['armR'] > 0:pain['armR'] -= rand(1,3)
+if pain['hands'] > 0:pain['hands'] -= rand(1,3)
+if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
+if pain['chest'] > 0:pain['chest'] -= rand(1,3)
+if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
+if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
+if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
+if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
+if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
+if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
+if pain['labia'] > 0:pain['labia'] -= rand(1,3)
+if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
+if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
+if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
+
+if painpub = 2:
+	if painpubday + 5 < daystart:
+		$painpub = 'Your vulva is painfully sore.'
+		painpub = 1
+		painpubday = daystart
+	elseif painpubday + 5 >= daystart:
+		$painpub = 'Your vulva is painfully sore.'
+	end
+elseif painpub = 1:
+	if painpubday + 5 < daystart:
+		$painpub = ''
+		painpub = 0
+		painpubday = daystart
+	elseif painpubday + 5 >= daystart:
+		$painpub = 'Your vulva is a little sore.'
+	end
+end
+
+!!---- Calculation of lash extension degradation and false lash removal
+if pcs_lashes > 2:
+	if lashextensionstyle >= 1:
+		lashextensionduration -= 1
+		if lashextensionduration >= 1 and lashextensionduration <= 4:
+			'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
+		end
+		if lashextensionduration <= 0:
+			'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
+			pcs_lashes = pcs_naturallashes
+			killvar 'lashextensionstyle'
+			killvar 'lashextensionduration'
+			killvar 'lashextensionnew'
+		end
+	end
+	if false_lashes > 0:
+		false_lashes -= 1
+		if false_lashes = 0:
+			'Your false lashes came off in the night; there''s no recovering them now.'
+			pcs_lashes = pcs_naturallashes
+		else
+			'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
+		end
+	end
+end
+
+
+prezikProver += 1
+if pirs_pain_ton > 0:pirs_pain_ton -= 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 npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
+
+!!Counter for dimka/igor date
+if igor_DimaNos = 2 or igor_DimaNos = 3: $igor_DimaNos_day += 1
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Generation
+!!------------------------------------------------------------------------------------------------------------
+if NPCnum < 290:
+	NPCnow = NPCnum
+	NPCnum += rand(1, 3)
+	gs 'npc'
+elseif NPCnum < 300:
+	NPCnow = NPCnum
+	NPCnum += 1
+	gs 'npc'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+if kanikuli = 0:pcs_grades -= 1
+dmishaevent = 0
+
+if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
+if GspravkaT = 1:Gspravka -= 1
+if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
+if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
+
+!!remove degradation for inhibition
+inhib_flr = inhib_lvl
+
+gs 'stat_sklattrib', 'daycall'
+
+if dounspell = 1:
+	if strenbuf > 90:
+		strenbuf -= 2
+	elseif strenbuf > 80:
+		strenbuf -= 1
+	end
+
+	if vitalbuf > 90:
+		vitalbuf -= 2
+	elseif vitalbuf > 80:
+		vitalbuf -= 1
+	end
+
+	if strenbuf > pcs_stren: strenbuf -= 1
+	if strenbuf < pcs_stren: strenbuf += 1
+	if vitalbuf > pcs_vital: vitalbuf -= 1
+	if vitalbuf < pcs_vital: vitalbuf += 1
+	if agilbuf > pcs_agil: agilbuf -= 1
+	if agilbuf < pcs_agil: agilbuf += 1
+else
+	gs 'body_shape'
+end
+
+
+if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
+
+!!Pussy_Kats job settings
+inWorkYoungShop = 0
+if week = 1 and young_shop_work = 100: young_shop_work = 1
+if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
+if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
+
+husbandsexday = 0
+borsexkol = 0
+givisexday = 0
+
+if shantsr > 0:
+	pay = shantsr * 5000
+	karta += pay
+	shantsr = 0
+end
+
+if shantbog > 0:
+	:shantftb
+	shantftbgrand = rand(0, 10)
+	if shantftbgrand > 2:
+		shantpopala += 1
+		shantbog -= 1
+		if shantbog > 0:jump 'shantftb'
+	elseif shantftbgrand <= 2:
+		karta += 30000
+		shantbog -= 1
+		if shantbog > 0:jump 'shantftb'
+	end
+end
+
+petersexday = 0
+klismaday1 = 0
+
+!! Resetting relationships that go over the max
+
+:toptemprel
+if temprel < 250:
+	temprel +=1
+	if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
+	jump 'toptemprel'
+end
+killvar 'temprel'
+!!------------------------------------------------------------------------------------------------------------
+!!	Banking
+!!------------------------------------------------------------------------------------------------------------
+
+!!MJ: Add some (daily) interest to the bank account.
+!!Not very realistic but won''t make anyone too rich.
+
+if bankAccount = 1:
+	kartatotal = karta
+	:kartaloop
+	if kartatotal > 20000000:
+		kartacount += 1
+		largekarta[kartacount] = 20000000
+		kartatotal -= 20000000
+		jump 'kartaloop'
+	else
+		largekarta[0] = kartatotal
+	end
+	if karta >= 2000000:
+		!! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
+		intrate = 60
+	elseif karta >= 0:
+		!! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
+		intrate = 30
+	else
+		!! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
+		intrate = 550
+	end
+	:intloop
+	if kartacount > 0:
+		smallmoneypos += (largekarta[kartacount] * intrate)
+		if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
+		largekarta[kartacount] = 0
+		kartacount -= 1
+		jump 'intloop'
+	else
+		smallmoneypos += (largekarta[0] * intrate)
+		largekarta[0] = 0
+		if kartacount ! 0: kartacount = 0
+	end
+
+	if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
+		karta += smallmoneypos / 1000000
+		smallmoneypos = smallmoneypos mod 1000000
+	end
+
+	if atmDeposit > 0 and atmDepositDate <= daystart:
+		karta += atmDeposit
+		atmDeposit = 0
+	end
+end
+
+!!------------------------------------------------------------------------------------------------------------
+!!	Payments
+!!------------------------------------------------------------------------------------------------------------
+
+if day = 25:
+	!! meynold payment
+	if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
+		money += 5000
+		'<b><font color=green>For your efforts aunt Tamara gave you 5,000 rubles</font></b>'
+		mey_tamara_help_count = 0
+	end
+
+	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
+		Pay = PersSecWorkTimes * 1250
+		PersSecWorkTimes = 0
+		karta += Pay
+		paydaybistrosec = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
+	end
+
+	if workKafe = 1 and paydayKafe = 0:
+		paydayKafe = 1
+		pay = smenaKafe * 600
+		karta += pay
+		smenaKafe = 0
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
+	end
+
+	if workhosp = 1 and nopaypoly = 0:
+		pay = smena * 1000
+		karta += pay
+		smena = 0
+		nopaypoly = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
+	end
+
+	if worksalon = 1 and nopaysalon = 0:
+		pay = smenaSalon * 1560
+		karta += pay
+		smenaSalon = 0
+		nopaysalon = 1
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
+	end
+
+	if tanwork = 1 and nopaytanwork = 0:
+		nopaytanwork = 1
+		karta += 10000
+		'<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
+	end
+
+	if workSec = 1 and paydaySec = 0:
+		paydaySec = 1
+		pay = sekDay * 800
+
+		if officebestslut >= 3:pay += 10000
+		karta += pay
+		sekDay = 0
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
+	end
+
+	if workFabrika = 1:
+		pay = smenaFabrika * 420
+		smenaFabrika = 0
+		karta += pay
+		'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
+	end
+
+	if husband > 0 and paydayHusb = 0:
+		paydayHusb = 1
+
+		if husbFin = 0:huspay = 20000
+		if husbFin = 1:huspay = 30000
+		if husbFin = 2:huspay = 40000
+
+		karta += huspay
+		'<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
+	end
+
+	if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
+
+	if haday = 0:
+		gs 'housing', 'rent'
+		! Rent for the city apartment
+		if home_owned[1] = 1:
+			if ArendHouseSL < 31:
+				!From bank
+				if bankAccount = 1 and karta >= home_rent[1]:
+					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
+					haday = 1
+					karta -= home_rent[1]
+					ArendHouseSL += ArendHouseSL_due
+				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
+					'<b><font color="yellow">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
+					haday = 1
+					karta -= home_rent[1]
+					ArendHouseSL += ArendHouseSL_due
+				elseif bankAccount = 0:
+					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
+				else
+					nl
+					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
+				end
+			elseif home_owned[1] = 1 and ArendHouseSL >= 31:
+				'<b><font color="yellow">Your rent for your city apartment is already paid in full for this month.</font></b>'
+				haday = 1
+			end
+		end
+
+		! Rent for the Pushkin apartment
+		if home_owned[4] > 0:
+			if ArendHouseSL4 < 31:
+				!From bank
+				if bankAccount = 1 and karta >= home_rent[4] and ArendHouseSL4 <= 30:
+					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
+					haday = 1
+					karta -= home_rent[4]
+					ArendHouseSL4 += ArendHouseSL4_due
+				elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4] and ArendHouseSL4 <= 30:
+					'<b><font color="yellow">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
+					haday = 1
+					karta -= home_rent[4]
+					ArendHouseSL4 += ArendHouseSL4_due
+				elseif bankAccount = 0 and ArendHouseSL4 <= 30:
+					'<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment.To avoid eviction, please make manual payment as soon as possible.</font></b>'
+				else
+					nl
+					'<b><b><font color="red">You''re card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
+				end
+			elseif home_owned[4] > 0 and ArendHouseSL4 >= 31:
+				'<b><font color="yellow">Your rent for your Pushkin apartment is already paid in full this month.</font></b>'
+				haday = 1
+			end
+		end
+	end
+
+	! Utilities for all apartments.
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
+		gs 'housing', 'util'
+		if bankAccount = 1 and karta >= elektro:
+			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				karta -= elektro * hcount_util
+			end
+		elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
+			'<b><font color="yellow"> <<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				karta -= elektro * hcount_util
+			end
+		elseif bankAccount = 0 and money >= elektro:
+			'<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
+			electroday = 1
+			if elektro >= 2000:
+				elektro = 2000 + rand(0, 100)
+				money -= elektro * hcount_util
+			end
+		else
+			'<b><font color="red">You''re card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
+		end
+	end
+
+	! Cable for all apartments
+	if kabel > 0 and kabelday = 0:
+		gs 'housing', 'cable'
+		if bankAccount = 1 and karta >= (300 * hcount_cable):
+			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
+			kabelday = 1
+			karta -= 300 * hcount_cable
+			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
+		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
+			'<b><font color="yellow">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
+			kabelday = 1
+			karta -= 300 * hcount_cable
+		elseif bankAccount = 0 and money >= (300 * hcount_cable):
+			'<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
+			kabelday = 1
+			money -= 300 * hcount_cable
+		else
+			'<b><font color="red">You''re card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
+		end
+	end
+end
+
+if day ! 25:
+	if paydayHusb = 1:paydayHusb = 0
+	if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
+	if workSec = 1 and paydaySec = 1:paydaySec = 0
+	if (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
+	if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
+	if stipuhaday = 1: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 home_owned[1] = 0:
+	home_owned[1] = 2
+	'<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
+	!msg 'Your tenants have moved out and your apartment is now vacant.'
+end
+
+!!------------------------------------------------------------------------------------------------------------
+
+killvar 'holyday'
+killvar 'kanikuli'
+
+!!sisboyparty
+!!-1 - don''t go to the party
+!!0 - don''t know about parties
+!!1 - knows about the parties
+!!2 - agreed to go to the party
+!!3 - Missed the party
+
+if storyline = 1:
+!!Party refresh if you didn''t see sis
+	if week = 1 and sisboyparty ! 2:
+		if sisboyparty = -1: sisboyparty = 1
+
+		if sisboypartyQW >= 2 and sisboyparty > 0:
+			sisboyparty_day = daystart + rand(3,5)
+		end
+	end
+
+	if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
+
+!!missed graduation
+	if month = 5 and day = 26:
+		if school_year = 2001 and year = 2018 and kanikuli ! 7:
+			grad_miss = daystart + 1
+		elseif school_year = 2000 and year = 2017 and kanikuli ! 7:
+			grad_miss = daystart + 1
+		end
+	end
+
+	if SchoolAtestat = 0:
+		if month = 12 and day > 25:
+			if day < 31:
+				$holyday = '<b>Winter Break in <<32-day>> days.</b>'
+			else
+				$holyday = '<b>Winter Break starts tomorrow.</b>'
+			end
+		elseif month = 1 and day <= 15:
+			kanikuli = 2
+			if day < 13:
+				$holyday = '<b>Winter Break.</b>'
+			elseif day < 15:
+				$holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
+			else
+				$holyday = '<b>Last day of Winter Break.</b>'
+			end
+		elseif month = 3 and day > 13:
+			if day < 19:
+				$holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
+			elseif day = 19:
+				$holyday = '<b>Spring Break starts tomorrow.</b>'
+			elseif day >= 20 and day <= 26:
+				kanikuli = 3
+				if day < 24:
+					$holyday = '<b>Spring Break.</b>'
+				elseif day < 26:
+					$holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
+				else
+					$holyday = '<b>Last day of Spring Break.</b>'
+				end
+			end
+		elseif month = 5:
+			if ( (school_year = 2000 and year = 2017) or (school_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
+				if day = 25:
+					kanikuli = 6
+					$holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
+				elseif day = 24:
+					$holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
+				else
+					$holyday = '<b>Your graduation is in <<26-day>> days.</b>'
+				end
+			elseif day >= 25:
+				if day = 31:
+					$holyday = '<b>Summer Break starts tomorrow.</b>'
+				else
+					$holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
+				end
+			end
+		elseif month = 6 or month = 7 or month = 8:
+			kanikuli = 4
+			if month = 8 and day >= 25:
+				if day = 31:
+					$holyday = '<b>Last day of Summer Break.</b>'
+				else
+					$holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
+				end
+			else
+				$holyday = '<b>Summer Break.</b>'
+			end
+		elseif month = 10 and day >= 29:
+			$holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
+		elseif month = 11:
+			if day < 3:
+				$holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
+			elseif day = 3:
+				$holyday = '<b>Autumn Break starts tomorrow.</b>'
+			elseif day < 6:
+				kanikuli = 1
+				$holyday = '<b>Autumn Break.</b>'
+			elseif day < 11:
+				kanikuli = 1
+				$holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
+			elseif day = 11:
+				kanikuli = 1
+				$holyday = '<b>Last day of Autumn Break.</b>'
+			end
+		end
+	end
+	!!Brother''s dick growth as he gets older
+	kolka_dick_month = daystart/30
+	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
+	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
+		$npc_thdick['A34'] = 'well proportioned'
+	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
+		$npc_thdick['A34'] = 'thick'
+	end
+end
+
+killvar 'natholi'
+if month = 1 and day >= 1 and day <= 8:
+	$natholi = 'New Year holidays'
+	natholi = 1
+	if day = 1:$natholi += ', New Year'
+	if day = 7:$natholi += ', Christmas'
+end
+if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
+if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
+if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
+if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
+if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
+if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
+if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
+if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
+if natholi = 1:
+	if $holyday ! '': $holyday += '<br>'
+	$holiday += $natholi
+end
+
+if bcream_used >= 1:
+    bcream_used = 0
+    temp = rand(0,5)
+    nbsize += temp
+    if temp > 0:'Feels like your breasts have grown slightly.'
+end
+if steroid_dose >= 1:
+    if lashair < 1:
+        pcs_pubes += steroid_dose
+        pcs_leghair += steroid_dose
+    end
+    steroid_dose = 0
+end
+if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
+if aphrodisiac_timer ! 0:aphrodisiac_timer  = 0
+
+if mentats_dose = 1:
+    mentats_dose = 0
+elseif mentats_dose > 1:
+    pain['head'] += 20 * mentats_dose
+    mentats_dose = 0
+end
+
+!!Appearance base calculation call
+gs 'body_shape', 'basebeautycalc'
+
+!! vovan, from 1.2.5
+hanters_check = 0
+mushroom_pickers = 0
+horse_river = 0
+haying_time = 0
+mira_go_river = 0
+forestpicnic = 0
+if Mira_no > 0: Mira_no -= 1
+if Mira_no < 0: Mira_no = 0
+if catout ! 0: catout = 0
+if feedcat ! 0: feedcat = 0
+
+loc_count = ARRSIZE('$CloLosLoc')
+i = loc_count - 1
+:loopCloLoc
+	$CloLoc = $CloLosLoc[i]
+	CloLostOn = CloLosDay[$CloLoc]
+	if CloLostOn + RAND(7,14) < daystart :
+		gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
+	end
+	i -=1
+if i > -1 :jump 'loopCloLoc'
+
+--- cikl ---------------------------------
+

locations/clothing.qsrc

@@ -200,10 +200,10 @@ if $ARGS[0] = 'view_clothing_list':
 
 		if $ARGS[1] = 'store':
 			cloc = 1
-		end
-
-		if $ARGS[1] = 'unwanted':
+		elseif $ARGS[1] = 'unwanted':
 			cloc = 2
+		else
+			cloc = 0
 		end
 
 		if $ARGS[2] = 'gm':

locations/din_pav.qsrc

@@ -226,10 +226,9 @@ $pavser4 = {
                 cla
                 *clr
 				pcs_mood = 100
-				if pcs_exhibition < 30:exhibition_exp += rand(1,3)
                 '<center><video autoplay loop src="images/locations/oldtown/vacanthouse/11684312.mp4"></video></center>'
 				$orgasm_or = 'custom'
-                $orgasm_txt = 'Suddenly you if electric shock and abdomen began pleasant spasms ,you squirm biting her lip, that would not scream with pleasure.'
+                $orgasm_txt = 'Suddenly you if electric shock and abdomen began pleasant spasms, you squirm biting her lip, that would not scream with pleasure.'
 				gs 'arousal', 'masturbate', 5
 				gs 'arousal', 'end'
 				gs 'stat'

locations/din_van.qsrc

@@ -688,8 +688,6 @@ if $ARGS[0] = 'private':
 	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $metka">Inject silicone into breast implants.</a>'
 	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $metka">Drain silicone from breast implants.</a>'
 
-	if breastpump > 0:'<a href="exec:gt ''shortgs'', ''milk_me''">Use breast pump.</a></center>'
-
 	dynamic $bteeth
 
 	dynamic $tampon
@@ -902,6 +900,13 @@ if $ARGS[0] = 'private':
 			act 'Finish':gt $loc, $metka
 		end
 	end
+	
+	!!breast pump is now in the menue, not on the screen
+	if breastpump > 0:
+		act 'Use breast pump':
+			gt 'lact_lib', 'bp_milking'
+		end
+	end
 end
 
 if $ARGS[0] = 'misery':

locations/down.qsrc

@@ -130,11 +130,14 @@ else
 end
 'The neon green sign of a <<$desc_txt1>> catches your eye. It''s open 8-10 selling magazines and cigarettes for cheap.'
 *nl
-if hour >= 9 and hour <= 20:
+if hour = 8 and minut >= 30:
+	$desc_txt1 = '<a href="exec: minut += 5 & gt ''torgcentr''">The Galeria mall</a>'
+	$desc_txt2 = '<a href="exec:msg ''The Havana Fitness Center is closed and will reopen at 9:00''">Havana Fitness Center</a>'
+elseif hour >= 9 and hour <= 20:
 	$desc_txt1 = '<a href="exec: minut += 5 & gt ''torgcentr''">The Galeria mall</a>'
 	$desc_txt2 = '<a href="exec:gt ''fit'', ''start''">Havana Fitness Center</a>'
 else
-	$desc_txt1 = '<a href="exec:msg ''The Galeria mall is closed and will reopen at 9:00''">The Galeria mall</a>'
+	$desc_txt1 = '<a href="exec:msg ''The Galeria mall is closed and will reopen at 8:30''">The Galeria mall</a>'
 	$desc_txt2 = '<a href="exec:msg ''The Havana Fitness Center is closed and will reopen at 9:00''">Havana Fitness Center</a>'
 end
 '<<$desc_txt1>> is front and center in the commercial area. Nearby is a <<$desc_txt2>> which has a swimming pool that can be used for a small fee.'

locations/etoexhib.qsrc

@@ -22,6 +22,7 @@ if $ARGS[0] = 'pos1':
 			cla
 			*clr
 			pcs_mood += 10
+			minut += 20
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/solar9.jpg"></center>'
 			'You are tanned and relaxed. Satisfied, you go out of the solarium and dressed out into the hall salon.'
@@ -35,6 +36,7 @@ if $ARGS[0] = 'pos1':
 		*clr
 		pcs_mood += 10
 		pcs_horny += 10
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/solar1.jpg"></center>'
 		'You decide to fool around a bit and leave the door for the room open. You start to slowly undress, when you take your bra off and exposes your breasts, long chills run through your bare back. Now, all of a sudden, anybody could go inside the room and see my breasts, what they would think of me?'
@@ -51,6 +53,7 @@ if $ARGS[0] = 'pos1':
 				cla
 				*clr
 				pcs_horny += 10
+				minut += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/solar4.jpg"></center>'
 				'You undressed and went naked into the solarium. There is just a person on the door looking at you. Of curiosity, you attach your legs and bent them to the side , peering into the darkness of the slightly open door. You can actually see and hear the shadow sniffing. There is no doubt, someone is obviously watching you. From the realization that someone is watching you, and that you are lying completely naked, your body begins to tremble. There is a pleasant feeling in the abdomen. You get so excited to the point that you start to spread your legs in different directions. To the joy of the mysterious stranger.'
@@ -67,22 +70,24 @@ if $ARGS[0] = 'pos1':
 						cla
 						*clr
 						pcs_horny += 20
-						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/solar6.jpg"></center>'
 						'You start furiously rubbing your pussy to finally finish your shameless adventure. Gradually, you get excited to such an extent that you can not hold back anymore. You start to moan and push your labia with your fingers, showing your pussy to a stranger in all its glory.'
+						gs 'arousal', 'mastubate', 10, 'exhibitionism'
+						gs 'stat'
 
 						act 'Next':
 							cla
 							*clr
-							orgasm += 1
-							pcs_horny -= 50
-							pcs_mood = 100
-							exhibition_exp += 3
+							gs 'exhibitionism', 2
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/solar7.jpg"></center>'
 							'Finally, you cover yourself in a powerful orgasms and you became exhausted. Also,you can not hear the sniff any more, it seems the secret observer finished with you.'
 							''
 							'Gradually you come to your senses, get dressed,and get out of the booth.'
+							$orgasm_or = 'yes'
+							gs 'arousal', 'mastubate', 10, 'exhibitionism'
+							gs 'arousal', 'end'
+							gs 'stat'
 
 							act 'Leave':gt 'salon', 'start'
 						end
@@ -127,7 +132,7 @@ if $ARGS[0] = 'pos3':
 		'You can see the mushroom picker far way from you.'
 
 		act 'Get his attention':gt 'etoexhib', 'pos4'
-	elseif foresrand > 90 and pcs_exhibition > 50:
+	elseif foresrand > 90 and exhibitionist_lvl > 1:
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/locations/suburban/1fores.jpg"></center>'
@@ -152,7 +157,7 @@ if $ARGS[0] = 'pos4':
 		minut += 5
 		pcs_horny += sub
 
-		exhibition_exp += 3
+		gs 'exhibitionism', 2
 
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/suburban/2fores.jpg"></center>'
@@ -168,7 +173,7 @@ if $ARGS[0] = 'pos5':
 	minut += 5
 	pcs_horny += sub
 
-	exhibition_exp += 4
+	gs 'exhibitionism', 3
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/suburban/3fores.jpg"></center>'
@@ -524,11 +529,12 @@ if $ARGS[0] = 'pos16':
 	'<center><img <<$set_imgh>> src="images/locations/suburban/lake.jpg"></center>'
 
 	if temper >= 20 and bikini > 0 and hour >= 6 and hour <= 20:
-		act 'Swim with a swimsuit':
+		act 'Swim with a swimsuit (1 hour)':
 			cla
 			*clr
 			cumspclnt = 4
 			gs 'cum_cleanup'
+			pcs_inhib += rand(1,2)
 			minut += 60
 			gs 'exercise', 'tier1', 1, 'stren_exp'
 			pcs_sweat = 10 + rand(0,4)
@@ -541,12 +547,14 @@ if $ARGS[0] = 'pos16':
 	end
 
 	if temper >= 20 and hour >= 6 and hour <= 20:
-		act 'Swim naked':
+		act 'Swim naked (1 hour)':
 			cla
 			*clr
 			cumspclnt = 4
 			gs 'cum_cleanup'
-			gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
+			pcs_inhib += 3
+			minut += 60
+			gs 'exercise', 'tier1', 1, 'stren_exp'
 			pcs_sweat = 10 + rand(0,4)
 			gs 'arousal', 'foreplay', 60, 'exhibition'
 			gs 'arousal', 'end'
@@ -1616,7 +1624,7 @@ if $ARGS[0] = 'pos53':
 			cla
 			*clr
 			minut += 60
-			if PCloExhibit + 10 > pcs_exhibition:exhibition_exp += rand(1,3)
+			if inhib_exp += rand(1,3)
 			if pcs_sweat < 35 : pcs_sweat += 5
 			pcs_mood += 5
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/zagar1.jpg"></center>'

locations/events.qsrc

@@ -323,213 +323,5 @@ if $ARGS[0] = 'snkayf1':
 	end
 end
 
-!!Centralised flashing location
-!!For flashing events only, do not use for exposure leading to sex
-!!To be used in the following format
-!!gs 'flash_[type]', '[location]', [time]
-!![time] in minutes, default is 5
-!!Available options as follows
-!![type] - bra, butt, full, panties, pussy, tits
-!![location] - indoors, outdoors
-!!eg. gs 'flash_tits', 'outdoors', 15
-!!There is no continue action so you must add this as required
-!!You should add checks for underwear before allowing the player to flash them but a non-event contingency is included
-
-if $ARGS[0] = 'flash_bra':
-	*clr
-	gs 'arousal', 'flashlite', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/bra/' + rand(1,3) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/bra/' + rand(1,3) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/bra/' + rand(1,6) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/bra/' + rand(1,4) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_butt':
-	*clr
-	gs 'arousal', 'flashlite', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/butt/' + rand(1,7) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/butt/' + rand(1,9) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/butt/' + rand(1,6) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/butt/' + rand(1,16) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_full':
-	*clr
-	gs 'arousal', 'flash', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/full/' + rand(1,5) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/full/hairy' + rand(1,6) + '.jpg"></center>'
-			end
-			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
-		else
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/full/' + rand(1,11) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/full/hairy' + rand(1,10) + '.jpg"></center>'
-			end
-			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/1.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/hairy1.jpg"></center>'
-			end
-			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
-		else
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/' + rand(1,7) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/hairy' + rand(1,6) + '.jpg"></center>'
-			end
-			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_panties':
-	*clr
-	gs 'arousal', 'flashlite', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/panty/' + rand(1,4) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/panty/' + rand(1,16) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/panty/1.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/panty/' + rand(1,6) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_panties_rear':
-	*clr
-	gs 'arousal', 'flashlite', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pantyrear/' + rand(1,4) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pantyrear/' + rand(1,16) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pantyrear/1.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pantyrear/' + rand(1,6) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_pussy':
-	*clr
-	gs 'arousal', 'flash', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pussy/' + rand(1,7) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
-			end
-			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		else
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/' + rand(1,13) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/hairy' + rand(1,6) + '.jpg"></center>'
-			end
-			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/' + rand(1,4) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/hairy' + rand(1,3) + '.jpg"></center>'
-			end
-			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		else
-			if pcs_pubes <= 20:
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/' + rand(1,9) + '.jpg"></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
-			end
-			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-if $ARGS[0] = 'flash_tits':
-	*clr
-	gs 'arousal', 'flash', ARGS[2]
-	gs 'arousal', 'end'
-	if PCloSkirt > 0:
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/tits/' + rand(1,8) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/' + rand(1,12) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		end
-	else
-		if $ARGS[1] = 'inside':
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/tits/' + rand(1,8) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		else
-			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/' + rand(1,14) + '.jpg"></center>'
-			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
-		end
-	end
-end
-
-	
-
-
 --- events ---------------------------------
 

locations/exhibitionism.qsrc

@@ -0,0 +1,35 @@
+# exhibitionism
+
+!!{ 1 point for exposing breasts, 2 for ass and 3 for pussy. 4 for extreme nude situations
+use the following gosub to add to it:
+gs 'exhibitionism', 3
+The last number being the desired level
+Use of rand should still work
+}
+
+if ARGS[0] > 4: ARGS[0] = 4
+
+if ARGS[0] = 1:
+	pcs_exhib += 1
+	if exhibitionist_lvl = 1: arousal += 5
+	if exhibitionist_lvl = 2: arousal += 10
+	if exhibitionist_lvl = 3: arousal += 15
+elseif ARGS[0] = 2:
+	pcs_exhib += 2
+	if exhibitionist_lvl = 1: arousal += 10
+	if exhibitionist_lvl = 2: arousal += 20
+	if exhibitionist_lvl = 3: arousal += 30
+elseif ARGS[0] = 3:
+	pcs_exhib += 3
+	if exhibitionist_lvl = 1: arousal += 15
+	if exhibitionist_lvl = 2: arousal += 25
+	if exhibitionist_lvl = 3: arousal += 40
+elseif ARGS[0] = 4:
+	pcs_exhib += 4
+	if exhibitionist_lvl = 1: arousal += 20
+	if exhibitionist_lvl = 2: arousal += 40
+	if exhibitionist_lvl = 3: arousal += 80
+end
+
+--- exhibitionism ---------------------------------
+

locations/femcyc.qsrc

@@ -1,734 +1,946 @@
-# femcyc
-
-!! I have to initialize the variables somewhere, maybe in preCUST?
-if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-		
-if $ARGS[0] = '':
-	!{Hourly reduction in semen potency}
-	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
-	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
-	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
-	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
-
-	if rcntorgzm = 1:
-		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
-		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
-
-	end
-
-	cumarr_idx = 0
-
-	:cumarrloop
-	if cumarr_idx < arrsize('$cumarrnam'):
-		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
-			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
-			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
-			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
-			cumarrcpt[cumarr_idx] -= cumpdrop
-			if cumarrcpt[cumarr_idx] <= 0:
-				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-			else
-				cumarrage[cumarr_idx] += 1
-				cumarr_idx += 1
-			end
-		else
-			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-		end
-
-		jump 'cumarrloop'
-
-	end
-
-	!!Succubus absorption of sperm in womb
-	if succubusflag = 1:
-		if arrsize('cumarrppt') > 0:
-			succycletmp = 0
-			:sucvagabs
-			if cumarrdel[succycletmp] = 0:
-				if cumarrcpt[succycletmp] > 10000:
-					sexnutrition += 30 * succublvl
-					succubxp += 3
-				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
-					sexnutrition += 5 * succublvl
-					succubxp += 2
-				elseif cumarrcpt[succycletmp] =< 1000:
-					 sexnutrition += succublvl
-				else
-					sexnutrition += 25 * succublvl
-					succubxp += 3
-				end
-				gs 'cum_cleanup', 'cleanwomb', succycletmp
-				sucabscum = 1
-			else
-				succycletmp += 1
-			end
-			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
-		end
-		killvar 'succycletmp'
-	end
-
-	cumarrtemp = 0
-	cumcondslip = 0
-	cumcondslip_aware = 0
-	if arrsize('sparrvol') > 0:
-		:cumspaloop
-		!!Succubus absorption for internal locations other than womb
-		if succubusflag = 1:
-			if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-				sexnutrition += 25*succublvl
-				succubxp += 3
-				sucabscum = 1
-				if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
-			end
-		end
-		!!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-			sexnutrition += 30*succublvl
-			sparrvol[cumarrtemp] -= 30*succublvl
-			if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
-		end}
-		!!{ Process spatter until it has volume or is too old in vagina. }
-		if sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10):
-			sparrtmpv = arrsize('$cumarrnam')
-			if sparrloc[cumarrtemp] = 17:
-				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
-				if sparrtmpv >= 0:
-					!!'Found guy id <<sparrtmpv>>'
-					if sparrage[cumarrtemp] < 4:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
-					elseif sparrage[cumarrtemp] < 10:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
-					end
-				end
-			elseif sparrloc[cumarrtemp] = 0:
-				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
-				if sparrtmpv >= 0:
-					!!'Found guy id' & sparrtmpv
-					if sparrage[cumarrtemp] < 4:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
-					elseif sparrage[cumarrtemp] < 10:
-						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
-					end
-				end
-			elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 1:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 1
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 2:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 4:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 2
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
-				if sparrloc[cumarrtemp] = 3:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 2
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 5:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				elseif sparrloc[cumarrtemp] = 6:
-					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
-					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
-					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
-					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
-					cumarrdel[sparrtmpv] = 3
-					cumarrkno[sparrtmpv] = -1
-					cumarrcon[sparrtmpv] = 0
-					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
-				end
-			end
-
-			if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
-				sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
-				if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
-			end
-			if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
-			if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
-			if sparrloc[cumarrtemp] = 17:
-				cumcondslip += 1
-				if sparridt[cumarrtemp] >= 0:
-					cumcondslip_aware = 1
-				end
-				if sparrage[cumarrtemp] > 48:
-					cumcondslip_aware = 1
-					pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
-					'<br><b><font color="red">You feel nauseous.</font></b>'
-				end
-			end
-			if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
-			sparrage[cumarrtemp] += 1
-			cumarrtemp += 1
-			ctemp[0] += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
-			if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
-		else
-			gs 'cum_cleanup', 'cleandeposit', cumarrtemp
-		end
-		if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
-		cumsumbod = ctemp[0]
-		cumsumvag = ctemp[1]
-		cumsumass = ctemp[2]
-		KILLVAR 'ctemp'
-	end
-
-	if lactate > 0:
-		if lactatemv <= 0:
-			lactatemv = 0
-			if lactatemm < pcs_cupsize*40 and milkgrowday < daystart:
-				lactatemm += 10
-				lactatemv += 10
-				milkgrowday = daystart
-			elseif milkgrowday < daystart:
-				if rand(0,30) = 0: pcs_cupsize += 1
-				milkgrowday = daystart
-				lactatemv += 10
-			end
-		elseif lactatemv < lactatemm:
-			lactatemv += lactatemm/20
-		elseif lactatemv = lactatemm and milkgrowday < daystart:
-			milkgrowday = daystart
-			lactatemm -= 10
-			lactatemv -= 10
-			if rand(0,90) = 0: pcs_cupsize -= 1
-		elseif lactatemv > lactatemm:
-			lactatemv = lactatemm
-		end
-	end
-
-	if cycle <= 0:
-		gs 'femcyc', 'cyc0'
-	elseif cycle = 1:
-		gs 'femcyc', 'cyc1'
-	elseif cycle = 2:
-		gs 'femcyc', 'cyc2'
-	elseif cycle = 3:
-		gs 'femcyc', 'cyc3'
-	elseif cycle = 4:
-		gs 'femcyc', 'cyc4'
-	elseif cycle = 5:
-		gs 'femcyc', 'preg'
-	end
-
-	dynamic $d_cycreport_update
-end
-
-
-!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
-
-if $ARGS[0] = 'cyc0':
-	if mesec <= 0:
-		lastmens = daystart
-		cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH += EggRH
-	else
-		mesec -= 1
-		FocH += 1
-	end
-end
-
-
-!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
-
-if $ARGS[0] = 'cyc1':
-	FertEgg = 0
-	if FocH <= FocH_Max:
-		if pillcon <= 7000: EggRH += 1
-		if rand(0,9) = 0: EggRH += 1
-		FocH += 1
-		temprand = rand(0,9) - sterileov + tempovbonus
-		if temprand < 0: 
-			EggRH -= 1
-		elseif temprand > 9: 
-			EggRH += 1
-		end
-	else
-		!! the setting of the max_time can be here although it can be changed in the future
-		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
-		Temprand = rand(0,20)
-		Temprand += age/15
-		Temprand -= pillcon/1000
-		if temprand > 20:
-			EggRH += 205
-			Temprand = rand(0,20)
-			Temprand += age/15
-			if temprand > 20: EggRH += 410
-		end
-		FocH = 0
-		Ovulate = 24 + rand(0,20)
-		cycle = 2
-		ferteggage = 0
-	end
-end
-
-
-!!{Fertilization.}
-
-if $ARGS[0] = 'cyc2':
-	can_sz = arrsize('$cumarrnam')
-	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
-		KILLVAR 'cumtime'
-		KILLVAR 'cumfthname'
-		KILLVAR '$wombpotfath'
-		$cumfthname[0] = 'unknown'
-		cumtime[0] = 0
-		can_idx = 0
-		cum_total = 0
-!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
-		:FatherCumAnalyze
-			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array. 
-			!! If exists, just increase the amount of cum in the womb.
-			
-			!! $wombDNA: sperm in womb potent enough to cause pregnancy
-			!! wombAmount: how potent is the sperm of a guy
-			!! $wombName: the name of the NPC
-			y = arrsize('$wombDNA')
-			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
-				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
-				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-				wombAmount[y] = cumarrcpt[can_idx]
-				$wombName[y] = $cumarrnam[can_idx]
-				
-			else
-				!! This DNA is in the womb, but does it belong to the same guy?
-				x = 0
-				z = 0
-				:LocalizeLoop
-					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
-				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
-				killvar 'x'
-				if z = 0:
-					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
-					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-					$wombName[y] = $cumarrnam[can_idx]
-					wombAmount[y] = cumarrcpt[can_idx]
-				end
-				killvar 'z'
-			end
-			killvar 'y'
-			
-			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
-			
-			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
-			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
-				!! If guy is recorded already, increase his cumtime, else record him for the first time.
-				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
-					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
-					cumtime[arrsize('$cumfthname')] = 1
-				else
-					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
-				end
-			end
-			
-			cum_total += cumarrcpt[can_idx]
-			
-		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
-
-		!! setting the default believed father if there is no difficult choice or there is no choice
-		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
-			$wombpotfath[0] = $cumfthname[1]
-		elseif arrsize('$cumfthname') = 1:
-			$wombpotfath[0] = $cumfthname[0]
-		end
-
-!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
-		KILLVAR '$cumfathlotto'
-		cfw_idx = 0
-		cfw_sz = arrsize('wombAmount')
-		:FathLottoLoop
-		if cfw_idx < cfw_sz:
-			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
-			if cfl_ct < 1: cfl_ct = 1
-			cfl_idx = arrsize('$cumfathlotto')
-			:FathLottoAdd
-			if cfl_ct > 0:
-				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
-				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
-				cfl_idx += 1
-				cfl_ct -= 1
-				jump 'FathLottoAdd'
-			end
-			cfw_idx += 1
-			jump 'FathLottoLoop'
-		end
-		killvar '$wombDNA'
-		killvar '$wombName'
-		killvar 'wombAmount'
-		cfl_sz = arrsize('$cumfathlotto')
-
-		egg_idx = 0
-		egg_sz = UnfertEgg
-		if cheat_NoPregnancy = 1:egg_idx = egg_sz
-		:FertLoop
-		if egg_idx < egg_sz:
-!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
-			fert_thresh = rand(1,250000)
-			if pillcon < 0: pillcon = 0
-			!!fert_thresh += pillcon
-			if steriletu = 1: fert_thresh += fert_thresh*30
-			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
-			if fert_thresh <= cum_total:
-				lotto_idx = rand(0, cfl_sz-1)
-				UnfertEgg -= 1
-				FertEgg += 1
-				nextbaby = arrsize('$ChildFath')
-				polkid[nextbaby] = rand(0, 1)
-				$kidname[nextbaby] = 'unborn'
-				kidage[nextbaby] = 0
-				daykid[nextbaby] = 0
-				monthkid[nextbaby] = 0
-				yearkid[nextbaby] = 0
-				Babyptype[nextbaby] = 0
-				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
-				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
-				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
-				if arrsize('$wombpotfath') = 1:
-					$ChildThFath[nextbaby] = $wombpotfath[0]
-				else
-					$ChildThFath[nextbaby] = 'unknown'
-				end
-				hairkid[nextbaby] = rand(0, 3)
-				eyeskid[nextbaby] = rand(0, 3)
-				ChildConType[nextbaby] = cumarrcon[nextbaby]
-				if fertegg > 1:
-					$childtype[nextbaby] = 'paternal twin'
-					$childtype[nextbaby-1] = 'paternal twin'
-				else
-					$childtype[nextbaby] = ''
-				end
-			end
-			egg_idx += 1
-			jump 'FertLoop'
-		end
-		killvar 'temp'
-		tempovbonus = 0
-	end
-
-!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
-	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
-	:OviLoop
-	If EggRH > ((UnfertEgg + FertEgg) * 150):
-		UnfertEgg += 1
-		EggRH -= (200 * UnfertEgg)
-		jump 'OviLoop'
-	end
-	If ovulate <= 0:
-		cycle = 3
-		UnfertEgg = 0
-	end
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	Ovulate -= 1
-	LutH += 1
-end
-
-
-!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
-!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-
-if $ARGS[0] = 'cyc3':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	implant_idx = 0
-	implant_sz = arrsize('Babyptype')
-
-	:implant_loop
-	if implant_idx < implant_sz:
-
-		if Babyptype[implant_idx] = 0:
-			imp_rand = rand(0,120000)
-
-			if ferteggage < 120 and broodcurse <= 0:
-				imp_rand += 170
-				imp_rand -= age * 10
-				if steriletu = 1: imp_rand -= 200
-
-				if imp_rand <= 0:
-					Babyptype[implant_idx] = 2
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-
-			else
-				imp_rand += sterilewb
-				imp_rand -= tempwbbonus
-				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
-
-				if imp_rand <= (1200 - (age * 7)):
-					Babyptype[implant_idx] = 1
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-				tempwbbonus = 0
-
-			end
-
-		end
-
-		implant_idx += 1
-		jump 'implant_loop'
-
-	end
-
-!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
-	if LutH > LutH_Max:
-		rej_idx = 0
-		rej_sz = arrsize('Babyptype')
-		:lutcycloop
-		if rej_idx < rej_sz:
-			if Babyptype[rej_idx] = 0:
-				KILLVAR 'polkid',tempbabyi
-				KILLVAR '$kidname',tempbabyi
-				KILLVAR 'kidage',tempbabyi
-				KILLVAR 'daykid',tempbabyi
-				KILLVAR 'monthkid',tempbabyi
-				KILLVAR 'yearkid',tempbabyi
-				KILLVAR 'Babyptype',tempbabyi
-				KILLVAR '$ChildFath',tempbabyi
-				KILLVAR '$ChildThFath',tempbabyi
-				KILLVAR 'hairkid',tempbabyi
-				KILLVAR 'eyeskid',tempbabyi
-				KILLVAR 'cumarrcon',tempbabyi
-				FertEgg -= 1
-			end
-			rej_idx += 1
-			jump 'lutcycloop'
-		end
-		LutH = 0
-		if preg = 1:
-			cycle = 5
-		elseif menoage <= age:
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			cycle = 6
-		else
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			!! the setting of the max_time can be here although it can be changed in the future
-			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-			temprand = rand(0,10)
-			if pillcon >= 38000 or rand(1,24) = 1:
-				EggRH = 0
-				cycle = 1
-				mesec = 0
-			else
-				cycle = 0
-				killvar 'abortionbirthdate'
-				if cyccustom = 1: daylastperiod = daystart
-				firstmens = daystart
-				temprand = rand(0,10)
-				if temprand = 0 and pillcon < 10000:
-					mesec = rand(104,136) & !! 120
-				elseif temprand < 9 and pillcon < 15000:
-					mesec = rand(76,104) & !!  96
-				elseif pillcon < 20000:
-					mesec = rand(52,76) & !! 72
-				else
-					mesec = rand(44,52) & !! 48
-				end
-			end
-		end
-	else
-		if preg = 1:PregChem += 1+pregspeedcheat
-		if rand(0,100) < 100: LutH += 1
-	end
-end
-
-!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
-
-if $ARGS[0] = 'cyc4':
-	if RecovH <= 0:
-		cycle = 1
-		if cyccustom = 1:
-			knowpregloss = 0
-			knowpregrecover = 0
-		end
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	else
-		RecovH -= 1
-		if rand(0,10) = 0: RecovH -= 1
-	end
-end
-
-
-!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
-
-if $ARGS[0] = 'preg':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			babyembryo += 1
-			PregChem += rand(10,30)
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	PregChem += (1+pregspeedcheat)
-	temprand = rand(-400,800)
-	temprand -= (babyembryo-1)*588
-	if PregChem > 6573 + temprand and preg ! 2:
-		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
-		$cycreport_txt = 'In labour'
-		arrmodtmp =arrsize('$ChildFath')
-		arrmodtmp -= (babyembryo+1)
-		:babyfinalpreploop
-		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
-			daykid[arrmodtmp] = 42
-			$ChildThFath[arrmodtmp] = $wombthfath
-			arrmodtmp += 1
-			jump 'babyfinalpreploop'
-		end
-		KILLVAR '$wombpotfath'
-		KILLVAR '$wombthfath'
-		preg = 2
-		pregminut = totminut + 1440
-		if babyembryo > 1:
-			'Your babies are coming...'
-		else
-			'Your baby is coming...'
-		end
-		if PregChem < 3885:
-			'Way too early!'
-		elseif PregChem < 5229:
-			'Very early!'
-		elseif PregChem < 6069:
-			'Early.'
-		elseif PregChem > 6959:
-			'Late.'
-		elseif PregChem > 7245:
-			'Very Late!'
-		end
-		'You need to get to a clinic.'
-	end
-	if PregChem > 3887:
-		if lactate <= 0:
-			'You begin lactating'
-			lactate = 1
-			lactatemv = 0
-			lactatemm = 100
-		else
-			if lactate < 1: lactate = 1
-		end
-	end
-	if PregChem > 2203:
-		if pregchem > 2853 or kid > 0:
-			if rand(0,7) = 0: dynamic $d_pregmovement
-		else
-			if rand(0,500) = 0: dynamic $d_pregmovement
-		end
-	end
-end
-
---- femcyc ---------------------------------
-
+# femcyc
+
+!! I have to initialize the variables somewhere, maybe in preCUST?
+if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+
+if $ARGS[0] = '':
+	!{Hourly reduction in semen potency}
+	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
+	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
+	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
+	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
+
+	if rcntorgzm = 1:
+		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
+		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
+
+	end
+
+	cumarr_idx = 0
+
+	:cumarrloop
+	if cumarr_idx < arrsize('$cumarrnam'):
+		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
+			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
+			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
+			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
+			cumarrcpt[cumarr_idx] -= cumpdrop
+			if cumarrcpt[cumarr_idx] <= 0:
+				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+			else
+				cumarrage[cumarr_idx] += 1
+				cumarr_idx += 1
+			end
+		else
+			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+		end
+
+		jump 'cumarrloop'
+
+	end
+
+	!!Succubus absorption of sperm in womb
+	if succubusflag = 1:
+		if arrsize('cumarrppt') > 0:
+			succycletmp = 0
+			:sucvagabs
+			if cumarrdel[succycletmp] = 0:
+				if cumarrcpt[succycletmp] > 10000:
+					sexnutrition += 30 * succublvl
+					succubxp += 3
+				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
+					sexnutrition += 5 * succublvl
+					succubxp += 2
+				elseif cumarrcpt[succycletmp] =< 1000:
+					 sexnutrition += succublvl
+				else
+					sexnutrition += 25 * succublvl
+					succubxp += 3
+				end
+				gs 'cum_cleanup', 'cleanwomb', succycletmp
+				sucabscum = 1
+			else
+				succycletmp += 1
+			end
+			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
+		end
+		killvar 'succycletmp'
+	end
+
+	cumarrtemp = 0
+	cumcondslip = 0
+	cumcondslip_aware = 0
+	if arrsize('sparrvol') > 0:
+		:cumspaloop
+		!!Succubus absorption for internal locations other than womb
+		if succubusflag = 1:
+			if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+				sexnutrition += 25*succublvl
+				succubxp += 3
+				sucabscum = 1
+				if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
+			end
+		end
+		!!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+			sexnutrition += 30*succublvl
+			sparrvol[cumarrtemp] -= 30*succublvl
+			if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
+		end}
+		!!{ Process spatter until it has volume or is too old in vagina. }
+		if sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10):
+			sparrtmpv = arrsize('$cumarrnam')
+			if sparrloc[cumarrtemp] = 17:
+				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
+				if sparrtmpv >= 0:
+					!!'Found guy id <<sparrtmpv>>'
+					if sparrage[cumarrtemp] < 4:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
+					elseif sparrage[cumarrtemp] < 10:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
+					end
+				end
+			elseif sparrloc[cumarrtemp] = 0:
+				sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
+				if sparrtmpv >= 0:
+					!!'Found guy id' & sparrtmpv
+					if sparrage[cumarrtemp] < 4:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
+					elseif sparrage[cumarrtemp] < 10:
+						cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
+					end
+				end
+			elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 1:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 1
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 2:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 4:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 2
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
+				if sparrloc[cumarrtemp] = 3:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 2
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 5:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				elseif sparrloc[cumarrtemp] = 6:
+					cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
+					cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
+					$cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
+					cumarrage[sparrtmpv] = sparrage[cumarrtemp]
+					cumarrdel[sparrtmpv] = 3
+					cumarrkno[sparrtmpv] = -1
+					cumarrcon[sparrtmpv] = 0
+					cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
+				end
+			end
+
+			if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
+				sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
+				if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
+			end
+			if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
+			if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
+			if sparrloc[cumarrtemp] = 17:
+				cumcondslip += 1
+				if sparridt[cumarrtemp] >= 0:
+					cumcondslip_aware = 1
+				end
+				if sparrage[cumarrtemp] > 48:
+					cumcondslip_aware = 1
+					pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
+					'<br><b><font color="red">You feel nauseous.</font></b>'
+				end
+			end
+			if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
+			sparrage[cumarrtemp] += 1
+			cumarrtemp += 1
+			ctemp[0] += sparrvol[cumarrtemp]
+			if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
+			if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
+		else
+			gs 'cum_cleanup', 'cleandeposit', cumarrtemp
+		end
+		if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
+		cumsumbod = ctemp[0]
+		cumsumvag = ctemp[1]
+		cumsumass = ctemp[2]
+		KILLVAR 'ctemp'
+	end
+
+
+	!! new milkgrowday function.
+	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
+	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
+		if milkgrowday < daystart:
+			prolactinlvl += milkoverdemand/200
+			!! as long as your tits are not over 11 growth will happen to them. If you do not pump or no pregnancy happens, no growth will happen.
+			if milkoverdemand = 0 and pregchem = 0 and tits < 11:
+				temp_var = prolactinlvl - 10
+				if temp_var < 0:
+					prolactinlvl = 0
+				end
+				!! if prolactinlvl is sinking too much, the aveoli will deflate and thus the breasts growth is reverted. This only counts for induced lactation. If natural lactation occurs breasts will shrink a bit too, but stay bigger in total.
+				if prolactinlvl < 75 and total_milkinduce_growth > 0:
+					nbsize -= total_milkinduce_growth
+					prolactinlvl -= 10
+					total_milkinduce_growth = 0
+				else
+					prolactinlvl -= 10
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart
+			elseif milkoverdemand > 0 and pregchem = 0 and tits < 11:
+				!! inducing without ever being pregnant
+				if prolactinlvl > 75 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end
+				end
+				milkoverdemand = 0
+			elseif milkoverdemand >= 0 and pregchem > 0 and tits < 11:
+				if prolactinlvl > 75 and pregchem < 3000 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! first breast growth with first pregnancy
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				!! there is little chance your breast grow additional sizes if you have more kids.
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
+					if first_preg_growth > total_preg_growth:
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					else
+						if rand(0,100) > 95:
+							total_preg_growth += 1
+							if total_preg_growth > total_milkinduce_growth: nbsize += 1
+						end
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and pregchem =< 3000 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart
+			end
+			milkgrowday = daystart
+		else
+			milkgrowday = daystart
+		end
+	elseif lactate > 0 and milkoverdemand => 0 and prolactinlvl >= 0:
+		lactatemm = func('lact_lib','$calc_lactatemm')
+		!! checking if induced or not and if girl went through pregnancy already.
+		if lactateinduced > 0 and kid <= 0:
+			if milkgrowday < daystart:
+				!! first breast growth with first pregnancy
+				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				end
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/20
+					if  temp_var > 120:
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				elseif milkoverdemand = 0 and breastpumped = 0:
+					if lactaterate > 0 and pregchem >=0:
+						temp_var = lactaterate/4
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						nbsize -= total_milkinduce_growth
+						'You notice that you stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		else
+			if milkgrowday < daystart:
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/10
+					if  temp_var > rand(150,200):
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know :D
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				else
+					if lactaterate > 0 and pregchem >= 0:
+						temp_var = lactaterate/8
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						milkoverdemand = 0
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						if total_milkinduce_growth > 0: nbsize -= total_milkinduce_growth
+						if total_preg_growth > 0:
+							nbsize -= total_preg_growth
+							nbsize += first_preg_growth/2
+						end
+						total_milkinduce_growth = 0
+						milkoverdemand = 0
+						'You stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		end
+		milkgrowday = daystart
+	end
+
+	if cycle <= 0:
+		gs 'femcyc', 'cyc0'
+	elseif cycle = 1:
+		gs 'femcyc', 'cyc1'
+	elseif cycle = 2:
+		gs 'femcyc', 'cyc2'
+	elseif cycle = 3:
+		gs 'femcyc', 'cyc3'
+	elseif cycle = 4:
+		gs 'femcyc', 'cyc4'
+	elseif cycle = 5:
+		gs 'femcyc', 'preg'
+	end
+
+	dynamic $d_cycreport_update
+end
+
+
+!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
+
+if $ARGS[0] = 'cyc0':
+	if mesec <= 0:
+		lastmens = daystart
+		cycle = 1
+		mesec = 0
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH += EggRH
+	else
+		mesec -= 1
+		FocH += 1
+	end
+end
+
+
+!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
+
+if $ARGS[0] = 'cyc1':
+	FertEgg = 0
+	if FocH <= FocH_Max:
+		if pillcon <= 7000: EggRH += 1
+		if rand(0,9) = 0: EggRH += 1
+		FocH += 1
+		temprand = rand(0,9) - sterileov + tempovbonus
+		if temprand < 0:
+			EggRH -= 1
+		elseif temprand > 9:
+			EggRH += 1
+		end
+	else
+		!! the setting of the max_time can be here although it can be changed in the future
+		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
+		Temprand = rand(0,20)
+		Temprand += age/15
+		Temprand -= pillcon/1000
+		if temprand > 20:
+			EggRH += 205
+			Temprand = rand(0,20)
+			Temprand += age/15
+			if temprand > 20: EggRH += 410
+		end
+		FocH = 0
+		Ovulate = 24 + rand(0,20)
+		cycle = 2
+		ferteggage = 0
+	end
+end
+
+
+!!{Fertilization.}
+
+if $ARGS[0] = 'cyc2':
+	can_sz = arrsize('$cumarrnam')
+	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
+		KILLVAR 'cumtime'
+		KILLVAR 'cumfthname'
+		KILLVAR '$wombpotfath'
+		$cumfthname[0] = 'unknown'
+		cumtime[0] = 0
+		can_idx = 0
+		cum_total = 0
+!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
+		:FatherCumAnalyze
+			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array.
+			!! If exists, just increase the amount of cum in the womb.
+
+			!! $wombDNA: sperm in womb potent enough to cause pregnancy
+			!! wombAmount: how potent is the sperm of a guy
+			!! $wombName: the name of the NPC
+			y = arrsize('$wombDNA')
+			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
+				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
+				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+				wombAmount[y] = cumarrcpt[can_idx]
+				$wombName[y] = $cumarrnam[can_idx]
+
+			else
+				!! This DNA is in the womb, but does it belong to the same guy?
+				x = 0
+				z = 0
+				:LocalizeLoop
+					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
+				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
+				killvar 'x'
+				if z = 0:
+					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
+					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+					$wombName[y] = $cumarrnam[can_idx]
+					wombAmount[y] = cumarrcpt[can_idx]
+				end
+				killvar 'z'
+			end
+			killvar 'y'
+
+			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
+
+			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
+			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
+				!! If guy is recorded already, increase his cumtime, else record him for the first time.
+				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
+					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
+					cumtime[arrsize('$cumfthname')] = 1
+				else
+					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
+				end
+			end
+
+			cum_total += cumarrcpt[can_idx]
+
+		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
+
+		!! setting the default believed father if there is no difficult choice or there is no choice
+		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
+			$wombpotfath[0] = $cumfthname[1]
+		elseif arrsize('$cumfthname') = 1:
+			$wombpotfath[0] = $cumfthname[0]
+		end
+
+!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
+		KILLVAR '$cumfathlotto'
+		cfw_idx = 0
+		cfw_sz = arrsize('wombAmount')
+		:FathLottoLoop
+		if cfw_idx < cfw_sz:
+			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
+			if cfl_ct < 1: cfl_ct = 1
+			cfl_idx = arrsize('$cumfathlotto')
+			:FathLottoAdd
+			if cfl_ct > 0:
+				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
+				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
+				cfl_idx += 1
+				cfl_ct -= 1
+				jump 'FathLottoAdd'
+			end
+			cfw_idx += 1
+			jump 'FathLottoLoop'
+		end
+		killvar '$wombDNA'
+		killvar '$wombName'
+		killvar 'wombAmount'
+		cfl_sz = arrsize('$cumfathlotto')
+
+		egg_idx = 0
+		egg_sz = UnfertEgg
+		if cheat_NoPregnancy = 1:egg_idx = egg_sz
+		:FertLoop
+		if egg_idx < egg_sz:
+!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
+			fert_thresh = rand(1,250000)
+			if pillcon < 0: pillcon = 0
+			!!fert_thresh += pillcon
+			if steriletu = 1: fert_thresh += fert_thresh*30
+			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
+			if fert_thresh <= cum_total:
+				lotto_idx = rand(0, cfl_sz-1)
+				UnfertEgg -= 1
+				FertEgg += 1
+				nextbaby = arrsize('$ChildFath')
+				polkid[nextbaby] = rand(0, 1)
+				$kidname[nextbaby] = 'unborn'
+				kidage[nextbaby] = 0
+				daykid[nextbaby] = 0
+				monthkid[nextbaby] = 0
+				yearkid[nextbaby] = 0
+				Babyptype[nextbaby] = 0
+				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
+				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
+				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
+				if arrsize('$wombpotfath') = 1:
+					$ChildThFath[nextbaby] = $wombpotfath[0]
+				else
+					$ChildThFath[nextbaby] = 'unknown'
+				end
+				hairkid[nextbaby] = rand(0, 3)
+				eyeskid[nextbaby] = rand(0, 3)
+				ChildConType[nextbaby] = cumarrcon[nextbaby]
+				if fertegg > 1:
+					$childtype[nextbaby] = 'paternal twin'
+					$childtype[nextbaby-1] = 'paternal twin'
+				else
+					$childtype[nextbaby] = ''
+				end
+			end
+			egg_idx += 1
+			jump 'FertLoop'
+		end
+		killvar 'temp'
+		tempovbonus = 0
+	end
+
+!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
+	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
+	:OviLoop
+	If EggRH > ((UnfertEgg + FertEgg) * 150):
+		UnfertEgg += 1
+		EggRH -= (200 * UnfertEgg)
+		jump 'OviLoop'
+	end
+	If ovulate <= 0:
+		cycle = 3
+		UnfertEgg = 0
+	end
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	Ovulate -= 1
+	LutH += 1
+end
+
+
+!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
+!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+
+if $ARGS[0] = 'cyc3':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	implant_idx = 0
+	implant_sz = arrsize('Babyptype')
+
+	:implant_loop
+	if implant_idx < implant_sz:
+
+		if Babyptype[implant_idx] = 0:
+			imp_rand = rand(0,120000)
+
+			if ferteggage < 120 and broodcurse <= 0:
+				imp_rand += 170
+				imp_rand -= age * 10
+				if steriletu = 1: imp_rand -= 200
+
+				if imp_rand <= 0:
+					Babyptype[implant_idx] = 2
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+
+			else
+				imp_rand += sterilewb
+				imp_rand -= tempwbbonus
+				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
+
+				if imp_rand <= (1200 - (age * 7)):
+					Babyptype[implant_idx] = 1
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+				tempwbbonus = 0
+
+			end
+
+		end
+
+		implant_idx += 1
+		jump 'implant_loop'
+
+	end
+
+!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
+	if LutH > LutH_Max:
+		rej_idx = 0
+		rej_sz = arrsize('Babyptype')
+		:lutcycloop
+		if rej_idx < rej_sz:
+			if Babyptype[rej_idx] = 0:
+				KILLVAR 'polkid',tempbabyi
+				KILLVAR '$kidname',tempbabyi
+				KILLVAR 'kidage',tempbabyi
+				KILLVAR 'daykid',tempbabyi
+				KILLVAR 'monthkid',tempbabyi
+				KILLVAR 'yearkid',tempbabyi
+				KILLVAR 'Babyptype',tempbabyi
+				KILLVAR '$ChildFath',tempbabyi
+				KILLVAR '$ChildThFath',tempbabyi
+				KILLVAR 'hairkid',tempbabyi
+				KILLVAR 'eyeskid',tempbabyi
+				KILLVAR 'cumarrcon',tempbabyi
+				FertEgg -= 1
+			end
+			rej_idx += 1
+			jump 'lutcycloop'
+		end
+		LutH = 0
+		if preg = 1:
+			cycle = 5
+		elseif menoage <= age:
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			cycle = 6
+		else
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			!! the setting of the max_time can be here although it can be changed in the future
+			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+			temprand = rand(0,10)
+			if pillcon >= 38000 or rand(1,24) = 1:
+				EggRH = 0
+				cycle = 1
+				mesec = 0
+			else
+				cycle = 0
+				killvar 'abortionbirthdate'
+				if cyccustom = 1: daylastperiod = daystart
+				firstmens = daystart
+				temprand = rand(0,10)
+				if temprand = 0 and pillcon < 10000:
+					mesec = rand(104,136) & !! 120
+				elseif temprand < 9 and pillcon < 15000:
+					mesec = rand(76,104) & !!  96
+				elseif pillcon < 20000:
+					mesec = rand(52,76) & !! 72
+				else
+					mesec = rand(44,52) & !! 48
+				end
+			end
+		end
+	else
+		if preg = 1:PregChem += 1+pregspeedcheat
+		if rand(0,100) < 100: LutH += 1
+	end
+end
+
+!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
+
+if $ARGS[0] = 'cyc4':
+	if RecovH <= 0:
+		cycle = 1
+		if cyccustom = 1:
+			knowpregloss = 0
+			knowpregrecover = 0
+		end
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH = EggRH
+	else
+		RecovH -= 1
+		if rand(0,10) = 0: RecovH -= 1
+	end
+end
+
+
+!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
+
+if $ARGS[0] = 'preg':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			babyembryo += 1
+			PregChem += rand(10,30)
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	PregChem += (1+pregspeedcheat)
+	temprand = rand(-400,800)
+	temprand -= (babyembryo-1)*588
+	if PregChem > 6573 + temprand and preg ! 2:
+		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
+		$cycreport_txt = 'In labour'
+		arrmodtmp =arrsize('$ChildFath')
+		arrmodtmp -= (babyembryo+1)
+		:babyfinalpreploop
+		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
+			daykid[arrmodtmp] = 42
+			$ChildThFath[arrmodtmp] = $wombthfath
+			arrmodtmp += 1
+			jump 'babyfinalpreploop'
+		end
+		KILLVAR '$wombpotfath'
+		KILLVAR '$wombthfath'
+		preg = 2
+		pregminut = totminut + 1440
+		if babyembryo > 1:
+			'Your babies are coming...'
+		else
+			'Your baby is coming...'
+		end
+		if PregChem < 3885:
+			'Way too early!'
+		elseif PregChem < 5229:
+			'Very early!'
+		elseif PregChem < 6069:
+			'Early.'
+		elseif PregChem > 6959:
+			'Late.'
+		elseif PregChem > 7245:
+			'Very Late!'
+		end
+		'You need to get to a clinic.'
+	end
+	if PregChem > 3887:
+		if lactate <= 0:
+			'You begin lactating'
+			lactate = 1
+			lactatemv = 0
+			lactatemm = func('lact_lib','$calc_lactatemm')
+			lacaterate = 10
+			prolactinlvl = 150
+		else
+			if lactate < 1: lactate = 1
+		end
+	end
+	if PregChem > 1000:
+		if prolactinlvl < 100 and lactate <= 0:
+			if rand(0,100) > 50:
+				prolactinlvl +=1
+			end
+		end
+	end
+	if PregChem > 2203:
+		if pregchem > 2853 or kid > 0:
+			if rand(0,7) = 0: dynamic $d_pregmovement
+		else
+			if rand(0,500) = 0: dynamic $d_pregmovement
+		end
+	end
+end
+
+--- femcyc ---------------------------------
+

locations/flash.qsrc

@@ -0,0 +1,215 @@
+# flash
+
+!!Centralised flashing location
+!!For flashing events only, do not use for exposure leading to sex
+!!To be used in the following format
+!!gs 'flash', '[type]', '[location]', [time]
+!![time] in minutes, default is 0
+!!Available options as follows
+!![type] - bra, butt, full, panties, pussy, tits
+!![location] - indoors, outdoors
+!!eg. gs 'flash', 'tits', 'outdoors', 15
+!!There is no continue action so you must add this as required
+!!You should add checks for underwear before allowing the player to flash them but a non-event contingency is included
+
+if $ARGS[0] = 'bra':
+	*clr
+	if Exhibitionist_lvl < 1 or pcs_inhib < 40: gs 'exhibitionism', 1
+	gs 'arousal', 'flashlite', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/bra/' + rand(1,3) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/bra/' + rand(1,3) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/bra/' + rand(1,6) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/bra/' + rand(1,4) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'tits':
+	*clr
+	gs 'exhibitionism', 1
+	gs 'arousal', 'flashlite', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/tits/' + rand(1,8) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/' + rand(1,12) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/tits/' + rand(1,8) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/' + rand(1,14) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'panties':
+	*clr
+	gs 'exhibitionism', 2
+	gs 'arousal', 'flash', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/panty/' + rand(1,4) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/panty/' + rand(1,16) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/panty/1.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/panty/' + rand(1,6) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'pussy':
+	*clr
+	gs 'exhibitionism', 3
+	gs 'arousal', 'flash', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pussy/' + rand(1,7) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
+			end
+			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		else
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/' + rand(1,13) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/hairy' + rand(1,6) + '.jpg"></center>'
+			end
+			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/' + rand(1,4) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/hairy' + rand(1,3) + '.jpg"></center>'
+			end
+			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		else
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/' + rand(1,9) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
+			end
+			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'panties_rear':
+	*clr
+	gs 'exhibitionism', 2
+	gs 'arousal', 'flash', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/pantyrear/' + rand(1,4) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pantyrear/' + rand(1,16) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pantyrear/1.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pantyrear/' + rand(1,6) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'butt':
+	*clr
+	gs 'exhibitionism', 2
+	gs 'arousal', 'flash', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/butt/' + rand(1,7) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/butt/' + rand(1,9) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/butt/' + rand(1,6) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		else
+			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/butt/' + rand(1,16) + '.jpg"></center>'
+			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
+		end
+	end
+end
+
+if $ARGS[0] = 'full':
+	*clr
+	gs 'exhibitionism', 3
+	gs 'arousal', 'flash', ARGS[2]
+	gs 'arousal', 'end'
+	if PCloSkirt > 0:
+		if $ARGS[1] = 'inside':
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/full/' + rand(1,5) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/inside/full/hairy' + rand(1,6) + '.jpg"></center>'
+			end
+			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
+		else
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/full/' + rand(1,11) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/full/hairy' + rand(1,10) + '.jpg"></center>'
+			end
+			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
+		end
+	else
+		if $ARGS[1] = 'inside':
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/1.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/hairy1.jpg"></center>'
+			end
+			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
+		else
+			if pcs_pubes <= 20:
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/' + rand(1,7) + '.jpg"></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/hairy' + rand(1,6) + '.jpg"></center>'
+			end
+			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
+		end
+	end
+end
+
+--- flash ---------------------------------

locations/foto.qsrc

@@ -411,10 +411,12 @@ if $ARGS[0] = 'interview':
 			howoldareyou = 2
 			'	I''m <<age>>.'
 			'	"I see. Alright, undress. Let me take a look at you."'
+			gs 'foto', 'interview_undress'
 		elseif fakepassport = 1:
 			howoldareyou = 2
 			'	"I''m 18."'
 			'	"I see. Alright, undress. Let me take a look at you."'
+			gs 'foto', 'interview_undress'
 		else
 			act 'Tell the truth':
 				age_truth = 1
@@ -429,74 +431,79 @@ if $ARGS[0] = 'interview':
 				gs'foto','interview'
 			end
 		end
-	elseif howoldareyou > 0:
-		if howoldareyou = 1:
-			howoldareyou = 2
-			if age_truth = 1 or age >= 18:
-				'	"I''m <<age>>."'
-				'	"I see. Alright, undress. Let me take a look at you."'
-			elseif fakepassport = 1:
-				'	"I''m 18."'
-				'	"I see. Alright, undress. Let me take a look at you."'
-			end
+	else
+		howoldareyou = 2
+		if age_truth = 1 or age >= 18:
+			'	"I''m <<age>>."'
+			'	"I see. Alright, undress. Let me take a look at you."'
+			gs 'foto', 'interview_undress'
+		elseif fakepassport = 1:
+			'	"I''m 18."'
+			'	"I see. Alright, undress. Let me take a look at you."'
+			gs 'foto', 'interview_undress'
 		end
-		if undress_ask = 0:
-			act'What? Why?':
-				undress_ask = 1
-				*clr
-				gs'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
-				'	"What?? Why?"'
-				'	"Hmm? This is a modelling studio. That means sometimes we dress our models up in skimpy clothes and lingerie. Our studio is also popular for its nude spreads. You don''t necessarily need to do shoots with nudity, but you need to have your body inspected to make sure you match the criteria for working here."'
-			end
+	end
+end
+
+if $ARGS[0] = 'interview_undress':
+	if undress_ask = 0:
+		act'What? Why?':
+			undress_ask = 1
+			*clr
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
+			'	"What?? Why?"'
+			'	"Hmm? This is a modelling studio. That means sometimes we dress our models up in skimpy clothes and lingerie. Our studio is also popular for its nude spreads. You don''t necessarily need to do shoots with nudity, but you need to have your body inspected to make sure you match the criteria for working here."'
+			gs 'foto', 'interview_undress'
 		end
-		if why_here = 0:
-			act'Right here?':
-				why_here = 1
-				*clr
-				gs'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
-				'	"Right here?" you ask. "Shouldn''t we be doing this in some kind of interview room or something?"'
-				'	"Might as well be here," he shrugs. "If you want to work here, we have a dress code policy for the models."'
-				'	"So? What does that have to do with me getting naked in the middle of a workplace?"'
-				'	"The policy is that models don''t wear clothes while on the premises. It makes the logistics of dressing and undressing them for shoots easier. Come on. You want to work for a modelling studio that specializes in nude spreads. Don''t get shy about showing your body to a few people here when you might be on a magazine cover showing it to the entire country. Now are you going to undress so I can do my job or are you going to keep wasting my time here?"'
-			end
+	end
+	if why_here = 0:
+		act'Right here?':
+			why_here = 1
+			*clr
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
+			'	"Right here?" you ask. "Shouldn''t we be doing this in some kind of interview room or something?"'
+			'	"Might as well be here," he shrugs. "If you want to work here, we have a dress code policy for the models."'
+			'	"So? What does that have to do with me getting naked in the middle of a workplace?"'
+			'	"The policy is that models don''t wear clothes while on the premises. It makes the logistics of dressing and undressing them for shoots easier. Come on. You want to work for a modelling studio that specializes in nude spreads. Don''t get shy about showing your body to a few people here when you might be on a magazine cover showing it to the entire country. Now are you going to undress so I can do my job or are you going to keep wasting my time here?"'
+			gs 'foto', 'interview_undress'
 		end
-		if pcs_inhib >= 40:
-			act 'Do as he says':
-				*clr & cla
-				gs 'clothing', 'strip'
-				gs 'underwear', 'remove'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-				'	You take off your clothes and leave them on the floor while the photographer examines you.'
-				'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
-				'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
-				act'Continue':gt'foto','job_offer'
-			end
-		elseif pcs_inhib >= 15:
-			act'Reluctantly undress':
-				reluctant_undress = 1
-				*clr & cla
-				gs 'clothing', 'strip'
-				gs 'underwear', 'remove'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-				'	You take a deep breath and begin to take off your clothes. As long as it''s just this one time, you can handle it for now. You leave them on the floor while the photographer examines you.'
-				!if pcs_inhib <= 20'	You instinctively cover up as he steps closer, your hands trying to shield your nipples and pussy.'
-				'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
-				'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
-				'	<i>This is so embarrassing!</i>'
-				act'Continue':gt'foto','job_offer'
-			end
+	end
+	if pcs_inhib >= 40:
+		act 'Do as he says':
+			*clr & cla
+			gs 'clothing', 'strip'
+			gs 'underwear', 'remove'
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
+			'	You take off your clothes and leave them on the floor while the photographer examines you.'
+			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
+			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
+			act'Continue':gt'foto','job_offer'
 		end
-		act'I can''t do it':
+	elseif pcs_inhib >= 15:
+		act'Reluctantly undress':
+			reluctant_undress = 1
 			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-			'	Even if it''s just this one time, you can''t do it after all. It''s simply too embarrassing to get naked in front of a total stranger. You blush, apologize, and leave the studio.'
-			act 'Leave': minut += 1 & gt 'down'
+			gs 'clothing', 'strip'
+			gs 'underwear', 'remove'
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
+			'	You take a deep breath and begin to take off your clothes. As long as it''s just this one time, you can handle it for now. You leave them on the floor while the photographer examines you.'
+			!if pcs_inhib <= 20'	You instinctively cover up as he steps closer, your hands trying to shield your nipples and pussy.'
+			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
+			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
+			'	<i>This is so embarrassing!</i>'
+			act'Continue':gt'foto','job_offer'
 		end
 	end
+	act'I can''t do it':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+		'	Even if it''s just this one time, you can''t do it after all. It''s simply too embarrassing to get naked in front of a total stranger. You blush, apologize, and leave the studio.'
+		act 'Leave': minut += 1 & gt 'down'
+	end
 end
 
 
@@ -570,7 +577,7 @@ if $ARGS[0] = 'job_offer':
 				end
 			end
 
-			if pcs_exhibition >= 40:
+			if exhibitionist_lvl > 1:
 				act 'Tell him the truth and tell him how horny this job makes you':
 					*clr & cla
 					pcs_horny += 90
@@ -721,44 +728,47 @@ if $ARGS[0] = 'showers':
 			act 'Use the shower head on your pussy':
 				cla
 				*clr
-				minut += 10
-				exhibition_exp += 10
-				gs 'arousal','masturbate', 5
+				gs 'exhibitionism', 1
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
 				*nl
 				'Despite the openness of the shower area, you can''t help yourself and place the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers.'
 
-				if pcs_horny >= 90:
-					pcs_horny = 0
-					if pcs_exhibition < 50:
-						exhibition_exp += 1
-						orgasm += 1
-						pcs_mood += 15
-						pcs_willpwr += 15
-						'Soon you feel a warm wave spreading over your entire body and you shudder as an orgasm overtakes you. You quickly look around hoping no one noticed your public masturbation session.'
-						act 'Dry off':gt 'foto', 'showers'
-					else
-						exhibition_exp += 8
-						orgasm += 1
-						pcs_mood += 15
-						pcs_willpwr += 15
-						pcs_horny = 40
-						'You loudly groan as you shudder in orgasm, uncaring if anyone notices what you''re up to. In fact, it kind of turns you on and makes you want to keep going...'
-						act 'Dry off':gt 'foto', 'showers'
-					end
-				else
-					pcs_horny += 5
-					pcs_mood += 10
-					pcs_willpwr += 10
-					'At first it feels very nice, but after a while you become self conscious of how long you''ve been masturbating in the public staff showers. You think maybe it''s time to stop.'
-					act 'Dry off':gt 'foto', 'showers'
-				end
 				if hypnoAddict > 0:
+					minut += 10
 					'You unconsciously avoid spraying water into your vagina.'
 				else
-					cumspclnt = 8
-					gs 'cum_cleanup'
+					if pcs_horny >= 70:
+						if exhibitionist_lvl > 0:
+							gs 'exhibitionism', 1
+							pcs_mood += 15
+							pcs_willpwr += 15
+							$orgasm_or = 'yes'
+							$orgasm_txt = 'Soon you feel a warm wave spreading over your entire body and you shudder as an orgasm overtakes you. You quickly look around hoping no one noticed your public masturbation session.'
+							gs 'arousal','masturbate', 10
+							gs 'arousal', 'end'
+							act 'Dry off':gt 'foto', 'showers'
+						else
+							gs 'exhibitionism', 2
+							pcs_mood += 15
+							pcs_willpwr += 15
+							$orgasm_or = 'yes'
+							$orgasm_txt = 'You loudly groan as you shudder in orgasm, uncaring if anyone notices what you''re up to. In fact, it kind of turns you on and makes you want to keep going...'
+							gs 'arousal','masturbate', 10
+							gs 'arousal', 'end'
+							act 'Dry off':gt 'foto', 'showers'
+						end
+					else
+						pcs_horny += 5
+						pcs_mood += 10
+						pcs_willpwr += 10
+						'At first it feels very nice, but after a while you become self conscious of how long you''ve been masturbating in the public staff showers. You think maybe it''s time to stop.'
+						gs 'arousal','masturbate', 10
+						gs 'arousal', 'end'
+						act 'Dry off':gt 'foto', 'showers'
+					end
 				end
+				cumspclnt = 8
+				gs 'cum_cleanup'
 			end
 		end
 
@@ -799,7 +809,7 @@ if $ARGS[0] = 'krystalshower':
 		pcs_horny += 15
 		pcs_hairbsh = 0
 		pcs_makeup = 1
-		exhibition_exp += 10
+		gs 'exhibitionism', 1
 		dynamic $showerdin
 		'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video><video autoplay loop src="images/characters/pavlovsk/resident/kolka/event/shower/BroShower.mp4"></video></center>'
 		'	You step into a stall and turn on the shower, trying your best to ignore what is going on while Krystal starts getting fucked from behind.'
@@ -807,24 +817,25 @@ if $ARGS[0] = 'krystalshower':
 			act 'Use the shower head on your pussy':
 				cla
 				*clr
-				pcs_horny = 0
-				minut += 10
-				exhibition_exp += 15
+				gs 'exhibitionism', 2
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/portraits/krystal_b/showerfuck.mp4"></video></center>'
 				*nl
 				'	Her boyfriend pushes her against the wall and pulls her leg up to get deep inside her. Krystal''s moans and the sound of cock slamming into her pussy are too much for you and you can''t stop yourself from placing the shower head between your legs, massaging your pussy with powerful jets of warm water and fingers.'
 				'	Your voices start to sync together, echoing out of the stalls in perfect time with each other.'
+				gs 'arousal','masturbate', 5
 				act 'Continue':
 					cla & *clr
 					stat['mast'] += 1
-					if pcs_exhibition < 50:
-					orgasm += 1
-					pcs_mood += 15
-					pcs_willpwr += 15
-					exhibition_exp +=10
-					'<center><video autoplay loop src="images/locations/city/citycenter/photo/portraits/krystal_b/showercum.mp4"></video></center>'
-					'	Her boyfriend pulls out of her and she jacks him off furiously until he spatters her belly with his cum.'
-					'	You feel a warm wave spreading over your entire body and orgasm, biting your lip hard to suppress the scream that wants to come out. You can''t believe that you just masturbated in the studio showers to Krystal having shower sex with her boyfriend...'
+					if exhibitionist_lvl < 2:
+						pcs_mood += 15
+						pcs_willpwr += 15
+						gs 'exhibitionism', 1
+						'<center><video autoplay loop src="images/locations/city/citycenter/photo/portraits/krystal_b/showercum.mp4"></video></center>'
+						'	Her boyfriend pulls out of her and she jacks him off furiously until he spatters her belly with his cum.'
+						$orgasm_or = 'yes'
+						$orgasm_txt = '	You feel a warm wave spreading over your entire body and orgasm, biting your lip hard to suppress the scream that wants to come out. You can''t believe that you just masturbated in the studio showers to Krystal having shower sex with her boyfriend...'
+						gs 'arousal','masturbate', 5
+						gs 'arousal', 'end'
 						act 'Dry off':
 							cla & *clr
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/bath_voyer_3.jpg"></center>'
@@ -834,13 +845,14 @@ if $ARGS[0] = 'krystalshower':
 							act'Leave':gt 'foto', 'studio'
 						end
 					else
-						orgasm += 1
 						pcs_mood += 15
 						pcs_willpwr += 15
-						pcs_horny = 40
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/portraits/krystal_b/showercum.mp4"></video></center>'
 						'	Her boyfriend pulls out of her and she jacks him off furiously until he spatters her belly with his cum.'
-						'	You loudly groan as you shudder in orgasm, relishing the beautiful image of Krystal''s boyfriend''s cum all over her.'
+						$orgasm_or = 'yes'
+						$orgasm_txt = '	You loudly groan as you shudder in orgasm, relishing the beautiful image of Krystal''s boyfriend''s cum all over her.'
+						gs 'arousal','masturbate', 5
+						gs 'arousal', 'end'
 						act 'Dry off':
 							cla & *clr
 							'<center><video autoplay loop src="images/characters/pavlovsk/resident/vladimir/sex/bath_voyer_2.mp4"></video></center>'
@@ -856,7 +868,7 @@ if $ARGS[0] = 'krystalshower':
 			end
 		end
 
-		if pcs_exhibition > 50:
+		if exhibitionist_lvl > 1:
 			act 'Dry off':
 				cla & *clr
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/portraits/krystal_b/showerfuck.mp4"></video></center>'
@@ -957,11 +969,10 @@ if $ARGS[0] = 'practicemodel':
 					mdlng_exp += rand(3,5)
 					fashionshoot = rand(1,4)
 					gs 'stat'
-					if fashionshoot = 1:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion.mp4"></video></center>'
-					if fashionshoot = 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion2.mp4"></video></center>'
-					if fashionshoot = 3:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion3.jpg"></center>'
-					if fashionshoot < 4:'	You dress up in the latest in fashion wear and spend the next two hours posing for the photographer.'
-					if fashionshoot = 4:
+					if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+					if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
+					if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
+					if fashionshoot = 5:
 						'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion4.mp4"></video></center>'
 						'	You spend the next two hours putting on various dresses, practicing modelling for the online catalogs of retail clothing stores. Apparently for consistency they want you to have the exact same expression on your face every time, so you spend most of the time practicing that.'
 					end
@@ -1462,8 +1473,36 @@ if $ARGS[0] = 'practicemodel':
 					end
 				end
 			end
+			
+			
+			
+				
+					cla
+					act 'Not for me':gt 'foto','studio'
 
-			act 'Nude with covered genitals':
+					act 'Agree (2:00)':
+						*clr & cla
+						minut += 120
+						modelpayfin = 0
+						mdlng_exp += rand(8,10)
+						inhib_exp += 4
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
+						'	You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
+						*nl
+						'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
+						*nl
+						if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
+						if pcs_mdlng >= 40 and commercial = 0:
+							act 'Leave':gt'foto','commercial'
+						else
+							act 'Leave':gt 'foto', 'end'
+						end
+					end
+				end
+			end
+			
+			act 'Transparent Lingerie':
 				cla
 				act 'Not for me':gt 'foto','studio'
 
@@ -1473,17 +1512,17 @@ if $ARGS[0] = 'practicemodel':
 						minut += 120
 						modelpayfin = 0
 						mdlng_exp += 1
-						inhib_exp += rand(3,5)
+						inhib_exp += rand(1,2)
 						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model6.mp4"></video></center>'
-						'	It''s okay... It''s a nude shoot but you don''t have to show your pussy. That makes it just like a topless so it''s fine right? A topless shoot except with more of your legs exposed... Or almost completely exposed...'
-						'	You pick up the prop you''re using and spend the next two hours taking photos in various poses for a photographer.'
+						'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
+						'	It''s okay... It''s just like a normal lingerie shoot... Except that your nipples will be clearly visible. That makes it just like a topless so it''s fine right? Even though the transparent lace feels more exposing than being topless...'
+						'	You slip into the lacy underwear and spend the next two hours practicing poses with the photographer.'
 						if pcs_mdlng < 20:
 							act'Continue':
 								cla
 								*nl
-								'	You keep your crotch covered with your hands or props during the shoot. The urge to use them to cover up completely is almost irresistible but you have to power through this if you want to do this kind of work. You must be bold!'
-								'	That being said, you''re having a difficult time of it and you can tell you aren''t doing a very good job.'
+								'	Each time the camera clicks, you give a small yelp, shielding your nipples from the flash that threatens to highlight them by turning your back. The sighs of the photographer from behind the camera are very audible.'
+								'	You''re going to have to work on your basic confidence as a model if you want to start confronting your confidence in your own body.'
 								act'Continue':
 									*clr & cla
 									*nl
@@ -1496,8 +1535,11 @@ if $ARGS[0] = 'practicemodel':
 							act'Continue':
 								*clr & cla
 								*nl
+								inhib_exp += rand(1,3)
 								'<center><video autoplay loop src="images/locations/city/citycenter/photo/modelbts2.mp4"></video></center>'
 								'	The practice shoot ends and he calls you over to his computer to show you what you need to work on.'
+								*nl
+								'	You have the discipline to not turn or shy your body away from the camera to hide yourself, but your expressions are very rigid and sometimes awkward. Maybe you need to work more on your confidence in your body before you''ll be able to progress here.'
 								if pcs_mdlng >= 40 and commercial = 0:
 									act 'Leave':gt'foto','commercial'
 								else
@@ -1514,13 +1556,13 @@ if $ARGS[0] = 'practicemodel':
 						mdlng_exp += rand(8,10)
 						inhib_exp += 4
 						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/citycenter/photo/model6.mp4"></video></center>'
-						'	You step onto the set spend the next two hours taking photos in various poses for a photographer, keeping your pussy covered with hands, props, or carefully crossed legs.'
+						'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
+						'	You put on some lacy underwear and spend the next two hours practicing poses with the photographer.'
 						if pcs_mdlng < 20:
 							act'Continue':
 								cla
 								*nl
-								'	As the shoot progresses, you find it difficult to use what you have as coverage in a way that is still sexy or good for the camera. You probably need more practice.'
+								'	As the shoot progresses, you find it difficult surprisingly difficult to use the lingerie to your advantage. Despite its inherent seductiveness, there are certain poses and postures that you need to be in to fully accentuate what you''re trying to show off underneath. You probably need more practice.'
 								act'Continue':
 								*clr & cla
 								*nl
@@ -1546,91 +1588,8 @@ if $ARGS[0] = 'practicemodel':
 				end
 			end
 
-			act 'Nude with stockings':
-				cla
-				act 'Not for me':gt 'foto','studio'
 
-				if pcs_inhib < 60:
-					act 'Practice (2:00)':
-					*clr & cla
-					minut += 120
-					modelpayfin = 0
-					mdlng_exp += 1
-					inhib_exp += rand(4,6)
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/model2.jpg"></center>'
-					'	This is it... If you want to be a top model you''re going to have to be willing to show what''s between you legs on camera... This is a necessary step for moving forward... but that doesn''t make it easy either...'
-					'	You go to the changing room and pull up some stockings. Even though it doesn''t cover any of your privates, it''s somehow comforting to be wearing something instead of being completely nude.'
-					'	You spend the next two hours with a photographer taking photos in poses that accentuate your breasts and pussy.'
-						if pcs_mdlng < 20:
-							act'Continue':
-								cla
-								*nl
-								'	You''re panicking and it''s showing through to the photographer. The idea of doing this for real and having pictures of your vagina on display in magazines and the internet for people to see horrifies you. Over the course of the session, the photographer helps you find ways to relax and be more comfortable in the nude, but you don''t think your skill as a model has improved very much.'
-								act'Continue':
-									*clr & cla
-									*nl
-									'<center><video autoplay loop src="images/locations/city/citycenter/photo/modelbts2.mp4"></video></center>'
-									'	The practice shoot ends and he calls you over to his computer to show you what you need to work on.'
-									act 'Leave':gt 'foto', 'end'
-								end
-							end
-						else
-							act'Continue':
-								*clr & cla
-								*nl
-								'<center><video autoplay loop src="images/locations/city/citycenter/photo/modelbts2.mp4"></video></center>'
-								'	The practice shoot ends and he calls you over to his computer to show you what you need to work on.'
-								if pcs_mdlng >= 40 and commercial = 0:
-									act 'Leave':gt'foto','commercial'
-								else
-									act 'Leave':gt 'foto', 'end'
-								end
-							end
-						end
-					end
-				else
-					act 'Practice (2:00)':
-						*clr & cla
-						minut += 120
-						modelpayfin = 0
-						mdlng_exp += rand(8,10)
-						inhib_exp += 2
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/model2.jpg"></center>'
-						'	You go to the changing room and pull up some stockings.'
-						'	You spend the next two hours with a photographer taking photos in poses that accentuate your breasts and pussy.'
-						if pcs_mdlng < 20:
-							act'Continue':
-								cla
-								*nl
-								'	You''re having difficulty getting in the poses the photographer wants you in. The stockings can be slippery sometimes and it''s hard finding ways to use them to amplify your own beauty. This will take some getting used to.'
-								act'Continue':
-									cla & *clr
-									*nl
-									'<center><video autoplay loop src="images/locations/city/citycenter/photo/modelbts2.mp4"></video></center>'
-									'	The practice shoot ends and he calls you over to his computer to show you what you need to work on.'
-									act 'Leave':gt 'foto','end'
-								end
-							end
-						else
-							act'Continue':
-								cla & *clr
-								*nl
-								'<center><video autoplay loop src="images/locations/city/citycenter/photo/modelbts2.mp4"></video></center>'
-								'	The practice shoot ends and he calls you over to his computer to show you what you need to work on.'
-								if pcs_mdlng >= 40 and commercial = 0:
-									act 'Leave':gt'foto','commercial'
-								else
-									act 'Leave':gt 'foto', 'end'
-								end
-							end
-						end
-					end
-				end
-			end
-
-			act 'Completely nude':
+			act 'Nude':
 				cla
 				act 'Maybe not today':gt 'foto','studio'
 
@@ -1858,18 +1817,17 @@ if $ARGS[0] = 'model':
 				mdlng_exp += rand(5,8)
 				city_modelling += rand(7,12)
 				pav_modelling += rand(1,city_modelling)/10
-				fashionshoot = rand(1,4)
+				fashionshoot = rand(1,5)
 				gs 'stat'
-				if fashionshoot = 1:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion.mp4"></video></center>'
-				if fashionshoot = 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion2.mp4"></video></center>'
-				if fashionshoot = 3:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion3.jpg"></center>'
-				if fashionshoot < 4:'	You dress up in the latest in fashion wear and spend the next two hours posing for the photographer.'
-				if fashionshoot = 4:
-					'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion4.mp4"></video></center>'
+				if fashionshoot <= 2:'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion<<rand(1,2>>.mp4"></video></center>'
+				if fashionshoot >= 3 and fashionshoot < 5:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fashion<<rand(1,3)>>.jpg"></center>'
+				if fashionshoot < 5:'	You dress up in the latest in fashion wear and spend the next two hours sexily posing for the photographer.'
+				if fashionshoot = 5:
+					'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
 					'	You spend the next two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
 				end
 				*nl
-				'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				act 'Leave':gt 'foto', 'end'
 			end
 		end
@@ -1947,7 +1905,8 @@ if $ARGS[0] = 'model':
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/model1.jpg"></center>'
 					'	You dress up in sexy clothes and spend the next two hours posing for the photographer.'
-					'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+					*nl
+					'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 					act 'Leave':gt 'foto', 'end'
 				end
 			end
@@ -1971,9 +1930,10 @@ if $ARGS[0] = 'model':
 					pav_modelling += rand(0,city_modelling)/10
 					inhib_exp += 2
 					gs 'stat'
-					'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie.mp4"></video></center>'
+					'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie<<rand(1,2)>>.mp4"></video></center>'
 					'	You put on some sexy lingerie and spend the next two hours striking various poses for a photographer.'
-					'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+					*nl
+					'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 					if pcs_mdlng >= 40 and commercial = 0:
 						act 'Leave':gt'foto','commercial'
 					else
@@ -2016,7 +1976,8 @@ if $ARGS[0] = 'nude_shoot':
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/model5.mp4"></video></center>'
 			'	You dressed up in sexy clothes and spend the next two hours striking various poses for a photographer, your nipples occasionally slipping out from behind the clothing.'
-			'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+			*nl
+			'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 			if pcs_mdlng >= 40 and commercial = 0:
 				act 'Leave':gt'foto','commercial'
 			else
@@ -2025,7 +1986,7 @@ if $ARGS[0] = 'nude_shoot':
 		end
 	end
 
-	act 'Transparent clothing that exposes your breasts':
+	act 'Transparent clothing':
 		!!already matched the exhibitionism value above
 		cla
 		act 'Maybe not today':gt 'foto','studio'
@@ -2044,7 +2005,7 @@ if $ARGS[0] = 'nude_shoot':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru1.jpg"><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru2.jpg"></center>'
 			'	You put on a transparent top and spend the next two hours in various poses for the photographer, a flash highlighting your breasts with every click of the camera.'
 			*nl
-			'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+			'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 			if pcs_mdlng >= 40 and commercial = 0:
 				act 'Leave':gt'foto','commercial'
 			else
@@ -2074,7 +2035,8 @@ if $ARGS[0] = 'nude_shoot':
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/model4.mp4"></video></center>'
 				'	You put on some pants and omit a top leaving your breasts exposed. You spend the next two hours striking various poses, covering and uncovering your breasts, and listen to instruction while the photographer takes pictures of you.'
-				'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+				*nl
+				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:
 					act 'Leave':gt'foto','commercial'
 				else
@@ -2084,7 +2046,7 @@ if $ARGS[0] = 'nude_shoot':
 		end
 	end
 
-	act 'Nude with covered genitals':
+	act 'Transparent Lingerie':
 		if pcs_inhib < 55:
 			msg'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
 			gt 'foto', 'nude_shoot'
@@ -2097,54 +2059,18 @@ if $ARGS[0] = 'nude_shoot':
 				minut += 120
 				modelpayfin = 800 + (modelpay * 2) + (15*rand(0,7))
 				modelfoto_nip += 1
-				modelfoto_topless += 1
-				modelfoto_nude += 1
+				modelfoto_lingerie += 1
 				mdlng_exp += rand(8,10)
 				city_modelling += rand(9,14)
 				pav_modelling += rand(0,city_modelling)/10
 				inhib_exp += 4
 				gs 'stat'
-				'<center><video autoplay loop src="images/locations/city/citycenter/photo/model6.mp4"></video></center>'
-				'	You step onto the set spend the next two hours taking photos in various poses for a photographer, keeping your pussy covered with hands, props, or carefully crossed legs.'
-				'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+				'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
+				'	You put on some very lacy, very transparent underwear and get to posing, your nipples often showing through the thin fabric.'
 				*nl
-				if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
-				if pcs_mdlng >= 40 and commercial = 0:
-					act 'Leave':gt'foto','commercial'
-				else
-					act 'Leave':gt 'foto', 'end'
-				end
-			end
-		end
-	end
-
-	act 'Nude with stockings':
-		if pcs_inhib < 60:
-			msg'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
-			gt 'foto', 'nude_shoot'
-		else
-			cla
-			act 'Not for me':gt 'foto','studio'
-
-			act 'Agree (2:00)':
-				*clr & cla
-				minut += 120
-				modelpayfin = 800 + (modelpay * 2) + (15*rand(0,7))
-				modelfoto_nip += 1
-				modelfoto_nude += 1
-				modelfoto_pussy += 1
-				mdlng_exp += rand(8,10)
-				city_modelling += rand(10,18)
-				pav_modelling += rand(0,city_modelling)/10
-				inhib_exp += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/model2.jpg"></center>'
-				'	You strip down your clothes and pull up some stockings and spend the next two hours taking photos in various poses for a photographer.'
-				'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
-				'	The majority of photos seem to be focused on your naked breasts and pussy.'
+				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				*nl
 				if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
-
 				if pcs_mdlng >= 40 and commercial = 0:
 					act 'Leave':gt'foto','commercial'
 				else
@@ -2154,7 +2080,8 @@ if $ARGS[0] = 'nude_shoot':
 		end
 	end
 
-	act 'Full nude shoot':
+
+	act 'Nude':
 		if pcs_inhib < 60:
 			msg'You think about asking to do this shoot but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
 			gt 'foto', 'nude_shoot'
@@ -2166,19 +2093,41 @@ if $ARGS[0] = 'nude_shoot':
 				*clr & cla
 				minut += 120
 				modelpayfin = 800 + (modelpay * 2) + (15*rand(0,7))
-				modelfoto_nip += 1
-				modelfoto_topless += 1
 				modelfoto_nude += 1
-				modelfoto_pussy += 1
 				mdlng_exp += rand(9,10)
 				city_modelling += rand(10,20)
 				pav_modelling += rand(0,city_modelling)/4
 				inhib_exp += 5
+				shoot_type = rand(1,3)
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude.jpg"></center>'
-				'	Already naked, you step onto set and begin the shoot immediately.'
-				*nl
-				'	You spend the next two hours posing confidently for a photographer taking full frontal pictures of you. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+				if shoot_type = 1:
+					modelfoto_pussy += 1
+					modelfoto_nip += 1
+					if pcs_pubes <= 20:
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(1,3)>>.jpg"></center>'
+						'	Already naked, you step onto set and begin the shoot immediately.'
+						*nl
+						'	You spend the next two hours posing confidently for a photographer taking pictures of you that fully expose your breasts and pussy. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					else
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(13,15)>>.jpg"></center>'
+						'	Already naked, you step onto set and begin the shoot immediately.'
+						*nl
+						'	You spend the next two hours posing confidently for a photographer taking pictures of you, your thick bush being used as a simple censor of your pussy and make it more "acceptable" as art while still maintaining the feeling of eroticism. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+					end
+				elseif shoot_type = 2:
+					modelfoto_nip += 1
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(4,11)>>.jpg"></center>'
+					'	Already naked, you step onto set and begin the shoot immediately.'
+					*nl
+					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully shields your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+				else
+					city_modelling += rand(0,5)
+					pav_modelling += rand(0,2)
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude12.jpg"></center>'
+					'	Already naked, you step onto set and begin the shoot immediately.'
+					*nl
+					'	You spend the next two hours posing confidently for a photographer taking pictures of you, often being asked to carefully position your hands or legs in ways that tastefully hides your pussy and nipples. These images, though incredibly provocative, are still somehow considered to be conservative enough to be allowed on the front cover of fashion, sports, and other tabloid magazines. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
+				end
 				*nl
 				if pornstudio = 0:pornstudio = 2 & '	At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
 
@@ -2216,7 +2165,7 @@ if $ARGS[0] = 'nude_shoot':
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/vmodel.mp4"></video></center>'
 				'	You spend the next two hours posing for the photographer, changing in and out of various underwears, sexy clothings, and lingeries until you end the shoot fully striped down and dancing naked.'
 				*nl
-				'	Finally having taken all his pictures, the photographer thanks you for your time, counts out your <<modelpayfin>> <b>₽</b>, and pays it to you.'
+				'	After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 				if pcs_mdlng >= 40 and commercial = 0:
 					act 'Leave':gt'foto','commercial'
 				else

locations/foto_events.qsrc

@@ -310,7 +310,7 @@ if $ARGS[0] = 'high_fasion':
 			mdlng_exp += rand(1,2)
 			city_modelling += rand(5,25)
 			pav_modelling += rand(0,city_modelling)/6
-			exhibition_exp += rand(0,1)
+			gs 'exhibitionism', 1
 			money += modelpayfin
 			modelfotomoney += modelpayfin
 			'	You spend the duration of the shoot changing in and out of designer bodices, corsets, and other tops, all of which conspicuously lack any kind of bottom, leaving your pussy exposed.'
@@ -578,7 +578,7 @@ if $ARGS[0] = 'modern_art':
 				modelfoto_nude += 1
 				mdlng_exp += rand(9,10)
 				city_modelling += rand(1,21)
-				exhibition_exp += 5
+				gs 'exhibitionism', 3
 				modern_art_projet = 1
 				pcs_horny += 20
 				'	The girl has you and the other model lie down on your sides and then wrap your legs your heads, both of you grabbing the other''s foot with your hand in a way that allows you to perfectly mirror each other''s position. At the client''s insistence, you bury your face between between the other girl''s legs. The aroma of her sex fills your nostrils and you can feel her breath on your own pussy as well.'
@@ -1325,7 +1325,7 @@ if $ARGS[0] = 'wet':
 							mdlng_exp += rand(9,10)
 							city_modelling += rand(18,21)
 							pav_modelling += rand(0,city_modelling)/4
-							exhibition_exp += 5
+							gs 'exhibitionism', 3
 							money += modelpayfin
 							modelfotomoney += modelpayfin
 							'	Eventually, the shoot is over and they leave you cold, shivering, and with really hard nipples. But at least you''ve also got a dry wad of cash that counts out to <<modelpayfin>> <b>₽</b>.'

locations/foto_models.qsrc

@@ -460,50 +460,56 @@ if $ARGS[0] = 'mari_chat':
 					'	You blush. "Uh, yeah I do, but I, uh, forget to lock it sometimes..."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif npc_rel['A34'] >= 20 and npc_rel['A34'] < 40:
+				elseif npc_rel['A34'] < 40:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my annoying little brother."'
 					'	Mari sits up a bit. "Really? What''s so irritating about him?"'
 					'	"Oh, nothing much. Just sibling squabbles. He''s not all that bad, just gets on my nerves sometimes."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif npc_rel['A34'] >= 40 and npc_rel['A34'] < 60:
+				elseif npc_rel['A34'] < 60:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my little brother."'
 					'	"That sounds nice. What are they like?"'
 					'	"Well to be honest, my sister can be a bit of a slut, but she''s still the best one I could ask for. My brother loves playing football so sometimes I join him and his friends at the field."'
 					'	"Maybe I''ll get to meet them one day!"'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif npc_rel['A34'] >= 60 and npc_rel['A34'] < 80:
+				elseif npc_rel['A34'] < 80:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
 					'	Mari smiles at you. "That''s sounds nice."'
 					'	You think of your siblings and smile. "Yeah. It is."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif npc_rel['A34'] >= 80 and brothersex < 1:
+				elseif sisterLesb >= 5:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
-					'	You think of your siblings and smile, "Yeah. We are."'
+					'	Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
+
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif sisterLesb >= 5 and brotherSex >= 1 and brotherSex < 6 and npc_rel['A34'] >= 80:
+				elseif brothersex < 1:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
-					'	Your mind wanders back to your siblings and how you''ve fooled around with both of them separately.'
-					'	"You could say that..."'
+					'	You think of your siblings and smile, "Yeah. We are."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif sisterLesb >= 5 and brotherSex >= 6 and npc_rel['A34'] >= 80:
+				elseif sisterLesb >= 5 and brotherSex < 7:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
-					'	Your mind wanders back to your siblings and how you''ve fooled around with your sister and even had full fledged intercourse with your brother. Your thoughts wander to the memory of the last time his cock slid out of you and it causes you to blush.'
+					'	Your mind wanders back to your siblings and how you''ve fooled around with both of them separately.'
 					'	"You could say that..."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 
-				elseif sisterLesb >= 5 and npc_rel['A34'] >= 80:
+				elseif sisterLesb >= 5:
 					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my adorable little brother. I love them both so much!"'
 					'	Mari smiles at you. "You sound close."'
-					'	Your mind wanders back to your sister and how you sometimes wake her up in the middle of the night to fool around with her. "You could say that..."'
+					'	Your mind wanders back to your siblings and how you''ve fooled around with your sister and even had full fledged intercourse with your brother. Your thoughts wander to the memory of the last time his cock was inside you and it causes you to blush.'
+					'	"You could say that..."'
+					act 'Keep chatting':gt 'foto_models','mari_chat'
 
+				else
+					'	"Yeah, I''ve got two. My sister who''s about the same age as you are and my silly little brother."'
+					'	Mari smiles at you. "That''s sounds nice."'
+					'	You think of your siblings and smile. "Yeah. It is."'
 					act 'Keep chatting':gt 'foto_models','mari_chat'
 				end
 			else
@@ -1477,7 +1483,7 @@ if $ARGS[0] = 'krystal_chat':
 						'	Suddenly you realize Krystal is giving you a weird look.'
 						'	"W-What...?" you stammer. "Is there something on my face?"'
 						'	"No..." she says while eyeing you up. "I just wanted you to know that if you ever want to do some uhh... ''fat burning exercises'' with me and Ben... you''re more than welcome to join us." She gives you another smirk as she bites her lip.'
-						if pcs_exhibition < 50:
+						if exhibitionist_lvl < 2:
 							'	You break eye contact with her and look away, blushing furiously and try to mumble some kind of response. "I... uhh... ummm... yeah..."'
 							'	<i>What the hell am I even supposed to say to that?</i> you think to yourself.'
 							act'Keep chatting':gt'foto_models','krystal_chat'

locations/gLakeNude.qsrc

@@ -90,7 +90,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 				minut+=5
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
-				if pcs_horny >= 80 and pcs_exhibition >= 50:
+				if pcs_horny >= 80 and exhibitionist_lvl > 1:
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
 					'You strip off. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what they might say or think of you.'
 				elseif pcs_inhib >= 60:

locations/gadriver.qsrc

@@ -190,10 +190,11 @@ if $ARGS[0] = 'Gadbitch':
 				cumspclnt = 4
 				gs 'cum_cleanup'
 				minut += 30
-				if $clothingworntype = 'nude': gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
-				if $clothingworntype = 'nude':inhib_exp += rand(1,3)
-				if $clothingworntype ! 'nude': gs 'exercise', 'tier1', 1, 'stren_exp'
-				if $clothingworntype ! 'nude':
+				if $clothingworntype = 'nude':
+					gs 'exercise', 'tier1', 1, 'stren_exp'
+					inhib_exp += rand(1,3)
+				else
+					gs 'exercise', 'tier1', 1, 'stren_exp'
 					if pcs_inhib < 50:inhib_exp += rand(1,3)
 				end
 				pcs_sweat = 10 + rand(0,4)
@@ -384,7 +385,7 @@ if $ARGS[0] = 'Gadbitch':
 					elseif $clothingworntype = 'nude':
 						*clr & cla
 						minut += 60
-						exhibition_exp += rand(0,3)
+						gs 'exhibitionism', 2
 						inhib_exp += rand(1,3)
 						if pcs_sweat < 35 : pcs_sweat += 5
 						pcs_mood += 5
@@ -571,26 +572,29 @@ if $ARGS[0] = 'Gadbitch':
 
 				act'Agree':
 					cla
-					act 'Strip naked':
-						cla
-						minut += 5
-						gs 'underwear', 'remove'
-						gs 'clothing', 'strip', 'VillageRiver'
-						inhib_exp += rand(1,3)
-						'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
-
-						act 'Swim':
-							*clr & cla
-							'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
-							'You wade into the river, you have fun with Mira spraying each other with water.'
-							temp_gr = RAND(0,15)
-							cumspclnt = 4 & gs 'cum_cleanup'
-							minut += 30
-							gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
-							pcs_sweat = 10 + rand(0,4)
-							gs'stat'
-
-							act 'Get out of the water':gt'Gadriver', 'Gadbitch'
+					if exhibitionist_lvl > 1:
+						act 'Strip naked':
+							cla
+							minut += 5
+							gs 'underwear', 'remove'
+							gs 'clothing', 'strip', 'VillageRiver'
+							inhib_exp += rand(1,3)
+							'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
+
+							act 'Swim':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/characters/village/mira/rivertwogirlsnude'+rand(0,5)+'.jpg"></center>'
+								'You wade into the river, you have fun with Mira spraying each other with water.'
+								temp_gr = RAND(0,15)
+								cumspclnt = 4 & gs 'cum_cleanup'
+								minut += 30
+								gs 'exercise', 'tier1', 1, 'stren_exp'
+								gs 'exhibitionism', 2
+								pcs_sweat = 10 + rand(0,4)
+								gs'stat'
+
+								act 'Get out of the water':gt'Gadriver', 'Gadbitch'
+							end
 						end
 					end
 					act 'Get changed':

locations/gdktoilet.qsrc

@@ -357,7 +357,7 @@ if $ARGS[0] = 'mensmast':
 			pcs_mood += 15
 			pcs_willpwr += 15
 			minut += 5
-			if pcs_inhib < 30:exhibition_exp += rand(1,3)
+			if pcs_inhib < 30: inhib_exp += rand(1,3)
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast1.jpg"></center>'
 			$orgasm_or = 'custom'

locations/gschool_detention.qsrc

@@ -244,7 +244,7 @@ if $ARGS[0] = 'sitting_events':
 			*clr
 			cla
 			pav_sex +=5
-			exhibition_exp +=5
+			gs 'exhibitionism', 1
 			inhib_exp += rand(1,3)
 			'<center><b><font color="maroon">Detention</font></b></center>'
 			'<center><video autoplay loop src="images/locations/pavlovsk/school/detention/detsitflash.mp4"></video></center>'
@@ -504,8 +504,7 @@ if $ARGS[0] = 'strange':
 		end
 		act '"Eat me out"':
 			*clr & cla
-!!I made this one 5 because Sveta is having sex in a place she could get caught. I know you said 1-3 but having sex in public seems like it should add more. But if you want to lower it go ahead.
-			exhibition_exp += 5
+			inhib_exp += rand(3,5)
 			pav_sex +=3
 			pcs_dom += 2
 			npc_rel['A152'] += 5

locations/gschool_events.qsrc

@@ -147,14 +147,14 @@ if $ARGS[0] = 'teacher_greet':
 				act 'Drop some textbooks':
 					*clr & cla
 					if $pantyworntype ! 'none':
-						exhibition_exp += 2
+						gs 'exhibitionism', 1
 						inhib_exp += rand(0,2)
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/bendover.jpg"></center>'
 						npc_rel['A26'] += 1
 						'You drop some books and bend over at the waist to pick up the books, showing off your ass.'
 						'"<<$pcs_nickname>>, you should bend at the knees to squat down instead of bend over like that or one of the boys might take advantage." He says with a smile.'
 					else
-						exhibition_exp += 3
+						gs 'exhibitionism', 2
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/bendoverbare.jpg"></center>'
 						npc_rel['A26'] += 1
 						'You drop some books and bend over at the waist to pick up the books, showing off your ass.'
@@ -171,7 +171,7 @@ if $ARGS[0] = 'teacher_greet':
 						if $pantyworntype = 'none':
 							act 'Show more':
 								*clr & cla
-								exhibition_exp += 3
+								gs 'exhibitionism', 1
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/bendoverbare.jpg"></center>'
 								'You don''t pay attention to the teacher''s words and decide to have fun a little more. Reaching for the next book, you inadvertently pull your skirt up, giving the teacher a full view of your pussy and ass.'
 								'"<<$pcs_lastname>>, cover up." the teacher notices that you are not wearing any panties. He quickly runs up to you and pulls your skirt down, covering up your naked ass.'
@@ -181,7 +181,7 @@ if $ARGS[0] = 'teacher_greet':
 						else
 							act 'Show more':
 								*clr & cla
-								exhibition_exp += 2
+								gs 'exhibitionism', 1
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/bendover.jpg"></center>'
 								'You don''t pay attention to the teacher''s words and decide to have fun a little more. Reaching for the next book, you inadvertently pull your skirt up, giving the teacher a full view of your panty clad ass.'
 								'"<<$pcs_lastname>>, cover up." the teacher rushes to you and pulls your skirt down, covering your ass.'
@@ -460,7 +460,7 @@ if $ARGS[0] = 'rand_scoolboy':
 			end
 			act 'Lift your skirt':
 				*clr & cla
-				exhibition_exp += 5
+				gs 'exhibitionism', 1
 				inhib_exp += 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/rand_scoolboy3.jpg"></center>'
 				'You think to yourself, "<<$rand_boy>> is actually kind of cute..."'
@@ -491,7 +491,7 @@ if $ARGS[0] = 'rand_scoolboy':
 				grupvalue[2] -= 10
 				grupvalue[3] -= 10
 				pav_sex +=30
-				exhibition_exp += 10
+				gs 'exhibitionism', 3
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/sex/boysex_tualet1.jpg"></center>'
 				'You give him a sweet smile and take him by the hand, pulling him into the men''s room. Slightly lifting up your skirt, you put his hand between your legs. The other boys all follow the two of you, and now you''re being fondled in front of a crowd.'
 				act 'Take his cock out of his pants': gt 'gschool_sex', 'rand_bj'

locations/gschool_lessons.qsrc

@@ -2711,7 +2711,7 @@ if $ARGS[0] = 'postphys':
 					zverevaQW = 3
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/christina/sex/school/chcoachbj.jpg"></center>'
-					'You open the door and enter Mr. Pavlovich''s room. Christine is startled, jumping up from her kneeling position and desperately wiping her mouth while your teacher quickly stuffs his erection back into his shorts. "Miss <<$pcs_lastname>>, has no one taught you you should knock!? Me and Christina were just discussing some important matters!" he exclaims, pretending to be insulted by your sudden intrusion.'
+					'You open the door and enter Mr. Pavlovich''s room. Christina is startled, jumping up from her kneeling position and desperately wiping her mouth while your teacher quickly stuffs his erection back into his shorts. "Miss <<$pcs_lastname>>, has no one taught you you should knock!? Me and Christina were just discussing some important matters!" he exclaims, pretending to be insulted by your sudden intrusion.'
 					*nl
 					'You can''t believe he''s even trying! You tell him just that, "Christina was using her mouth, but it certainly wasn''t for talking! You''re letting her suck you off so she can go to the regional competition instead of me!"'
 					*nl
@@ -2943,7 +2943,7 @@ if $ARGS[0] = 'dress':
 		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/nudepic<<rand(1,3)>>.jpg"></center>'
-		'While you are still naked, you hear a couple of girls giggling. You turn to look at them, but they are not looking at you. Confused, you follow their collective gaze and see Christina standing their with her phone out. Glancing back at them, you see them looking at you and giggling again - obviously, something happened that you missed; something that they thought was funny. You wonder what it was.'
+		'While you are still naked, you hear a couple of girls giggling. You turn to look at them, but they are not looking at you. Confused, you follow their collective gaze and see Christina standing there with her phone out. Glancing back at them, you see them looking at you and giggling again - obviously, something happened that you missed; something that they thought was funny. You wonder what it was.'
 		'You can choose another outfit while you''re here.'
 	else
 		*clr & cla

locations/gschool_lessonsev1.qsrc

@@ -8,7 +8,7 @@ if $ARGS[0] = 'fiz_rand':
 		if fizperand = 1 and $pantyworntype = 'none':
 			*clr & cla
 			pcs_mood -= 10
-			exhibition_exp +=3
+			gs 'exhibitionism', 1
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/fizperand1.jpg"></center>'
 			'You''re not wearing panties, and while you''re doing your pullups your shorts slide down a little. Now, the top of your pubes are on display for the whole class to see. It''s met with mixed responses: the guys are whistling and whooping appreciatively, while most of the girls are staring you down in disapproval. You quickly let go of the bar and pull your shorts back up, deeply embarrassed by the whole ordeal.'
@@ -132,11 +132,11 @@ if $ARGS[0] = 'biology':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. Miss Orlov comes over to help you back up and block their view of your ass as best she can. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 3
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Miss Orlov comes over to help you back up and block the view of your ass, as best she can. Once you are back on your feet she says softly. "This is why you should wear panties to school, I won''t report you over it, but I suggest you wear them in the future."'
 			end
@@ -186,28 +186,24 @@ if $ARGS[0] = 'biology':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Dan''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Dan''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your swollen clit, through your quickly soaking panties. Eventually you decide that the small tip doesn''t provide enough stimulation, so you shift the wet fabric to the side, giving you full access to your now bare pussy. You reach down with one hand, slipping your two middle fingers up your dripping snatch. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Dan seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Dan seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Dan''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Dan''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your already exposed clitoris. But your bare pussy is just too tempting to resist and soon you abandon your little pencil in favour of your two middle fingers, quickly shoving them up your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Dan seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Dan seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Dan''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -316,7 +312,6 @@ if $ARGS[0] = 'biology':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 13:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson pauses briefly when one of the other students asks Miss Orlov a question about her assignment. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Lazar turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your general direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -330,7 +325,7 @@ if $ARGS[0] = 'biology':
 			act 'You ignore it':
 				*clr & cla
 				npc_rel['A149'] += 3
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You ignore it, letting Lazar continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -372,11 +367,11 @@ if $ARGS[0] = 'science':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. Miss Orlov comes over to help you back up and block the view of your ass, as best she can. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Miss Orlov comes over to help you back up and block the view of your ass, as best she can. Once you are back on your feet she says softly. "This is why you should wear panties to school, I won''t report you, but I suggest in the future you wear them."'
 			end
@@ -466,7 +461,6 @@ if $ARGS[0] = 'science':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 10:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson pauses briefly when one of the other students asks Miss Orlov a question about her assignment. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Andrey turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your general direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -481,7 +475,7 @@ if $ARGS[0] = 'science':
 				*clr & cla
 				npc_rel['A147'] += 3
 				npc_rel['A139'] -= 3
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You ignore it, letting Andrey continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys. Though by the look on Stasya''s face you are not earning her friendship.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -519,11 +513,11 @@ if $ARGS[0] = 'computer':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -577,28 +571,24 @@ if $ARGS[0] = 'computer':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Vasily''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Vasily''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your swollen clit, through your quickly soaking panties. Eventually you decide that the small tip doesn''t provide enough stimulation, so you shift the wet fabric to the side, giving you full access to your now bare pussy. You reach down with one hand, slipping your two middle fingers up your dripping snatch. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Vasily seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, you pinch your clit just as Vasily gives your sensitive nipple a quick squeeze. The combined stimulation is too much, causing your knees to fly together, trapping your hand in between as your legs clench from the sudden orgasm. You bite your lip hard as you ride out the waves and you feel Vasily''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Vasily seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, you pinch your clit just as Vasily gives your sensitive nipple a quick squeeze. The combined stimulation is too much, causing your knees to fly together, trapping your hand in between as your legs clench from the sudden orgasm. You bite your lip hard as you ride out the waves and you feel Vasily''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Vasily''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Vasily''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your already exposed clitoris. But your bare pussy is just too tempting to resist and soon you abandon your little pencil in favour of your two middle fingers, quickly shoving them up your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Vasily seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, you pinch your clit just as Vasily gives your sensitive nipple a quick squeeze. The combined stimulation is too much, causing your knees to fly together, trapping your hand in between as your legs clench from the sudden orgasm. You bite your lip hard as you ride out the waves and you feel Vasily''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Vasily seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, you pinch your clit just as Vasily gives your sensitive nipple a quick squeeze. The combined stimulation is too much, causing your knees to fly together, trapping your hand in between as your legs clench from the sudden orgasm. You bite your lip hard as you ride out the waves and you feel Vasily''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Vasily''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -722,7 +712,6 @@ if $ARGS[0] = 'computer':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 15:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson pauses briefly when one of the other students asks Mr. Ivanov a question about the lesson. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Artem turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your general direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -736,7 +725,7 @@ if $ARGS[0] = 'computer':
 			act 'You ignore it':
 				*clr & cla
 				npc_rel['A2'] += 3
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You ignore it, letting Artem continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -824,11 +813,11 @@ if $ARGS[0] = 'russian':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -886,28 +875,24 @@ if $ARGS[0] = 'russian':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Svyatoslav''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Svyatoslav''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your swollen clit, through your quickly soaking panties. Eventually you decide that the small tip doesn''t provide enough stimulation, so you shift the wet fabric to the side, giving you full access to your now bare pussy. You reach down with one hand, slipping your two middle fingers up your dripping snatch. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Svyatoslav seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Svyatoslav squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Svyatoslav''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Mr. Yenotin. I''m perfectly alright."'
+								$orgasm_txt = 'Svyatoslav seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Svyatoslav squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Svyatoslav''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Mr. Yenotin. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Svyatoslav''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Svyatoslav''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. You take the pencil you were using to take notes, push it up under your skirt and start prodding and playing with your already exposed clitoris. But your bare pussy is just too tempting to resist and soon you abandon your little pencil in favour of your two middle fingers, quickly shoving them up your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Svyatoslav seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Svyatoslav squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Svyatoslav''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Mr. Yenotin. I''m perfectly alright."'
+								$orgasm_txt = 'Svyatoslav seems to have caught on to your arousal and starts kneading and pulling harder at your breast. In a moment of perfect coincidence, your pinch your clit right as Svyatoslav squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Svyatoslav''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurse''s office?" With bright eyes and a confident smile, you reply, "No thank you, Mr. Yenotin. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Svyatoslav''s hand playing with your breast as you just sit there in your soaked panties and a small puddle of your own juices, completely satisfied.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -1029,7 +1014,6 @@ if $ARGS[0] = 'russian':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 16:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson pauses briefly when one of the other students asks Mr. Yenotin a question about his lesson. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Marcus turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your general direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -1043,7 +1027,7 @@ if $ARGS[0] = 'russian':
 			act 'You ignore it':
 				*clr & cla
 				npc_rel['A146'] += 3
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You ignore it, letting Marcus continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'

locations/gschool_lessonsev2.qsrc

@@ -15,11 +15,11 @@ if $ARGS[0] = 'geography':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -69,28 +69,24 @@ if $ARGS[0] = 'geography':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Lazar''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Lazar''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes, goes under your skirt and begins to prod and play with your hard clitoris through your quickly soaking panties. Eventually you get bored of it and shift the fabric to the side to get access to your bare pussy and insert your two middle fingers. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Lazar seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Lazar squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Lazar''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mrs Sokoloff. I''m perfectly alright."'
+								$orgasm_txt = 'Lazar seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Lazar squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Lazar''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mrs Sokoloff. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Lazar''s hand playing with your breast as you sit satisfied in soaked panties and a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Lazar''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes goes under your skirt and begins to prod and play with your already exposed clitoris. But your bare pussy is too tempting and you abandon your pencil for your two middle fingers to penetrate your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Lazar seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Lazar squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Lazar''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mrs Sokoloff. I''m perfectly alright."'
+								$orgasm_txt = 'Lazar seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Lazar squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Lazar''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mrs Sokoloff. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Lazar''s hand playing with your breast as you sit satisfied in a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -178,7 +174,6 @@ if $ARGS[0] = 'geography':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 11:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson takes a brief pause as one of the students asks Mrs Sokoloff a question about her paper. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Artem turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -191,7 +186,7 @@ if $ARGS[0] = 'geography':
 			end
 			act 'You ignore it':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Artem continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -290,13 +285,13 @@ if $ARGS[0] = 'math':
 			pcs_mood -= 10
 			gs 'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><b><font color=#00BFFF><<"Anatoly E. Tsarev">></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/26.jpg"></center>'
 				'Mr. Tsarev calls you up to the blackboard to answer a question. As you are approach the front of the class, you trip and fall, landing on your chest with your skirt on your back, giving the whole class a good view up your skirt. You quickly get up and straighten your clothes while trying to hide how red your face is while the boys begin hollering. It is quite obvious that most of the guys and even a few of the girls, appreciate the show, even if it was involuntarily.'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><b><font color=#00BFFF><<"Anatoly E. Tsarev">></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/26.jpg"></center>'
 				'Mr. Tsarev calls you up to the blackboard to answer a question. As you begin solving the problem, you drop the chalk on the floor. You quickly bend over to pick it up, having forgot that you are not wearing any panties and giving everyone in the class a clear view of both of your holes. The boys begin whistling and hollering while many of the girls begin whispering to each other.'
@@ -367,7 +362,6 @@ if $ARGS[0] = 'math':
 				gs 'gschool_lessonsev1', 'math'
 			end
 		elseif scooltiperand = 8:
-			exhibition_exp +=2
 			'<center><b><font color=#FFC600><<"Igor Kruglov">></font></b></center>'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
 			'The lesson takes a brief pause as Natasha asks Mr. Tsarev a question about her paper. With nothing to do for the moment, you doodle a few drawing in your notebook. When you look back up, you notice Igor turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction?'
@@ -388,7 +382,7 @@ if $ARGS[0] = 'math':
 			end
 			act 'Ignore his stares':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Igor continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				'<center><b><font color=#FFC600><<"Igor Kruglov">></font></b></center>'
@@ -428,12 +422,12 @@ if $ARGS[0] = 'math':
 				*clr & cla
 				npc_rel['A26'] += 2
 				if $pantyworntype ! 'none':
-					exhibition_exp += 2
+					gs 'exhibitionism', 1
 					pcs_horny += 30
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/spread.jpg"></center>'
 					'The thoughts of him checking you out so sneakily causes your heart to beat rapidly in excitement, and knowing how wrong this is, turns you on. You purposely spread your legs whenever Mr. Tsarev looks your way, and you can tell by your teacher''s more frequent stares that he is enjoying your show. Unable to control yourself, you occasionally rub your clitoris through your underwear, preferably when Mr. Tsarev glances your way. By the end of the class your panties have a large damp spot on you panties; large enough for him to see from across the room. The outline of your pussy is clearly visible in the wet fabric.'
 				else
-					exhibition_exp += 5
+					gs 'exhibitionism', 2
 					pcs_horny += 40
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/spreadb.jpg"></center>'
 					'The thoughts of him checking you out so sneakily causes your heart to beat rapidly in excitement, and knowing how wrong this is, turns you on further. You purposely spread your legs whenever Mr. Tsarev looks your way, and you can tell by Mr. Tsarev''s fidgeting that he getting really turned on. Unable to control yourself, you occasionally rub your exposed clitoris, preferably when Mr. Tsarev glances your way. By the end of the class your pussy lips are soaked in your juices, and without realizing, you put your finger into your mouth to taste your own juices.'
@@ -525,11 +519,11 @@ if $ARGS[0] = 'history':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -579,28 +573,24 @@ if $ARGS[0] = 'history':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Roman''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Roman''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes, goes under your skirt and begins to prod and play with your hard clitoris through your quickly soaking panties. Eventually you get bored of it and shift the fabric to the side to get access to your bare pussy and insert your two middle fingers. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Roman seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Roman squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Roman''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Roman seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Roman squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Roman''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Roman''s hand playing with your breast as you sit satisfied in soaked panties and a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Roman''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes goes under your skirt and begins to prod and play with your already exposed clitoris. But your bare pussy is too tempting and you abandon your pencil for your two middle fingers to penetrate your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Roman seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Roman squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Roman''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_txt = 'Roman seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Roman squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Roman''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Miss Orlov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Roman''s hand playing with your breast as you sit satisfied in a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -709,7 +699,6 @@ if $ARGS[0] = 'history':
 			end
 		elseif scooltiperand = 12:
 			gs 'gschool_events', 'rand_boy_arg', 1, 1, 0, 1, 0, 0
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson takes a brief pause as one of the students asks Mrs Sokoloff a question about her paper. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Petka turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -722,7 +711,7 @@ if $ARGS[0] = 'history':
 			end
 			act 'You ignore it':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Petka continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -761,11 +750,11 @@ if $ARGS[0] = 'shop':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -819,28 +808,24 @@ if $ARGS[0] = 'shop':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Dan''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure the teacher doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Dan''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes, goes under your skirt and begins to prod and play with your hard clitoris through your quickly soaking panties. Eventually you get bored of it and shift the fabric to the side to get access to your bare pussy and insert your two middle fingers. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Dan seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Kuznetsov. I''m perfectly alright."'
+								$orgasm_txt = 'Dan seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Kuznetsov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Dan''s hand playing with your breast as you sit satisfied in soaked panties and a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Dan''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes goes under your skirt and begins to prod and play with your already exposed clitoris. But your bare pussy is too tempting and you abandon your pencil for your two middle fingers to penetrate your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Dan seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Kuznetsov. I''m perfectly alright."'
+								$orgasm_txt = 'Dan seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Dan squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Dan''s hand slide away just before you hear your teacher say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Kuznetsov. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Dan''s hand playing with your breast as you sit satisfied in a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -935,7 +920,6 @@ if $ARGS[0] = 'shop':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 10:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson takes a brief pause as one of the students asks Mr. Kuznetsov a question about her paper. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Marcus turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -948,7 +932,7 @@ if $ARGS[0] = 'shop':
 			end
 			act 'You ignore it':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				npc_rel['A146'] += 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Marcus continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'

locations/gschool_lessonsev3.qsrc

@@ -70,13 +70,13 @@ if $ARGS[0] = 'literature':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				*nl
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				*nl
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
@@ -691,7 +691,7 @@ if $ARGS[0] = 'music':
 		scooltiperand = RAND(1,15)
 		if scooltiperand = 1:
 			if Katja_tanga_end = 1 and $pantyworntype ! 'none':	
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_1.jpg"></center>'
 				'As you move into the classroom, Katja runs up to you with a slight blush on her face. Before you know it, she gives you a deep kiss and pulls up your skirt to touch your ass. You return the kiss, not caring about the hooting and hollering in the background from your fellow classmates.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -712,11 +712,11 @@ if $ARGS[0] = 'music':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -777,28 +777,24 @@ if $ARGS[0] = 'music':
 						gs 'arousal', 'foreplay', 10, 'exhibitionism'
 						act 'Enjoy more':
 							cla
-							exhibition_exp += 2
+							gs 'exhibitionism', 2
 							'You spend the rest of class with Radomir''s hand coming and going to squeeze your breast and tweak your nipple, still careful to make sure Mr. Vasilyev doesn''t catch on.'
 							if $pantyworntype ! 'none':
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Radomir''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes, goes under your skirt and begins to prod and play with your hard clitoris through your quickly soaking panties. Eventually you get bored of it and shift the fabric to the side to get access to your bare pussy and insert your two middle fingers. They easily slide between your wet lips and your breathing hitches slightly, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Radomir seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Radomir squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Radomir''s hand slide away just before you hear Mr. Vasilyev say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Vasilyev. I''m perfectly alright."'
+								$orgasm_txt = 'Radomir seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Radomir squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Radomir''s hand slide away just before you hear Mr. Vasilyev say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Vasilyev. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Radomir''s hand playing with your breast as you sit satisfied in soaked panties and a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							else
-								stat['mast'] += 1
-								if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-								orgasm += 1
-								pcs_horny = 0
 								'Enjoying the feeling of Radomir''s hand massaging your breast and his fingers tweaking your nipple, you decide to take advantage of the opportunity. The pencil you were using to take notes goes under your skirt and begins to prod and play with your already exposed clitoris. But your bare pussy is too tempting and you abandon your pencil for your two middle fingers to penetrate your already dripping snatch. They easily slide between your wet lips and your breathing hitches, matching the rhythm of your pistoning fingers.'
 								*nl
-								'Radomir seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Radomir squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Radomir''s hand slide away just before you hear Mr. Vasilyev say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Vasilyev. I''m perfectly alright."'
+								$orgasm_txt = 'Radomir seems to have caught on and starts to knead your breast and pull at your breast harder. In a moment of perfect coincidence, your pinch your clit right as Radomir squeezes your sensitive nipple and your knees fly together, your whole legs clenching hard in orgasm. You bite your lip hard as you ride out the waves and you feel Radomir''s hand slide away just before you hear Mr. Vasilyev say, "Miss <<$pcs_lastname>>? Are you feeling alright? Do you need to go to the nurses office?" With confident eyes and a bright smile, you reply, "No thank you, Mr. Vasilyev. I''m perfectly alright."'
+								$orgasm_or = 'yes'
+								gs 'arousal', 'masturbate', 10, 'exhibitionism'
+								gs 'arousal', 'end'
 								'You spend the rest of class with Radomir''s hand playing with your breast as you sit satisfied in a small puddle of your own juices.'
-								gs 'arousal', 'vaginal_finger', 10, 'exhibitionism'
 							end
 							act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 						end
@@ -914,7 +910,6 @@ if $ARGS[0] = 'music':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 14:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson takes a brief pause as one of the students asks Mr. Vasilyev a question about her paper. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Petia turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -927,7 +922,7 @@ if $ARGS[0] = 'music':
 			end
 			act 'You ignore it':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				npc_rel['A159'] += 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Petiacontinue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'
@@ -959,7 +954,7 @@ if $ARGS[0] = 'art':
 		scooltiperand = RAND(1,13)
 		if scooltiperand = 1:
 			if Katja_tanga_end = 1 and $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_1.jpg"></center>'
 				'As you move into the classroom, Katja runs up to you with a slight blush on her face. Before you know it, she gives you a deep kiss and pulls up your skirt to touch your ass. You return the kiss, not caring about the hooting and hollering in the background from your fellow classmates.'
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
@@ -974,11 +969,11 @@ if $ARGS[0] = 'art':
 			pcs_mood -= 10
 			gs'stat'
 			if $pantyworntype ! 'none':
-				exhibition_exp += 3
+				gs 'exhibitionism', 1
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_1.jpg"></center>'
 				'When you walk up to the blackboard to answer a question, you trip and fall. Somehow you manage to fall in such a way that your skirt ends up on your back, while the whole class can see your panty-clad ass. You quickly get up and straighten your clothes with a bright red face, trying to ignore the hollering from your classmates. You can tell that most of the guys and even a few girls definitely appreciated your show, even if it was involuntarily.'
 			else
-				exhibition_exp += 5
+				gs 'exhibitionism', 2
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/scoolrand_4_2.jpg"></center>'
 				'Before you can answer the question your teacher poses you, you have to clean the blackboard. You accidentally drop the cloth used to wipe it clean with, and totally forgot you are not wearing panties. The whistling and shouting from the boys and murmurs of disapproval from most of the girls behind you tell you that everyone has a clear view of your bare ass, and both of your holes are on display for everyone to see. Everyone but the teacher, who has no clue why your class is so riled up and desperately tries to calm them down.'
 			end
@@ -1111,7 +1106,6 @@ if $ARGS[0] = 'art':
 				act 'Wait for the end of the lesson': gt 'gschool_lessons', 'short_break'
 			end
 		elseif scooltiperand = 12:
-			exhibition_exp +=2
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 			'The lesson takes a brief pause as one of the students asks Mr. Vasilyev a question about her paper. With nothing to do for the moment, you doodle lazily in the margin of your notebook.'
 			'When you look back up, you notice Feofan turning his head away. You don''t think much of it at first, until you catch him a second time. Was he looking at you, or just in your direction? Even the teacher walks by and pauses next to your desk for a moment before continuing on.'
@@ -1124,7 +1118,7 @@ if $ARGS[0] = 'art':
 			end
 			act 'You ignore it':
 				*clr & cla
-				exhibition_exp +=3
+				gs 'exhibitionism', 1
 				npc_rel['A152'] += 3
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/open.jpg"></center>'
 				'You let Feofan continue to gawk at you. You find yourself somewhat amused at how little it takes to completely enthrall some boys.'

locations/gschool_office.qsrc

@@ -417,7 +417,7 @@ if $ARGS[0] = 'detPunishment1':
 	minut += 15
 	gs 'underwear', 'remove'
 	gs 'clothing', 'strip'
-	exhibition_exp += 3
+	gs 'exhibitionism', 2
 	gs 'pain', 7, 'asscheeks', 'spank'
 	gs 'stat'
 	'<center><img src="images/locations/pavlovsk/school/detention/ffspank1.jpg"></center>'

locations/gschool_socialchg.qsrc

@@ -153,7 +153,7 @@ if $ARGS[0] = 'nerd':
 	cla & *clr
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinnerd.jpg"></center>'
-	'As you walk down the school hallway, you stop at your locker. You sense someone standing next to you and you turn to see Artem, Feofan, Petka, Gerasim, Zinadia, and Julia there. They give you friendly smiles. Artem speaks "Hey <<$pcs_nickname>>, we have been talking and we like you. We were wondering if you would like to come hang out with us at our game night?" They seem to be waiting on your response.'
+	'As you walk down the school hallway, you stop at your locker. You sense someone standing next to you and you turn to see Artem, Feofan, Petka, Gerasim, Zinaida, and Julia there. They give you friendly smiles. Artem speaks "Hey <<$pcs_nickname>>, we have been talking and we like you. We were wondering if you would like to come hang out with us at our game night?" They seem to be waiting on your response.'
 	act 'Yes':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinnerd.jpg"></center>'
@@ -302,23 +302,23 @@ if $ARGS[0] = 'nerd game night':
 	'As you take your seat Feofan tells you this incredible background story as he builds up the game world so you can be fully immersed. You''re handed a handbook and a pencil as he continues on explaining what the game is all about.'
 	'You hear a couple of sighs as Feofan passionately continues on. "Why does it always end up like this? Let''s get on with the game already!" Petka exclaims.'
 
-	grupvalue[3] + 2
+	grupvalue[3] += 2
 	gs 'gschool_socialchg', 'group_rel_change','nerds', 1
 	gs 'stat'
 
 	act 'Pick a character':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/events/character.jpg"></center>'
-		'It seems that Feofan has created two different characters for you to pick. One is a rouge which uses her beautiful looks, charm, and agility to get what she wants, while the other one is a wizard character that uses her intelligence and mystical abilities to rain down death and destruction with magic.'
+		'It seems that Feofan has created two different characters for you to pick. One is a rogue which uses her beautiful looks, charm, and agility to get what she wants, while the other one is a wizard character that uses her intelligence and mystical abilities to rain down death and destruction with magic.'
 		'"Before we begin you need to pick out a character you want to use <<$pcs_nickname>>." Feofan tells you.'
-		'It doesn''t take long before the boys begin to argue for you to pick the rouge, "We''re currently missing a character that has lots of social skills so please pick her."'
+		'It doesn''t take long before the boys begin to argue for you to pick the rogue, "We''re currently missing a character that has lots of social skills so please pick her."'
 		'The girls sigh loudly, "Don''t listen to them, they just want a sexy character in their party. Pick the wizard instead and you''ll be of more help to the group."'
 		gs 'stat'
 
-		act 'Pick the rouge':
+		act 'Pick the rogue':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/events/rogue.jpg"></center>'
-			'You fall under the guys pressure and decide on the rouge. "Great choice, <<$pcs_nickname>>!" Petka says. "If we''re ever short on gold we can use your character to earn us some money while in the town." Petka continues on while the other boys start to laugh.'
+			'You fall under the guys pressure and decide on the rogue. "Great choice, <<$pcs_nickname>>!" Petka says. "If we''re ever short on gold we can use your character to earn us some money while in the town." Petka continues on while the other boys start to laugh.'
 			gs 'stat'
 			npc_rel['A2'] += 1
 			npc_rel['A6'] += 1
@@ -329,7 +329,7 @@ if $ARGS[0] = 'nerd game night':
 		act 'Pick the wizard':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/events/wizard.jpg"></center>'
-			'You decide to follow the girls advice and pick the wizard. "I''m glad you decided to listen to us." Julia happily says. "We can build your character to be a wreck stuff." she continues on while Zinadia nods approvingly.'
+			'You decide to follow the girls advice and pick the wizard. "I''m glad you decided to listen to us." Julia happily says. "We can build your character to be a wreck stuff." she continues on while Zinaida nods approvingly.'
 			minut += 30
 			gs 'stat'
 			npc_rel['A142'] += 1
@@ -345,7 +345,7 @@ if $ARGS[0] = 'nerd game night':
 		killvar '$Game_on'
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/events/playing.jpg"></center>'
-		'Feofan clears his throat, "Now then, the last time we stopped at the event where Zinadia was supposed to make her move."'
+		'Feofan clears his throat, "Now then, the last time we stopped at the event where Zinaida was supposed to make her move."'
 		'Artem sighs deeply, "Do we need to have this discussion again? It''s obvious that we should attack the dragon. After all she is the mighty warrior and our tank."'
 		'Gerasim looks a bit irritated, "We should buff the warrior first before taking on the dragon. It''s a more sound strategy."'
 		'The whole room erupts in a frenzy, everyone is talking over each other to get their point across... Feofan tries to calm everyone down but it''s futile, the situation is out of control. After a while they decide that they should vote on what to do next.'
@@ -378,7 +378,7 @@ if $ARGS[0] = 'nerd game night':
 		act 'Side with no one':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/events/gamenight.jpg"></center>'
-			'You excuse yourself as you explain that it wouldn''t be fair for you to take this kind of decision as you''re new at this and don''t even know how tought a dragon is, though it sounds dangerous.'
+			'You excuse yourself as you explain that it wouldn''t be fair for you to take this kind of decision as you''re new at this and don''t even know how tough a dragon is, though it sounds dangerous.'
 			'The rest of the group seem to accept that as they go back to bickering about what to do next.'
 			minut += 30
 			gs 'stat'
@@ -1700,8 +1700,8 @@ if $ARGS[0] = 'gopnik slut':
 						cla & *clr
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/oldschool/gophangout/slut/4.jpg"></center>'
 						'With that taken care of Vitek lets go of you and walks away. The music starts back up, plastic cups are passed around and the vodka and other drinks are shared. You stay just as you are as the party happens around you, with your ass and pussy on full display. Yet it seems most people are not paying a lot of attention to you, at least not yet. Occasionally someone takes a look or slaps your ass, but mostly they ignore you and just have a party. Maybe this won''t be so bad after all.'
-						gs 'arousal', 'flash_ass', 5, 'group', 'sub', 'humiliation', 'exhibitionism'
-						gs 'arousal', 'flash_pussy', -5, 'group', 'sub', 'humiliation'
+						gs 'arousal', 'flash', 5, 'group', 'sub', 'humiliation', 'exhibitionism'
+						gs 'arousal', 'flash', -5, 'group', 'sub', 'humiliation'
 						gs 'stat'
 
 						act 'Learning your place':

locations/gskver.qsrc

@@ -106,7 +106,7 @@ end
 act 'Sit down on the bench': ParkBench = 0 & gt'placer_sex','sleeping_parc_alco'
 
 act 'Go for a walk (0:15)':
-	if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
+	if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
 	cla
 	*clr
 	minut += 15
@@ -149,10 +149,10 @@ end
 
 if pcs_inhib >= 35:
 	act 'Flash your tits':
-		if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 		cls
-		exhibition_exp += rand(5,8)
-		gs 'events', 'flash_tits', 'outdoors', 5
+		gs 'exhibitionism', 1
+		gs 'flash', 'tits', 'outdoors', 5
 		gs 'stat'
 
 		act 'Continue': gt 'gskver'
@@ -161,12 +161,12 @@ end
 
 gs 'kseniyaQW', 'events'
 
-if pcs_exhibition >= 40:
+if exhibitionist_lvl > 1:
 	act 'Flash your pussy':
-		if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 		cls
-		exhibition_exp += rand(9,12)
-		gs 'events', 'flash_pussy', 'outdoors', 5
+		gs 'exhibitionism', 3
+		gs 'flash', 'pussy', 'outdoors', 5
 		gs 'stat'
 
 		act 'Continue': gt 'gskver'

locations/kafe2.qsrc

@@ -1,848 +1,852 @@
-# kafe2
-
-if $ARGS[0] = 'toilet':
-
-	$location_type = 'bathroom'
-	$locM = 'kafe2'
-	$metkaM = 'toilet'
-
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
-	'Dirty and smelly toilet that seems to have never been cleaned'
-	turand = rand(0, 100)
-
-	if turand = 0:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand.jpg"></center>'
-		'Going to the toilet you see in one of the booths, a drunk girl with bottle in hand riding a guys dick standing over the toilet facing away from him.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	elseif turand = 1:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand1.jpg"></center>'
-		'Going to the toilet you see a skinny girl sucking dick as the guy photographs everything in the mirror.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	elseif turand = 2:
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand2.jpg"></center>'
-		'Going to the toilet you catch a redhead sucking her boyfriends cock.'
-
-		act 'Leave':gt 'kafe', 'workPred'
-
-		exit
-	end
-
-	act 'Leave':gt 'kafe', 'workPred'
-	
-	act 'Look in the mirror': gt 'mirror', 'start'
-	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
-
-	dynamic $tampon
-	dynamic $quickwash
-	dynamic $basin
-end
-
-if $ARGS[0] = 'givi':
-	cls
-	gs 'stat'
-
-	if hour < 22:
-		'You go to the bar, behind which stands the cafe owner Givi K., he looks up from wiping glasses to look at you.'
-
-		if hour = 20 and npc_rel['A41'] >= 90:
-			act 'Beg for time off':
-				cla
-				minut += 5
-				npc_rel['A41'] -= 5
-				'You take time off to leave early, Givi was a little angry but let you go.'
-
-				act 'Move away':gt 'street'
-			end
-		end
-
-		if Kavslut > 0 and IrinaQW >= 10 and IrinaSlut = 0 and hour <= 20:
-			act 'Ask Givi go give Ira a raise':
-				cla
-				IrinaSlut = 1
-				minut += 30
-				gs 'stat'
-				'You Givi if he will give Ira a raise. Givi grunts, "What for?" You appeal to his better nature, saying that she is your close friend and you want to help her. Givi promise to think about a wage increase.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			end
-		end
-
-		act 'Chat with Givi':
-			cla
-			minut += 30
-			pcs_mood += 5
-
-			if GiviSex = 0:
-
-				if npc_rel['A41'] <= 90:npc_rel['A41'] += rand(10, 25)
-				if npc_rel['A41'] > 90 and GiviSex = 0:npc_rel['A41'] = 90
-
-				'You talk at the bar with the cafe owner and part-time bartender Givi.'
-
-				if npc_rel['A41'] = 90:'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif GiviSex >= 1 and kavslut = 0:
-				npc_rel['A41'] = 100
-				'You talk at the bar with the cafe owner and part-time bartender Givi.'
-				'"Hey <<$pcs_nickname>>, I enjoyed it so much last time. Stay with me tonight and help."'
-				'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif GiviSex >= 1 and kavslut > 0:
-				npc_rel['A41'] = 100
-				givirand = rand(0, 100)
-
-				if givirand < 10 and Venera < 4:
-					'"<<$pcs_nickname>> I what that sexy body, come and relieve my stress." With these words, Givi takes you by the hand.'
-
-					act 'Kneel':
-						cla
-						*clr
-						smenaKafe += 1
-
-						if giviSex < 2:GiviSex = 2
-
-						gs 'bdman', 'givi'
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
-						'You bend down behind the bar, out of view of the customers, kneel before Givi and take out his member.'
-						gs 'bdsex', 'autobj'
-						'Givi grabs you hard by the hair and pulls your mouth deeper onto his cock.'
-						
-						gs 'arousal', 'bj', 10, 'sub'
-						gs 'stat'
-
-						act 'Continue to suck.':
-							cla
-							*clr
-							swallow += 1
-							gs 'boyStat', 'A41'
-							sexpartkno = 1
-							spafinloc = 12
-							gs 'cum_manage'
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
-							'A hot jet of sperm hits the back of your throat. You start to swallow cum, and Givi continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
-
-							gs 'arousal', 'end'
-							gs 'stat'
-							
-							act 'Move away':gt 'kafe', 'workPred'
-						end
-					end
-
-					if GiviSex < 2:
-						act 'Excuse me':
-							cla
-							'"Wow, <<$pcs_nickname>> you dirty slut, if you spend some quality time with me I could give you a pay rise, think of all the pretty dresses you could buy." Says Givi.'
-
-							act 'Move away':gt 'kafe', 'workPred'
-						end
-					end
-				elseif givirand >= 10 or Venera >= 4:
-					'Givi slaps you on the ass strongly and whinnied. "<<$pcs_nickname>>, that''s one fine ass!"'
-
-					act 'Move away':gt 'kafe', 'workPred'
-				end
-			end
-		end
-	else
-		if pcs_apprnc < 0:
-			'Givi nods his head at you, "<<$pcs_nickname>>."'
-
-			act 'Leave':
-				cla
-				minut += 5
-				gt 'kafeend'
-			end
-		else
-			gt 'kafe2', 'givipredlog'
-		end
-	end
-end
-
-if $ARGS[0] = 'ashot':
-	$loc = 'kafe2'
-	$metka = 'ashot'
-	cls
-	gs 'stat'
-	'You go into the kitchen where trainee chef Ashot is cooking. Dishwasher <a href="exec:gt ''kafe2'', ''tamdin''">Tamara</a> as always stands near the sink and washes the dishes.'
-
-	if hour < 22:
-		act 'Eat some food (0:30)':
-			gs 'food', 'm_meal'
-		end
-
-		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
-
-		act 'Chat with Ashot':
-			cla
-			minut += 30
-			pcs_mood += 5
-			gs 'stat'
-
-			if npc_rel['A42'] <= 90:npc_rel['A42'] += rand(0, 5)
-
-			if giviSex > 0 and Ashotsex = 0:
-				if npc_rel['A42'] <= 90:npc_rel['A42'] = 90
-
-				pcs_horny += 10
-				'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass really tight, it makes you squeal. Ashot laughs.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif giviSex = 0 and Ashotsex = 0:
-				'You talk in the kitchen with chef Ashot.'
-
-				act 'Move away':gt 'kafe', 'workPred'
-			elseif giviSex > 0 and Ashotsex > 0:
-				Ashotrand = rand(0, 100)
-
-				if Ashotrand > 20:
-					'"You''re a cool bitch" says Ashot grabbing your ass.'
-					
-					gs 'arousal', 'foreplay', 10, 'sub'
-					gs 'stat'
-
-					act 'Move away':gt 'kafe', 'workPred'
-				elseif Ashotrand <= 20:
-					*clr
-					cla
-					'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass, "My poor dick, it really misses your ass."'
-
-					act 'Allow':
-						*clr
-						cla
-
-						if analplugin = 1 :
-							*clr
-							cla
-							analplugin = 0
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analplug.jpg"></center>'
-							'"That''s very considerate!" Ashot swiftly pulls out your anal plug.'
-
-							act 'What the ...?':
-								*clr
-								cla
-								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
-								'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
-
-								gs 'arousal', 'anal', 10, 'sub'
-								gs 'stat'
-						
-								act 'Moan':
-									*clr
-									cla
-
-									pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
-									Ashotsex += 1
-									gs 'boyStat', 'A42'
-									sexpartkno = 1
-									spafinloc = 3
-									gs 'cum_manage'
-
-									if pcs_ass < 18:pcs_ass += 1
-
-									'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
-									'Ashot leans forward thrusting his cock as deeply as possible.'
-									
-									gs 'arousal', 'anal', 10, 'sub'
-									gs 'stat'
-
-									if pcs_horny >= 100 :
-										analorgasm += 1
-										$orgasm_or = 'custom'
-										$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
-									end
-
-									'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
-
-									act 'Move away':gt 'kafe', 'workPred'
-								end
-							end
-						else
-							*clr
-							cla
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
-							'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
-
-							gs 'arousal', 'anal', 10, 'sub'
-							gs 'stat'
-									
-							act 'Moan':
-								*clr
-								cla
-								pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
-								Ashotsex += 1
-								spafinloc = 3
-								gs 'cum_manage'
-
-								if 18 > pcs_ass:pcs_ass += 1
-
-								'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
-								'Ashot leans forward thrusting his cock as deeply as possible.'
-								
-								gs 'arousal', 'anal', 10, 'sub'
-								gs 'stat'
-
-								if pcs_horny >= 100 :
-									analorgasm += 1
-									$orgasm_or = 'custom'
-									$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
-								end
-
-								'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
-
-								act 'Move away':gt 'kafe', 'workPred'
-							end
-						end
-					end
-				end
-			elseif giviSex = 0 and Ashotsex > 0:
-				'"Sexy girl, with your lovely juicy ass, my dick still remembers skewering it." Says Ashot grabbing your ass.'
-				
-				gs 'arousal', 'foreplay', 10, 'sub'
-				gs 'stat'
-									
-			end
-		end
-	else
-		'Ashot is putting away his cooking equipment, getting ready to go.'
-		
-	end
-
-	gs 'arousal', 'end'
-	gs 'stat'
-		
-	act 'Move away':gt 'kafe', 'workPred'
-end
-
-if $ARGS[0] = 'ira':
-	cls
-	gs 'stat'
-
-	'Ira is not currently busy and stands waiting at the counter.'
-
-	if hour < 22:
-		act 'Chat with Irina':
-			cla
-			minut += 30
-			pcs_mood += 5
-			gs 'stat'
-			pcs_willpwr += rand(0, 1)
-
-			npc_rel['A93'] += rand(0, 5)
-
-			gs 'stat'
-			'You chat with the waitress Ira at the bar.'
-
-			if IrinaQW ! 10 or IrinaLesbSex >= 3:
-				if GiviSex >= 1 and Kavslut = 0:
-					'Ira, with round eyes tells you the rumor going around is that you are blowing Givi.'
-				elseif Kavslut > 0:
-					'Ira tells you that she knows that you are fucking Caucasians in the evenings.'
-				end
-			elseif IrinaQW = 10 and IrinaLesbSex = 2:
-				IrinaLesbSex = 3
-				'Irina is a bit more relaxed and has stopped fidgeting when you are around.'
-			elseif IrinaQW = 10 and IrinaLesbSex = 1:
-				IrinaLesbSex = 2
-				'Irina and you smile and try to communicate, but it is awkward and strained.'
-			elseif IrinaQW = 10 and IrinaLesbSex = 0:
-				IrinaLesbSex = 1
-				'Irina clearly looks apprehensive and tries not to look you in the eye. You approach her and try to calm her down. Irina dismissively nods and says, "I''m willing to pretend that nothing ever happened. I don''t want anybody to know about it." You agree with Ira.'
-			end
-
-			act 'Move away':gt 'kafe', 'workPred'
-		end
-	else
-		if IrinaSlut >= 2:
-			gt 'kafe2', 'givipredlog'
-		elseif IrinaSlut < 2:
-			act 'Go home with Irina':
-				cla
-				npc_rel['A93'] += 5
-				minut += 5
-				gs 'stat'
-
-				if npc_rel['A93'] < 100:
-					if npc_rel['A93'] < 50:
-						if GiviSex >= 1 and Kavslut = 0:
-							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
-						elseif Kavslut > 0:
-							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
-						else
-							$irinatalk = 'Irina is mostly silent the whole way.'
-						end
-
-						$irinaend = 'Near the entrance is quickly says goodbye and goes to her home.'
-					else
-						if GiviSex >= 1 and Kavslut = 0:
-							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
-						elseif Kavslut > 0:
-							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your sexaual adventures at the cafe, wondering how she could be a little more like you.'
-						else
-							$irinatalk = 'The two of you gossip the whole way.'
-						end
-
-						$irinaend = 'Near the entrance she waves her hand at you goes to her home.'
-					end
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 0:
-					IrinaQW = 1
-
-					$irinatalk = 'Ira is fun and chatters all the way.'
-					$irinaend = 'She invites you to visit her on Saturday and goes to her door.'
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 1:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'On the way Irina talks about her ex-boyfriend.'
-					elseif Kavslut > 0:
-						$irinatalk = 'On the way Irina talks about her ex-boyfriend. She also tells you about how she once gave a blowjob in the toilet of the club when drunk with that guy.'
-					else
-						$irinatalk = 'Irina chatted all the way to the home.'
-					end
-
-					$irinaend = 'Ira standing by her door invites you to come in with her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW = 2:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect you to be not only sleeping with men, but also with women. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, that from such a whore as you of course it was only to be expected that you would be sleeping with everyone. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					else
-						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect that such a nice girl like you, would actually be a lesbian. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
-					end
-
-					$irinaend = 'Going to the door she says goodbye to you and leaves.'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut >= 2:
-					if Kavslut > 0:
-						$irinatalk = 'Ira, smiling, tells that she had long wanted to stop living like a nun and live freely and she thanks you for your help ..'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 1:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure. She notes that you obviously have more experience, for example she has never slept with two men at once.'
-					else
-						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 0:
-					if GiviSex >= 1 and Kavslut = 0:
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
-					elseif Kavslut > 0:
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once. She also asked her to speak to her word Givi, she also wants a pay rise.'
-					else
-						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
-					end
-
-					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
-
-					act 'Visit Ira':gt 'IrinaRoom', 'first'
-				end
-
-				'You make your way home with Irina. <<$irinatalk>> You get to the house where she lives. <<$irinaend>>'
-
-				act 'Say goodbye':gt 'street'
-			end
-		end
-	end
-end
-
-
-if $ARGS[0] = 'tamdin':
-	cls
-	gs 'stat'
-	'Tamara carries on washing the dishes as she turns to you.'
-
-	if hour < 22:
-		act 'Chat with Tamara':
-			cla
-			minut += 30
-			pcs_mood += 5
-			pcs_willpwr += rand(0, 2)
-
-			npc_rel['A43'] += rand(0, 5)
-
-			'You talk in the kitchen with Tamara the dishwasher.'
-
-			if GiviSex >= 1 and Kavslut = 0:
-				'Tamara snorts. It is really necessary, and you''re not even ashamed to suck Givi for wages, how disgusting!'
-			elseif Kavslut > 0:
-				'Caucasian slut you, fuck off.'
-			end
-
-			act 'Move away':gt 'kafe', 'workPred'
-		end
-	else
-		'She already going home and offers to walk with you.'
-
-		act 'Go home with Tamara':
-			cla
-			minut += 5
-
-			if clener = 1:'You walk down the street with Tamara, she does not live far from you and when you get to her house she stops and says goodbye.'
-			if clener = 0:clener = 1 & 'You walk down the street with Tamara, Tamara tells you that she sometimes works as a cleaner in an office building nearby.'
-
-			act 'Say goodbye':gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'givipredlog':
-	if IrinaSlut >= 2:
-		'Givi circles around Ira and brazenly squeezes her ass, snorting "Whoa, Ira, you''re a real slut." He turns to you, "Hey <<$pcs_nickname>> stay this evening, earn bonuses."'
-
-		act 'Stay with them':gt 'kavkazkafe', 'podgivi'
-
-		act 'Go home':
-			cla
-			minut += 5
-			gt 'kafeend'
-		end
-
-		exit
-	end
-
-	'Givi is holding a notepad and counting bottles. "Hey <<$pcs_nickname>>, you''re good with numbers, help me count bottles.'
-
-	act 'Apologize and leave':
-		cla
-		minut += 5
-		'You apologize and tell him you you counted enough during your shift.'
-
-		if GiviSex > 0:
-			'OK <<$pcs_nickname>>. How about you earn by staying and entertaining me?'
-				act 'I can''t tonight':
-					cla
-					minut += 5
-					gt 'kafeend'
-				end
-
-				act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-
-				exit
-		elseif GiviSex = 0:
-			'Whoa <<$pcs_nickname>>, did I offend you? I look out for like a mother. And you do not want to help the old man.'
-
-			act 'I''ve got to get home':
-				cla
-				npc_rel['A41'] = 0
-				minut += 5
-				gt 'kafeend'
-			end
-
-			act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-
-			exit
-		end
-
-		act 'Go home':
-			cla
-			minut += 5
-			gt 'kafeend'
-		end
-	end
-
-	act 'Help Givi':gt 'kavkazkafe', 'podgivi'
-end
-
-if $ARGS[0] = 'margo':
-	cls
-	minut += 15
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/beast/zoo/margo.jpg"></center>'
-	'You are about to summon the waitress but here comes Margaret, on noticing you she immediately comes to your table.'
-	'"Hi sorry that I took so long" Margaret sits down at the table'
-
-	if MargoSex = 0:
-		'And so you wanted to talk to me? you really took the bull by the horns.'
-		'"About the animal sex... you''re practicing it?" Margaret Asked.'
-		'"Yeah, no, you saw?" You decide to show a bit of character.'
-		'"I like the dog" Margaret said without confidence. "and I would like to try."'
-		'"Do you have a dog?" you smirk, amused by her words'
-		'"Unfortunately no," Margaret sighs sadly "I live with my parents and we are not allowed to have a dog"'
-		'"And you want to fuck my dog?" you say with undisguised sarcasm.'
-		'"Well, yes." Margaret says, your sarcasm falling on deaf ears.'
-	else
-		'You sit at the table with Margot and she admits that she liked with the dog and she wants more.'
-	end
-
-	act 'Leave':gt 'street'
-
-	if husbandMark <= 0 and husband <= 0:
-		act 'Come with me':
-			cls
-			minut += 15
-			gs 'stat'
-			'You and Margaret rise from the table and go to your home. when you get in the apartment Margaret goes into the shower.'
-
-			act 'Peek in the bathroom':gt 'kafe2', 'margoroom'
-			act 'Wait in the room':gt 'kafe2', 'margoroom2'
-
-			if pcs_horny >= 50:act 'Walk in on Margaret in the shower':gt 'kafe2', 'margoroom3'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom':
-	cls
-	minut += 15
-	gs 'stat'
-	'You open the door a little bit and look in after her but nothing happens. Margaret just looks at you and you notice that she beautiful body.'
-
-	act 'Walk into the room':gt 'kafe2', 'margoroom2'
-end
-
-if $ARGS[0] = 'margoroom2':
-	cls
-	minut += 15
-	gs 'stat'
-	'-I''m ready:Margaret says entering the hall'
-	'A very good start, you answer Margaret.'
-
-	act 'Suck the dog''s dick':
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo6.jpg"></center>'
-		'Margot leans towards the male and shifts to an excellent position to start sucking him. Finally the member of the dog is alert.'
-		
-		gs 'arousal', 'voyeur', 15, 'beast'
-		gs 'stat'
-
-		act 'Insert the dog''s dick in her ass.':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/beast/zoo/anal.jpg"></center>'
-			'Margaret gets on all fours and you direct the cock into her anus, the dog''s fleshy bulb slides slowly inside her tight hole. After only two thrusts, Margaret  was already squealing like the most natural bitch.'
-			'Margaret suddenly starts crying, then as the dog thrust in, abruptly moaned as her eyes welled up with tears.'
-			'"Margaret, what happened, did you cum?"'
-			'"<<$pcs_nickname>> it stuck in me" Margaret said quietly licking her lips, "It feels unusual, something is pushing against the walls of my anus and feels painful and pleasant at the same time, I did not yet cum."'
-			'"Yes, it is an unusual and pleasant feelings, I completely agree, do not make any sudden movements or jerks, or the dog can break your wonderful ass. Show some care Margaret.'
-			'"<<$pcs_nickname>> you know, I watched a zooporno with a 19 year old girl that had 17 orgasms in 3 hours" then as she moves Margaret licks her lip "Yeah, this would kill her record."'
-			'"Right, a video like what would certainly be...interesting " you say skeptically "my father would love that video personally." Margaret said, trying to change positions but the dog viciously thrust inside and Margaret could not be freed so that she couldn''t move'
-			'The unexpected knot in Margaret''s ass loosened and the member of the dog come out with a strange "SCHLPOP!" sound and out of Margarets ass flowed sperm and blood.'
-			'"Ohrenet, (Jeeze,)" Margaret sighed in delight. "I''ll do this kind of stuff more often. I''m going to bathe, and then I''ll head home."'
-
-			gs 'arousal', 'voyeur', 15, 'beast'
-			gs 'arousal', 'end'
-			gs 'stat'
-		
-			act 'Walk into the shower with Margaret':gt 'kafe2', 'margoshower'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoshower':
-	cls
-	QWdogreiqTimer = 7
-	QWdogReiq = 2
-	gs 'stat'
-	'You undress and start to follow Margaret into the shower. You didn''t really have time for a bath since Margaret pulls your head in for kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-		
-	act '<font color="magenta">Have her lick your nipples</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick them and their sharp little edges'
-		
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-	
-		if lactate = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			minut += (lactatemv/100)
-			if lactatemv > 800:
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-				lactatemv = 0
-			else
-				'She empties your breasts, and then smiles at you.'
-				lactatemv = 0
-			end
-		end
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your pussy</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-		
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your ass</font>':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'arousal', 'anal_finger', 15, 'lesbian', 'dom'
-		minut -= 15
-		gs 'stat'
-	
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-		
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Carry her out':gt 'korr'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act '<font color="magenta">Stick your hand in the ass</font>':
-				cls
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-
-				gs 'arousal', 'anal_fist', 15, 'lesbian'
-				gs 'stat'
-	
-				if pcs_horny >= 90:pcs_horny = 0 & analorgasm += 1 & 'You covered orgasm.'
-
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-				
-				act 'Carry her out':gt 'korr'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom3':
-	cls
-	gs 'stat'
-	'You start to undress and go to the shower, following Margaret. You do not have time to really get into the bath since Margaret pulls your head in for a kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-	
-	act 'Have her lick your nipples':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick and nibble on them with her sharp little teeth'
-		
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-		
-		if lactate = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			minut += (lactatemv/100)
-			if lactatemv > 800:
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-				lactatemv = 0
-			else
-				'She empties your breasts, and then smiles at you.'
-				lactatemv = 0
-			end
-		end
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your vagina':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-		
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-		
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your ass':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-		
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-		
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act 'Stick me in the ass hand':
-				cls
-				minut += 15
-				pcs_horny += 60
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-				
-				gs 'arousal', 'anal_fist', 15, 'lesbian', 'dom'
-				gs 'stat'
-		
-				if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-				
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Walk into the room':gt 'kafe2', 'margoroom2'
-			end
-		end
-	end
-end
-
---- kafe2 ---------------------------------
-
+# kafe2
+
+if $ARGS[0] = 'toilet':
+
+	$location_type = 'bathroom'
+	$locM = 'kafe2'
+	$metkaM = 'toilet'
+
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
+	'Dirty and smelly toilet that seems to have never been cleaned'
+	turand = rand(0, 100)
+
+	if turand = 0:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand.jpg"></center>'
+		'Going to the toilet you see in one of the booths, a drunk girl with bottle in hand riding a guys dick standing over the toilet facing away from him.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	elseif turand = 1:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand1.jpg"></center>'
+		'Going to the toilet you see a skinny girl sucking dick as the guy photographs everything in the mirror.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	elseif turand = 2:
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/tuarand2.jpg"></center>'
+		'Going to the toilet you catch a redhead sucking her boyfriends cock.'
+
+		act 'Leave':gt 'kafe', 'workPred'
+
+		exit
+	end
+
+	act 'Leave':gt 'kafe', 'workPred'
+
+	act 'Look in the mirror': gt 'mirror', 'start'
+	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
+
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+end
+
+if $ARGS[0] = 'givi':
+	cls
+	gs 'stat'
+
+	if hour < 22:
+		'You go to the bar, behind which stands the cafe owner Givi K., he looks up from wiping glasses to look at you.'
+
+		if hour = 20 and npc_rel['A41'] >= 90:
+			act 'Beg for time off':
+				cla
+				minut += 5
+				npc_rel['A41'] -= 5
+				'You take time off to leave early, Givi was a little angry but let you go.'
+
+				act 'Move away':gt 'street'
+			end
+		end
+
+		if Kavslut > 0 and IrinaQW >= 10 and IrinaSlut = 0 and hour <= 20:
+			act 'Ask Givi go give Ira a raise':
+				cla
+				IrinaSlut = 1
+				minut += 30
+				gs 'stat'
+				'You Givi if he will give Ira a raise. Givi grunts, "What for?" You appeal to his better nature, saying that she is your close friend and you want to help her. Givi promise to think about a wage increase.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			end
+		end
+
+		act 'Chat with Givi':
+			cla
+			minut += 30
+			pcs_mood += 5
+
+			if GiviSex = 0:
+
+				if npc_rel['A41'] <= 90:npc_rel['A41'] += rand(10, 25)
+				if npc_rel['A41'] > 90 and GiviSex = 0:npc_rel['A41'] = 90
+
+				'You talk at the bar with the cafe owner and part-time bartender Givi.'
+
+				if npc_rel['A41'] = 90:'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif GiviSex >= 1 and kavslut = 0:
+				npc_rel['A41'] = 100
+				'You talk at the bar with the cafe owner and part-time bartender Givi.'
+				'"Hey <<$pcs_nickname>>, I enjoyed it so much last time. Stay with me tonight and help."'
+				'As you depart a hand slaps you on the ass. Turning around you see that Givi is smiling mischievously.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif GiviSex >= 1 and kavslut > 0:
+				npc_rel['A41'] = 100
+				givirand = rand(0, 100)
+
+				if givirand < 10 and Venera < 4:
+					'"<<$pcs_nickname>> I what that sexy body, come and relieve my stress." With these words, Givi takes you by the hand.'
+
+					act 'Kneel':
+						cla
+						*clr
+						smenaKafe += 1
+
+						if giviSex < 2:GiviSex = 2
+
+						gs 'bdman', 'givi'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
+						'You bend down behind the bar, out of view of the customers, kneel before Givi and take out his member.'
+						gs 'bdsex', 'autobj'
+						'Givi grabs you hard by the hair and pulls your mouth deeper onto his cock.'
+
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
+
+						act 'Continue to suck.':
+							cla
+							*clr
+							swallow += 1
+							gs 'boyStat', 'A41'
+							sexpartkno = 1
+							spafinloc = 12
+							gs 'cum_manage'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
+							'A hot jet of sperm hits the back of your throat. You start to swallow cum, and Givi continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
+
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Move away':gt 'kafe', 'workPred'
+						end
+					end
+
+					if GiviSex < 2:
+						act 'Excuse me':
+							cla
+							'"Wow, <<$pcs_nickname>> you dirty slut, if you spend some quality time with me I could give you a pay rise, think of all the pretty dresses you could buy." Says Givi.'
+
+							act 'Move away':gt 'kafe', 'workPred'
+						end
+					end
+				elseif givirand >= 10 or Venera >= 4:
+					'Givi slaps you on the ass strongly and whinnied. "<<$pcs_nickname>>, that''s one fine ass!"'
+
+					act 'Move away':gt 'kafe', 'workPred'
+				end
+			end
+		end
+	else
+		if pcs_apprnc < 0:
+			'Givi nods his head at you, "<<$pcs_nickname>>."'
+
+			act 'Leave':
+				cla
+				minut += 5
+				gt 'kafeend'
+			end
+		else
+			gt 'kafe2', 'givipredlog'
+		end
+	end
+end
+
+if $ARGS[0] = 'ashot':
+	$loc = 'kafe2'
+	$metka = 'ashot'
+	cls
+	gs 'stat'
+	'You go into the kitchen where trainee chef Ashot is cooking. Dishwasher <a href="exec:gt ''kafe2'', ''tamdin''">Tamara</a> as always stands near the sink and washes the dishes.'
+
+	if hour < 22:
+		act 'Eat some food (0:30)':
+			gs 'food', 'm_meal'
+		end
+
+		act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
+
+		act 'Chat with Ashot':
+			cla
+			minut += 30
+			pcs_mood += 5
+			gs 'stat'
+
+			if npc_rel['A42'] <= 90:npc_rel['A42'] += rand(0, 5)
+
+			if giviSex > 0 and Ashotsex = 0:
+				if npc_rel['A42'] <= 90:npc_rel['A42'] = 90
+
+				pcs_horny += 10
+				'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass really tight, it makes you squeal. Ashot laughs.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif giviSex = 0 and Ashotsex = 0:
+				'You talk in the kitchen with chef Ashot.'
+
+				act 'Move away':gt 'kafe', 'workPred'
+			elseif giviSex > 0 and Ashotsex > 0:
+				Ashotrand = rand(0, 100)
+
+				if Ashotrand > 20:
+					'"You''re a cool bitch" says Ashot grabbing your ass.'
+
+					gs 'arousal', 'foreplay', 10, 'sub'
+					gs 'stat'
+
+					act 'Move away':gt 'kafe', 'workPred'
+				elseif Ashotrand <= 20:
+					*clr
+					cla
+					'As you walk further into the kitchen, Ashot comes up to you and squeezes your ass, "My poor dick, it really misses your ass."'
+
+					act 'Allow':
+						*clr
+						cla
+
+						if analplugin = 1 :
+							*clr
+							cla
+							analplugin = 0
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analplug.jpg"></center>'
+							'"That''s very considerate!" Ashot swiftly pulls out your anal plug.'
+
+							act 'What the ...?':
+								*clr
+								cla
+								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
+								'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
+
+								gs 'arousal', 'anal', 10, 'sub'
+								gs 'stat'
+
+								act 'Moan':
+									*clr
+									cla
+
+									pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
+									Ashotsex += 1
+									gs 'boyStat', 'A42'
+									sexpartkno = 1
+									spafinloc = 3
+									gs 'cum_manage'
+
+									if pcs_ass < 18:pcs_ass += 1
+
+									'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
+									'Ashot leans forward thrusting his cock as deeply as possible.'
+
+									gs 'arousal', 'anal', 10, 'sub'
+									gs 'stat'
+
+									if pcs_horny >= 100 :
+										analorgasm += 1
+										$orgasm_or = 'custom'
+										$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+									end
+
+									'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
+
+									act 'Move away':gt 'kafe', 'workPred'
+								end
+							end
+						else
+							*clr
+							cla
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/analkafe.jpg"></center>'
+							'He pushes your head forwards and gets his dick out. Without giving your sphincter time to relax, he has his cock in your ass and is fucking it deeply. Ashot grips your hips and his member beats away at your ass, tears are flowing from your eyes. "Move your ass, move, you lustful whore!"'
+
+							gs 'arousal', 'anal', 10, 'sub'
+							gs 'stat'
+
+							act 'Moan':
+								*clr
+								cla
+								pcs_horny += SUB - pcs_dom + ((pcs_ass - 18) * 3)
+								Ashotsex += 1
+								spafinloc = 3
+								gs 'cum_manage'
+
+								if 18 > pcs_ass:pcs_ass += 1
+
+								'<center><img <<$set_imgh>> src="images/shared/sex/cum/analcreampie/kafeanpie.jpg"></center>'
+								'Ashot leans forward thrusting his cock as deeply as possible.'
+
+								gs 'arousal', 'anal', 10, 'sub'
+								gs 'stat'
+
+								if pcs_horny >= 100 :
+									analorgasm += 1
+									$orgasm_or = 'custom'
+									$orgasm_txt = 'A blazing fire builds in your ass and waves of pleasure sweep through your body, you are moaning in orgasm as your ass is impaled on his dick.'
+								end
+
+								'You feel the heat as jets of sperm hit inside your anus. Having finished in your ass, Ashot says that such a fuckable hole needs to be fucked. He pulls out his member and you feel a slow trickle of sperm dripping from your butt.'
+
+								act 'Move away':gt 'kafe', 'workPred'
+							end
+						end
+					end
+				end
+			elseif giviSex = 0 and Ashotsex > 0:
+				'"Sexy girl, with your lovely juicy ass, my dick still remembers skewering it." Says Ashot grabbing your ass.'
+
+				gs 'arousal', 'foreplay', 10, 'sub'
+				gs 'stat'
+
+			end
+		end
+	else
+		'Ashot is putting away his cooking equipment, getting ready to go.'
+
+	end
+
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Move away':gt 'kafe', 'workPred'
+end
+
+if $ARGS[0] = 'ira':
+	cls
+	gs 'stat'
+
+	'Ira is not currently busy and stands waiting at the counter.'
+
+	if hour < 22:
+		act 'Chat with Irina':
+			cla
+			minut += 30
+			pcs_mood += 5
+			gs 'stat'
+			pcs_willpwr += rand(0, 1)
+
+			npc_rel['A93'] += rand(0, 5)
+
+			gs 'stat'
+			'You chat with the waitress Ira at the bar.'
+
+			if IrinaQW ! 10 or IrinaLesbSex >= 3:
+				if GiviSex >= 1 and Kavslut = 0:
+					'Ira, with round eyes tells you the rumor going around is that you are blowing Givi.'
+				elseif Kavslut > 0:
+					'Ira tells you that she knows that you are fucking Caucasians in the evenings.'
+				end
+			elseif IrinaQW = 10 and IrinaLesbSex = 2:
+				IrinaLesbSex = 3
+				'Irina is a bit more relaxed and has stopped fidgeting when you are around.'
+			elseif IrinaQW = 10 and IrinaLesbSex = 1:
+				IrinaLesbSex = 2
+				'Irina and you smile and try to communicate, but it is awkward and strained.'
+			elseif IrinaQW = 10 and IrinaLesbSex = 0:
+				IrinaLesbSex = 1
+				'Irina clearly looks apprehensive and tries not to look you in the eye. You approach her and try to calm her down. Irina dismissively nods and says, "I''m willing to pretend that nothing ever happened. I don''t want anybody to know about it." You agree with Ira.'
+			end
+
+			act 'Move away':gt 'kafe', 'workPred'
+		end
+	else
+		if IrinaSlut >= 2:
+			gt 'kafe2', 'givipredlog'
+		elseif IrinaSlut < 2:
+			act 'Go home with Irina':
+				cla
+				npc_rel['A93'] += 5
+				minut += 5
+				gs 'stat'
+
+				if npc_rel['A93'] < 100:
+					if npc_rel['A93'] < 50:
+						if GiviSex >= 1 and Kavslut = 0:
+							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
+						elseif Kavslut > 0:
+							$irinatalk = 'Along the way she is essentially silent and occasionally glances at you.'
+						else
+							$irinatalk = 'Irina is mostly silent the whole way.'
+						end
+
+						$irinaend = 'Near the entrance is quickly says goodbye and goes to her home.'
+					else
+						if GiviSex >= 1 and Kavslut = 0:
+							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your relationship with Givi.'
+						elseif Kavslut > 0:
+							$irinatalk = 'Along the way she mostly silent, but emboldened begins to ask you about your sexaual adventures at the cafe, wondering how she could be a little more like you.'
+						else
+							$irinatalk = 'The two of you gossip the whole way.'
+						end
+
+						$irinaend = 'Near the entrance she waves her hand at you goes to her home.'
+					end
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 0:
+					IrinaQW = 1
+
+					$irinatalk = 'Ira is fun and chatters all the way.'
+					$irinaend = 'She invites you to visit her on Saturday and goes to her door.'
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 1:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'On the way Irina talks about her ex-boyfriend.'
+					elseif Kavslut > 0:
+						$irinatalk = 'On the way Irina talks about her ex-boyfriend. She also tells you about how she once gave a blowjob in the toilet of the club when drunk with that guy.'
+					else
+						$irinatalk = 'Irina chatted all the way to the home.'
+					end
+
+					$irinaend = 'Ira standing by her door invites you to come in with her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW = 2:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect you to be not only sleeping with men, but also with women. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, that from such a whore as you of course it was only to be expected that you would be sleeping with everyone. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					else
+						$irinatalk = 'Irina is mostly silent all the way, but finally musters up the determination to say, she did not expect that such a nice girl like you, would actually be a lesbian. Trying to be polite, it''s not that she is against sexual minorities, but she did not want to sleep with women, they are so soft and nasty, just awful.'
+					end
+
+					$irinaend = 'Going to the door she says goodbye to you and leaves.'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut >= 2:
+					if Kavslut > 0:
+						$irinatalk = 'Ira, smiling, tells that she had long wanted to stop living like a nun and live freely and she thanks you for your help ..'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 1:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure. She notes that you obviously have more experience, for example she has never slept with two men at once.'
+					else
+						$irinatalk = 'Ira, smiling, tells you that she is surprised and did not expect to find sex with a woman so much pleasure.'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				elseif npc_rel['A93'] >= 100 and IrinaQW >= 10 and IrinaSlut = 0:
+					if GiviSex >= 1 and Kavslut = 0:
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
+					elseif Kavslut > 0:
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman such pleasure. she notices, which, so il will never slept with two men at once. She also asked her to speak to her word Givi, she also wants a pay rise.'
+					else
+						$irinatalk = 'Ira smiling surprised that she did not expect to have sex with a woman so much pleasure.'
+					end
+
+					$irinaend = 'Standing at the door of her house Ira invites you to come to visit her.'
+
+					act 'Visit Ira':gt 'IrinaRoom', 'first'
+				end
+
+				'You make your way home with Irina. <<$irinatalk>> You get to the house where she lives. <<$irinaend>>'
+
+				act 'Say goodbye':gt 'street'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'tamdin':
+	cls
+	gs 'stat'
+	'Tamara carries on washing the dishes as she turns to you.'
+
+	if hour < 22:
+		act 'Chat with Tamara':
+			cla
+			minut += 30
+			pcs_mood += 5
+			pcs_willpwr += rand(0, 2)
+
+			npc_rel['A43'] += rand(0, 5)
+
+			'You talk in the kitchen with Tamara the dishwasher.'
+
+			if GiviSex >= 1 and Kavslut = 0:
+				'Tamara snorts. It is really necessary, and you''re not even ashamed to suck Givi for wages, how disgusting!'
+			elseif Kavslut > 0:
+				'Caucasian slut you, fuck off.'
+			end
+
+			act 'Move away':gt 'kafe', 'workPred'
+		end
+	else
+		'She already going home and offers to walk with you.'
+
+		act 'Go home with Tamara':
+			cla
+			minut += 5
+
+			if clener = 1:'You walk down the street with Tamara, she does not live far from you and when you get to her house she stops and says goodbye.'
+			if clener = 0:clener = 1 & 'You walk down the street with Tamara, Tamara tells you that she sometimes works as a cleaner in an office building nearby.'
+
+			act 'Say goodbye':gt 'street'
+		end
+	end
+end
+
+if $ARGS[0] = 'givipredlog':
+	if IrinaSlut >= 2:
+		'Givi circles around Ira and brazenly squeezes her ass, snorting "Whoa, Ira, you''re a real slut." He turns to you, "Hey <<$pcs_nickname>> stay this evening, earn bonuses."'
+
+		act 'Stay with them':gt 'kavkazkafe', 'podgivi'
+
+		act 'Go home':
+			cla
+			minut += 5
+			gt 'kafeend'
+		end
+
+		exit
+	end
+
+	'Givi is holding a notepad and counting bottles. "Hey <<$pcs_nickname>>, you''re good with numbers, help me count bottles.'
+
+	act 'Apologize and leave':
+		cla
+		minut += 5
+		'You apologize and tell him you you counted enough during your shift.'
+
+		if GiviSex > 0:
+			'OK <<$pcs_nickname>>. How about you earn by staying and entertaining me?'
+				act 'I can''t tonight':
+					cla
+					minut += 5
+					gt 'kafeend'
+				end
+
+				act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+
+				exit
+		elseif GiviSex = 0:
+			'Whoa <<$pcs_nickname>>, did I offend you? I look out for like a mother. And you do not want to help the old man.'
+
+			act 'I''ve got to get home':
+				cla
+				npc_rel['A41'] = 0
+				minut += 5
+				gt 'kafeend'
+			end
+
+			act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+
+			exit
+		end
+
+		act 'Go home':
+			cla
+			minut += 5
+			gt 'kafeend'
+		end
+	end
+
+	act 'Help Givi':gt 'kavkazkafe', 'podgivi'
+end
+
+if $ARGS[0] = 'margo':
+	cls
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/beast/zoo/margo.jpg"></center>'
+	'You are about to summon the waitress but here comes Margaret, on noticing you she immediately comes to your table.'
+	'"Hi sorry that I took so long" Margaret sits down at the table'
+
+	if MargoSex = 0:
+		'And so you wanted to talk to me? you really took the bull by the horns.'
+		'"About the animal sex... you''re practicing it?" Margaret Asked.'
+		'"Yeah, no, you saw?" You decide to show a bit of character.'
+		'"I like the dog" Margaret said without confidence. "and I would like to try."'
+		'"Do you have a dog?" you smirk, amused by her words'
+		'"Unfortunately no," Margaret sighs sadly "I live with my parents and we are not allowed to have a dog"'
+		'"And you want to fuck my dog?" you say with undisguised sarcasm.'
+		'"Well, yes." Margaret says, your sarcasm falling on deaf ears.'
+	else
+		'You sit at the table with Margot and she admits that she liked with the dog and she wants more.'
+	end
+
+	act 'Leave':gt 'street'
+
+	if husbandMark <= 0 and husband <= 0:
+		act 'Come with me':
+			cls
+			minut += 15
+			gs 'stat'
+			'You and Margaret rise from the table and go to your home. when you get in the apartment Margaret goes into the shower.'
+
+			act 'Peek in the bathroom':gt 'kafe2', 'margoroom'
+			act 'Wait in the room':gt 'kafe2', 'margoroom2'
+
+			if pcs_horny >= 50:act 'Walk in on Margaret in the shower':gt 'kafe2', 'margoroom3'
+		end
+	end
+end
+
+if $ARGS[0] = 'margoroom':
+	cls
+	minut += 15
+	gs 'stat'
+	'You open the door a little bit and look in after her but nothing happens. Margaret just looks at you and you notice that she beautiful body.'
+
+	act 'Walk into the room':gt 'kafe2', 'margoroom2'
+end
+
+if $ARGS[0] = 'margoroom2':
+	cls
+	minut += 15
+	gs 'stat'
+	'-I''m ready:Margaret says entering the hall'
+	'A very good start, you answer Margaret.'
+
+	act 'Suck the dog''s dick':
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo6.jpg"></center>'
+		'Margot leans towards the male and shifts to an excellent position to start sucking him. Finally the member of the dog is alert.'
+
+		gs 'arousal', 'voyeur', 15, 'beast'
+		gs 'stat'
+
+		act 'Insert the dog''s dick in her ass.':
+			cls
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/beast/zoo/anal.jpg"></center>'
+			'Margaret gets on all fours and you direct the cock into her anus, the dog''s fleshy bulb slides slowly inside her tight hole. After only two thrusts, Margaret  was already squealing like the most natural bitch.'
+			'Margaret suddenly starts crying, then as the dog thrust in, abruptly moaned as her eyes welled up with tears.'
+			'"Margaret, what happened, did you cum?"'
+			'"<<$pcs_nickname>> it stuck in me" Margaret said quietly licking her lips, "It feels unusual, something is pushing against the walls of my anus and feels painful and pleasant at the same time, I did not yet cum."'
+			'"Yes, it is an unusual and pleasant feelings, I completely agree, do not make any sudden movements or jerks, or the dog can break your wonderful ass. Show some care Margaret.'
+			'"<<$pcs_nickname>> you know, I watched a zooporno with a 19 year old girl that had 17 orgasms in 3 hours" then as she moves Margaret licks her lip "Yeah, this would kill her record."'
+			'"Right, a video like what would certainly be...interesting " you say skeptically "my father would love that video personally." Margaret said, trying to change positions but the dog viciously thrust inside and Margaret could not be freed so that she couldn''t move'
+			'The unexpected knot in Margaret''s ass loosened and the member of the dog come out with a strange "SCHLPOP!" sound and out of Margarets ass flowed sperm and blood.'
+			'"Ohrenet, (Jeeze,)" Margaret sighed in delight. "I''ll do this kind of stuff more often. I''m going to bathe, and then I''ll head home."'
+
+			gs 'arousal', 'voyeur', 15, 'beast'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			act 'Walk into the shower with Margaret':gt 'kafe2', 'margoshower'
+		end
+	end
+end
+
+if $ARGS[0] = 'margoshower':
+	cls
+	QWdogreiqTimer = 7
+	QWdogReiq = 2
+	gs 'stat'
+	'You undress and start to follow Margaret into the shower. You didn''t really have time for a bath since Margaret pulls your head in for kiss.'
+
+	gs 'arousal', 'kiss', 15, 'lesbian'
+	gs 'stat'
+
+	act '<font color="magenta">Have her lick your nipples</font>':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
+		'Margaret takes your swollen nipples into her mouth. She begins to lick them and their sharp little edges'
+
+		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if lactate = 1:
+			'You feel your breasts let down, as Margaret continues to suck on your nipples'
+			temp_var = lactatemv + lactaterate
+			if tempvar > 8000:
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
+				'She sucks for a long while, drinking a full belly of your ample milk.'
+
+			else
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
+				'She empties your breasts, and then smiles at you.'
+
+			end
+		end
+		act 'Carry her out':gt 'korr'
+	end
+
+	act '<font color="magenta">Have her lick your pussy</font>':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
+		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+		act 'Carry her out':gt 'korr'
+	end
+
+	act '<font color="magenta">Have her lick your ass</font>':
+		cls
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
+		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'arousal', 'anal_finger', 15, 'lesbian', 'dom'
+		minut -= 15
+		gs 'stat'
+
+		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Carry her out':gt 'korr'
+
+		if pcs_ass > 15 and pcs_horny > 0:
+			act '<font color="magenta">Stick your hand in the ass</font>':
+				cls
+				pcs_ass += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
+				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
+
+				gs 'arousal', 'anal_fist', 15, 'lesbian'
+				gs 'stat'
+
+				if pcs_horny >= 90:pcs_horny = 0 & analorgasm += 1 & 'You covered orgasm.'
+
+				$orgasm_or = 'yes'
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Carry her out':gt 'korr'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'margoroom3':
+	cls
+	gs 'stat'
+	'You start to undress and go to the shower, following Margaret. You do not have time to really get into the bath since Margaret pulls your head in for a kiss.'
+
+	gs 'arousal', 'kiss', 15, 'lesbian'
+	gs 'stat'
+
+	act 'Have her lick your nipples':
+		cls
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
+		'Margaret takes your swollen nipples into her mouth. She begins to lick and nibble on them with her sharp little teeth'
+
+		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if lactate = 1:
+			'You feel your breasts let down, as Margaret continues to suck on your nipples'
+			temp_var = lactatemv + lactaterate
+			if tempvar > 8000:
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
+				'She sucks for a long while, drinking a full belly of your ample milk.'
+
+			else
+				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
+				'She empties your breasts, and then smiles at you.'
+
+			end
+		end
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+	end
+
+	act 'Have her lick your vagina':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
+		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+	end
+
+	act 'Have her lick your ass':
+		cls
+
+		if MargoSex = 0:MargoSex = 1 & girl += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
+		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
+
+		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
+		gs 'stat'
+
+		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
+
+		$orgasm_or = 'yes'
+		gs 'stat'
+
+		act 'Walk into the room':gt 'kafe2', 'margoroom2'
+
+		if pcs_ass > 15 and pcs_horny > 0:
+			act 'Stick me in the ass hand':
+				cls
+				minut += 15
+				pcs_horny += 60
+				pcs_ass += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
+				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
+
+				gs 'arousal', 'anal_fist', 15, 'lesbian', 'dom'
+				gs 'stat'
+
+				if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
+
+				$orgasm_or = 'yes'
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Walk into the room':gt 'kafe2', 'margoroom2'
+			end
+		end
+	end
+end
+
+--- kafe2 ---------------------------------
+

locations/kid.qsrc

@@ -1,263 +1,265 @@
-# kid
-
-$breastfeed = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/body/tits/breast_feed.jpg"></center>'
-	'You pick up <<$kidname[ks]>> from <<$kidPosPro[ks]>> crib and cuddle for a moment before exposing your breast.'
-	if rand(1,10) = 10:
-		'You lift <<$kidname[ks]>> to your breast but your <<$sdtext[ks]>> doesn''t latch on.'
-		mood -= 5
-		minut += 5
-	else
-		minut += 15
-		'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. <<$kidPosProPN[ks]>> drinks <<lactatemv>>ml of your milk.'
-		breastcounter += 1
-		lactatemv = 0
-		if pain['nipples'] < 10:
-			pain['nipples'] += 20
-		end
-	end
-	'You gently lay <<$kidname[ks]>> back <<$babyloc>>.'
-	act 'Done': 
-		gt 'kid', 'start'
-	end
-}
-
-$play = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/activities/baby_play.jpg"></center>'
-	'You get down on the floor with your <<$sdtext[ks]>> and begin to make face and noises to your little <<$polreb[ks]>>.'
-	'<<$kidname[ks]>> giggles in delight and squirms on the floor in response to you.'
-	'After a while you get up and straighten your clothes before going on with your day.'
-	pcs_mood += 20
-	minut += 20
-	act 'Done':
-		gt 'kid', 'start'
-	end
-}
-
-$totplay = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/pc/activities/tot_play.jpg"></center>'
-	'"Mom! Mom! Mom! Mom!" Yells <<$kidname[ks]>>, "Come play with me!"'
-	'"Ok <<$kidname[ks]>>!" You reply.' 
-	'You pull out a bin of blocks and spend a period of time playing and building with your child.'
-	'After a short time, <<$kidname[ks]>> pushes over the small tower you have built, snickers and runs off'
-	'You get up, straighten up your clothes, laugh, and move on with your day'
-	pcs_mood += 20
-	minut += 20
-	act 'Done': 
-		gt 'kid', 'start'
-	end
-}
-$tottv = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv.jpg"></center>'
-	'You pull <<$kidname[ks]>> up onto the couch with you and cuddle up to watch TV'
-	'You watch a cartoon featuring a Rabbit, a Duck, and a Pig that is quite silly'
-	mood += 10
-	minut += 60
-	act 'Done': 
-		gt 'kid', 'start'
-	end
-}
-$kidtv = {
-	cla
-	*clr
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv2.jpg"></center>'
-	'You attempt to curl up on the couch with <<$kidname[ks]>>'
-	'"Mom! I''m trying to watch TV!" <<$kidname[ks]>> says.'
-	'"Well I am gonna watch with you." You reply, followed by tickling <<$kidname[ks]>> to open up a spot on the couch for you to sit.'
-	'You watch a kids TV show about two American teenagers that barely catches your interest.'
-	minut += 60
-	act 'Done': 
-		gt 'kid', 'start'
-	end
-}
-
-$homework = {
-	cla
-	*clr
-	if polkid[k] = 0:
-			$kidPosPronn[ks] = 'her'
-		else
-			$kidPosPronn[ks] = 'him'
-	end
-	gs 'stat'
-	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/homework1.jpg"></center>'
-	'You see that <<$kidname[ks]>> is working on a pile of homework. They give kids so much homework now days.'
-	'"Can mommy help you with some of that?" you ask'
-	'<<$kidname[ks]>> replies, "Mommy?!... Mom stop treating me like a baby... but yes, I would like some help."'
-	'<br>'
-	'You sit down at the table next to <<$kidname[ks]>> and begin to help <<$kidPosPronn[ks]>> with the homework'
-	if pcs_grades > 50:
-		'The homework is completed quickly thanks to the attention you payed in school. An A should be an easy achievement.'
-	else
-		'You really wish you had payed more attention in school. The homework is not overly complex but is still not the easiest thing for you.'
-	end
-	homework[ks] = daystart
-	minut += rand(30,80)
-	act 'Done': 
-		gt 'kid', 'start'
-	end
-}
-
-if $ARGS[0] = 'start':
-	gs 'stat'
-	if kid > 0:
-		k = 0
-		end
-		if lactate > 0 and lactatemv <= 1:
-			'You cannot breast feed right now.'
-		end
-		:loop
-		if k < kid:
-			gs 'kid','kidlist'
-			k += 1
-			jump 'loop'
-		end
-		'Child Selected: <<$kidname[ks]>>'
-		if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>' 
-		if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
-		
-	act 'Leave':
-		cla
-		killvar 'ks'
-		gt $loc, $metka
-	end
-end
-
-if $ARGS[0] = 'kidlist':
-		if kidage[k] < 1:
-			if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
-				kiddaycalc[k] = day - daykid[k]	
-				if kiddaycalc[k] = 1:
-					$kidagetext[k] = '<<kiddaycalc[k]>> day old'
-				else
-					$kidagetext[k] = '<<kiddaycalc[k]>> days old'
-				end
-			elseif (month - monthkid[k]) < 1 :
-				kiddaycalc[k] = (day - daykid[k]) / 7
-				if kiddaycalc[k] = 1:
-					$kidagetext[k] = '<<kiddaycalc[k]>> week old'
-				else
-					$kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
-				end
-			else
-				kidmonthcalc[k] = (month - monthkid[k])
-				if kidmonthcalc[k] = 1:
-					$kidagetext[k] = '<<kidmonthcalc[k]>> month old'
-				else
-					$kidagetext[k] = '<<kidmonthcalc[k]>> months old'
-				end
-			end
-		else
-			if kidage[k] = 1:
-			$kidagetext[k] = '<<kidage[k]>> year old'
-			else
-			$kidagetext[k] = '<<kidage[k]>> years old'
-			end
-		end
-		if $polreb[k] = 'girl':
-			$sdtext[k] = 'daughter'
-		elseif $polreb[k] = 'boy':
-			$sdtext[k] = 'son'
-		end
-		if polkid[k] = 0:
-			$kidPosPro[k] = 'her'
-		else
-			$kidPosPro[k] = 'his'
-		end
-		if polkid[k] = 0:
-			$kidPosProC[k] = 'Her'
-		else
-			$kidPosProC[k] = 'His'
-		end
-		if polkid[k] = 0:
-			$kidPosProPN[k] = 'She'
-		else
-			$kidPosProPN[k] = 'He'
-		end
-		if ks = k:
-		'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
-		else:
-		'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.' 
-		end
-		
-		if kidage[k] < 1:
-			if hour >= 12 and hour < 18: 
-			$babyloc = 'onto the blanket'
-			'<<$kidname[k]>></a> is laying on a blanket'
-			else:
-			$babyloc = 'into the crib'
-			'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
-			end
-			
-		elseif kidage[k] >= 1 and kidage[k] < 7:
-			if hour >= 9 and hour < 21 and rkidloc < 8:
-			$totloc = 'playing with toys on the floor'
-			'<<$kidname[k]>> is playing with toys.'
-			elseif hour < 9 or hour >= 21:
-			'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
-			else
-			$totloc = 'watching TV'
-			'<<$kidname[k]>> is watching TV.'
-			end
-		elseif kidage[k] >= 7 and kidage[k] < 18:
-			if hour >= 21 or hour < 8:
-				'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
-			elseif hour >= 8 and hour < 9:
-				'<<$kidname[k]>> is getting ready for school.'
-			elseif hour >= 9 and hour < 16:
-				'<<$kidname[k]>> is at school.'
-			elseif hour >= 16 and hour < 18 and homework[k] < daystart:
-				$kidloc = 'working on homework'
-				'<<$kidname[k]>> is working on homework.'
-			else
-				$kidloc = 'watching TV'
-				'<<$kidname[k]>> is watching TV.'
-			end
-		end
-		if kid > 0 and kidage[ks] < 1:
-			
-			if lactate > 0 and lactatemv > 1:
-				act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
-			end
-			if $babyloc = 'onto the blanket':
-				act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
-			end				
-		end
-		if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
-			if $totloc = 'playing with toys on the floor':
-				act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
-			elseif $totloc = 'watching tv':
-				act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
-			end
-		end
-		if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
-			if $kidloc = 'watching TV':
-				act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
-			elseif $kidloc = 'working on homework':
-				act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
-			end
-		end
-			"<hr>"
-	end
-
---- kid ---------------------------------
-
+# kid
+
+$breastfeed = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/body/tits/breast_feed.jpg"></center>'
+	'You pick up <<$kidname[ks]>> from <<$kidPosPro[ks]>> crib and cuddle for a moment before exposing your breast.'
+	if rand(1,10) = 10:
+		'You lift <<$kidname[ks]>> to your breast but your <<$sdtext[ks]>> doesn''t latch on.'
+		mood -= 5
+		minut += 5
+	else
+		minut += 15
+
+		breastcounter += 1
+		milkedvolume = func('lact_lib','$get_breastmilk', 2, 15)
+		if milkedvolume < 800:
+			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby doesn''t seem to be satisfied with the amount of milk.'
+		else
+			'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. Your baby seems satisfied with the amount of your milk.'
+		end
+	end
+	'You gently lay <<$kidname[ks]>> back <<$babyloc>>.'
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$play = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/activities/baby_play.jpg"></center>'
+	'You get down on the floor with your <<$sdtext[ks]>> and begin to make face and noises to your little <<$polreb[ks]>>.'
+	'<<$kidname[ks]>> giggles in delight and squirms on the floor in response to you.'
+	'After a while you get up and straighten your clothes before going on with your day.'
+	pcs_mood += 20
+	minut += 20
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$totplay = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/pc/activities/tot_play.jpg"></center>'
+	'"Mom! Mom! Mom! Mom!" Yells <<$kidname[ks]>>, "Come play with me!"'
+	'"Ok <<$kidname[ks]>>!" You reply.'
+	'You pull out a bin of blocks and spend a period of time playing and building with your child.'
+	'After a short time, <<$kidname[ks]>> pushes over the small tower you have built, snickers and runs off'
+	'You get up, straighten up your clothes, laugh, and move on with your day'
+	pcs_mood += 20
+	minut += 20
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+$tottv = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv.jpg"></center>'
+	'You pull <<$kidname[ks]>> up onto the couch with you and cuddle up to watch TV'
+	'You watch a cartoon featuring a Rabbit, a Duck, and a Pig that is quite silly'
+	mood += 10
+	minut += 60
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+$kidtv = {
+	cla
+	*clr
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv2.jpg"></center>'
+	'You attempt to curl up on the couch with <<$kidname[ks]>>'
+	'"Mom! I''m trying to watch TV!" <<$kidname[ks]>> says.'
+	'"Well I am gonna watch with you." You reply, followed by tickling <<$kidname[ks]>> to open up a spot on the couch for you to sit.'
+	'You watch a kids TV show about two American teenagers that barely catches your interest.'
+	minut += 60
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+$homework = {
+	cla
+	*clr
+	if polkid[k] = 0:
+			$kidPosPronn[ks] = 'her'
+		else
+			$kidPosPronn[ks] = 'him'
+	end
+	gs 'stat'
+	'<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/homework1.jpg"></center>'
+	'You see that <<$kidname[ks]>> is working on a pile of homework. They give kids so much homework now days.'
+	'"Can mommy help you with some of that?" you ask'
+	'<<$kidname[ks]>> replies, "Mommy?!... Mom stop treating me like a baby... but yes, I would like some help."'
+	'<br>'
+	'You sit down at the table next to <<$kidname[ks]>> and begin to help <<$kidPosPronn[ks]>> with the homework'
+	if pcs_grades > 50:
+		'The homework is completed quickly thanks to the attention you payed in school. An A should be an easy achievement.'
+	else
+		'You really wish you had payed more attention in school. The homework is not overly complex but is still not the easiest thing for you.'
+	end
+	homework[ks] = daystart
+	minut += rand(30,80)
+	act 'Done':
+		gt 'kid', 'start'
+	end
+}
+
+if $ARGS[0] = 'start':
+	gs 'stat'
+	if kid > 0:
+		k = 0
+		end
+		if lactate > 0 and pain['nipples'] > 60:
+			'You cannot breast feed right now. Your nipples are too sore.'
+		end
+		:loop
+		if k < kid:
+			gs 'kid','kidlist'
+			k += 1
+			jump 'loop'
+		end
+		'Child Selected: <<$kidname[ks]>>'
+		if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
+		if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
+
+	act 'Leave':
+		cla
+		killvar 'ks'
+		gt $loc, $metka
+	end
+end
+
+if $ARGS[0] = 'kidlist':
+		if kidage[k] < 1:
+			if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
+				kiddaycalc[k] = day - daykid[k]
+				if kiddaycalc[k] = 1:
+					$kidagetext[k] = '<<kiddaycalc[k]>> day old'
+				else
+					$kidagetext[k] = '<<kiddaycalc[k]>> days old'
+				end
+			elseif (month - monthkid[k]) < 1 :
+				kiddaycalc[k] = (day - daykid[k]) / 7
+				if kiddaycalc[k] = 1:
+					$kidagetext[k] = '<<kiddaycalc[k]>> week old'
+				else
+					$kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
+				end
+			else
+				kidmonthcalc[k] = (month - monthkid[k])
+				if kidmonthcalc[k] = 1:
+					$kidagetext[k] = '<<kidmonthcalc[k]>> month old'
+				else
+					$kidagetext[k] = '<<kidmonthcalc[k]>> months old'
+				end
+			end
+		else
+			if kidage[k] = 1:
+			$kidagetext[k] = '<<kidage[k]>> year old'
+			else
+			$kidagetext[k] = '<<kidage[k]>> years old'
+			end
+		end
+		if $polreb[k] = 'girl':
+			$sdtext[k] = 'daughter'
+		elseif $polreb[k] = 'boy':
+			$sdtext[k] = 'son'
+		end
+		if polkid[k] = 0:
+			$kidPosPro[k] = 'her'
+		else
+			$kidPosPro[k] = 'his'
+		end
+		if polkid[k] = 0:
+			$kidPosProC[k] = 'Her'
+		else
+			$kidPosProC[k] = 'His'
+		end
+		if polkid[k] = 0:
+			$kidPosProPN[k] = 'She'
+		else
+			$kidPosProPN[k] = 'He'
+		end
+		if ks = k:
+		'<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
+		else:
+		'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
+		end
+
+		if kidage[k] < 1:
+			if hour >= 12 and hour < 18:
+			$babyloc = 'onto the blanket'
+			'<<$kidname[k]>></a> is laying on a blanket'
+			else:
+			$babyloc = 'into the crib'
+			'<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
+			end
+
+		elseif kidage[k] >= 1 and kidage[k] < 7:
+			if hour >= 9 and hour < 21 and rkidloc < 8:
+			$totloc = 'playing with toys on the floor'
+			'<<$kidname[k]>> is playing with toys.'
+			elseif hour < 9 or hour >= 21:
+			'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
+			else
+			$totloc = 'watching TV'
+			'<<$kidname[k]>> is watching TV.'
+			end
+		elseif kidage[k] >= 7 and kidage[k] < 18:
+			if hour >= 21 or hour < 8:
+				'<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
+			elseif hour >= 8 and hour < 9:
+				'<<$kidname[k]>> is getting ready for school.'
+			elseif hour >= 9 and hour < 16:
+				'<<$kidname[k]>> is at school.'
+			elseif hour >= 16 and hour < 18 and homework[k] < daystart:
+				$kidloc = 'working on homework'
+				'<<$kidname[k]>> is working on homework.'
+			else
+				$kidloc = 'watching TV'
+				'<<$kidname[k]>> is watching TV.'
+			end
+		end
+		if kid > 0 and kidage[ks] < 1:
+
+			if lactate > 0:
+				act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
+			end
+			if $babyloc = 'onto the blanket':
+				act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
+			end
+		end
+		if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
+			if $totloc = 'playing with toys on the floor':
+				act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
+			elseif $totloc = 'watching tv':
+				act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
+			end
+		end
+		if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
+			if $kidloc = 'watching TV':
+				act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
+			elseif $kidloc = 'working on homework':
+				act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
+			end
+		end
+			"<hr>"
+	end
+
+--- kid ---------------------------------
+

locations/kiosk.qsrc

@@ -18,36 +18,36 @@ if $ARGS[0] = 'start':
 			gt 'kiosk', 'counter'
 		end
 
-		if pcs_exhibition >= 45 or pcs_inhib >= 55:
+		if exhibitionist_lvl > 1:
 			act 'Flash both your tits and your pussy to jump the queue':
 				cls
 				minut += 1
-				exhibition_exp += rand(12,15)
-				gs 'events', 'flash_full', 'outdoors', 5
+				gs 'exhibitionism', 3
+				gs 'flash', 'full', 'outdoors', 5
 				gs 'stat'
 				
 				act 'Go to the counter': gt 'kiosk', 'counter'
 			end
 		end
 
-		if pcs_exhibition >= 40 or pcs_inhib >= 55:
+		if exhibitionist_lvl > 0:
 			act 'Flash your pussy to jump the queue':
 				cls
 				minut += 1
-				exhibition_exp += rand(9,12)
-				gs 'events', 'flash_pussy', 'outdoors', 5
+				gs 'exhibitionism', 3
+				gs 'flash', 'pussy', 'outdoors', 5
 				gs 'stat'
 				
 				act 'Go to the counter': gt 'kiosk', 'counter'
 			end
 		end
 
-		if pcs_exhibition >= 35 or pcs_inhib >= 40:
+		if pcs_inhib >= 40:
 			act 'Flash your tits to jump the queue':
 				cls
 				minut += 1
-				exhibition_exp += rand(5,8)
-				gs 'events', 'flash_tits', 'outdoors', 5
+				gs 'exhibitionism', 1
+				gs 'flash', 'tits', 'outdoors', 5
 				gs 'stat'
 				
 				act 'Go to the counter': gt 'kiosk', 'counter'
@@ -62,7 +62,7 @@ if $ARGS[0] = 'start':
 					gs 'npcgeneratec', 0, 'stranger from the post office', rand(19,45)
 					gs 'boyStat', $npclastgenerated
 
-					exhibition_exp += rand(5,8)
+					inhib_exp += rand(3,5)
 					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/kiosk_blowjob.jpg"></center>'
 					'A man agrees to your suggestion and lets you move in front of him.'
 

locations/klofdomhouse.qsrc

@@ -854,7 +854,7 @@ if $ARGS[0] = 'ev45':
 
 	if sub > 5 or pcs_inhib > 35:act 'Remove hands':gt 'klofdomhouse', 'ev46'
 	gs 'arousal', 'flashlite', 5, 'sub'
-	exhibition_exp += 10
+	gs 'exhibitionism', 1
 	gs 'stat'
 	act 'Get out of here':
 		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
@@ -893,7 +893,7 @@ if $ARGS[0] = 'ev47':
 
 	if sub > 15 or pcs_inhib > 40:act 'Get out of the water':gt 'klofdomhouse', 'ev48'
 	gs 'arousal', 'flash', 5, 'sub'
-	exhibition_exp += 10
+	gs 'exhibitionism', 1
 	gs 'stat'
 	act 'Get out of here':
 		gs 'arousal', 'end'
@@ -913,7 +913,7 @@ if $ARGS[0] = 'ev48':
 
 	if sub > 20 or pcs_inhib > 50:act 'Spread your legs':gt 'klofdomhouse', 'ev49'
 	gs 'arousal', 'flash', 5, 'sub'
-	exhibition_exp += 15
+	gs 'exhibitionism', 3
 	gs 'stat'
 	act 'Get out of here':
 		gs 'arousal', 'end'
@@ -933,7 +933,6 @@ if $ARGS[0] = 'ev49':
 
 	if sub > 25 or pcs_inhib > 55:act 'Spread your lips':gt 'klofdomhouse', 'ev50'
 	gs 'arousal', 'flash', 5, 'sub'
-	exhibition_exp += 15
 	gs 'stat'
 	act 'Get out of here':
 		gs 'arousal', 'end'

locations/lact_lib.qsrc

@@ -0,0 +1,437 @@
+# lact_lib
+
+if $ARGS[0] = '$calc_lactatemm':
+
+	!! func('lact_lib', 'calc_lactatemm')
+	!! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
+	!! lactatemm should be calculated every day, so if the breasts size is changed naturally the lactatemm will get higher. No change when silicone tits happen. Only natural breast tissue should make milk.
+	!! Usage: lactatemm = func('lact_lib','$calc_lactatemm')
+	!! RESULT = lactatemm in ml*10
+
+	if lactate = 0:
+		RESULT = 0
+	elseif lactate >0:
+		temp_breastsize = 0
+		temp_breastsize += nbsize
+		temp_var = 0
+		if lactateinduced > 0 and kid <= 0:
+			temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
+			RESULT = temp_var
+		else
+			RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
+		end
+	else
+		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
+	end
+end
+
+if $ARGS[0] = '$get_breastmilk':
+
+	!!	func('lact_lib','$get_breastmilk', sucktion_type, sucktion_time)
+	!!	ARGS[1] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6]
+	!!	ARGS[2] = sucktion_time: how many minutes the sucking/pumping takes place
+	!!	Usage: breastmilkvolume = func('lact_lib','$get_breastmilk', 4, 20)
+	!! 	RESULT = Milk in ml*10
+	!! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk. Base rate of sucktion is 10ml/minute.
+
+	soreness_mod = 10
+	breastpumped = 1
+	!! 'suck_flow_rate initialized'
+	if ARGS[1] = 0:
+		!! 'adult sucking'
+		suck_flow_rate = 12 + rand(0,4)
+		temp_var = pcs_mood +(ARGS[2]/8)
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]/8
+		end
+	elseif ARGS[1] = 1:
+		!! 'child sucking'
+		suck_flow_rate = 8 + rand(0,2)
+		temp_var = pcs_mood + (ARGS[2]/2)
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]/2
+		end
+	elseif ARGS[1] = 2:
+		!!	'baby sucking'
+		suck_flow_rate = 6 + (rand(0,2))
+		temp_var = pcs_mood + ARGS[2]
+		if temp_var > 100:
+			pcs_mood = 100
+		else
+			pcs_mood += ARGS[2]
+		end
+	elseif ARGS[1] = 3:
+		!!	'manual_breastpump sucking'
+		suck_flow_rate = 9
+	elseif ARGS[1] = 4:
+		!!	'electric_breastpump sucking'
+		suck_flow_rate = 10
+	elseif ARGS[1] = 5:
+		!! 'hand expression'
+		suck_flow_rate = 3 + rand(1,2)
+	elseif ARGS[1] = 6:
+		!! 'cow milker sucking'
+		suck_flow_rate = 100
+	else
+		!! 'suck flow else branch'
+		suck_flow_rate = 10
+	end
+	!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+	if breastcounter > 0:
+		temp_var = breastcounter/10
+		soreness_mod += temp_var
+		if soreness_mod > 20: soreness_mod = 20
+		if nipple_cream = 1:
+			soreness_mod += 10
+			nipple_cream = 0
+		end
+	end
+	!! No lactation, no milk, but stimulus is applied, so some things are going to happen here.
+	if lactate = 0:
+		if milkoverdemand <= 0: milkoverdemand = 0
+		pump_stop_brake = 0
+		!!	This is how much milk demand is applied to the breasts. In this function it is needed to calculate the nipple pain and breast pain.
+		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
+		if pain['nipples'] <= 60:
+			suck_until_pain = ((60 - pain['nipples'])*10*(soreness_mod/10))/suck_flow_rate
+		end
+		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+		if temp_var > 60:
+			pain['nipples'] = 65
+			pump_stop_brake = 1
+			pumptime = suck_until_pain
+			max_sucktion_demand = 10*suck_flow_rate*pumptime
+		else
+			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+		end
+
+		temp_var = pain['breasts'] + max_sucktion_demand/1000
+		if temp_var > 20:
+			pain['breasts'] = 25
+		else
+			pain['breasts'] += max_sucktion_demand/1000
+		end
+		!! Pumping breasts is exhausting even if no milk comes. so this is handled here.
+
+		temp_var = pcs_energy - max_sucktion_demand/1500
+		if temp_var < 0:
+			pcs_energy = 0
+			!! energy usage flag on.
+			energytomilkpump = 1
+		else
+			pcs_energy -= max_sucktion_demand/1500
+			!! energy usage flag on.
+			energytomilkpump = 1
+		end
+
+		if pumptime < 10:
+			breastcounter += 1
+		else
+			breastcounter += pumptime/10
+		end
+
+		milkoverdemand += max_sucktion_demand
+		RESULT = 0
+	!! If there is lactation, do the magic
+	elseif lactate >0:
+		!!	How much milk can go through the nipple. Base rate is 10ml/minute when sucktion is applied to the nipple. If the demand is higher than the nipple can push through, nipple soreness will happen more quickly.
+		if pcs_nips > 0:
+			max_nip_flow_rate = 6
+		elseif pcs_nips > 20:
+			max_nip_flow_rate = 8
+		elseif pcs_nips > 40:
+			max_nip_flow_rate = 10
+		elseif pcs_nips > 60:
+			max_nip_flow_rate = 12
+		elseif pcs_nips > 80:
+			max_nip_flow_rate = 14
+		elseif pcs_nips > 100:
+			max_nip_flow_rate = 16
+		else
+			max_nip_flow_rate = 10
+		end
+
+		!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+		if breastcounter > 0:
+			temp_var = breastcounter/10
+			soreness_mod += temp_var
+			if soreness_mod > 20: soreness_mod = 20
+			if nipple_cream = 1:
+				soreness_mod += 10
+				nipple_cream = 0
+			end
+		end
+
+		!!	If you pump more, more milk will come, disregarding nipplesize. Things will get used to milking and be more loose.
+		nip_flow_mod = 1
+		temp_var = breastcounter/10
+		nip_flow_mod += temp_var
+		if nip_flow > 30: nip_flow_mod = 30
+		max_nip_flow_rate += nip_flow_mod
+
+		!!	How much milk demand is applied to the breasts. We want to know if we can just suck out what is already stored or if additional milk production is needed to go through the whole pumping/sucking.
+		!!	If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
+		
+		max_sucktion_demand = 10*suck_flow_rate*ARGS[2]
+		!!	Is enough milk already in the breasts?
+		if lactatemv > max_sucktion_demand:
+			!! can the nipples handle the flow?
+			if max_nip_flow_rate >= suck_flow_rate:
+				milkedvolume = max_sucktion_demand
+				lactatemv -= max_sucktion_demand
+			elseif max_nip_flow_rate < suck_flow_rate:
+				milkedvolume = max_nip_flow_rate*10*ARGS[2]
+				lactatemv -= milkedvolume
+				!!	time for sore nipples. We apply more sucking than the nipples can handle. So it hurts more. if nipple pain over 60, then it goes to 65. else it just adds soreness.
+				max_sucktion_demand -= milkedvolume
+				temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+				if temp_var > 60:
+					pain['nipples'] = 65
+				else
+					pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+				end
+			else
+				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv bigger than max_sucktion_demand fork.</b>'
+			end
+		elseif lactatemv < max_sucktion_demand:
+			!!	Magic!
+			temp_var = (lactatemv/(max_nip_flow_rate*10))
+			if temp_var <= 0 and lactatemv > 0: temp_var = 1
+			pumptime_left = ARGS[2] - temp_var
+			if pumptime_left <= 0 and lactatemv > 0: pumptime_left = 1
+			temp_var = lactaterate/60
+			if temp_var <= 0 and lactaterate > 0: temp_var = 1
+			if temp_var >= max_nip_flow_rate:
+				if ARGS[1] = 2: breastcounter += 50
+				milkedvolume = (max_nip_flow_rate * 10 * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+			elseif temp_var < max_nip_flow_rate:
+				!!with a baby sucking, more milk should be made due to nature ...
+				if ARGS[1] = 2: milkoverdemand += 100000
+				milkedvolume = (temp_var * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+				lactatemv -= (max_nip_flow_rate * 10 * (ARGS[2] - pumptime_left))
+			else
+				cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv smaller than max_sucktion_demand fork.</b>'
+			end
+			if lactatemv <= 0: lactatemv = 0
+			!!	the breasts had to produce milk, so energy is used.
+			temp_var = pcs_energy - milkedvolume/1000
+			if temp_var < 0:
+				pcs_energy = 0
+				if rand(0,100) > 90: fat -= 1
+				!!	this is checking if pcs_energy was impacted during milking.
+				energytomilkpump = 1
+			else
+				pcs_energy -= milkedvolume/1000
+				!!	this is checking if pcs_energy was impacted during milking.
+				energytomilkpump = 1
+			end
+			!! the breasts had to produce milk, so hydration is used.
+			temp_var = pcs_hydra - milkedvolume/500
+			if temp_var < 0:
+				pcs_hydra = 0
+				energytomilkpump = 1
+			else
+				pcs_hydra -= milkedvolume/500
+				energytomilkpump = 1
+			end
+			!!	if more is pumped than produced the breasts will hurt too.
+			if milkedvolume < max_sucktion_demand:
+				!!	milkoverdemand: This is used for the daily milk growth. If there is overdemand, the lactaterate will change the next day. Will be set to 0 every day.
+				milkoverdemand += max_sucktion_demand - milkedvolume
+				temp_var = pain['breasts'] + (max_sucktion_demand - milkedvolume)/1000
+				if temp_var > 20:
+					pain['breasts'] = 20
+				else
+					pain['breasts'] += (max_sucktion_demand - milkedvolume)/1000
+				end
+			end
+			if max_nip_flow_rate < suck_flow_rate:
+				!!	sore nipples again. "used to breastpumping" variable needs to come in here too!
+				temp_var = pain['nipples'] + ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+				if temp_var > 60:
+					pain['nipples'] = 65
+				else
+					pain['nipples'] += ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+				end
+			end
+		end
+		!! The standard nipple pain applied due to pumping. Adding to the pain that is calculated above
+		temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+		if temp_var > 60:
+			pain['nipples'] = 65
+		else
+			pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+		end
+
+		if pumptime < 10:
+			breastcounter += 1
+		else
+			breastcounter += pumptime/10
+		end
+
+		RESULT = milkedvolume
+	else
+		cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b>'
+	end
+end
+
+!! lact_lib
+
+!!	bp_milking - breast pump milking
+!!	use href="exec:gt ''lact_lib'',''bp_milking''"
+
+if $ARGS[0] = 'bp_milking':
+	pumptime = 0
+	pumptype = 0
+	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
+		'You can''t use it here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2
+			act 'Don''t pump':gt $loc, $metka
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end
+	end
+end
+
+!!	man_milking - manual (with hands) milking
+!!	use href="exec:gt ''lact_lib'',''man_milking''"
+
+if $ARGS[0] = 'man_milking':
+	pumptime = 0
+	pumptype = 1
+	if $location_type ! 'bathroom' and exhibitionist_lvl < 1:
+		'You can''t do this here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long would you like to milk your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2
+			act 'Don''t milk':gt $loc, $metka
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end
+	end
+end
+
+!!	milking
+!!	never use directly. Always use bp_milking, man_milking or sex_milking
+
+if $ARGS[0] = 'milking':
+	if pumptime <= 0 or pumptime > 60:
+		act 'Finish':gt $loc, $metka
+	end
+	if pumptype = 1:
+		pumptime = (pumptime*6)/10
+	end
+	if lactate > 0 and pain['nipples'] < 60:
+		milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
+		'<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
+		'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
+		breastcounter += 1
+		if energytomilkpump > 0 and pcs_energy = 0:
+			'<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
+			energytomilkpump = 0
+		elseif energytomilkpump > 0:
+			'<br>You feel a bit thirsty after pumping.'
+			energytomilkpump = 0
+		end
+		if bcream_used = 1:
+			pcs_nips += rand(0,2)
+			bcream_used = 0
+		end
+		minut += pumptime
+	elseif lactate = 0 and pain['nipples'] < 60:
+		if rand(1,50) + prolactinlvl >= rand(200,250):
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+			'As usual, you attach the pump but after a few pumps white liquid suddenly starts flowing from your nipples.<br>You started lactating!'
+			lactateinduced = 1
+			lactate = 1
+			if func('lact_lib','$calc_lactatemm') > 0: lactatemm = func('lact_lib','$calc_lactatemm')
+			if prolactinlvl < 200: prolactinlvl = 200
+			lactaterate = 10*(prolactinlvl/200)
+			pcs_nips += 2
+			pumpinggrowth = 0
+		else
+			milkedvolume = func('lact_lib','$get_breastmilk', 3, pumptime)
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
+			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
+			if prolactinlvl > 70: 'A few droplets of liquid come out of your nipples but it is not milk.'
+			breastcounter += 1
+			if pump_stop_brake = 1:
+				'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
+			end
+			if prolactinlvl > 75:
+				if rand(0,10) > 9:
+					pumpinggrowth += 1
+				end
+				'After finishing, your breasts feel weirdly engorged.'
+			end
+			if bcream_used = 1:
+				pcs_nips += rand(0,2)
+				bcream_used = 0
+			end
+		end
+		minut += pumptime
+	else
+		'Your nipples feel too sore to use the pump right now.'
+	end
+	if milkedvolume > 0:
+		lact_engorgement = 0
+		lactatemess = 0
+		act 'Pour it into the sink':
+			*clr
+			cla
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
+			'<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
+			minute += 5
+			act 'Finish':
+				milkedvolume = 0
+				gt $loc, $metka
+			end
+		end
+		if pcs_hydra < 100:
+			act 'Drink it':
+				*clr
+				cla
+				'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
+				'<center>You drink your own breast milk and clean up your breastpump.</center>'
+				'<center>The milk is still warm from your breasts.</center>'
+				if pcs_hydra < 90:
+					pcs_hydra += 10
+				else
+					pcs_hydra = 100
+				end
+				minute += 7
+				act 'Finish':
+					milkedvolume = 0
+					gt $loc, $metka
+				end
+			end
+		end
+	else
+		act 'Finish':gt $loc, $metka
+	end
+end
+
+!!	engorged_morning
+!!	use href="exec:gt ''lact_lib'',''engorged_morning''"
+
+if $ARGS[0] = 'engorged_morning':
+	minut += 5
+	'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+	'You wake up and your breasts hurt. As you look down, you can see that you have a heavy letdown. You should pump your breasts as soon as possible.'
+	act 'Finish':gt $loc, $metka
+end
+
+--- lac_lib ---------------------------------

locations/lesbidomhouse.qsrc

@@ -1122,7 +1122,7 @@ if $ARGS[0] = 'QW8':
 		cla
 		*clr
 		lesbiQW = 10
-		exhibition_exp += 5
+		gs 'exhibitionism', 2
 		gs'stat'
 		temp = RAND(0,2)
 

locations/lesbimistress.qsrc

@@ -1197,7 +1197,8 @@ if $ARGS[0] = 'neutral_9':
 	act 'Go out with Mistress':
 		cla
 		*clr
-		exhibition_exp += 3
+		gs 'exhibitionism', 1
+		if exhibitionist_lvl < 1: pcs_horny += rand(1,3)
 		gs'stat'
 		'<center><img <<$set_imgh>> src="images/characters/city/natalya/sex/sub226.jpg"></center>'
 		'You get in Mistress'' car, and just look out the window where she drives you to where she wants to take you.'
@@ -1214,7 +1215,8 @@ if $ARGS[0] = 'neutral_9':
 		act 'Scrapbook time?':
 			cla
 			*clr
-			exhibition_exp += 7
+			gs 'exhibitionism', 2
+			if exhibitionist_lvl < 1: pcs_horny += rand(2,5)
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/characters/city/natalya/sex/sub227.jpg"></center>'
 			'You get back in the car once you get dressed, and let Mistress take you where she wants to go. She parks somewhere in the city center, and then guides you to a back alley. She taps a door several times with her knuckles in an irregular pattern, and it swings open almost immediately. Must''ve been a code.'
@@ -1229,7 +1231,8 @@ if $ARGS[0] = 'neutral_9':
 			act 'Continue':
 				cla
 				*clr
-				exhibition_exp += 5
+				gs 'exhibitionism', 1
+				if exhibitionist_lvl < 1: pcs_horny += rand(1,3)
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/characters/city/natalya/sex/sub228.jpg"></center>'
 				'Once Mistress leaves, you can tell that several of the patrons are looking at you very intently.'
@@ -1243,7 +1246,8 @@ if $ARGS[0] = 'neutral_9':
 				act 'Right...':
 					cla
 					*clr
-					exhibition_exp += 5
+					gs 'exhibitionism', 1
+					if exhibitionist_lvl < 1: pcs_horny += rand(1,3)
 					gs'stat'
 					'<center><img <<$set_imgh>> src="images/characters/city/natalya/sex/sub229.jpg"></center>'
 					'Just when you were starting to feel at ease, a man walks up to you. His eyes are scanning your body intently, greedily consuming every square inch of you.'

locations/lover_change.qsrc

@@ -473,7 +473,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
 						end
 					elseif randchan = 1 and tatass = 0:
-						randchan = rand(1, 23)
+						randchan = rand(1, 24)
 						!!randchan = 21
 						if tatass = 0 and tattCount < tattPrefTmpMin:
 							tatass = randchan
@@ -482,7 +482,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
 						end
 					elseif randchan = 2 and tatback = 0:
-						randchan = rand(1, 53)
+						randchan = rand(1, 56)
 						!!randchan = 2
 						if tatback = 0 and tattCount < tattPrefTmpMin:
 							tatback = randchan
@@ -493,7 +493,7 @@ if $ARGS[0] = 'Tatt':
 					
 					!!
 					elseif randchan = 3 and tatblly = 0:
-						randchan = rand(1, 20)
+						randchan = rand(1, 21)
 						!!randchan = 1
 						if tatblly = 0 and tattCount < tattPrefTmpMin:
 							tatblly = randchan
@@ -538,7 +538,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
 						end
 					elseif randchan = 8 and tatleg = 0:
-						randchan = rand(1, 36)
+						randchan = rand(1, 37)
 						!!randchan = 2
 						if tatleg = 0 and tattCount < tattPrefTmpMin:
 							tatleg = randchan
@@ -556,7 +556,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
 						end
 					elseif randchan = 10 and tatneck = 0:
-						randchan = rand(1, 28)
+						randchan = rand(1, 30)
 						!!randchan = 12
 						if tatneck = 0 and tattCount < tattPrefTmpMin:
 							tatneck = randchan
@@ -565,7 +565,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
 						end
 					elseif randchan = 11 and tatvag = 0:
-						randchan = rand(1, 44)
+						randchan = rand(1, 47)
 						!!randchan = 6
 						if tatvag = 0 and tattCount < tattPrefTmpMin:
 							tatvag = randchan
@@ -583,7 +583,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
 						end
 					elseif randchan = 13 and tatside = 0:
-						randchan = rand(1, 18)
+						randchan = rand(1, 19)
 						!!randchan = 9
 						if tatside = 0 and tattCount < tattPrefTmpMin:
 							tatside = randchan
@@ -592,7 +592,7 @@ if $ARGS[0] = 'Tatt':
 							'<center><img <<$set_imgh>> src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
 						end
 					elseif randchan = 14 and tatupb = 0:
-						randchan = rand(1, 30)
+						randchan = rand(1, 32)
 						!!randchan = 16
 						if tatupb = 0 and tattCount < tattPrefTmpMin:
 							tatupb = randchan

locations/lug.qsrc

@@ -41,23 +41,23 @@ if $ARGS[0] = 'start':
 
 	if pcs_inhib >= 35:
 		act 'Flash your tits':
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(5,8)
+			gs 'exhibitionism', 1
 			inhib_exp += rand(1,3)
-			gs 'events', 'flash_tits', 'outdoors', 5
+			gs 'flash', 'tits', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'lug', 'start'
 		end
 	end
 
-	if pcs_exhibition >= 40:
+	if exhibitionist_lvl > 0:
 		act 'Flash your pussy':
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(9,12)
-			gs 'events', 'flash_pussy', 'outdoors', 5
+			gs 'exhibitionism', 3
+			gs 'flash', 'pussy', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'lug', 'start'
@@ -139,7 +139,7 @@ if $ARGS[0] = 'prut2':
 				pcs_sweat = 10 + rand(0,4)
 				pcs_mood += 5
 				if pcs_stren < 30: stren_exp += 1
-				exhibition_exp += 4
+				gs 'exhibitionism', 3
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
 				if pcs_horny >= 80 and pcs_inhib >= 60:

locations/nastja.qsrc

@@ -393,7 +393,7 @@ if $ARGS[0] = 'pos17':
 	*clr
 	minut += 60
 	pcs_mood += 50
-	if PCloExhibit + 10 > pcs_exhibition:exhibition_exp += rand(1,3)
+	if PCloExhibit + 10 > pcs_inhib: pcs_inhib += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/2bimbos.jpg"></center>'
 	'You have a great time on the beach: You swim and play around in the water, you sunbathe, reading, chatting or snoozing as you do, drink milkshakes that Nastya brought along from home and take a couple of photos with the lake in the background. It is a thoroughly enjoyable, exhausting time and you are starting to wonder if you shouldn''t go home soon when Nastya speaks up.'
@@ -595,7 +595,7 @@ end
 if $ARGS[0] = 'pos28':
 	cla
 	*clr
-	exhibition_exp += 2
+	gs 'exhibitionism', 2
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/towel.jpg"></center>'

locations/nyp_school.qsrc

@@ -348,7 +348,7 @@ if $ARGS[0] = 'nerds':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/newyear/nerds.jpg"></center>'
 			'You stop and begin thinking about the right strategy, "I feel that we should approach this fight very carefully. The undead king seems kind of strong and should not be underestimated."'
-			'Zinadia nods, "I agree, remember the last time we went heads on with that dragon and almost got wiped out? That was such a bad decision by us... The game master nearly got us all killed there."'
+			'Zinaida nods, "I agree, remember the last time we went heads on with that dragon and almost got wiped out? That was such a bad decision by us... The game master nearly got us all killed there."'
 			'Feofan grins, "It''s not fault you decided to run into that fight without any plan. The blame is completely on you all. But I have to admit it was fun seeing you all sweat for a while."'
 			'"Well if you put that way then we really need to be careful." you reply. You continue on discussing the game, immersing yourself into the game world. All while Natasha shakes her head, "You guys are really the worst kind of nerds..."'
 			minut += 5
@@ -434,7 +434,7 @@ if $ARGS[0] = 'nerds':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/newyear/nerds.jpg"></center>'
 		'As you pass by the nerds table you hear Natasha sighing deeply, "All you guys always talk about is that damn game. Do we really have to talk about it all the fricking time? It''s so annoying."'
-		'Julia and Zinadia look at her confused, "But it''s really fun. You have an immersive world where there is lots of stuff happening. You can fight dragons, undead. You get to make decisions that in the end can affect the whole party. And the best of all you get to hang out with your friends in peace."'
+		'Julia and Zinaida look at her confused, "But it''s really fun. You have an immersive world where there is lots of stuff happening. You can fight dragons, undead. You get to make decisions that in the end can affect the whole party. And the best of all you get to hang out with your friends in peace."'
 		minut += 10
 		gs 'stat'
 

locations/obj_din.qsrc

@@ -209,7 +209,7 @@ if $ARGS[0] = 'sex_skills':
 	nl
 	pl '<b>Sexual characteristics</b>'
 	nl
-	pl 'Exhibitionism <<pcs_exhibition>>'
+	pl 'Inhibition <<pcs_inhib>>'
 	pl 'Exhibitionist sex preference: <<exhibitionism[''pref'']>>'
 	pl 'Exhibitionist sex: <<exhibitionism[''exp'']>>'
 	if SUB > 0:pl 'Submissiveness <<SUB>>'
@@ -540,11 +540,11 @@ if $ARGS[0] = 'stats_achievements':
 	if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kgN' & nl
 
 	if stripdancesum > 0 and hidden_stripdancesum = 0:
-		pl 'You have been dancing <<stripdancesum>> times in the stripclub'
+		pl 'You have danced <<stripdancesum>> times in the stripclub'
 	elseif stripdancesum = 0 and hidden_stripdancesum > 0:
-		pl 'You have been dancing <<hidden_stripdancesum>> times in the stripclub, but you do nor remember it'
+		pl 'You have danced <<hidden_stripdancesum>> times in the stripclub, but you do nor remember it'
 	elseif stripdancesum > 0 and hidden_stripdancesum > 0:
-		pl 'You have been dancing <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
+		pl 'You have danced <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
 	end
 	if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> times professionally.'
 	if SchoolAtestat = 1:pl 'You have finished school.'
@@ -751,7 +751,7 @@ if $ARGS[0] = 'stats_sport':
 	pl'Marksmanship <<pcs_shoot>>'
 	pl'Chess <<pcs_chess>>'
 	pl'Ice Skating <<pcs_icesktng>>'
-	pl'Gaming <<pcs_ttgmng>>'
+	pl'Gaming <<pcs_gaming>>'
 end
 
 if $ARGS[0] = 'stats_beauty':
@@ -1003,7 +1003,7 @@ if $ARGS[0] = 'rep2':
 		if brothershowerlook = 1:pl'You let your brother look at you when you''re shower'
 		if brothershave > 0:pl'<<brothershave>> - Number of times you''ve let your brother watch you shave your pussy'
         if brotherbj > 0:pl'<<brotherbj>> - Number of times you''ve given your brother blowjobs'
-        if brotherfuck > 0:pl'<<brotherSex>> - Number of times you''ve had sex with your brother'
+        if brotherfuck > 0:pl'<<brotherfuck>> - Number of times you''ve had sex with your brother'
 
 	end
 end

locations/park.qsrc

@@ -65,8 +65,8 @@ if $ARGS[0] = 'start':
 			
 			'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
 			*nl
-			if pcs_exhibition >= 35:
-				exhibition_exp += 2
+			if pcs_inhib >= 35:
+				gs 'exhibitionism', 2
 				mood += 5
 				'"Nope!" you call back. "Just remembered not to!" You flip up the back of your skirt, flashing your ass at him and keep walking, a bit of a spring in your step.'
 			elseif pcs_inhib > 30:
@@ -181,7 +181,7 @@ if $ARGS[0] = 'start':
 				end
 			end
 
-			if pcs_exhibition >= 35:
+			if pcs_inhib >= 35:
 				act 'Expose your breasts':
 					*clr
 					cla
@@ -218,26 +218,26 @@ if $ARGS[0] = 'start':
 
 	gs 'kseniyaQW', 'events'
 
-	if pcs_inhib >= 40:
+	if pcs_inhib >= 35:
 		act 'Flash your tits':
 			inhib_exp += 2
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(1,4)
-			gs 'events', 'flash_tits', 'outdoors', 5
+			gs 'exhibitionism', 1
+			gs 'flash', 'tits', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'park', 'start'
 		end
 	end
 
-	if pcs_exhibition >= 40:
+	if exhibitionist_lvl > 1:
 		act 'Flash your pussy':
 			inhib_exp += 2
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(2,6)
-			gs 'events', 'flash_pussy', 'outdoors', 5
+			gs 'exhibitionism', 3
+			gs 'flash', 'pussy', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'park', 'start'
@@ -495,9 +495,9 @@ if $ARGS[0] = 'whore':
 		act 'Flash breasts':
 			cla
 			*clr
-			exhibition_exp += 2
+			gs 'exhibitionism', 1
 			inhib_exp += 2
-			gs 'events', 'flash_tits', 'outdoors', 5
+			gs 'flash', 'tits', 'outdoors', 5
 			gs 'stat'
 			act 'Go back to the park':gt 'park', 'start'
 		end

locations/parkivent.qsrc

@@ -797,7 +797,7 @@ if $ARGS[0] = 'run':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
 			'You prepare yourself for a nice run in the beautiful park, pacing yourself so you last for a full hour.'
-			if pcs_exhibition >= 35:
+			if pcs_inhib >= 35:
 				act 'Expose your breasts':			
 					*clr
 					cla
@@ -823,19 +823,19 @@ end
 
 if $ARGS[0] = 'run_reactions':
 	if hour >= 20:
-		exhibition_exp += 2
+		gs 'exhibitionism', 1
 		'With it being so late, there isn''t anyone in the park to see you, but it doesn''t matter, the thrill and pleasure is still there. When you''re finished, you make sure to pull your top back down.'
 		gs 'arousal', 10, 'flashlite'
 		gs 'arousal', 'end'
 	else
 		if rand(0,1) = 0:
-			exhibition_exp += 2
+			gs 'exhibitionism', 1
 			'Despite it being daytime, you manage to go unnoticed during your run, but you still find yourself aroused and excited from the thought of being seen by a stranger or someone you know. When you''re finished, you make sure to pull your top back down.'
 			gs 'arousal', 10, 'flashlite'
 			gs 'arousal', 'end'
 		else
 !!I plan to add a chance for one of the guys to follow sveta and corner her, which can end in a consensual blowjob or rape.
-			exhibition_exp += 4
+			gs 'exhibitionism', 2
 			'You come across a group of gopniks loitering in a circle, empty beer bottles scattered around them. They''re loudly talking among themselves, but as you near the group, one of them notices you and quickly interrupts his friends to point you out to everyone.'
 			'You can''t help but smile slightly as you watch them rush to stand and then fight over getting to the front so they can see you better. As you run by, some start to clap and whistle while a few shout at you.'
 			wait 1000

locations/parks.qsrc

@@ -19,7 +19,7 @@ if $ARGS[0] = 'start':
 	act 'Go to the town center': minut += 10 & gt 'liam'
 
 	act 'Walk around the park (1 hour)':
-		if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
+		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
 		cla
 		minut += 60
 		pcs_mood += 10
@@ -59,23 +59,23 @@ if $ARGS[0] = 'start':
 
 	if pcs_inhib >= 35:
 		act 'Flash your tits':
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(1,5)
+			gs 'exhibitionism', 1
 			inhib_exp += rand(1,3)
-			gs 'events', 'flash_tits', 'outdoors', 5
+			gs 'flash', 'tits', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'parks', 'start'
 		end
 	end
 
-	if pcs_exhibition >= 40:
+	if exhibitionist_lvl > 1:
 		act 'Flash your pussy':
-			if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
+			if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
 			cls
-			exhibition_exp += rand(9,12)
-			gs 'events', 'flash_pussy', 'outdoors', 5
+			gs 'exhibitionism', 3
+			gs 'flash', 'pussy', 'outdoors', 5
 			gs 'stat'
 
 			act 'Continue': gt 'parks', 'start'

locations/pirsingsalon.qsrc

@@ -692,7 +692,7 @@ if $ARGS[0] = 'back':
 		:looptatback
 		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
 		n += 1
-		if n <= 55:jump 'looptatback'
+		if n <= 56:jump 'looptatback'
 		*nl
 
 	else

locations/podrsex.qsrc

@@ -57,7 +57,7 @@ if $ARGS[0] = 'suck':
 	gs 'arousal', 'bj', 10, 'sub', 'group'
 	gs 'stat'
 	
-	if pcs_horny >= (randhorny - pcs_exhibition):
+	if pcs_horny >= (randhorny - pcs_exhib):
 		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm with the guy''s cock still in your mouth. The other girl notices and gives you a sweet wink while she takes over, giving you some time to rub your clit furiously.'
 	
 		$orgasm_or = 'yes'
@@ -96,7 +96,7 @@ if $ARGS[0] = 'pussy':
 	gs 'arousal', 'vaginal', 10, 'sub', 'group'
 	gs 'stat'
 	
-	if pcs_horny >= (randhorny - pcs_exhibition):
+	if pcs_horny >= (randhorny - pcs_exhib):
 		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
 	
 		$orgasm_or = 'yes'
@@ -128,7 +128,7 @@ if $ARGS[0] = 'ass':
 	gs 'arousal', 'anal', 10, 'sub', 'group'
 	gs 'stat'
 	
-	if pcs_horny >= (randhorny - pcs_exhibition):
+	if pcs_horny >= (randhorny - pcs_exhib):
 		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
 	
 		$orgasm_or = 'yes'
@@ -149,7 +149,7 @@ if $ARGS[0] = 'voy':
 	sexvar -= 1
 	if sexvar < 0: sexstart = 0
 	gs 'dinsex2', 'stamina_npc'
-	if pcs_horny >= (randhorny - pcs_exhibition):
+	if pcs_horny >= (randhorny - pcs_exhib):
 
 		$orgasm_or = 'custom'
 		$orgasm_txt = 'You have an orgasm.'

locations/postoffice.qsrc

@@ -18,40 +18,37 @@ if $ARGS[0] = 'start':
 			$postloc = 'counter' & gt 'postoffice'
 		end
 	
-		if pcs_exhibition >= 45 or pcs_inhib >= 55:
+		if exhibitionist_lvl > 2:
 			act 'Flash both your tits and your pussy to skip the line':
 				cls
-				exhibition_exp += rand(12,15)
-				gs 'events', 'flash_full', 'indoors', 5
+				gs 'flash', 'full', 'indoors', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
 			end
 		end
 
-		if pcs_exhibition >= 40 or pcs_inhib >= 50:
+		if exhibitionist_lvl > 1:
 			act 'Flash your pussy to skip the line':
 				cls
-				exhibition_exp += rand(9,12)
-				gs 'events', 'flash_pussy', 'indoors', 5
+				gs 'flash', 'pussy', 'indoors', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
 			end
 		end
 
-		if pcs_exhibition >= 35 or pcs_inhib >= 45:
+		if exhibitionist_lvl > 0 or pcs_inhib >= 45:
 			act 'Flash your tits to skip the line':
 				cls
-				exhibition_exp += rand(5,8)
-				gs 'events', 'flash_tits', 'indoors', 5
+				gs 'flash', 'tits', 'indoors', 5
 				gs 'stat'
 
 				act 'Go to the counter':$postloc = 'counter' & gt 'postoffice'
 			end
 		end
 		
-		if pcs_exhibition > 40:
+		if exhibitionist_lvl > 0:
 			act 'Suggest a blowjob in exchange for jumping the queue':
 				cls
 				if cumloc[12] = 0 and cumloc[11] = 0:
@@ -59,7 +56,7 @@ if $ARGS[0] = 'start':
 					gs 'npcgeneratec', 0, 'stranger', rand(18,45)
 					gs 'boyStat', $npclastgenerated
 
-					exhibition_exp += rand(5,8)
+					inhib_exp += rand(2,5)
 					gs 'arousal', 'bj', 10, 'sub'
 					gs 'stat'
 				

locations/preSYS.qsrc

@@ -316,7 +316,7 @@ if $ARGS[0] = 'charselect':
 				pcs_grades = 80
 				pcs_compskl = 40
 				pcs_comphckng = 20
-				pcs_ttgmng = 30
+				pcs_gaming = 30
 				internet = 20
 				npc_rel['A152'] += 10
 				npc_rel['A153'] += 10
@@ -868,7 +868,7 @@ end
 
 if $ARGS[0] = 'nerd':
 	pcs_tan = 0
-	pcs_ttgmng = 20
+	pcs_gaming = 20
 	if glass < 1 : glass = 1
 	if player_avatar ! 1: pcs_haircol = 1
 	if player_avatar ! 1: pcs_eyecol = 0

locations/preSYS2.qsrc

@@ -440,7 +440,7 @@ if $ARGS[0] = 'modskl_spo':
 	gs 'preSYS2', 'modrel_setup2', 'pcs_shoot', 'Marskmanship'
 	gs 'preSYS2', 'modrel_setup2', 'pcs_chess', 'Chess'
 	gs 'preSYS2', 'modrel_setup2', 'pcs_icesktng', 'Ice Skating'
-	gs 'preSYS2', 'modrel_setup2', 'pcs_ttgmng', 'Gaming'
+	gs 'preSYS2', 'modrel_setup2', 'pcs_gaming', 'Gaming'
 	'</table></center>'
 	nl
 
@@ -530,7 +530,7 @@ if $ARGS[0] = 'none':
 	pcs_shoot = 0
 	pcs_chess = 0
 	pcs_icesktng = 0
-	pcs_ttgmng = 0
+	pcs_gaming = 0
 	
 	!!Beauty Skills Reset
 	pcs_makupskl = 20
@@ -735,7 +735,7 @@ end
 
 if $ARGS[0] = 'modrel_out':
 	$metka = 'modrel_out'
-	'<center><b>Popular kids relationship levels</b></center>'
+	'<center><b>Outcast kids relationship levels</b></center>'
 	*nl
 	*nl
 	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
@@ -749,7 +749,7 @@ end
 
 if $ARGS[0] = 'modrel_tea':
 	$metka = 'modrel_tea'
-	'<center><b>Popular kids relationship levels</b></center>'
+	'<center><b>Teacher relationship levels</b></center>'
 	*nl
 	*nl
 	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'

locations/qwBarBilliard.qsrc

@@ -262,20 +262,20 @@ if $ARGS[0] = 'billiard_ev1':
 								act 'Return to the bar': gt 'qwBarPolet'
 							end
 
-							if pcs_dom >= 30 and pcs_exhibition >= 50:
+							if pcs_dom >= 30 and exhibitionist_lvl > 1:
 								$martinpos = 'But I want to'
 							elseif pcs_horny >= 80 and pcs_inhib >= 30:
 								$martinpos = 'I''ll do it if you want me to'
 							end
 
-							if (pcs_horny >= 80 and pcs_exhibition >= 30) or (pcs_dom >= 30 and pcs_exhibition >= 50):
+							if (pcs_horny >= 80 and exhibitionist_lvl > 0) or (pcs_dom >= 30 and exhibitionist_lvl > 1):
 								act '<<$martinpos>>':
 									cls
 									'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm1.jpg"></center>'
 									gs 'boyStat', 'A216'
 									npc_rel['A216'] += 1
 
-									if pcs_horny >= 80 and pcs_exhibition >= 30:
+									if pcs_horny >= 80 and exhibitionist_lvl > 0:
 										'"Oh, I think you <b>do</b> want it here and now," you say coyly as you unbutton Martin''s pants, "and I want to, too." You can see him tense, see that he is torn between his own rules and his lust for you, but in that moment your hand reaches into his underpants and your fingers close around his impressive length, the battle is over.'
 									else
 										'"Are you sure? I would do it if you asked me to."'
@@ -295,11 +295,7 @@ if $ARGS[0] = 'billiard_ev1':
 									act 'Make Martin come':
 										cls
 										'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm2.jpg"></center>'
-										if pcs_exhibition <= 30:
-											pcs_exhibition += rand(0,2)
-										else
-											pcs_exhibition += rand(0,1)
-										end
+										gs 'exhibitionism', 1
 										'You are giving Martin the best blowjob you can, working him over with your mouth, tongue and hand to make him shoot his load quickly. And you seem to be doing something right, cause Martin is starting to tense.'
 										'As Martin groans quietly, moments away from climax, you become acutely aware of the heat between your legs. The forbidden nature of what you''re doing apparently isn''t lost on your pussy, regardless of whether your conscious mind is turned on or scared.'
 										*nl
@@ -333,7 +329,7 @@ if $ARGS[0] = 'billiard_ev1':
 					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poold1.jpg"></center>'
 					gs 'npcgeneratec', 0, 'stranger', rand(18,35)
 					gs 'boyStat', $npclastgenerated
-					'Well, a bet is a bet. If you weren''t willing to do it, you shouldn''t have made the bet. At least that''s what''s going through your head as you get down on your knees in front of him. Even being in a separate room and hidden from sight, the fact that everything that''s between you and a whole bar full of people is a fluttering curtain ' + iif(pcs_exhibition<30,'terrifies','excites') + ' you.'
+					'Well, a bet is a bet. If you weren''t willing to do it, you shouldn''t have made the bet. At least that''s what''s going through your head as you get down on your knees in front of him. Even being in a separate room and hidden from sight, the fact that everything that''s between you and a whole bar full of people is a fluttering curtain ' + iif(exhibitionist_lvl < 1,'terrifies','excites') + ' you.'
 					'He has his pants unbuttoned in about two seconds and out comes his cock, standing at attention already and revealing his eagerness and anticipation.'
 					*nl
 					'You quickly take it into your mouth and start sucking it for all you are worth, looking to get this over with as quickly as you can. You use your hands to caress his shaft and fondle his balls as you suck his dick, and while could imagine yourself doing more pleasant things, the fact that you are blowing a stranger in public does have a slight effect on you.'
@@ -364,7 +360,8 @@ if $ARGS[0] = 'billiard_ev1':
 end
 
 if $ARGS[0] = 'billiard_ev2':
-	cls
+	cla
+	*clr
 	if bill_rand = 0:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolVicArt.jpg"></center>'
 		'You enter the backroom. As soon as you set foot inside, Jaska''s friends immediately turn their heads and give you broad grins.'
@@ -504,7 +501,7 @@ if $ARGS[0] = 'billiard_ev2':
 			!Erick Lewis as Victor, dark-skinned, charming, composed - https://de.pornhub.com/pornstar/erick-lewis http://wtfpass.com/models/eric-cfst30/2/
 			!Maxim (or anybody else - Edik?) as Artyom, fair-skinned, a little more brutish and lecherous - http://wtfpass.com/models/maxim-2/
 
-			!Sex progression? first strip teases, masturbation, then handjobs/blowjobs, sex, anal, DP - dependent on pcs_exhibition - caught in a specific act (blowjob? sex?) - each act is worth more
+			!Sex progression? first strip teases, masturbation, then handjobs/blowjobs, sex, anal, DP - dependent on pcs_exhib - caught in a specific act (blowjob? sex?) - each act is worth more
 			!Small scene variants where she only blows one of them, only has sex with one of them etc.
 
 

locations/qwBarEncounters.qsrc

@@ -171,7 +171,7 @@ if $ARGS[0] = '':
 				act 'Finish your drink': gt 'qwBarPolet'
 			end
 				
-			act 'Challange accepted':
+			act 'Challenge accepted':
 				cls
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool1.jpg"></center>'
 				minut += 30
@@ -303,11 +303,11 @@ if $ARGS[0] = '':
 			act 'He might have a point - Finish your drink': gt 'qwBarPolet'
 		end
 		
-		if pcs_horny >= 70 or sub >= 20 or alko >= 5 or pcs_exhibition >= 40:
+		if pcs_horny >= 70 or sub >= 20 or alko >= 5 or exhibitionist_lvl > 1:
 			act 'Grind back against him':
 				cla
 				*clr
-				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrind2.gif"></center>'
+				'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrind2.mp4"></video></center>'
 				gs 'boyStat', $npclastgenerated
 				'Maybe it''s the alcohol, ' + iif(sub>=20,'maybe you are','or maybe you are just') + ' really horny ' + iif(sub>=20,'or maybe you are just too submissive to refuse him ','') + '- whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
 				*nl
@@ -318,7 +318,7 @@ if $ARGS[0] = '':
 				act 'Let him guide you':
 					cla
 					*clr
-					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrinds1.gif"></center>'
+					'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrinds1.mp4"></video></center>'
 					gs 'boyStat', $npclastgenerated
 					'He works your clit with his fingers for a bit, clearly knowing what he''s doing and getting you hot and bothered before he pulls his hand free. He turns you around so your back is against the bar and then pushes down on your shoulders until you are squatted down in front of him and hidden from most views.' 
 					'The strangers pulls out his cock and shoves it in your open mouth - you already knew what to expect and at this point, you are eager to suck his cock. He leans in close and starts fucking your mouth, and you are reveling in it, masturbating as he shoves his <<dick>>cm <<$dick_girth>> cock down your throat again and again. You don''t know if anybody''s watching and you are too drunk to feel anything but excitement at the prospect.'
@@ -375,7 +375,7 @@ if $ARGS[0] = '':
 						act 'Return the favor':
 							cla
 							*clr
-							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrinds1.gif"></center>'
+							'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrinds1.mp4"></video></center>'
 							gs 'boyStat', $npclastgenerated
 							'Seeing as he got down on you right then and there, it seems only fair for you to do the same for him, so you get down on your knees, squatted down in front of him with your back against the counter, hidden from most views.'
 							'The strangers pulls out his cock and shoves it in your open mouth - you already knew what to expect and at this point, you are eager to suck his cock. He leans in close and starts fucking your mouth, and you are reveling in it, masturbating as he shoves his <<dick>>cm <<$dick_girth>> cock down your throat again and again. You don''t know if anybody''s watching and you are too drunk to feel anything but excitement at the prospect.'

locations/qwBarPolet.qsrc

@@ -113,7 +113,7 @@ if $ARGS[0] = '':
 
 		act 'Order a snack':
 			if cumloc[7] > 0 or cumloc[10] > 0 or cumloc[11] > 0 or cumloc[13] > 0 or cumloc[16] > 0:
-				if pcs_exhibition < 60:
+				if exhibitionist_lvl < 2:
 					mood -= rand(2,5)
 				else
 					pcs_horny += 5
@@ -121,11 +121,11 @@ if $ARGS[0] = '':
 				npc_rel['A216'] -= 2
 				'Martin gives a stern look. "Don''t you think you should clean yourself up first?"'
 				*nl
-				if pcs_exhibition < 60 and pcs_inhib < 70:
+				if exhibitionist_lvl < 2 and pcs_inhib < 70:
 					'You are visibly covered in cum and Martin noticed it!'
 					*nl
 					'How embarrassing...'
-				elseif pcs_inhib >= 70 and pcs_exhibition < 60:
+				elseif pcs_inhib >= 70 and exhibitionist_lvl < 2:
 					'"Huh?" You look over to the mirror behind the bar and realize that you still have cum on your face.'
 					'"Oh! Didn''t notice that. Yeah you''re right, I should go wash that off," you say before excusing yourself.'
 				else
@@ -298,7 +298,7 @@ if $ARGS[0] = 'Ordering':
 	!Different Picture/s?!
 	'You go to the counter, sit down on one of the stools and, when the bartender notices you, ask: "Hey, could you bring me something to drink?"'
 	if cumloc[7] > 0 or cumloc[10] > 0 or cumloc[11] > 0 or cumloc[13] > 0 or cumloc[16] > 0:
-		if pcs_exhibition < 60:
+		if exhibitionist_lvl < 2:
 			mood -= rand(2,5)
 		else
 			pcs_horny += 5
@@ -306,11 +306,11 @@ if $ARGS[0] = 'Ordering':
 		npc_rel['A216'] -= 2
 		'Martin gives a stern look. "Don''t you think you should clean yourself up first?"'
 		*nl
-		if pcs_exhibition < 60 and pcs_inhib < 70:
+		if exhibitionist_lvl < 2 and pcs_inhib < 70:
 			'You are visibly covered in cum and Martin noticed it!'
 			*nl
 			'How embarrassing...'
-		elseif pcs_inhib >= 70 and pcs_exhibition < 60:
+		elseif pcs_inhib >= 70 and exhibitionist_lvl < 2:
 			'"Huh?" You look over to the mirror behind the bar and realize that you still have cum on your face.'
 			'"Oh! Didn''t notice that. Yeah you''re right, I should go wash that off," you say before excusing yourself.'
 		else

locations/rinok.qsrc

@@ -46,7 +46,7 @@ if $ARGS[0] = 'start' or $metka = 'start':
 
 		if nurand >= 80:
 			pcs_mood -= 5
-			exhibition_exp += 2
+			gs 'exhibitionism', 1
 			'You feel someones hand gently touch <a href="exec:gt ''etoexhib'', ''pos15''">your butt</a>.'
 
 			gs 'arousal', 'foreplay', 3

locations/rolanapt.qsrc

@@ -726,7 +726,7 @@ end
 
 
 if $ARGS[0] = 'mypanty':
-    if pcs_exhibition > 35 and pcs_intel > 35 and rolanpantyconfession ! 1:
+    if exhibitionist_lvl > 0 and pcs_intel > 35 and rolanpantyconfession ! 1:
 		cla
 		*clr
 		minut += 1
@@ -1732,7 +1732,7 @@ if $ARGS[0] = 'chef':
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/kitch/lesson/Stroganoff/Stroganoff5.jpg"></center>'
 								'"Also add oil salt paprika and pepper, and a little of water if required.....Uh? Did you say something Rolan"'
 								'You turn to see Rolan staring at your panty...you quickly put your shirt back...'
-								if pcs_exhibition > 50:
+								if exhibitionist_lvl > 1:
 									act 'sexon':
 										cla
 										*clr

locations/saveupdater.qsrc

@@ -343,13 +343,14 @@ if $home_town = '':
 end
 
 !! exhibition to inhib
-if pcs_exhibition > 0 or exhibition_exp > 0:
+if exhibition_to_inhib = 0:
 	pcs_inhib = pcs_exhibition
 	inhib_exp = exhibition_exp
 	inhib_lvlst = pcs_exhibition
 	inhib_lvl = pcs_exhibition
 	killvar 'pcs_exhibition'
 	killvar 'exhibition_exp'
+	exhibition_to_inhib = 1
 end
 
 --- saveupdater ---------------------------------

locations/seeporn.qsrc

@@ -72,7 +72,7 @@ act 'watch porn':
 
 					gs 'brother', 'brotherSexCount'
 
-					if brotherSexCount > 0 and brotherSex > 6 and evgenrand = 1:
+					if brotherSex > 6 and evgenrand = 1:
 						cls
 						minut += 5
 						pcs_horny += 10
@@ -84,7 +84,7 @@ act 'watch porn':
 						gs 'stat'
 						'Kolka tells guys that he should take you home.' 
 						'As soon as you leave the school building your brother whispers; "Let''s look for a quiet place, I''m still horny."' 
-						'Soon you find a secluded spot and Kolka says; "This looks good. Bend over."'
+						'Soon you find a secluded spot and Kolka says, "This looks good. Bend over."'
 						if rand1<5:'<center><img <<$set_imgh>> src="images/shared/sex/public/boysex.jpg"></center>'
 						if rand1>=5 and rand1<30:'<center><video autoplay loop src="images/shared/sex/public/publ1,<<rand(0,2)>>.mp4"></video></center>'
 						if rand1>=30:'<center><img <<$set_imgh>> src="images/shared/sex/public/publ1,<<rand(0,6)>>.jpg"></center>'
@@ -175,7 +175,7 @@ act 'watch porn':
 						gs 'cum_manage'
 						facial += 1
 
-						if brotherSex = 0:brotherSex = 1 & guy += 1
+						if brotherSex < 6:brotherSex = 6
 
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial22.jpg"></center>'
@@ -346,7 +346,7 @@ if $ARGS[0] = 'SeePornPalevo':
 
 			if rand1<30:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seepornblowbang.jpg"></center>'
 			if rand1>=30:'<center><video autoplay loop src="images/locations/pavlovsk/school/grounds/seeporn/sex/seepornbro0,<<rand(0,2)>>.mp4"></video></center>'
-			'Your sillence is taken as consent, Zhendos gets his dick out and pulls your face toward it, You dutifully wrapped your lips around it and began to suck.' 
+			'Your silence is taken as consent, Zhendos gets his dick out and pulls your face toward it, You dutifully wrapped your lips around it and began to suck.' 
 			'Your brother Kolka and Mishan also get their members out and stand around you, you start to masturbate and suck dick. You find the unusual and awkward situation a little exciting.'
 
 			act 'Suck':
@@ -379,8 +379,9 @@ if $ARGS[0] = 'SeePornPalevo':
 				sexpartkno = 1
 				gs 'cum_manage'
 				pcs_horny += 10
+				if brotherSex < 6:brotherSex = 6
 				gs 'stat'
-
+				
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seepornbbcum.jpg"></center>'
 				'The boys don''t last long and cum right in your face, Soon almost all of your face is covered in a layer of sperm and it''s dripping on to your clothes. The boys laugh "That''s right, good girl".'
 
@@ -410,13 +411,13 @@ if $ARGS[0] = 'SeePornPalevo':
 
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seeporndouble.jpg"></center>'
 			'You dutifully kneel in front of the guys, grab their hard dicks and start to push them into your mouth.'
-			'"I told you that she would take it in the mouth like a pro, and you didn''t believe me", laughs your brother. "Ok, no choking my sister".'
+			'"I told you that she would take it in the mouth like a pro, and you didn''t believe me", your brother laughs.'
 
 			act 'Suck':
 				cls
 				pcs_horny += 10
 				gs 'stat'
-
+				if brotherSex < 6:brotherSex = 6
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seeporndouble2.jpg"></center>'
 				'You diligently continue to suck two dicks at the same time, the guys moaning and moving their hips trying to shove them into you deeper.' 
 				'Your brother is looking at you closely and with his hand down his pants, while loudly telling details about what a dirty whore you are.'

locations/stat_display.qsrc

@@ -84,7 +84,7 @@ if pcs_sleep > 100: pcs_sleep = 100
 !!----------------image Extra messages, start--------------------------
 $stat_imgtool_msg=''
 $stat_imgextra_msg=''
-	
+
 if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 	!There are 3 display mode, with toobar / top / bottom, controlled by Enable_statimg_loc
 	if Enable_statimg_face = 0:
@@ -101,7 +101,7 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 0 & gs ''$menu_obnovit''">◆Body</a>'
 		$img_temp = FUNC('$body_image','body')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
+	end
 
 	if Enable_statimg_coat = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
@@ -109,7 +109,7 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 0 & gs ''$menu_obnovit''">◆Coat</a>'
 		$img_temp = FUNC('$body_image','coat')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
+	end
 
 	if Enable_statimg_cloth = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
@@ -117,7 +117,7 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
 		$img_temp = FUNC('$body_image','clothes')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
+	end
 
 	if Enable_statimg_bra = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
@@ -133,7 +133,7 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 0 & gs ''$menu_obnovit''">◆Panties</a>'
 		$img_temp = FUNC('$body_image','panties')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
+	end
 
 	if Enable_statimg_shoes = 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 1 & gs ''$menu_obnovit''">◇Shoes</a>'
@@ -141,9 +141,9 @@ if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
 		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 0 & gs ''$menu_obnovit''">◆Shoes</a>'
 		$img_temp = FUNC('$body_image','shoes')
 		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
+	end
 	$stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & Enable_settingmode = 1 & dynamic $cheatmenu[''display'']">◎Setting</a>'
-	
+
 end
 !!----------------image Extra messages, end --------------------------
 
@@ -171,7 +171,7 @@ if bankAccount = 0 and stolmoney = 0:
 else
 	!combine money status to single line
 	$stat_msg += '<BR><<$pockets>>: <b><<money>> ₽</b>'
-	if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'	
+	if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'
 	if bankAccount = 1:
 		if karta >= 0:
 			$stat_msg += ', Bank: <b><<karta>> ₽</b>'
@@ -315,7 +315,7 @@ else
 		end
 		gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
 		$stat_extra_msg += '<BR><<$ind>> Attractiveness'
-	
+
 		if SchoolAtestat = 0 and StoryLine > 0:
 			gs 'indik', '1', pcs_grades, pcs_grades
 			$stat_extra_msg += '<BR><<$ind>> School Grades'
@@ -328,7 +328,7 @@ else
 			gs 'indik', '1', pcs_heels, pcs_heels
 			$stat_extra_msg += '<BR><<$ind>> Heels skill'
 		end
-		$stat_extra_msg += '<BR>' 
+		$stat_extra_msg += '<BR>'
 	end
 end
 killvar '$st_temp'
@@ -409,16 +409,16 @@ else
 		if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
 		if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
 		if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
-	end	
+	end
 	!skip if this is first message
-	if $stat_extra_msg ! null: 
+	if $stat_extra_msg ! null:
 		$stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
 	else
 		$stat_extra_msg += '<br><<$stat_sktool_msg>>'
 	end
 	if st_count > 0 :
 		$stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
-	end	
+	end
 end
 
 killvar 'stat_sktool_msg'
@@ -472,9 +472,9 @@ if Enable_statimg_loc = 0:
 	if Enable_showstatimg = 0:
 		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
 	else
-		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'	
+		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'
 		!skip if this is first message
-		if $stat_extra_msg ! null: 
+		if $stat_extra_msg ! null:
 			$stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
 		else
 			$stat_extra_msg += '<br><<$stat_imgtool_msg>>'
@@ -668,35 +668,42 @@ end
 
 if lactate = 1 and night_mode = 0:
 	if lactatemv >= lactatemm-1:
-			$stat_msg += '<BR><font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font><BR>'
-		elseif lactatemv > lactatemm*9/10:
-			$stat_msg += '<BR><font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
-		elseif lactatemv > lactatemm*3/4:
-			$stat_msg += '<BR><font color = black>Your breasts feel firm and heavy, full of milk.</font><BR>'
-		elseif lactatemv > lactatemm/2:
-			$stat_msg += '<BR><font color = black>Your breasts are heavy, a cargo of milk inside.</font><BR>'
-		elseif lactatemv > lactatemm/4:
-			$stat_msg += '<BR><font color = black>Your breasts feel a little heavy.</font><BR>'
-		elseif lactatemv > 0:
-			$stat_msg += '<BR><font color = black>Your breasts tingle a little from the feeling of milk production.</font><BR>'
-		else
-			$stat_msg += '<BR><font color = black>Your breasts feel soft and empty.</font><BR>'
-	end
-elseif lactate = 1 and night_mode = 1:
-	if lactatemv >= lactatemm-1:
-			$stat_msg += '<BR><font color = white>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font><BR>'
-		elseif lactatemv > lactatemm*9/10:
-			$stat_msg += '<BR><font color = white>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
-		elseif lactatemv > lactatemm*3/4:
-			$stat_msg += '<BR><font color = white>Your breasts feel firm and heavy, full of milk.</font><BR>'
-		elseif lactatemv > lactatemm/2:
-			$stat_msg += '<BR><font color = white>Your breasts are heavy, a cargo of milk inside.</font><BR>'
-		elseif lactatemv > lactatemm/4:
-			$stat_msg += '<BR><font color = white>Your breasts feel a little heavy.</font><BR>'
-		elseif lactatemv > 0:
-			$stat_msg += '<BR><font color = white>Your breasts tingle a little from the feeling of milk production.</font><BR>'
+		if lact_engorgement > 3 and lact_engorgement <= 6:
+			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out.</font><BR>'
+		elseif lact_engorgement > 6:
+			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out.</font><BR>'
 		else
-			$stat_msg += '<BR><font color = white>Your breasts feel soft and empty.</font><BR>'
+			$stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
+		end
+		if $clothingworntype = 'nude' and lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += ''+iif(night_mode = 1,'<font color = white>','<font color = black>')+'You have a little milk residue around your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = orange>You have a lot of milk residue around your nipples.</font>'
+			else
+				$stat_msg += '<font color = red>Your breasts are drenched with milk residue.</font>'
+			end
+		elseif lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += '<font color = orange>You have tiny wet spots on your clothes above your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = red>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
+			else
+				$stat_msg += '<font color = red>Your shirt is drenched with milk from your breasts.</font>'
+			end
+		end
+	elseif lactatemv > lactatemm*9/10:
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
+	elseif lactatemv > lactatemm*3/4:
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel firm and heavy, full of milk.</font><BR>'
+	elseif lactatemv > lactatemm/2:
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts are heavy, a cargo of milk inside.</font><BR>'
+	elseif lactatemv > lactatemm/4:
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel a little heavy.</font><BR>'
+	elseif lactatemv > 0:
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts tingle a little from the feeling of milk production.</font><BR>'
+	else
+		$stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel soft and empty.</font><BR>'
 	end
 end
 
@@ -773,7 +780,7 @@ if arrsize('sparrvol') > 0:
 						j = 3
 					end
 				end
-				
+
 				cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
 				if sparrvol[idx] > 0:
 					if sparridt[idx] = 0:
@@ -811,29 +818,29 @@ killvar 'cumloc'
 
 i = 0
 :cumlocloop
-	if i = 0: 
+	if i = 0:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
-	elseif i = 1: 
+	elseif i = 1:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
-	elseif i = 2: 
+	elseif i = 2:
 		$txtloc = 'the front of your panties'
-	elseif i = 3: 
+	elseif i = 3:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
-	elseif i = 4: 
+	elseif i = 4:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
-	elseif i = 5: 
+	elseif i = 5:
 		$txtloc = 'the back of your panties'
-	elseif i = 6: 
+	elseif i = 6:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
-	elseif i = 7: 
+	elseif i = 7:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
-	elseif i = 8: 
+	elseif i = 8:
 		$txtloc = 'your back'
-	elseif i = 9: 
+	elseif i = 9:
 		$txtloc = 'your legs'
-	elseif i = 10: 
+	elseif i = 10:
 		$txtloc = 'your arms'
-	elseif i = 11: 
+	elseif i = 11:
 		if pcs_haircol = 0:
 			$cum_face_image = 'brown/'
 			$cum_face_image += rand(1, 31)
@@ -852,20 +859,20 @@ i = 0
 		end
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
 		killvar 'cum_face_image'
-	elseif i = 13: 
+	elseif i = 13:
 		$txtloc = 'your hands'
-	elseif i = 14: 
+	elseif i = 14:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
-	elseif i = 15: 
+	elseif i = 15:
 		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
-	elseif i = 16: 
+	elseif i = 16:
 		$txtloc = 'your hair</a>'
-	elseif i = 17: 
+	elseif i = 17:
 		$txtloc = 'in your vagina in a slipped condom'
 	else
 		$txtloc = 'the gusset of your panties</a>'
 	end
-	
+
 	j = 0
 	:ageloop
 		if cumvolume['<<i>>:<<j>>'] > 0:
@@ -885,7 +892,7 @@ i = 0
 				!! residue amount, no leakage
 				$txtamount = 'Small '
 			end
-			
+
 			!! if sperm age stage is 4, it means inside the body
 			if j = 4:
 				if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
@@ -903,7 +910,7 @@ i = 0
 						$txtproxy = 'seeping out of '
 					else
 						$txtproxy = 'staying inside of '
-					end	
+					end
 				end
 			elseif j >= 5:
 			!! if sperm age stage is over 4, meaning in condom
@@ -935,7 +942,7 @@ i = 0
 					$txtproxy += 'powderly '
 				end
 			end
-			
+
 			$txtperson = ''
 			if cumcount['<<i>>:<<j>>'] = 0:
 				$txtiscum = 'some whitish substance '
@@ -1019,25 +1026,6 @@ killvar 'cumcount'
 killvar 'knownguy'
 killvar 'cumowner'
 
-
-if $clothingworntype = 'nude' and lactatemess > 0:
-	if lactatemess < 3:
-		$stat_msg += '<BR><font color = black>You have a little milk residue around your nipples.</font>'
-	elseif lactatemess < 7:
-		$stat_msg += '<BR><font color = black>You have a lot of milk residue around your nipples.</font>'
-	else
-		$stat_msg += '<BR><font color = black>Your breasts are drenched with milk residue.</font>'
-	end
-elseif lactatemess > 0:
-	if lactatemess < 3:
-		$stat_msg += '<BR><font color = black>You have tiny wet spots on your clothes above your nipples.</font>'
-	elseif lactatemess < 7:
-		$stat_msg += '<BR><font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
-	else
-		$stat_msg += '<BR><font color = black>Your shirt is drenched with milk from your breasts.</font>'
-	end
-end
-
 if Gerpes >= 10 and GenHerpes = 1:
 	$stat_msg += '<BR><b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
 elseif Gerpes >= 5 and GenHerpes =1:
@@ -1341,3 +1329,4 @@ end
 
 --- stat_display ---------------------------------
 
+>>>>>>> 48c11b415a2f0467c4e8bcf088acba01ca5cc362

locations/stat_sklattrib.qsrc

@@ -63,7 +63,7 @@ $skl_name[10] = 'danc'
 $skl_name[11] = 'dancero'
 $skl_name[12] = 'dancpol'
 $skl_name[13] = 'chess'
-$skl_name[14] = 'ttgmng'
+$skl_name[14] = 'gaming'
 $skl_name[15] = 'humint'
 $skl_name[16] = 'persuas'
 $skl_name[17] = 'run'
@@ -114,7 +114,7 @@ $traitattskl[2] = 'schlrly'
 if attsklupdate = 0:
 	i = 0 & x = 1
 	:rstloop
-	expadj = 60
+	expadj = func('_difficulty','getexpadj')
 	tl = 0
 	:trtrstloop
 	tltp = 0
@@ -176,7 +176,7 @@ if $ARGS[0] = 'daycall':
 	:degloop
 	degadj = 60
 	if x = 2: degadj += 30
-	expadj = 60
+	expadj = func('_difficulty','getexpadj')
 	tl = 0
 	:trtdegloop
 	tltp = 0
@@ -241,7 +241,7 @@ end
 !!Advancement Loop
 i = 0 & x = 1
 :advloop
-expadj = 60
+expadj = func('_difficulty','getexpadj')
 tl = 0
 :trtadvloop
 tltp = 0

locations/stat_sklattrib_lvlset.qsrc

@@ -91,8 +91,8 @@ pcs_chess = (chess_lvl + pcs_intel) / 2 + (5 * logictrt)
 chess[1] = 3 & chess[2] = -1
 
 !!Gaming; Abstracts skills at all types of Table Top games
-pcs_ttgmng = (ttgmng_lvl + (2 * pcs_intel + pcs_react) / 3) / 2
-ttgmng[1] = 3 & ttgmng[2] = 4 & ttgmng[3] = -1
+pcs_gaming = (gaming_lvl + (2 * pcs_intel + pcs_react) / 3) / 2
+gaming[1] = 3 & gaming[2] = 4 & gaming[3] = -1
 
 !!People skills; basic human interaction skill set
 pcs_humint = (humint_lvl + (pcs_prcptn + pcs_chrsm + pcs_react)/3) / 2 + (5 * chrmng) - (5 * meantrt)

locations/street_event.qsrc

@@ -811,11 +811,11 @@ if $ARGS[1] = 'main':
 					'<<$streetev_title>>'
 					'<center><video autoplay loop src="images/locations/shared/street/bottomed1.mp4"></video></center>'
 					'As you walk down the street you are suddenly pushed forward hard. You nearly lose your balance and only barely catch yourself. While you are half bent over and trying to recover you feel someone yank up your dress and yank down your panties, exposing your ass and pussy for everyone to see. You quickly regain your balance, as you do. You pull up your panties and smooth your dress back in place, by that time whoever did it is long gone.'
-					if pcs_exhibition >= 35:
-						exhibition_exp += 3
+					if exhibitionist_lvl = 1:
+						gs 'exhibitionism', 2
 						pcs_mood += 10
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
-					elseif pcs_inhib >= 50:
+					elseif exhibitionist_lvl > 1:
 						pcs_mood -= 2
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You''re annoyed with the prankster, worrying that the elastic on your panties might have been stretched in the act but otherwise feel unembarrassed and continue on your way.'
 					else
@@ -831,11 +831,11 @@ if $ARGS[1] = 'main':
 					'<<$streetev_title>>'
 					'<center><video autoplay loop src="images/locations/shared/street/sharkdress.mp4"></video></center>'
 					'As you walk down the street someone comes up behind you and grabs the top of your dress and yanks it down around your ankles. Which leaves you standing stark naked with only your dress around your ankles. You quickly squat down and grab your dress, pulling it back up and into place, by that time who ever did it is long gone.'
-					if pcs_exhibition >= 35:
-						exhibition_exp += 5
+					if exhibitionist_lvl = 1:
+						gs 'exhibitionism', 3
 						pcs_mood += 10
 						'You look around and notice several people staring at you, you are sure they''ve seen seen. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with a extra bit of sway in your hips.'
-					elseif pcs_inhib >= 50:
+					elseif exhibitionist_lvl > 1:
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how you were just exposed in the street and more about whether the prankster might have damaged your clothing. Satisfied that it appears to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
 					else
 						pcs_mood -= 10
@@ -850,11 +850,11 @@ if $ARGS[1] = 'main':
 					'<<$streetev_title>>'
 					'<center><video autoplay loop src="images/locations/shared/street/bottomeds'+ rand(1,2) +'.mp4"></video></center>'
 					'As you walk down the street someone comes up behind you and grabs your skirt and panties, yanking them down. Your skirt ends up around your ankles and your panties half way down your thighs. Which leaves your ass and pussy on fully display to everyone around. You quickly pull up your panties and then squat down and grab your skirt, pulling it back up and into place, by that time whoever did it is long gone.'
-					if pcs_exhibition >= 35:
-						exhibition_exp += 3
+					if exhibitionist_lvl = 1:
+						gs 'exhibitionism', 2
 						pcs_mood += 10
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
-					elseif pcs_inhib >= 50:
+					elseif exhibitionist_lvl > 1:
 						pcs_mood -= 2
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how your pussy was just exposed in the street and more about whether the prankster might have damaged your panties and skirt. Satisfied that they appear to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
 					else
@@ -870,11 +870,11 @@ if $ARGS[1] = 'main':
 					'<<$streetev_title>>'
 					'<center><video autoplay loop src="images/locations/shared/street/topped'+ rand(1,2) +'.mp4"></video></center>'
 					'As you walk down the street someone comes up behind you and grabs your top, yanking it down. Which leaves your tits on full display to everyone around. You quickly pull up your top backup, by that time whoever did it is long gone.'
-					if pcs_exhibition >= 35:
-						exhibition_exp += 3
+					if exhibitionist_lvl = 1:
+						gs 'exhibitionism', 2
 						pcs_mood += 10
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
-					elseif pcs_inhib >= 50:
+					elseif exhibitionist_lvl > 1:
 						pcs_mood -= 2
 						'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how your tits were just flashed to everyone in the street and more about whether the prankster might have damaged your top. Satisfied that it appears to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
 					else
@@ -896,11 +896,11 @@ if $ARGS[1] = 'main':
 				'<<$streetev_title>>'
 				'<center><video autoplay loop src="images/locations/shared/street/breeze.mp4"></video></center>'
 				'As you walk down the street a strong breeze suddenly blows down the street, which causes your skirt to blow up. Which exposes your panty clad ass to everyone on the street. You quickly push it back down, but as soon as you let go the breeze blows it right back up, you fight against the breeze for almost a minute before it finally stops.'
-				if pcs_exhibition >= 35:
-					exhibition_exp += 1
+				if exhibitionist_lvl = 1:
+					gs 'exhibitionism', 1
 					pcs_mood += 10
 					'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
-				elseif pcs_inhib >= 40:
+				elseif exhibitionist_lvl > 1:
 					pcs_mood -= 2
 					'You look around and notice several people staring at you. <i>What''re they staring for? It''s just underwear...</i> you think to yourself and continue on your way.'
 				else
@@ -1014,11 +1014,11 @@ if $ARGS[1] = 'main':
 				'As you walk down the street you pass a woman wearing a long coat. All of a sudden she flashes you with a huge grin on her face. She flashes several other people as well, she seems to be enjoying the attention she is getting.'
 				gs 'arousal', 'voyeur', 5
 				act 'Continue':gt $loc
-				if pcs_exhibition >= 35:
+				if exhibitionist_lvl > 0:
 					act 'Flash her back':
 						cla
 						*clr
-						exhibition_exp += 3
+						gs 'exhibitionism', 1
 						'<<$streetev_title>>'
 						if PCloSkirt > 0:
 							'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/' + rand(1,12) + '.jpg"></center>'
@@ -1618,8 +1618,8 @@ if $ARGS[1] = 'main':
 					gt $loc
 				end
 			elseif streetrand > 46 and $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20:
-				if pcs_exhibition < 30: pcs_mood -= 2
-				pcs_horny += pcs_exhibition/5
+				if exhibitionist_lvl = 0: pcs_mood -= 2
+				pcs_horny += pcs_exhib/5
 				*clr
 				cla
 				'<<$streetev_title>>'
@@ -1632,7 +1632,7 @@ if $ARGS[1] = 'main':
 				end
 				if pcs_inhib >= 50:
 					'<i>What? So now it''s a crime to prefer going commando now?</i> you think to yourself in annoyance as you continue passing by.'
-				elseif pcs_exhibition < 35:
+				elseif exhibitionist_lvl = 0:
 					'You blush in shame from the old ladies caustic remarks and hurry on your way.'
 				end
 				act 'Continue':gt $loc

locations/therapist.qsrc

@@ -452,7 +452,7 @@ if $ARGS[0] = 'hypnoEnd':
 	elseif hypnoTime < 10:
 		hypnoAddict = 1
 		hypnoDay = daystart
-		exhibition_exp += (100+sub-pcs_dom)/25+1
+		pcs_exhib += (100+sub-pcs_dom)/25+1
 		inhib_exp += (100+sub-pcs_dom)/25+1
 		pain['vaginal'] -= 5
 		pain['asshole'] -= 5
@@ -464,7 +464,7 @@ if $ARGS[0] = 'hypnoEnd':
 	else
 		hypnoAddict = 2
 		hypnoDay = daystart
-		exhibition_exp += (100+sub-pcs_dom)/25+2
+		pcs_exhib += (100+sub-pcs_dom)/25+2
 		inhib_exp += (100+sub-pcs_dom)/25+1
 		pain['vaginal'] -= 5
 		pain['asshole'] -= 5

locations/traits.qsrc

@@ -5,8 +5,67 @@ if $ARGS[0] = 'menu':
 	pl '<center>Traits Menu</center>'
 	pl'<a href="exec:gs ''stat''">Leave</a>'
 	nl
-!!	pl '<b>Bimbo</b>'
-
+	pl '<b>Bimbo</b>'
+	if bimbolevel = 0:
+		pl 'You do not have this trait.'
+		pl 'To gain this trait you must wear bimbo clothing / shoes for a few days.'
+		pl 'You have <<bimbo>> out of 10 points towards level 1.'
+	elseif bimbolevel = 1:
+		pl 'You have this trait at level 1.'
+		pl 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
+		pl 'Due to this trait you gain a very small bonus to appearance and a very small penalty to intelligence.'
+		pl 'You have <<bimbo>> out of 20 points towards level 2.'
+		if bimbowithdrawal = 0:
+			pl 'You are not in withdrawal.'
+		else
+			pl 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
+		end
+	elseif bimbolevel = 2:
+		pl 'You have this trait at level 2.'
+		pl 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
+		pl 'Due to this trait you gain a small bonus to appearance and a small penalty to intelligence.'
+		pl 'You have <<bimbo>> out of 30 points towards level 3.'
+		if bimbowithdrawal = 0:
+			pl 'You are not in withdrawal.'
+		else
+			pl 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
+		end
+	else
+		pl 'You have this trait at level 3.'
+		pl 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
+		pl 'Due to this trait you gain a moderate bonus to appearance and a moderate penalty to intelligence.'
+		if bimbowithdrawal = 0:
+			pl 'You are not in withdrawal.'
+		else
+			pl 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
+		end
+	end
+	nl
+	pl '<b>Exhibitionist</b>'
+	if Exhibitionist_lvl = 0:
+		pl 'You do not have this trait.'
+		pl 'To gain this trait you must have low enough inhibition and choose to expose your breasts in public.'
+		pl 'You have <<pcs_exhib>> out of 10 points towards level 1. This will slowly decrease each day unless you expose yourself.'
+    elseif Exhibitionist_lvl = 1:
+		pl 'You have this trait at level 1.'
+		pl 'To increase this trait you must choose to expose your breasts and/or bare bottom in public.'
+		pl 'This trait grants you a small amount or excitement from exposing yourself.'
+		pl 'You have <<pcs_exhib>> out of 50 points towards level 2.'
+    elseif Exhibitionist_lvl = 2:
+		pl 'You have this trait at level 2.'
+		pl 'To increase this trait you must choose to expose your breasts, bare bottom and/or pussy in public.'
+		pl 'This trait grants you a moderate amount or excitement from exposing yourself.'
+		if pcs_exhib < 100:
+			pl 'You have <<pcs_exhib>> out of 100 points towards level 3.'
+		else
+			pl 'You must trigger an event in the park to gain level 3.'
+		end
+    else
+		pl 'You have this trait at level 3.'
+		pl 'This is the highest level of this trait.'
+		pl 'This trait grants you a large amount or excitement from exposing yourself.'
+    end
+	nl
 	pl '<b>Cumeater</b>'
 	if trt_cumeater = 0:
 		pl 'You do not have this trait.'

locations/ugol.qsrc

@@ -20,8 +20,7 @@ if pcs_horny >= 90 and pcs_inhib > 30:
 			'Feeling desperate for release you hitch up your skirt above your waist.'
 		end
 		if $pantyworntype ! 'none': 'You are distracted by your wet panties sticking to you, your arousal keeping your pussy soaking wet. Looking around once more to make sure you are alone, you pull down your panties a bit to expose your pussy.'
-		exhibition_exp += rand(1,3)
-		inhib_exp += rand(1,3)
+		gs 'exhibitionism', 1
         pcs_sweat += 20
         'Then you begin to rub your clit, at first in slow soft circles but you quickly feel yourself building up to an orgasm, you bite your lip to keep from crying out as you start rubbing your clit with urgency. A massive shudder runs through your body as you orgasm, your soft cries of ecstasy echoing in the corridor. Getting dressed and blushing slightly you check once more to make sure you are along. You hope no one heard you, as you quickly leave.'
        

locations/ugol1.qsrc

@@ -7,8 +7,7 @@ act 'Masturbate':
 	'You leaned back against the fence, noticing the area was completely deserted.'
 	'You are distracted by your wet panties sticking to you, your arousal keeping your pussy soaking wet. Looking around once more to make sure you are alone, you pull down your panties a bit to expose your pussy.'
 	
-	if pcs_exhibition < 30:exhibition_exp += rand(1,3)
-	inhib_exp += rand(1,3)
+	gs 'exhibitionism', 1
 	gs'stat'
 	'Then you begin to rub your clit, at first in slow soft circles but you quickly feel yourself building up to a orgasm, you bite your lip to keep from crying out as you start rubbing your clit with urgency. A massive shudder runs through your body as you orgasm, your soft cries muffled by your own hand over your mouth. Getting dressed and blushing slightly you check once more to make sure you are alone. You hope no one heard you, as you quickly leave.'
 

locations/young_shop.qsrc

@@ -48,7 +48,7 @@ if $ARGS[0] = 'start':
 			'You spend 4 hours cleaning the department, folding and rehanging clothes and serving customers. The store now looks clean and pretty organized.'
 			gs 'young_shop', 'events'
 		end
-	elseif ((hour = 9 and minut <= 5) or (hour = 8 and minut >= 30)) and young_shop_work1 = 1 and week = 6:
+	elseif ((hour = 9 and minut <= 5) or (hour = 8 and minut >= 30)) and young_shop_work1 = 1 and week > 5:
 		act '<b>Work</b>':
 			cla
 			inWorkYoungShop = 1
@@ -61,7 +61,7 @@ if $ARGS[0] = 'start':
 			'You spend 6 hours cleaning the department, folding and rehanging clothes and serving customers. The store now looks clean and pretty organized.'
 			gs 'young_shop', 'events'
 		end
-!!	elseif ((hour = 9 and minut <= 5) or (hour = 8 and minut >= 30)) and young_shop_work2 = 1 and week > 6:
+!!	elseif ((hour = 9 and minut <= 5) or (hour = 8 and minut >= 30)) and young_shop_work2 = 1 and week < 6:
 !!		act '<b>Work</b>':
 !!			cla
 !!			inWorkYoungShop = 1

locations/zaprF.qsrc

@@ -15,8 +15,12 @@ if $ARGS[0] = 'start':
 	'When the weather is nice sometimes girls will offer a car washing service for some tips, there''s no structure to it so you could always try it.'
 	'The petrol price is 30 <b>₽</b> per liter.'
 	*nl
-
-	if hour < 9:
+	
+	if temper < 10:
+		'It''s too cold outside to wash cars. You''re more likely to get ill than make money. Maybe try again when the weather is warmer?'
+	elseif sunWeather = 0:
+		'You can''t wash cars if it''s raining outside! Maybe try again on a sunny day?'
+	elseif hour < 9:
 		'It''s too early to wash cars.'
 	elseif hour > 19:
 		'It''s too late to wash cars.'

locations/zaprFWash.qsrc

@@ -1,4 +1,6 @@
 # zaprFWash
+! most complete comments for how the code works can be found in 'wash', 'titsFlash', 'runback', and 'punishSpank'
+! most other code in here are just variations of those sections
 
 if $ARGS[0] = 'start':
 	$metka = 'start'
@@ -6,138 +8,493 @@ if $ARGS[0] = 'start':
 	cla
 	clr
 
-	if temper < 10:
-		'It''s too cold you''re more likely to get ill than make money, maybe try when the weather is a bit nicer?'
-		act 'Return':gt 'zaprF', 'start'
-	elseif (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
+	! can''t wash cars if have visible cum already
+	if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
 		minut += 5
-		'The gas station worker chases you away: "Go wash yourself off first at least, whore!"'
+		mood -= 5
+		pav_sex += rand(0,2)
+		
+		'The gas station worker chases you away: "At least go wash yourself off first, whore!"'
+		
+		act 'Go to the toilet':gt 'zaprF', 'toilet'
 		act 'Leave':gt 'zaprF', 'start'
 	else
-		if (PCloBimbo = 1 or PCloStyle = 4) and pcs_apprnc >= 60:
-			minut += 60
-			pcs_sweat += 2
-			money += 100
-			skimpyCustomerChance = rand(1, 100)
-
-			if skimpyCustomerChance > 30:
-				gt 'zaprFWash', 'titsQ'
-			else
-				gt 'zaprFWash', 'wash'
-			end
-
-		else
-			minut += 60
-			pcs_sweat += 2
-			money += 80
-			gt 'zaprFWash', 'wash'
-		end
+		gt 'zaprFWash', 'wash'
 	end
 end
 
 if $ARGS[0] = 'wash':
+	! only wearing bimbo or prostitute clothing and looking good can get propositioned by a customer
 	if PCloBimbo = 1 or PCloStyle = 4:
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
-		'You washed the windows of several cars and earned 100 <b>₽</b>.'
+		
+		minut += 60
+		mood -= 5
+		pcs_sweat += 2
+		
+		if pcs_apprnc >= 60:
+			! slightly more money for wearing bimbo or prostitute clothing and looking good too
+			'You washed the windows of several cars and earned 100 <b>₽</b>.'
+			money += 100
+			
+			! min chance of 20 percent; max chance of 80 percent; percent chance scales with pav_prostitute and/or pav_sex
+			! as your repuation increases you will be asked more often
+			! reputation effects are delayed by 30 because thats the delay in fame as well
+			skimpyCustomerChance = rand(1, 100)
+			if skimpyCustomerChance <= min(max(20,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),80):
+				'As you finish washing another car, the driver walks up to you to give you a tip. From the way he''s looking at you, it''s obvious he''s interested in something more as well.'
+				! starts off with always doing titsQ when rep is low, as rep increases they may skip a question since they know you will do it anyway
+				! also different people have different tastes so you wont be asked the same thing in the same order every time by every customer that walks up to you
+				carwashscene = rand(1, 100)
+				if carwashscene <= min(max(25,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),50) and carwashscene >= 25:
+					gt 'zaprFWash', 'assQ'
+				elseif carwashscene <= min(max(50,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),65) and carwashscene >= 50:
+					gt 'zaprFWash', 'pussyQ'	
+				elseif carwashscene <= min(max(65,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),85) and carwashscene >= 65:	
+					gt 'zaprFWash', 'handQ'
+				elseif carwashscene <= min(max(85,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),100) and carwashscene >= 85:	
+					gt 'zaprFWash', 'blowQ'
+				else
+					gt 'zaprFWash', 'titsQ'
+				end
+			else
+				gs 'zaprFWash', 'flash_passing'
+			end
+		else
+			! slightly more money for wearing bimbo or prostitute clothing but not looking too great
+			'You washed the windows of several cars and earned 80 <b>₽</b>.'
+			money += 80
+			
+			gs 'zaprFWash', 'flash_passing'
+		end
 	else
+		minut += 60
+		mood -= 5
+		pcs_sweat += 2
+		money += 60
+		
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/regular<<i>>.jpg"></center>'
-		'You washed the windows of several cars and earned 80 <b>₽</b>.'
+		
+		! normal money just for the car washing
+		'You washed the windows of several cars and earned 60 <b>₽</b>.'
+		
+		gs 'zaprFWash', 'flash_passing'
 	end
+end
+
+if $ARGS[0] = 'flash_passing':
+	! can flash now if not wearing bimbo or prostitute clothing; just need to meet inhibition or exhibitionism requirements to unlock actions
+	if pcs_inhib >= 35: act 'Flash your tits at passing cars':gt 'zaprFWash', 'titsFlash', 'Free', 'Flash'
+	if exhibitionist_lvl > 0: act 'Flash your ass at passing cars':gt 'zaprFWash', 'assFlash', 'Free', 'Flash'
+	if exhibitionist_lvl > 1: act 'Flash your pussy at passing cars':gt 'zaprFWash', 'pussyFlash', 'Free', 'Flash'
 	act 'Continue':gt 'zaprF', 'start'
 end
 
 if $ARGS[0] = 'titsQ':
 	i = rand(1, 4)
 	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
-	'You wash another car. The driver finishes filling his tank and walks up to you giving you some tips. It''s obvious he''s looking for something more.'
-	'Want to earn more? Show me your tits, girl. Theres 100 in it, easy money.'
-	act 'Agree and show him your tits':gt 'zaprFWash', 'titsFlash'
-	act 'Refuse':gt 'zaprF', 'start'
+	
+	'Want to earn some more cash, girl? Show me your tits. I''ll give you 100 <b>₽</b>. It''s easy money.'
+	
+	! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
+	if pcs_inhib >= 30 or pcs_horny >= 40: act 'Agree and show him your tits':gt 'zaprFWash', 'titsFlash', 'Paid', 'Question'
+	act 'Refuse':gt 'zaprFWash', 'refuse'
 end
 
 if $ARGS[0] = 'assQ':
 	i = rand(1, 4)
 	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
-	'That was cool, girl. How about your ass, will another 100 convince you to show it to me?'
-	act 'Agree and show him your ass':gt 'zaprFWash', 'assFlash'
-	act 'Refuse':gt 'zaprF', 'start'
+	
+	'What a nice ass you have there. Let me see it. Will 100 <b>₽</b> convince you to show it to me?'
+	
+	! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
+	if exhibitionist_lvl > 0 or pcs_horny >= 60: act 'Agree and show him your ass':gt 'zaprFWash', 'assFlash', 'Paid', 'Question'
+	act 'Refuse':gt 'zaprFWash', 'refuse'
+end
+
+if $ARGS[0] = 'pussyQ':
+	i = rand(1, 4)
+	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
+	
+	'You look like a cool girl. Let me see your pussy. I''ll only look for 100 <b>₽</b>.'
+		
+	! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him
+	if exhibitionist_lvl > 1 or pcs_horny >= 80: act 'Agree and show him your pussy':gt 'zaprFWash', 'pussyFlash', 'Paid', 'Question'
+	act 'Refuse':gt 'zaprFWash', 'refuse'
+end
+
+if $ARGS[0] = 'handQ':
+	i = rand(1, 4)
+	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
+	
+	'Could you help me out girl? It''s getting tight down here in my pants just looking at you. How about you touch it a bit? I''ll pay you 200 <b>₽</b>.'
+	
+	! slut or horny requirements needed to accept the offer or just have fun with him
+	if pav_slut >= 25 or pcs_horny >= 25: act 'Agree and give him a handjob':gt 'zaprFWash', 'handjob', 'Paid'
+	act 'Refuse':gt 'zaprFWash', 'refuse'
 end
 
 if $ARGS[0] = 'blowQ':
 	i = rand(1, 4)
 	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/bimboclean<<i>>.jpg"></center>'
-	'What a wonderful ass! I have a new problem now, girl. It''s getting tight down here, in my pants. How about you put your mouth to a good use? There is another 300 in it.'
-	act 'Agree and give him blowjob':gt 'zaprFWash', 'blowjob'
-	act 'Refuse':gt 'zaprF', 'start'
+	
+	'Looking hot today girl! How about you put your mouth to good use? I''ll pay you 200 <b>₽</b>.'
+	
+	! slut or horny requirements needed to accept the offer or just have fun with him
+	if pav_slut >= 30 or pcs_horny >= 30: act 'Agree and give him a blowjob':gt 'zaprFWash', 'blowjob', 'Paid', 'Question'
+	act 'Refuse':gt 'zaprFWash', 'refuse'
 end
 
+if $ARGS[0] = 'refuse':
+	! just being asked can slowly change your inhibitions which will enable a player to eventually agree to the questions above
+	if pcs_inhib < 35: inhib_exp += rand(1,2)
+	pcs_dom += 1
+	mood += 5
+	gs 'stat'
+	
+	'<center><video autoplay loop src="images/pc/no.mp4"></video></center>'
+	
+	'You begin to consider his offer but decide turn him down and walk away.'
+	
+	act 'Go back to washing cars':gt 'zaprF', 'start'
+end
+
+! $ARGS[1] = whether you got paid for this
+! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
 if $ARGS[0] = 'titsFlash':
-	money += 50
+	! reputation and money will depend on whether you were paid
+	if $ARGS[1] = 'Paid':
+		money += 50
+		pav_prostitute += rand(0,1)
+	elseif $ARGS[1] = 'Free':
+		gs 'exhibitionism', 1
+	end
+	if pcs_inhib < 30: inhib_exp += rand(2,4)
+	mood += 5
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 30:
-		i = rand(1, 3)
-		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/titsflash<<i>>.jpg"></center>'
+	! chance for using photos or videos
+	if gifornot < 50:
+		i = rand(1, 100)
+		! chance of using old pics since there are so many newer pics to choose from
+		if i < 15:
+			if PCloPants > 0:
+				! loop to sort through old pics since they are jumbled together in the folder but we want to display pics based on clothing
+				! will keep looping until it gets a photo with shorts/pants in it
+				:loop_tits_old_pics1
+				i = rand(1, 3)
+				if i = 2: jump 'loop_tits_old_pics1'
+				'<center><img <<$set_imgh>> src="images/locations/shared/carwash/titsflash<<i>>.jpg"></center>'
+			elseif PCloSkirt > 0:
+				! loop to sort through old pics since they are jumbled together in the folder but we want to display pics based on clothing
+				! will keep looping until it gets a photo with a skirt/dress in it
+				:loop_tits_old_pics2
+				i = rand(1, 3)
+				if i = 1 or i = 3: jump 'loop_tits_old_pics2'
+				'<center><img <<$set_imgh>> src="images/locations/shared/carwash/titsflash<<i>>.jpg"></center>'
+			end
+		else
+			! newer photos are more neatly organized into different folders so no looping needed
+			if PCloPants > 0:
+				i = rand(1, 14)
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/<<i>>.jpg"></center>'
+			elseif PCloSkirt > 0:
+				i = rand(1, 12)
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/<<i>>.jpg"></center>'
+			end
+		end
 	else
-		i = rand(1, 7)
-		'<center><video autoplay loop src="images/locations/shared/carwash/titsflash<<i>>.mp4"></video></center>'
+		if PCloPants > 0:
+			! loop to sort through old vids since they are jumbled together in the folder but we want to display vids based on clothing
+			! will keep looping until it gets a video with shorts/pants in it
+			:loop_tits_old_vids1
+			i = rand(1, 7)
+			if i = 4 or i = 6 or i = 7: jump 'loop_tits_old_vids1'
+			'<center><video autoplay loop src="images/locations/shared/carwash/titsflash<<i>>.mp4"></video></center>'
+		elseif PCloSkirt > 0:
+			! loop to sort through old vids since they are jumbled together in the folder but we want to display vids based on clothing
+			! will keep looping until it gets a video with a skirt/dress in it
+			:loop_tits_old_vids2
+			i = rand(1, 7)
+			if i = 1 or i = 2 or i = 3 or i = 5: jump 'loop_tits_old_vids2'
+			'<center><video autoplay loop src="images/locations/shared/carwash/titsflash<<i>>.mp4"></video></center>'
+		end
+	end
+	
+	! text differences depending on whether you were paid, whether you are flashing for a customer or for the cars on the road, and what type of clothing you are wearing
+	if $ARGS[1] = 'Paid':
+		if PCloPants > 0:'You lift up your top up and show him your breasts for a few seconds. Then you quickly cover up and take your money.'
+		if PCloSkirt > 0:'You pull down your top and show him your breasts for a few seconds. Then you quickly cover up and take your money.'
+	elseif $ARGS[1] = 'Free':
+		if $ARGS[2] = 'Question':
+			if PCloPants > 0:'You lift up your top up and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.'
+			if PCloSkirt > 0:'You pull down your top and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.'
+		elseif $ARGS[2] = 'Flash':
+			if PCloPants > 0:'You lift up your top up and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.'
+			if PCloSkirt > 0:'You pull down your top and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.'
+		end
 	end
-
-	'You quickly pull up your top up and show him your naked breasts for a few seconds. You then quickly cover up and take your money.'
 	gs 'arousal', 'flashlite', 5
 	gs 'stat'
-	if sub >= 30 or bimbolevel >= 1 or pcs_horny > 4:
-		act 'Continue':gt 'zaprFWash', 'assQ'
+	
+	! can only continue with more questions if flashing for a customer
+	! also more questions will require either sub or dom or bimbo or horny as well as bimbo or prostitute clothing
+	! this has a wide range of requirements so that many different types of characters can still play this content
+	if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 5) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
+		! once again dynamically choosing the next scene to play based on reputation
+		carwashscene = rand(1, 100)
+		if carwashscene <= min(max(30,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),60) and carwashscene >= 50:
+			act 'Continue':gt 'zaprFWash', 'pussyQ'	
+		elseif carwashscene <= min(max(60,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),80) and carwashscene >= 60:	
+			act 'Continue':gt 'zaprFWash', 'handQ'
+		elseif carwashscene <= min(max(80,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),100) and carwashscene >= 80:	
+			act 'Continue':gt 'zaprFWash', 'blowQ'
+		else
+			act 'Continue':gt 'zaprFWash', 'assQ'
+		end
+	! flashing for cars just allows you to return to the gas station
 	else
-		act 'Run away':gt 'zaprF', 'start'
+		act 'Go back to the gas station':gt 'zaprF', 'start'
 	end
 end
 
+! $ARGS[1] = whether you got paid for this
+! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
 if $ARGS[0] = 'assFlash':
-	money += 50
+	if $ARGS[1] = 'Paid':
+		money += 50
+		pav_prostitute += rand(0,1)
+	elseif $ARGS[1] = 'Free':
+		gs 'exhibitionism', 2
+	end
+	if pcs_inhib < 30: inhib_exp += rand(2,4)
+	mood += 5
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 30:
-		i = rand(1, 2)
-		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/assflash<<i>>.jpg"></center>'
+	if gifornot < 50:
+		i = rand(1, 100)
+		if i < 10:
+			if PCloPants > 0:
+				:loop_ass_old_pics1
+				i = rand(1, 2)
+				if i = 1: jump 'loop_ass_old_pics1'
+				'<center><img <<$set_imgh>> src="images/locations/shared/carwash/assflash<<i>>.jpg"></center>'
+			elseif PCloSkirt > 0:
+				:loop_ass_old_pics2
+				i = rand(1, 2)
+				if i = 2: jump 'loop_ass_old_pics2'
+				'<center><img <<$set_imgh>> src="images/locations/shared/carwash/assflash<<i>>.jpg"></center>'
+			end
+		else
+			if PCloPants > 0:
+				i = rand(1, 16)
+				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/butt/<<i>>.jpg"></center>'
+			elseif PCloSkirt > 0:
+				i = rand(1, 9)
+				'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/butt/<<i>>.jpg"></center>'
+			end
+		end
+	else
+		if PCloPants > 0:
+			:loop_ass_old_vids1
+			i = rand(1, 5)
+			if i = 2 or i = 3: jump 'loop_ass_old_vids1'
+			'<center><video autoplay loop src="images/locations/shared/carwash/assflash<<i>>.mp4"></video></center>'
+		elseif PCloSkirt > 0:
+			:loop_ass_old_vids2
+			i = rand(1, 5)
+			if i = 1 or i = 4 or i = 5: jump 'loop_ass_old_vids2'
+			'<center><video autoplay loop src="images/locations/shared/carwash/assflash<<i>>.mp4"></video></center>'
+		end
+	end
+	
+	if $ARGS[1] = 'Paid':
+		if PCloPants > 0:'You pull your pants down and show him your ass for a few seconds. Then you quickly cover up and take your money.'
+		if PCloSkirt > 0:'You lift your skirt up and show him your ass for a few seconds. Then you quickly cover up and take your money.'
+	elseif $ARGS[1] = 'Free':
+		if $ARGS[2] = 'Question':
+			if PCloPants > 0:'You pull your pants down and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.'
+			if PCloSkirt > 0:'You lift your skirt up and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.'
+		elseif $ARGS[2] = 'Flash':
+			if PCloPants > 0:'You pull your pants down and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.'
+			if PCloSkirt > 0:'You lift your skirt up and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.'
+		end
+	end
+	gs 'arousal', 'flashlite', 5
+	gs 'stat'
+	
+	if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 10) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
+		carwashscene = rand(1, 100)
+		if carwashscene <= min(max(50,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),75) and carwashscene >= 50:	
+			act 'Continue':gt 'zaprFWash', 'handQ'
+		elseif carwashscene <= min(max(75,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),100) and carwashscene >= 75:	
+			act 'Continue':gt 'zaprFWash', 'blowQ'
+		else
+			act 'Continue':gt 'zaprFWash', 'pussyQ'
+		end
 	else
-		i = rand(1, 5)
-		'<center><video autoplay loop src="images/locations/shared/carwash/assflash<<i>>.mp4"></video></center>'
+		act 'Go back to the gas station':gt 'zaprF', 'start'
+	end
+end
+
+! $ARGS[1] = whether you got paid for this
+! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars
+if $ARGS[0] = 'pussyFlash':
+	if $ARGS[1] = 'Paid':
+		money += 50
+		pav_prostitute += 1
+	elseif $ARGS[1] = 'Free':
+		gs 'exhibitionism', 3
+	end
+	if pcs_inhib < 40: inhib_exp += rand(4,6)
+	mood += 5
+	gs 'stat'
+	
+	if PCloPants > 0:
+		i = rand(1, 9)
+		'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/<<i>>.jpg"></center>'
+	elseif PCloSkirt > 0:
+		i = rand(1, 13)
+		'<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/pussy/<<i>>.jpg"></center>'
+	end
+	
+	if $ARGS[1] = 'Paid':
+		if PCloPants > 0:'You pull your pants down and show him your pussy for a few seconds. Then you quickly cover up and take your money.'
+		if PCloSkirt > 0:'You lift your skirt up and show him your pussy for a few seconds. Then you quickly cover up and take your money.'
+	elseif $ARGS[1] = 'Free':
+		if $ARGS[2] = 'Question':
+			if PCloPants > 0:'You pull your pants down and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.'
+			if PCloSkirt > 0:'You lift your skirt up and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.'
+		elseif $ARGS[2] = 'Flash':
+			if PCloPants > 0:'You pull your pants down and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.'
+			if PCloSkirt > 0:'You lift your skirt up and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.'
+		end
 	end
-	'You quickly pull down your pants and show him your ass for a few seconds. You then quickly cover up and take your money.'
 	gs 'arousal', 'flashlite', 5
 	gs 'stat'
-	if sub >= 30 or bimbolevel >= 1 or pcs_horny > 6:
-		act 'Continue':gt 'zaprFWash', 'blowQ'
+	
+	if (sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 15) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':
+		carwashscene = rand(1, 100)
+		if carwashscene <= min(max(60,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),100) and carwashscene >= 60:	
+			act 'Continue':gt 'zaprFWash', 'blowQ'
+		else
+			act 'Continue':gt 'zaprFWash', 'handQ'
+		end
 	else
-		act 'Run away':gt 'zaprF', 'start'
+		act 'Go back to the gas station':gt 'zaprF', 'start'
 	end
 end
 
-if $ARGS[0] = 'blowjob':
+! $ARGS[1] = whether you got paid for this
+if $ARGS[0] = 'handjob':
+	! generate random npc for sex
 	gs 'npcgeneratec', 0, 'gas station customer', rand(18,40)
 	gs 'boyStat', $npclastgenerated
+	
+	if $ARGS[1] = 'Paid':
+		money += 200
+		pav_prostitute += 2
+	elseif $ARGS[1] = 'Free':
+		pav_sex += 2
+	end
+	if pcs_inhib < 50: inhib_exp += rand(6,8)
+	mood += 5
+	gs 'stat'
+	
+	gifornot = rand (1, 100)
+	if gifornot < 50:
+		i = rand(1, 2)
+		if i = 1:
+			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
+		end
+	else
+		i = rand(0, 2)
+		if i = 0:
+			'<center><video autoplay loop src="images/shared/sex/handjob/hj<<i>>.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/shared/sex/handjob/HandJob<<i>>.mp4"></video></center>'
+		end
+	end
+	
+	if $ARGS[1] = 'Paid':
+		'You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your hands.'
+		gs 'arousal', 'hj', 15, 'sub', 'prostitute', 'unknown'
+	elseif $ARGS[1] = 'Free':
+		'You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your hands.'
+		gs 'arousal', 'hj', 15, 'dom', 'unknown'
+	end
+	gs 'stat'
+	
+	'After a while, the man starts pulling your head closer and closer to him. He asks you to blow him: "I''ll give you 200 <b>₽</b> if you open that mouth for me.'
+	
+	if sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 30:
+		if pcs_inhib >= 30 or pcs_horny >= 30:act 'Open your mouth for him':gt 'zaprFWash', 'blowjob', 'Paid', 'handjob'
+		act 'Rub harder to make him cum':gt 'zaprFWash', 'handjobEndQ'
+	else
+		act 'Rub harder to make him cum':gt 'zaprFWash', 'handjobEndQ'
+	end
+end
 
-	money += 300
-
+! $ARGS[1] = whether you got paid for this
+! $ARGS[2] = whether this act came from a customer question or already giving a customer a handjob
+if $ARGS[0] = 'blowjob':
+	if $ARGS[2] = 'Question':
+		gs 'npcgeneratec', 0, 'gas station customer', rand(18,40)
+		gs 'boyStat', $npclastgenerated
+	end
+	
+	if $ARGS[1] = 'Paid':
+		money += 200
+		pav_prostitute += 2
+	elseif $ARGS[1] = 'Free':
+		pav_sex = 2
+	end
+	if pcs_inhib < 50: inhib_exp += rand(6,8)
+	mood += 5
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 30:
+	if gifornot < 50:
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/blowjob<<i>>.jpg"></center>'
 	else
 		i = rand(1, 3)
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/blowjob<<i>>.mp4"></video></center>'
 	end
-	'You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your mouth.'
-	'After a while, the man starts trying to remove your clothes. He asks you to let him fuck your pussy: "I''ll give you another 300 if you let me take your pussy! C''mon!'
-	gs 'arousal', 'bj', 15, 'sub', 'prostitute'
+	
+	if $ARGS[2] = 'Question': 
+		if $ARGS[1] = 'Paid':
+			'You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your mouth.'
+			gs 'arousal', 'bj', 15, 'sub', 'prostitute', 'unknown'
+		elseif $ARGS[1] = 'Free':
+			'You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your mouth.'
+			gs 'arousal', 'bj', 15, 'dom', 'unknown'
+		end
+	elseif $ARGS[2] = 'handjob':
+		if $ARGS[1] = 'Paid':
+			'You grab the money he tosses at you and switch to working his shaft with your mouth.'
+			gs 'arousal', 'bj', 15, 'sub', 'prostitute', 'unknown'
+		elseif $ARGS[1] = 'Free':
+			'You switch to working his shaft with your mouth.'
+			gs 'arousal', 'bj', 15, 'dom', 'unknown'
+		end
+	end
 	gs 'stat'
-	if sub >= 30 or bimbolevel >= 1 or pcs_horny > 6:
+	
+	'After a while, the man starts trying to remove your clothes. He asks you to let him fuck your pussy: "I''ll give you 400 <b>₽</b> if you let me take your pussy! C''mon!'
+	
+	if sub >= 10 or pcs_dom >= 10 or bimbolevel >= 1 or pcs_horny >= 40:
 		if pcs_vag = 0:
-			act 'Offer your ass instead (you don''t want to lose your virginity to this stranger...)':gt 'zaprFWash', 'fuckAnal'
+			if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your ass instead (you don''t want to lose your virginity to this stranger...)':gt 'zaprFWash', 'fuckAnal', 'Paid'
 		else
-			act 'Offer your pussy':gt 'zaprFWash', 'fuckPussy'
-			act 'Offer your ass':gt 'zaprFWash', 'fuckAnal'
+			if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your pussy':gt 'zaprFWash', 'fuckPussy', 'Paid'
+			if pcs_inhib >= 40 or pcs_horny >= 40: act 'Offer your ass':gt 'zaprFWash', 'fuckAnal', 'Paid'
 		end
 		act 'Suck harder to make him cum':gt 'zaprFWash', 'blowjobEndQ'
 	else
@@ -145,39 +502,71 @@ if $ARGS[0] = 'blowjob':
 	end
 end
 
+! $ARGS[1] = whether you got paid for this
 if $ARGS[0] = 'fuckPussy':
-	money += 300
-
+	if $ARGS[1] = 'Paid':
+		money += 400
+		pav_prostitute += 4
+	elseif $ARGS[1] = 'Free':
+		pav_sex += 4
+	end
+	if pcs_inhib < 60: inhib_exp += rand(14,16)
+	mood += 10
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 40:
+	if gifornot < 50:
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/fuckpussy<<i>>.jpg"></center>'
 	else
 		i = rand(1, 4)
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/fuckpussy<<i>>.mp4"></video></center>'
 	end
-	'You bend over and let the man start fucking your pussy.'
-	gs 'arousal', 'vaginal', 30, 'sub', 'prostitute'
+	
+	if $ARGS[1] = 'Paid':
+		'You bend over and let the man start fucking your pussy after collecting your money.'
+		gs 'arousal', 'vaginal', 30, 'sub', 'prostitute', 'unknown'
+	elseif $ARGS[1] = 'Free':
+		'You bend over and let the man start fucking your pussy.'
+		gs 'arousal', 'vaginal', 30, 'dom', 'unknown'
+	end
 	gs 'stat'
+	
 	act 'Continue':gt 'zaprFWash', 'pussyEndQ'
 end
 
+! $ARGS[1] = whether you got paid for this
 if $ARGS[0] = 'fuckAnal':
-	money += 300
-
+	if $ARGS[1] = 'Paid':
+		money += 400
+		pav_prostitute += 4
+	elseif $ARGS[1] = 'Free':
+		pav_sex += 4
+	end
+	if pcs_inhib < 60: inhib_exp += rand(14,16)
+	mood += 10
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 40:
+	if gifornot < 50:
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/fuckanal<<i>>.jpg"></center>'
 	else
 		i = rand(1, 4)
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/fuckanal<<i>>.mp4"></video></center>'
 	end
-	'You bend over and let the man start fucking your ass, his cock wet with your saliva.'
-	gs 'arousal', 'anal', 30, 'sub', 'prostitute'
+	
+	if $ARGS[1] = 'Paid':
+		'You bend over and let the man start fucking your ass after you collect your money. His cock is still wet with your saliva as it slides inside you.'
+		gs 'arousal', 'vaginal', 30, 'sub', 'prostitute', 'unknown'
+	elseif $ARGS[1] = 'Free':
+		'You bend over and let the man start fucking your ass. His cock is still wet with your saliva as it slides inside you.'
+		gs 'arousal', 'vaginal', 30, 'dom', 'unknown'
+	end
 	gs 'stat'
+	
 	rapePussyChance = rand(1, 100)
-	if rapePussyChance < 10:
+	if rapePussyChance <= min(max(1,pav_prostitute-60,pav_sex-60,pav_prostitute+pav_sex-120),20):
 		act 'Continue':gt 'zaprFWash', 'rapePussy'
 	else
 		act 'Continue':gt 'zaprFWash', 'analEndQ'
@@ -187,85 +576,155 @@ end
 if $ARGS[0] = 'rapePussy':
 	i = rand(1, 5)
 	'<center><video autoplay loop src="images/locations/shared/carwash/sex/hardanal<<i>>.mp4"></video></center>'
+	
 	'The man fucks your ass furiously, taking no heed to your painful moans. As you try to move away a bit to limit the depth he can reach in your ass, he slaps your buttcheeks hard and shouts:'
 	'"Stop moving bitch! Who do you think you are, that you can tell me what to do?"'
+	
 	if pcs_vag = 0:
 		'He gropes your ass, lifts it up and suddenly spots your hymen.'
 		'"What, you are a virgin? Such a tease and still a virgin, really?"'
 		rapeAnyway = rand(1, 100)
-		if rapeAnyway < 50:
-			'"It would have happened sooner or later anyway, virgin slut. Now enjoy and remember this moment!"'
-			act 'Continue':gt 'zaprFWash', 'rapePussyYes'
+		if rapeAnyway <= min(max(1,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),50):
+			'"It would have happened sooner or later anyway, virgin slut. Now enjoy and remember this moment; I know I will!"'
+			act 'Continue':gt 'zaprFWash', 'rapePussyYes', 'virgin'
 		else
-			'"Girls like you should not be acting like this! Someone should have taught you a hard lesson a long time ago."'
+			'"Girls like you should not be acting like this! Someone should have taught you a lesson a long time ago."'
 			act 'Continue':gt 'zaprFWash', 'punishSpank'
 		end
 	else
-		act 'Continue':gt 'zaprFWash', 'rapePussyYes'
+		act 'Continue':gt 'zaprFWash', 'rapePussyYes', 'normal'
 	end
-	pcs_mood = 5
-	gs 'stat'
 end
 
+! $ARGS[1] = whether you were a virgin before this or not
 if $ARGS[0] = 'rapePussyYes':
-	'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust, all the way to the hilt!'
+	inhib_exp += rand(10,20)
+
 	i = rand(1, 3)
 	'<center><video autoplay loop src="images/locations/shared/carwash/sex/pussytoanal<<i>>.mp4"></video></center>'
-	gs 'arousal', 'vaginal', 15, 'sub', 'prostitute', 'rough'
+	
+	if $ARGS[1] = 'virgin':
+		sub += 10
+		mood -= 30
+		'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust! You feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?'
+	elseif $ARGS[1] = 'normal':
+		sub += 6
+		mood -= 20
+		'He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust, all the way to the hilt!'
+	end
+	gs 'arousal', 'vaginal', 30, 'sub', 'prostitute', 'rough', 'rape', 'unknown'
 	gs 'stat'
-	act 'Continue':gt 'zaprFWash', 'vaginaCum'
+	
+	act 'Continue':gt 'zaprFWash', 'vaginaCum', 'rape'
+end
+
+if $ARGS[0] = 'pussyEndQ':
+	'You can feel that the man is about to orgasm. You decide to...:'
+	
+	act 'Let him cum inside your vagina':gt 'zaprFWash', 'vaginaCum', 'consensual'
+	act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace', 'inside'
+	act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'inside'
 end
 
 if $ARGS[0] = 'analEndQ':
 	'You can feel that the man is about to ejaculate. You decide to...:'
+	
 	act 'Let him cum inside your ass':gt 'zaprFWash', 'assCum'
-	act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace'
-	act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth'
+	act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace', 'inside'
+	act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'inside'
 end
 
-if $ARGS[0] = 'pussyEndQ':
-	'You can feel that the man is about to orgasm. You decide to...:'
-	act 'Let him cum inside your vagina':gt 'zaprFWash', 'vaginaCum'
-	act 'Take his cum on your face':gt 'zaprFWash', 'blowjobEndFace'
-	act 'Let him cum inside your mouth':gt 'zaprFWash', 'blowjobEndMouth'
+! $ARGS[1] = whether this was rape or not
+if $ARGS[0] = 'vaginaCum':
+	if pcs_inhib < 40: inhib_exp += rand(4,6)
+	pcs_vag += 1
+	pain['vaginal'] += 4
+	gs 'cum_call', ''
+	gs 'stat'
+	
+	i = rand(1, 5)
+	'<center><video autoplay loop src="images/locations/shared/carwash/sex/cumpussy<<i>>.mp4"></video></center>'
+	
+	if $ARGS[1] = 'consensual':
+		mood += 20
+		'You let him cum deep inside your vagina. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole.'
+	elseif $ARGS[1] = 'rape':
+		mood -= 20
+		'The pounding suddenly stops as he cums deep inside your vagina. You can feel his cum inside of you as he continues to shoot his load inside your vagina. When he pulls out, a bit of sperm leaks out of your hole.'
+	end
+	
+	gs 'arousal', 'end'
+	gs 'stat'
+	
+	act 'Go back to the gas station':gt 'zaprF', 'start'
 end
 
 if $ARGS[0] = 'assCum':
+	if pcs_inhib < 40: inhib_exp += rand(4,6)
 	minut += 5
-	pain['asshole'] += 1
+	mood += 10
 	pcs_ass += 1
+	pain['asshole'] += 1
 	gs 'cum_call', 'anus'
 	gs 'stat'
+	
 	i = rand(1, 2)
+	
 	'<center><video autoplay loop src="images/locations/shared/carwash/sex/cumanal<<i>>.mp4"></video></center>'
+	
 	'You let him cum deep inside your ass. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole before you can tighten your worn out anus.'
+	
 	gs 'arousal', 'end'
 	gs 'stat'
+	
 	act 'Go back to gas station':gt 'zaprF', 'start'
 end
 
-if $ARGS[0] = 'vaginaCum':
-	minut += 5
-	pcs_vag += 1
-	pain['vaginal'] += 4
-	gs 'cum_call', ''
+if $ARGS[0] = 'handjobEndQ':
+	'You can feel that the man is about to orgasm. You decide to take it...:'
+	
+	act 'On your face':gt 'zaprFWash', 'blowjobEndFace', 'outside'
+	act 'On your hands':gt 'zaprFWash', 'handjobEndHands'
+end
+
+if $ARGS[0] = 'handjobEndHands':	
+	if pcs_inhib < 30: inhib_exp += rand(2,4)
+	mood += 5
+	gs 'cum_call', 'hands'
 	gs 'stat'
-	i = rand(1, 5)
-	'<center><video autoplay loop src="images/locations/shared/carwash/sex/cumpussy<<i>>.mp4"></video></center>'
-	'You let him cum deep inside your vagina. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole.'
+	
+	gifornot = rand (1, 100)
+	if gifornot < 30:
+		i = rand(0, 1)
+		'<center><video autoplay loop src="images/shared/sex/cum/handjob/hand0,<<i>>.mp4"></video></center>'
+	else
+		i = rand(1, 2)
+		'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand<<i>>.jpg"></center>'
+	end
+	
+	'When the man starts to ejaculate, you quickly point his cock away from your face. Your hands are covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
+	
 	gs 'arousal', 'end'
 	gs 'stat'
+	
 	act 'Go back to the gas station':gt 'zaprF', 'start'
 end
 
 if $ARGS[0] = 'blowjobEndQ':
 	'You can feel that the man is about to orgasm. You decide to take it...:'
-	act 'On your face':gt 'zaprFWash', 'blowjobEndFace'
-	act 'In your mouth':gt 'zaprFWash', 'blowjobEndMouth'
+	
+	act 'On your face':gt 'zaprFWash', 'blowjobEndFace', 'outside'
+	act 'In your mouth':gt 'zaprFWash', 'blowjobEndMouth', 'outside'
 end
 
+! $ARGS[1] = whether his cock was inside or outside of you before he cums on your face
 if $ARGS[0] = 'blowjobEndFace':
-	minut += 5
+	if pcs_inhib < 30: inhib_exp += rand(2,4)
+	mood += 5
+	gs 'cum_call', 'face'
+	gs 'stat'
+	
+	gifornot = rand (1, 100)
 	if gifornot < 30:
 		i = rand(1, 2)
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/cumface<<i>>.mp4"></video></center>'
@@ -273,26 +732,41 @@ if $ARGS[0] = 'blowjobEndFace':
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/cumface<<i>>.jpg"></center>'
 	end
-	'When the man starts to ejaculate, you quickly take his cock out and point it towards your face. His sack was full, you can say that for sure.'
-	gs 'cum_call', 'face'
+	
+	if $ARGS[1] = 'outside':
+		'When the man starts to ejaculate, you quickly point point his cock towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
+	elseif $ARGS[1] = 'inside':
+		'When the man starts to ejaculate, you quickly take his cock out of you and point it towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.'
+	end
+	
 	gs 'arousal', 'end'
 	gs 'stat'
+	
 	act 'Go back to the gas station':gt 'zaprF', 'start'
 end
 
+! $ARGS[1] = whether his cock was inside or outside of you before he cums in your mouth
 if $ARGS[0] = 'blowjobEndMouth':
-	minut += 5
+	gs 'cum_call', 'mouth'
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot < 30:
+	if gifornot < 60:
 		i = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/cummouth<<i>>.jpg"></center>'
 	else
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/cummouth1.mp4"></video></center>'
 	end
-	'When the man starts to ejaculate, you quickly take his cock out of your mouth while keeping it aimed straight at your tongue, giving him a good view of the cum as it flies inside your gaping mouth. His sack was full, you can say that for sure.'
-	gs 'cum_call', 'mouth'
+	
+	if $ARGS[1] = 'outside':
+		'When the man starts to ejaculate, you quickly open your mouth while keeping his cock aimed straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.'
+	elseif $ARGS[1] = 'inside':
+		'When the man starts to ejaculate, you quickly take his cock out of you and aim it straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.'
+	end
+	
 	gs 'arousal', 'end'
 	gs 'stat'
+	
 	act 'Continue':gt 'zaprFWash', 'blowjobEndMouthQ'
 end
 
@@ -304,143 +778,252 @@ end
 
 
 if $ARGS[0] = 'blowjobEndMouthSwallow':
+	if pcs_inhib < 40: inhib_exp += rand(4,6)
 	swallow += 1
-	'You gulp down the mouthful of sperm and then present your tongue as a proof that all of his seed is now in your belly.'
+	sub += 1
+	mood += 10
+	gs 'stat'
+	
 	i = rand(1, 4)
 	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/swallow<<i>>.jpg"></center>'
+	
+	'You gulp down the mouthful of sperm and then present your tongue as a proof that all of his seed is now in your belly.'
 	'The man smiles, slaps you mildly on your face and says: "What a nice young slut you are. Next time I need a refill, I''ll be sure to stop by."'
+	
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Go back to the gas station':gt 'zaprF', 'start'
 end
 
 if $ARGS[0] = 'blowjobEndMouthSpit':
-	'You spit the load of sperm down between the legs of your customer. He doesn''t seem happy about it...'
-	i = rand(1, 3)
+	if pcs_inhib < 30: inhib_exp += rand(2,4)
+	pcs_dom += 3
+	gs 'stat'
+	
 	gifornot = rand (1, 100)
-	if gifornot > 30:
-	'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/spit<<i>>.jpg"></center>'
+	if gifornot > 50:
+		i = rand(1, 3)
+		'<center><img <<$set_imgh>> src="images/locations/shared/carwash/sex/spit<<i>>.jpg"></center>'
 	else
-	'<center><video autoplay loop src="images/locations/shared/carwash/sex/spit1.mp4"></video></center>'
+		'<center><video autoplay loop src="images/locations/shared/carwash/sex/spit1.mp4"></video></center>'
 	end
+	
+	'You spit the load of sperm down between the legs of your customer. He doesn''t seem happy about it...'
 	'His face darkens and he says: "What, my cum isn''t good enough for you to swallow? I''ll teach you bitch!"'
 	'He moves closer to you with an angry look!'
+	
 	act 'Run back to the gas station':gt 'zaprFWash', 'runback'
 end
 
 if $ARGS[0] = 'runback':
+	minut += 5
+	! runSuccess uses a simpler version of the formula used with carwashscene
+	! just based on strength and agility; uses whichever is higher to try and run away
+	! min 25 percent chance; max 75 percent chance for this initial getaway
 	runSuccess = rand(1, 100)
-	if runSuccess > 50:
-		'You managed to escape his grasp!'
-		act 'Continue':gt 'zaprF', 'start'
+	if runSuccess <= min(max(25,pcs_stren,pcs_agil),75):
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/turn_back.jpg"></center>'
+		
+		'You managed to escape his grasp! You take a quick look behind you to make sure he''s not following you before heading back to the gas station.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Escape':gt 'zaprF', 'start'
 	else
 		pain['cheeks'] += 2
 		pain['head'] += 2
 		pain['mouth'] += 2
 		pain['neck'] += 4
+		
 		'<center><video autoplay loop src="images/locations/shared/carwash/sex/punishbeatface.mp4"></video></center>'
+		
 		'You weren''t quick enough and he caught you. He pushes you down and starts to slap your face!'
+		
 		gs 'arousal', 'end'
 		gs 'stat'
+		
 		act 'Endure his punishment':gt 'zaprFWash', 'punish'
+		! gave doms the choice to fight back as long as they have some energy related stat with something left even if they lost the roll for runSuccess
+		! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35
+		if dom > 0 and (pcs_energy > 35 or pcs_hydra > 35 or pcs_sleep > 35):
+			act 'Push him off of you and escape':gt 'zaprFWash', 'fight'
+		end
+	end
+end
+
+if $ARGS[0] = 'fight':
+	! maybe at some point this could be an actual fight but with the state of the combat logic is in this will just be left to drain a stat to escape
+	! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35
+	if pcs_energy >= 35: 
+		pcs_energy -= 35
+	elseif pcs_hydra >= 35: 
+		pcs_hydra -= 35
+	elseif pcs_sleep >= 35: 
+		pcs_sleep -= 35
 	end
+	
+	gs 'arousal', 'end'
+	gs 'stat'
+	
+	gt 'zaprF', 'start'
 end
 
 if $ARGS[0] = 'punish':
+	! once again punishType uses the same logic as carwashscene for dynamic choices
 	punishType = rand(1, 100)
-	if punishType < 33:
-		gt 'zaprFWash', 'punishSpank'
-	elseif punishType < 66:
+	if punishType <= min(max(50,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),75) and punishType >= 50:	
+		gt 'zaprFWash', 'punishAnal'
+	elseif punishType <= min(max(75,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),100) and punishType >= 75:	
 		gt 'zaprFWash', 'punishPussyQ'
 	else
-		gt 'zaprFWash', 'punishAnal'
+		gt 'zaprFWash', 'punishSpank'
 	end
 end
 
 if $ARGS[0] = 'punishSpank':
-	minut += 20
 	pcs_horny = 0
+	pcs_mood -= 10
+	sub += 2
+	inhib_exp += rand(2,4)
 	pain['asscheeks'] += 5
+	gs 'stat'
+	
 	'<center><video autoplay loop src="images/locations/shared/carwash/sex/punishspank.mp4"></video></center>'
-	'The angry man bends you over an old chair and starts to spank your ass, hard.'
+	
+	'The angry man drags you to a more secluded area, bends you over and starts to spank your ass very hard.'
 	'After twenty minutes of ruthless punishment, you can finally crawl away with your burning ass.'
-	abductionChance = rand(1, 100)
-	if abductionChance <= 10 or sub > 90 and leonidSlave = 0:
-		act 'Continue':gt 'zaprFWash', 'getAbducted'
-	else
-		act 'Get back to the gas station':gt 'zaprF', 'start'
+	
+	gs 'arousal', 'foreplay', 15, 'sub', 'rough', 'unknown'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
+	! reputationScalar has a min of 1 and a max of 180; the more well known you are the higher the chance of being abducted
+	reputationScalar = min(max(1,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),180)
+	! fitnessScalar has a min of 1 and a max of 90; the more fit you are the lower the chance of being abducted
+	fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
+	! abductionChance is calculated using a combination of these 2 values
+	! in the beginning of the game fitness will usually outweigh your reputation and keep your abductionChance very low (min is 0)
+	! once reputation begins to rise it will even out with the fitness and abductionChance will stabilize at an average value (around 45)
+	! but fitness caps at 100 and reputation does not so eventually if your reputation grows to be very large the abductionChance will continue to rise (max of 90)
+	abductionChance = reputationScalar-fitnessScalar
+	if (abductionChance > 0 and abductionChance <= rand(1,100)) or sub > 99:
+		'But your perpetrator isn''t done with you.'
+		'He catches you again, drags you to his car and pushes you into the trunk...'
+		'You have a feeling this probably will not go well for you...'
+		
+		act 'Cry for help':gt 'abduction', 'start'
+	else		
+		'Your perpetrator stands up and just watches as you crawl away in pain.'
+		'He turns around and calmly walks away, leaving you alone.'
+		
+		act 'Escape':gt 'zaprF', 'start'
 	end
-	pcs_mood = 5
+end
+
+if $ARGS[0] = 'punishAnal':
+	pcs_horny = 0
+	pcs_mood -= 20
+	sub += 4
+	pain['asshole'] += 6
+	inhib_exp += rand(5,10)
+	gs 'cum_call', 'anus'
 	gs 'stat'
+	
+	i = rand(1, 3)
+	'<center><video autoplay loop src="images/locations/shared/carwash/sex/punishanal<<i>>.mp4"></video></center>'
+	
+	'The angry man drags you to a more secluded area, bends you over, and sticks a finger in your ass.'
+	'Your anus fully exposed, he starts fucking it ruthlessly.'
+	'After half an hour of rough assfucking he releases his grip on you so you can finally crawl away; your aching ass sore from the brutal penetration.'
+	
+	gs 'arousal', 'anal', 30, 'sub', 'rough', 'rape', 'unknown'
 	gs 'arousal', 'end'
 	gs 'stat'
+	
+	reputationScalar = min(max(1,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),180)
+	fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
+	abductionChance = reputationScalar-fitnessScalar
+	if (abductionChance > 0 and abductionChance <= rand(1,100)) or sub > 99:
+		'But your perpetrator isn''t done with you.'
+		'He catches you again, drags you to his car and pushes you into the trunk...'
+		'You have a feeling this probably will not go well for you...'
+		
+		act 'Cry for help':gt 'abduction', 'start'
+	else		
+		'Your perpetrator stands up and just watches as you crawl away in pain.'
+		'He turns around and calmly walks away, leaving you alone.'
+		
+		act 'Escape':gt 'zaprF', 'start'
+	end
 end
 
 if $ARGS[0] = 'punishPussyQ':
-	'The angry man drags you to an old house. He bends you over and starts to rub your pussy.'
+	'The angry man drags you to a more secluded area. He bends you over and starts to rub your pussy.'
+	
 	if pcs_vag = 0:
 		'Suddenly he remarks: "What? You''re a virgin? Such slutty tease and still a virgin?'
+		
 		penetrate = rand (1, 100)
-		if penetrate <= 100 and penetrate > 66:
-			'Someone should have done this long time ago!'
-			act 'Endure':gt 'zaprFWash', 'punishSpank'
-		elseif penetrate <= 66 and penetrate > 33:
+		if penetrate <= min(max(50,pav_prostitute-30,pav_sex-30),75) and penetrate >= 50:	
 			'I''ll spare your virginity but you''ll get fucked anyway. Sluts have more than one hole for a reason, right?'
+			
 			act 'Endure':gt 'zaprFWash', 'punishAnal'
+		elseif penetrate <= min(max(75,pav_prostitute-30,pav_sex-30),100) and penetrate >= 75:	
+			'This makes it even better! I''ll enjoy your tears even more! I haven''t had a virgin in forever!'
+			
+			act 'Endure':gt 'zaprFWash', 'punishPussy', 'virgin'
 		else
-			'This makes it even better! I''ll enjoy your tears even more!'
-			act 'Endure':gt 'zaprFWash', 'punishPussy'
+			'Someone should have done this a long time ago, but I''ll spare you penetration this time!'
+			
+			act 'Endure':gt 'zaprFWash', 'punishSpank'
 		end
 	else
-		'Let''s try this teenie snatch!'
-		act 'Endure':gt 'zaprFWash', 'punishPussy'
+		'Let''s try what you''ve been teasing, you ungrateful whore!'
+		act 'Endure':gt 'zaprFWash', 'punishPussy', 'normal'
 	end
 end
 
+! $ARGS[1] = whether you were a virgin before this or not
 if $ARGS[0] = 'punishPussy':
+	pcs_horny = 0
 	pain['vaginal'] += 4
+	inhib_exp += rand(5,10)
 	gs 'cum_call', ''
+	gs 'stat'
+	
 	i = rand(1, 5)
 	'<center><video autoplay loop src="images/locations/shared/carwash/sex/punishpussy<<i>>.mp4"></video></center>'
-	'Your pussy fully exposed, he starts fucking it ruthlessly.'
-	'After half an hour of destroying your cunt he releases his grip on you so you can finally crawl away; your aching pussy sore from the brutal penetration.'
-	gs 'arousal', 'vaginal', 30, 'sub', 'rough'
-	gs 'arousal', 'end'
-	gs 'stat'
-	abductionChance = rand(1, 100)
-	if abductionChance <= 10 or sub > 90:
-		act 'Continue':gt 'zaprFWash', 'getAbducted'
-	else
-		act 'Get back to the gas station':gt 'zaprF', 'start'
+	
+	if $ARGS[1] = 'virgin':
+		sub += 10
+		'Your pussy fully exposed, he slowly inserts his cock inside of you. He pushes right up against your hymen, savoring the moment. Suddenly, you feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?'
+		pcs_mood -= 40
+	elseif $ARGS[1] = 'normal':
+		sub += 6
+		'Your pussy fully exposed, he starts fucking it ruthlessly.'
+		pcs_mood -= 20
 	end
-	pcs_mood = 5
-	gs 'stat'
-end
-
-if $ARGS[0] = 'punishAnal':
-	pain['asshole'] += 6
-	gs 'cum_call', 'anus'
-	pcs_mood = - 15
-
-	i = rand(1, 3)
-	'<center><video autoplay loop src="images/locations/shared/carwash/sex/punishanal<<i>>.mp4"></video></center>'
-	'Your anus fully exposed, he starts fucking it ruthlessly.'
-	'After half an hour of rough assfucking he releases his grip on you so you can finally crawl away; your aching ass sore from the brutal penetration.'
-	gs 'arousal', 'anal', 30, 'sub', 'rough'
+	'After half an hour of destroying your cunt he releases his grip on you so you can finally crawl away; your aching pussy sore from the brutal penetration.'
+	
+	gs 'arousal', 'vaginal', 30, 'sub', 'rough', 'rape', 'unknown'
 	gs 'arousal', 'end'
 	gs 'stat'
-	abductionChance = rand(1, 100)
-	if abductionChance <= 10 or sub > 90:
-		act 'Continue':gt 'zaprFWash', 'getAbducted'
-	else
-		act 'Get back to the gas station':gt 'zaprF', 'start'
+	
+	reputationScalar = min(max(1,pav_prostitute-30,pav_sex-30,pav_prostitute+pav_sex-60),180)
+	fitnessScalar = min(max(1,pcs_stren,pcs_agil),90)
+	abductionChance = reputationScalar-fitnessScalar
+	if (abductionChance > 0 and rand(1,100) <= abductionChance) or sub > 99:
+		'But your perpetrator isn''t done with you.'
+		'He catches you again, drags you to his car and pushes you into the trunk...'
+		'You have a feeling this probably will not go well for you...'
+		act 'Cry for help':gt 'abduction', 'start'
+	else		
+		'Your perpetrator stands up and just watches as you crawl away in pain.'
+		'He turns around and calmly walks away, leaving you alone.'
+		act 'Escape':gt 'zaprF', 'start'
 	end
 end
 
-if $ARGS[0] = 'getAbducted':
-	'But your perpetrator isn''t done with you.'
-	'He catches you again, drags you to his car and pushes you into the trunk...'
-	'You probably made a terrible mistake...'
-	act 'Cry for help':gt 'abduction', 'start'
-end
-
 --- zaprFWash ---------------------------------