Browse Source

Merge branch 'master' of https://git.catrenelle.com/Kevin_Smarts/glife

KevinSmarts 6 years ago
parent
commit
8e45059e84
10 changed files with 4599 additions and 5354 deletions
  1. 1116 1119
      glife.qproj
  2. 0 60
      locations/_difficulty.qsrc
  3. 1418 1418
      locations/cikl.qsrc
  4. 2 7
      locations/din_van.qsrc
  5. 0 35
      locations/exhibitionism.qsrc
  6. 946 946
      locations/femcyc.qsrc
  7. 0 215
      locations/flash.qsrc
  8. 852 852
      locations/kafe2.qsrc
  9. 265 265
      locations/kid.qsrc
  10. 0 437
      locations/lact_lib.qsrc

+ 1116 - 1119
glife.qproj

@@ -1,1122 +1,1119 @@
 <?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"/>
-		<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>
+  <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="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="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>

+ 0 - 60
locations/_difficulty.qsrc

@@ -1,60 +0,0 @@
-# _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 ---------------------------------
-

+ 1418 - 1418
locations/cikl.qsrc

@@ -1,1418 +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
-!!------------------------------------------------------------------------------------------------------------
-
-!!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 ---------------------------------
-
+# 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 ---------------------------------
+

+ 2 - 7
locations/din_van.qsrc

@@ -719,6 +719,8 @@ 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
@@ -957,13 +959,6 @@ 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':

+ 0 - 35
locations/exhibitionism.qsrc

@@ -1,35 +0,0 @@
-# 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 ---------------------------------
-

+ 946 - 946
locations/femcyc.qsrc

@@ -1,946 +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
-
-
-	!! 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 ---------------------------------
-
+# 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 ---------------------------------
+

+ 0 - 215
locations/flash.qsrc

@@ -1,215 +0,0 @@
-# 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 ---------------------------------

+ 852 - 852
locations/kafe2.qsrc

@@ -1,852 +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'
-			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 ---------------------------------
-
+# 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 ---------------------------------
+

+ 265 - 265
locations/kid.qsrc

@@ -1,265 +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
-
-		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 ---------------------------------
-
+# 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 ---------------------------------
+

+ 0 - 437
locations/lact_lib.qsrc

@@ -1,437 +0,0 @@
-# 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 ---------------------------------