.gitignore

@@ -16,6 +16,8 @@ avatar.*
 *.rar
 *.zip
 VideoDecodeStats/
+tools/*.AppImage
+lbuild.sh
 
 glmf.code-workspace
 

changes from 0_8_5 to 0_8_6.txt

@@ -8,6 +8,19 @@ fertility					<- cum_arrcheat
 Zvereva_sub_1				<- gKristinaZv
 Zvereva_domme_1
 Zvereva_events
+gloryhole					<- gt 'gdktoilet_womens', 'emptystall' -> gt 'gloryhole', 'start'
+city_nightclub				<- club
+city_nightclubToilet		<- gt 'city_nightclub', 'toi' -> gt 'city_nightclubToilet', 'start'
+hookup_virgin
+pet_dog
+rex_party
+rex_party_firstTime
+rex_party_smallEvents
+rex_party_sexEvents
+vicky_meynold_schedule
+katja_meynold_schedule
+igor_schedule
+pav_beach_chat
 
 === deleted locations ===
 
@@ -16,6 +29,14 @@ npc_intro					-> gs 'npc','intro',..,..
 gschool_schedule			-> gs 'gschool', 'schedule'
 cum_arrcheat				-> gs 'fertility', 'cum_arrcheat'
 gKristinaZv					-> gt 'Zvereva_sub_1', 'showers'
+club						-> gt 'city_nightclub'
+rex_party_home
+rex_party_events
+rex_party_boys_events
+rex_party_girls_events
+rex_party_sister_events
+
+
 
 Variables:
 

glife.qproj

@@ -73,6 +73,9 @@
 		<Location name="medical_din"/>
 		<Location name="sweat"/>
 		<Location name="piercing_management"/>
+		<Location name="$face_image"/>
+		<Location name="$body_image"/>
+		<Location name="$pube_image"/>
 	</Folder>
 	<Folder name="Stimulus">
 		<Location name="boyStat"/>
@@ -83,15 +86,13 @@
 		<Location name="dinSex2"/>
 		<Location name="dinsexFX"/>
 		<Location name="oral"/>
-	</Folder>
-	<Folder name="CumManage">
 		<Location name="Cum_Manage"/>
 		<Location name="cum_cleanup"/>
 		<Location name="cum_call"/>
 		<Location name="pregriskeval"/>
 		<Location name="cuminsidereact"/>
 	</Folder>
-	<Folder name="clothing">
+	<Folder name="Clothing">
 		<Location name="wardrobe"/>
 		<Location name="clothing"/>
 		<Location name="clothing_QV"/>
@@ -145,7 +146,7 @@
 		<Location name="portnoi"/>
 		<Location name="portnoi2"/>
 	</Folder>
-	<Folder name="shoes">
+	<Folder name="Shoes">
 		<Location name="shoes"/>
 		<Location name="$shoe_image"/>
 		<Location name="$shoe_description"/>
@@ -160,7 +161,7 @@
 		<Location name="$attributes_eroto_shoes"/>
 		<Location name="$attributes_scandalicious_shoes"/>
 	</Folder>
-	<Folder name="coats">
+	<Folder name="Coats">
 		<Location name="coats"/>
 		<Location name="$coat_image"/>
 		<Location name="coat_attributes"/>
@@ -171,7 +172,7 @@
 		<Location name="$attributes_gm_coats"/>
 		<Location name="$attributes_moncheri_coats"/>
 	</Folder>
-	<Folder name="underwear">
+	<Folder name="Underwear">
 		<Location name="underwear"/>
 		<Location name="bras"/>
 		<Location name="$bra_image"/>
@@ -222,6 +223,21 @@
 		<Location name="preALT"/>
 		<Location name="preCSB"/>
 	</Folder>
+	<Folder name="Intro">
+		<Location name="intro_sg"/>
+		<Location name="intro_sg_m"/>
+		<Location name="intro_sg_tg"/>
+		<Location name="intro_city"/>
+		<Location name="intro_city_m"/>
+		<Location name="intro_city_tg"/>
+		<Location name="intro_uni"/>
+		<Location name="intro_uni_m"/>
+		<Location name="intro_uni_tg"/>
+		<Location name="intro_initialization"/>
+		<Location name="intro_customization"/>
+		<Location name="intro_sg_select"/>
+		<Location name="intro_sg_select_custom"/>
+	</Folder>
 	<Folder name="NPCManage">
 		<Location name="npccleanc"/>
 		<Location name="npcgeneratec"/>
@@ -268,7 +284,7 @@
 		<Location name="TV"/>
 		<Location name="vann"/>
 	</Folder>
-	<Folder name="Shared locations">
+	<Folder name="Home-Shared locations">
 		<Location name="outdoors"/>
 		<Location name="indoors"/>
 		<Location name="shop"/>
@@ -285,6 +301,7 @@
 		<Location name="fame_events"/>
 		<Location name="noticeboard"/>
 		<Location name="shop_allure"/>
+		<Location name="gloryhole"/>
 	</Folder>
 	<Folder name="Post office">
 		<Location name="post_office"/>
@@ -292,37 +309,7 @@
 		<Location name="post_deliveries"/>
 		<Location name="post_events"/>
 	</Folder>
-	<Folder name="Home Street - Locations">
-		<Location name="city_residential"/>
-		<Location name="city_apt_building"/>
-		<Location name="city_pharmacy"/>
-		<Location name="city_smalloffice"/>
-		<Location name="city_dima"/>
-		<Location name="city_kafegivisex"/>
-		<Location name="city_irinaroom"/>
-		<Location name="city_kafe"/>
-		<Location name="city_kafe2"/>
-		<Location name="city_kafeend"/>
-		<Location name="city_kavkazkafe"/>
-		<Location name="city_jorahouse"/>
-		<Location name="city_lake"/>
-		<Location name="city_lake_path"/>
-		<Location name="city_drugden"/>
-		<Location name="city_bobka"/>
-		<Location name="city_park"/>
-		<Location name="park_walkeventsrnd"/>
-		<Location name="park_walkevents"/>
-		<Location name="city_clinic"/>
-		<Location name="city_market"/>
-		<Location name="city_marketwork"/>
-		<Location name="city_sauna"/>
-		<Location name="city_saunawhore"/>
-		<Location name="city_trashplace"/>
-		<Location name="city_trashplaceevents"/>
-		<Location name="city_marketsex"/>
-		<Location name="city_church"/>
-	</Folder>
-	<Folder name="BDSM_Club">
+	<Folder name="BDSM Club">
 		<Location name="BDSM_Club"/>
 		<Location name="BDSM_training"/>
 		<Location name="MHall"/>
@@ -400,7 +387,7 @@
 		<Location name="nichTaras"/>
 		<Location name="nichUtil"/>
 	</Folder>
-	<Folder name="Apartment">
+	<Folder name="Home- City Residental Apartment">
 		<Location name="bedr"/>
 		<Location name="sitr"/>
 		<Location name="vanr"/>
@@ -408,7 +395,7 @@
 		<Location name="korr"/>
 		<Location name="housecall"/>
 	</Folder>
-	<Folder name="House">
+	<Folder name="Home- City Residental House">
 		<Location name="city_house_res_misc"/>
 		<Location name="city_house_res_bedr"/>
 		<Location name="city_house_res_bathr"/>
@@ -427,7 +414,7 @@
 		<Location name="gopsex"/>
 		<Location name="misha"/>
 	</Folder>
-	<Folder name="Parent's Apartment">
+	<Folder name="Home-Parent's Apartment">
 		<Location name="bedrPar"/>
 		<Location name="bedrPar2"/>
 		<Location name="sitrPar"/>
@@ -452,30 +439,17 @@
 		<Location name="family"/>
 		<Location name="ludahome"/>
 		<Location name="olu"/>
-	</Folder>
-	<Folder name="Rolan">
-		<Location name="pav_complexrolan"/>
-		<Location name="rolanapt"/>
-		<Location name="rolanbath"/>
-	</Folder>
-	<Folder name="Generic boyfriend">
-		<Location name="Gnpc"/>
-		<Location name="Gnpc_cinema"/>
-		<Location name="Gnpc2"/>
-		<Location name="hookup"/>
-		<Location name="hookup_sex"/>
-		<Location name="hookup_virgin"/>
-		<Location name="hookup_after"/>
-		<Location name="hookup_talk"/>
-		<Location name="hookup_morning"/>
-	</Folder>
-	<Folder name="Brother porn">
 		<Location name="brother"/>
 		<Location name="brother2"/>
 		<Location name="brother_voyeur"/>
 		<Location name="brother_lessons"/>
 		<Location name="seeporn"/>
 	</Folder>
+	<Folder name="Rolan">
+		<Location name="pav_complexrolan"/>
+		<Location name="rolanapt"/>
+		<Location name="rolanbath"/>
+	</Folder>
 	<Folder name="Rex">
 		<Location name="rex_events"/>
 		<Location name="rex_party_firstTime"/>
@@ -500,6 +474,7 @@
 	<Folder name="Igor Kruglov">
 		<Location name="igorev"/>
 		<Location name="igorhome"/>
+		<Location name="igor_schedule"/>
 	</Folder>
 	<Folder name="Katja Meynold">
 		<Location name="katjaEv"/>
@@ -507,12 +482,14 @@
 		<Location name="KatjaHomeTalk"/>
 		<Location name="katja_sex"/>
 		<Location name="Katja_Tanga"/>
+		<Location name="katja_meynold_schedule"/>
 	</Folder>
-	<Folder name="Vika Meynold">
+	<Folder name="Viky Meynold">
 		<Location name="mey_home"/>
 		<Location name="NikoMeyHome"/>
 		<Location name="mey_vika_events"/>
 		<Location name="mey_tamara_events"/>
+		<Location name="vicky_meynold_schedule"/>
 	</Folder>
 	<Folder name="Niko Volkov">
 		<Location name="VolkovHome"/>
@@ -536,54 +513,6 @@
 	<Folder name="Sonia">
 		<Location name="soniadisco"/>
 	</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="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="gad_church"/>
-	</Folder>
-	<Folder name="Swamp">
-		<Location name="swamp"/>
-		<Location name="swamp_yard"/>
-		<Location name="swamphouse"/>
-		<Location name="swampspring"/>
-		<Location name="backwater"/>
-		<Location name="hunters"/>
-		<Location name="huntersex"/>
-		<Location name="hunterLoveSex"/>
-		<Location name="hunter_ambient"/>
-		<Location name="hunter_favors"/>
-		<Location name="hunter_interactions"/>
-		<Location name="swamp_woods"/>
-		<Location name="andreihunter"/>
-		<Location name="igorhunter"/>
-		<Location name="sergeihunter"/>
-	</Folder>
 	<Folder name="Generator">
 		<Location name="placer"/>
 		<Location name="placer_pav_park"/>
@@ -603,49 +532,6 @@
 		<Location name="fbGar"/>
 		<Location name="zsoft_gopskverGorSlut"/>
 	</Folder>
-	<Folder name="Pavlovsk">
-		<Location name="pav_residential"/>
-		<Location name="pav_commercial"/>
-		<Location name="pav_commercial_offices"/>
-		<Location name="pav_industrial"/>
-		<Location name="leonid"/>
-		<Location name="gargazel"/>
-		<Location name="garfather"/>
-		<Location name="pav_factory"/>
-		<Location name="pav_pharmacy"/>
-		<Location name="gkafe"/>
-		<Location name="motherkafeboss"/>
-		<Location name="pav_clinic"/>
-		<Location name="therapist"/>
-		<Location name="therapist_reminder"/>
-		<Location name="pavlov_home"/>
-		<Location name="gevent"/>
-		<Location name="pav_park"/>
-		<Location name="gopskver"/>
-		<Location name="gskino"/>
-		<Location name="cafe_parco"/>
-		<Location name="kotovEv"/>
-		<Location name="IvanEv"/>
-		<Location name="strela"/>
-		<Location name="kotovSex"/>
-		<Location name="kotovdom"/>
-		<Location name="boymass"/>
-		<Location name="barbershop"/>
-		<Location name="MagEncounterFairy"/>
-		<Location name="pav_church"/>
-		<Location name="pav_church2"/>
-		<Location name="brothel"/>
-		<Location name="tour_guide"/>
-		<Location name="shop_coco_carmen"/>
-		<Location name="marisha_ev"/>
-	</Folder>
-	<Folder name="pav_lake">
-		<Location name="pav_lake"/>
-		<Location name="pav_lake_nude"/>
-		<Location name="pav_lake_nude_events"/>
-		<Location name="pav_lake_nude_forest"/>
-		<Location name="LakeBoyZ"/>
-	</Folder>
 	<Folder name="Fedor">
 		<Location name="FedorEv"/>
 		<Location name="FedorEv2"/>
@@ -693,7 +579,7 @@
 		<Location name="nerd_game_night"/>
 		<Location name="gopnik_initiation"/>
 	</Folder>
-	<Folder name="Shared_appartment">
+	<Folder name="Home-Shared_appartment">
 		<Location name="pav_shared_apt"/>
 		<Location name="pav_shared_gp"/>
 		<Location name="pav_shared_nd"/>
@@ -715,7 +601,7 @@
 		<Location name="VolleyTrenCentr"/>
 		<Location name="VolleyTrenerSpeak"/>
 		<Location name="Voltrenersex"/>
-		<Location name="chessplay"/>
+		<Location name="chessplay"/>git
 		<Location name="boilerroom"/>
 		<Location name="krupo"/>
 		<Location name="kruchess"/>
@@ -723,8 +609,6 @@
 		<Location name="Snpc"/>
 		<Location name="cumreaction"/>
 		<Location name="kotovtalker"/>
-	</Folder>
-	<Folder name="Pavlovsk Disco">
 		<Location name="pav_disco"/>
 		<Location name="pav_disco_coolkids"/>
 		<Location name="pav_disco_gopniks"/>
@@ -753,7 +637,7 @@
 		<Location name="Zvereva_events"/>
 		<Location name="Zvereva_sub_1"/>
 	</Folder>
-	<Folder name="Julia Milov 12">
+	<Folder name="Julia Milov">
 		<Location name="JuliaMilGo"/>
 		<Location name="JuliaMilHome"/>
 		<Location name="JuliaMilVhod"/>
@@ -767,7 +651,7 @@
 		<Location name="arturdin"/>
 		<Location name="arturQW"/>
 	</Folder>
-	<Folder name="Natasha Belova 16">
+	<Folder name="Natasha Belova">
 		<Location name="natbelapt"/>
 		<Location name="natbelEv"/>
 		<Location name="natkolEv"/>
@@ -814,6 +698,69 @@
 		<Location name="brosok"/>
 		<Location name="gossips"/>
 	</Folder>
+	<Folder name="Salon">
+		<Location name="salon"/>
+		<Location name="masseuse_work"/>
+		<Location name="masseuse_schedule"/>
+		<Location name="masseuse_break"/>
+	</Folder>
+	<Folder name="Photo studio">
+		<Location name="foto"/>
+		<Location name="foto_shoot"/>
+		<Location name="foto_practice"/>
+		<Location name="foto_events"/>
+		<Location name="foto_events2"/>
+		<Location name="foto_model_documentary"/>
+		<Location name="foto_albums"/>
+		<Location name="foto_models"/>
+		<Location name="foto_models2"/>
+	</Folder>
+	<Folder name="Crime and Punishment">
+		<Location name="police_station"/>
+		<Location name="sentence"/>
+		<Location name="shoplifting"/>
+	</Folder>
+	<Folder name="Mansion">
+		<Location name="city_mansion_residence_1"/>
+		<Location name="city_mansion_residence_2"/>
+		<Location name="city_mansion_residence_3"/>
+	</Folder>
+	<Folder name="Porn Studio">
+		<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="music">
+		<Location name="music_actions"/>
+		<Location name="music_bedroompractice"/>
+		<Location name="music_onlinemusic"/>
+ 		<Location name="music_gigstarts"/>
+   		<Location name="music_guitarlesson"/>   
+   		<Location name="music_buskingevents"/>
+		<Location name="music_delparco"/>
+	</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="City Center">
 		<Location name="city_center"/>
 		<Location name="city_train"/>
@@ -826,12 +773,11 @@
 		<Location name="moncheri"/>
 		<Location name="lusso"/>
 		<Location name="butoilet"/>
-		<Location name="cfnm"/>
-		<Location name="club"/>
+		<Location name="city_nightclub"/>
+		<Location name="city_nightclubToilet"/>
 		<Location name="Club2"/>
 		<Location name="vipclub"/>
 		<Location name="danceclass"/>
-		<Location name="uni_dorm"/>
 		<Location name="city_library"/>
 		<Location name="fit"/>
 		<Location name="talent_agency"/>
@@ -857,27 +803,35 @@
 		<Location name="shop_materinstvo"/>
 		<Location name="shop_photography"/>
 	</Folder>
-	<Folder name="Salon">
-		<Location name="salon"/>
-		<Location name="masseuse_work"/>
-		<Location name="masseuse_schedule"/>
-		<Location name="masseuse_break"/>
-	</Folder>
-	<Folder name="Photo studio">
-		<Location name="foto"/>
-		<Location name="foto_shoot"/>
-		<Location name="foto_practice"/>
-		<Location name="foto_events"/>
-		<Location name="foto_events2"/>
-		<Location name="foto_model_documentary"/>
-		<Location name="foto_albums"/>
-		<Location name="foto_models"/>
-		<Location name="foto_models2"/>
-	</Folder>
-	<Folder name="Crime and Punishment">
-		<Location name="police_station"/>
-		<Location name="sentence"/>
-		<Location name="shoplifting"/>
+	<Folder name="City Residential">
+		<Location name="city_residential"/>
+		<Location name="city_apt_building"/>
+		<Location name="city_pharmacy"/>
+		<Location name="city_smalloffice"/>
+		<Location name="city_dima"/>
+		<Location name="city_kafegivisex"/>
+		<Location name="city_irinaroom"/>
+		<Location name="city_kafe"/>
+		<Location name="city_kafe2"/>
+		<Location name="city_kafeend"/>
+		<Location name="city_kavkazkafe"/>
+		<Location name="city_jorahouse"/>
+		<Location name="city_lake"/>
+		<Location name="city_lake_path"/>
+		<Location name="city_drugden"/>
+		<Location name="city_bobka"/>
+		<Location name="city_park"/>
+		<Location name="park_walkeventsrnd"/>
+		<Location name="park_walkevents"/>
+		<Location name="city_clinic"/>
+		<Location name="city_market"/>
+		<Location name="city_marketwork"/>
+		<Location name="city_sauna"/>
+		<Location name="city_saunawhore"/>
+		<Location name="city_trashplace"/>
+		<Location name="city_trashplaceevents"/>
+		<Location name="city_marketsex"/>
+		<Location name="city_church"/>
 	</Folder>
 	<Folder name="City Industrial">
 		<Location name="city_industrial"/>
@@ -899,17 +853,6 @@
 		<Location name="pirsingsalon"/>
 		<Location name="obekt"/>
 		<Location name="obekt2"/>
-	</Folder>
-	<Folder name="Red Light">
-		<Location name="city_redlight"/>
-		<Location name="bordel"/>
-		<Location name="bordelv"/>
-		<Location name="sexshop"/>
-		<Location name="stripclub"/>
-		<Location name="stwork"/>
-		<Location name="stwork2"/>
-	</Folder>
-	<Folder name="Bar Rabotnik">
 		<Location name="qwBarPolet"/>
 		<Location name="qwBarPoletToilet"/>
 		<Location name="qwBarBilliard"/>
@@ -919,74 +862,31 @@
 		<Location name="MartinSex"/>
 		<Location name="MartinSex2"/>
 		<Location name="MartinSex3"/>
+		<Location name="casino"/>
+		<Location name="mqroom"/>
+		<Location name="hotel"/>
+		<Location name="deckShuffle"/>
 	</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="city_mansion_entrance"/>
-		<Location name="furi"/>
-		<Location name="furisex"/>
-	</Folder>
-	<Folder name="Mansion">
-		<Location name="city_mansion_residence_1"/>
-		<Location name="city_mansion_residence_2"/>
-		<Location name="city_mansion_residence_3"/>
-	</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="music">
-		<Location name="music_actions"/>
-		<Location name="music_bedroompractice"/>
-		<Location name="music_onlinemusic"/>
- 		<Location name="music_gigstarts"/>
-   		<Location name="music_guitarlesson"/>   
-   		<Location name="music_buskingevents"/>
-		<Location name="music_delparco"/>
-	</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 name="City Red Light">
+		<Location name="city_redlight"/>
+		<Location name="bordel"/>
+		<Location name="bordelv"/>
+		<Location name="sexshop"/>
+		<Location name="stripclub"/>
+		<Location name="cfnm"/>
+		<Location name="stwork"/>
+		<Location name="stwork2"/>
 	</Folder>
-	<Folder name="University">
+	<Folder name="City_Island">
 		<Location name="city_island"/>
 		<Location name="uni_shop"/>
 		<Location name="shop_dolls"/>
 		<Location name="shop_nerdvana"/>
-		<Location name="vecher"/>
-		<Location name="djibril"/>
-		<Location name="gosha"/>
-		<Location name="kendra"/>
-		<Location name="djibrilev1"/>
-		<Location name="Vika"/>
-		<Location name="vikaev1"/>
+		<Location name="shop_flamingos"/>
+	</Folder>
+	<Folder name="University">
 		<Location name="uni_grounds"/>
+		<Location name="uni_dorm"/>
 		<Location name="uni_admin"/>
 		<Location name="uni_programs"/>
 		<Location name="uni_lessons"/>
@@ -998,31 +898,138 @@
 		<Location name="uni_library"/>
 		<Location name="unicoursework"/>
 		<Location name="uniutil"/>
-		<Location name="shop_flamingos"/>
 	</Folder>
-	<Folder name="Game 1">
+	<Folder name="University Characters">
+		<Location name="vecher"/>
+		<Location name="djibril"/>
+		<Location name="gosha"/>
+		<Location name="kendra"/>
+		<Location name="djibrilev1"/>
+		<Location name="Vika"/>
+		<Location name="vikaev1"/>
+	</Folder>
+	<Folder name="Pavlovsk">
+		<Location name="pav_residential"/>
+		<Location name="pav_commercial"/>
+		<Location name="pav_commercial_offices"/>
+		<Location name="pav_industrial"/>
+		<Location name="leonid"/>
+		<Location name="gargazel"/>
+		<Location name="garfather"/>
+		<Location name="pav_factory"/>
+		<Location name="pav_pharmacy"/>
+		<Location name="gkafe"/>
+		<Location name="motherkafeboss"/>
+		<Location name="pav_clinic"/>
+		<Location name="therapist"/>
+		<Location name="therapist_reminder"/>
+		<Location name="pavlov_home"/>
+		<Location name="gevent"/>
+		<Location name="pav_park"/>
+		<Location name="gopskver"/>
+		<Location name="gskino"/>
+		<Location name="cafe_parco"/>
+		<Location name="kotovEv"/>
+		<Location name="IvanEv"/>
+		<Location name="strela"/>
+		<Location name="kotovSex"/>
+		<Location name="kotovdom"/>
+		<Location name="boymass"/>
+		<Location name="barbershop"/>
+		<Location name="MagEncounterFairy"/>
+		<Location name="pav_church"/>
+		<Location name="pav_church2"/>
+		<Location name="brothel"/>
+		<Location name="tour_guide"/>
+		<Location name="shop_coco_carmen"/>
+		<Location name="marisha_ev"/>
+	</Folder>
+	<Folder name="Pav Lake">
+		<Location name="pav_lake"/>
+		<Location name="pav_lake_nude"/>
+		<Location name="pav_lake_nude_events"/>
+		<Location name="pav_lake_nude_forest"/>
+		<Location name="LakeBoyZ"/>
+		<Location name="pav_beach_chat"/>
+	</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="gadprostitutes"/>
+		<Location name="bicycle"/>
+		<Location name="gadfield"/>
+		<Location name="gadgarden"/>
+		<Location name="gadmarket"/>
+		<Location name="gadroad"/>
+		<Location name="miroslavahome"/>
+		<Location name="gadforest"/>
+		<Location name="gadforest_event"/>
+		<Location name="gadforestlost"/>
+		<Location name="gad_church"/>
+		<Location name="swamp"/>
+		<Location name="swamp_yard"/>
+		<Location name="swamphouse"/>
+		<Location name="swampspring"/>
+		<Location name="backwater"/>
+	</Folder>
+	<Folder name="Gadyukino Characters">
+		<Location name="hunters"/>
+		<Location name="huntersex"/>
+		<Location name="hunterLoveSex"/>
+		<Location name="hunter_ambient"/>
+		<Location name="hunter_favors"/>
+		<Location name="hunter_interactions"/>
+		<Location name="swamp_woods"/>
+		<Location name="andreihunter"/>
+		<Location name="igorhunter"/>
+		<Location name="sergeihunter"/>
+		<Location name="mitka"/>
+		<Location name="mitkabuh"/>
+		<Location name="mitkabuh_group"/>
+		<Location name="mitkasex"/>
+		<Location name="miroslava"/>
+		<Location name="mirasex"/>
+		<Location name="mirafather"/>
+		<Location name="grigory"/>
+	</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="city_mansion_entrance"/>
+		<Location name="furi"/>
+		<Location name="furisex"/>
+	</Folder>
+	<Folder name="Computer Game">
 		<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"/>
@@ -1054,12 +1061,6 @@
 		<Location name="qwloc"/>
 		<Location name="qwmeet"/>
 	</Folder>
-	<Folder name="Casino">
-		<Location name="casino"/>
-		<Location name="mqroom"/>
-		<Location name="hotel"/>
-		<Location name="deckShuffle"/>
-	</Folder>
 	<Folder name="Game Menu">
 		<Location name="$menu_setting"/>
 		<Location name="$menu_skills"/>
@@ -1099,6 +1100,17 @@
 		<Location name="buklinik_event"/>
 		<Location name="tryndin"/>
 	</Folder>
+	<Folder name="Generic boyfriend">
+		<Location name="Gnpc"/>
+		<Location name="Gnpc_cinema"/>
+		<Location name="Gnpc2"/>
+		<Location name="hookup"/>
+		<Location name="hookup_sex"/>
+		<Location name="hookup_virgin"/>
+		<Location name="hookup_after"/>
+		<Location name="hookup_talk"/>
+		<Location name="hookup_morning"/>
+	</Folder>
 	<Folder name="Misc">
 		<Location name="beg"/>
 		<Location name="beg1"/>
@@ -1112,9 +1124,6 @@
 		<Location name="$single_stock_item"/>
 		<Location name="$buy_item"/>
 		<Location name="$buy_single_item"/>
-		<Location name="$face_image"/>
-		<Location name="$body_image"/>
-		<Location name="$pube_image"/>
 	</Folder>
 	<Folder name="New Year 2010">
 		<Location name="nyp_school"/>

locations/BDSM.qsrc

@@ -96,7 +96,7 @@ act 'Begin participating in the shooting':
 							act 'Time to finish...':
 								cla
 								*clr
-								facial += 1
+								
 								swallow += 1
 
 !!Image needed								if pcs_haircol = 0:'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/brunette_9.jpg"></center>'

locations/BDsex.qsrc

@@ -454,7 +454,7 @@ if $ARGS[0] = 'minet':
 end
 
 if $ARGS[0] = 'facial':
-	facial += 1
+	
 	minut += 3
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<rand(11, 15)>>.jpg"></center>'
 	if protect = 1:

locations/BurgerTip.qsrc

@@ -1004,7 +1004,7 @@ if $ARGS[0] = 'ily_work2':
 				*clr&cla
 				BurgerQW['IlyQWBlackmail'] = 2
 				gs 'cum_call', 'face', 'A76', 1
-				facial += 1
+				
 				guy += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/city/ilyushkin/sex/ilyfacial.jpg"></center>'

locations/Cheatmenu_din.qsrc

@@ -623,13 +623,8 @@ $cheatmenu['permanent'] = {
 }
 
 $cheatmenu['therapist_reset'] = {
-	hypnoHardToCum = 0
-	hypnoPanty = 0
-	bedPanty = 0
-	hypnoBra = 0
-	hypnoStage = 0
-	hypnoAddict = 0
-	therapistWantsSlave = 0
+	gs 'therapist'
+	dynamic $RestTherapyVariables
 	gs 'stat'
 	dynamic $cheatmenu['state']
 }

locations/Club2.qsrc

@@ -13,7 +13,7 @@ if $ARGS[0] = 'toilet1':
 	'The next thing you know, a cock is pushed through the hole. A lustful voice says, "here''s a treat for you, baby."'
 	'This is so unexpected, that you hardly believe any of this is real, as you tentatively touch their member. It is hard and hot.'
 
-	act 'Leave':gt 'club', 'inside'
+	act 'Leave':gt 'city_nightclub', 'inside'
 
 	act 'Take a closer look':
 		*clr & cla
@@ -53,7 +53,7 @@ if $ARGS[0] = 'toilet1':
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-				act 'Leave':gt 'club', 'inside'
+				act 'Leave':gt 'city_nightclub', 'inside'
 			end
 
 			act 'Spit out':
@@ -69,7 +69,7 @@ if $ARGS[0] = 'toilet1':
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-				act 'Leave':gt 'club', 'inside'
+				act 'Leave':gt 'city_nightclub', 'inside'
 			end
 		end
 	end
@@ -83,7 +83,7 @@ if $ARGS[0] = 'toilet':
 	gs 'arousal', 'clit_finger', 3 
 	gs 'stat'
 
-	act 'Leave':gs 'arousal', 'end' & gt 'club', 'inside'
+	act 'Leave':gs 'arousal', 'end' & gt 'city_nightclub', 'inside'
 
 	act 'Caress yourself':
 		cla
@@ -102,7 +102,7 @@ if $ARGS[0] = 'toilet':
 		gs 'arousal', 'end'
 		gs 'stat'
 	
-		act 'Leave':gt 'club', 'inside'
+		act 'Leave':gt 'city_nightclub', 'inside'
 	end
 end
 
@@ -111,7 +111,7 @@ if $ARGS[0] = 'toilet2':
 	'You sit in a booth and hear both adjacent doors closing as two others enter.'
 	'A voice from the next stall tells you - "Don''t be afraid baby, we won''t hurt you! On the contrary, we will give you some delicious candy with extra cream filling.'
 
-	act 'Leave':gt 'club', 'inside'
+	act 'Leave':gt 'city_nightclub', 'inside'
 
 	act 'Take a closer look':
 		*clr & cla
@@ -189,10 +189,10 @@ if $ARGS[0] = 'toilet2':
 								'A male voice says "I have some more work for you."'
 								'He pushes a card through the hole and says "Come find me at my studio if you want to have fun and make more money."'
 
-								act 'Leave':gt 'club', 'inside'
+								act 'Leave':gt 'city_nightclub', 'inside'
 							end
 						else
-							act 'Leave':gt 'club', 'inside'
+							act 'Leave':gt 'city_nightclub', 'inside'
 						end
 					end
 				end

locations/Cum_Manage.qsrc

@@ -519,6 +519,7 @@ if $ARGS[0] = 'cumgather':
 		elseif cloc = 10:
 			$part = 'arms'
 		elseif cloc = 11:
+			stat['cum_facial'] += 1
 			$part = 'face'
 		elseif cloc = 14:
 			$part = 'stomach'

locations/Gnpc2.qsrc

@@ -526,7 +526,7 @@ $din_gboy_go_to_disco = {
 										gs 'arousal', 'bj', 5
 										spafinloc = 11
 										gs 'cum_manage'
-										facial += 1
+										
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
 										'You remove his member from your mouth just as a stream of hot sperm hits your face, then another and another and finally he stopped dumping his thick cum on your face.'
@@ -642,7 +642,7 @@ $din_gboy_go_to_disco = {
 													gs 'arousal', 'bj', 5
 													spafinloc = 11
 													gs 'cum_manage'
-													facial += 1
+													
 													gs 'stat'
 													'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
 													'You remove his member from your mouth and then a stream of hot sperm hits your face, then another and another and finally your guy stops shooting his thick cum on your face.'
@@ -875,7 +875,7 @@ $din_gboy_tits = {
 						pcs_horny += 10
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
 						'You remove his member from your mouth just as a stream of hot sperm hits you in the face, then another and another until he eventually finished coating your face with his cum.'

locations/KatjaHomeTalk.qsrc

@@ -6,6 +6,13 @@
 !! katjaQW['QWstage'] = 2 You have been to Katja''s house and you can go there to hang out with her. (meynoldQW = 2) 
 !! katjaQW['QWstage'] = 3 You have kissed Katja and she might be interested in more. (katjaFirstKiss = 1 and KatjaOTN)
 !! npc_sex['A14'] = 1 You have had at least one sexual experince with Katja.
+!! katjaQW['QWstage'] = 4 Katja have asked you to helpe have sex with a boy.
+!! katjaQW['QWstage'] = 5 You have agreed to help Katja have sex with a boy.
+!! katjaQW['QWstage'] = 6 You have talked with Katja about her first experience with a boy.
+
+!! katjaQW['anal_quest'] =1 Katja has asked you to help her have anal sex with a boy.
+!! katjaQW['anal_quest'] =2 You have agreed to help Katja have anal sex with a boy.
+!! katjaQW['anal_quest'] =3 Katja has had anal sex with a boy and you discussed it afterwards.
 
 !! katjaQW['pantiesQWstage'] The stages of the side quest of getting Katja to go comando to school. 1 to 3 are just temprary counts,
 !!									4 means you have gotten Katja to take of her panties when you ask her, and 5 means that she wont wear panties to school anymore.
@@ -17,7 +24,7 @@
 !! katjaQW['horny'] a messure of Katja''s arousal. Grows until she have an orgasmn and will determine how willing she is at the moment to have sex.
 !! katjaQW['dom'] a number that tell if Katja is dominant or submissiv. 0 is neutal, a negative means she is submessive and a possitive that she is dominant. In general the absulut valu nee to be above 30 before you will see any effect. (katjaDom but not a 1 to 1 translation since that variable was all over the place.)
 
-!!	katjaQW['park_sex'] 	a messure of what experience Katja have had with random guys in the park. 0 means she have not have had sex whit anybody in the park, 
+!! katjaQW['park_sex'] 	a messure of what experience Katja have had with random guys in the park. 0 means she have not have had sex whit anybody in the park, 
 !!								1 means that she have had sex with one guy at a time (either alone, in a threesome with the player character or in while the the player have sex with another guy next to them)
 !!								2 means she have had a threesome whit 2 guys you met in the park, and 3 means she has paticipated in an orgy with guys from the park. (katjaSex)
 
@@ -33,11 +40,18 @@
 
 !! katjaQW['ivan_pussy'] = 1 Katja have take Ivan''s cock in her pussy.
 !! katjaQW['ivan_anal'] = 1 Katja have take Ivan''s cock in her ass.
+!! katjaQW['marcus_pussy'] = 1 Katja have take Marcus''s cock in her pussy.
+!! katjaQW['marcus_anal'] = 1 Katja have take Marcus''s cock in her ass.
+
+!! katjaQW['Marcus_day'] is set to daystart if you ar Katja ask to have a threesome with Marcus. Such that the cuestion will only be asked once per day.
+
+!! katjaQW['birth_control_start_day'] This is said to the daystart value from the day Katja''s birth control will be efective effect, if the player tells her to use it. Should be used to Check if katja can become pregnant by a if katjaQW['birth_control_start_day'] ! 0 and katjaQW['birth_control_start_day'] < daystart to make sure is protected.
 
 !! KatjaQW['orgasm_day'] Is set to be equal to daystart when Katja gain an orgasm (It is not set all palces). (KatjaOrgasm)
+!! katjaQW['take_of_panties_day'] is set to ddaystart if you get >katja to take of her panties during school break.
 !! katjaQW['afterschool_hangout_day'] Is set to be equal daystart when you choose to hang out with Katja after school. (katjaMeynoldday)
-!! katjaQW['no_panties_day'] Is set to daystart if you show Katja that you are not wearing panties. (tangaday)
-
+!! katjaQW['no_panties_day'] Is set to daystart if you show Katja that you are not wearing panties.
+!! katjaQW['no_panties_day_disco'] Is set to daystart if you show Katja that you are not wearing panties at the pav disco. (tangaday)
 
 !! katjaQW['knows_masterbation'] = 1 You have told Katja how you masturbate (KatjaKnowMastr =1)
 !! katjaQW['knows_self_fisting'] = 1 You have told Katja how you stuck you fist into your anus (SelfFistingKnow =1)
@@ -61,7 +75,7 @@ if $ARGS[0] = 'cikl':
 		if katjaQW['horny'] < 0:katjaQW['horny'] = 0
 		if katjaQW['horny'] >= 100:
 			if rand(0,2) = 0 and week < 6:
-				katjaQW['horny'] =	max(katjaQW['slut']/2,50)
+				katjaQW['horny'] = max(katjaQW['slut']/2,50)
 				if katjaQW['masturbates'] = 0: katjaQW['masturbates'] = 1
 			else
 				katjaQW['horny'] = 100
@@ -85,12 +99,37 @@ if $ARGS[0] = '':
 	$location_type = 'indoors'
 	CLOSE ALL
 	menu_off = 1
+	gs 'vicky_meynold_schedule'
+	gs 'katja_meynold_schedule'
 	gs 'stat'
 	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 
-	if pcs_sweat >= 20:
-		'Katja wrinkles her nose. "<<$pcs_nickname>>, you''re all sweaty. Do you want to use my shower?"'
+	if katjaQW['QWstage'] > 2:
+		if katjaQW['horny'] < 20:
+			'Katja looks calm and stoic.'
+		elseif katjaQW['horny'] < 40:
+			'Katja looks at you with a naughty twinkle in her eyes.'
+		elseif katjaQW['horny'] < 60:
+			'Katja looks at you, a faint blush on her cheeks as she smiles at you mischievously.'
+		elseif katjaQW['horny'] < 80:
+			'Katja is blushing fairly obviously and looks at you longingly.'
+		else
+			'Katja''s face is flushed bright red and her chest is heaving from her heavy breathing. She''s idly rubbing her thighs against one another.'
+		end
+	else
+		'Katja looks at you with a smile.'
+	end
+
+
+	if locat['katja'] = 10:
+		'"The others are meeting at the beach right now. Come on lets go meet them" she says.'
+		act 'Go to the beach with Katja': minut += 15 & gt 'pav_lake', 'school_mates'
+	elseif locat['katja'] = 8:
+		'"Let''s go to the disco!" Katja suggests with a smile.'
+		if money >= 25:act 'Go to the disco':money -= 25 & minut += 10 & gt 'pav_disco'
+	elseif pcs_sweat >= 20:
+		'Katja wrinkles her nose. "<<$pcs_nickname>>, you''re all sweaty! Do you want to use my shower?"'
 
 		act 'Have a shower':
 			cla & *clr
@@ -100,7 +139,7 @@ if $ARGS[0] = '':
 			if katjaQW['horny'] >= 50 and katjaQW['QWstage'] > 2:
 				'Katja takes you into the bathroom. Blushing, she says, "I think I''ll join you."'
 
-				act 'Have the shower alone':
+				act 'Have a shower alone':
 					cla & *clr
 					noShampoo = 1
 					dynamic $showerdin
@@ -114,7 +153,7 @@ if $ARGS[0] = '':
 					gs 'stat'
 					'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
 					'You kick Katja out of the bathroom and close the door. You get into the shower and begin to lather your body with a cloth.'
-					'After washing off the soap you wash your hair with shampoo. Once you rinse the shampoo off, you are completely clean.'
+					'After washing off the soap, you wash your hair with shampoo. Once you rinse the shampoo off, you are completely clean.'
 					if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
 					act 'Get out of the shower':gt 'KatjaHomeTalk'
@@ -139,16 +178,16 @@ if $ARGS[0] = '':
 						'You and Katja undress and climb into the shower together.'
 
 						if pcs_pubes <= 3:
-							'Katja''s eyes slide over your body, lingering a little on your breasts and pussy. She moves closer to you as you rinse yourself off.'
+							'Katja''s eyes glance over your body, lingering a little on your breasts and pussy. She moves closer to you as you rinse yourself off.'
 
 							act 'Continue':
 								cla & *clr
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/shower2.jpg"></center>'
-								'Katja gently rubs shampoo into your hair then rinses it out with warm shower jets.'
+								'Katja gently rubs shampoo into your hair before rinsing it out.'
 
 								if katjaQW['horny'] >= 80 and npc_sex['A14'] > 0:
-									'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes glistening.'
+									'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes are glistening.'
 
 									act 'Continue': gt 'KatjaHomeTalk', 'shower_kiss_home'
 								else
@@ -159,7 +198,7 @@ if $ARGS[0] = '':
 								if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 							end
 						elseif pcs_pubes > 3:
-							'Katja eyes slide over your body lingering a little on your breasts and pubic hair. Katja smiles, "<<$pcs_nickname>>, you''ve got too much hair, it''s not fashionable. I''ll shave it off."'
+							'Katja eyes glance over your body, lingering a little on your breasts and pubic hair. She then smiles at you. "<<$pcs_nickname>>, you''ve got too much hair down there! It''s not fashionable! I''ll shave it off."'
 
 							act 'Get shaved':
 								cla & *clr
@@ -168,10 +207,10 @@ if $ARGS[0] = '':
 								katjaQW['horny'] += 10
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/lobok.jpg"></center>'
-								'Katja sat in the bath and you lathers your crotch (and most of your stomach and chest) with shaving gel. She takes a razor and begins to gently shave the hair between your legs.'
+								'Katja sits in the bath as you lather yourself up with shaving gel. She takes a razor and begins to gently shave the hair between your legs.'
 
 								if katjaQW['horny'] >= 80 and npc_sex['A14'] > 0:
-									'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes glistening.'
+									'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes are glistening.'
 
 									act 'Continue': gt 'KatjaHomeTalk', 'shower_kiss_home'
 								else
@@ -197,7 +236,7 @@ if $ARGS[0] = '':
 				gs 'stat'
 				'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
 				'Katja shows you where the toiletries are and leaves you to have a shower. You get into the shower and begin to lather your body with a cloth.'
-				'After washing off the soap you wash your hair with shampoo. Once you rinse off the shampoo you are completely clean.'
+				'After washing off the soap, you wash your hair with shampoo. Once you rinse off the shampoo, you are completely clean.'
 				if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
 				act 'Get out of the shower':gt 'KatjaHomeTalk'
@@ -237,35 +276,35 @@ if $ARGS[0] = '':
 						flag_KissEV = 0
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
 						'"We likely kissed about the same number of boys," you answer with a smile.'
-						'Katja breathes a sigh of relief. "I shouldn''t have asked anyways." she said, kissing you in gratitude.'
+						'She breathes a sigh of relief. "I shouldn''t have asked anyways," she replies and kisses you in gratitude.'
 						act 'Change the subject':gt 'KatjaHomeTalk'
 					end
-					act 'Claim to have won.':
+					act 'Claim victory':
 						cla
 						flag_KissEV = 3
-						'"I totally won," you say with a playful smile.'
-						'"I only slowed down because you were so far behind," she says, sticking her tongue out at you.'
+						'"I totally won!" you say with a playful smile.'
+						'"I only slowed down because you were so far behind!" she says and sticks her tongue out at you.'
 						'"Suuure. I think they just liked kissing me more than you."'
 						'"Oh, yeah? Let''s go see then. We''ll go to the park and see who can kiss more boys," she says with a hint of anger in her voice.'
 						act 'Go to the park': gt 'katja_sex','park'
 					end
 				elseif katjaPreg = 0 or knowKatjaPreg = 1:
 					if rand(0,100) > katjaQW['horny'] + min(katjaQW['slut']/2,50):
-						'Katja talks about school lessons, cosmetics, the latest fashion trends and other very important things.'
+						'Katja talks about school lessons, cosmetics, the latest fashion trends and other things she considers very important.'
 					else
 						gs 'KatjaHomeTalk', 'Sextalk'
 						exit
 					end
 				else
-					'Katja bites her lip and, without looking you in the eye, finally plucks up the courage and says, "<<$pcs_nickname>>, I am pregnant."'
+					'Katja bites her lip and, without looking you in the eye, finally plucks up the courage "<<$pcs_nickname>>, I''m pregnant..."'
 
 					act 'Who''s the father?':
 						cla
 						minut += 5
 						knowKatjaPreg = 1
 						gs 'stat'
-						'"Who?" you ask, dumbfounded.'
-						'Katja wrinkles her nose, "Santa Claus? Alright, it was Voinov. I hooked up with him at the Christmas party and boom! Jesus, what do I do now?!"'
+						'"Wait, what? Who?" you ask, dumbfounded.'
+						'Katja wrinkles her nose. "Svyatoslav.... I hooked up with him at the Christmas party and...well... Jesus, what do I do now?!"'
 
 						act 'Be sympathetic':
 							cla
@@ -279,26 +318,34 @@ if $ARGS[0] = '':
 			end
 
 			if katjaQW['boy_lie'] = 1:
-				act 'Ask Katja who the boy she likes is':
+				act 'Ask Katja who she likes':
 					cla & *clr
 					katjaQW['horny'] += 1
 					minut += 15
 					gs 'stat'
 					'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-					'You ask Katja who the Boy she mentions being interested earlier is.' 
+					'"So who''s the boy you mentioned being interested in earlier?" you ask curiously.' 
 					if katjaQW['slut'] >= 60 and npc_sex['A14'] > 0 and katjaQW['horny'] > 40:
-						'"Nobody you dummy. It was just an excuse so that you would kiss me" she answers laughing at you.'
+						'"Nobody, you dummy! It was just an excuse so you would kiss me!" she answers with a laugh.'
 						katjaQW['boy_lie'] = 2
-						act 'continue': gt 'KatjaHomeTalk', 'hornykiss'
+						act 'Continue': gt 'KatjaHomeTalk', 'hornykiss'
 					else
-						'"That is my secret, and I am not going to tell you" she says with a wink in her eye.'
+						'"That''s my secret, and I''m not going to tell you!" she says with a wink.'
 						act 'Continue':gt 'KatjaHomeTalk'
 					end
 				end
 			end
 
-			if npc_sex['A14'] > 0 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60:
+			if katjaQW['QWstage'] = 4 and katjaQW['marcus_pussy'] = 0: act 'Tell her you''ll find a boy for her to have sex with': gt 'KatjaHomeTalk', 'boy_discussion'
+
+			if katjaQW['anal_quest'] = 1: act 'Tell her you''ll find a boy for her to try anal with': gt 'KatjaHomeTalk', 'anal_discussion'
+
+			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80:
+				act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
+			end
+
+			if katjaQW['QWstage'] >= 7 and katjaQW['birth_control_start_day'] < daystart and katjaQW['horny'] > 60:
 				act 'Look for boys in the park':
 					minut += 15
 					katjaQW['horny'] += 5
@@ -316,11 +363,43 @@ if $ARGS[0] = '':
 				end
 			end
 			
+			!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home.
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 2 and week < 6 and (locat['Vicky'] = 10 or locat['Vicky'] = 11) and (katjaQW['horny']+katjaQW['slut']) > 100:
+				act 'Suggest that you call Marcus':
+					*clr & cla
+					katjaQW['Marcus_day'] = daystart
+					mintu += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+					'Katja is looking aroused, so you suggest calling Marcus so that Katja can finally see what it''s like to have sex with a boy.'
+					'"Okay. Let''s call him. We should have time before Vicky comes home," she says, looking both aroused and nervous at the same time.'
+					act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+				end
+			end
+
+			!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home.
+			if katjaQW['QWstage'] >= 6 and week < 6 and (locat['Vicky'] = 10 or locat['Vicky'] = 11) and katjaQW['horny'] > 80 and katjaQW['Marcus_day'] ! daystart:
+				act 'Suggest that you call Marcus':
+					*clr & cla
+					katjaQW['Marcus_day'] = daystart
+					mintu += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+					'Katja is looking very aroused, so you suggest calling Marcus to see if he wants to have some fun with you.'
+					'"Okay. Let''s call him. We should have time before Vicky comes home," she says while looking very excited.'
+					act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+				end
+			end
+
+			if katjaQW['birth_control_start_day'] = 0 and katjaQW['QWstage'] >= 6:
+				act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+			end
+
 			act '"Let''s hang out"': 
 				cla
 				gs 'stat'
 				if katjaQW['QWstage'] > 1 and pcs_makeup <= 1:
-					'"Hey! Wait a moment <<$pcs_nickname>>! I bet you would look great with a little make-up on you! What do you say?"'
+					'"Hey! Wait a minute <<$pcs_nickname>>! I bet you would look great with a little make-up on you! What do you say?"'
 					act 'Let her put makeup on you':
 						*clr & cla
 						pcs_hairbsh = 1
@@ -328,7 +407,7 @@ if $ARGS[0] = '':
 						gs 'stat'
 						'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-						'Katja happily grins as she quickly straightens your hair: "What do you want? A light touch-up, some normal make-up or shall I just shovel it on?"'
+						'Katja happily grins as she quickly straightens your hair. "What do you want? A light touch-up, some normal make-up or shall I just shovel it on?"'
 
 						act 'Light touch-up':
 							cla
@@ -358,28 +437,33 @@ if $ARGS[0] = '':
 						end
 					end
 					
-					act 'You really don''t need it.':gt 'katjaEv','kathan'
+					act 'You really don''t need it':gt 'katjaEv','kathan'
 				else
 					gt 'katjaEv','kathan'
 				end 
 			end
-			
-			if katjaQW['horny'] > rand(40,100):
-				if katjaQW['QWstage'] > 2:
+
+			if katjaQW['QWstage'] = 6 and katjaQW['anal_ques'] >= 3 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60: gt 'KatjaHomeSex', 'random_park_sex_talk'
+
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_pussy'] > 0: gt 'KatjaHomeTalk', 'first_boy_sex_follow_up'
+
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 1: gt 'KatjaHomeTalk', 'Marcus_answer_talk'
+
+			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 40 and (katjaQW['knows_BJ'] + katjaQW['knows_sex']) >= 2 and npc_sex['A14'] > 0 and katjaQW['QWstage'] < 4: gt 'KatjaHomeTalk', 'sex_with_boy_ask'
+
+			if katjaQW['slut'] >= 60 and katjaQW['horny'] >= 40 and (katjaQW['knows_BJ'] + katjaQW['knows_anal']) >= 2 and npc_sex['A14'] > 0 and katjaQW['anal_quest'] = 0: gt 'KatjaHomeTalk', 'anal_sex_with_boy_ask'
+
+			if katjaQW['horny'] > rand(40,120):
+				!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home.
+				if katjaQW['QWstage'] >= 6 and week < 6 and (locat['Vicky'] = 10 or locat['Vicky'] = 11) and rand(0,6) =0 and katjaQW['Marcus_day'] ! daystart:
+					katjaQW['Marcus_day'] = daystart
+					gt 'katjaHomeTalk', 'marcus_kiss' 
+				elseif katjaQW['QWstage'] > 2:
 					gt 'KatjaHomeTalk', 'hornykiss'
 				else
 					gt 'KatjaHomeTalk', 'tender_kiss'
 				end
 			end
-
-			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80:
-				act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
-			end
-
-		elseif hour >= 20 and week >= 5 and week < 7:
-			'"Let''s go to the disco," Katja says.'
-
-			if money >= 25:act 'Go to the disco':money -= 25 & minut += 10 & gt 'pav_disco'
 		end
 	end
 
@@ -403,7 +487,6 @@ if $ARGS[0] = '':
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 				'"What?! That''s so exiting! You didn''t get pregnant just to be like me, did you?" she asks playfully.'
-				*nl
 				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
 			end
 		elseif KatjaPreg = 0 and func('body_din','pregnancyVisibility') = 1:
@@ -425,7 +508,6 @@ if $ARGS[0] = '':
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 				'"What? That''s so exiting!'
-				*nl
 				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
 			end
 		end
@@ -450,8 +532,7 @@ if $ARGS[0] = '':
 				gs 'stat'
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'Katja''s face lights up. "Congratulations! This is even more exciting than last time! Every time you tell me you’re pregnant, I feel even better about my own teen pregnancy. Hell, that''s probably the reason you keep getting pregnant, isn''t it?" She giggles while looking at you affectionately.'
-				*nl
+				'Katja''s face lights up. "Congratulations! This is even more exciting than last time! Every time you tell me you’re pregnant, I feel even better about my own pregnancy. Hell, that''s probably the reason you keep getting pregnant, isn''t it?" She giggles while looking at you affectionately.'
 				act 'Next':gt 'KatjaHomeTalk', 'katjaknows1'
 			end
 		end
@@ -462,11 +543,10 @@ if $ARGS[0] = '':
 			cla & *clr
 			gs 'stat'
 			KatjaConflict = 2
-			'"I''m really sorry I didn''t tell you I was pregnant sooner. I was just so embarrassed."'
+			'"I''m really sorry I didn''t tell you sooner. I was just so embarrassed."'
 			'Katja sighs. "I understand. I just want you to know you can trust me and it hurts to realize that you don''t."'
-			'"I do trust you. I promise I won''t keep anything else like this from you in the future."'
+			'"I do trust you. I promise I won''t keep anything like this from you in the future."'
 			'"Good. Now let''s get down to business."'
-			*nl
 			act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
 		end
 	end
@@ -476,11 +556,10 @@ if $ARGS[0] = '':
 			cla & *clr
 			gs 'stat'
 			KatjaConflict = 2
-			'"I''m really sorry I didn''t tell you I was pregnant sooner. I was just so embarrassed it happened again."'
+			'"I''m really sorry I didn''t tell you sooner. I was just so embarrassed it happened again."'
 			'Katja sighs. "I understand. I just want you to know you can trust me and it hurts to realize that you don''t."'
 			'"I do trust you. I promise I won''t keep anything else like this from you in the future."'
 			'"Good. Now let''s get down to business."'
-			*nl
 			act 'Next':gt 'KatjaHomeTalk', 'katjaknows1'
 		end
 	end
@@ -501,8 +580,8 @@ if $ARGS[0] = 'katjaknows':
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
 		'You tell Katja that you''re having Kolka''s baby.'
-		'"You were knocked up by your brother!? That''s so crazy. Is he at least good in bed?"'
-		'"I wouldn''t be pregnant if he wasn''t," you laugh. "I only let the best cock inside of me."'
+		'"You were knocked up by your brother!? That''s so crazy! Is he at least good in bed?"'
+		'"I wouldn''t be pregnant if he wasn''t," you laugh. "I only let the best cock inside me."'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
 		act 'Continue':gt 'KatjaHomeTalk'
@@ -511,7 +590,7 @@ if $ARGS[0] = 'katjaknows':
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
 		'You tell Katja that you''re having your step-father''s baby.'
-		'"You were knocked up by your Step-dad!? That''s so crazy"'
+		'"You were knocked up by your step-dad!? That''s so crazy!"'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
 		act 'Continue':gt 'KatjaHomeTalk'
@@ -520,7 +599,7 @@ if $ARGS[0] = 'katjaknows':
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
 		'You tell Katja that you''re having your biological father''s baby.'
-		'"You were knocked up by your own father!? That''s so crazy"'
+		'"You were knocked up by your own father!? That''s so crazy!"'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
 		act 'Continue':gt 'KatjaHomeTalk'
@@ -528,19 +607,19 @@ if $ARGS[0] = 'katjaknows':
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
-		'You tell her that you don''t actually know whose baby is growing inside of you.'
+		'You tell her that you don''t actually know whose baby is growing inside you.'
 		'"No way! Really?" She is completely flabbergasted.'
 		'"Yeah, I sometimes feel like my life is spinning out of control."'
-		'Katja places a hand on your choulder "<<$pcs_nickname>>, if I can do anything to make your life a little easier, please let me know."'
-		'You blush and thank her, before placing a quick kiss on her cheek.'
+		'Katja places a hand on your shoulder "<<$pcs_nickname>>, if I can do anything to make your life a little easier, please let me know."'
+		'You blush and thank her before planting a quick kiss on her cheek.'
 
 		act 'Continue':gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
 		minut += 10
-		'"Who''d you let pump their cum into that wonderful body of yours?" Katja asks while biting her bottom lip.'
+		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
 		'You tell Katja that you''re having Kolka''s baby.'
-		'"You were knocked up by your brother!? That''s so sexy," moans Katja before going in for a passionate kiss.'
+		'"You were knocked up by your brother!? That''s so sexy!" she moans before going in for a passionate kiss.'
 		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions revolve around riding your brother''s dick."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
@@ -548,10 +627,10 @@ if $ARGS[0] = 'katjaknows':
 		act 'Continue':gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Stepfather' and npc_rel['A28'] > 50:
 		minut += 10
-		'"Who''d you let pump their cum into that wonderful body of yours?" Katja asks while biting her bottom lip.'
+		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
 		'You tell Katja that you''re having your step-father''s baby.'
-		'"You were knocked up by your Step-dad!? That''s so sexy," moans Katja before going in for a passionate kiss.'
+		'"You were knocked up by your step-dad!? That''s so sexy!" she moans before going in for a passionate kiss.'
 		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
@@ -559,10 +638,10 @@ if $ARGS[0] = 'katjaknows':
 		act 'Continue':gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Biological Father' and npc_rel['A29'] > 50:
 		minut += 10
-		'"Who''d you let pump their cum into that wonderful body of yours?" Katja asks while biting her bottom lip.'
+		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
 		'You tell Katja that you''re having your biological father''s baby.'
-		'"You were knocked up by your own father!? That''s so sexy," moans Katja before going in for a passionate kiss.'
+		'"You were knocked up by your own father!? That''s so sexy!" she moans before going in for a passionate kiss.'
 		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
@@ -570,10 +649,10 @@ if $ARGS[0] = 'katjaknows':
 		act 'Continue':gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
 		minut += 10
-		'"Who''d you let pump their cum into that wonderful body of yours?" Katja asks while biting her bottom lip.'
+		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
 		'You tell her that you don''t actually know whose baby is growing inside of you.'
-		'"You''re such a sexy slut," moans Katja before going in for a passionate kiss.'
+		'"You''re such a sexy slut!" she moans before going in for a passionate kiss.'
 		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I''m really glad you''re not judging me like a lot of other people have."'
 		'"<<$pcs_nickname>>, I would never judge you. Plus, if I''m being honest, I''m a little jealous. I wish I could let myself have that much fun."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
@@ -584,7 +663,7 @@ if $ARGS[0] = 'katjaknows':
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
 		'"It looks like I got knocked up by <<$wombthfath>>"'
-		'"I hope they know how lucky they are," Katja says, clearly blushing.'
+		'"I hope they know how lucky they are," she says while clearly blushing.'
 
 		act 'Continue':gt 'KatjaHomeTalk'
 	end
@@ -609,7 +688,7 @@ if $ARGS[0] = 'katjaknows1':
 		'You tell Katja that <<$wombthfath>> got you pregnant again.'
 		'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
 		'"God, you''re the hottest bitch I know. I didn''t think I could be any more in love with you." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-		'After a few minutes, she breaks the kiss, but keeps her lips millimeters from yours. "Don''t let this distract from my wanting you to become his breeding bitch. I want him to keep you pregnant. I need something to masturbate about when you’re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
+		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t let this distract from my wanting you to become his breeding bitch. I want him to keep you pregnant. I need something to masturbate about when you’re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
 
 		act 'Continue':minut += 10 & gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] < 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
@@ -621,8 +700,8 @@ if $ARGS[0] = 'katjaknows1':
 	elseif katjaQW['slut'] >= 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
 		'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
 		'Her eyes widen. "Wow, your family must be really close," she giggles.'
-		'"Shit, ‘which of your family members did you like being knocked up by the most?’ might be the hottest question anyone has ever made me think of. Just when I started thinking I couldn''t love you any more." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-		'After a few minutes, she breaks the kiss, but keeps her lips millimeters from yours. "Don''t think I''ll forget the image of you being passed around your family like a good little slut. I need something to masturbate about when you''re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
+		'"Shit, ''which of your family members did you like being knocked up by the most?'' might be the hottest question anyone has ever made me think of. Just when I started thinking I couldn''t love you any more." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t think I''ll forget the image of you being passed around your family like a good little slut. I need something to masturbate about when you''re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
 
 		act 'Continue':minut += 10 & gt 'KatjaHomeTalk'
 	elseif arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and ($wombthfath ! 'Kolka' and $wombthfath ! 'Stepfather' and $wombthfath ! 'Biological Father'):
@@ -634,11 +713,11 @@ if $ARGS[0] = 'katjaknows1':
 
 		act 'Continue':minut += 10 & gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] < 60 and $wombthfath = '':
-		'"Seems like you had a little too much fun then," She chuckles.'
+		'"Seems like you had a little too much fun then," she chuckles.'
 
 		act 'Continue':minut += 10 & gt 'KatjaHomeTalk'
 	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
-		'"Seems like you had a little too much fun then," She chuckles.'
+		'"Seems like you had a little too much fun then," she chuckles.'
 		'"I hope you''ll include me next time."'
 
 		act 'Continue':minut += 10 & gt 'KatjaHomeTalk'
@@ -651,7 +730,7 @@ if $ARGS[0] = 'shower_kiss_home':
 	katjaQW['horny'] += 10
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/showerkiss.jpg"></center>'
-	'Katja gently hugs you with one hand and kisses you on the lips. You feel her soft palm on your naked pussy as her thin finger finds your clitoris and begins to rub it.'
+	'Katja gently hugs you with one hand and kisses you on the lips. You feel her soft palm on your naked pussy as her finger finds your clitoris and begins to rub it.'
 
 	gs 'arousal', 'kiss', 10, 'dom', 'lesbian'
 	gs 'arousal', 'vaginal_finger', 10, 'dom', 'lesbian'
@@ -659,7 +738,7 @@ if $ARGS[0] = 'shower_kiss_home':
 	gs 'stat'
 
 	if katjaQW['slut'] >= 50:
-		'Katja, gently but firmly puts you on the edge of the tub.'
+		'Katja gently but firmly puts you on the edge of the tub.'
 	else
 		'Katja gently caresses your clitoris with her fingers and her lips begin to kiss your neck, slowly making her way down.'
 	end
@@ -672,9 +751,9 @@ if $ARGS[0] = 'shower_kiss_home':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/showersex.jpg"></center>'
 		'You sat on the edge of the tub and open your legs to expose your wet pussy. Katja gets on her knees in front of you and gently licks your swollen red petals.'
-		'Her tongue begins to briskly caress your pussy, not forgetting about the clitoris. Soon bliss envelopes your entire body.'
+		'Her tongue begins to briskly caress your pussy, not forgetting about your clitoris. Bliss soon envelopes your entire body.'
 		'You notice Katja''s hand between her legs and get further turned on watching her pleasure herself while she pleasures you.'
-		$orgasm_txt = 'Suddenly you are hit by a powerful orgasm, you feel like you might lose consciousness, your whole body bends and convulses and a hot wave washes over you.'
+		$orgasm_txt = 'You are suddenly hit by a powerful orgasm and feel like you might lose consciousness as your whole body bends and convulses and a hot wave washes over you.'
 		$orgasm_or = 'yes'
 		gs 'arousal', 'cuni', 10, 'dom', 'lesbian'
 		gs 'stat'
@@ -696,7 +775,7 @@ if $ARGS[0] = 'shower_kiss_home':
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-			'You remove her hands and smile at her. Then you dismiss Katja, who shyly looks to the floor and leaves the bathroom.'
+			'You remove her hands and smile at her. You dismiss her and she shyly looks at the floor before leaving the bathroom.'
 
 			act 'Get out of the shower':
 				gs 'arousal', 'end'
@@ -714,7 +793,7 @@ if $ARGS[0] = 'Sextalk':
 
 	if kattalkrand = 0:
 		if katjaQW['knows_BJ'] > 0:
-			'"<<$pcs_nickname>>, tell me, how are you at sucking dick."'
+			'"<<$pcs_nickname>>, tell me, how are you at sucking dick?"'
 		else
 			'"<<$pcs_nickname>>, have you ever given a guy a blowjob?"'
 		end
@@ -726,24 +805,24 @@ if $ARGS[0] = 'Sextalk':
 				katjaQW['knows_BJ'] = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja how you sucked dick and what it feels like. Katja blushes and bites her lip.'
+				'You tell Katja how you''ve sucked dick and what it feels like. She blushes and bites her lip.'
 
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		else
-			act 'Tell Katja that you have never given a blowjob':
+			act 'You''ve never given a blowjob':
 				cls
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja that you have never given a blowjob to a guy. She admit that neither has she and says "Vicky talks about how good it is all the tiem, but I don''t know guy usually smell bad, I''m not sure it doesn''t tastes awfull".'
+				'You tell Katja that you have never given a blowjob to a guy. She admits that she hasn''t either. "Vicky talks about how good it is all the time, but I don''t know. Guys usually smell bad and I''m sure it would taste awful."'
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		end
 	elseif kattalkrand = 1:
 		if katjaQW['knows_sex'] > 0:
-			'"<<$pcs_nickname>>, tell me how you have fucked."'
+			'"<<$pcs_nickname>>, tell me. Have you ever fucked someone?"'
 		else
-			'"<<$pcs_nickname>>, have you had sex with a guy?"'
+			'"<<$pcs_nickname>>, have you ever had sex with a guy?"'
 		end
 
 		if stat['vaginal'] > 0:
@@ -753,23 +832,23 @@ if $ARGS[0] = 'Sextalk':
 				katjaQW['knows_sex'] = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja about the times you have had sex and how it felt. Katja blushes and bites her lip.'
+				'You tell Katja about the times you''ve had sex and how it felt. She blushes and bites her lip.'
 
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		else
-			act 'Tell Katja that you have never had sex guy':
+			act 'You''re a virgin':
 				cls
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja that you have never had sex with a guy. She admit that neither has she and says "That probably make us to only non nerds who haven''t. Vicky does it all the time with Vanya. She wont shut up about it".'
+				'You tell Katja that you''re still a virgin and have never had sex with a guy. She admits that she''s also still a virgin. "That probably makes us the only non nerds who haven''t had sex! Vicky does it all the time with Vanya. She won''t shut up about it!"'
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		end
 
 	elseif kattalkrand = 2:
 		if katjaQW['knows_anal'] > 0:
-			'"<<$pcs_nickname>>, what is anal sex like?"'
+			'"<<$pcs_nickname>>, what''s anal sex like?"'
 		else
 			'"<<$pcs_nickname>>, have you ever had a guy stick it in your ass?"'
 		end
@@ -781,16 +860,16 @@ if $ARGS[0] = 'Sextalk':
 				katjaQW['knows_anal'] = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You told Katja about the times you have had anal sex and what it feels like. Katja blushes and bites her lip.'
+				'You tell Katja about the times you''ve had anal sex and what it feels like. She blushes and bites her lip.'
 
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		else
-			act 'Tell Katja that you have never had anal sex':
+			act 'You''ve never had anal sex':
 				cls
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja that you have never had anal sex. She says that she hears that a lot of girls in your class does.'
+				'You tell Katja that you''ve never had anal sex. She says that she heard that a lot of girls in your class do, some more than others.'
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		end
@@ -808,7 +887,7 @@ if $ARGS[0] = 'Sextalk':
 				katjaQW['knows_cuni'] = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja about the times you have had gone down on another girl and how it feels. Katja blushes and bites her lip.'
+				'You tell Katja about the times you''ve gone down on another girl and how it feels. She blushes and bites her lip.'
 				
 				if katjaQW['horny'] > 50 and katjaQW['slut'] >= 40 and rand(-30,30) < katjaQW['dom']:
 					'Katja asks you to show her how you lick pussy.'
@@ -823,11 +902,11 @@ if $ARGS[0] = 'Sextalk':
 						if npc_sex['A14'] = 0: npc_sex['A14'] = 1 & girl += 1
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
-						'At first you are a bit confused and then you notice she is pulling her panties off. Once she has them off she opens her legs wide. "Go on, <<$pcs_nickname>>, show me how you do it, please."'
-						'You pause a moment, more in surprise then anything, but her glistening wet pussy is enough to convince you. You lean forward and place your face between her legs and start licking.'
-						'You suck on her clit and slip your tongue inside of her, working her pussy for all you are worth. She begins to moan loudly and buck her hips, grinding your face into her crotch. As she gets close to orgasm she grabs your hair and holds your face against her pussy, rubbing herself against you as much as you are licking her, leaving your face coated in the juices from her pussy.'
-						'Her orgasm hits her hard, leaving her unable to talk as her body spasms. Once Katja''s orgasm passes pass you lick her clean of all her pussy juices, making sure not to miss a single spot. When you raise up to look at Katja she has a smile but also a new look, you are not quite sure what it is, confidence maybe? "Well aren''t you just a good little girl." Then she kisses you deeply, breaking the kiss you start to lean back and spread your legs but she is already shaking her head no.'
-						'"Sorry <<$pcs_nickname>> maybe next time, we need to finish our homework." She says sweetly, you pause a moment and then nod in understand and you see that new look intensify on her face as she smiles, while the two of you finish your homework.'
+						'You''re a little confused at first before you notice her pulling her panties off. Once she has them off, she opens her legs wide. "Go on, <<$pcs_nickname>>. Show me how you do it, please."'
+						'You pause, more in surprise than anything, but her glistening wet pussy is enough to convince you. You lean forward and place your face between her legs and start licking.'
+						'You suck on her clit and slip your tongue inside of her, working her pussy for all you''re worth. She begins to moan loudly and buck her hips, grinding your face into her crotch. As she gets close to orgasm, she grabs your hair and holds your face against her pussy, rubbing herself against you as much as you are licking her, leaving your face coated in her juices.'
+						'Her orgasm hits her hard, leaving her unable to talk as her body spasms. Once her orgasm passes, you lick her clean of all her pussy juices, making sure not to miss a single spot. When you look up at Katja, she has a confident smile on her face. "Well aren''t you just a good little girl?" She then kisses you deeply before you start to lean back and spread your legs, but she''s already shaking her head.'
+						'"Sorry <<$pcs_nickname>>, maybe next time. We need to finish our homework," she says sweetly. You pause before nodding in understanding. You see that new confident look intensify on her face as she smiles and the two of you finish your homework.'
 
 						gs 'arousal', 'cuni_give', 15, 'sub', 'lesbian'
 						gs 'stat'
@@ -847,7 +926,7 @@ if $ARGS[0] = 'Sextalk':
 				cls
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja that you have never had sex with another girl. She seems a little surprised and you get the feeling that this was not what she wanted to hear.'
+				'You tell Katja that you''ve never had sex with another girl. She seems a little surprised and you get the feeling that this was not what she wanted to hear.'
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		end
@@ -865,7 +944,7 @@ if $ARGS[0] = 'Sextalk':
 				katjaQW['knows_masterbation'] = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja how you masturbate in the bathroom. Katja blushes and bites her lip.'
+				'You tell Katja how you masturbate in the bathroom and she blushes and bites her lip.'
 
 				if katjaQW['masturbates'] = 0:
 					act 'Further':minut += 15 & gt 'KatjaHomeTalk'
@@ -883,7 +962,7 @@ if $ARGS[0] = 'Sextalk':
 			end
 
 			if SelfFisting > 0:
-				act 'Tell her how you stuck your fist in your ass':
+				act 'Tell her how you fisted your ass':
 					cls
 					katjaQW['horny'] += 10
 
@@ -891,18 +970,18 @@ if $ARGS[0] = 'Sextalk':
 
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-					'You told Katja how you masturbate your ass and even managed to stretch it so much that you can shove a fist into it.'
-					'Katja blushes and bites her lip.'
+					'You tell Katja how you masturbate anally and even managed to stretch it so much that you could shove your fist into it.'
+					'She blushes and bites her lip.'
 
 					act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 				end
 			end
 		else
-			act 'Tell Katja that you have never masturbated':
+			act 'You''ve never masturbated':
 				cls
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja that you have never masturbated. She seems surprised'
+				'You tell Katja that you''ve never masturbated. She seems surprised at your answer.'
 				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 			end
 		end
@@ -911,14 +990,14 @@ if $ARGS[0] = 'Sextalk':
 	act 'Refuse to talk about such topics':
 		cls
 		gs 'stat'
-		'You refuse to talk about such topics with her. Katja looks down, confused, and  mummbles "Sorry, <<$pcs_nickname>>, I didn''t mean to pry."'
+		'You refuse to talk about such topics with her and she looks down in confusion and mumbles. "Sorry, <<$pcs_nickname>>, I didn''t mean to pry."'
 
 		act 'Further':minut += 15 & gt 'KatjaHomeTalk'
 	end
 end
 
 if $ARGS[0] = 'hornykiss':
-	'Katja brings her face to yours, so close that you can feel her hot breath on her skin.'
+	'Katja brings her face so close to yours that you can feel her hot breath on your skin.'
 
 	act 'Bring your face close to hers':
 		cla & *clr
@@ -937,12 +1016,12 @@ if $ARGS[0] = 'hornykiss':
 				act 'Change the subject':minut += 15 & gt 'KatjaHomeTalk'
 
 !!				if pcs_dom > 0:
-					act 'Seize Katja''s face':
+					act 'Grab Katja''s face':
 						cla & *clr
 						KatjaQW['dom'] -= 2
 						katjaQW['horny'] -= 10
 						gs 'stat'
-						'You wrapped your hands around her face and bring you lips to Katja''s.'
+						'You wrap your hands around her face and bring you lips to Katja''s.'
 
 						!!if pcs_dom < KatjaQW['dom']:
 							!!'Katja firmly takes your hands and removes them from her face, allowing you to understand, that she does not intend to kiss you.'
@@ -963,24 +1042,24 @@ end
 
 if $ARGS[0] = 'tender_kiss':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-	'Katja thinks about something, then embarrassed and blushing asks you "<<$pcs_nickname>>, have you kissed a boy?"'
+	'Katja thinks about something before blushing in embarrassment. "<<$pcs_nickname>>... Have you ever... kissed a boy?"'
 	katjaQW['boy_lie'] = 1
 
 	act 'Yes':
 		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-		'You smile at Katja and say that of course you kissed boys. Katja, even more shyly, "You see <<$pcs_nickname>>, I like this guy, he''s older than me, and I am afraid that when we start to kiss, I''ll do something wrong. Could you teach me how to kiss?"'
+		'You smile at Katja and say that you''ve kissed boys. Katja, even more shyly, continues. "You see, I like this guy, but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Could you teach me how to kiss?"'
 
 		act 'Kiss': gt 'katjaEv', 'kiss'
 
-		act 'Say no':
+		act 'Refuse':
 			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-			'You tell Katja no and she look at you with her big eyes "Please <<$pcs_nickname>>, you don''t want me to be bad at kissing do you?"'
+			'You refuse and she looks at you with pleading eyes. "Please <<$pcs_nickname>>, you don''t want me to be bad at kissing, do you?"'
 		
-			act 'Relent and kiss Katja': 
+			act 'Relent': 
 				katjaQW['dom'] += 2 
 				gt 'katjaEv', 'kiss'
 			end
@@ -1011,16 +1090,16 @@ if $ARGS[0] = 'tender_kiss':
 		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-		'You shake your head and say that you have never kissed a boy. Katja, even more shyly, "You see <<$pcs_nickname>>, I like this guy, he''s older than me, and I am afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
+		'You shake your head and say that you''ve never kissed a boy. Katja, even more shyly, continues. "You see, I like this guy but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
 		act 'Kiss': gt 'katjaEv', 'kiss'
 
-		act 'Say no':
+		act 'Refuse':
 			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-			'You tell Katja no and she look at you with her big eyes "Please <<$pcs_nickname>>, I will help os both so we are better when we finally are kissing a boy?"'
+			'You refuse and she looks at you with pleading eyes. "Please <<$pcs_nickname>>, it''ll help us both so we''re better when we finally kiss a boy!"'
 		
-			act 'Relent and kiss Katja': 
+			act 'Relent': 
 				katjaQW['dom'] += 2 
 				gt 'katjaEv', 'kiss'
 			end
@@ -1048,5 +1127,265 @@ if $ARGS[0] = 'tender_kiss':
 	end
 end
 
+if $ARGS[0] = 'marcus_kiss':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
+	'Katja almost jumps you and gives you a kiss. Afterwards, she looks at you a little hesitantly. "You know, having Marcus over is quite fun, so why don''t we call him right now?"'
+	act 'Agree':  gt 'katja_sex', 'marcus_wait'
+	act 'You''re not in the mood': katjaQW['horny'] -= 20 & gt 'KatjaHomeTalk'
+end
+
+if $ARGS[0] = 'boy_discussion':
+	*clr & cla
+	katjaQW['QWstage'] = 5
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	if  Marcus_sextype > 0:
+		katjaQW['horny'] += 20
+		'"I sometimes have sex with Marcus, and I can tell you he is really into Russian girls. I''m sure that he would love to pop the cherry of a Russian beauty like you."'
+		'"Marcus is very good looking.... If you think he would be willing to have sex with a girl like me..." Katja trails off, starting to sound nervous again.'
+		'"I''m sure that he would love to have sex with you. As any man who isn''t gay would," you answer. Katja''s face brightens up and she moves towards you for a kiss.'
+		act 'Kiss her back': gt 'katjaEv', 'kiss'
+	else
+		katjaQW['horny'] += 10
+		'"Do you have any boy in mind?" you ask. 
+		"I don''t know. Lazar is hot, but I have the feeling that he would just consider us a check on his list, and not be able to keep his mouth shut." she answers before pondering. "Maybe Marcus? He''s very good looking, and I haven''t heard of him spreading rumors. Most of the others don''t listen to what he says anyway because he''s black and from America. Our classmates are so stupid sometimes." she continues'
+		'"Marcus is hot, but how would we approach him?" you ask. 
+		"Try to dance with him at the disco, and get close to him. He really seems to like the girls there, and since you''re the hottest there, I''m sure he''ll like it. Especially if you lead him on like you know how to do," she says in her most flattering voice.'
+		'You smile. "Okay, I''ll try to dance with him at the disco."'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+		if mey_vika['key'] = 1:
+			act 'Leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+		end
+	end
+end
+
+if $ARGS[0] = 'anal_discussion':
+	*clr & cla
+	katjaQW['anal_quest'] = 2
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	if  IvanShowerQW = 11:
+		katjaQW['horny'] += 20
+		'"Ivan seems to be very interested in our kissing. I sometimes have anal sex with him. You can say we''re what you call ''friends with benefits''. I think he might be interested," you tell her.'
+		'"Ivan is hot... I''ve also heard that he''s really into anal sex. Yeah, if you think he''s willing, then..." Katja is having trouble finding the words as she gets visibly excited thinking about it.'
+		'"I''ll talk to Ivan about it at school and arrange a meeting if he''s up for it," you answer and Katja throws her arms around you and goes in for a kiss.'
+		act 'Kiss her back': gt 'katjaEv', 'kiss'
+	else
+		katjaQW['horny'] += 10
+		'"Do you have any boy in mind?" you ask. 
+		"Well, Ivan seems to be quite interested in our kissing at school. The other girls say that he''s really into anal sex. He''s also very hot." she answers.'
+		'"Yeah, Ivan is hot. I need to find a way to approach him about it though," you reply. 
+		"He trains in the gym at the community center in the late afternoon. You might have luck talking with him there. I''ve also heard a rumor that he sometimes uses the women''s shower there," she tells you.'
+		'You smile. "Okay, I''ll try and talk with him about it."'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+		if mey_vika['key'] = 1:
+			act 'Leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'preventation_talk':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	katjaQW['birth_control_start_day'] = daystart + 15
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'	
+	'"If you want to '+iif( katjaQW['QWstage'] = 7, 'have sex with boys in the park', 'continue having sex with boys around here')+', you should get on birth control," you tell Katja. "Most of the boys around here don''t want to use condoms, and don''t care if they get the girls pregnant."'
+	'"And if they get a girl pregnant, they''ll just pretend it wasn''t them. You don''t want to raise a child on your own right now, do you?" you ask. 
+	"No" she answer weakly "No, I don''t. I want to have children, but not right now. Not before I go to university."' 
+	'"Then you should get on the pill," you continue. "I''m sure if you ask your mother, then she''ll help you. I can''t imagine Vicky not being on the pill at this point, but if you don''t want to ask her, you can buy it at the local pharmacy. My aunt Luda works there and she won''t tell anybody about it. She knows how to be discreet."'
+	act 'Talk about something else': gt 'KatjaHomeTalk'
+	if mey_vika['key'] = 1:
+		act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+	end	
+end
+
+if $ARGS[0] = 'random_park_sex_talk':
+	*clr & cla
+	katjaQW['QWstage'] = 7
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja gives you the most sultry look she can muster. "You know, sex with Ivan and Marcus is great and all, but I was thinking that it might be time to try other boys."'
+	'"Do you have anybody in mind?" you ask. 
+	"Not any of the boys in the class. I don''t think anybody except Ivan could keep their mouth shut about having a threesome with the two hottest chicks in school!" she answers. "I don''t really know anybody else. You''ve been much more around than me, so maybe you know somebody?" she asks.'
+	act 'Tell her about the boys in the park':
+		cla
+		katjaQW['horny'] += 5
+		'You tell her that strangers come to the park and look for girls to have fun with, without any commitment, and suggest that you could try to pick up some boys there.'
+		'"Awesome!" she says and looks at you really excitedly. "Why don''t we go right now?"'
+		if katjaQW['birth_control_start_day'] < daystart:
+			act 'Agree':
+				minut += 15
+				katjaQW['horny'] += 5
+				$ev_name = 'Katja'
+				$ev_name_a = 'Katja'
+				$ev_name_om = 'Katja'
+				dick = 0
+				place = 1
+				Frend_num = 14
+				p_slut = katjaQW['slut']
+				p_dom = KatjaQW['dom'] + 50
+				p_horny = katjaQW['horny']
+				p_alko = 0
+				gt 'placer'
+			end				
+			act 'Not right now': gt 'KatjaHomeTalk'
+		else
+			'Remembering that the boys in the park won''t use protection, you turn Katja down.'
+			act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			if mey_vika['key'] = 1:
+				act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'sex_with_boy_ask':
+	*clr & cla
+	katjaQW['QWstage'] = 4
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja looks at you nervously, but with that look in her eyes that tells you she''s thinking about something naughty. "You''ve told me all about how good it is to have sex with a boy," she meekly says. "I... I think... I think I would like to try it too..."'
+	if katjaQW['anal_quest'] > 1:
+		'"So you want me to set it up again?" you ask, and Katja just nods sheepishly. "Okay. Now Ivan doesn''t fuck girls in the pussy since he''s afraid of getting them pregnant, so I assume that you want me to find somebody else?"'
+		'"Yes <<$pcs_nickname>>. You know so many guys, so I''m sure you can arrange my first time to be perfect!" she says in her most persuasive voice.'
+	else
+		'"Okay, so why don''t you?" you ask. 
+		"I don''t know how to approach a boy..." she answers "I don''t want a boyfriend, I just want to try having sex with a boy. Can''t you help me arrange it? Please..." she says, looking at you pleadingly with her big eyes.'
+	end
+	act 'Agree': gt 'KatjaHomeTalk', 'boy_discussion'
+	act 'Refuse':
+		cla
+		'You refuse to help her, but she continues to beg you.'
+		act 'Tell her to ask a boy herself':
+			cla
+			katjaQW['horny'] -= 20
+			minut += 5
+			'She stops begging and you return to talking about other subjects.'
+			act 'Continue': gt 'KatjaHomeTalk'
+		end
+		act 'You''re too precious to share':
+			cla
+			katjaQW['horny'] += 20
+			minut += 5
+			'She stops begging and looks at you with lust in her eyes.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			act 'Kiss her': gt 'katjaEv', 'kiss'
+		end
+		act 'Tell her to stick with girls':
+			cla
+			katjaQW['horny'] -= 5
+			minut += 5
+			'"Boys aren''t worth it. Just stick with girls," you tell her and she stops begging, but doesn''t look completely convinced.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+		end					
+	end
+end
+
+if $ARGS[0] = 'Marcus_answer_talk':
+	*clr & cla
+	katjaQW['marcus_asked'] = 2
+	mintu += 5
+	katjaQW['Marcus_day'] = daystart
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'You tell Katja that you''ve talked with Marcus and he agreed. She looks at you exitedly. "So when do we do it?"'
+	'"He agreed to come over when I call him, so we can call him right now, or wait for another time," you answer.'
+	if week < 6 and  (locat['Vicky'] = 10 or locat['Vicky'] = 11) and (katjaQW['horny']+katjaQW['slut']) > 100:
+		'"Okay. Let''s call him right now!" she squeals, her face completely red.'
+		act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+	elseif (katjaQW['horny'] + katjaQW['slut']) <= 100:
+		'"I don''t know. Maybe another time. I need to think about it some more," she says while looking a little nervous. 
+		"Okay, another time then," you reply.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+	else
+		'"We can''t call him now! Vicky will be home soon and I don''t want her to see him here!" she says while looking a little panicked. 
+		"Okay, we''ll plan it for another day when we have time," you reply.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+	end
+end
+
+if $ARGS[0] = 'first_boy_sex_follow_up':
+	*clr & cla
+	katjaQW['QWstage'] = 6
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja gives you a big hug. "Thank you! The experience with Marcus was great!" she says with a huge grin.'
+	if npc_vag['A14'] + 5 < npc_dick['A146']:
+		'"It didn''t hurt too much?" you ask. 
+		"It hurt, that was why I couldn''t take it any longer. But it was fun and I think it''ll hurt less the next time," she answers. 
+		"So you want to have sex with a boy again?" you reply.'
+	else
+		'"It did look like you had fun," you say. 
+		"I definitely had fun, I thought it would hurt, but I didn''t feel any pain," she answers. 
+		"Might be all the times I used my dildo on you," you reply.'
+	end
+	'"We should definitely do this again some time," she finishes. 
+	"We''ll see if the opportunity comes up again," you answer.'
+	act 'Talk about something else': gt 'KatjaHomeTalk'
+	act 'Tell her that she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+end	
+
+if $ARGS[0] = 'anal_sex_with_boy_ask':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	katjaQW['anal_quest'] = 1
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja starts speaking a little hesitantly. "You keep telling me that anal sex with a boy is so good'+iif(katjaQW['strapon_ass'] = 1, ', and you fucking me in the ass with your strapon is nice, but it would probably be so much better with a real cock,', ', and I think I also would like to try it,')+'" she says while looking at you with her most begging eyes.'
+	if katjaQW['QWstage'] >= 6:
+		'"So you want me to set it up again?" you ask, and Katja just nods sheepishly. "Okay. Since you asked, I expect that you want to try it with somebody else that isn''t Marcus?" 
+		"Yes, <<$pcs_nickname>>. You know so many guys, so I''m sure you can arrange my first anal sex to be perfect!" she says in her most persuasive voice.'
+	else
+		'"Okay, so why don''t you?" you ask. 
+		"I don''t know how to approach a boy..." she answers. "I don''t want a boyfriend, I just want to try having anal sex with a boy. Can''t you help me arrange it? Please..." she says while looking at you pleadingly with her big eyes.'
+	end
+	act 'Agree': gt 'KatjaHomeTalk', 'anal_discussion'
+	act 'Refuse':
+		cla
+		'You refuse to help her, but she continues to beg you.'
+		act 'Tell her to ask a boy herself':
+			cla
+			katjaQW['horny'] -= 20
+			minut += 5
+			'She stops begging and you return to talking about other subjects.'
+			act 'Continue': gt 'KatjaHomeTalk'
+		end
+		act 'You''re too precious to share':
+			cla
+			katjaQW['horny'] += 20
+			minut += 5
+			'She stops begging and looks at you with lust in her eyes.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			act 'Kiss her': gt 'katjaEv', 'kiss'
+		end
+		act 'Tell her to stick to girls':
+			cla
+			katjaQW['horny'] -= 5
+			minut += 5
+			'"Boys aren''t worth it. Just stick with girls," you tell her and she stops begging, but doesn''t look completely convinced.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+		end
+	end					
+end
+
 --- KatjaHomeTalk ---------------------------------
 

locations/Katja_Tanga.qsrc

@@ -5,21 +5,21 @@ if $ARGS[0] = 'secretroom':
 	*clr & cla
 	if katjaQW['school_sex'] = 0: katjaQW['school_sex'] = 1 & ! Flag sex with Kate at the school
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga4_4.jpg"></center>'
-	'You hurry down the hall hand and hand with Katja towards the storage room she told you about. Each of you trying to pull up the others skirt. Once at the door she pulls out a key and unlocks the door, as she does you grab and squeeze her ass. As she pushes open the door she turns towards you and you both immediately start kissing and fondling each other. Barely avoid tumbling into the room, absently you manage to close the door and lock it as you''re all over each other.'
+	'You hurry down the hall hand in hand with Katja towards the storage room she told you about as each of you try to pull up the other''s skirt. Once at the door, she pulls out a key and unlocks it. You grab and squeeze her ass as she does before she pushes the door open and turns towards you. You both immediately start kissing and fondling each other, barely avoiding tumbling into the room before you manage to close the door and lock it.'
 	act 'Bare her breasts':
 		*clr & cla
 		gs 'arousal', 'foreplay', -5, 'lesbian'
 		gs 'arousal', 'kiss', 5, 'lesbian'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga4_3.jpg"></center>'
-		'As the two of you kiss, you start to unbutton her shirt, she quickly follows suit and soon both of you are topless. You stop kissing her lips and start kissing her neck, then her shoulder, leaving a trail of kisses down to her tits, where you begin to kiss, lick and suck on her nipple, your hand fondles her other breast at the same time. She moans in pleasure, at your touches.'
+		'You continue kissing as you start to unbutton each other''s shirts and you''re both soon topless. You stop kissing her lips and start kissing her neck, then her shoulder, leaving a trail of kisses down to her breasts. You begin to kiss, lick and suck on her nipple as your hand fondles her other breast. She moans softly in pleasure.'
 		act 'Work your way to her pussy':
 			gs 'arousal', 'vaginal_finger_give', -5, 'lesbian'
 			gs 'arousal', 'cuni_give', 5, 'lesbian'
 			gs 'stat'
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_10.jpg"></center>'
-			'After a few minutes of teasing her nipples you kiss your way down to her stomach, pulling off her skirt as you do. Your lips descend down her body and you begin kissing and teasing her clit with your tongue. You pull her down and gentle lay her down on her back, once she is laying down you slide two of your fingers into her wet pussy and begin to finger fuck her. She moans in pleasure, as her hands run all over her own body, as squeezes her own breasts.'
+			'After a few minutes of teasing her nipples, you kiss your way down to her stomach, pulling off her skirt as you do. Your lips descend down her body and you begin kissing and teasing her clit with your tongue. You pull her down and gentle push her down on her back. Once she''s comfortable, you slide two of your fingers into her wet pussy and begin to finger fuck her. She moans in pleasure she squeezes her breasts firmly in her hands.'
 			!!The requirements here are to make sure you own a dildo and that neither you or Katja has a hymen, since the scene does not acount for that possibility.
 			if (middildo = 1 or dildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1) and pcs_vag > 0 and npc_vag['A14'] > 0:
 				act 'Get dildo':
@@ -45,7 +45,7 @@ if $ARGS[0] = 'secretroom':
 					gs 'stat'
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_5.jpg"></center>'
-					'Katja''s pussy becomes soaking wet and you can tell she would like something bigger than your fingers in her. Reaching over to your bag you pull out your dildo and slide it up between her breasts so show her what you have in store for her. Katja''s eyes widen slightly at the sight of the dildo but she quickly pulls your hand up holding the dildo and begins to suck on the dildo. Her moans of pleasure audible as she sucks the dildo as you continue to finger fuck her.'
+					'Her pussy is now soaking wet and you can tell she would like something bigger than your fingers in her. Reaching over to your bag, you pull out your dildo and slide it up between her breasts to show her what you have in store for her. Her eyes widen slightly at the sight of the dildo, but she quickly pulls your hand up and begins to suck on the dildo. She moans onto the dildo as you continue to finger fuck her.'
 					act 'Fuck Katja':
 						gs 'arousal', 'vaginal_dildo_give', -5, 'lesbian'
 						gs 'arousal', 'rimming_give', 5, 'lesbian'
@@ -56,12 +56,12 @@ if $ARGS[0] = 'secretroom':
 						gs 'stat'
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_9.jpg"></center>'
-						'Katja, begins moaning louder and bucking her hips against your fingers. You pull the dildo out of her mouth and your fingers out of her twat. You roll her over onto her stomach, as you slide down till your face is over her ass as you slip the wet dildo into her soaking wet pussy and begin to stroke the dildo deeply in her pussy. With your other hand you pull her ass cheeks apart and being to lick her asshole. Stroking the dildo as deep into her as it will go, she moans with pleasure getting ever louder. She beings to arch her hips up trying to take even more of the dildo into herself, but there is no more to give her. Instead you stick your tongue in her ass and begin to tongue fuck her ass. This brings even louder moans and before long she starts bucking her hips as her body spasms in an intense orgasm, as she cums.'
+						'Katja begins moaning louder and bucking her hips against your fingers. You pull the dildo out of her mouth and your fingers out of her pussy before rolling her onto her stomach and sliding the wet dildo into her soaking wet pussy. You bury your face between hr ass cheeks and lick her asshole as you start thrusting the dildo as deep as it will go. Her moans of pleasure get ever louder and she begins to arch her hips up, trying to take even more of the dildo into herself, but there is no more to give. Instead, you stick your tongue in her ass and begin to tongue fuck her ass. This casuses her to moan even louder and before long she starts bucking her hips as her body spasms in an intense orgasm as she cums.'
 						act'Use dildo':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_7.jpg"></center>'
-							'As her quivering body subsides and her panting breath gets under control. You pull the dildo out of her pussy and your tongue out of her ass, you lay back looking at her. She gives you a dreamy smile and reaches over to take the dildo out of your hand. She gets up and sits down between your legs. She lifts them up and then drags you closer continuing to lift your hips till your butt rest just under her breasts and your shoulders and head are the only parts of your body still touching the floor. "You''re so beautiful I want to eat you out" Katja whispers, moments later she starts licking your pussy before her tongue darts inside of your pussy. As your pussy becomes soaked at her attentions you reach up and grab her hair, moaning "Yes, faster, faster." You moan and whine wanting more, for several minutes she only uses her tongue. Then she pulls her face away and slides the dildo into your sopping wet pussy and beings fucking you furiously with the dildo. With her other hand she slips one of her fingers in your ass and begins to finger fuck your ass at the same time.'
-							$orgasm_txt = 'You can''t take it and quickly orgasm, your pussy over flowing with your juices, you feel them running down your stomach as the intense orgasm rocks your body.'
+							'As her quivering body subsides and her panting breath gets under control, you pull the dildo out of her pussy and your tongue out of her ass. She gives you a dreamy smile and reaches over to take the dildo out of your hand. She gets up and sits down between your legs, lifting them up and and dragging your pussy up to her. "You''re so beautiful, I could just eat you right up..." she whispers before she starts licking your pussy, her tongue occasionally darting inside you. As your pussy gets wetter, you reach up and grab her hair. "Yes, faster, faster!" you moan, wanting more. For several minutes, she only uses her tongue before she pulls away, slides the dildo into your wet pussy and begins furiously fucking you with it. Using her other hand, she slips one of her fingers in your ass and begins to finger fuck your ass at the same time.'
+							$orgasm_txt = 'You can''t take it and quickly orgasm. Your pussy overflows with your juices and you feel them running down your stomach as the intense orgasm rocks your body.'
 							$orgasm_or = 'custom'
 							gs 'arousal', 'anal_finger', -5, 'lesbian'
 							gs 'arousal', 'cuni', 5, 'lesbian'
@@ -69,7 +69,7 @@ if $ARGS[0] = 'secretroom':
 							gs 'arousal', 'end'
 							gs 'stat'
 							''
-							'After your orgasm subsides, she pulls her finger and the dildo out of you. Then she extends the dildo down to your mouth, opening your mouth as she slides the wet dildo into your mouth, as happily sucks your own pussy juices off it. Katja watches you with hungry eyes and biting her lower lip as you finish cleaning the dildo with your mouth. "That was amazing, I bet all the boys will be walking to their classes with erections thinking about what we were doing." She says and you both laugh, before getting quickly get dressed, knowing if you don''t hurry you will be late to class.'
+							'After your orgasm subsides, she pulls her finger and the dildo out of you before she extends the dildo down to your mouth. You open your mouth and she slides the wet dildo inside. You happily suck your own pussy juices off of it as Katja watches with hungry eyes, biting her lower lip as you finish cleaning the dildo with your mouth. "That was amazing! I bet all the boys will be walking to class with erections thinking about what we were doing," she says and you both laugh before quickly getting dressed.'
 							act 'Continue': gt 'gschool_lessons', 'short_break'
 						end
 					end
@@ -82,19 +82,19 @@ if $ARGS[0] = 'secretroom':
 				KatjaQW['Slut'] += 2
 				gs 'stat'
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_8.mp4"></video></center>'
-				'Pulling your fingers out of her twat, you run your lips down her inner thighs, till your lips are back on her clit. You kiss, lick and tease her clit with your tongue, she moans in pleasure raising her hips to try and force your tongue into her, as her wetness soaks her inner thighs and your face. Finally you slip your tongue inside of her pussy, she moans loudly and bucks against your face at first. Then she reaches down and grabs your hair, holding your head in place she grinds her crotch against your face as you tongue fuck her pussy, completely covering your face with her pussy juices. After several minutes she being moaning loudly as she cums.'
+				'Pulling your fingers out of her pussy, you run your lips along her inner thighs until you reach her clit. You kiss, lick and tease her clit with your tongue, causing her to moan in pleasure while raising her hips to try and force your tongue into her as her wetness soaks her inner thighs and your face. Giving in, you slip your tongue inside her pussy and moans loudly and bucks against your face before she reaches down and grabs your hair, holding your head in place as she grinds her crotch against your face and you tongue fuck her pussy, completely covering your face with her pussy juices. After several minutes, she begins moaning loudly as she cums.'
 				act 'Katja returns the favor':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tanga4_6.jpg"></center>'
-					'Katja gets up and pushes you down on all fours, then she lays down with her face between your legs under your pussy. She sucks on her fingers for a moment before lifting them up and sliding two of them into your pussy, she beings to finger fuck you, while her thumb works on your clit, she knows all the right spots. It feels amazing, it takes no time before you are moaning loudly, while your juices run down your inner thighs. Pulling her fingers out she lefts up her head and begins to lick your pussy, while her fingers still wet from your pussy slide into your asshole. First one finger and then two fingers, she eats your pussy as she finger fucks your ass.'
-					$orgasm_txt = 'Unable to take it anymore as convulsions run throughout your body, you orgasm hard. Your legs shaking, you can barely keep yourself from collapsing on her.'
+					'Katja gets up and pushes you down on all fours before moving between your legs. She sucks on her fingers before sliding two of them into your pussy, slowly finger fucking you while her thumb works on your clit. It feels amazing, and you moan loudly as your juices run down your inner thighs. Katja then pulls her fingers out and starts licking your pussy while her fingers, coated with your juices, slide into your asshole. She vigorously eats your pussy while finger fucking your ass.'
+					$orgasm_txt = 'Unable to take it anymore, you orgasm hard as convulsions run through your body. Your legs shaking, you can barely keep yourself from collapsing on her.'
 					$orgasm_or = 'custom'
 					gs 'arousal', 'anal_finger', 5, 'lesbian'
 					gs 'arousal', 'cuni', 5, 'lesbian'
 					gs 'arousal', 'end'
 					gs 'stat'
 					''
-					'Waiting until you recover from your orgasm, Katja looks at you biting her lip and says. "That was amazing, I bet all the boys will be walking to their classes with erections thinking about what we were doing in here." You both laugh as quickly get dress, knowing if you don''t hurry you will be late to class.'
+					'Waiting until you recover from your orgasm, Katja looks at you while biting her lip. "That was amazing! I bet all the boys will be walking to class with erections thinking about what we were doing in here," You both laugh before quickly getting dressed.'
 					act 'Continue': gt 'gschool_lessons', 'short_break'
 				end
 			end
@@ -106,18 +106,18 @@ if $ARGS[0] = 'school':
 	*clr & cla
 	i=rand(1,6)
 	katjaQW['no_panties_day'] = daystart
-	'You did a quick turn, causing your skirt to twirl up. For a brief moment exposing your lack of panties. Katja''s eyes widened in surprise. "You''re not wearing panties?" She whispers to you.'
+	'You do a quick turn, causing your skirt to twirl up and expose your lack of panties for a brief second. Katja''s eyes widen in surprise. "You''re not wearing panties?!" she whispers in shock.'
 	if analplugIN = 1:
 		'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/tanga1_7.mp4"></video></center>'
 		inhib_exp += rand(1,4)
-		'"I''m not only not wearing panties!" You say while smiling enigmatically. You turn and lift your skirt then briefly pull apart you butt cheeks, showing Katja the plug inserted in your ass.'
+		'"I''m not only not wearing panties!" you say while smiling enigmatically. You turn and lift your skirt before parting your ass cheeks, showing Katja the butt plug in your ass.'
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga1_<<i>>.jpg"></center>'
 		inhib_exp += rand(1,3)
-		'You looked around, checking no one else is around, then turn your ass toward Katya and bend over, showing off your bare ass and pussy, proving you''re not wearing any panties at school today.'
+		'You look around, making sure that nobody is nearby before turning your ass towards Katja and bending over, showing off your bare ass and pussy and proving that you''re not wearing any panties.'
 	end
 	''
-	'"I showed you mine." You state, "Now I want to know if you''re wearing any panties."'
+	'"I showed you mine," you state. "Now I want to know if you''re wearing any panties."'
 	act 'Katja''s turn':
 		*clr & cla
 		if katjaQW['pantiesQWstage'] = 5:
@@ -138,7 +138,7 @@ if $ARGS[0] = 'school1':
 	*clr
 	cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga2.jpg"></center>'
-	'Katja only blushes in embarrassment, and covers her eyes, "You''re such a bad influence, <<$pcs_nickname>>. I always wear shorts, the boys in this school are all perverts."'
+	'Katja blushes in embarrassment and covers her eyes, "You''re such a bad influence, <<$pcs_nickname>>! I always wear shorts since the boys in this school are all perverts."'
 	act 'Continue': gt 'gschool_lessons', 'short_break'
 end
 
@@ -148,7 +148,7 @@ if $ARGS[0] = 'school2':
 	pcs_horny += 10
 	KatjaQW['Slut'] += 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga3_<<i>>.jpg"></center>'
-	'Katja looked around to make sure no one else is around, then furtively lifts up her skirt, showing her panties. "See, I am wearing panties."'
+	'Katja looks around to make sure nobody is nearby before furtively lifting up her skirt and showing you her panties. "See? I''m wearing panties."'
 	act 'Continue': gt 'gschool_lessons', 'short_break'
 end
 
@@ -156,7 +156,8 @@ if $ARGS[0] = 'school3':
 	*clr
 	cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga4_1.jpg"></center>'
-	'You give a slightly disappointed frown. "So still wearing panties huh.", Katja blushes and whispers to you. "Yes but I''m not wearing a bra."'
+	'You give Katja a slightly disappointed frown. "Still wearing panties, huh?" 
+	Katja blushes. "Yes, but I''m not wearing a bra..." she whispers.'
 	act 'Share':
 		*clr & cla
 		gs 'arousal', 'erotic', -5
@@ -164,14 +165,14 @@ if $ARGS[0] = 'school3':
 		gs 'arousal', 'end'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga4_2.jpg"></center>'
-		'Katja looks around to make sure that no one is watching the two of you. Then she unbuttons her shirt and pulls it open to reveal her bare breasts. With a smile you reach up and grab both her breasts in your hands and tease her nipples with your fingers, eliciting a moan of pleasure from her.'
+		'Katja looks around to make sure nobody is watching before she unbuttons her shirt and pulls it open to reveal her bare breasts. With a smile, you reach up and grab her breasts in your hands, teasing her nipples with your fingers. A moan of pleasure escapes from her mouth.'
 		if pcs_horny >= 50 and katjaQW['Horny'] >= 40 and npc_sex['A14'] > 0 and mesec <= 0 and katjaQW['school_sex'] = 0:
-			'Blushing Katja pulls away from your touch and buttons her shirt back up, but looks at you slyly and says. "I have a key to a storage closet, we can go there for a bit more privacy if you want." Giving you a hopeful look that you will agree.'
+			'Blushing, Katja pulls away from you and buttons her shirt back up, but looks at you with a sly grin. "I have a key to a storage closet. We can go there for a bit more privacy if you want..." She gives you pleading eyes, hoping that you''ll agree.'
 			act 'Go': gt 'Katja_tanga', 'secretroom'
 		else
 			ketjaQW['horny'] += 10
 			if katjaQW['school_sex'] = 1: katjaQW['slut'] +=1
-			'Blushing Katja pulls away from your touch and buttons her shirt back up, looking around to see if anyone had seen you grabbing her tits. "<<$pcs_nickname>> Are you crazy? Anyone could have seen us and what would they say?". '
+			'Blushing, Katja pulls away from you and buttons her shirt back up, looking around to see if anyone had seen you. "<<$pcs_nickname>>, are you crazy?! Someone could have seen us! What would they say?!"'
 		end
 		act 'Continue': gt 'gschool_lessons', 'short_break'
 	end
@@ -183,33 +184,34 @@ if $ARGS[0] = 'school4':
 	KatjaQW['Slut'] += 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga5_1.jpg"></center>'
 	if katjaQW['pantiesQWstage'] = 4:
-		'Katja quickly lifted her skirt, showing her ass while wearing a thong. "You''re back to wearing panties again?" you cry. Katja hissed at you. "So? It''s not like you haven''t seen everything before."'
+		'Katja quickly lifts her skirt, showing you her thong clad ass. "You''re back to wearing panties again?" you cry. 
+		Katja hisses at you. "So? It''s not like you haven''t seen everything before."'
 	else
-		'Katja quickly lifted her skirt, showing her ass while wearing a thong. "So still wearing panties huh." you say. Katja hissed at you. "So? It''s not like you haven''t seen everything before."'
+		'Katja quickly lifts her skirt, showing her thong clad ass. "Still wearing panties, huh?" you ask and Katja hisses at you. "So? It''s not like you haven''t seen everything before."'
 	end
 	act 'Denied':
 		*clr & cla
 		gs 'arousal', 'kiss', -5, 'lesbian'
 		if katjaQW['pantiesQWstage'] < 1: katjaQW['pantiesQWstage'] = 1
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss1.jpg"></center>'
-		'Dejected at her reaction. "Fine, whatever.", You said as you turned to go. Katja afraid that she had offended you, grabs your hand and pulls you into a passionate kiss. "Don''t pout sweetie, I''m sorry. Let me make it up to you." she says.'
+		'"Fine, whatever," you say and turn to leave, dejected at her reaction. Katja, afraid that she has offended you, grabs your hand and pulls you into a passionate kiss. "Don''t pout sweetie, I''m sorry. Let me make it up to you!"'
 		act 'Watch':
 			*clr & cla
 			gs 'arousal', 'erotic', -5
 			if katjaQW['pantiesQWstage'] = 1: 
 				katjaQW['pantiesQWstage'] = 2
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga5_2.jpg"></center>'
-				'Katja sits down on the floor and parts her legs as she pulls aside her panties.'
+				'Katja sits on the floor and parts her legs as she pulls her panties aside.'
 				gs 'arousal', 'end'
 			elseif katjaQW['pantiesQWstage'] = 2:
 				katjaQW['pantiesQWstage'] = 3
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga5_3.jpg"></center>'
-				'Turning away from you and bending over Katja lifts up her skirt and pulls down her panties, showing you her lovely ass and pussy. Hearing someone coming she quickly pulls her panties back up and straightens up her skirt, as she smiles to you shyly.'
+				'Turning away from you and bending over, Katja lifts up her skirt and pulls down her panties, showing you her ass and pussy. Hearing someone coming, she quickly pulls her panties back up and straightens up her skirt as she smiles at you shyly.'
 				gs 'arousal', 'end'
 			else
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga5_4.jpg"></center>'
-				'Turning away from you and bending over Katja lifts up her skirt and pulls down her panties, showing you her lovely ass and pussy. She starts to pull up her panties as you say pouting. "Is that it?"'
-				act '"What that''s all?"':
+				'Turning away from you and bending over, Katja lifts up her skirt and pulls down her panties, showing you her ass and pussy. She starts to pull her panties back up as you pout. "Is that it?"'
+				act 'That''s all?':
 					*clr & cla
 					if KatjaQW['Slut'] > 80 and katjaQW['pantiesQWstage'] = 4: katjaQW['pantiesQWstage'] = 5
 					if katjaQW['pantiesQWstage'] = 3: katjaQW['pantiesQWstage'] = 4
@@ -217,7 +219,7 @@ if $ARGS[0] = 'school4':
 					gs 'arousal', 'erotic', -5
 					gs 'arousal', 'end'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga5_5.jpg"></center>'
-					'Katja looks over her shoulder at you, biting her lower lip she looks around to make sure no one is around and with a mischievous smile. Pulls her panties down further letting them drop around her ankles. "To hell with panties then." She quickly gathers her panties off the floor and sticks them in her purse. Then she twirls in front of you, giving you a fantastic view of her pussy and bare ass.'
+					'Katja looks over her shoulder at you, biting her lower lip as she looks around with a mischievous smile to make sure nobody is nearby. She then pulls her panties down further, letting them drop around her ankles. "To hell with panties then." She quickly gathers her panties off the floor and sticks them in her purse before she twirls in front of you, giving you a fantastic view of her pussy and bare ass.'
 					act 'Continue': gt 'gschool_lessons', 'short_break'
 				end
 			end
@@ -232,7 +234,8 @@ if $ARGS[0] = 'school5':
 	gs 'arousal', 'end'
 	KatjaQW['Slut'] += 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga6_<<i>>.jpg"></center>'
-	'Without any embarrassment Katja pulls up her skirt and shows you her pussy. "Like what you see?" She asks with a teasing smile.'
+	'Without any hesitation, Katja pulls up her skirt and shows you her pussy. 
+	"Like what you see?" she asks with a teasing smile.'
 	act 'Continue': gt 'gschool_lessons', 'short_break'
 end
 
@@ -244,20 +247,20 @@ if $ARGS[0] = 'dance':
 	i=rand(1,3)
 	inhib_exp += rand(1,2)
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco2_<<i>>.jpg"></center>'
-	'You lift the edge of your skirt up and flashed your pussy in front of Katja. "I showed you mine, now show me yours.".'
+	'You lift the edge of your skirt up and flash your pussy at Katja. "I showed you mine, now show me yours."'
 	act 'Ask to see':
 		*clr & cla
 		if KatjaQW['Slut'] <= 20:
 			katjaQW['Horny'] += 10
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco3.jpg"></center>'
-			'But Katja only blushed in embarrassment, clasping her hands. "I''m not as brave as you to go to a dance without my panties on."'
+			'Katja blushes in embarrassment. "I''m not as brave as you! I can''t to go to a dance without my panties on."'
 			gs 'arousal', 'end'
 		elseif KatjaQW['Slut'] <= 40:
 			gs 'arousal', 'erotic', -5
 			gs 'arousal', 'end'
 			katjaQW['Horny'] += 10
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco4.jpg"></center>'
-			'Katja looked around to make sure no one was watch and then turns away and partially bends over lifting her skirt. Showing you she was wearing a thong and giving you a nice view of her ass.'
+			'Katja looks around to make sure nobody is watching before partially bending over and lifting her skirt, showing you her thong and giving you a nice view of her ass.'
 		elseif KatjaQW['Slut'] <= 60:
 			gs 'arousal', 'erotic', -5
 			gs 'arousal', 'end'
@@ -266,10 +269,10 @@ if $ARGS[0] = 'dance':
 			if katjaQW['disco_Foto'] = 0:
 				katjaQW['disco_Foto'] = 1 & !The flag in the photo
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco5_1.jpg"></center>'
-				'Katja unbuttons her shirt and exposes her pretty bra. A moment later there is a brief flash as someone takes a picture, you quickly look around but can''t tell who took the picture.'
+				'Katja unbuttons her shirt and exposes her bra. There is a brief flash as someone takes a picture. You quickly look around, but can''t tell who took the picture.'
 			else
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco5_2.jpg"></center>'
-				'Katja unbuttons her shirt and exposes her pretty bra.'
+				'Katja unbuttons her shirt and exposes her bra.'
 			end
 		elseif KatjaQW['Slut'] <= 80:
 			if	katjaQW['Horny'] > 70:
@@ -277,14 +280,15 @@ if $ARGS[0] = 'dance':
 				katjaQW['Horny'] += 10
 				KatjaQW['Slut'] += 1
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco6_1.jpg"></center>'
-				'Katja resolutely lifts her dress up to her neck,  showing not only her cute little panties, but her beautiful bare breasts. Pulling her dress back down she says. "Now show me your tits."'
+				'Katja resolutely lifts her dress up to her neck, showing not only her panties, but her bare breasts. She smiles as she pulls her dress back down. "Now show me your tits."'
 				if pcs_horny > 70 or alko > 1:
 					act 'Show your tits':
 						*clr & cla
 						gs 'arousal', 'flash', -5
 						gs 'arousal', 'end'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco6_2.jpg"></center>'
-						'Laughing, you pull aside your dress and reveal one of your bare breasts. Katja looks at you wanting more. "I showed you both of mine." You smile and reply, "Yeah, but you''re wearing panties and I''m not."'
+						'Laughing, you pull aside your dress and reveal one of your bare breasts. Katja looks at you, wanting more. "I showed you both of mine!" 
+						You smile. "Yeah, but you''re wearing panties and I''m not."'
 						act 'Move away': gt'pav_disco'
 					end
 				end
@@ -293,13 +297,14 @@ if $ARGS[0] = 'dance':
 					gs 'arousal', 'flash', -5
 					gs 'arousal', 'end'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco6_3.jpg"></center>'
-					'You pull at the edge of your dress, exposing just a bit of one of your nipples. Katja indignant squeaks."Hey I showed you mine.",	You responded with a laugh "I already showed you my pussy, so that makes us even."'
+					'You pull at the edge of your dress, barely exposing one of your nipples as Katja indignantly squeaks."Hey, I showed you mine!"
+					You respond with a laugh. "I already showed you my pussy, so that makes us even."'
 					act 'Move away': gt'pav_disco'
 				end
 			else
 				gs 'arousal', 'end'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco6_4.jpg"></center>'
-				'You began to look on with anticipation, but Katja just pulls down her top showing a little extra cleavage before stopping. After seeing your disappointed look,  she sticks out her tongue and turns away. That redheaded bitch you think and nearly say it, but you hold your tongue.'
+				'You watch with anticipation, but Katja just pulls down her top, showing a little extra cleavage before stopping. After seeing your disappointed look, she sticks out her tongue and turns away. You grit your teeth at her teasing.'
 			end
 		else
 			gs 'arousal', 'erotic', -10
@@ -308,7 +313,7 @@ if $ARGS[0] = 'dance':
 			KatjaQW['Slut'] += 1
 			katjaQW['no_panties_at_disco']= 1 &!Event at the end of the disc
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco7_<<i>>.jpg"></center>'
-			'Katja does not hesitate and lifts the hem of her skirt, showing you her bare pussy.'
+			'Katja doesn''t hesitate and lifts the hem of her skirt, showing you her bare pussy.'
 		end
 		act 'Move away': gt'pav_disco'
 	end

locations/LCporn.qsrc

@@ -87,7 +87,7 @@ if $ARGS[0] = 'sex':
 		gs 'arousal', 'bj', 20, 'futa', 'sub', 'deepthroat'
 		'Finally, a good half hour after you started sucking her cock, Eugene finally lets out a loud and girly moan and releases her load all over your face. Thick strands of saliva are running down your chin by now.'
 		gs 'cum_call', 'face', $boy, 1
-		facial += 1
+		
 		gs 'stat'
 		'She licks her cum on your face and kisses you. She smiles and starts to get dressed. She tells you: "Thank you, <<$pcs_nickname>>! That was great... but I should go back to work before someone realizes I am missing! We''ve got to do this again, <<$pcs_nickname>>!"'
 		

locations/LCwork.qsrc

@@ -3,7 +3,7 @@ if $ARGS[0] = 'start1':
 	cla
 	*clr
 	horand = rand(1, 100)+ 40
-	facial += 1
+	
 	gs 'dinSex', 'std_trigger_oral'
 	gs 'dinSex', 'std_trigger'
 	randLCpay = 1000
@@ -60,7 +60,7 @@ if $ARGS[0] = 'start2':
 	cla
 	*clr
 	horand = rand(1, 100)
-	facial += 1
+	
 	spafinloc = 11
 	gs 'cum_manage'
 	randLCpay = 500
@@ -101,7 +101,7 @@ if $ARGS[0] = 'start3':
 	cla
 	*clr
 	horand = rand(1, 100) + 20
-	facial += 1
+	
 	spafinloc = 11
 	gs 'cum_manage'
 	spafinloc = 12
@@ -273,7 +273,7 @@ if $ARGS[0] = 'start6':
 	cla
 	*clr
 	horand = rand(1, 100)
-	facial += 1
+	
 	randLCpay = 500
 	guy += 1
 

locations/NikoEv.qsrc

@@ -340,6 +340,7 @@ if $ARGS[0] =  'Date 1':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/Dates/Walk1.jpg"></center>'
 		'"I sure am." Niko gives you a warm smile as he responds, "I figured that we could go to an amusement park, out of town. I will pay our way of course, so come on, let''s get going." Niko takes your hand and walks you to the train station where you both board the train and get seated.'	
 		
+		NikoNextDate_day = daystart + 7 - week + 1
 		act 'Go with Niko':gt 'NikoDates', 'Date 1_1'
 	end
 	
@@ -370,7 +371,7 @@ if $ARGS[0] =  'Date 2':
 		'<center><b><h4><font color=#E400FF><<"Nikolai [Niko] Volkov">></font></h4></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/dates/walk3.jpg"></center>'
 		'"I sure am." Niko''s smile widens as he replies, "Great let''s get going." Niko wraps his arm around your waist as he leads you toward the lake.'
-		
+		NikoNextDate_day = daystart + 7 - week + 1
 		act 'Follow Niko''s lead':gt 'NikoDates', 'Date 2'
 	end
 	
@@ -401,7 +402,7 @@ if $ARGS[0] =  'Date 3':
 		'<center><b><h4><font color=#E400FF><<"Nikolai [Niko] Volkov">></font></h4></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/dates/walk4.jpg"></center>'
 		'"I sure am." Niko''s smile widens as he replies, "Great let''s get going." Niko wraps his arm around your waist as he leads you toward the lake.'	
-		
+		NikoNextDate_day = daystart + 7 - week + 1
 		act 'Follow Niko''s lead':gt 'NikoDates', 'Date 2'
 	end
 	
@@ -431,7 +432,7 @@ if $ARGS[0] =  'Date 4':
 		'<center><b><h4><font color=#E400FF><<"Nikolai [Niko] Volkov">></font></h4></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/avatars/<<week>>.jpg"></center>'
 		'"I can never turn down a day at the beach." Niko chuckles as he responds, "Great I have everything we should need here." Niko then opens his bag which houses a beach towel, cigarettes and sunscreen.'	
-		
+		NikoNextDate_day = daystart + 7 - week + 1
 		act 'Let''s go!':	
 			*clr & cla
 			minut += 5

locations/VoltrenerSexShower.qsrc

@@ -184,7 +184,7 @@ if $ARGS[0] = '4':
 				gs 'stat'
 				act 'That did it':
 					cls
-					facial += 1
+					
 					'<center><video autoplay loop src="images/locations/pavlovsk/community/gym/volley/sex/voltrenersexshower16.mp4"></video></center>'
 					'It seems Ivan never expected this, but moments later, jets of sperm begin fountaining from his member, and heavy, warm drops start falling on your face. He clearly liked it very much.'
 					act 'Turn':
@@ -193,7 +193,7 @@ if $ARGS[0] = '4':
 						'You turn to see the coach still looking, wide-eyed and with his jaw hanging open. Ivan finally notices this, and oblivious to the fact that your actions were only partially for his benefit, hastily covers up, grabs his things and jumps out of the shower. As soon as the door closes behind Ivan, the coach walks closer to you, pulls his member out of his pants and points it at you. Passion and lust overpower you and you immediately reach for his cock, but unfortunately, it seems the coach was already on the edge, and he begins to cum as soon as your hands envelop his shaft. He sprays your breasts with his spunk, then promptly pulls up his pants and leaves you in the shower. On your knees. Overflowing with arousal.'
 						VoltrenerVoyeur += 1
 						pcs_horny = 100
-						facial += 1
+						
 						minut += 15
 						trenerlust += 2
 						gs 'stat'

locations/_attributes_school.qsrc

@@ -1,5 +1,5 @@
 # $attributes_school
-!!2022/01/15
+!!2022/01/26
 !Quality range is usually 2-5.
 
 if ARGS[1] = 1:
@@ -194,7 +194,7 @@ elseif ARGS[1] = 27:
 	
 elseif ARGS[1] = 28:
 	CloQuality = 3
-	CloThinness = 3
+	CloThinness = 2
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloStyle2 = 4
@@ -208,7 +208,7 @@ elseif ARGS[1] = 29:
 	
 elseif ARGS[1] = 30:
 	CloQuality = 3
-	CloThinness = 3
+	CloThinness = 2
 	CloTopCut = 1
 	CloSkirtShortness = 2
 	CloStyle2 = 4
@@ -228,10 +228,10 @@ elseif ARGS[1] = 32:
 	CloStyle2 = 4
 	
 elseif ARGS[1] = 33:
-	CloQuality = 4
+	CloQuality = 5
 	CloThinness = 1
 	CloTopCut = 1
-	CloPantsShortness = 1
+	CloSkirtShortness = 4
 	CloStyle2 = 4
 	
 elseif ARGS[1] = 34:
@@ -243,11 +243,10 @@ elseif ARGS[1] = 34:
 	CloBimbo = 1
 	
 elseif ARGS[1] = 35:
-	CloQuality = 5
+	CloQuality = 3
 	CloThinness = 4
 	CloTopCut = 3
-	CloSkirtShortness = 5
-	CloDress = 1
+	CloSkirtShortness = 6
 	CloStyle2 = 4
 	CloBimbo = 1
 	
@@ -434,10 +433,10 @@ elseif ARGS[1] = 56:
 	CloStyle = 4
 	
 elseif ARGS[1] = 57:
-	CloQuality = 4
+	CloQuality = 5
 	CloThinness = 5
-	CloBra = 1
-	CloPanties = 1
+	CloTopCut = 3
+	CloSkirtShortness = 5
 	CloStyle2 = 4
 	CloBimbo = 1
 	CloStyle = 4

locations/albina_chat.qsrc

@@ -229,7 +229,6 @@ if $ARGS[0] = 'chat':
 			act 'Change the subject': gt 'albina_chat', 'chat'
 			act 'Ask her about her sex life instead': gt 'albina_chat', 'Anal'
 		else
-			pcs_horny += 10
 			'She isn''t willing to talk about losing her own virginity and you can guess why, but she listens as you tell her about your first time.'
 			'"So what''s your favourite position?" she asks.'
 			act 'Missionary': gt 'albina_chat', 'Missionary'
@@ -248,28 +247,30 @@ if $ARGS[0] = 'Missionary':
 	'"BO-RING!"'
 	act'It''s nice!':
 		cla & *nl
-		'"What??" you protest. "It''s... nice."'
-		'"You''re trying to tell me that lying on your back doing nothing is ''nice''?" she rolls her eyes. "Nuh uh. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"What''s wrong with missionary?" you protest. "It''s... nice."'
+		'"You''re trying to tell me that lying on your back doing nothing is ''nice''?" She rolls her eyes. "Nuh uh. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 	
 	act'It''s romantic':
 		cla & *nl
 		'"It''s romantic!" you protest. "You can look up into his eyes when you cum. Or kiss. It makes it so much better."'
-		'"Romance is for married folks and decrepit old fucks," she rolls her eyes. "Which are basically the same thing. Nuh uh. Give it to me <i>dirty</i>. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"Romance is for decrepit old fucks," she rolls her eyes. "Nuh uh. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 	
 	act'It''s easy':
 		cla & *nl
 		'"It''s easy," you shrug. "I don''t have to do any work. Just lay there and get dicked."'
-		'"Holy <i>fuck!</i> You sound like a dull lay," she rolls her eyes. "I can''t believe you''re the kind of girl who starfishes. Not only that, but you actually <i>like</i> it! Nuh uh. Not me. Give it to me <i>dirty</i>. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"Holy <i>fuck!</i> You sound like a dull lay," she rolls her eyes. "I can''t believe you''re the kind of girl who starfishes. Not only that, but you actually <i>like</i> it! Nuh uh. Not me. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 end
 
 if $ARGS[0] = 'Missionary2':
-	'You both agree to disagree, but find yourself a little turned on by her comment. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -279,45 +280,34 @@ if $ARGS[0] = 'Doggystyle':
 	gs 'stat'
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-	'"I like doggystyle. Just thinking about it getting fucked from behind turns me on."'
-	'"That''s my girl!" Albina grins back at you. "What''s your favorite thing about it?"'
+	'"I like doggystyle."'
+	'"That''s my girl!" Albina cheers excitedly. "What''s your favorite thing about it?"'
 	act'It''s more intense':
 		cla & *nl
-		'"It''s more intense," you gush. "Soemthing about it just feels primal and <i>aggressive</i>, you know what I mean?"'
-		'"Oh yeah! Getting bent over and pounded from behind is the <i>best!</i> Especially when they spank me! The harder, the better!" You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"There''s something <i>intense</i> about it," you say. "Something primal. I can''t explain it, but when I get fucked from behind, it drives me wild."'
+		'"I definitely get that," Albina says. "I love that about it too. All I want from a guy is for him to grab me by the hair, shove his cock up my ass, and spank me til I come. Best night ever."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
 	act'It goes deeper':
 		cla & *nl
-		'"I love how deep it goes," you smile. "It feels like his cock just reaches further inside me in doggy style. I don''t get that kind of dicking in other positions."'
-		'"Ugh! <i>Yes!</i> I love that about it too! Balls deep, right up the ass! Split my cheeks in half! And spank me while you''re at it! The harder, the better!" You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"It goes deeper in doggy," you explain. "I feel like it <i>fills</i> me, hitting every part of my insides. It just feels the best in that position."'
+		'"Fuck yeah," Albina says. "Doggy is the only way to <i>really</i> get balls deep inside a girl. And then when you get grabbed by the hair and pulled back even harder? And when he shoves it up your ass and spanks you? Fuck me, I could come just thinking about it."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
 	act'Easy spankings':
 		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "Preach it! If my ass isn''t red and tender by the end, then you didn''t really fuck me." You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"I love getting spanked," you grin.'
+		'"Fuck yeah!" Albina shouts, high fiving you so hard it hurts. "There''s nothing I love more than a cock balls deep up my ass and being spanked until it''s red and tender. If I can still sit down without wincing after, then you didn''t really fuck me."'
 		gs'albina_chat','Doggystyle2'
 	end
-!!{	
-	act'I like having my hair pulled':
-		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "That''s the best part! " You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
-		gs'albina_chat','Doggystyle2'
-	end
-	
-	act'I like having my hair pulled (shy)':
-		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "That''s the best part! " You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
-		gs'albina_chat','Doggystyle2'
-	end}
 end
 
 if $ARGS[0] = 'Doggystyle2':
+	pcs_horny += 15
+	gs'stat'
+	'You giggle at her answer, feeling warmth blossoming between your hips and wetness seeping from your pussy. With the "fuck me eyes" Albina is giving you think she''s probably feeling something similar.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -327,32 +317,34 @@ if $ARGS[0] = 'Cowgirl':
 	gs 'stat'
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-	'"Cowgirl," you admit.'
-	'"Oh, so little <<$pcs_nickname>> here likes riding dick? Who knew?" she smiles teasingly.'
-	act'I like the angle':
+	'"I like cowgirl," you admit.'
+	'"Oh?" She raises an eyebrow curiously. "That''s what you''re into?"'
+	act'It feels better':
 		cla & *nl
-		'"I just like the angle," you shrug. "Dick hits all the right spots when I''m on top."'
-		'"Nuh uh," she wags her finger. "If you want a real dicking, you can only get it from behind. Cock will only reach the deepest part of you if you''re getting pulled balls deep by the hair onto it."'
+		'"It just feels better," you shrug. "I don''t know how to explain it. The angle? Just the way it fits inside when I''m on top? It feels good. What can I say?"'
+		'"I think it feels best in doggy," Albina says. "It goes way deeper and you can get surprise anal in that position which is the <i>best</i> kind of anal. Plus spankings. If I can''t sit down after a fuck, it was a good fuck."'
 		gs'albina_chat','Cowgirl2'
 	end
 	
-	act'I like my boobs being grabbed':
+	act'I like being in control':
 		cla & *nl
-		'"I like it when the guy grabs my boobs," you giggle. "It''s the best position for it because his hands are free. All I have to do is bounce on his cock and feel good."'
-		'"You''re a boob slut? I should have known," she rolls her eyes. "No way, it''s all about getting spanked. Cock stuffed up your ass, hair yanked back, and cheeks slapped red and raw. That''s what it''s all about!"'
+		'"I like being in control," you explain. "If I want to go slow, I can go slow. If I want to go fast, I can ride him as hard as I like. It makes me feel... powerful? Just knowing that I''m the one in charge is such a turn on for me."'
+		'"I don''t think that kind of stuff matters to me," Albina shrugs back. "I like it hard and rough every time. Don''t get all slow and gentle with me. If I''m gonna get fucked, I want to <i>feel</i> it. I''d rather get my face stuffed into the sheets with a cock balls deep up my ass and spanked until my eyes water. At the end of it, I want my makeup to look as fucked as I feel. Now <i>that''s</i> a good time!"'
 		gs'albina_chat','Cowgirl2'
 	end
-	
-	act'I like being in control':
+		
+	act'I like it when he grabs my boobs':
 		cla & *nl
-		'"I like being in control," you say with a dirty grin. "When I''m on top, I can do whatever I want. I can ride him hard, I can tease him slow, and he only cums when I want him to."'
-		'"That''s what you''re into?" Albina asks quizzically. "I prefer getting roughed up. Hair yanked back, cock stuffed into my holes, ass spanked raw. Hell, I think I could almmost get off on seeing my reflection when my makeup is all fucked up afterwards. Nothing is better than feeling like a limp dishrag after the end of a hard fuck."'
+		'"I like having my boobs grabbed," you grin. "If I''m on top, then his hands are free to grope me."'
+		'"But he can still grab your tits from behind," Albina argues. "Plus, he can spank you til you''re red and wriggling. Why choose when you can have both?"'
 		gs'albina_chat','Cowgirl2'
 	end
 end
 
 if $ARGS[0] = 'Cowgirl2':
-	'You both agree to disagree, but find yourself a little turned on by her comment. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -438,22 +430,260 @@ end
 
 if $ARGS[0] = 'wine_invite':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
-	'"Albina gets very tipsy."'
+	'As the two of you head back inside the house, Albina turns towards you, grabbing your attention.'
+	if albina['wine'] = 0:
+		'"Hey, wanna break open a bottle of wine with me? Really warms you up after a quick dip."'
+	else
+		'"Hey, wanna drink some wine with me again?"'
+	end
+	act'No thanks':
+	
+	end
+	
+	act'Sure':
+		cla & *clr
+		!! IMAGE HERE
+		if albina['wine'] = 0:
+			'"Sure, that sounds nice. Should I just get dressed and meet you back-"'
+			'"Nah, fuck that," Albina cuts you off and drags you to the living room. "It tastes better the sooner you drink it after coming out."'
+			'She puts you down on the couch and saunters over to the wine cabinet, plucking out a bottle and two glasses. You wait awkwardly while she opens the bottle, feeling weird about sitting naked in the middle of her house. Soon, she hands you a glass and plops down next to you.'
+			'"Cheers!" she grins, clinking her glass against yours and takes a sip from her glass. You do the same, feeling the warmth spread through your chest almost immediately.'
+			*nl
+			'<i>Wow, that <b>is</b> really nice after getting out of the water,</i> you think, taking another sip.'
+		else
+			'"Sure," you smile.'
+			'"Great, I''ll go get the bottle."'
+			'You head over to her living room with her, sitting down on the couch while she procures the alcohol. A short time later, she places a glass in your hand and clinks hers against it.'
+			'"Cheers!" she grins, and you both start enjoying your wine together.'
+		end
+		act'Drink':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+			if albina['wine'] = 0:
+				'A short while later, you find yourself feeling very warm, fuzzy, and <i>very</i> dizzy, halfway through your second glass. Albina is already sipping from her third glass, head laid on your lap after emptying the bottle. The flush in her cheeks and the slur of her voice tells you she''s totally drunk. You''re not sure your own lips are working right either. Or is it your tongue? What makes you talk funny when you''re drunk? Is it your lips, your tongue, or your brain?'
+				*nl
+				'"<<$pcs_nickname>>!" Albina whines. "I''m fuckin'' talkin'' to you!"'
+				'You blink, confused.'
+				act'"What did you say?"':gt'albina_chat','wine_chat1'
+			else
+				'You''re not sure if you expected something else, but a short while later you find yourself drunk on the couch with Albina again.'
+				act'Drunkenly converse with Albina':gt'albina_chat','wine_chat1'
+			end
+		end
+	end
 end
 
-if $ARGS[0] = 'wine_chat':
+if $ARGS[0] = 'wine_chat1':
+	albina['wine_convo'] = rand(1,7)
+	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
-	
 	if albina['wine_convo'] = 1:
+		'"I loave the taste of my own pusshy," she says loudly. "Iz that weird?"'
+		act'Super weird':
+			cla & *nl
+			'"Thad''s suhper fucking weird," you slur back.'
+			'"Bullshit!" she complains even louder. "You cahn''t tell me you dohn''t like the taste of ''ur own brand now and again."'
+			gs'albina_chat','wine_chat2'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'I like mine too':
+			cla & *nl
+			if pcs_vag > 0 and stat['bj'] > 0:
+				'"I l''ke the taste of my pussy too," you slur back. "It tastdes even better when it''s on a dick."'
+				'"You''r a fuhcking slut <<$pcs_nickname>>," Albina blurts out, sending both of you into giggles.'
+			elseif stat['mast'] > 0:
+				'"I l''ke the taste of my pussy too," you slur back. "Sometimes I stdick my fingers in my mouf after I masdurbate, lick it all off."'
+				'"Oh fuck, I do that to! Suck my dildo fucking clean right after I come. It mahkes me wahnt to rub another one out after!" Albina giggles, rubbing her thighs together.'
+			else
+				'"I l''ke the taste of my pussy too," you slur back.'
+				'"I fuhcking knew it!" Albina exclaims. "Every girl loves her own juice!"'
+				'"If you knew, then why are you asking if it''s weird?" you ask, puzzled.'
+				'"I jus'' wanted to see if <i>you</i> were the weird one!" Albina mumbles, voice echoing off the inside of the glass as she takes another sip.'
+			end
+			gs'albina_chat','wine_chat2'
+		end
+		if npc_sex['A23'] = 1:
+			act'I like your taste too':
+				cla & *nl
+				'"I like the taste of your pussy too," you slur back, giving her a filthy grin.'
+				'"Nnnngh~!" Albina rolls her hips, squeezing her thighs together hard. "Fuhck! You make me want to shove your head between my legs right now!"'
+				gs'albina_chat','wine_chat2'
+			end
+		end
+	elseif albina['wine_convo'] = 2:
+		'Shaving convo'
+	elseif albina['wine_convo'] = 3:
+		'"Honest question Sveta. How would dominate me in bed?"'
+	elseif albina['wine_convo'] = 4:
+		'"How often do you masturbate Sveta? Do you have any dildos? Ever double penetrated yourself with them? Ever wanted to try it?"'
+	elseif albina['wine_convo'] = 5:
+		'"What''s the sluttiest thing you''ve ever done?"'
+	elseif albina['wine_convo'] = 6:
+		'boob size'
+	elseif albina['wine_convo'] = 7:
+		if albina['commando_know'] = 0:gt'albina_chat','wine_chat1'
+		'"So, you really don''t wear panties?" Albina slurs, turning her head toward your pussy. "Like, ev''r?"'
+		if trait['commando_lvl'] = 3:
+			act'Only when I have to':
+				cla & *nl
+				'"Only when I have to," you say, wrinkling your nose in annoyance. "Sometimes you just can''t get away with it."'
+				'"Like when?" she asks curiously.'
+				act'School':
+					cla & *nl
+					'"At school," you sigh tiredly. "If I don''t, all the teachers will look up my skirt during class."'
+					'"All of them??" Albina looks confused. "I get the males, men are pigs. The women too? Whad ''bout Ms. Braakman??"'
+					'"Especially her!" you say, sending you both into fits of laughter.'
+					gs'albina_chat','wine_chat2'
+				end
+				act'Disco':
+					cla & *nl
+					'"At the disco," you sigh tiredly. "Everyone will think I''m a slut if they see me flash puss on the dance floor."'
+					'"That''s why I wear thongs," Albina smirks proudly. "All the ass, none of the slut shame."'
+					'"That''s why I wear <i>pants</i>," you retort. "No one can tell you''re going commando when you''re wearing pants."'
+					'"But don''t all commandos wear pants?"'
+					'Albina narrows her eyes and looks up at you, while you stare down at her.'
+					'"I... shuddup!"'
+					gs'albina_chat','wine_chat2'
+				end
+			end
+			
+			act'Nope, never':
+				cla & *nl
+				'"Nope!" you say, popping the P with your lips. "Neverrrrrr."'
+				'"Doesn''t your pussy get cold?"'
+				'"Nneh," you shrug. "You ged used to it."'
+				gs'albina_chat','wine_chat2'
+			end
+						
+			act'I hate them':
+				cla & *nl
+				'"Neverrr!" you say, wrinkling your nose. "I <i>hate</i> wearing them!"'
+				'"Doesn''t your pussy get itchy when you wear pants?" she asks back.'
+				'"My pussy is tough as nails!" you proclaim proudly. "My pussy doesn''t need no pussy soft panties to protect it!"'
+				'"What?" Albina looks confused. "That doesn''t make any sense at all..."'
+				gs'albina_chat','wine_chat2'
+			end
+		elseif trait['commando_lvl'] < 0:
+			act'Not never':
+				cla & *nl
+				'"Not <i>never</i>," you slur. "Sometimes I just... skip the part where I put them on..."'
+				'"Hah! Slut!" she shouts, taking another slurp of her wine.'
+				gs'albina_chat','wine_chat2'
+			end
+			
+			act'Rarely':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			
+			end
+		else
+			albina['commando_know'] = 0
+			act'Nope, never':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			end
+			
+			act'I hate them':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			
+			end
+			
+		end
+	elseif albina['wine_convo'] = 8:
+		'"Do you think I would make a good stripper?" Albina asks.'
+		act'Probably':
+			cla & *nl
+			'"Probably," you mumble back. "You can dance and love shoving your ash in peopl''sh faces. Primo stripper qualities. Why do you ask?"'
+			'"Was thinking about how to pay for uni. Mama could probably do it for me, but what if I want some extra cash on the side?"'
+			gs'albina_chat','wine_chat2'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'Too bitchy':
+			cla & *nl
+			'"Nah." You wave your glass dismissively. "You''re too bitchy."'
+			'"Bitchy?!" she gasps, mouth agape in indignation.'
+			'"Yeah, too bitchy."'
+			'"What the fuck is that supposed to mean?"'
+			'"You''d rip someone''s balls off first time you get called a slut or a whore. You couldn''t put up with enough bullshit to be a stripper."'
+			'"... fuck, you''re right."'
+			'"See? Bitchy," you smile, smuggly sipping your wine.'
+			'"Oh fuck off," she grumbles back, taking a much bigger gulp.'
+			gs'albina_chat','wine_chat2'
+		end
+	end
+end
+
+if $ARGS[0] = 'wine_chat2':
+	act'Call her a butt slut':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'"You''re such a butt slut Albina," you remark, taking another sip from your glass.'
+		'"Fuck yeah, I am. And I <i>love</i> being one," she grins back, almost spilling her wine all over her face when you both cackle with uncontrollable laughter.'
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'Spit or swallow?':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'"So, spit or swallow?" you ask, looking down at Albina.'
+		'"Swallow, duh.'
+		act'Ew, gross':
+			cla & *nl
+			'"Ewww," you wrinkle your nose in disgust. "Thad''s fucking gross! I can''t believe you do that!"'
+			'"Waht else am I suppozed do?"'
+			'"Just spit it out!"'
+			'"But if he comes in your mouth, that means he wants you to swallow, right?" she says, looking genuinely confused that you''re suggesting there''s a choice.'
+			act'Continue':gt'albina_chat','wine_chat1'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'Me too':
+			cla & *nl
+			'"Me too," you mumble. "Spitting is quitting."'
+			'"Amen sizter," Albina says, throwing up her hand and high fiving you.'
+			act'Continue':gt'albina_chat','wine_chat1'
+		end
+		if trt_cumeater > 0:
+			act'I love the taste':
+				cla & *nl
+				'"Me too," you smile. "I love the way it feels, going down my throat. Taste is pretty good too."'
+				'"What the fuck?" Albina says, looking at you with digust. "You actually like the taste of cum?"'
+				'"Yeah, it''s why I swallow. You don''t like it?"'
+				'"No! It fuckin'' tastes like shit!"'
+				'"Then why do you do it?"'
+				'"Cuz you''re supposed to? If he comes in my mouth, I can''t spit it out," she says, looking genuinely confused that you''re suggesting there''s a choice.'
+				act'Continue':gt'albina_chat','wine_chat1'
+			end
+		end
+	end
+	
+	act'Your mom is is very pretty':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'With Albina right on your lap, you find your thoughts drifting to her mother. Her hair, her facial structure, she really is her mother''s daughter. It''s easy to tell where she got her good looks from.'
+		'"Your mom is fucking hot," you suddenly blurt out, your mouth autocompleting your thought before it actually passes through your brain. You freeze in panic.'
+		'"Fucking hell, I <i>knowwwwwwww</i>," Albina whines beneath you. "I gots ass fer dayz, but she''s gots tits to match. Big fucking bootyful bounshy tits that give ''er cleavage in a t-shirt. <i>And</i> a great ass! Life is so un-fucking-fair..."'
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
 		
-	elseif albina['wine_convo'] = 1:
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
 		
+		act'Continue':gt'albina_chat','wine_chat1'
 	end
 end
 

locations/arousal.qsrc

@@ -800,8 +800,8 @@ if $ARGS[0] = 'end':
 	if stim['hidden_lesbian'] = 1: hidden_lesbian += 1
 	if stim['gang'] = 1 or stim['group'] = 1: gang += 1
 	if stim['hidden_gang'] = 1 or stim['hidden_group'] = 1: hidden_gang += 1
-	if stim['gloryhole'] = 1: gloryhole += 1
-	if stim['hidden_gloryhole'] = 1: hidden_gloryhole += 1
+	if stim['gloryhole'] = 1: stat['gloryhole'] += 1
+	if stim['hidden_gloryhole'] = 1: stat['hidden_gloryhole'] += 1
 	if stim['rape'] = 1: rape += 1
 	if stim['hidden_rape'] = 1: hidden_rape += 1
 	if stim['futa'] = 1: futa += 1

locations/artgar.qsrc

@@ -28,7 +28,7 @@ if apmeet = 0:
 		if npc_Sex['A2'] = 0: npc_Sex['A2'] = 1 & guy += 1
 		if npc_Sex['A6'] = 0: npc_Sex['A6'] = 1 & guy += 1
 		cumface += 2
-		facial += 1
+		
 		gs 'pain', 1, 'eyes', 'burn'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial19.jpg"></center>'
@@ -75,7 +75,7 @@ elseif apmeet = 1:
 			if npc_Sex['A2'] = 0: npc_Sex['A2'] = 1 & guy += 1
 			if npc_Sex['A6'] = 0: npc_Sex['A6'] = 1 & guy += 1
 			cumface += 2
-			facial += 1
+			
 			gs 'arousal', 'bj', 10, 'sub', 'humiliation', 'group'
 			gs 'arousal', 'anal_dildo', 5, 'sub', 'humiliation', 'rough'
 			gs 'arousal', 'end'

locations/arturdin.qsrc

@@ -207,7 +207,7 @@ if $ARGS[0] = 'cum':
 	minut += 5
 	spafinloc = 11
 	gs 'cum_call', 'face', 'A73', 1
-	facial += 1
+	
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/sex/cum0.jpg"></center>'
 	'Arthur suddenly yanks you up out of bed, nearly dislocating your arm, before pushing you to your knees. He grunts, stroking his cock, as a jet of sperm hits you in the face.'

locations/begin.qsrc

@@ -3,6 +3,11 @@
 if $ARGS[0] = 'start':
 	$loc_arg = 'start'
 	$loc = 'begin'
+	timerEnd = 8
+	timerEndM = 0
+	timer = 6
+	timerM = 30
+
 	gs 'Cheatmenu_din'
 	showstat 1
 	'<center><b><font color="maroon">CHOOSE GAME START</font></b></center>'

locations/belpicknick.qsrc

@@ -471,7 +471,7 @@ if $ARGS[0] = 'gang':
 		sexpartkno = 1
 		spafinloc = 12
 		gs 'cum_manage'
-		facial += 1
+		
 		gs'stat'
 		belsexpayment = 900
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/sex/bukkake.jpg"></center>'

locations/body.qsrc

@@ -2007,8 +2007,8 @@ if $ARGS[0] = '':
 		$pcdesc_makeupwordy = 'really fucking bimbo-y'
 		$pcs_makeup = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
 		$pcs_makeup_msg = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
-		$pcs_makeup_tooltip = 'Your makeup is professional grade.'
-		mopkoef = 30
+		$pcs_makeup_tooltip = 'OMG! your makeup is sooo bimbo fine.'
+		if bimbolevel >= 2: extra_supnatvnesh = 2*bimbolevel - 2
 	end
 
 	if pcs_leghair <= 0:
@@ -2320,7 +2320,7 @@ if $ARGS[0] = '':
 	tempAccessoriesBonus = FUNC('body', 'calcAccessoriesBonus', bonusZ, PShoQuality, $pantyworntype, $braworntype)
 	tempGroomingBonus = FUNC('body', 'calcGroomingBonus', pcs_lipbalm, mopkoef, pcs_hairbsh, pcs_breath, deodorant_on, bmi_calc)
 	tempGroomingPenalty = FUNC('body', 'calcGroomingPenalty', pcs_hairlng, pcs_sweat, glassvnesh, dyevmod, legkoef)
-	Hotcat = FUNC('body', 'calcHotcat', pcs_apprncbase, supnatvnesh, tempclothingbonus, tempAccessoriesBonus, tempGroomingBonus, tempGroomingPenalty)
+	Hotcat = FUNC('body', 'calcHotcat', pcs_apprncbase, (supnatvnesh + extra_supnatvnesh), tempclothingbonus, tempAccessoriesBonus, tempGroomingBonus, tempGroomingPenalty)
 	pcs_apprnc = temppcs_apprnc & killvar 'temppcs_apprnc' & killvar 'temppcs_maxapprnc'
 
 

locations/body_shape.qsrc

@@ -244,8 +244,8 @@ if $ARGS[0] = '':
 	if salolast < salo: salolast += 1
 
 !!Setting the pcs_apprnc bonus based on fat and strength
-	bmi_calc = FUNC('body_shape', 'bmicalc', salo, pcs_hgt)
-	bodykoef = FUNC('body_shape', 'setbodykoef', bmi_calc, strenbuf, salocatnow, vofat)
+	bmi_calc = FUNC('body_shape', 'bmicalc')
+	bodykoef = FUNC('body_shape', 'setbodykoef')
 
 !!This is to clean up unused variables
 	killvar 'normbuffpick' & killvar 'nrmbfpckct'
@@ -255,30 +255,26 @@ end
 
 if $ARGS[0] = 'setbodykoef':
 	!!Setting the pcs_apprnc bonus based on fat and strength
-	tempbmi_calc = ARGS[1] & !! result of bmicalc
-	tempstrenbuf = ARGS[2] & !!strenbuf
-	tempsalocatnow = ARGS[3] & !! salocatnow
-	tempvofat = ARGS[4] & !! vofat
 
-	if tempbmi_calc < 16:
+	if bmi_calc < 16:
 		!! severely underweight
 		tempbodykoef = 30
-    elseif tempbmi_calc < 19:
+    elseif bmi_calc < 19:
 		!! underweight
 		tempbodykoef = 65
-    elseif tempbmi_calc < 25:
+    elseif bmi_calc < 25:
 		!! healthy weight
 		tempbodykoef = 85
-    elseif tempbmi_calc < 30:
+    elseif bmi_calc < 30:
 		!! overweight
 		tempbodykoef = 75
-    elseif tempbmi_calc < 35:
+    elseif bmi_calc < 35:
 		!! moderately obese
 		tempbodykoef = 45
-    elseif tempbmi_calc < 40:
+    elseif bmi_calc < 40:
 		!! severely obese
 		tempbodykoef = 25
-    elseif tempbmi_calc < 45:
+    elseif bmi_calc < 45:
 		!! very severely obese
 		tempbodykoef = 5
     else
@@ -286,44 +282,34 @@ if $ARGS[0] = 'setbodykoef':
 		tempbodykoef = 0
     end
 
-	if tempstrenbuf >= 80:
+	if strenbuf >= 80:
 		tempbodykoef += 8
-	elseif tempstrenbuf >= 60:
+	elseif strenbuf >= 60:
 		tempbodykoef += 10
-	elseif tempstrenbuf >= 40:
+	elseif strenbuf >= 40:
 		tempbodykoef += 8
-	elseif tempstrenbuf >= 20:
+	elseif strenbuf >= 20:
 		tempbodykoef += 5
 	else
 		tempbodykoef += 2
 	end
 
 !!This modifies bodykoef for high or low salo values
-	if tempsalocatnow = 0 or tempsalocatnow >= 7:
+	if salocatnow = 0 or salocatnow >= 7:
 		tempbodykoef -= 8
-	elseif tempsalocatnow = 1 or tempsalocatnow = 6:
+	elseif salocatnow = 1 or salocatnow = 6:
 		tempbodykoef -= 4
 	end
 
-	if tempvofat > 0: tempbodykoef -= tempvofat
+	if vofat > 0: tempbodykoef -= vofat
 
 	result = tempbodykoef
 
-	killvar 'tempbmi_calc'
 	killvar 'tempbodykoef'
-	killvar 'tempbodyFat'
-	killvar 'temppcs_hgt'
-	killvar 'tempstrenbuf'
-	killvar 'tempsalocatnow'
-	killvar 'tempvofat'
 end
 
 if $ARGS[0] = 'bmicalc':
-	!! ARGS[1] salo
-	!! ARGS[2] pcs_hgt
-	tempbmi_calc = 10000 * (30 + ARGS[1] / 2 + (ARGS[2] - 170) * 7 / 10) / (ARGS[2] * ARGS[2])
-	result = tempbmi_calc
-	killvar 'tempbmi_calc'
+	result = 10000 * (30 + salo / 2 + (pcs_hgt - 170) * 7 / 10) / (pcs_hgt * pcs_hgt)
 end
 
 if $ARGS[0] = 'bmiadjust':
@@ -492,7 +478,7 @@ if $ARGS[0] = 'initial':
 	!!pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
 	
 !!BMI Calculation
-	bmi_calc = FUNC('body_shape', 'bmicalc', salo, pcs_hgt)
+	bmi_calc = FUNC('body_shape', 'bmicalc')
 	
 !!BMI Descriptions
 	if bmi_calc < 16:
@@ -516,9 +502,9 @@ end
 
 if $args[0] = 'basebeautycalc':
 	if pcs_lashes <= 0: pcs_lashes = 0
-	pcs_HeadBonus = FUNC('body_shape', 'calcHeadBonus', pcs_lashes, pcs_eyesize, pcs_lip, pcs_teeth, bmi_calc)
-	tempAttributeBonus = FUNC('body_shape', 'calcAttributeBonus', pcs_agil, pcs_vital, bmi_calc)
-	pcs_apprncbase = FUNC('body_shape', 'basebeautycalc2', ARGS[1], vidage, pcs_skin, bodykoef, pcs_HeadBonus, tempAttributeBonus, pcs_apprncbase)
+	pcs_HeadBonus = FUNC('body_shape', 'calcHeadBonus')
+	tempAttributeBonus = FUNC('body_shape', 'calcAttributeBonus')
+	pcs_apprncbase = FUNC('body_shape', 'basebeautycalc2', ARGS[1])
 
 	if ARGS[1] = 0:
 !!	This is the rate of change limiter
@@ -547,105 +533,80 @@ if $args[0] = 'basebeautycalc':
 end 
 
 if $ARGS[0] = 'calcHeadBonus':
-	temppcs_lashes = ARGS[1] & !! pcs_lashes
-	temppcs_eyesize = ARGS[2] & !! pcs_eyesize
-	temppcs_lip = ARGS[3] & !! pcs_lip
-	temppcs_teeth = ARGS[4] & !! pcs_teeth (missing teeth)
-	tempbmi_calc = ARGS[5] & !! bmi_calc
 
 !!	Setting Eyelashes bonus
-	if temppcs_lashes <= 0:
+	if pcs_lashes <= 0:
 		resnicbonus = 0
-	elseif temppcs_lashes = 1:
+	elseif pcs_lashes = 1:
 		resnicbonus = 2
-	elseif temppcs_lashes = 2:
+	elseif pcs_lashes = 2:
 		resnicbonus = 5
-	elseif temppcs_lashes = 3:
+	elseif pcs_lashes = 3:
 		resnicbonus = 7
-	elseif temppcs_lashes = 4:
+	elseif pcs_lashes = 4:
 		resnicbonus = 8
-	elseif temppcs_lashes = 5:
+	elseif pcs_lashes = 5:
 		resnicbonus = 10
 	else
 		resnicbonus = 0		
 	end
-	resnicbonus = FUNC('body_shape', 'bmiadjust', resnicbonus, tempbmi_calc)
+	resnicbonus = FUNC('body_shape', 'bmiadjust', resnicbonus, bmi_calc)
 
 !!	Setting Eye Size bonus
-	if temppcs_eyesize = 1:
+	if pcs_eyesize = 1:
 		glarazbonus = 1
-	elseif temppcs_eyesize = 2:
+	elseif pcs_eyesize = 2:
 		glarazbonus = 3
-	elseif temppcs_eyesize = 3:
+	elseif pcs_eyesize = 3:
 		glarazbonus = 2
 	else
 		glarazbonus = 0
 	end
-	glarazbonus = FUNC('body_shape', 'bmiadjust', glarazbonus, tempbmi_calc)
+	glarazbonus = FUNC('body_shape', 'bmiadjust', glarazbonus, bmi_calc)
 
 !!	Setting the Lip size bonus
-	if temppcs_lip = 0:
+	if pcs_lip = 0:
 		lipbonus = -2
-	elseif temppcs_lip = 1:
+	elseif pcs_lip = 1:
 		lipbonus = 0
-	elseif temppcs_lip = 2:
+	elseif pcs_lip = 2:
 		lipbonus = 3
-	elseif temppcs_lip = 3:
+	elseif pcs_lip = 3:
 		lipbonus = 5
 	else
 		lipbonus = 3
 	end
-	lipbonus = FUNC('body_shape', 'bmiadjust', lipbonus, tempbmi_calc)
+	lipbonus = FUNC('body_shape', 'bmiadjust', lipbonus, bmi_calc)
 	
-	teethcalc = (5 * temppcs_teeth)
-	if teethcalc < 0: teethcalc = FUNC('body_shape', 'bmiadjust', teethcalc, tempbmi_calc)
-
-	tempHeadBonus = resnicbonus + glarazbonus + lipbonus - teethcalc
+	teethcalc = (5 * pcs_teeth)
+	if teethcalc < 0: teethcalc = FUNC('body_shape', 'bmiadjust', teethcalc, bmi_calc)
 
-	result = tempHeadBonus
+	result = resnicbonus + glarazbonus + lipbonus - teethcalc
 
-	killvar 'temppcs_lashes'
-	killvar 'temppcs_eyesize'
-	killvar 'temppcs_lip'
-	killvar 'temppcs_teeth'
-	killvar 'tempHeadBonus'
-	killvar 'tempbmi_calc'
 end
 
 if $ARGS[0] = 'calcAttributeBonus':
-	temppcs_agil = ARGS[1] & !! pcs_agil
-	temppcs_vital = ARGS[2] & !! pcs_vital
-	tempbmi_calc = ARGS[3] & !! bmi_calc
+	tempAttributeBonus = (pcs_agil / 10) + (pcs_vital / 10)
 
-	tempAttributeBonus = (temppcs_agil / 10) + (temppcs_vital / 10)
-	tempAttributeBonus = FUNC('body_shape', 'bmiadjust', tempAttributeBonus, tempbmi_calc)
-
-	result = tempAttributeBonus
-	killvar 'temppcs_agil'
-	killvar 'temppcs_vital'
+	result = FUNC('body_shape', 'bmiadjust', tempAttributeBonus, bmi_calc)
 	killvar 'tempAttributeBonus'
-	killvar 'tempbmi_calc'
 end
 
 !!This is the calculation for the base appearance if calling for testing always set ARGS[1] to 1
 if $args[0] = 'basebeautycalc2':
 	!!ARGS[1] reset pcs_apprncbase
-	tempvidage = ARGS[2] & !! vidage
-	temppcs_skin = ARGS[3] & !! pcs_skin
-	tempbodykoef = ARGS[4] & !! bodykoef
-	tempHeadBonus = ARGS[5] & !! result of calcHeadBonus
-	tempAttributeBonus = ARGS[6] & !! result of calcAttributeBonus
-	temppcs_apprncbase = ARGS[7] & !! pcs_apprncbase
+	!! result of pcs_HeadBonus
+	!! result of calcAttributeBonus
 
 
 !!	Setting vidagebonus
 	vidagebonus = 100
-	if tempvidage < 20: vidagebonus = 60 + (2 * tempvidage)
-	if tempvidage > 30: vidagebonus = 160 - (2 * tempvidage)
+	if vidage < 20: vidagebonus = 60 + (2 * vidage)
+	if vidage > 30: vidagebonus = 160 - (2 * vidage)
 
 !!	Preforming the calculation
-	skincalc = (temppcs_skin * 2 / 5)
-	vneshtemp = vidagebonus * (skincalc + tempbodykoef + tempAttributeBonus + tempHeadBonus) / 100
+	skincalc = (pcs_skin * 2 / 5)
+	vneshtemp = vidagebonus * (skincalc + bodykoef + tempAttributeBonus + pcs_HeadBonus) / 100
 
 !!	pcs_skin = skin condition, corrected to a 0 to 40 range; bodykoef set in main body_shape; pcs_teeth is missing teeth or cosmetically improved teeth (-1)
 
@@ -656,17 +617,13 @@ if $args[0] = 'basebeautycalc2':
 	vneshtemp += supnatvnesh
 
 !!	This is for use when a reset is called for by setting args[1] = 1
-	if args[1] = 1: temppcs_apprncbase = vneshtemp & killvar 'vneshtemp'
+	if args[1] = 1: pcs_apprncbase = vneshtemp & killvar 'vneshtemp'
 
-	result = temppcs_apprncbase
+	result = pcs_apprncbase
 
 !!	This is to clean up variables only used here
 	!!do not kill vneshtemp here it gets killed in basebeautycalc
-	killvar 'temppcs_apprncbase'
 	killvar 'skincalc'
-	killvar 'tempvidage'
-	killvar 'temppcs_skin'
-	killvar 'tempbodykoef'
 	killvar 'vidagebonus'
 	killvar 'tempHeadBonus'
 	killvar 'tempAttributeBonus'

locations/brother.qsrc

@@ -806,7 +806,7 @@ if $ARGS[0] = 'brotherSexStart':
 				npc_rel['A34'] += 5
 				gs 'boyStat', 'A34'
 				gs 'cum_call', 'face', 'A34', 1
-				facial += 1
+				
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'

locations/budilnik.qsrc

@@ -6,7 +6,7 @@ if $ARGS[0] = 'start':
 	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/home/bedroom/bed2.jpg"></center>'
-	*nl
+	'Enter time using number pad and click set to change alarm times, don''t forget to turn your alarm on.'
 	*nl
 
 	if numbud = 4:'<center><b><<bud1>><<bud2>>:<<bud3>><<bud4>></b></center>'
@@ -15,27 +15,38 @@ if $ARGS[0] = 'start':
 	if numbud = 1:'<center><b><<bud1>></b><<bud2>>:<<bud3>><<bud4>></center>'
 	if numbud = 0:'<center><<bud1>><<bud2>> : <<bud3>><<bud4>></center>'
 
-	*nl
+	'<center><b><a href="exec:gt ''budilnik'', ''clear''">Clear</a>'
 	'<center><b><a href="exec:gt ''budilnik'', ''1''">1</a> <a href="exec:gt ''budilnik'', ''2''">2</a> <a href="exec:gt ''budilnik'', ''3''">3</a></b></center>'
 	'<center><b><a href="exec:gt ''budilnik'', ''4''">4</a> <a href="exec:gt ''budilnik'', ''5''">5</a> <a href="exec:gt ''budilnik'', ''6''">6</a></b></center>'
 	'<center><b><a href="exec:gt ''budilnik'', ''7''">7</a> <a href="exec:gt ''budilnik'', ''8''">8</a> <a href="exec:gt ''budilnik'', ''9''">9</a></b></center>'
 	'<center><b><a href="exec:gt ''budilnik'', ''0''">0</a></b></center>'
-	'<center><b><a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Reset''">Reset (week)</a> <a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Time''">Set this time for the week</a></b></center>' 
-	'<center><b><a href="exec:  bud_weekend = 1 & gt ''budilnik'', ''Reset''">Reset (weekend)</a> <a href="exec: bud_weekend = 1 & gt ''budilnik'', ''Time''">Set this time for the weekend</a></b></center>'
+	'<center><b><a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Reset''">Reset weekday alarm</a> <a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Time''">Set</a> weekday alarm to this time</b></center>'
+	'<center><b>Currently set for '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' </b></center>'
+	'<center><b><a href="exec:  bud_weekend = 1 & gt ''budilnik'', ''Reset''">Reset weekend alarm</a> <a href="exec: bud_weekend = 1 & gt ''budilnik'', ''Time''">Set</a> weekend alarm to this time</b></center>'
+	'<center><b>Currently set for '+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b></center>'
 	if Storyline > 0 and alarm_holiday = 0:
-		'<center><b><a href="exec:  alarm_holiday = 1 & gt ''budilnik'', ''start''">Use weekend alarm for holidays</a></b></center>'
+		'<center><b>Use weekend alarm for holidays - <a href="exec:  alarm_holiday = 1 & gt ''budilnik'', ''start''">OFF</a></b></center>'
 	elseif Storyline > 0 and alarm_holiday = 1:
-		'<center><b><a href="exec:  alarm_holiday = 0 & gt ''budilnik'', ''start''">Stop using weekend alarm for holidays</a></b></center>'
+		'<center><b>Use weekend alarm for holidays - <a href="exec:  alarm_holiday = 0 & gt ''budilnik'', ''start''">ON</a></b></center>'
 	end
 
 	
 	*nl
 	if budilnikOn = 0:
-		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 1 & gt ''budilnik'', ''start''"><b>off</a></b></center>'
+		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 1 & gt ''budilnik'', ''start''"><b>OFF</a></b></center>'
 	else
-		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 0 & gt ''budilnik'', ''start''"><b>on</b></a></center>'
+		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 0 & gt ''budilnik'', ''start''"><b>ON</b></a></center>'
 		'<center>The alarm is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' during the week and to '+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+' during the weekend.</center>'		
 	end
+	act 'Clear time display':
+		cla
+		bud1 = 0
+		bud2 = 0
+		bud3 = 0
+		bud4 = 0
+		numbud = 0
+		gt 'budilnik', 'fin'
+	end
 	act 'Finish':
 		cla
 		bud1 = 0
@@ -47,6 +58,16 @@ if $ARGS[0] = 'start':
 	end
 end
 
+if $ARGS[0] = 'clear':
+	cla
+	bud1 = 0
+	bud2 = 0
+	bud3 = 0
+	bud4 = 0
+	numbud = 0
+	gt 'budilnik', 'fin'
+end
+
 if $ARGS[0] = 'Time':
 	cla
 	budilnikOn = 1

locations/burger.qsrc

@@ -261,7 +261,7 @@ if $ARGS[0] = 'dishes':
 										gs 'arousal', 'bj', 4, 'sub', 'humiliation'
 										gs 'boyStat', 'A74'
 										gs 'cum_call', 'mouth_swallow', 'A74', 1, 0, 10000, 13
-										facial += 1
+										
 										gs 'cum_call', 'face', 'A74', 1, 0, 10000, 27
 										gs 'stat'
 
@@ -532,7 +532,7 @@ if $ARGS[0] = 'dishes':
 				gs 'boyStat', 'A75'
 				gs 'arousal', 'bj', 3, 'sub'
 				gs 'cum_call', 'mouth_swallow', 'A75', 1
-				facial += 1
+				
 				gs 'cum_call', 'face', 'A75', 1
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -587,7 +587,7 @@ if $ARGS[0] = 'dishes':
 						gs 'cum_call', 'face', 'A75', 1
 						gs 'cum_call', 'face', $BurgerQW['GroupSex1']
 						gs 'cum_call', 'face', $BurgerQW['GroupSex2']
-						facial += 3
+						stat['facial'] += 3
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/tri2.jpg"></center>'
 						'Hot jets of sperm slap you in the face, you close your eyes and just feel the stinky seed on your skin. Soon after the sprays of semen stop and your face is all covered with a thick layer of sticky cum. The guys look satisfied and laugh at you. Afterwards they exit the warehouse leaving you by yourself.'
 

locations/burgerWork.qsrc

@@ -174,7 +174,7 @@ if $ARGS[0] = 'work2':
 						act 'Open your mouth':
 							*clr & cla
 							minut += 5
-							facial += 1
+							
 							gs 'boyStat', 'A76'
 							gs 'cum_call', 'face', 'A76', 1
 							gs 'stat'

locations/cfnm.qsrc

@@ -151,7 +151,7 @@ if $ARGS[0] = 'blow4':
 	*clr & cla
 	spafinloc = 11
 	gs 'cum_manage'
-	facial += 1
+	
 	fotoCFNMblowjobCum += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/facial.jpg"></center>'

locations/cikl.qsrc

@@ -217,12 +217,12 @@ if bimbo >= 40: bimbo = 40
 if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
 if  CheatBimbo3 = 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)
+	if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 4)
+	if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 3)
 elseif CheatBimbo3 = 1:
 	if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = 0
-	if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = 0
-	if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = 0
+	if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = 0
+	if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = 0
 end
 
 !!A Succubus cannot be a Bimbo

locations/city_center.qsrc

@@ -182,7 +182,7 @@ end
 'A few buildings away is <<$desc_txt1>> and <<$desc_txt2>>, a place for cheap fast food. For a more lavish dining experience, <<$desc_txt3>> is available.'
 *nl
 if week >= 4 and (hour >= 18 or hour <= 3):
-	$desc_txt3 = '<a href="exec:gt ''club'', ''start''">the nightclub</a>'
+	$desc_txt3 = '<a href="exec:gt ''city_nightclub'', ''start''">the nightclub</a>'
 else
 	$desc_txt3 = '<a href="exec:msg ''The nightclub is closed and will open from Friday to Sunday at 18:00''">The nightclub</a>'
 end

locations/city_clinic.qsrc

@@ -216,25 +216,47 @@ if $ARGS[0] = 'start':
 				'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
 			end
 
-			if money >= zubpay:
-				act 'Sort out your teeth':
-					*clr & cla
-					money -= zubpay
-					minut += 60
-					gs 'body_shape', 'basebeautycalc', 1
-					gs 'stat'
-					if pcs_teeth > 0:
-						pcs_teeth = 0
-						'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
-					else
-						pcs_teeth = -1
-						'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+			if money < zubpay and karta < zubpay:
+				*nl
+				'You do not have enough money to fix your teeth.'
+			else
+				if money >= zubpay:
+					act 'Sort out your teeth (cash)':
+						*clr & cla
+						money -= zubpay
+						minut += 60
+						gs 'body_shape', 'basebeautycalc', 1
+						gs 'stat'
+						if pcs_teeth > 0:
+							pcs_teeth = 0
+							'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+						else
+							pcs_teeth = -1
+							'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+						end
+
+						act 'Leave the clinic': minut += 5 & gt 'city_residential'
 					end
+				end
+				if karta >= zubpay:
+					act 'Sort out your teeth (card)':
+						*clr & cla
+						karta -= zubpay
+						minut += 60
+						gs 'body_shape', 'basebeautycalc', 1
+						gs 'stat'
+						if pcs_teeth > 0:
+							pcs_teeth = 0
+							'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+						else
+							pcs_teeth = -1
+							'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+						end
 
-					act 'Leave the clinic': minut += 5 & gt 'city_residential'
+						act 'Leave the clinic': minut += 5 & gt 'city_residential'
+					end
 				end
 			end
-				
 			act 'Leave the clinic': minut += 5 & gt 'city_residential'
 		end
 	end
@@ -269,43 +291,70 @@ if $ARGS[0] = 'start':
 			act 'Return to the entrance':gt 'city_clinic', 'start'
 
 			if glass = 1:
-				if money >= 4500:
-					act 'Buy glasses (4,500 <b>₽</b>)':
-						cls
-						money -= 4500
-						minut += 60
-						glass = 2
-						gs 'stat'
-						'You buy a new, more stylish pair of glasses.'
-
-						act 'Return to the entrance':gt 'city_clinic', 'start'
-					end
-				else
+				if money < 4500 and karta < 4500:
 					*nl
 					'You can not afford the more stylish glasses.'
+				else
+					if money >= 4500:
+						act 'Buy glasses (4,500 <b>₽</b>) (cash)':
+							cls
+							money -= 4500
+							minut += 60
+							glass = 2
+							gs 'stat'
+							'You buy a new, more stylish pair of glasses.'
+
+							act 'Return to the entrance':gt 'city_clinic', 'start'
+						end
+					end
+					if karta >= 4500:
+						act 'Buy glasses (4,500 <b>₽</b>) (card)':
+							cls
+							karta -= 4500
+							minut += 60
+							glass = 2
+							gs 'stat'
+							'You buy a new, more stylish pair of glasses.'
+
+							act 'Return to the entrance':gt 'city_clinic', 'start'
+						end
+					end
 				end
 			end
 
 			if glass ! 0:
-				if money >= 75000:
-					act 'Pay for laser correction (75,000 <b>₽</b>)':
-						cls
-						money -= 75000
-						minut += 60
-						blizoruk = 0
-						glass = 0
-						gs 'stat'
-						'You undergo laser eye surgery. Your eyesight is much better now.'
-						act 'Return to the entrance':gt 'city_clinic', 'start'
-					end
-				else
+				if money < 75000 and karta < 75000:
 					*nl
 					'You can not afford the laser eye correction surgery.'
+				else
+					if money >= 75000:
+						act 'Pay for laser correction (75,000 <b>₽</b>) (cash)':
+							cls
+							money -= 75000
+							minut += 60
+							blizoruk = 0
+							glass = 0
+							gs 'stat'
+							'You undergo laser eye surgery. Your eyesight is much better now.'
+							act 'Return to the entrance':gt 'city_clinic', 'start'
+						end
+					end
+					if karta >= 75000:
+						act 'Pay for laser correction (75,000 <b>₽</b>) (card)':
+							cls
+							karta -= 75000
+							minut += 60
+							blizoruk = 0
+							glass = 0
+							gs 'stat'
+							'You undergo laser eye surgery. Your eyesight is much better now.'
+							act 'Return to the entrance':gt 'city_clinic', 'start'
+						end
+					end
 				end
 			end
 		end
 	end
-	
 end
 
 if $ARGS[0] = 'stdclinic':
@@ -325,94 +374,107 @@ if $ARGS[0] = 'stdclinic':
 	
 	act 'Leave':gt 'city_clinic', 'start'
 
-	if money >= 1000: act 'Take STD test (1,000 <b>₽</b>)': gt 'city_clinic', 'stdcheck'
+	if money >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
+			money -= 1000
+			gs 'city_clinic', 'stdcheck'
+		end
+	end
 
-	if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
-		act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
-			*clr & cla
-			menu_off = 1
-			money -= 450
-			minut += 60
-			GerpesUkolDay = daystart
-			GerpesNapr -= 1
-			gs 'stat'
-			'You see the nurse and she gives you a painful injection in your ass.'
-			
-			if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
-			act 'Leave':gt 'city_clinic', 'start'	
+	if karta >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
+			karta -= 1000
+			gs 'city_clinic', 'stdcheck'
 		end
 	end
 
-	if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
-		act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
-			*clr & cla
-			menu_off = 1
-			money -= 750
-			minut += 60
-			TriperUkolDay = daystart
-			TriperNapr -= 1
-			gs 'stat'
-			'You see the nurse and she gives you a painful injection in your ass.'
+	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
+		if money < 450 and karta < 450: *nl & 'You cannot afford your herpes shot.'
 
-			if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
+		if money >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (cash). You need <<GerpesNapr>> more injections to complete the treatment.':
+				money -= 450
+				gs 'city_clinic', 'herpes_shot'
+			end
+		end
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if karta >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (card). You need <<GerpesNapr>> more injections to complete the treatment.':
+				karta -= 450
+				gs 'city_clinic', 'herpes_shot'
+			end
 		end
 	end
 
-	if money >= 1000 and SifNapr = 1:
-		act 'Get syphilis shot (1,000 <b>₽</b>).':
-			*clr & cla
-			menu_off = 1
-			money -= 1000
-			minut += 60
-			SifNapr = 0
-			SifacOnce = 0
-			Sifilis = 0
-			Venera -= 1
-			gs 'stat'
-			'You see the nurse and she gives you a painful injection in your ass.'
+	if TriperNapr > 0 and TriperUkolDay ! daystart:
+		if money < 750 and karta < 750: *nl & 'You cannot afford your gonorrhea shot.'
 
-			'"That''s it, you might still feel a bit off but the infection is now cured".'
+		if money >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (cash). You need <<TriperNapr>> more injections to complete the treatment.':
+				money -= 750
+				gs 'city_clinic', 'gonorrhea_shot'
+			end
+		end
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if karta >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (card). You need <<TriperNapr>> more injections to complete the treatment.':
+				karta -= 750
+				gs 'city_clinic', 'gonorrhea_shot'
+			end
 		end
 	end
 
-	if GerpesOnce = 1 and money >= 45000 and week = 1 and day <= 10:
-		act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>)':
-			cla
-			menu_off = 1
-			money -= 45000
-			day += 3
-			week += 3
-			GerpesOnce = 0
-			Gerpes = 0
-			OrHerpes = 0
-			GenHerpes = 0
-			Venera -= 1
-			gs 'stat'
-			'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
-			'After a long recovery, you have been completely cured of your herpes.'
+	if SifNapr = 1:
+		if money < 1000 and karta < 1000: *nl & 'You cannot afford your syphilis shot.'
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if money >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (cash)':
+				money -= 1000
+				gs 'city_clinic', 'syphilis_shot'
+			end
+		end
+
+		if karta >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
+				karta -= 1000
+				gs 'city_clinic', 'syphilis_shot'
+			end
 		end
 	end
 
-	if KandidozOnce = 1 and money >= 15000 and week = 1 and day <= 10:
-		act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>)':
-			cla
-			menu_off = 1
-			money -= 15000
-			day += 3
-			week += 3
-			KandidozOnce = 0
-			Kandidoz = 0
-			gs 'stat'
-			'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
-			'After a long recovery, you have been completely cured of your yeast infection.'
+	if GerpesOnce = 1 and week = 1 and day <= 10:
+		if money < 45000 and karta < 45000: *nl & 'You to go to private clinic and completely cure your herpes.'
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if money >= 45000:
+			act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (cash)':
+				money -= 45000
+				gs 'city_clinic', 'herpes_cure'
+			end
+		end
+
+		if karta >= 45000:
+			act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>) (card)':
+				karta -= 45000
+				gs 'city_clinic', 'herpes_cure'
+			end
+		end
+	end
+
+	if KandidozOnce = 1 and week = 1 and day <= 10:
+		if money < 15000 and karta < 15000: *nl & 'You cannot afford to go to private clinic and completely cure your yeast infection.'
+
+		if money >= 15000:
+			act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (cash)':
+				money -= 15000
+				gs 'city_clinic', 'yeast_cure'
+			end
+		end
+
+		if karta >= 15000:
+			act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>) (card)':
+				karta -= 15000
+				gs 'city_clinic', 'yeast_cure'
+			end
 		end
 	end
 end
@@ -514,6 +576,77 @@ if $ARGS[0] = 'stdcheck':
 	end
 end
 
+if $ARGS[0] = 'herpes_shot':
+	*clr & cla
+	minut += 15
+	GerpesUkolDay = daystart
+	GerpesNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
+	act 'Leave':gt 'city_clinic'
+end
+
+if $ARGS[0] = 'gonorrhea_shot':
+	*clr & cla
+	minut += 15
+	TriperUkolDay = daystart
+	TriperNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
+
+	act 'Leave':gt 'city_clinic'
+end
+
+if $ARGS[0] = 'syphilis_shot':
+	*clr & cla
+	minut += 60
+	SifNapr = 0
+	SifacOnce = 0
+	Sifilis = 0
+	Venera -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	'"That''s it, you might still feel a bit off but the infection is now cured".'
+
+	act 'Leave':gt 'city_clinic'
+end
+
+if $ARGS[0] = 'herpes_cure':
+	*clr & cla
+	menu_off = 1
+	day += 3
+	week += 3
+	KandidozOnce = 0
+	Kandidoz = 0
+	gs 'stat'
+	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
+	'After a long recovery, you have been completely cured of your yeast infection.'
+
+	act 'Leave':gt 'city_clinic', 'start'
+end
+
+if $ARGS[0] = 'yeast_cure':
+	*clr & cla
+	menu_off = 1
+	day += 3
+	week += 3
+	GerpesOnce = 0
+	Gerpes = 0
+	OrHerpes = 0
+	GenHerpes = 0
+	Venera -= 1
+	gs 'stat'
+	'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
+	'After a long recovery, you have been completely cured of your herpes.'
+
+	act 'Leave':gt 'city_clinic', 'start'
+end
+
 if $ARGS[0] = 'ven1':
 	*clr & cla
 	menu_off = 1
@@ -521,7 +654,7 @@ if $ARGS[0] = 'ven1':
 	gs'stat'
     '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
     'You lie down, almost crying, mulling over the doctor''s words again and again in your head. You know it is not fair, but you can''t allow these images to go public and decide to pay him to delete the footage.'
-	'You pull the money from your wallet and give it to him, hoping he''ll keep true to his word...'
+	'You pull the money from your purse and give it to him, hoping he''ll keep true to his word...'
     act 'Return to the lobby':gt'city_clinic','start'
 end
 
@@ -861,7 +994,7 @@ if $ARGS[0] = 'ninel2':
 
 						gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
 						gs 'stat'
-											
+
 						act 'Oh-h...!':
 							*clr & cla
 							pcs_horny = 100
@@ -879,7 +1012,7 @@ if $ARGS[0] = 'ninel2':
 							gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
 							minut -= 15
 							gs 'stat'
-											
+
 							act 'Beg for it':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
@@ -986,7 +1119,7 @@ if $ARGS[0] = 'ninel3':
 
 					gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
 					gs 'stat'
-											
+
 					act 'Ride her':
 						*clr & cla
 						pcs_mood += 15
@@ -1005,7 +1138,7 @@ if $ARGS[0] = 'ninel3':
 						gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
 						gs 'arousal', 'end'
 						gs 'stat'
-											
+
 						act 'Freshen up and go': minut += 5 & gt 'city_residential'
 					end
 				end

locations/city_industrial_train.qsrc

@@ -247,7 +247,7 @@ if $ARGS[0] = 'pavlovsk':
 	'After 35 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
 	act 'Get off the train':
 		if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
-		gt 'pav_train_hall', 'platform'
+		gt 'pav_train_hall'
 	end
 end
 

locations/city_jorahouse.qsrc

@@ -387,7 +387,7 @@ if $ARGS[0] = 'ev 18':
 	act 'Continue':
 		cla
 		*clr
-		facial += 1
+		
 		'Semyon cums all over your face'
 		picrand = rand(18, 20)
 		'<center><img <<$set_imgh>> src="images/characters/city/jora/sex/klof18.jpg"></center>'
@@ -406,7 +406,7 @@ if $ARGS[0] = 'ev19':
 	klofQW += 2
 	money += 200
 	spafinloc = 11
-	facial += 1
+	
 	pcs_vag += 1
 	if jorasemyon = 1:
 		gs 'cum_call', 'mouth', 'A44', 1

locations/city_kafegivisex.qsrc

@@ -113,7 +113,7 @@ if $ARGS[0] = 'giviirasexdivibor3':
 		gs 'cum_manage'
 		spafinloc = 11
 		gs 'cum_manage'
-		facial += 1
+		
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/group/cum/threesome6.jpg"></center>'
 		'Givi puts you on your knees with Irina and begins to finish you on the face. You finish by both licking his member clean, turn to each other and kiss.'

locations/city_kavkazkafe.qsrc

@@ -259,7 +259,7 @@ end
 
 if $ARGS[0] = 'grupcum':
 	minut += 5
-	facial += 1
+	
 	cumface += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/group/grupcum.jpg"></center>'
@@ -416,7 +416,7 @@ end
 
 if $ARGS[0] = 'givibj5':
 	minut += 3
-	facial += 1
+	
 	picrand = rand(1, 9)
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<picrand>>.jpg"></center>'
 	'You remove his member from your mouth, but Givi does not give you time to dodge as a jet of sperm slaps you, covering your face with hot, thick and sticky cum.'

locations/city_lake.qsrc

@@ -509,7 +509,7 @@ if $ARGS[0] = 'walklake1':
 						cla & *clr
 						gs 'cum_call', 'face', 'A177', 1
 						gs 'cum_call', 'mouth', 'A177', 1
-						facial += 1
+						
 						gs 'arousal', 'bj', 5
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/whore/facefuck1.jpg"></center>'
@@ -546,7 +546,7 @@ if $ARGS[0] = 'walklake1':
 					cla & *clr
 					gs 'cum_call', 'face', 'A177', 1
 					gs 'cum_call', 'mouth_swallow', 'A177', 1
-					facial += 1
+					
 					gs 'arousal', 'bj', 5
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -648,7 +648,7 @@ if $ARGS[0] = 'dinribak':
 					gs 'cum_call', 'face', 'A177', 1
 					gs 'cum_call', 'mouth', 'A177', 1
 					gs 'arousal', 'bj', 5
-					facial += 1
+					
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/whore/facefuck1.jpg"></center>'
 					'He starts to cum on your face. A spurt of his cum flies into your mouth and you choke at the taste.'
@@ -706,7 +706,7 @@ if $ARGS[0] = 'dinribak':
 				gs 'cum_call', 'face', 'A177', 1
 				gs 'cum_call', 'mouth_swallow', 'A177', 1
 				gs 'arousal', 'bj', 5
-				facial += 1
+				
 				gs 'arousal', 'end'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/whore/cum.jpg"></center>'
@@ -1254,7 +1254,7 @@ if $ARGS[0] = 'vlake2':
 							gs 'npcgeneratec', 0, 'a stranger at the lake', rand(18,45)
 							gs 'boyStat', $npclastgenerated
 							gs 'cum_call', 'face', 'a stranger at the lake'
-							facial += 1
+							
 							gs 'arousal', 'end'
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/vlake2/vlake7.jpg"></center>'
@@ -1439,7 +1439,7 @@ if $ARGS[0] = 'kater1cum':
 	gs 'cum_call', 'mouth_swallow', 'a rescuer at the lake'
 	gs 'cum_call', 'face', 'a rescuer at the lake'
 	gs 'cum_call', 'breasts', 'a rescuer at the lake'
-	facial += 1
+	
 	gs 'arousal', 'end'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/kater1/kater9.jpg"></center>'
@@ -1709,7 +1709,7 @@ if $ARGS[0] = 'horse1':
 									act 'Finish':
 										*clr & cla
 										gs 'cum_call', 'face', 'Quad rider'
-										facial += 1
+										
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/horse1/horse10.jpg"></center>'
 										'You remove the dick from your mouth and begin stroking it. A few seconds, a stream of cum splatters across your face.'
@@ -1801,7 +1801,7 @@ if $ARGS[0] = 'horse2':
 						act 'Change position':
 							*clr & cla
 							gs 'cum_call', 'face', 'Horse rider'
-							facial += 1
+							
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/horse2/horse7.jpg"></center>'
 							'You climb off them and kneel down in front of them. They stand on either side of you as they jerk their cocks. One immediately groans as his cum splashes over your face.'

locations/club.qsrc → locations/city_nightclub.qsrc

@@ -1,15 +1,15 @@
-# club
+# city_nightclub
 !!2021/04/15
 CLOSE ALL
 !!needs a complete rework of the club
 if $ARGS[0] = 'start':
-	$loc = 'club'
+	$loc = 'city_nightclub'
 	$loc_arg = 'start'
-	$menu_loc = 'club'
+	$menu_loc = 'city_nightclub'
 	$menu_arg = 'start'
 	menu_off = 0
 	$location_type = 'public_outdoors'
-	$sexloc = 'club'
+	$sexloc = 'city_nightclub'
 	*clr & cla
 	minut += 5
 	gs 'stat'
@@ -30,22 +30,22 @@ if $ARGS[0] = 'start':
 			if pcs_makeup > 1 and pcs_sweat < 30 and (PCloSkirt > 2 or PCloPants > 4 or ($clothingworntype = 'salacious_dress' or $clothingworntype = 'salacious_outfits')):
 				minut += 5
 				'He nods and says something into his walkie-talkie. A couple of minutes later you meet Erik in the foyer.'
-				act 'Talk to him':gt 'club', 'work'
+				act 'Talk to him':gt 'city_nightclub', 'work'
 			elseif PCloStyle = 4:
 				'He shakes his head, if you''re looking for paying clients, try the road by the park this is not a brothel.'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_sweat >= 30:
 				'"God, you actually smell!"'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_makeup = 1:
 				'You have to wear some makeup to start your work.'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_makeup = 0:
 				'"Fix your makeup first, girl. You look horrible."'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			else
 				'He tells you that you are over-dressed, you need to wear something shorter, or much more daring if you want to work.'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			end
 		end
 	end
@@ -58,27 +58,27 @@ if $ARGS[0] = 'start':
 				minut += 5
 				money -= 250
 				frost = 0
-				gt 'club', 'inside'
+				gt 'city_nightclub', 'inside'
 			elseif PCloStyle = 4:
 				cla
 				'He shakes his head, if you''re looking for paying clients, try the road by the park this is not a brothel.'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_sweat >= 50:
 				cla
 				'The bouncer shakes his head. "God, girl, you actually smell!"'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_makeup = 1:
 				cla
 				'The bouncer shakes his head. "At least wear some makeup, girl."'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			elseif pcs_makeup = 0:
 				cla
 				'The bouncer shakes his head. "Fix your makeup first, girl."'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			else
 				cla
 				'The bouncer shakes his head. "Don''t you have some sexy clothes?"'
-				act 'Continue':gt 'club', 'start'
+				act 'Continue':gt 'city_nightclub', 'start'
 			end
 		end
 	end
@@ -101,7 +101,7 @@ if $ARGS[0] = 'inside':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club9.jpg"></center>'
 	'The music here is loud and the bass is thumping. You see a laser show on the stage and on the poorly lit dance floor filled with people dancing, like there''s no tomorrow.'
 	*nl
-	'There is also a <a href="exec:gt ''club'', ''vip''">vip-room</a>.'
+	'There is also a <a href="exec:gt ''city_nightclub'', ''vip''">vip-room</a>.'
 
 	if hour >= 18 and hotcat >= 6 and clubwork = 0 and clubno = 0 and rand (0,10) = 0:
 		*clr & cla
@@ -115,14 +115,14 @@ if $ARGS[0] = 'inside':
 			'"The club opens at 6pm you can work for an hour at a time up to 1am. The jobs vary according to time and demand, it includes finding customers to bring to the club, promoting drinks and some dancing."'
 			'"The pay depends on results, get more people in, get people buying up the promotional drinks or if you dance well and you get 200 <b>₽</b>. Do worse, you get less, do very well, you get a bonus. When you finish you can stay in the club, so you get free entry as well."'
 			'"So, are you interested?"'
-			act 'No':clubno = 1 & gt 'club', 'inside'
+			act 'No':clubno = 1 & gt 'city_nightclub', 'inside'
 			act 'Yes':
 				*clr & cla
 				clubwork = 1
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club11.jpg"></center>'
 				'You tell Erik you are interested and he takes your details.'
 				'"Great <<$pcs_nickname>>, you can find me here, and I''ll place your details on the door so you can get in, but you still have to do your makeup and dress for clubbing."'
-				act 'Return':gt 'club', 'inside'
+				act 'Return':gt 'city_nightclub', 'inside'
 			end
 		end
 
@@ -145,7 +145,7 @@ if $ARGS[0] = 'inside':
 			'You search the club for a few minutes, before finding the promoter.'
 			if hotcat >= 6:
 				'He asks you if you''ve changed your mind and want to do some work for him.'
-				act 'No':clubno = 1 & gt 'club', 'inside'
+				act 'No':clubno = 1 & gt 'city_nightclub', 'inside'
 				act 'Yes':
 					cla
 					*clr
@@ -154,7 +154,7 @@ if $ARGS[0] = 'inside':
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club11.jpg"></center>'
 					'You tell Erik you are interested and he takes your details.'
 					'"Great <<$pcs_nickname>>, you can find me here, and I''ll place your details on the door so you can get in, but you still have to do your makeup and dress for clubbing."'
-					act 'Return':gt 'club', 'inside'
+					act 'Return':gt 'city_nightclub', 'inside'
 				end
 			else
 				'You ask him about work, but he says you''re not pretty enough and walks off. You are shocked enough that you just stand there and watch him walk away.'
@@ -165,9 +165,9 @@ if $ARGS[0] = 'inside':
 	end
 
 	if hour <= 3 or hour >= 18:
-		act 'Use the toilet':gt 'club', 'toi'
-		act 'Go to the dance floor':gt 'club', 'dance'
-		act 'Go to the bar':gt 'club', 'bar'
+		act 'Use the toilet':gt 'city_nightclubToilet', 'start'
+		act 'Go to the dance floor':gt 'city_nightclub', 'dance'
+		act 'Go to the bar':gt 'city_nightclub', 'bar'
 	end
 
 	if (hour < 1 or hour >= 18) and clubwork = 1:
@@ -176,7 +176,7 @@ if $ARGS[0] = 'inside':
 			minut += 5
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club11.jpg"></center>'
 			'You search around and it only takes a few minutes to find Erik in his suit.'
-			act 'Talk to him':gt 'club', 'work'
+			act 'Talk to him':gt 'city_nightclub', 'work'
 		end
 	end
 end
@@ -196,7 +196,7 @@ if $ARGS[0] = 'toi':
 		gs 'stat'
 		'Finally there''s a free booth for you.'
 
-		act 'WC':gt 'club', 'tou'
+		act 'WC':gt 'city_nightclub', 'tou'
 	end
 
 	act 'Sneak into the mens toilet':
@@ -208,7 +208,7 @@ if $ARGS[0] = 'toi':
 		act 'Find a free cubicle':
 
 			if TQuest = 0 and pcs_horny < 50:
-				gt 'club', 'tou'
+				gt 'city_nightclub', 'tou'
 			elseif TQuest = 0 and pcs_horny >= 50:
 				gt 'Club2', 'toilet'
 			elseif TQuest = 1:
@@ -216,14 +216,14 @@ if $ARGS[0] = 'toi':
 			elseif TQuest = 2:
 				gt 'Club2', 'toilet2'
 			elseif TQuest >= 3 and rand(1, 100) < 60:
-				gt 'club', 'tou'
+				gt 'city_nightclub', 'tou'
 			elseif TQuest >= 3:
 				gt 'Club2', 'toilet1'
 			end
 		end
 	end
 
-	act 'Go back to the dancefloor':gt 'club', 'inside'
+	act 'Go back to the dancefloor':gt 'city_nightclub', 'inside'
 end
 
 if $ARGS[0] = 'tou':
@@ -244,7 +244,7 @@ if $ARGS[0] = 'tou':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club3.jpg"></center>'
 	*nl
 
-	act 'Leave the toilet':gt 'club', 'inside'
+	act 'Leave the toilet':gt 'city_nightclub', 'inside'
 
 	act 'Look in the mirror': gt 'mirror', 'start'
 	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
@@ -265,7 +265,7 @@ if $ARGS[0] = 'dance':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club9.jpg"></center>'
 	'The club is filled to the brink with people. Most of whom are on the dance floor having a great time.'
 	
-	act 'Leave the dance floor':gt 'club', 'inside'
+	act 'Leave the dance floor':gt 'city_nightclub', 'inside'
 	
 	if hour <= 3 or hour >= 18:
 		act 'Dance (0:15)':
@@ -293,7 +293,7 @@ if $ARGS[0] = 'dance':
 
 				'While you''re dancing you feel that someone is groping your ass, you turn around and see <<$boybod>>, <<$boyface>> haired guy of <<$boybody>> height. He''s <<$boyClo>>'
 
-				act 'Stop dancing':gt 'club', 'inside'
+				act 'Stop dancing':gt 'city_nightclub', 'inside'
 				
 				act 'Dance with him':
 					*clr & cla
@@ -304,7 +304,7 @@ if $ARGS[0] = 'dance':
 					gs 'stat'
 
 					if pcs_horny < 90:
-						act 'Go to the dance floor':gt 'club', 'dance'
+						act 'Go to the dance floor':gt 'city_nightclub', 'dance'
 					end
 
 					act 'Kiss':
@@ -316,7 +316,7 @@ if $ARGS[0] = 'dance':
 							gs 'arousal', 'kiss', 15, 'sub'
 							gs 'stat'							
 
-							if pcs_horny < 70: act 'Go to the dance floor':gt 'club', 'dance'
+							if pcs_horny < 70: act 'Go to the dance floor':gt 'city_nightclub', 'dance'
 							act 'Go to Vip-room with the guy':picrand = 38 & $sexloc = 'vipclub' & xgt 'sex', 'var'
 
 							act 'Suggest going to his place':
@@ -335,8 +335,8 @@ if $ARGS[0] = 'dance':
 							gs 'arousal', 'kiss', 15, 'sub'
 							gs 'stat'
 
-							if pcs_horny < 70: act 'Go to the dance floor':gt 'club', 'dance'
-							act 'Go to the toilet with a guy':gt 'club', 'sex'
+							if pcs_horny < 70: act 'Go to the dance floor':gt 'city_nightclub', 'dance'
+							act 'Go to the toilet with a guy':gt 'city_nightclub', 'sex'
 							act 'Suggest going to his place':
 								cla
 								'You lean in and whisper: "How about we have fun at your place?". His eyes light up. Before you even notice, he grabs your hand and walk you toward the exit.'
@@ -355,10 +355,10 @@ if $ARGS[0] = 'dance':
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/dancelezb.jpg"></center>'
 					'While you''re dancing you a hand groping your ass. You turn around to see who touched your butt, but you''re surprised to see a woman smiling at you, she is seductively biting her lip.'
 					
-					act 'Stop dancing':gt 'club', 'inside'
+					act 'Stop dancing':gt 'city_nightclub', 'inside'
 					
 					if rand(0, 1) = 0:
-						act '"Let''s go to the toilet, to have fun."':gt 'club', 'lezbsort'
+						act '"Let''s go to the toilet, to have fun."':gt 'city_nightclub', 'lezbsort'
 					else
 						act '"Let''s go to VIP-Room, to have fun."': picrand = rand(13, 17) & $sexloc = 'vipclub' & xgt 'lezbsex', 'var'
 					end
@@ -366,7 +366,7 @@ if $ARGS[0] = 'dance':
 			end
 
 			killvar 'clrand'
-			act 'Go away':gt 'club', 'dance'
+			act 'Go away':gt 'city_nightclub', 'dance'
 		end
 
 		act 'Go up to the DJ (0:30)':
@@ -393,13 +393,13 @@ if $ARGS[0] = 'dance':
 						'Into the booth came a man, who seems to be somewhere in forties. He has a large belly, has a bald head and is wearing glasses. Alexei greeted him and introduced you to him, his name is Alexander E. and he''s the owner of the club.'
 						'Alexander had a small talk with Alexei, then he left again.'
 
-						act 'Leave the booth':gt 'club', 'dance'
+						act 'Leave the booth':gt 'city_nightclub', 'dance'
 
 						exit
 					end
 
 					if alexeyClubSex ! 3 or sashaClubQW > 0:
-						act 'Leave the booth':gt 'club', 'dance'
+						act 'Leave the booth':gt 'city_nightclub', 'dance'
 
 						act 'Get on your knees and give him a BJ':
 							*clr & cla
@@ -429,26 +429,26 @@ if $ARGS[0] = 'dance':
 								gs 'arousal', 'end'
 								gs 'stat'
 
-								act 'Leave the booth':gt 'club', 'dance'
+								act 'Leave the booth':gt 'city_nightclub', 'dance'
 							end
 						end
 					end
 				end
 			end
 
-			act 'Leave the booth':gt 'club', 'dance'
+			act 'Leave the booth':gt 'city_nightclub', 'dance'
 		end
 	else
 		menu_off = 1
 		'It''s getting late and the music stops, looks like it might be time to go home.'
-		act 'Leave the dance floor': gt 'club', 'inside'
+		act 'Leave the dance floor': gt 'city_nightclub', 'inside'
 	end	
 end
 
 if $ARGS[0] = 'bar':
 	*clr & cla
 	minut += 5
-	$menu_loc = 'club'
+	$menu_loc = 'city_nightclub'
 	$menu_arg = 'bar'
 	menu_off = 0
 	gs 'stat'
@@ -458,12 +458,12 @@ if $ARGS[0] = 'bar':
 
 	if pcs_apprnc > 56:
 		barsexrand = rand(0, 10)
-		if barsexrand = 1: killvar 'barsexrand' & gt 'club', 'bar0'
-		if barsexrand = 2: killvar 'barsexrand' & gt 'club', 'bar1'
+		if barsexrand = 1: killvar 'barsexrand' & gt 'city_nightclub', 'bar0'
+		if barsexrand = 2: killvar 'barsexrand' & gt 'city_nightclub', 'bar1'
 		killvar 'barsexrand'
 	end
 
-	act 'Go back':gt 'club', 'inside'
+	act 'Go back':gt 'city_nightclub', 'inside'
 
 	if alko >= 7:
 		*clr & cla
@@ -760,7 +760,7 @@ if $ARGS[0] = 'bar':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club6.jpg"></center>'
 			'You found a free bar stool and sat down on it. You ordered the barkeeper to mix you a cocktail and a few moments later, you sipping on a sweet one.'
 
-			act 'Stand up':gt 'club', 'bar'
+			act 'Stand up':gt 'city_nightclub', 'bar'
 		end
 	end
 end
@@ -807,23 +807,23 @@ if $ARGS[0] = 'sex':
 					gs 'cum_manage'
 					'You take his cock and point it away from you. He groans as he cums and most of his cum gets splattered onto the floor, with a few drips covering your hand.'
 
-					act 'Stand up':gt 'club', 'tou'
+					act 'Stand up':gt 'city_nightclubToilet', 'clubtoilet_men'
 				end
 
 				act 'Let him cum on your face':
 					cla
-					facial += 1
+					
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/clubfacial1.jpg"></center>'
 					'You grabbed his cock and point his "gun" at your face. He groans as he cums and you can feel hot streams of semen covering your face.'
 
-					act 'Stand up':gt 'club', 'tou'
+					act 'Stand up':gt 'city_nightclubToilet', 'clubtoilet_men'
 				end
 
 				exit
 			elseif harakBoy = 2:
-				facial += 1
+				
 				spafinloc = 11
 				gs 'cum_manage'
 				SUB += 1
@@ -831,7 +831,7 @@ if $ARGS[0] = 'sex':
 				'The bloke grabs your hair and cums on your face. You quickly close your eyes, but it''s too late, a few drips of semen make it into your eyes. It hurts a bit.'
 			end
 
-			act 'Stand up':gt 'club', 'tou'
+			act 'Stand up':gt 'city_nightclubToilet', 'clubtoilet_men'
 		end
 
 		act 'Swallow his cum':
@@ -846,7 +846,7 @@ if $ARGS[0] = 'sex':
 			gs 'arousal', 'end'
 			gs 'stat'
 
-			act 'Stand up':gt 'club', 'tou'
+			act 'Stand up':gt 'city_nightclubToilet', 'clubtoilet_men'
 		end
 	end
 
@@ -877,7 +877,7 @@ if $ARGS[0] = 'sex':
 		gs 'arousal', 'end'
 		gs 'stat'
 
-		act 'Leave cubicle':gt 'club', 'tou'
+		act 'Leave cubicle':gt 'city_nightclubToilet', 'clubtoilet_men'
 	end
 end
 
@@ -890,7 +890,7 @@ if $ARGS[0] = 'bar0':
 	'As you sit at the bar, a woman walk up to you and begins to chat with you.'
 	'During the conversation you get the feeling that she''s flirting with you and before you even can react, her hands wander over your body, giving you a sensational feeling.'
 
-	act 'Move away from her':gt 'club', 'bar'
+	act 'Move away from her':gt 'city_nightclub', 'bar'
 
 	act 'Kiss her':
 		cla
@@ -901,7 +901,7 @@ if $ARGS[0] = 'bar0':
 		gs 'arousal', 'kiss', 5, 'lesbian'
 		gs 'stat'
 
-		act 'Tell her to meet at the toilet':gt 'club', 'lezbsort'
+		act 'Tell her to meet at the toilet':gt 'city_nightclub', 'lezbsort'
 
 		act 'Strip her':
 			cla
@@ -943,7 +943,7 @@ if $ARGS[0] = 'bar0':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Leave':gt 'club', 'inside'
+						act 'Leave':gt 'city_nightclub', 'inside'
 					elseif dildo > 0:
 						act 'Get dildo':
 							cla
@@ -971,7 +971,7 @@ if $ARGS[0] = 'bar0':
 								gs 'arousal', 'end'
 								gs 'stat'
 
-								act 'Leave':gt 'club', 'inside'
+								act 'Leave':gt 'city_nightclub', 'inside'
 							end
 						end
 					end
@@ -991,9 +991,9 @@ if $ARGS[0] = 'bar1':
 
 	act 'Turn him down':
 		if alko < 4:
-			gt 'club', 'bar'
+			gt 'city_nightclub', 'bar'
 		else
-			gt 'club', 'rape'
+			gt 'city_nightclub', 'rape'
 		end
 	end
 
@@ -1008,15 +1008,15 @@ if $ARGS[0] = 'bar1':
 			'He kneels down and begins to move his tongue between your folds. You immediately begin to moan softly. You close your eyes and admit to yourself, that he''s not half bad at it.'
 			gs 'arousal', 'cuni', 10, 'dom'
 			gs 'stat'
-			act 'Turn him down':gt 'club', 'bar'
-			act 'Suck his cock':gt 'club', 'bar2'
-			act 'Let him fuck you':gt 'club', 'bar3'
+			act 'Turn him down':gt 'city_nightclub', 'bar'
+			act 'Suck his cock':gt 'city_nightclub', 'bar2'
+			act 'Let him fuck you':gt 'city_nightclub', 'bar3'
 		end
 	else
 		act 'Tell him to lick you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end	
-	act 'Blow job':gt 'club', 'bar2'
-	act 'Let him fuck you':gt 'club', 'bar3'
+	act 'Blow job':gt 'city_nightclub', 'bar2'
+	act 'Let him fuck you':gt 'city_nightclub', 'bar3'
 end
 
 if $ARGS[0] = 'bar2':
@@ -1032,7 +1032,7 @@ if $ARGS[0] = 'bar2':
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'
 
-	act 'Let him fuck you':gt 'club', 'bar3'
+	act 'Let him fuck you':gt 'city_nightclub', 'bar3'
 
 	act 'Continue to suck':
 		cla
@@ -1048,7 +1048,7 @@ if $ARGS[0] = 'bar2':
 		gs 'arousal', 'end'
 		gs 'stat'
 
-		act 'Move away':gt 'club', 'inside'
+		act 'Move away':gt 'city_nightclub', 'inside'
 	end
 end
 
@@ -1089,7 +1089,7 @@ if $ARGS[0] = 'bar3':
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	act 'Leave':gt 'club', 'inside'
+	act 'Leave':gt 'city_nightclub', 'inside'
 end
 
 if $ARGS[0] = 'rape':
@@ -1122,7 +1122,7 @@ if $ARGS[0] = 'rape':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Leave':gt 'club', 'inside'
+				act 'Leave':gt 'city_nightclub', 'inside'
 			else
 				cla
 				*clr
@@ -1139,7 +1139,7 @@ if $ARGS[0] = 'rape':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Leave':gt 'club', 'inside'
+				act 'Leave':gt 'city_nightclub', 'inside'
 			end
 		end
 	else
@@ -1152,7 +1152,7 @@ if $ARGS[0] = 'rape':
 		gs 'arousal', 'end'
 		gs 'stat'
 
-		act 'Leave':gt 'club', 'inside'
+		act 'Leave':gt 'city_nightclub', 'inside'
 	end
 end
 
@@ -1165,9 +1165,9 @@ if $ARGS[0] = 'lezbsort':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/lezbsort.jpg"></center>'
 	'She follows you into the womens bathroom and you lure her into one of the empty booths.'
 
-	act 'Lick her':gt 'club', 'lezbsort1'
-	act 'Tell her to lick you':gt 'club', 'lezbsort2'
-	act 'Leave her':gt 'club', 'tou'
+	act 'Lick her':gt 'city_nightclub', 'lezbsort1'
+	act 'Tell her to lick you':gt 'city_nightclub', 'lezbsort2'
+	act 'Leave her':gt 'city_nightclub', 'tou'
 end
 
 if $ARGS[0] = 'lezbsort1':
@@ -1182,12 +1182,12 @@ if $ARGS[0] = 'lezbsort1':
 	gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
 	gs 'stat'
 
-	if hour >= 15 or hour <= 3:act 'Now it''s your turn':gt 'club', 'lezbsort2'
+	if hour >= 15 or hour <= 3:act 'Now it''s your turn':gt 'city_nightclub', 'lezbsort2'
 
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	act 'Leave her':gt 'club', 'tou'
+	act 'Leave her':gt 'city_nightclub', 'tou'
 end
 
 if $ARGS[0] = 'lezbsort2':
@@ -1203,12 +1203,12 @@ if $ARGS[0] = 'lezbsort2':
 	gs 'arousal', 'cuni', 10, 'sub', 'lesbian'
 	gs 'stat'
 
-	if hour >= 15 or hour <= 3:act 'Lick her':gt 'club', 'lezbsort1'
+	if hour >= 15 or hour <= 3:act 'Lick her':gt 'city_nightclub', 'lezbsort1'
 
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	act 'Leave her':gt 'club', 'tou'
+	act 'Leave her':gt 'city_nightclub', 'tou'
 end
 
 if $ARGS[0] = 'vip':
@@ -1233,7 +1233,7 @@ if $ARGS[0] = 'vip':
 
 	if vipday = daystart:act 'Return to the VIP area':gt 'vipclub', 'start'
 
-	act 'Leave him be and go away':gt 'club', 'inside'
+	act 'Leave him be and go away':gt 'city_nightclub', 'inside'
 end
 
 if $ARGS[0] = 'work':
@@ -1271,10 +1271,10 @@ if $ARGS[0] = 'work':
 					'You hardy found anyone, Erik doesn''t seem happy, but he pays you 100 <b>₽</b> for your efforts.'
 				end
 				if hour < 1 or hour >= 18:
-					act 'Get another job from Erik':gt 'club', 'work'
+					act 'Get another job from Erik':gt 'city_nightclub', 'work'
 				end
 				
-				act 'Go to dancefloor':gt 'club', 'inside'
+				act 'Go to dancefloor':gt 'city_nightclub', 'inside'
 			end
 		end
 	elseif clubr = 1:
@@ -1292,9 +1292,9 @@ if $ARGS[0] = 'work':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club11.jpg"></center>'
 				'You hand Erik the empty bottles, he gives you 200 <b>₽</b>.'
-				if hour < 1 or hour >= 18: act 'Get another job from Erik':gt 'club', 'work'
+				if hour < 1 or hour >= 18: act 'Get another job from Erik':gt 'city_nightclub', 'work'
 
-				act 'Go to dancefloor':gt 'club', 'inside'
+				act 'Go to dancefloor':gt 'city_nightclub', 'inside'
 			end
 		end
 	elseif clubr = 2:
@@ -1315,13 +1315,13 @@ if $ARGS[0] = 'work':
 				'Erik thanks you for helping when he was short and pays you 200 <b>₽</b>, but doesn''t even mention your dancing.'
 			end
 			gs 'stat'
-			if hour < 1 or hour >= 18: act 'Get another job from Erik':gt 'club', 'work'
+			if hour < 1 or hour >= 18: act 'Get another job from Erik':gt 'city_nightclub', 'work'
 
-			act 'Go to dancefloor':gt 'club', 'inside'
+			act 'Go to dancefloor':gt 'city_nightclub', 'inside'
 		end
 	end
 	killvar 'clubr'
 end
 
---- club ---------------------------------
+--- city_nightclub ---------------------------------
 

locations/city_nightclubToilet.qsrc

@@ -0,0 +1,81 @@
+# city_nightclubToilet
+
+if $ARGS[0] = 'start':
+    $location_type = 'public_indoors'
+	$loc = 'city_nightclubToilet'
+	$loc_arg = 'start'
+    $menu_loc = 'city_nightclubToilet'
+    $menu_arg = 'start'
+    gs 'themes', 'indoors'
+	killvar '$locclass'
+	menu_off = 0
+	gs 'stat'
+	*clr & cla
+    
+	'<center><b><font color="maroon">Nightclub-Restroom</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/toiletwalkway.jpg"></center>'
+	gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Enter the men''s restroom (<<will_cost>> Willpower)':
+				gs 'willpower', 'exhib', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'city_nightclubToilet', 'clubtoilet_men'
+			end
+		else
+			act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+    act 'Enter the women''s restroom': gt 'city_nightclubToilet', 'clubtoilet_women'
+	act 'Return to the dance floor': gt 'city_nightclub', 'inside'
+end
+
+if $ARGS[0] = 'clubtoilet_men':
+	$loc = 'city_nightclubToilet'
+	$loc_arg = 'clubtoilet_men'
+	$locM = 'city_nightclubToilet'
+	$locM_arg = 'clubtoilet_men'
+	$menu_loc = 'city_nightclubToilet'
+	$menu_arg = 'clubtoilet_men'
+	menu_off = 0
+	$location_type = 'bathroom'
+	$locclass = 'restroom'
+
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Nightclub-Men''s Room</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/mentoilet.jpg"></center>'
+	'You walk in to the men''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'
+	
+	act 'Leave': gt 'city_nightclubToilet', 'start'
+	
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin	
+end
+
+if $ARGS[0] = 'clubtoilet_women':
+	$loc = 'city_nightclubToilet'
+	$loc_arg = 'clubtoilet_women'
+	$locM = 'city_nightclubToilet'
+	$locM_arg = 'clubtoilet_women'
+	$menu_loc = 'city_nightclubToilet'
+	$menu_arg = 'clubtoilet_women'
+	menu_off = 0
+	$location_type = 'bathroom'
+	$locclass = 'restroom'
+	
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Nightclub-Women''s Room</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/womentoilet.jpg"></center>'
+	'You walk in to the women''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. You notice the last stall has its door wide open.'
+
+	act 'Leave': gt 'city_nightclubToilet', 'start'
+	act 'Go to the last stall': gt 'gloryhole', 'start'
+	
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin	
+end
+
+--- city_nightclubToilet ---------------------------------

locations/city_saunawhore.qsrc

@@ -920,7 +920,7 @@ if $ARGS[0] = 'cumAnal':
 end
 
 if $ARGS[0] = 'cumFace':
-	facial += 1
+	
 	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumface'+rand(1, 5)+'.mp4"></video></center>'
 	if useCondom = 1:
 		'The client rips the condom from his dick and <<$cumType>> cum splatters all over your face.'

locations/city_train.qsrc

@@ -191,7 +191,7 @@ if $ARGS[0] = 'pavlovsk':
 	'After 40 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
 	act 'Get off the train':
 		if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
-		gt 'pav_train_hall', 'platform'
+		gt 'pav_train_hall'
 	end
 end
 

locations/city_trashplaceevents.qsrc

@@ -230,7 +230,7 @@ if $ARGS[0] = 'pos10':
 						act 'On your face':
 							*clr & cla
 							minut += 1
-							facial += 1
+							
 							gs 'cum_call', 'face', 'hobo'
 							
 							'<center><img <<$set_imgh>> src="images/shared/sex/public/cum0,'+rand(0,3)+'.jpg"></center>'

locations/clothing.qsrc

@@ -205,7 +205,7 @@ if $ARGS[0] = 'view_clothing_list':
 
 	if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'<center><a href="exec:$ward_list_store = ''dolls'' & gt ''clothing'', ''clothing_list'', ''dolls''"><img src="images/locations/city/island/dolls/shop_name.png"></a></center>'
 
-	if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('nerdvana_cosplay') > 0:'<center><a href="exec:$ward_list_store = ''bomba'' & gt ''clothing'', ''clothing_list'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
+	if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:$ward_list_store = ''bomba'' & gt ''clothing'', ''clothing_list'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
 
 	if ARRSIZE('nerdvana_outfits') > 0 or ARRSIZE('nerdvana_cosplay') > 0 or ARRSIZE('nerdvana_bikinis') > 0 or ARRSIZE('nerdvana_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''nerdvana'' & gt ''clothing'', ''clothing_list'', ''nerdvana''"><img src="images/locations/city/island/nerdvana/shop_name.png"></a></center>'
 
@@ -1264,7 +1264,7 @@ if $ARGS[0] = 'clothing_list':
 	if $args[1] = 'market' or $args[1] = 'all':
 		if $args[1] ! 'all':
 			$ward_list_store = $args[1]
-			'<center>Clothing from the market</center>'
+			'<center><img src="images/pc/items/market/market.png"></center>'
 			gs 'clothing_QV', 'filter_header', 'store'
 			gs 'clothing', 'clothinglist_header'
 			!!To filter just this set

locations/clothing_QV.qsrc

@@ -62,9 +62,9 @@ if $ARGS[0] = 'list':
 
 	if ARRSIZE('danilovich_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
 
-	if ARRSIZE('loopmaterinstvo_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''materinstvo''"><img src="images/locations/city/citycenter/mall/mommy.png"></a></center>'
+	if ARRSIZE('materinstvo_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''materinstvo''"><img src="images/locations/city/citycenter/mall/mommy.png"></a></center>'
 
-	if ARRSIZE('loopmarket_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''market''">Clothing from the market</a></center>'
+	if ARRSIZE('market_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''market''"><img src="images/pc/items/market/market.png"></a></center>'
 end
 
 if $ARGS[0] = 'clothing_list':

locations/cum_call.qsrc

@@ -114,7 +114,7 @@ if $ARGS[0] ! 'precum':
 		spafinloc = 12
 	elseif $ARGS[0] = 'mouth_swallow':
 		spafinloc = 12
-		swallow += 1
+		stat['swallow'] += 1
 	elseif $ARGS[0] = 'hands':
 		spafinloc = 13
 	elseif $ARGS[0] = 'stomach':

locations/dimaEv.qsrc

@@ -136,7 +136,7 @@ if $ARGS[0] = 'firstvisitsex':
 				*clr & cla
 				spafinloc = 11
 				gs 'cum_manage'
-				facial += 1
+				
 				if maxdra = 1: maxdra = 2
 				dimasexday = daystart
 				gs 'stat'
@@ -179,7 +179,7 @@ if $ARGS[0] = 'firstvisitsex':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					dimasexday = daystart
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/sitcum.jpg"></center>'

locations/event.qsrc

@@ -91,14 +91,14 @@ if $ARGS[0] = 'blow':
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
 				'You take his cock out of your mouth and <<$loverdesc[lover_number]>> finishes in your hand.'
 			elseif tiprand = 3:
-				facial += 1
+				
 				spafinloc = 11
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,8.jpg"></center>'
 				'You took his cock out of your mouth and immediatly <<$loverdesc[lover_number]>> cums directly on your face, covering it with his warm and sticky seed.'
 			end
 		elseif haraklover[lover_number] = 2:
-			facial += 1
+			
 			spafinloc = 11
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,8.jpg"></center>'
@@ -728,7 +728,7 @@ if $ARGS[0] = 'dima46':
 	spafinloc = 12
 	gs 'cum_manage'
 	swallow += 1
-	gloryhole += 1
+	stat['gloryhole'] += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/15933_markdavisdonnaannika_447.jpg"></center>'
 	'When you''re downstairs, the girl moves you into a dark room with a round hole in one wall. Almost immediately, a cock appears from the hole.'
@@ -753,7 +753,7 @@ if $ARGS[0] = 'dima47':
 	spafinloc = 12
 	gs 'cum_manage'
 	swallow += 1
-	gloryhole += 1
+	stat['gloryhole'] += 1
 	dimagh_counter += 1
 	if dimagh_counter <= 8:jump 'gloryhole1'
 	pcs_vag += 1
@@ -792,7 +792,7 @@ if $ARGS[0] = 'dima48':
 	spafinloc = 12
 	gs 'cum_manage'
 	swallow += 1
-	gloryhole += 1
+	stat['gloryhole'] += 1
 	dimagh_counter += 1
 	if dimagh_counter <= 8:jump 'gloryhole2'
 	gs 'stat'

locations/family_schedule.qsrc

@@ -71,6 +71,9 @@ if sister_indorf = 0:
 				if anyaloc['rand1'] ! daystart:
 					anyaloc = func('shortgs', 'rand_pick', '', 10, 15)
 					anyaloc['rand1'] = daystart
+					anyaloc['save1'] = anyaloc
+				else
+					anyaloc = anyaloc['save1']
 				end
 				if anyaloc = 15:
 					anyaloc['athome'] = 1
@@ -103,6 +106,9 @@ if sister_indorf = 0:
 				if anyaloc['rand2'] ! daystart:
 					anyaloc = func('shortgs', 'rand_pick', '', 13, 14, 15)
 					anyaloc['rand2'] = daystart
+					anyaloc['save2'] = anyaloc
+				else
+					anyaloc = anyaloc['save2']
 				end
 				if anyaloc = 15:
 					anyaloc['athome'] = 1

locations/fbDormD.qsrc

@@ -183,7 +183,7 @@ $d_fbd_face = {
 		gs 'cum_manage'
 		spafinloc = 12
 		gs 'cum_manage'
-		facial += 1
+		
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/fbdface.jpg"></center>'
 		'<<$boydesc>> jerks off, while his cock is pointing at your face. You instinctively stick out your tongue, and he rubs the head of his dick against it while he''s approaching his orgasm. Suddenly a jet of sperm hits your face, covering you in cum. Several more follow, some of it getting into your mouth while the rest covers your cheeks and eye lids.'

locations/garfather.qsrc

@@ -335,7 +335,7 @@ if pcs_horny > 50 and npc_sex['A28'] ! 0:
 						sexpartkno = 1
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						gs 'stat'
 						gar_rand1 = rand(0,100)
 						if gar_rand1 < 49:'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,<<rand(0,8)>>.jpg"></center>'

locations/gdksex.qsrc

@@ -558,7 +558,7 @@ if $ARGS[0] = 'kissing':
 											if boynumBlock = 0: guy += 1
 											if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1
 
-											facial += 1
+											
 											spafinloc = 11
 											gs 'cum_manage'
 											spafinloc = 7
@@ -1899,7 +1899,7 @@ if $ARGS[0] = 'hotelsex':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 					'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
@@ -1936,7 +1936,7 @@ if $ARGS[0] = 'hotelsex':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 					'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
 					if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -1960,7 +1960,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
 						if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -2017,7 +2017,7 @@ if $ARGS[0] = 'hotelsex':
 								*clr & cla
 								spafinloc = 11
 								gs 'cum_manage'
-								facial += 1
+								
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 								'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 								'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
@@ -2085,7 +2085,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
@@ -2151,7 +2151,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'You keep sucking his dick for a while longer, before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
@@ -2185,7 +2185,7 @@ if $ARGS[0] = 'hotelsex':
 							*clr & cla
 							spafinloc = 11
 							gs 'cum_manage'
-							facial += 1
+							
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 							'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
 							if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -2209,7 +2209,7 @@ if $ARGS[0] = 'hotelsex':
 								*clr & cla
 								spafinloc = 11
 								gs 'cum_manage'
-								facial += 1
+								
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 								'After he fucks your ass for a while, you turn to look over your shoulder and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$boy]>> does with great enthusiasm.'
 								if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'

locations/gdktoilet_womens.qsrc

@@ -17,629 +17,12 @@ if $ARGS[0] = 'womens':
 	'You walk in to the women''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. You notice the last stall has its door wide open.'
 
 	act 'Leave': gt 'gdktoilet', 'start'
-	act 'Go to the last stall': gt 'gdktoilet_womens', 'emptystall'
+	act 'Go to the last stall': gt 'gloryhole', 'start'
 	
 	dynamic $tampon
 	dynamic $quickwash
 	dynamic $basin		
 end
 
-if $ARGS[0] = 'emptystall':
-	*clr & cla
-	minut +=5
-	menu_off = 1
-	gs 'stat'
-	'<center><b><font color="maroon">Empty Stall</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sitting.jpg"></center>'
-	if stat['bj'] = 0:
-		gs 'stat'
-		'You walk down to the last stall and sit down, next to the toilet is a rather large almost perfectly round hole. Puzzled, you wonder how it got there and why no one has fixed it.'
-	elseif stat['bj'] >= 1:
-		pcs_horny += 10
-		gs 'stat'
-		'You walk down to the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
-	end
-	act 'Get Up':
-		cla
-		'You decide not to look in the hole and leave.'
-		act 'Leave': gt 'gdktoilet_womens', 'womens'
-	end
-	if pcs_horny >=40:
-		gs 'willpower', 'mast', 'self'
-		if will_cost <= pcs_willpwr:				
-			act 'Caress Yourself (<<will_cost>> Willpower)':
-				if pcs_inhib < 40:inhib_exp += rand(1,3)
-				*clr & cla
-				gs 'willpower', 'mast', 'self'
-				gs 'willpower', 'pay', 'self'
-				gs 'stat'
-				picrand = rand(1,2)
-				if picrand = 1:
-					*clr & cla
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/caress1.mp4"></video></center>'
-					'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
-					$orgasm_or = 'no'
-					gs 'arousal', 'clit_finger', 4, 'masturbate'
-					gs 'stat'
-					act 'Continue': gs 'gdktoilet_womens', 'contmast'
-				else
-					*clr & cla
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
-					'Feeling a bit turned on, you close the door to the stall and you sit down exposing your pussy and begin to run your clit.'
-					$orgasm_or = 'no'
-					gs 'arousal', 'clit_finger', 4, 'masturbate'
-					gs 'stat'
-					act 'Continue': gs 'gdktoilet_womens', 'contmast'
-				end
-			end
-		else
-			act 'Caress Yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	end
-	act 'Look at the Hole': gt 'gdktoilet_womens', 'hole'
-end
-
-if $ARGS[0] = 'contmast':
-	*clr & cla
-	pcs_mood += 5
-	menu_off = 1
-	if picrand = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/caress1.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
-	end
-	if pcs_horny <= 60:
-		'You are starting to feel warm and you insert your finger in your pussy.'	
-	else
-		'You are starting to feel warm and you insert your finger in your pussy. You keep fingering your pussy and before long you are breathing heavily and start to moan.'
-	end
-	$orgasm_or = 'no'
-	gs 'arousal', 'clit_finger', 4, 'masturbate'
-	gs 'stat'
-	gs 'willpower', 'mast', 'self'
-	if will_cost <= pcs_willpwr:
-		act 'Stop (<<will_cost>> Willpower)':
-			cla
-			minut += 1
-			gs 'willpower', 'mast', 'self'
-			gs 'willpower', 'pay', 'self'
-			gs 'arousal', 'end'
-			gs 'stat'
-			'You decide that you shouldn''t continue and stop yourself from finishing.'
-			act 'Leave Stall':gt 'gdktoilet_womens', 'womens'
-		end
-	else
-		act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	if pcs_horny >= 90:
-		act 'Climax':
-			*clr & cla
-			pcs_mood += 15
-			if pcs_inhib < 40: inhib_exp += rand(1,3)
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/orgasm.mp4"></video></center>'
-			$orgasm_or = 'custom'
-			$orgasm_txt = 'As your pussy gets wet you pulls your panties down and slip your fingers inside of yourself. You start finger fucking yourself, with in a few minutes a powerful orgasm rocks your body. Leaving you gasping and trembling as you recover.'
-			gs 'arousal', 'clit_finger', 2, 'masturbate'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Leave Stall':gt 'gdktoilet_womens', 'womens'
-		end
-	else
-		act 'Continue': gt 'gdktoilet_womens', 'contmast'
-	end
-end
-
-if $ARGS[0] = 'hole':
-	*clr & cla
-	menu_off = 1
-	gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
-	if npc_dick[$npclastgenerated] < 6: npc_dick[$npclastgenerated] = 6
-	gs 'boyStat', $npclastgenerated
-	minut +=5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghlooking.jpg"></center>'
-	wait 700
-	if gloryhole = 0 or rand(1,5) = 5:
-		act 'Sign the wall':
-			*clr & cla
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghstartled.mp4"></video></center>'
-			'While looking through the hole you decided to write something on the wall just above it. While you were focused on writing, you didn''t notice the dick poking through the hole until the tip of it nearly went into your mouth. Startled you jerk away from the offending penis.'
-			
-			act 'Quickly leave the stall ':
-				*clr & cla
-				minut += 2
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-				'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
-				act'Leave': gt 'gdktoilet_womens', 'womens'
-			end
-
-			gs 'willpower', 'bj', 'self'
-			if will_cost <= pcs_willpwr:
-				act 'Suck it (<<will_cost>> Willpower)': 
-					gs 'willpower', 'bj', 'self'
-					gs 'willpower', 'pay', 'self'
-					gt 'gdktoilet_womens', 'blowjob'
-				end
-			else
-				act 'Suck it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end
-			gs 'willpower', 'hj', 'self', 'easy'
-			if pcs_throat = 0 and will_cost <= pcs_willpwr:
-				act 'Touch the shaft (<<will_cost>> Willpower)':
-					gs 'willpower', 'hj', 'self'
-					gs 'willpower', 'pay', 'self'
-					gt 'gdktoilet_womens', 'virgin'
-				end
-			elseif pcs_throat = 0 and will_cost > pcs_willpwr:
-				act 'Touch the shaft (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end
-		end
-	elseif rand(1, 10) >= 7 - (ghnow * 2):
-		*clr & cla
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghseemen.jpg"></center>'
-		'You look through the hole and see several men with their backs to you, using the urinals.'
-		act 'Don''t do it':
-			cla
-			'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
-			act 'Leave':gt 'gdktoilet_womens', 'womens'
-		end
-		gs 'willpower', 'bj', 'self'
-		if will_cost <= pcs_willpwr:
-			act 'Stick your finger in the hole (<<will_cost>> Willpower)':
-				*clr & cla
-				money += 100
-				minut += 10
-				gs 'willpower', 'bj', 'self'
-				gs 'willpower', 'pay', 'self'
-				gs 'stat'
-				if gloryhole = 0:
-					'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
-					'You put your finger in the hole hoping to entice a man to come over...'
-					'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
-					act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
-				elseif gloryhole > 0:
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ready.jpg"></center>'
-					'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
-					'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
-					act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
-				end
-				gs 'willpower', 'bj', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'Stop (<<will_cost>> Willpower)':
-						*clr & cla
-						gs 'willpower', 'bj', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
-						'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
-						gs 'willpower', 'bj', 'resist', 'hard'
-						if will_cost <= pcs_willpwr:
-							act 'Take his money and Leave (<<will_cost>> Willpower)':
-								gs 'willpower', 'bj', 'resist', 'hard'
-								gs 'willpower', 'pay', 'resist'
-								gs 'stat'
-								gt 'gdktoilet_womens', 'rape'
-							end
-						else
-							act 'Take his money and Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end
-						act 'Give back the money and Leave': money -= 100 & gt 'gdktoilet_womens', 'womens'
-						act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
-					end
-				else
-					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
-			end
-		else
-			act 'Stick your finger in the hole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	else
-		*clr & cla
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghseenomen.jpg"></center>'
-		'Looking through the hole, you can see a row of urinals on the other side. The hole must be to the men''s room next door. You don''t see any men currently in there.'
-		act 'Leave': gt 'gdktoilet_womens', 'womens'
-		act 'Wait':
-			cla
-			'You decide stay and wait for someone to come.'
-			act 'Keep looking': gs 'gdktoilet_womens', 'hole'
-		end
-	end
-end
-
-if $ARGS[0] = 'virgin':
-	'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghvirgin1.mp4"></video></center>'
-	'You tentatively reach out and gently touch the dick, half afraid to, but also half wanting to.'
-	
-	act 'Quickly leave the stall':
-		*clr & cla
-		minut += 2
-		gs 'stat'
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-		'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
-		act'Leave':gt 'gdktoilet_womens', 'womens'
-	end
-	act 'Grab it':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfeeling.mp4"></video></center>'
-		'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is harder than you expected and warm to the touch, it almost feels like it is throbbing in your hand. Unexplained feelings of excitement run through your body. You hear through the wall the guy saying, "Stop playing with it and stroke it." "Huh?" You reply, not knowing why he wants you to stroke it. He replies, "Really, you don''t know? Just grab it with your hand and slide it up and down."'
-		gs 'arousal', 'foreplay', 5, 'unknown'
-		gs 'stat'
-		gs 'willpower', 'hj', 'resist', 'hard'
-		if will_cost <= pcs_willpwr:
-			act 'Stop (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'hj', 'resist', 'hard'
-				gs 'willpower', 'pay', 'resist'
-				gs 'arousal', 'end'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-				'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop...? Hello? Are you still there? What the fuck!"'
-				act 'Quickly get out': gt 'gdktoilet_womens', 'womens'
-			end
-		else
-			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		act 'Slide your hand on his penis':
-			*clr & cla
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghstroke1.mp4"></video></center>'
-			'You decide to gently slide your hand on his dick. You feel his hard penis throb as you continue to slide your hand up and down. To your surprise you are really enjoying stroking the dick, your pussy starts to itch from the experience. As you get more turned on, you grab it with both hands and stroke it.'
-			gs 'arousal', 'hj', 5, 'unknown'
-			gs 'stat'
-			act 'Continue Stroking':
-				*clr & cla
-				minut +=5
-				gs 'arousal', 'end'
-				gs 'cum_call', 'hands', 'an unknown guy from the gloryhole'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghmastcum.mp4"></video></center>'
-				'Without any warning, hot white liquid spurts out the tip of his penis. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."'
-				'You decide to lick a bit of the white liquid off your hand curiously wanting to know what it tastes like. It''s slimy and tastes tart.'
-				act 'Continue': gt 'gdktoilet_womens', 'emptystall'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'blowjob':
-	*clr & cla
-	guy += 1
-	ghnow += 1
-	gloryhole += 1
-	temp = rand(1,3)
-	'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghbj<<temp>>.mp4"></video></center>'
-	'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'
-	gs 'arousal', 'bj', 5, 'unknown', 'sub'
-	gs 'stat'
-	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'gdktoilet_womens', 'ghsex'
-	act 'Continue to Suck':
-		*clr & cla
-		temp = rand(1, 3)
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghbj<<temp>>.mp4"></video></center>'
-		'You suck on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m cuming."'
-		gs 'arousal', 'bj', 5, 'unknown', 'sub'
-		gs 'stat'
-		act 'Swallow':
-			*clr & cla
-			gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
-			gs 'arousal', 'end'
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghswallow.mp4"></video></center>'
-			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-		end
-		gs 'willpower', 'swallow', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Step back (<<will_cost>> Willpower)':
-				*clr & cla
-				facial += 1
-				gs 'willpower', 'swallow', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-				gs 'arousal', 'end'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-				'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-			end
-		else
-			act 'Step back (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	end
-end
-
-if $ARGS[0] = 'ghsex':
-	*clr & cla
-	gs 'stat'
-	'<center><b><font color="maroon">Empty Stall</font></b></center>'
-	'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghundress.mp4"></video></center>'
-	'You let go of him and quickly undress, once you are naked you start stroking him again while you line yourself up with his dick. You badly want to fuck him.'
-	gs 'arousal', 'hj', 5, 'unknown', 'sub'
-	gs 'stat'
-	if stat['anal'] > 0: act 'Ass':gt 'gdktoilet_womens', 'anal'
-	if stat['vaginal'] > 0: act 'Pussy':gt 'gdktoilet_womens', 'pussy2'
-end
-
-if $ARGS[0] = 'anal':
-	*clr & cla
-	'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghintoass.mp4"></video></center>'
-	'You rub your wet pussy and get your fingers nice and wet and then rub it on your asshole, you do the same to his dick, then you guide his <<npc_dick[$npclastgenerated]>>cm <<$npc_thdick[$npclastgenerated]>> cock into your ass. You feel his dick enter your tight ass, feelings of pain and pleasure rush through you.'
-	anal_slip += 4
-	gs 'arousal', 'clit_finger', 5, 'unknown', 'sub'
-	gs 'arousal', 'anal', 5, 'unknown', 'sub'
-	minut -= 5
-	gs 'stat'
-	act 'Keep Going':
-		*clr & cla
-		gs 'stat'
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghanal.mp4"></video></center>'
-
-		if pcs_ass < 10:
-			'The pain doesn''t fade and instead it starts to hurt worse after a while and the pleasure starts to fade. You fuck his dick with your ass, at first taking him deeper and deeper, as you get faster and faster. As the pleasure fades and the pain gets worse you slow down and don''t take him as deep. You start to rub your clit to help with the sensation of pleasure. You consider stopping as the pain gets worse, but you can tell by the throbbing of his dick and ragged breathing he is about to cum and decided to keep it up so he can finish.'
-		elseif pcs_ass < 20:
-			'The pain fades slowly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
-		else
-			'The pain fades quickly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
-		end
-		gs 'arousal', 'anal', 5, 'unknown', 'sub'
-		gs 'stat'
-		
-		gs 'willpower', 'anal', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Stop (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'anal', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'arousal', 'end'
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/analpain.jpg"></center>'
-				'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
-				act 'Leave': gt 'gdktoilet_womens', 'womens'
-			end
-		else
-			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		act 'Let him cum in your ass':
-			*clr & cla
-			gs 'cum_call', 'anus', 'an unknown guy from the gloryhole'
-			gs 'arousal', 'anal', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
-			
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghanalcream1.mp4"></video></center>'
-			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
-
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-		end
-		gs 'willpower', 'cum_inside_anal', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Let him cum all over your ass (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'cum_inside_anal', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
-				gs 'arousal', 'anal', 10, 'unknown', 'sub'
-				minut -= 9
-				gs 'arousal', 'end'
-				gs 'stat'
-				
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghcumonass.jpg"></center>'
-				'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
-
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-			end
-		else
-			act 'Let him cum all over your ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		act 'Turn around, kneel and let him cum in your mouth':
-			*clr & cla
-			gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghswallow.mp4"></video></center>'
-			'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-			gs 'arousal', 'bj', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-		end
-		gs 'willpower', 'swallow', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Turn around, kneel and let him cum on your face (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'swallow', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				facial += 1
-				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-				gs 'arousal', 'hj', 10, 'unknown', 'sub'
-				minut -= 9
-				gs 'arousal', 'end'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
-			end
-		else
-			act 'Turn around, kneel and let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	end
-end
-
-if $ARGS[0] = 'pussy':
-	if prezik > 0:
-		dynamic $prezik
-		protect = 1
-		if preziktype = 2:
-			sexcontra = 7
-			'You take one of your sabotaged condoms and put it on the stranger.'
-		else
-			sexcontra = 3
-			'You take a condom and put it on the stranger''s dick.'
-		end
-	else
-		sexcontra = 0
-	end
-end
-
-if $ARGS[0] = 'pussy2':
-	*clr & cla
-	gs 'stat'
-	if protect = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghsexcon.mp4"></video></center>'
-	else
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghsex.mp4"></video></center>'
-	end
-	gs 'gdktoilet_womens', 'pussy'
-	'You turn around and back up to the hole, you use one hand to guide his dick into your pussy. The <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock slides easily into your wet pussy, causing you to moan in pleasure as you move your hips back and forth. You start humping his dick with fast movements, taking the full length of him balls deep into you, which causes him to moan loudly. After several minutes, you hear him on the other side of the wall yell out, "I''m gonna cum."'
-	gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
-	gs 'stat'
-	if protect ! 1:
-		act 'Allow him to cum inside':
-			*clr & cla
-			gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghcreampie.mp4"></video></center>'
-			'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
-			gs 'cuminsidereact', 'an unknown guy from the gloryhole'
-			gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
-		end
-		gs 'willpower', 'cum_inside', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Quickly turn around and get on your knees (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'cum_inside', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
-				act 'Let him cum in your mouth':
-					*clr & cla
-					gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
-					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghswallow.mp4"></video></center>'
-					'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-					gs 'arousal', 'bj', 10, 'unknown', 'sub'
-					minut -= 9
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
-				end
-				gs 'willpower', 'swallow', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'Let him cum on your face (<<will_cost>> Willpower)':
-						*clr & cla
-						gs 'willpower', 'swallow', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						facial += 1
-						gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-						gs 'arousal', 'hj', 10, 'unknown', 'sub'
-						minut -= 9
-						gs 'arousal', 'end'
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-						'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-
-						act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
-					end
-				else
-					act 'Let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
-			end
-		else
-			act 'Quickly turn around and get on your knees (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	else
-		if sexcontra = 4:
-			'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom burst."'
-		elseif sexcontra = 5:
-			'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom is missing!"'
-		else
-			'<<$boydesc>> groaned and you realized that he came in the condom.'
-		end
-		sexcontra = 0
-		protect = 0
-
-		act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
-	end
-end
-
-if $ARGS[0] = 'rape':
-	*clr & cla
-	menu_off = 1
-	gs 'stat'
-	dick = rand(9, 25)
-	if rand(1, 20) > 12:
-		gs 'npcgeneratec', 0, 'rapist', rand(19,45)
-		gs 'boyStat', $npclastgenerated
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape3.mp4"></video></center>'
-		'Just as you are leaving the women''s restroom a naked man storms out of the men''s restroom and grabs you by the hair and drags you inside the men''s room. He rips off your top and forces you down on your knees, shoving his dick in your mouth, forcing you to suck his dick.'
-		act 'Continue':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape4.mp4"></video></center>'
-			'You bite down his dick, which makes him pull his dick out of your mouth. "Fine you little fucking cunt, we''ll do this the hard way." He lifts you up and forces you between two urinals with your face up against the wall. He roughly shoves his cock in your ass, the only lubrication is the bit of your saliva still on his dick. It feels like he is ripping your ass open, you cry and scream. He just jackhammers your ass balls deep, while holding you by the throat.'
-			gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
-			minut -= 5
-			gs 'stat'
-			act 'Continue':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape1.mp4"></video></center>'
-				'As you scream he reaches up and clamps a hand over your mouth to muffle your screams, he continues you pound your ass balls deep with his dick. Not relenting no matter how much you struggle or cry. "You think it''s funny bitch to steal a man''s hard earned money, well you won''t think it is so funny after I am done with you. I''m going to fuck your ass till it bleeds like your cunt."'
-				'He keeps ripping your ass up with his dick, the pain is unbearable, but there is nothing you can do about it. You really wish you hadn''t taken his money and kept it.'
-				gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
-				minut -= 5
-				gs 'stat'
-				act 'Continue':
-					*clr & cla
-					rape += 1
-					gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
-					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
-					'Finally he pulls the dick out of your ass and forces you back to your knees, he shoves his dick back in your mouth and you can taste your own ass on his dick. He says to you. "You fucking bite me again bitch and I will call everyone I know and we will train fuck your ass for days." Afraid he is serious you suck his dick until he finally shoots his load in your mouth.'
-					gs 'arousal', 'bj', 10, 'unknown', 'sub', 'rough'
-					minut -= 5
-					gs 'arousal', 'end'
-					gs 'stat'
-					'With that he lets go of you and walks off in disgust.'
-					'Grabbing your clothes you get up and run out of the bathroom and run all the way home, only once you are several blocks away do you stop to put your clothes back on.'
-					act 'Leave':gt 'korrPar'
-				end
-			end
-		end
-	elseif (day >= 5 and week < 7) and (hour >= 20 and hour <= 23):
-		if music_on = 1:
-			$track_loop = 'sound/komb.mp3'
-			volume = 50
-			music_loop = 1
-			pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
-		else
-			music_loop = 0
-			close all
-			pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
-		end
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club.jpg"></center>'
-		'You run into the crowd and start dancing to blend in. You hear a man yell out, "Where''s that bitch that took my money?" He storms off and you feel like it''s your lucky day today.'
-		act 'Dance':
-			*clr & cla
-			minut +=10
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/dance.jpg"></center>'
-			'You continue to dance until the man has left.'
-			act 'Stop': gt 'pav_disco'
-		end
-	else
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
-		'You run from the community center and don''t stop until you are back in the residential area'
-		act 'Catch your breath': minut += 5 & gt 'pav_residential'
-	end
-end
-
 --- gdktoilet_womens ---------------------------------
 

locations/gloryhole.qsrc

@@ -0,0 +1,644 @@
+# gloryhole
+
+if $ARGS[0] = 'start':
+	*clr & cla
+	minut +=5
+	menu_off = 1
+	gs 'stat'
+	'<center><b><font color="maroon">Empty Stall</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/sitting.jpg"></center>'
+	if stat['bj'] = 0:
+		gs 'stat'
+		'You walk down to the last stall and sit down, next to the toilet is a rather large almost perfectly round hole. Puzzled, you wonder how it got there and why no one has fixed it.'
+	elseif stat['bj'] >= 1:
+		pcs_horny += 10
+		gs 'stat'
+		'You walk down to the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
+	end
+	act 'Get Up':
+		cla
+		'You decide not to look in the hole and leave.'
+		act 'Leave': gt $loc, $loc_arg
+	end
+	if pcs_horny >=40:
+		gs 'willpower', 'mast', 'self'
+		if will_cost <= pcs_willpwr:				
+			act 'Caress Yourself (<<will_cost>> Willpower)':
+				if pcs_inhib < 40:inhib_exp += rand(1,3)
+				gs 'willpower', 'mast', 'self'
+				gs 'willpower', 'pay', 'self'
+				gt 'gloryhole', 'mast'
+			end
+		else
+			act 'Caress Yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	end
+	act 'Look at the Hole': gt 'gloryhole', 'hole'
+end
+
+if $ARGS[0] = 'mast':
+	if $ARGS[1] = '':
+		*clr & cla
+		gs 'stat'
+		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/caress1.mp4"></video></center>'
+		'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
+		$orgasm_or = 'no'
+		gs 'arousal', 'clit_finger', 4, 'masturbate'
+		gs 'stat'
+		act 'Continue': gs 'gloryhole', 'mast', 'stage2'
+	end
+
+	if $ARGS[1] = 'stage2':
+		*clr & cla
+		pcs_mood += 5
+		menu_off = 1
+		if picrand = 1:
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/caress1.mp4"></video></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
+		end
+		if pcs_horny <= 60:
+			'You are starting to feel warm and you insert your finger in your pussy.'	
+		else
+			'You are starting to feel warm and you insert your finger in your pussy. You keep fingering your pussy and before long you are breathing heavily and start to moan.'
+		end
+		$orgasm_or = 'no'
+		gs 'arousal', 'clit_finger', 4, 'masturbate'
+		gs 'stat'
+		gs 'willpower', 'mast', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Stop (<<will_cost>> Willpower)':
+				cla
+				minut += 1
+				gs 'willpower', 'mast', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'You decide that you shouldn''t continue and stop yourself from finishing.'
+				act 'Leave': gt $loc, $loc_arg
+			end
+		else
+			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		if pcs_horny >= 90:
+			act 'Climax':
+				*clr & cla
+				pcs_mood += 15
+				if pcs_inhib < 40: inhib_exp += rand(1,3)
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/orgasm.mp4"></video></center>'
+				$orgasm_or = 'custom'
+				$orgasm_txt = 'As your pussy gets wet you pulls your panties down and slip your fingers inside of yourself. You start finger fucking yourself, with in a few minutes a powerful orgasm rocks your body. Leaving you gasping and trembling as you recover.'
+				gs 'arousal', 'clit_finger', 2, 'masturbate'
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Leave': gt $loc, $loc_arg
+			end
+		else
+			act 'Continue': gt 'gloryhole', 'mast', 'stage2'
+		end
+	end
+end	
+
+if $ARGS[0] = 'hole':
+	*clr & cla
+	menu_off = 1
+	gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
+	if npc_dick[$npclastgenerated] < 6: npc_dick[$npclastgenerated] = 6
+	gs 'boyStat', $npclastgenerated
+	minut +=5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/looking.jpg"></center>'
+	wait 700
+	if gloryhole = 0 or rand(1,5) = 5:
+		act 'Sign the wall':
+			*clr & cla
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghstartled.mp4"></video></center>'
+			'While looking through the hole you decided to write something on the wall just above it. While you were focused on writing, you didn''t notice the dick poking through the hole until the tip of it nearly went into your mouth. Startled you jerk away from the offending penis.'
+			
+			act 'Quickly leave the stall ':
+				*clr & cla
+				minut += 2
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
+				'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
+				act 'Leave': gt $loc, $loc_arg
+			end
+
+			gs 'willpower', 'bj', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Suck it (<<will_cost>> Willpower)': 
+					gs 'willpower', 'bj', 'self'
+					gs 'willpower', 'pay', 'self'
+					gt 'gloryhole', 'blowjob'
+				end
+			else
+				act 'Suck it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+			gs 'willpower', 'hj', 'self', 'easy'
+			if pcs_throat = 0 and will_cost <= pcs_willpwr:
+				act 'Touch the shaft (<<will_cost>> Willpower)':
+					gs 'willpower', 'hj', 'self'
+					gs 'willpower', 'pay', 'self'
+					gt 'gloryhole', 'virgin'
+				end
+			elseif pcs_throat = 0 and will_cost > pcs_willpwr:
+				act 'Touch the shaft (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+	elseif rand(1, 10) >= 7 - (ghnow * 2):
+		*clr & cla
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/see_men.jpg"></center>'
+		'You look through the hole and see several men with their backs to you, using the urinals.'
+		act 'Don''t do it':
+			cla
+			'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
+			act 'Leave': gt $loc, $loc_arg
+		end
+		gs 'willpower', 'bj', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Stick your finger in the hole (<<will_cost>> Willpower)':
+				*clr & cla
+				money += 100
+				minut += 10
+				gs 'willpower', 'bj', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				if gloryhole = 0:
+					'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
+					'You put your finger in the hole hoping to entice a man to come over...'
+					'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
+				elseif gloryhole > 0:
+					'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/ready.jpg"></center>'
+					'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
+					'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
+				end
+				act 'Suck it': gt 'gloryhole', 'blowjob'
+				
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Stop (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
+						gs 'willpower', 'bj', 'resist', 'hard'
+						if will_cost <= pcs_willpwr:
+							act 'Take his money and Leave (<<will_cost>> Willpower)':
+								gs 'willpower', 'bj', 'resist', 'hard'
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								!gt 'gloryhole', 'rape'
+								gt $loc, $loc_arg
+							end
+						else
+							act 'Take his money and Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+						act 'Give back the money and Leave': 
+							money -= 100
+							gt $loc, $loc_arg
+						end
+						act 'Blow Him': gt 'gloryhole', 'blowjob'
+					end
+				else
+					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		else
+			act 'Stick your finger in the hole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	else
+		*clr & cla
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/see_none.jpg"></center>'
+		'Looking through the hole, you can see a row of urinals on the other side. The hole must be to the men''s room next door. You don''t see any men currently in there.'
+		act 'Leave': gt $loc, $loc_arg
+		act 'Wait':
+			cla
+			'You decide stay and wait for someone to come.'
+			act 'Keep looking': gs 'gloryhole', 'hole'
+		end
+	end
+end
+
+if $ARGS[0] = 'virgin':
+	'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghvirgin1.mp4"></video></center>'
+	'You tentatively reach out and gently touch the dick, half afraid to, but also half wanting to.'
+	
+	act 'Quickly leave the stall':
+		*clr & cla
+		minut += 2
+		gs 'stat'
+		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
+		'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
+		act 'Leave': gt $loc, $loc_arg
+	end
+	act 'Grab it':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfeeling.mp4"></video></center>'
+		'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is harder than you expected and warm to the touch, it almost feels like it is throbbing in your hand. Unexplained feelings of excitement run through your body. You hear through the wall the guy saying, "Stop playing with it and stroke it." "Huh?" You reply, not knowing why he wants you to stroke it. He replies, "Really, you don''t know? Just grab it with your hand and slide it up and down."'
+		gs 'arousal', 'foreplay', 5, 'unknown'
+		gs 'stat'
+		gs 'willpower', 'hj', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Stop (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'hj', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
+				'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop...? Hello? Are you still there? What the fuck!"'
+				act 'Quickly get out': gt $loc, $loc_arg
+			end
+		else
+			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		act 'Slide your hand on his penis':
+			*clr & cla
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghstroke1.mp4"></video></center>'
+			'You decide to gently slide your hand on his dick. You feel his hard penis throb as you continue to slide your hand up and down. To your surprise you are really enjoying stroking the dick, your pussy starts to itch from the experience. As you get more turned on, you grab it with both hands and stroke it.'
+			gs 'arousal', 'hj', 5, 'unknown'
+			gs 'stat'
+			act 'Continue Stroking':
+				*clr & cla
+				minut +=5
+				gs 'arousal', 'end'
+				gs 'cum_call', 'hands', 'an unknown guy from the gloryhole'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghmastcum.mp4"></video></center>'
+				'Without any warning, hot white liquid spurts out the tip of his penis. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."'
+				'You decide to lick a bit of the white liquid off your hand curiously wanting to know what it tastes like. It''s slimy and tastes tart.'
+				act 'Continue': gt 'gloryhole', 'start'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'blowjob':
+	*clr & cla
+	guy += 1
+	ghnow += 1
+	stat['gloryhole'] += 1
+	temp = rand(1,5)
+
+	$bjVideoSource = 'images/locations/shared/gloryhole/sex/dressed'
+	'<center><video autoplay loop src="<<$bjVideoSource>>/bj<<rand(1,5)>>.mp4"></video></center>'
+	'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'
+	gs 'arousal', 'bj', 5, 'unknown', 'sub'
+	gs 'stat'
+	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'gloryhole', 'ghsex'
+	act 'Continue to Suck':
+		*clr & cla
+		'<center><video autoplay loop src="<<$bjVideoSource>>/bj<<rand(1,5)>>.mp4"></video></center>'
+		'You suck on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m cuming."'
+		gs 'arousal', 'bj', 5, 'unknown', 'sub'
+		gs 'stat'
+		
+		act 'Keep sucking':
+			*clr & cla
+			'<center><video autoplay loop src="<<$bjVideoSource>>/bj<<rand(1,5)>>.mp4"></video></center>'
+			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth.'
+			act 'Swallow':
+				cla
+				gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'You gather a mouthful of sperm, and then swallow it. Their sperm has a sticky and sharp taste which makes you grimace.'
+				act 'Get up': gt 'gloryhole', 'start'
+			end
+
+			act 'Spit out':
+				cla
+				gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'You decide to spit it all out.'
+				act 'Get up': gt 'gloryhole', 'start'
+			end
+		end
+		gs 'willpower', 'swallow', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Step back (<<will_cost>> Willpower)':
+					*clr & cla
+					
+					gs 'willpower', 'swallow', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+					gs 'arousal', 'end'
+					gs 'stat'
+					'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
+					'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+					act 'Get up': gt 'gloryhole', 'start'
+				end
+			else
+				act 'Step back (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		
+	end
+end
+
+if $ARGS[0] = 'ghsex':
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Empty Stall</font></b></center>'
+	'<center><video autoplay loop src="images/locations/shared/gloryhole/action/undress.mp4"></video></center>'
+	'You let go of him and quickly undress, once you are naked you start stroking him again while you line yourself up with his dick. You badly want to fuck him.'
+	gs 'arousal', 'hj', 5, 'unknown', 'sub'
+	gs 'stat'
+	if stat['anal'] > 0: act 'Ass':gt 'gloryhole', 'anal'
+	if stat['vaginal'] > 0: 
+		if prezik > 0: act "Use a condom": gt 'gloryhole', 'condom'
+
+		gs 'willpower', 'sex', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Pussy (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'self'
+				sexcontra = 0
+				gt 'gloryhole', 'pussy'
+			end
+		else:
+			act 'Pussy (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	end
+end
+
+if $ARGS[0] = 'condom':
+	*clr & cla
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/condom_on.mp4"></video></center>'
+	dynamic $prezik
+	protect = 1
+	if preziktype = 2:
+		sexcontra = 7
+		'You take one of your sabotaged condoms and put it on the stranger.'
+	else
+		sexcontra = 3
+		'You take a condom and put it on the stranger''s dick.'
+	end
+	act 'Continue': gt 'gloryhole', 'pussy'
+end
+
+if $ARGS[0] = 'pussy':
+	*clr & cla
+	gs 'stat'
+
+	temp = rand(1,5)
+	if rand(0,2) > 0:
+		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
+	else:
+		if protect = 1:
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vagcon<<temp>>.mp4"></video></center>'
+		else:
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vag<<temp>>.mp4"></video></center>'
+		end
+	end
+	
+	'You turn around and back up to the hole, you use one hand to guide his dick into your pussy. The <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock slides easily into your wet pussy, causing you to moan in pleasure as you move your hips back and forth. You start humping his dick with fast movements, taking the full length of him balls deep into you, which causes him to moan loudly. After several minutes, you hear him on the other side of the wall yell out, "I''m gonna cum."'
+	gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
+	gs 'stat'
+	if protect ! 1:
+		gs 'dinSex', 'std_trigger'
+		
+		if tabletkicheck  = 0:
+			gs 'willpower', 'cum_inside', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Allow him to cum inside (<<will_cost>> WillPower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
+					'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
+					'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
+					gs 'cuminsidereact', 'an unknown guy from the gloryhole'
+					gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
+					minut -= 9
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Get dressed': gt 'gloryhole', 'start'
+				end
+			else
+				act 'Allow him to cum inside (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		else:
+			act 'Allow him to cum inside':
+				*clr & cla
+				gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
+				'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
+				gs 'cuminsidereact', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Get dressed': gt 'gloryhole', 'start'
+			end
+		end
+		
+		act 'Quickly turn around and get on your knees':
+			*clr & cla
+			gs 'stat'
+			act 'Let him cum in your mouth':
+				*clr & cla
+				gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
+				'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
+				gs 'arousal', 'bj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Get dressed': gt 'gloryhole', 'start'
+			end
+			act 'Let him cum on your face':
+				*clr & cla
+				
+				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'hj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
+				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+
+				act 'Get dressed': gt 'gloryhole', 'start'
+			end
+		end
+	else
+		if sexcontra = 4:
+			'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom burst."'
+		elseif sexcontra = 5:
+			'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom is missing!"'
+		else
+			'<<$boydesc>> groaned and you realized that he came in the condom.'
+		end
+		sexcontra = 0
+		protect = 0
+
+		act 'Get dressed': gt 'gloryhole', 'start'
+	end
+end
+
+if $ARGS[0] = 'anal':
+	*clr & cla
+	'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghintoass.mp4"></video></center>'
+	'You rub your wet pussy and get your fingers nice and wet and then rub it on your asshole, you do the same to his dick, then you guide his <<npc_dick[$npclastgenerated]>>cm <<$npc_thdick[$npclastgenerated]>> cock into your ass. You feel his dick enter your tight ass, feelings of pain and pleasure rush through you.'
+	anal_slip += 4
+	gs 'arousal', 'clit_finger', 5, 'unknown', 'sub'
+	gs 'arousal', 'anal', 5, 'unknown', 'sub'
+	minut -= 5
+	gs 'stat'
+	act 'Keep Going':
+		*clr & cla
+		gs 'stat'
+		temp = rand(1,5)
+		if rand(0,2) > 0:
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
+		else:
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/anal<<temp>>.mp4"></video></center>'
+		end
+		if pcs_ass < 10:
+			'The pain doesn''t fade and instead it starts to hurt worse after a while and the pleasure starts to fade. You fuck his dick with your ass, at first taking him deeper and deeper, as you get faster and faster. As the pleasure fades and the pain gets worse you slow down and don''t take him as deep. You start to rub your clit to help with the sensation of pleasure. You consider stopping as the pain gets worse, but you can tell by the throbbing of his dick and ragged breathing he is about to cum and decided to keep it up so he can finish.'
+		elseif pcs_ass < 20:
+			'The pain fades slowly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
+		else
+			'The pain fades quickly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
+		end
+		gs 'arousal', 'anal', 5, 'unknown', 'sub'
+		gs 'stat'
+		
+		if pcs_ass < 10:
+				if will_cost <= pcs_willpwr:
+					act 'Stop (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'anal', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/analpain.jpg"></center>'
+						'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
+						act 'Leave': gt $loc, $loc_arg
+					end
+				else
+					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+		end
+		gs 'willpower', 'anal', 'resist'
+		
+
+		act 'Let him cum in your ass':
+			*clr & cla
+			gs 'cum_call', 'anus', 'an unknown guy from the gloryhole'
+			gs 'arousal', 'anal', 10, 'unknown', 'sub'
+			minut -= 9
+			gs 'arousal', 'end'
+			gs 'stat'
+			
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghanalcream1.mp4"></video></center>'
+			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
+
+			act 'Get up': gt 'gloryhole', 'start'
+		end
+
+		act 'Let him cum all over your ass':
+			*clr & cla
+			gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
+			gs 'arousal', 'anal', 10, 'unknown', 'sub'
+			minut -= 9
+			gs 'arousal', 'end'
+			gs 'stat'
+			
+			'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghcumonass.jpg"></center>'
+			'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
+
+			act 'Get up': gt 'gloryhole', 'start'
+		end
+
+		gs 'willpower', 'swallow', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Turn around, kneel and let him cum in your mouth (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'swallow', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
+				'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
+				gs 'arousal', 'bj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Get up': gt 'gloryhole', 'start'
+			end
+		else
+			act 'Turn around, kneel and let him cum in your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+		act 'Turn around, kneel and let him cum on your face':
+			*clr & cla
+			
+			gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+			gs 'arousal', 'hj', 10, 'unknown', 'sub'
+			minut -= 9
+			gs 'arousal', 'end'
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
+			'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+
+			act 'Get up': gt 'gloryhole', 'start'
+		end
+
+	end
+end
+
+!{if $ARGS[0] = 'rape':
+	*clr & cla
+	menu_off = 1
+	gs 'stat'
+	dick = rand(9, 25)
+	if rand(1, 20) > 12:
+		gs 'npcgeneratec', 0, 'rapist', rand(19,45)
+		gs 'boyStat', $npclastgenerated
+		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape3.mp4"></video></center>'
+		'Just as you are leaving the women''s restroom a naked man storms out of the men''s restroom and grabs you by the hair and drags you inside the men''s room. He rips off your top and forces you down on your knees, shoving his dick in your mouth, forcing you to suck his dick.'
+		act 'Continue':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape4.mp4"></video></center>'
+			'You bite down his dick, which makes him pull his dick out of your mouth. "Fine you little fucking cunt, we''ll do this the hard way." He lifts you up and forces you between two urinals with your face up against the wall. He roughly shoves his cock in your ass, the only lubrication is the bit of your saliva still on his dick. It feels like he is ripping your ass open, you cry and scream. He just jackhammers your ass balls deep, while holding you by the throat.'
+			gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
+			minut -= 5
+			gs 'stat'
+			act 'Continue':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape1.mp4"></video></center>'
+				'As you scream he reaches up and clamps a hand over your mouth to muffle your screams, he continues you pound your ass balls deep with his dick. Not relenting no matter how much you struggle or cry. "You think it''s funny bitch to steal a man''s hard earned money, well you won''t think it is so funny after I am done with you. I''m going to fuck your ass till it bleeds like your cunt."'
+				'He keeps ripping your ass up with his dick, the pain is unbearable, but there is nothing you can do about it. You really wish you hadn''t taken his money and kept it.'
+				gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
+				minut -= 5
+				gs 'stat'
+				act 'Continue':
+					*clr & cla
+					rape += 1
+					gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
+					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
+					'Finally he pulls the dick out of your ass and forces you back to your knees, he shoves his dick back in your mouth and you can taste your own ass on his dick. He says to you. "You fucking bite me again bitch and I will call everyone I know and we will train fuck your ass for days." Afraid he is serious you suck his dick until he finally shoots his load in your mouth.'
+					gs 'arousal', 'bj', 10, 'unknown', 'sub', 'rough'
+					minut -= 5
+					gs 'arousal', 'end'
+					gs 'stat'
+					'With that he lets go of you and walks off in disgust.'
+					'Grabbing your clothes you get up and run out of the bathroom and run all the way home, only once you are several blocks away do you stop to put your clothes back on.'
+					act 'Leave':gt 'korrPar'
+				end
+			end
+		end
+	else
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
+		'You run from the community center and don''t stop until you are back in the residential area'
+		act 'Catch your breath': minut += 5 & gt 'pav_residential'
+	end
+end}
+
+--- gloryhole ---------------------------------

locations/gopnew.qsrc

@@ -733,7 +733,7 @@ if $ARGS[0] = 'tf':
 		act 'Continue':
 			cla & *clr
 			minut += 3
-			facial += 1
+			
 			gs 'boyStat', 'A102'
 			spafinloc = 11
 			gs 'cum_manage'

locations/gopskver.qsrc

@@ -668,7 +668,7 @@ if $ARGS[0] = 'BjBeerDouble':
 	pcs_throat = pcs_throat + 1
 	spafinloc = 11
 	gs 'cum_manage'
-	facial += 1
+	
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
@@ -741,7 +741,7 @@ if $ARGS[0] = 'BjBeerPhone':
 	pcs_throat += 1
 	spafinloc = 11
 	gs 'cum_manage'
-	facial += 1
+	
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
@@ -782,7 +782,7 @@ if $ARGS[0] = 'BjBeerPalevo':
 	pcs_throat = pcs_throat + 1
 	spafinloc = 11
 	gs 'cum_manage'
-	facial += 1
+	
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'

locations/gschool_coolkid_chats.qsrc

@@ -470,7 +470,7 @@ if $ARGS[0] = 'katja':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-	if rand(1,3) = 1 and npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
+	if npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
 		act 'Show her you are not wearing panties.': gt 'Katja_tanga', 'school'
 	end
 	if katjaQW['QWstage'] > 2:

locations/gschool_grounds.qsrc

@@ -11,6 +11,9 @@ if $ARGS[0] = 'main':
 	menu_off = 0
 	killvar '$locclass'
 	*clr & cla
+	gs 'vicky_meynold_schedule'
+	gs 'katja_meynold_schedule'
+	gs 'igor_schedule'
 	gs 'stat'
 	'<center><b><font color="maroon">Outside School</font></b></center>'
 	if month >= 11 or month <= 3:
@@ -242,14 +245,14 @@ if $ARGS[0] = 'main':
 			if JuliaMilLernQW >= 1: '<a href="exec:minut += 1 & gt ''JuliaMilGo''">Julia</a> is sitting out on the courtyard, reading a book.'
 			if NatbelQW['QWstage'] > 0: '<a href="exec:minut += 1 & gt ''NatBelGo''">Natasha</a> is standing in a corner.'
 			if artemLernQW >= 1 and artemVitokQW ! 2 and artemblok = 0 and artlie ! 2 and artembrokenheart ! 1: '<a href="exec:minut += 15 & gt ''artem_events'', ''start''">Artem</a> is waiting for you near the school entrance.'
-			if katjaQW['afterschool_hangout_day'] ! daystart and katjaQW['QWstage'] >= 1: '<a href="exec:minut += 15 & gt ''katjaEv''">Katja</a> is walking across the school courtyard, getting ready to go home.'
+			if katjaQW['afterschool_hangout_day'] ! daystart and katjaQW['QWstage'] >= 1 and locat['katja'] = 6: '<a href="exec:minut += 15 & gt ''katjaEv''">Katja</a> is walking across the school courtyard, getting ready to go home.'
 			if DimaBeHomeOnce = 1 and DimaRudeBlock = 0:
 				'<a href="exec:minut += 15 & gt ''dimaEv'', ''after_school''">Dimka</a> is deep in thought, as he leans against a lamp post.'
 			elseif DimaRudeQW > 0 and dimarudeday ! daystart and DimaRudeBlock = 0:
 				if rand(0,4) = 0: gt 'dimaEv', 'after_school'
 				'<a href="exec:minut += 15 & gt ''dimaEv'', ''after_school''">Dimka</a> is deep in thought, as he leans against a lamp post.'
 			end
-			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0: '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor</a> is talking to some of his friends on the courtyard.'
+			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0 and locat['igor']  = 6: '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor</a> is talking to some of his friends on the courtyard.'
 			if fedorKozlovQW >= 10 and kotovVSkozlov = 1:
 				'You can see <a href="exec: gt ''FedorEv'', ''Strela Chat''">Fedor</a> sitting in the corner of the schoolyard by himself.'
 			elseif fedorKozlovQW >= 10 and fedorkozqw = 2 and FedorLuv < -4:
@@ -257,7 +260,7 @@ if $ARGS[0] = 'main':
 			elseif fedorKozlovQW >= 10:
 				'You can see <a href="exec: gt ''FedorEv'', ''Start''">Fedor</a> standing by himself, his backpack around his arm.'
 			end
-			if NikoVolkovQW >= 5 and NikoDate = 1 and NikoDate_Day ! daystart or NikoEv = 11:
+			if NikoVolkovQW >= 5 and NikoDate = 1 and NikoNextDate_day <= daystart or NikoEv = 11:
 				'You can see <a href="exec:gt ''NikoEv'', ''Niko Dates''">Nikolai Volkov</a> smoking outside of the school.'
 			elseif NikoVolkovQW >= 10 and NikoEv >= 17 and NikoEv <= 20 and NikoDate_Day ! daystart:
 				'<a href="exec:gt ''NikoEv2'', ''Events''">Nikolai</a> is smoking outside of the school.'	
@@ -270,14 +273,14 @@ if $ARGS[0] = 'main':
 			if JuliaMilLernQW >= 1: gs 'show_table', '<a href="exec:minut += 1 & gt ''JuliaMilGo''">Julia Milova</a>', '5'
 			if NatbelQW['QWstage'] > 0: gs 'show_table', '<a href="exec:minut += 1 & gt ''NatBelGo''">Natasha Belova</a>', '5'
 			if artemLernQW >= 1 and artemVitokQW ! 2 and artemblok = 0 and artlie ! 2 and artembrokenheart ! 1: gs 'show_table', '<a href="exec:minut += 15 & gt ''artem_events'', ''start''">Artem Chebotarev</a>', '5'
-			if katjaQW['afterschool_hangout_day'] ! daystart and katjaQW['QWstage'] >= 1: gs 'show_table', '<a href="exec:minut += 15 & gt ''katjaEv''">Katja Meynold</a>', '5'
+			if katjaQW['afterschool_hangout_day'] ! daystart and katjaQW['QWstage'] >= 1 and locat['katja'] = 6: gs 'show_table', '<a href="exec:minut += 15 & gt ''katjaEv''">Katja Meynold</a>', '5'
 			if DimaBeHomeOnce = 1 and DimaRudeBlock = 0:
 				gs 'show_table', '<a href="exec:minut += 15 & gt ''dimaHome'', ''home''">Dimka Nosov</a>', '5'
 			elseif DimaRudeQW > 0 and dimarudeday ! daystart and DimaRudeBlock = 0:
 				if rand(0,4) = 0: gt 'dimaEv', 'after_school'
 				gs 'show_table', '<a href="exec:minut += 15 & gt ''dimaEv'', ''after_school''">Dimka Nosov</a>', '5'
 			end
-			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0: gs 'show_table', '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor Kruglov</a>', '5'
+			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0 and locat['igor']  = 6: gs 'show_table', '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor Kruglov</a>', '5'
 			if fedorKozlovQW >= 10 and kotovVSkozlov = 1:
 				gs 'show_table', '<a href="exec: gt ''FedorEv'', ''Strela Chat''">Fedor</a>', '5'
 			elseif fedorKozlovQW >= 10 and fedorkozqw = 2 and FedorLuv < -4:

locations/gschool_outcast_chats.qsrc

@@ -5,13 +5,14 @@ if $ARGS[0] = 'lesco':
 	*clr & cla
 	menu_off = 1
 	gs 'npc_relationship', 'modify', 'A7', 'like'
+	chrsm_exp += rand(1,2)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big7.jpg"></center>'
 	if rand(0,5) = 0:
 		'You see Lesco talking to Lera and, unsurprisingly, things look tense. Knowing how volatile the gopnik can be, you approach them carefully. They greet you and Lesco is the first to speak up. "Lera and I were talking about her needing to do her chores at home, but she doesn''t want to listen..."'
 		'An annoyed Lera is quick to snap back. "Why are you telling your little girlfriend my business? Trying to show off? Try that shit again and I''ll tell her all your dirty... little... secrets..." she says while prodding him on the chest.'
 		'Hearing this, you wonder what kind of secrets someone like Lesco could be hiding, but keep quiet as you don''t really want to get involved. They continue bickering as you decide to leave them alone.'
-	elseif fame['pav_slut'] >= 200:
+	elseif fame['pav_slut'] > 200:
 		if npc_rel['A7'] >= 50:
 			'Lesco doesn''t look comfortable as you approach, but you think he''s too shy to say anything to chase you off. "Oh... Hey <<$pcs_nickname>>..." You engage in an awkward conversation with him as he avoids eye contact with you and gives you brief, one word answers.'
 		else
@@ -61,9 +62,10 @@ if $ARGS[0] = 'petia':
 	*clr & cla
 	menu_off = 1
 	gs 'npc_relationship', 'modify', 'A159', 'like'
+	chrsm_exp += rand(1,2)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big159.jpg"></center>'
-	if fame['pav_slut'] >= 200:
+	if fame['pav_slut'] > 200:
 		if npc_rel['A159'] >= 50:
 			if soniaPS > 0:
 				'"Look everyone, the other school bike is here! We don''t have to share Sonia anymore!" The nerds awkwardly ignore him as he walks up to you with a wide grin. His filthy teeth look like they haven''t seen a toothbrush in years, if ever. "Are you here to finally give me a blowjob?" he asks with a creepy stare. Despite your reputation, even you still have standards and snort in disgust before walking away.' 
@@ -116,7 +118,6 @@ if $ARGS[0] = 'petia':
 			'Petia grins as you approach. He invades your personal space without a care as a raunchy smell hits your nostrils. "Hey <$pcs_nickname>>, you''re pretty sexy for a nerd. How about we study together sometime?" He gives you a creepy smile that shows his filthy teeth, which look like they haven''t seen a toothbrush in years, if ever.'
 			if tits >= 5: 'You notice him practically drooling while staring at your breasts and quickly cover them with your arm, causing him to quickly dart his eyes back up.'
 			'Before things can go any further, your fellow nerds come to your rescue and motion for you to join them. You quickly dash over to them and escape his foul aroma, but sense his creepy gaze following you across the room.'
-			end 
 		elseif npc_rel['A159'] >= 50:
 			'You notice Petia desperately walking up and down the classroom trying to mooch stuff from the others. When he sees you, he breaks out into a smile and quickly starts walking towards you. "The others are being mean! They won''t help me out and I''m getting really hungry!"'
 			act 'Give him money (50 <b>₽</b>)':
@@ -168,7 +169,7 @@ if $ARGS[0] = 'petia':
 		grupvalue[3] -= 1
 		grupvalue[4] -= 1
 		if npc_rel['A159'] >= 50:
-			'Petia grins as you approach. He invades your personal space without a care as a raunchy smell hits your nostrils. Hey <<$pcs_nickname>>, did I tell you that I like bad girls? I think we should date." He gives you a creepy smile that shows his filthy teeth, which look like they haven''t seen a toothbrush in years, if ever.'
+			'Petia grins as you approach. He invades your personal space without a care as a raunchy smell hits your nostrils. "Hey <<$pcs_nickname>>, did I tell you that I like bad girls? I think we should date." He gives you a creepy smile that shows his filthy teeth, which look like they haven''t seen a toothbrush in years, if ever.'
 			'You shove him away from you. "What the fuck? Why would I date a fat, smelly loser like you? Get the fuck away from me before I knock those rotten teeth of yours out!" He quickly backs away, but you can feel his creepy gaze on the back of your head as you walk away. You turn around and glare at him, causing him to quickly look at the floor.' 
             if tits >= 5: '"And I seen you staring at my tits as well, perv! Do it again and I''ll kick your balls back up inside you!" you add.'		
 		else
@@ -231,9 +232,10 @@ if $ARGS[0] = 'sonia':
 	*clr & cla
 	menu_off = 1
 	gs 'npc_relationship', 'modify', 'A25', 'like'
+	chrsm_exp += rand(1,2)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big25.jpg"></center>'
-	if fame['pav_slut'] >= 250:
+	if fame['pav_slut'] > 250:
 		if npc_rel['A25'] >= 50:
 			'You see Sonia sitting by herself as usual and approach her with a friendly smile. She looks up and gives you a friendly smile in return. "What''s up, slut?" You laugh and sit next to her, telling her about your day. You banter back and forth about whose breath smells like cum and discuss each of your latest sexcapades.'
 		elseif npc_rel['A25'] <= 20:

locations/hotel_work.qsrc

@@ -507,6 +507,7 @@ if $ARGS[0] = 'maid':
 			menu_off = 0
 			*clr & cla
 			pcs_mood -= 3
+			gs 'sweat', 'add', 5
 			gs 'stat'
 			
 			:new_maid_event

locations/husbSex.qsrc

@@ -244,7 +244,7 @@ if $ARGS[0] = 'minet':
 
 		tiprand = RAND(0,1)
 		if tiprand = 0:
-			facial += 1
+			
 			gs 'boyStat', $HusID
 			sexpartkno = 1
 			spafinloc = 11

locations/igor_schedule.qsrc

@@ -0,0 +1,182 @@
+# igor_schedule
+!!2022/01/27
+locat['igor'] = 0
+
+if SchoolAtestat = 0 and kanikuli = 0:
+	if week <= 5:
+		if (hour < 6) or (hour = 6 and minut < 45):
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour < 7:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour = 7 and minut <= 15:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour = 7 and minut < 30:
+			!!NotHome - Walking to school
+			locat['igor']  = 4
+		elseif hour < 14:
+			!!NotHome - At School
+			locat['igor']  = 5
+		elseif hour < 15:
+			!!NotHome - Hanging out near the school or walking home from school
+			locat['igor']  = 6
+		elseif hour < 20:
+			!!At home in his room
+			locat['igor'] = 7
+		elseif hour < 23:
+			if week = 5:
+				!!At the comunity center disco
+				locat['igor'] = 8
+			else
+				!!At home in his room
+				locat['igor'] = 7
+			end
+		else
+			if week = 5:
+				!!At the comunity center disco
+				locat['igor'] = 8
+			else
+				!!In his room with going to bed
+				locat['igor'] = 9
+			end
+		end
+	elseif week = 6:
+		if hour < 8:
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour = 8 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour < 9:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour < 20:
+			!!At home in his room
+			locat['igor'] = 7
+		else
+			!!At the comunity center disco
+			locat['igor'] = 8
+		end
+	else
+		if hour < 8:
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour = 8 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour < 9:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour < 12:
+			!!At home in his room
+			locat['igor'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['igor'] = 10
+			else
+				!!At home in his room
+				locat['igor'] = 7
+			end
+		elseif hour < 23:
+			!!At home in his room
+			locat['igor'] = 7
+		else
+			!!In his room with going to bed
+			locat['igor'] = 9
+		end
+	end
+else
+	if week <= 5:
+		if (hour < 7) or (hour = 7 and minut < 45):
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour < 7:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour = 8 and minut <= 30:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour < 12:
+			!!At home in his room
+			locat['igor'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9 and week mod 2 = 0:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['igor'] = 10
+			else
+				!!At home in his room
+				locat['igor'] = 7
+			end
+		elseif hour < 20:
+				!!At home in his room
+				locat['igor'] = 7
+		elseif hour < 23:
+			if week = 5:
+				!!At the comunity center disco
+				locat['igor'] = 8
+			else
+				!!At home in his room
+				locat['igor'] = 7
+			end
+		else
+			if week = 5:
+				!!At the comunity center disco
+				locat['igor'] = 8
+			else
+				!!In his room with going to bed
+				locat['igor'] = 9
+			end
+		end
+	elseif week = 6:
+		if hour < 8:
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour = 8 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour < 9:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour < 12:
+			!!At home in his room
+			locat['igor'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['igor'] = 10
+			else
+				!!At home in his room
+				locat['igor'] = 7
+			end
+		elseif hour < 20:
+			!!At home in his room
+			locat['igor'] = 7
+		else
+			!!At the comunity center disco
+			locat['igor'] = 8
+		end
+	else
+		if hour < 8:
+			!!Bedroom - Asleep
+			locat['igor']  = 1
+		elseif hour = 8 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['igor']  = 2
+		elseif hour < 9:
+			!!Kitchen - Breakfast
+			locat['igor']  = 3
+		elseif hour < 23:
+			!!At home in his room
+			locat['igor'] = 7
+		else
+			!!In his room going to bed
+			locat['igor'] = 9
+		end
+	end
+end
+
+--- igor_schedule ---------------------------------
+

locations/igorhome.qsrc

@@ -113,6 +113,7 @@ if $ARGS[0] = 'igorroom':
 	menu_off = 0
 	minut += 1
 	$locclass = 'bedr'
+	gs 'igor_schedule'
 	gs 'stat'
 	'<center><h4><font color="maroon">Igor''s Room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/igorhome/kom.jpg"></center>'
@@ -154,7 +155,7 @@ if $ARGS[0] = 'igorroom':
 		else
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/talk.jpg"></center>'
 		end
-		if week = 5 or week = 6:
+		if locat['igor'] = 8:
 			'Igor looks at his watch and asks you "I want to have fun tonight. Let''s go to the disco!"'
 			act 'Agree': & minut += 20 & gt 'pav_disco' & !!if they are dating I will add a new version but have not written it yet.
 			act 'Decline and go home': gt 'pav_residential'
@@ -164,6 +165,17 @@ if $ARGS[0] = 'igorroom':
 			act 'Take the hint and go home': gt 'pav_residential'
 			act 'Chat just a little longer':gt 'igorhome','Chat'
 		end
+	elseif locat['igor'] = 10:
+		cls
+		'<center><h4><font color="maroon">Igor''s Room</font></h4></center>'
+		if IgorLoverQW = 1:
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/talkgf.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/talk.jpg"></center>'
+		end
+		'"The others are meeting at the beach right now. Come on lets go meet them" he says.'
+		act 'Go to the beach with Igor': minut += 15 & gt 'pav_lake', 'school_mates'
+		act 'Say you don''t want to and leave': minut += 5 & gt 'pav_residential'
 	end
 end
 
@@ -1169,32 +1181,20 @@ end
 if $ARGS[0] = 'home':
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/igorhome/house.jpg"></center>'
-	'You walk up to the front door and knock.'
-	!!This will have a lot of if's and elseif's.
-	if SchoolAtestat = 1 and kanikuli > 0:
-		if (week < 6 and (hour > 14 or (hour = 15 and minut >= 30)) and hour < 18) or (week >= 6 and hour >= 9 and hour < 18):
-			if rand (0,3) = 0: gt 'igorhome', 'home2'
-			'A few moments later Igor answers the door and invites you in.'
-			act 'Enter': gt 'igorhome','hallway'
-		elseif hour >= 18 and hour < 22:
-			'A few moments later Igor''s mother answers the door and invites you in.'
-			act 'Enter': gt 'igorhome','hallway'
-		else
-			'After knocking several times, no one answers. It seems no one is home or everyone is asleep.'
-			act 'Leave Igor''s home': gt 'pav_residential'
-		end
+	gs 'igor_schedule'
+	if locat['igor'] = 7 and hour < 18:
+		if rand (0,3) = 0: gt 'igorhome', 'home2'
+		'A few moments later Igor answers the door and invites you in.'
+		act 'Enter': gt 'igorhome','hallway'
+	elseif hour >= 18 and hour < 22 and locat['igor'] = 7:
+		'A few moments later Igor''s mother answers the door and invites you in.'
+		act 'Enter': gt 'igorhome','hallway'
+	elseif hour >= 18 and hour < 22:
+		'A few moments later Igor''s mother answers the door and tells you that Igor is '+iif(locat['igor'] = 8, 'at the comunity center disco.', 'not home.')
+		act 'Leave Igor''s home': gt 'pav_residential'
 	else
-		if hour >= 9 and hour < 18:
-			if rand (0,3) = 0: gt 'igorhome', 'home2'
-			'A few moments later Igor answers the door and invites you in.'
-			act 'Enter': gt 'igorhome','hallway'
-		elseif hour >= 18 and hour < 22:
-			'A few moments later Igor''s mother answers the door and invites you in.'
-			act 'Enter': gt 'igorhome','hallway'
-		else
-			'After knocking several times, no one answers. It seems no one is home or everyone is asleep.'
-			act 'Leave Igor''s home': gt 'pav_residential'
-		end
+		'After knocking several times, no one answers. It seems no one is home or everyone is asleep.'
+		act 'Leave Igor''s home': gt 'pav_residential'
 	end
 end
 

locations/ilyroom.qsrc

@@ -186,7 +186,7 @@ if StoryLine = 0 or altQS = 1:
 													act 'Get on your knees':
 														cls
 														minut += 5
-														facial += 1
+														
 														cumface += 1
 														gs 'stat'
 														'<center><img <<$set_imgh>> src="images/shared/sex/group/cum/threesome6.jpg"></center>'
@@ -326,7 +326,7 @@ else
 													act 'Get on your knees':
 														cls
 														minut += 5
-														facial += 1
+														
 														cumface += 1
 														gs 'stat'
 														'<center><img <<$set_imgh>> src="images/shared/sex/group/cum/threesome6.jpg"></center>'

locations/intro_customization.qsrc

@@ -0,0 +1,770 @@
+# intro_customization
+
+if $ARGS[0] = 'start':
+	'If you want to set your skills and attributes to a certain number, use the cheat menu to do it, the options to do it here were removed.'
+	if genbsize = '': genbsize = 22
+	if $soc_grup = '':gs 'intro_customization', 'none'
+	!act 'Set attributes': gt 'intro_customization','modatt'
+	!act 'Set skills': gt 'intro_customization','modskl'
+	act 'Set appearance':gt 'intro_customization','modapp'
+	act 'Set relationships': gt 'intro_customization','modrel'
+	act 'Set purse': gt 'intro_customization','modpur'
+	act 'Set items': gt 'intro_customization','modite'
+	act 'Set money (<<money>>₽)': money = input 'Set Cash Amount' & gt'intro_customization','start'
+	if custom_csb ! 1: act 'Return to preset character menu': gt 'intro_sg_select', 'charselect'
+	if start < 10:
+		gs 'intro_sg_select_custom', 'start'
+	else
+		act 'Confirm these options':
+			if bag = 1:
+				!!using current combination should prevent having more than 1 bag at the start of game.
+				dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
+				gs 'obj_din', 'old'
+			end
+			if $start_type = 'sg':
+				gt 'intro_sg', 'four'
+			elseif $start_type = 'sg_m':
+				gt 'intro_sg_m', 'four'
+			else
+				gt 'intro_sg_tg', 'four'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'modapp':
+	cla & *clr
+	if genbsize = 0:genbsize = 12
+
+	'Choose base genetic breast size: (this is the genetic disposition and not the actual size at game start)'
+	nl
+	if genbsize = 2:
+		'Very small - Currently set'
+	else
+		'<a href="exec:genbsize = 2 & gt ''intro_customization'',''modapp''">Very small</a>'
+	end
+
+	if genbsize = 7:
+		'Below average - Currently set'
+	else
+		'<a href="exec:genbsize = 7 & gt ''intro_customization'',''modapp''">Below average</a>'
+	end
+	
+	if genbsize = 12:
+		'Average - Currently set'
+	else
+		'<a href="exec:genbsize = 12 & gt ''intro_customization'',''modapp''">Average</a>'
+	end
+	
+	if genbsize = 17:
+		'Above average - Currently set'
+	else
+		'<a href="exec:genbsize = 17 & gt ''intro_customization'',''modapp''">Above average</a>'
+	end
+
+	if genbsize = 22:
+		'Large - Currently set'
+	else
+		'<a href="exec:genbsize = 22 & gt ''intro_customization'',''modapp''">Large</a>'
+	end
+
+	if genbsize = 27:
+		'Extra large - Currently set'
+	else
+		'<a href="exec:genbsize = 27 & gt ''intro_customization'',''modapp''">Extra large</a>'
+	end
+
+	if genbsize = 32:
+		'Really big - Currently set'
+	else
+		'<a href="exec:genbsize = 32 & gt ''intro_customization'',''modapp''">Really big</a>'
+	end
+
+	if genbsize = 37:
+		'Massive - Currently set'
+	else
+		'<a href="exec:genbsize = 37 & gt ''intro_customization'',''modapp''">Massive</a>'
+	end
+
+	if genbsize = 42:
+		'Getting silly - Currently set'
+	else
+		'<a href="exec:genbsize = 42 & gt ''intro_customization'',''modapp''">Getting silly</a>'
+	end
+
+	if genbsize = 47:
+		'Crazy big - Currently set'
+	else
+		'<a href="exec:genbsize = 47 & gt ''intro_customization'',''modapp''">Crazy big</a>'
+	end
+
+	if genbsize = 57:
+		'Freakishly big - Currently set'
+	else
+		'<a href="exec:genbsize = 57 & gt ''intro_customization'',''modapp''">Freakishly big</a>'
+	end
+	
+	if genbsize = 67:
+		'Will struggle to open doors or see the ground big - Currently set'
+	else
+		'<a href="exec:genbsize = 67 & gt ''intro_customization'',''modapp''">Will struggle to open doors or see the ground big</a>'
+	end
+	
+	if genbsize = 87:
+		'You''ve been eclipsed by 2 small moons - Currently set'
+	else
+		'<a href="exec:genbsize = 87 & gt ''intro_customization'',''modapp''">You''ve been eclipsed by 2 small moons</a>'
+	end
+
+	act 'Body fat (<<salo>>/200)':  gs 'intro_customization','setsalo' & salo = nstat & gt 'intro_customization','modapp'
+	act 'Return': gt'intro_customization','start'
+end
+
+if $ARGS[0] = 'setgenbsize':
+	nstat = genbsize
+	nstat = input 'Enter value that ends in a 2 or a 7. For example, 2, 7, 12 etc.'
+	if nstat > 97:
+		msg 'Please enter a value less than or equal to 97'
+		gs 'intro_customization', 'setval2'
+	elseif nstat < 2:
+		msg 'Please enter a value greater than or equal to 2'
+		gs 'intro_customization', 'setval2'
+	elseif nstat mod 5 ! 2:
+		msg 'Please enter a value that ends in 2, or a 7'
+		gs 'intro_customization', 'setval2'
+	else
+		exit
+	end
+end
+
+if $ARGS[0] = 'modite':
+	act 'Fake passport (<<fakepassport>>/1)':
+		if fakepassport = 0:
+			fakepassport = 1
+		else
+			fakepassport = 0
+		end
+		gt 'intro_customization','modite'
+	end
+	act 'Laptop (<<komp>>/1)':
+		if komp = 0:
+			komp = 1
+		else 
+			komp = 0
+		end
+		gt 'intro_customization','modite'
+	end
+	act 'Cosmetic items':gt 'intro_customization','modite_cos'
+	act 'Pharmacy items':gt 'intro_customization','modite_pha'
+	act 'Miscellaneous items':gt 'intro_customization','modite_mis'
+	act 'Return': gt 'intro_customization','start'
+end
+
+if $ARGS[0] = 'modrel_setup2':
+	dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0'
+	dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100'
+	dynamic 'x = <<$ARGS[1]>>'
+	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 100 & gt ''intro_customization'', $loc_arg">100</a></TD>'
+end
+
+if $ARGS[0] = 'modrel_setup3':
+	dynamic 'if <<$ARGS[1]>> < 50: <<$ARGS[1]>> = 50'
+	dynamic 'if <<$ARGS[1]>> > 200: <<$ARGS[1]>> = 200'
+	dynamic 'x = <<$ARGS[1]>>'
+	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/200)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 200 & gt ''intro_customization'', $loc_arg">200</a></TD>'
+end
+
+!!Values reversed just for inhib use
+if $ARGS[0] = 'modrel_setup4':
+	dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0'
+	dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100'
+	dynamic 'x = 100-<<$ARGS[1]>>'
+	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 100 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> += 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 0 & gt ''intro_customization'', $loc_arg">100</a></TD>'
+end
+
+if $ARGS[0] = 'modite_cos':
+	$loc_arg = 'modite_cos'
+	'<center><b>Cosmetic items</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'kosmetica', 'Cosmetics'
+	gs 'intro_customization', 'modrel_setup2', 'stanok', 'Razors (number of shaves)'
+	gs 'intro_customization', 'modrel_setup2', 'krem', 'Sunblock'
+	gs 'intro_customization', 'modrel_setup2', 'hscrunch', 'Hair scrunchies'
+	gs 'intro_customization', 'modrel_setup2', 'hpingrip', 'Hair pins'
+	'</table></center>'
+	!act 'Shampoo (<<shampoo>>/100)': gs 'intro_customization','setval3' & shampoo = nstat & gt 'intro_customization','modite_cos'
+	act 'Return': gt'intro_customization','modite'
+end
+
+if $ARGS[0] = 'modite_pha':
+	$loc_arg = 'modite_pha'
+	'<center><b>Pharmaceutical items</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'prezik', 'Condoms'
+	gs 'intro_customization', 'modrel_setup2', 'pregtest', 'Pregnancy tests'
+	gs 'intro_customization', 'modrel_setup2', 'tabletki', 'Birth control pills'
+	gs 'intro_customization', 'modrel_setup2', 'lekarstvo', 'Antibiotics'
+	gs 'intro_customization', 'modrel_setup2', 'vitamin', 'Vitamins'
+	gs 'intro_customization', 'modrel_setup2', 'painkiller', 'Painkillers'
+	gs 'intro_customization', 'modrel_setup2', 'mosolmaz', 'Ointment for chafing'
+	gs 'intro_customization', 'modrel_setup2', 'lubri', 'Lubricants'
+	gs 'intro_customization', 'modrel_setup2', 'lipbalm', 'Lip balms'
+	gs 'intro_customization', 'modrel_setup2', 'fatdel', 'Weight loss pills'
+	gs 'intro_customization', 'modrel_setup2', 'tampon', 'Tampons'
+	gs 'intro_customization', 'modrel_setup2', 'sanpad', 'Sanitary napkins'
+	'</table></center>'
+	act 'Return': gt'intro_customization','modite'
+end
+
+if $ARGS[0] = 'modite_mis':
+	$loc_arg = 'modite_mis'
+	'<center><b>Misc items</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'siga', 'Cigarettes'
+	gs 'intro_customization', 'modrel_setup2', 'dur', 'Cocaine'
+	gs 'intro_customization', 'modrel_setup2', 'pranik', 'Tea Biscuits'
+	'</table></center>'
+	act 'Return': gt 'intro_customization','modite'
+end
+
+if $ARGS[0] = 'modpur':
+	*clr & cla
+	if $ARGS[1] ! '':
+		$currentpursetype = $ARGS[1]
+		currentpursenumber = ARGS[2]
+	end
+	*clr & cla
+	if $currentpursetype = '': 
+		'You do not own a purse.'
+	else
+		bag = 1
+		'<center><img <<$set_imgh>> src="images/pc/items/<<$currentpursetype>>/purses/<<currentpursenumber>>.jpg"></center>'
+		'Your current purse is <<$currentpursetype>>_<<currentpursenumber>>.'
+	end
+	act 'Return': gt'intro_customization','start'
+	act 'Get G&M':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
+		i = 1
+		:loopgmpurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''gm'', <<i>>"><img src="images/pc/items/gm/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopgmpurses'
+	end	
+	act 'Get Danilovich':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
+		i = 1
+		:loopdanilovichpurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''danilovich'', <<i>>"><img src="images/pc/items/danilovich/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopdanilovichpurses'
+	end	
+	act 'Get Dolls':
+		*clr & cla
+		'<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'
+		i = 1
+		:loopdollspurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''dolls'', <<i>>"><img src="images/pc/items/dolls/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopdollspurses'
+	end
+	act 'Get Bomba':
+		*clr & cla
+		'<center><img src="images/locations/pushkin/bomba/shop_name.png"></center>'
+		i = 1
+		:loopbombapurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''bomba'', <<i>>"><img src="images/pc/items/bomba/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopbombapurses'
+	end
+	act 'Get Fashionista':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
+		i = 1
+		:loopfashionistapurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''fashionista'', <<i>>"><img src="images/pc/items/fashionista/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopfashionistapurses'
+	end
+	act 'Get Pussy_Cats':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
+		i = 1
+		:loopkatspurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''cats'', <<i>>"><img src="images/pc/items/cats/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopkatspurses'
+	end
+	act 'Get Flamingos':
+		*clr & cla
+		'<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'
+		i = 1
+		:loopflamingospurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''flamingos'', <<i>>"><img src="images/pc/items/flamingos/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopflamingospurses'
+	end
+	act 'Get Mon Chéri':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
+		i = 1
+		:loopmoncheripurses
+		*p '<a href="exec:gt ''intro_customization'', ''modpur'', ''moncheri'', <<i>>"><img src="images/pc/items/moncheri/purses/<<i>>.jpg" 	height="300" /></a>'
+		i += 1
+		if i <= 20:jump 'loopmoncheripurses'
+	end
+	act 'I do not want a purse':
+		bag = 0
+		$currentpursetype = ''
+		currentpursenumber = ''
+		gt 'intro_customization','modpur'
+	end	
+end
+!!This is used to set value, is used to avoid any values that go below 5.
+if $ARGS[0] = 'setval':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 5, 10, 15 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_customization', 'setval'
+	elseif nstat < 5:
+		msg 'Please enter a value greater than or equal to 5'
+		gs 'intro_customization', 'setval'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_customization', 'setval'
+	else
+		gs 'stat'
+		exit
+	end
+end
+
+!!This is used to set values, that can go below 5 and ranges from 100 to -100.
+if $ARGS[0] = 'setval2':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 5, 0, -5 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_customization', 'setval2'
+	elseif nstat < -100:
+		msg 'Please enter a value greater than or equal to -100'
+		gs 'intro_customization', 'setval2'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_customization', 'setval2'
+	else
+		exit
+	end
+end
+
+!!This is used to set values, that can go to 0 and ranges from 0 to 100.
+if $ARGS[0] = 'setval3':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 0, 5, 10 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_customization', 'setval3'
+	elseif nstat < 0:
+		msg 'Please enter a value greater than or equal to 0'
+		gs 'intro_customization', 'setval3'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_customization', 'setval3'
+	else
+		exit
+	end
+end
+
+if $ARGS[0] = 'setsalo':
+	*clr & cla
+	'20 = underweight, slight, wiry'
+	'40 = slender, skinny, lean'
+	'60 = healthy, toned, ripped'
+	'80 = cute, muscular'
+	'100 = chubby, curvy, herculean'
+	'120 = overweight, stocky'
+	'140 = fat, heavy set'
+
+	nstat = salo
+	nstat = input 'Enter value in multiples of 20. For example, 20, 40, 60 etc.'
+	if nstat > 200:
+		msg 'Please enter a value less than 200'
+		gs 'intro_customization', 'setval'
+	elseif nstat < 20:
+		msg 'Please enter a value greater than 20'
+		gs 'intro_customization', 'setval'
+	elseif nstat mod 20 ! 0:
+		msg 'Please enter a value in multiples of 20'
+		gs 'intro_customization', 'setval'
+	else
+		exit
+	end
+end
+
+
+if $ARGS[0] = 'modatt':
+	*clr & cla
+	$loc_arg = 'modatt'
+	'<center><b>Attributes</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup3', 'willpowermax', 'Willpower'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_stren', 'Strength'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_agil', 'Agility'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_vital', 'Endurance'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_intel', 'Intelligence'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_sprt', 'Spirit'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_react', 'Reaction'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_chrsm', 'Charisma'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_prcptn', 'Perception'
+	if MagikDostup = 0: gs 'intro_customization', 'modrel_setup2', 'pcs_magik', 'Magic'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_grades', 'Grades'
+	gs 'intro_customization', 'modrel_setup4', 'pcs_inhib', 'Inhibition'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_heels', 'Heels'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt'intro_customization','start'
+	end
+end
+
+if $ARGS[0] = 'modskl':
+	*clr & cla
+	act 'Mental skills':gt 'intro_customization','modskl_men'
+	act 'Sport skills':gt 'intro_customization','modskl_spo'
+	act 'Beauty skills':gt 'intro_customization','modskl_bea'
+	act 'Artistic skills':gt 'intro_customization','modskl_art'
+	act 'Job skills':gt 'intro_customization','modskl_job'
+	act 'Return': gt 'intro_customization','start'
+end
+
+if $ARGS[0] = 'modskl_men':
+	*clr & cla
+	$loc_arg = 'modskl_men'
+	'<center><b>Mental Skills</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	if MagikDostup = 0: gs 'intro_customization', 'modrel_setup2', 'pcs_splcstng', 'Spell Casting'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_humint', 'People skills'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_persuas', 'Persuasion'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_observ', 'Observation'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt 'intro_customization','modskl'
+	end 
+end
+
+if $ARGS[0] = 'modskl_spo':
+	*clr & cla
+	$loc_arg = 'modskl_spo'
+	'<center><b>Sport Skills</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_jab', 'Jabs'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_punch', 'Power Strikes'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_kick', 'Kicks'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_def', 'Defence'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_run', 'Running'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_vball', 'Volleyball'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_ftbll', 'Football'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_wrstlng', 'Wrestling'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_shoot', 'Marksmanship'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_bushcraft', 'Bushcraft'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_chess', 'Chess'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_icesktng', 'Ice Skating'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_gaming', 'Gaming'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt 'intro_customization','modskl'
+	end
+end
+
+if $ARGS[0] = 'modskl_bea':
+	*clr & cla
+	$loc_arg = 'modskl_bea'
+	'<center><b>Beauty skills</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_makupskl', 'Makeup Skills'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_danc', 'Modern Dancing'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_dancero', 'Erotic Dancing'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_dancpol', 'Pole Dancing'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_cheer', 'Cheerleading'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_mdlng', 'Modelling'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt 'intro_customization','modskl'
+	end
+end
+
+if $ARGS[0] = 'modskl_art':
+	*clr & cla
+	$loc_arg = 'modskl_art'
+	'<center><b>Artistic Skills</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_vokal', 'Singing'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_instrmusic', 'Instrumental Music'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_photoskl', 'Photography'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_artskls', 'Artistic Skills'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_perform', 'Performance'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt 'intro_customization','modskl'
+	end
+end
+
+if $ARGS[0] = 'modskl_job':
+	*clr & cla
+	$loc_arg = 'modskl_job'
+	'<center><b>Job Skills</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_compskl', 'Computer Skills'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_comphckng', 'Hacking'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_hndiwrk', 'Handy-work'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_sewng', 'Tailoring'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_servng', 'Serving'
+	gs 'intro_customization', 'modrel_setup2', 'pcs_medcn', 'Medicine'
+	'</table></center>'
+	nl
+
+	act 'Return':
+		gt 'intro_customization','modskl'
+	end
+end
+
+if $ARGS[0] = 'hair':
+	cls
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
+	*nl
+	if pcs_hairlng <= 1:
+		$hair = 'You have <a href="exec:pcs_hairlng = 31 & gs ''begin'', ''hair''">very short</a>,'
+	elseif pcs_hairlng <= 31:
+		$hair = 'You have <a href="exec:pcs_hairlng = 81 & gs ''begin'', ''hair''">short</a>,'
+	elseif pcs_hairlng <= 81:
+		$hair = 'You have <a href="exec:pcs_hairlng = 161 & gs ''begin'', ''hair''">chin length</a>,'
+	elseif pcs_hairlng <= 161:
+		$hair = 'You have <a href="exec:pcs_hairlng = 261 & gs ''begin'', ''hair''">shoulder length</a>,'
+	elseif pcs_hairlng <= 261:
+		$hair = 'You have <a href="exec:pcs_hairlng = 401 & gs ''begin'', ''hair''">breast length</a>,'
+	elseif pcs_hairlng <= 401:
+		$hair = 'You have <a href="exec:pcs_hairlng = 601 & gs ''begin'', ''hair''">back length</a>,'
+	elseif pcs_hairlng <= 601:
+		$hair = 'You have <a href="exec:pcs_hairlng = 801 & gs ''begin'', ''hair''">hip length</a>,'
+	elseif pcs_hairlng <= 801:
+		$hair = 'You have <a href="exec:pcs_hairlng = 1001 & gs ''begin'', ''hair''">ass length</a>,'
+	else
+		$hair = 'You have <a href="exec:pcs_hairlng = 1 & gs ''begin'', ''hair''">extremely long</a>,'
+	end
+
+	if pcs_haircol = 0 and curly <= 0:$hair += ' <a href="exec:defcurly = 1 & curly = 2147483647 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'black hair' & $hair3 = 'black hair'
+	if pcs_haircol = 1 and curly <= 0:$hair += ' <a href="exec:defcurly = 1 & curly = 2147483647 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'brown hair' & $hair3 = 'brown hair'
+	if pcs_haircol = 2 and curly <= 0:$hair += ' <a href="exec:defcurly = 1 & curly = 2147483647 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'Red hair' & $hair3 = 'red hair'
+	if pcs_haircol = 3 and curly <= 0:$hair += ' <a href="exec:defcurly = 1 & curly = 2147483647 & gs ''begin'', ''hair''">straight</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.'& $hair2 = 'blond hair' & $hair3 = 'blond hair'
+	if pcs_haircol = 0 and curly > 0:$hair += ' <a href="exec:defcurly = 0 & curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">black</a> hair.'& $hair2 = 'curls' & $hair3 = 'black curls'
+	if pcs_haircol = 1 and curly > 0:$hair += ' <a href="exec:defcurly = 0 & curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">brown</a> hair.'& $hair2 = 'curls' & $hair3 = 'brown curls'
+	if pcs_haircol = 2 and curly > 0:$hair += ' <a href="exec:defcurly = 0 & curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">red</a> hair.'& $hair2 = 'curls' & $hair3 = 'red hair'
+	if pcs_haircol = 3 and curly > 0:$hair += ' <a href="exec:defcurly = 0 & curly = 0 & gs ''begin'', ''hair''">curly</a>, <a href="exec:gs ''begin'', ''pcs_haircol'' & gs ''begin'', ''hair''">blonde</a> hair.' &$hair2 = 'curls' & $hair3 = 'blond curls'
+	'<center>Adjust your hair to match your avatar. Please note that, at present, hair choices are overridden by your starting personality choice (e.g. volleyball players will always have straight blond hair).</center>'
+	*nl
+	nathcol = pcs_haircol
+	if player_avatar = 1:
+		if avatar_hair = 1:
+			'<center>Please note that this choice is given only once and you will not be able to change it without starting a new game!</center>'
+			'<center>You have <i><<$av_hair>>.</i> <a href="exec:avatar_hair = 0 & gs ''begin'', ''hair''">Revert to default</a>.</center>'
+		else
+			'<center><i><<$hair>></i> You may also <a href="exec:gs ''begin'', ''hair_input'' & gs ''begin'', ''hair''">manually enter a description</a></center>.'
+		end
+	end
+	if $start_type = 'sgs':
+		act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
+	else
+		act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
+	end
+end
+
+if $ARGS[0] = 'pcs_haircol':
+	pcs_haircol += 1
+	if pcs_haircol > 3: pcs_haircol = 0
+end
+
+if $ARGS[0] = 'hair_input':
+	avatar_hair = 1
+	$av_hair = input("Enter a description of your hair:")
+end
+
+if $ARGS[0] = 'lip':
+	cls
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
+	*nl
+	if pcs_lip = 0:$pcs_lip = 'you have thin<<$pcs_lipbalm>> lips.' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips'
+	if pcs_lip = 1:$pcs_lip = 'You have normal<<$pcs_lipbalm>> lips.' & $liptalk = 'soft lips' & $liptalk2 = 'delicate lips' & $liptalk3 = 'tender lips'
+	if pcs_lip = 2:$pcs_lip = 'You have plump<<$pcs_lipbalm>> lips.' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips'
+	if pcs_lip = 3:$pcs_lip = 'You have large,<<$pcs_lipbalm>> full lips.' & $liptalk = 'full lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'full lips'
+	if pcs_lip = 4:$pcs_lip = 'You have huge, thick<<$pcs_lipbalm>> lips.' & $liptalk = 'thick lips' & $liptalk2 = 'thick lips' & $liptalk3 = 'thick lips'
+	'<center>Adjust the size of your lips to match your <a href="exec:view''images/avatar.jpg''">image</a>:</center>'
+	*nl
+	'<center><i><<$pcs_lip>></i></center>'
+	*nl
+	if pcs_lip < 4:'<center><a href="exec:pcs_lip += 1 & gs ''begin'', ''lip''">Bigger lips</a></center>'
+	if pcs_lip > 0:'<center><a href="exec:pcs_lip -= 1 & gs ''begin'', ''lip''">Smaller lips</a></center>'
+	act'<center><b>Done</b></center>': gt'begin','description_real_character'
+end
+
+if $ARGS[0] = 'eyes':
+	cls
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	if player_avatar = 1:
+		'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
+	else
+		'<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
+	end
+	*nl
+	if pcs_eyecol = 0:$pcs_eyecol = 'brown' & $glacol2 = 'brown'
+	if pcs_eyecol = 1:$pcs_eyecol = 'gray' & $glacol2 = 'gray'
+	if pcs_eyecol = 2:$pcs_eyecol = 'green' & $glacol2 = 'green'
+	if pcs_eyecol = 3:$pcs_eyecol = 'blue' & $glacol2 = 'blue'
+	if glass <= 0:$glass = '' & glassvnesh = 0
+	if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
+	if pcs_lashes > 2:pcs_lashes = 2
+	if pcs_lashes = 0:$pcs_lashes = 'with short eyelashes'
+	if pcs_lashes = 1:$pcs_lashes = 'with normal eyelashes'
+	if pcs_lashes = 2:$pcs_lashes = 'with long eyelashes'
+	if pcs_eyesize > 3:pcs_eyesize = 3
+	if pcs_eyesize = 0:$glaza = 'You have small <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = '<<$pcs_eyecol>> eyes' & $glaza3 = '<<$glacol2>> eyes'
+	if pcs_eyesize = 1:$glaza = 'You have expressive <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'expressive <<$pcs_eyecol>> eyes' & $glaza3 = 'expressive <<$glacol2>> eyes'
+	if pcs_eyesize = 2:$glaza = 'You have large <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'big <<$pcs_eyecol>> eyes' & $glaza3 = 'high <<$glacol2>> eyes'
+	if pcs_eyesize = 3:$glaza = 'You have huge <a href="exec:gs ''begin'', ''eye color'' & gs ''begin'', ''eyes''"><<$pcs_eyecol>></a> eyes, <<$pcs_lashes>>.<<$glass>>' & $glaza2 = 'great <<$pcs_eyecol>> eyes' & $glaza3 = 'great <<$glacol2>> eyes'
+
+	if player_avatar = 1:
+		'<center>Adjust your eyes and eyelashes to match your avatar. Please note, glasses choice may be overridden by your starting personality choice (e.g. bookworms/nerds will always start with glasses).</center>'
+	else
+		'<center>Please note, glasses choice may be overridden by your starting personality choice (e.g. bookworms/nerds will always start with glasses).</center>'
+	end	
+	*nl
+	'<center><i><<$glaza>></i></center>'
+	*nl
+	if pcs_lashes < 2:'<center><a href="exec:pcs_lashes += 1 & gs ''begin'', ''eyes''">Lengthen lashes</a></center>'
+	if pcs_lashes > 0:'<center><a href="exec:pcs_lashes -= 1 & gs ''begin'', ''eyes''">Shorten lashes</a></center>'
+	if pcs_eyesize < 3:'<center><a href="exec:pcs_eyesize += 1 & gs ''begin'', ''eyes''">Larger eyes</a></center>'
+	if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''begin'', ''eyes''">Smaller eyes</a></center>'
+	if glass = 0:'<center><a href="exec:glass = 1 & gs ''begin'', ''eyes''">Wear glasses</a></center>'
+	if glass = 1:'<center><a href="exec:glass = 0 & gs ''begin'', ''eyes''">Remove glasses</a></center>'
+
+	if player_avatar = 1:
+		act'<center><b>Done</b></center>': gt'begin','description_real_character'
+	elseif $start_type = 'nt':
+		act'<center><b>Done</b></center>': gt 'preCUST', 'NTStart2'
+	elseif $start_type = 'sgs':
+		act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
+	else
+		act'<center><b>Done</b></center>': gt 'preCUST', 'TGStart'
+	end
+end
+
+if $ARGS[0] = 'eye color':
+	pcs_eyecol += 1
+	if pcs_eyecol > 3: pcs_eyecol = 0
+end
+
+if $ARGS[0] = 'birthday':
+	cls
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	if csb_start ! 1:
+		if player_avatar = 1:
+			'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
+		end
+	else
+		'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/16.jpg"></center>'
+	end
+	'<center>Choose your date of birth:</center>'
+	*nl
+	if birthyear = 0: birthyear = 1998
+	if birthmonth = 0: birthmonth = 4
+	if birthday = 0: birthday = 1
+
+	if birthmonth = 2:
+		if ((birthyear mod 4 = 0) and (birthyear mod 100 ! 0)) or (birthyear mod 400 = 0): 
+			monthdays = 29
+		else
+			monthdays = 28
+		end
+	elseif birthmonth = 4 or birthmonth = 6 or birthmonth = 9 or birthmonth = 11:
+		monthdays = 30
+	else
+		monthdays = 31
+	end
+
+	if birthmonth > 12: birthmonth = 12
+	if birthmonth < 1: birthmonth = 1
+	if birthday < 1: birthday = 1
+	if birthday > monthdays: birthday = monthdays
+
+	if birthday < 10 and birthmonth < 10:
+		'<center>Your birthday: <B>0<<birthmonth>>/0<<birthday>></B> (MM/DD)</center>'
+	elseif birthday < 10 and birthmonth >= 10:
+		'<center>Your birthday: <B><<birthmonth>>/0<<birthday>></B> (MM/DD)</center>'
+	elseif birthday >= 10 and birthmonth < 10:
+		'<center>Your birthday: <B>0<<birthmonth>>/<<birthday>></B> (MM/DD)</center>'
+	elseif birthday >= 10 and birthmonth >= 10:
+		'<center>Your birthday: <B><<birthmonth>>/<<birthday>></B> (MM/DD)</center>'
+	end
+
+	*nl
+	'<center><a href="exec:birthday += 5 & gs ''begin'', ''birthday''">+5 Days</a></center>'
+	'<center><a href="exec:birthday += 1 & gs ''begin'', ''birthday''">+1 Day</a></center>'
+	'<center><a href="exec:birthday -= 1 & gs ''begin'', ''birthday''">-1 Day</a></center>'
+	'<center><a href="exec:birthday -= 5 & gs ''begin'', ''birthday''">-5 Days</a></center>'
+	'<center><a href="exec:birthmonth = 1 & gs ''begin'', ''birthday''">January</a></center>'
+	'<center><a href="exec:birthmonth = 2 & gs ''begin'', ''birthday''">February</a></center>'
+	'<center><a href="exec:birthmonth = 3 & gs ''begin'', ''birthday''">March</a></center>'
+	'<center><a href="exec:birthmonth = 4 & gs ''begin'', ''birthday''">April</a></center>'
+	'<center><a href="exec:birthmonth = 5 & gs ''begin'', ''birthday''">May</a></center>'
+	'<center><a href="exec:birthmonth = 6 & gs ''begin'', ''birthday''">June</a></center>'
+	'<center><a href="exec:birthmonth = 7 & gs ''begin'', ''birthday''">July</a></center>'
+	'<center><a href="exec:birthmonth = 8 & gs ''begin'', ''birthday''">August</a></center>'
+	'<center><a href="exec:birthmonth = 9 & gs ''begin'', ''birthday''">September</a></center>'
+	'<center><a href="exec:birthmonth = 10 & gs ''begin'', ''birthday''">October</a></center>'
+	'<center><a href="exec:birthmonth = 11 & gs ''begin'', ''birthday''">November</a></center>'
+	'<center><a href="exec:birthmonth = 12 & gs ''begin'', ''birthday''">December</a></center>'
+
+	if csb_start ! 1:
+		if player_avatar = 1:
+			act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
+		else
+			act'<center><b>Done</b></center>': gt 'intro_sg_select', 'SGStart2'
+		end
+	else
+		act'<center><b>Done</b></center>': gt 'intro_sg_select', 'CSBStart'
+	end
+end
+
+--- intro_customization ---------------------------------
+

locations/intro_initialization.qsrc

@@ -0,0 +1,415 @@
+# intro_initialization
+!!*************************
+!!	Final Initializations
+
+VersionCheck = 5030
+
+pcs_dob = birthyear * 10000
+pcs_dob += (birthmonth * 100)
+pcs_dob += birthday
+
+age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
+if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
+	
+if age < 17:
+	vidage = age
+else
+	vidage = age - 1
+end
+
+vidageday = 300
+
+pcs_health = pcs_vital * 10 + pcs_stren * 5
+pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
+pcs_mood = 100
+pcs_stam = 100
+
+nathcol = pcs_haircol
+pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
+oldsavepcs_haircol = 1
+
+gs 'body_shape', 'initial'
+
+!! Adding underwear and default shoes and assigning them
+
+if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
+	cheap_panties[1] = 1
+	cheap_bras[1] = 1
+	$pantyworntype = 'cheap'
+	pantywornnumber = 1
+	$braworntype = 'cheap'
+	brawornnumber = 1
+	gm_shoe[6] = 1
+	danilovich_shoe[21] = 1
+	$shoeworntype = 'gm'
+	shoewornnumber = 6
+end
+
+!!	Starting clothing set
+if NTstart = 1:
+	cheap_panties[12] = 1
+	cheap_bras[12] = 1
+	$pantyworntype = 'cheap'
+	pantywornnumber = 12
+	$braworntype = 'cheap'
+	brawornnumber = 12
+	gm_outfits[50] = 1
+	gm_outfits_h[50] = 100
+	gm_outfits_b[50] = pcs_hips
+	danilovich_outfits[81] = 1
+	danilovich_outfits_h[81] = 100
+	gm_dress[11] = 1
+	gm_dress_h[11] = 100
+	gm_dress_b[11] = pcs_hips
+	danilovich_swimsuit[3] = 1
+	danilovich_swimsuit_h[3] = 60
+	danilovich_swimsuit_b[3] = pcs_hips
+	sportsclothingnumber = 81
+	gs 'clothing', 'wear', 'gm_dress', 11
+elseif goth_clothing = 1:
+	kats_panties[28] = 1
+	kats_bras[28] = 1
+	$pantyworntype = 'kats'
+	pantywornnumber = 28
+	$braworntype = 'kats'
+	brawornnumber = 28
+	danilovich_outfits[91] = 1
+	danilovich_outfits_h[91] = 100
+	danilovich_shoe[21] = 1
+	gm_shoe[9] = 1
+	shoewornnumber = 9
+	$shoeworntype = 'gm'
+	bomba_outfits[16] = 1
+	bomba_outfits_h[16] = 100
+	bomba_outfits_b[16] = pcs_hips
+	bomba_outfits[37] = 1
+	bomba_outfits_h[37] = 100
+	bomba_outfits_b[37] = pcs_hips
+	sportsclothingnumber = 91
+	gs 'clothing', 'wear', 'bomba_outfits', 37
+elseif $ARGS[1] = 'CSB':
+	cheap_panties[12] = 1
+	cheap_bras[12] = 1
+	$pantyworntype = 'cheap'
+	pantywornnumber = 12
+	$braworntype = 'cheap'
+	brawornnumber = 12
+	danilovich_outfits[81] = 1
+	danilovich_outfits_h[81] = 100
+	danilovich_shoe[21] = 1
+	gm_shoe[9] = 1
+	shoewornnumber = 9
+	$shoeworntype = 'gm'
+	gm_outfits[30] = 1
+	gm_outfits_h[30] = 100
+	gm_outfits_b[30] = pcs_hips
+	cats_dress[1] = 1
+	cats_dress_h[1] = 100
+	cats_dress_b[1] = pcs_hips
+	sportsclothingnumber = 81
+	gs 'clothing', 'wear', 'cats_dress', 1
+elseif pcs_inhib < 5:
+	gm_outfits[30] = 1
+	gm_outfits_h[30] = 100
+	gm_outfits_b[30] = pcs_hips
+	danilovich_outfits[81] = 1
+	danilovich_outfits_h[81] = 100
+	cats_dress[1] = 1
+	cats_dress_h[1] = 100
+	cats_dress_b[1] = pcs_hips
+	sportsclothingnumber = 81
+	gs 'clothing', 'wear', 'cats_dress', 1
+elseif pcs_inhib < 10:
+	gm_outfits[15] = 1
+	gm_outfits_h[15] = 100
+	gm_outfits_b[15] = pcs_hips
+	danilovich_outfits[76] = 1
+	danilovich_outfits_h[76] = 100
+	gm_dress[4] = 1
+	gm_dress_h[4] = 100
+	gm_dress_b[4] = pcs_hips
+	sportsclothingnumber = 76
+	gs 'clothing', 'wear', 'gm_dress', 4
+elseif pcs_inhib < 15:
+	gm_outfits[58] = 1
+	gm_outfits_h[58] = 100
+	gm_outfits_b[58] = pcs_hips
+	danilovich_outfits[106] = 1
+	danilovich_outfits_h[106] = 100
+	gm_dress[7] = 1
+	gm_dress_h[7] = 100
+	gm_dress_b[7] = pcs_hips
+	sportsclothingnumber = 106
+	gs 'clothing', 'wear', 'gm_dress', 7
+elseif pcs_inhib < 20:
+	gm_outfits[55] = 1
+	gm_outfits_h[55] = 100
+	gm_outfits_b[55] = pcs_hips
+	danilovich_outfits[102] = 1
+	danilovich_outfits_h[102] = 100
+	gm_dress[7] = 1
+	gm_dress_h[7] = 100
+	gm_dress_b[7] = pcs_hips
+	sportsclothingnumber = 43
+	gs 'clothing', 'wear', 'gm_dress', 7
+elseif pcs_inhib < 25:
+	gm_outfits[58] = 1
+	gm_outfits_h[58] = 100
+	gm_outfits_b[58] = pcs_hips
+	danilovich_outfits[87] = 1
+	danilovich_outfits_h[87] = 100
+	gm_dress[39] = 1
+	gm_dress_h[39] = 100
+	gm_dress_b[39] = pcs_hips
+	sportsclothingnumber = 1
+	gs 'clothing', 'wear', 'gm_dress', 39
+elseif pcs_inhib < 30:
+	gm_outfits[91] = 1
+	gm_outfits_h[91] = 100
+	gm_outfits_b[91] = pcs_hips
+	danilovich_outfits[96] = 1
+	danilovich_outfits_h[96] = 100
+	gm_dress[57] = 1
+	gm_dress_h[57] = 100
+	gm_dress_b[57] = pcs_hips
+	sportsclothingnumber = 48
+	gs 'clothing', 'wear', 'gm_dress', 57
+elseif pcs_inhib < 35:
+	gm_outfits[95] = 1
+	gm_outfits_h[95] = 100
+	gm_outfits_b[95] = pcs_hips
+	danilovich_outfits[48] = 1
+	danilovich_outfits_h[48] = 100
+	gm_dress[63] = 1
+	gm_dress_h[63] = 100
+	gm_dress_b[63] = pcs_hips
+	sportsclothingnumber = 40
+	gs 'clothing', 'wear', 'gm_dress', 63
+elseif pcs_inhib < 40:
+	gm_outfits[124] = 1
+	gm_outfits_h[124] = 100
+	gm_outfits_b[124] = pcs_hips
+	danilovich_outfits[45] = 1
+	danilovich_outfits_h[45] = 100
+	gm_dress[89] = 1
+	gm_dress_h[89] = 100
+	gm_dress_b[89] = pcs_hips
+	sportsclothingnumber = 45
+	gs 'clothing', 'wear', 'gm_dress', 89
+elseif pcs_inhib < 45:
+	gm_outfits[131] = 1
+	gm_outfits_h[131] = 100
+	gm_outfits_b[131] = pcs_hips
+	danilovich_outfits[38] = 1
+	danilovich_outfits_h[38] = 100
+	gm_dress[109] = 1
+	gm_dress_h[109] = 100
+	gm_dress_b[109] = pcs_hips
+	sportsclothingnumber = 38
+	gs 'clothing', 'wear', 'gm_dress', 109
+elseif pcs_inhib < 50:
+	gm_outfits[145] = 1
+	gm_outfits_h[145] = 100
+	gm_outfits_b[145] = pcs_hips
+	danilovich_outfits[17] = 1
+	danilovich_outfits_h[17] = 100
+	gm_dress[123] = 1
+	gm_dress_h[123] = 100
+	gm_dress_b[123] = pcs_hips
+	sportsclothingnumber = 143
+	gs 'clothing', 'wear', 'gm_dress', 123
+else
+	gm_outfits[149] = 1
+	gm_outfits_h[149] = 100
+	gm_outfits_b[149] = pcs_hips
+	danilovich_outfits[15] = 1
+	danilovich_outfits_h[15] = 100
+	gm_dress[149] = 1
+	gm_dress_h[149] = 100
+	gm_dress_b[149] = pcs_hips
+	scandalicious_bikinis[55] = 1
+	scandalicious_bikinis_h[55] = 60
+	scandalicious_bikinis_b[55] = pcs_hips
+	sportsclothingnumber = 15
+	gs 'clothing', 'wear', 'gm_dress', 149
+end
+if swim_start = 99:
+	allure_swimsuit[99] = 1
+	allure_swimsuit_h[99] = 60
+	allure_swimsuit_b[99] = pcs_hips
+elseif swim_start = 1:
+	danilovich_swimsuit[1] = 1
+	danilovich_swimsuit_h[1] = 60
+	danilovich_swimsuit_b[1] = pcs_hips
+end
+
+!!setting default danilovich outfit and setting coats
+if school_clothing = 1:
+	killvar 'school_clothing'
+	bomba_outfits[29] = 1
+	bomba_outfits_h[29] = 120
+	bomba_outfits_b[29] = pcs_hips
+	sport_bras[3] = 1
+	sport_brasS[3] = 0
+	$sportsbratype = 'sport'
+	sportsbranumber = 3
+	sport_panties[3] = 1
+	sport_pantiesS[3] = 0
+	$sportspantytype = 'sport'
+	sportspantynumber = 3
+	bomba_coats[19] = 1
+	bomba_coats_h[19] = 200
+	$coatworntype = 'bomba'
+	coatwornnumber = 19
+	$sportscoattype = 'bomba'
+	sportscoatnumber = 19
+else
+	gm_coats[12] = 1
+	gm_coats_h[12] = 200
+	$coatworntype = 'gm'
+	coatwornnumber = 12
+	$sportscoattype = 'gm'
+	sportscoatnumber = 12
+	sport_bras[1] = 1
+	sport_brasS[1] = 0
+	$sportsbratype = 'sport'
+	sportsbranumber = 1
+	sport_panties[1] = 1
+	sport_pantiesS[1] = 0
+	$sportspantytype = 'sport'
+	sportspantynumber = 1
+	if school_clothing = 2:
+		gm_school[49] = 1
+		gm_school_h[49] = 120
+		gm_school_b[49] = pcs_hips
+	elseif school_clothing = 3:
+		gm_school[25] = 1
+		gm_school_h[25] = 120
+		gm_school_b[25] = pcs_hips
+	elseif school_clothing = 4:
+		dolls_dress[40] = 1
+		dolls_dress_h[40] = 120
+		dolls_dress_b[40] = pcs_hips
+	elseif school_clothing = 5:
+		gm_school[37] = 1
+		gm_school_h[37] = 120
+		gm_school_b[37] = pcs_hips
+	elseif school_clothing = 6:
+		gm_school[4] = 1
+		gm_school_h[4] = 120
+		gm_school_b[4] = pcs_hips
+	elseif school_clothing = 7:
+		gm_school[17] = 1
+		gm_school_h[17] = 120
+		gm_school_b[17] = pcs_hips
+		danilovich_outfits[65] = 1
+		danilovich_outfits_h[65] = 100			
+		sportsclothingnumber = 65
+		danilovich_shoe[17] = 1
+		danilovich_shoe[21] = 0
+	end
+	killvar 'school_clothing'
+end
+if danilovich_shoe[17] = 1:
+	sportsshoenumber = 17
+else
+	sportsshoenumber = 21
+end
+$sportspursetype = $currentpursetype
+sportspursenumber = currentpursenumber
+$sports_clothing_name = 'default sports outfit'
+
+killvar 'swim_start'
+	
+!!	**********
+
+gs 'daystart'
+gs 'din_pav'
+gs 'din_npc'
+gs 'dinSex2'
+gs 'dina'
+gs 'din_van'
+gs 'din_bad'
+gs 'dinSex'
+!! KEY! I merged 'dinBoroda' with 'clener' and removed the dynamics. This line was at the end of dinBoroda, so I moved it here just in case. Sicaa
+rikudootvet = 1415
+gs 'BanSexType'
+
+gs 'outdoors', 'weather'
+
+menoage = rand(40,50)
+temprand = rand(0,10)
+
+if temprand = 0:
+	menoage += rand(0,5)
+
+elseif temprand < 4:
+	menoage += rand(3,10)
+
+elseif temprand < 9:
+	menoage += rand(5,12)
+
+else
+	menoage += rand(7,13)
+
+end
+
+!!Setting up period start and turning on auto tracking if not on hardcore difficulty
+daylastperiod = daystart
+temprand = rand(1,3)
+if temprand = 1:
+	cycle = 1
+	EggRH = rand(1,149)
+	FocH = EggRH + 4*24
+	mesec = 0
+	unfertegg = 0
+	ferteggage = 0
+	Ovulate = 0
+	LutH = 0
+	daylastperiod -= FocH/24
+elseif temprand = 2:
+	lastovulation = daystart
+	cycle = 2
+	unfertegg = 1
+	ferteggage = rand(0,44)
+	Ovulate = (rand(24,44) - ferteggage)
+	if Ovulate <= 0: Ovulate = 1
+	mesec = 0
+	EggRH = 0
+	FocH = 0
+	LutH = 0
+	daylastperiod -= 10+(ferteggage/24)
+elseif temprand = 3:
+	cycle = 3
+	LutH = rand(0,300)
+	ferteggage = 36 + LutH
+	mesec = 0
+	EggRH = 0
+	FocH = 0
+	unfertegg = 0
+	Ovulate = 0
+	daylastperiod -= 10+(ferteggage/24)
+end
+
+if daylastperiod + 4 > daystart:
+	lastmens = daylastperiod - 20
+else
+	lastmens = daylastperiod+4
+end
+
+if difficulty = 4:
+	cyccustom = 0
+else
+	cyccustom = 1
+end
+
+pcs_horny = 0
+killvar 'opPRE'
+killvar 'tgs_skipinto'
+gs 'stat'
+showstat 0
+showobjs 0
+
+--- intro_initialization ---------------------------------
+

locations/intro_sg.qsrc

@@ -0,0 +1,74 @@
+# intro_sg
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+
+if $ARGS[0] = 'start':
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_5.jpg"></center>'
+	'You were born in the small town of Pavlovsk near the city of St Petersburg. You have an older sister, Anya, who is two years older than you.'
+	'Your mother is Natasha. You don''t know much about your biological father... your mother never wants to talk about him, or why he left you and Anya with her.'
+	'Your mother met another man not too long after her and your biological father got divorced, Vladimir. Together they had your little brother Kolka. Even though he''s not your real father, Vladimir has always treated you and Anya as if you were his own children.'
+	act 'Continue': gt 'intro_sg', 'Two'
+end
+
+if $ARGS[0] = 'Two':
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_6.jpg"></center>'
+	'You had a pleasant, undisturbed childhood when you were young. Although you don''t remember much from kindergarten, you do remember going to elementary school when you were 6 years old.'
+	act '<center><b>Continue</b></center>': gt 'intro_sg', 'Three'
+end
+
+if $ARGS[0] = 'Three':
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_7.jpg"></center>'
+	'Like it does for most girls, you reached the milestone of puberty when you were 13 years old. You had your first period, which sucked... but that was just the start of your changes.'
+	*nl
+	'Your chest then felt strange and you discovered your breasts were growing! This excited you: how big will they be when you grow up? Hair also began to grow in at your armpits and pubic area, and at the same time you felt things... intimate things. Over time you learned to appreciate these feelings, and how to manage your developing body. Your troublesome skin complexion remains an issue though.'
+	*nl
+	'When you finished 9th grade, you decided to continue with your secondary education. You completed the first one, only one more year of school to go, but first: What type of student are you?'
+	act '<center><b>Time to choose</b></center>': gt 'intro_sg_select', 'start'
+end
+
+if $ARGS[0] = 'four':
+	gs 'intro_sg_select', 'sg_settings'
+	gs 'intro_initialization'
+
+
+	'<center><b><font color = maroon>Character Face</font></b></center>'
+	'<center><b>Allows you to alter hair and eyes, use to match fixed profile picture if in use.</b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+
+	act '<center><b>Done</b></center>': gt 'intro_sg', 'five'
+end
+
+if $ARGS[0] = 'five':
+	showstat 1
+	showobjs 1
+	gs 'obj_din', 'old'
+	*clr
+	cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/start_sg.jpg"></center>'
+	'Welcome to the Schoolgirl version! You will need to carry on with your school life, manage your relationships and deal with whatever else comes up along the way!'
+	act 'Begin':
+		close all
+		if start_location = 2:
+			gt 'gadhouse', 'intro'
+		elseif start_location = 1:
+			gt 'bedrPar', 'intro'
+		end
+	end
+	act 'Restart':
+		*clr & cla
+		'This will reset everything and take you back to the begining.'
+		'Are you <i><b>very</i></b> sure you want to start from the begining again?'
+		act 'No, I hit the wrong option!': gt 'intro_sg', 'four'
+		act 'Yes, I''m sure, start over.': killall & gt 'start'
+	end
+end
+
+
+--- intro_sg ---------------------------------
+

locations/intro_sg_m.qsrc

@@ -0,0 +1,162 @@
+# intro_sg_m
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+
+if $ARGS[0] = 'four':
+	*clr & cla
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
+	'After your second to last year of school you go on summer holiday with your parents to your grandparents farm in the village of Gadukino. There is nothing to do here but watch animals graze and help your grandparents, which does earn you some extra cash but is very tedious.'
+	act 'Take a walk':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_woods.jpg"></center>'
+		'You decide to get away from things and have a walk through the forest spending most of the time on your phone'
+		'Your phone signal drops meaning you''ve gone too far from the village, looking up you don''t recognise anything and suddenly realize that you are lost.'
+		act 'Find a way back':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_ruin.jpg"></center>'
+			'You try to find your way back but the only thing you manage to do is get more lost. After hours of wandering around you come across an old ruin.'
+			act 'Take a break':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_tunnel_1.jpg"></center>'
+				'You sit down on a large stone in the ruins and take a breath. You are starting to get hungry. If it''s not one thing it''s another. You stomp your foot in frustration and the floor gives way. You desperately try to hold on to something but everything in reach comes loose and falls down the hole with you. You feel slightly dazed but after a quick check you seem to be uninjured. You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option, there is an old gate here but it''s either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
+				act 'Follow the tunnel':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_tunnel_2.jpg"></center>'
+					'The tunnel goes on for what feels like miles. You start to worry that your phone battery will die.'
+					act 'Further':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+						'At the end of the tunnel you find a dead end. Or at least it seems so. You can see light coming through the cracks in the wall so you do your best to knock it down. Suddenly the wall crumbles and you find yourself in another chamber filled with old pottery and baubles. Opposite you is another tunnel, hopefully it leads out. In the center of the room is an altar and on it is what seems to be centerpiece of this room, a strange amulet.'
+						act 'Examine amulet':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/item_amulet.jpg"></center>'
+							'You take the amulet in your hands and notice it''s much lighter than it looks and unusually warm for a piece of metal. It''s shaped like an antique oil lamp and... is that a penis? As you are about to pocket it, the amulet grows even hotter and zaps you. Oww. You drop it. Screw this, you are out of here.'
+							act 'Find a way out':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+								'You follow the passage and find yourself in a construction site. There are several <b>keep out</b> signs visible from here. Shit.'
+								act 'Sneak out':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_road.jpg"></center>'
+									'The workers shift has long since finished so sneaking out is not too hard. The site is on the highway so hopefully you can make it back before your mother starts freaking out. As you start walking back you feel a sudden rush of heat and find yourself falling...'
+									act 'Continue': gt 'intro_sg_m','five'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'five':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+	'You wake up in an unfamiliar room. Standing near you is a red-haired girl.'
+	'"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didn''t make it. You shouldn''t be fondling ancient amulets you know nothing about."'
+	'"I did some research on what happened to you. Turns out the Amulet of Power passed to you, which should only happen if touched by a male mage. Unfortunately, I got some bad news for you. Reinhold, who''s a really powerful mage. He''s been tracking down this amulet for a while now and if he realizes that the amulet''s power has passed to you he might think you pose a risk."'
+
+	act 'What''s going on?':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
+		'"Um, okay, I''ll start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
+		'"They bred with humans and so human magicians were born. The Sidhe as the most powerful of the fae feared the increasing numbers of human magicians and cast a very powerful spell to bind the succubus to them, this prevented one from being able to reproduce without the other."'
+		'"All magicians have some of that original fae blood in their bodies and it is through that that they are able to connect with the world of magic."'
+		*nl
+		'The redhead adjusts her glasses. "Most of the world simply ignores magic or are protected from it by magic''s natural desire to remain hidden."'
+		'"But last night there was a powerful burst of magical energy, strong enough to be clearly seen by any with magical connections. Can you guess where this surge came from? Yeah, that cave you found. Apparently the surge occurred when you opened the seal to the archive. Anyway, that was when we started to search, that source of power is desired by many, but it is extremely dangerous and in the wrong hands could do untold horrors."'
+		'She stops for a few seconds for you to process that information. It seems really far fetched.'
+		'"Reinhold wants to prevent the amulet being misused, he is tasked with maintaining order and will search for you."'
+
+		act 'So, the whole world is just an illusion?':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?" You ask.'
+			'The girl nods. "Yes. You''re a quick student. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot from a flamethrower. The human mind can''t process magic, so it blocks it as a way to protect the person from going crazy."'
+			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'
+
+			act 'And who are you?':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+				'"And who are you?" you ask.'
+				'The girl smiled. "Me? I''m Tatiana, a young mage with a keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant, his mutation is due to magical exposure and it gives him unmatched physical strength and he is a great tracker."'
+				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
+
+				act 'What do you want from me?':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+					'"What do you want from me?" you ask.'
+					'"Hmm, well... the amulet obviously," Tatiana replies. "When I looked for you, I was hoping to get that object of power to study but the power transferred to you first. The amulet will now be pretty much useless."'
+					'"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Its power already knocked you out and I had to use magic to stabilize you."'
+
+					act 'What is this amulet? Where did it come from?':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+						'"And what is this amulet? Where did it come from?" you ask.'
+						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
+						'"Great. So I''ve been thrown into this mess by the dead owner of that ancient tomb. Hang on, I''m not male or a mage, how could the power be transferred to me?"'
+						'"It seems that its long time underground has caused it to malfunction and its power has entered your body."'
+						'"You are lucky to be a woman," Tatiana adds, "Rikudo''s power seems to only work if it is in a man''s body. Since you cannot harness its power you shouldn''t arouse suspicion."'
+
+						act 'So what should I do?':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+							'"Lay low for now. Go on with your life. We will contact you if anything comes up. Gustav here will drop you off at your '+iif($month = 'June','grandparent''s','parent''s')+'."'
+							act 'Follow Gustav':
+								gs 'intro_sg_select', 'sg_settings'
+								gs 'intro_initialization'
+								money = 5000
+
+								*clr & cla
+								if start_location = 2:
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
+									'You give Gustav directions to your grandparent''s house, half an hour later he drops you off at your grandparent''s yard in Gadukino.'
+								elseif start_location = 1:
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_pavlovsk.jpg"></center>'
+									'You give Gustav directions to your family''s apartment building, half an hour later he drops you off in front of your apartment complex in Pavlovsk.'
+								end
+								act '<center><b>Done</b></center>': gt 'intro_sg_m', 'six'
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'six':
+	*clr & cla				
+	hour = 18
+	'<center><b><font color = maroon>Character Face</font></b></center>'
+	'<center><b>Allows you to alter hair and eyes, use to match fixed profile picture if in use.</b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+
+	act 'Continue':
+		showstat 1
+		showobjs 1
+		gs 'obj_din', 'old'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/start_csg.jpg"></center>'
+		'Welcome to the Cursed Schoolgirl version! Guide <<$pcs_nickname>> through her school life, relationships and myriad of other issues that might pop up and all with the added spice of magic to keep things interesting!'
+		act 'Begin!':
+			if start_location = 2:
+				gt 'gadhouse', 'intro'
+			elseif start_location = 1:
+				gt 'bedrPar', 'intro'
+			end
+		end
+	end
+end
+
+
+--- intro_sg_m ---------------------------------
+

locations/intro_sg_select.qsrc

@@ -0,0 +1,1767 @@
+# intro_sg_select
+
+if $ARGS[0] = 'start':
+	StoryLine = 1
+	ml_update_1 = 1
+	birthyear = 1999
+	yearlefttemp = 1
+
+	if player_avatar = 0:
+		birthmonth = 4
+		birthday = 1
+		pcs_haircol = 1
+		pcs_eyesize = 2
+		pcs_lip = 1
+		pcs_lashes = 1
+	end
+
+!!	Body
+	pcs_hgt = 170
+	salo = 80
+	dick = 0
+	pcs_energy = 60
+	pcs_hydra = 60
+	pcs_sleep = 70
+!!	Stats
+	pcs_stren = 30
+	strenbuf = 10
+	pcs_agil = 30
+	agilbuf = 10
+	pcs_vital = 30
+	vitalbuf = 10
+	pcs_intel = 30
+	pcs_sprt = 30
+	pcs_react = 30
+	pcs_chrsm = 30
+	pcs_prcptn = 30
+	pcs_magik = 0
+
+	pcs_heels = 5
+	pcs_makupskl = 20
+	pcs_pubes = 30
+	pcs_leghair = 12
+	pcs_makeup = 1
+
+	money = 2000
+	prezikProver = 3
+	brothersawpirsF = 0
+	dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
+
+	!!Default Names
+	$pcs_firstname = 'Svetlana'
+	$pcs_lastname = 'Lebedev'
+	$pcs_nickname = 'Sveta'
+
+	!!Player names are set here
+	$temp_firstname = '<<$pcs_firstname>>'
+	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+	killvar '$temp_firstname'
+
+	$temp_lastname = '<<$pcs_lastname>>'
+	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+	killvar '$temp_lastname'
+
+	$temp_nickname = '<<$pcs_nickname>>'
+	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+	killvar '$temp_nickname'
+
+	gs 'npcstatic1'
+	gs 'npcstatic2'
+	gs 'npcstatic3'
+	gs 'npcstatic4'
+	gs 'npcstatic5'
+
+	$pcs_dna = func('dna','generate',$npc_dna['A29'],$npc_dna['A35'])
+
+	home_owned[2] = 1
+	gs 'set_home', 2
+
+	killvar 'class_list_institution'
+	killvar 'class_list_name'
+	
+	gs 'grades', 'createclass', 'school', 'math', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'rus', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'lit', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'art', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'bio', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'pe', 3, 1, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'eng', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'geo', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'sci', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'shop', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'comp', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'mus', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'his', 2, 2, 'yes', 'yes', 0, 0
+
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_1.jpg"></center>'
+	'Your name is <<$pcs_firstname>> <<$pcs_lastname>>, friends and family often calling you <<$pcs_nickname>>. Your mother''s name is <<$npc_firstname[''A29'']>> and your biological father left when you were a baby. Your mother married your stepfather, <<$npc_firstname[''A28'']>>, shortly afterwards. <<$npc_firstname[''A33'']>> is your older sister. She is two years older than you and is still living at home while working at the local grocery store. She chose not to attend college and instead spends most of her free time drinking with her friends and going to parties, much to your mother''s dismay. You also have a younger half-brother, <<$npc_firstname[''A34'']>>, who is really into sports, especially football, and is shaping up to be a fine athlete. He is a year younger than you and his father is your stepfather.'
+	*nl
+	'Your <<$npc_usedname[''A30'']>> lives in the same building as you do, though you rarely see her except when you pass her in the stairwell. She is your mother''s sister. <<$npc_usedname[''A54'']>>, as everyone calls him, is best friends with your stepfather. <<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>>, your childhood friend, is the same age as you and grew up living in the same apartment building on the floor above yours. His father, <<$npc_firstname[''A112'']>>, is an old friend of your mother.'
+
+	act 'Re-enter name/s': gt 'intro_sg_select', 'SGStart'
+	act 'Continue':	gt 'intro_sg_select', 'SGStart2'
+end
+
+if $ARGS[0] = 'SGStart2':
+!!make sure this image shows up above the text that shows your birthday
+	!date_toggle = args[1]
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_2.jpg"></center>'
+	if birthday < 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday < 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	end
+
+	if player_avatar = 0:
+		'<a href="exec:gt ''begin'', ''birthday''"><<$startdob>></a>.'
+	else
+		'<<$startdob>>'
+	end
+	act 'Confirm':
+		cls
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_3.jpg"></center>'
+		*nl
+		'You have two options when it comes to beginning your game:'
+		*nl
+		'Starting in August, at the end of the summer holiday, very close to the new school year <i>(recommended for new players)</i>, or starting in June, at the beginning of the summer holiday.'
+		!!This is to account for the school year not matching up with the calendar year.
+		!if date_toggle ! 1:
+		!	if birthmonth >= 7: birthyear -= 1
+		!	if birthmonth = 6 and birthday > 1: birthyear -= 1
+		!end
+		killvar '$startdob'
+		!killvar 'date_toggle'
+
+		$holyday = '<b>Summer holidays</b>'
+
+		kanikuli = 5
+
+		!!This is the default start
+		act 'Start at the end of August':
+			month = 8
+			$month = 'August'
+			grandmaQW['last_month_paid'] = month
+			day = 26
+			week = 5
+			hour = 9
+			kanicont = 6
+			gt 'intro_sg_select', 'SGStart3'
+		end
+
+		act 'Start at the beginning of June':
+			month = 6
+			$month = 'June'
+			grandmaQW['last_month_paid'] = month
+			day = 1
+			week = 3
+			kanicont = 92
+			Gspassed = 1
+			dostupindorf = 1
+			gt 'intro_sg_select', 'SGStart3'
+		end
+	end
+end
+
+if $ARGS[0] = 'SGStart3':
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_3.jpg"></center>'
+	*nl
+	'You can choose from two starting locations:'
+	*nl
+	'In the Pavlovsk start, you awaken at your parent''s home in the provincial town of Pavlovsk <i>(Recommended for new players)</i>. In the Gadukino start, you are visiting your grandparent''s house in the small farming village of Gadukino.'
+
+
+	!! default friendship is 30 for all students
+	gs 'npc_relationship', 'defaultfriendship'
+
+	!! Sets family and friends relationship values and overwrites the npcstatic data for them
+	!! Vasily Shulgin starts at 60, Mitka at 40, Kolyamba and Vasyan at 20
+	gs 'npc_relationship', 'default_family_friends'
+	npc_rel['A18'] = 1
+
+	act 'Pavlovsk Start':
+		gt 'intro_sg_select', 'pav_start'
+	end
+	act 'Gadukino Start':
+		gt 'intro_sg_select', 'gad_start'
+	end
+end
+
+if $ARGS[0] = 'pav_start':
+	*clr
+	'<center><h2>Pavlovsk</h2></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_pavlovsk.jpg"></center>'
+	*nl
+	'<center>A provincial town in a rural area of Russia, it looks much like all the other towns in the region. Population: about 15,000 inhabitants.</center>'
+	start_location = 1
+	act 'Confirm location': gt 'intro_sg_select', 'charselect'
+	act 'Change location': gt 'intro_sg_select', 'SGStart3'
+end
+
+if $ARGS[0] = 'gad_start':
+	*clr
+	'<center><h2>Gadukino</h2></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
+	*nl
+	'<center>A small farming village with many rickety wooden houses and even more ruins of houses. This village has seen better times.</center>'
+	start_location = 2
+	act 'Confirm location': gt 'intro_sg_select', 'charselect'
+	act 'Change location': gt 'intro_sg_select', 'SGStart3'
+end
+
+if $ARGS[0] = 'charselect':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_4.jpg"></center>'
+	'Select your personality/social group. Your social group will have a major defining impact upon your life in school and will determine your starting friends, starting traits and overall look. While you can always change groups later on, it takes time and effort, so choose wisely. Your five choices of social group are.'
+	*nl
+	'Nerds, geeks and good students. - These students tend to do well in school and are well liked by teachers and other adults and your parents will also be more proud of you. They tend to not have many friends outside of their own social group, however, and are also sometimes picked on or bullied. They are subpar athletically and place less value on looks and social skills than other cliques.'
+	*nl
+	'Jocks and natural athletes. - These students are gifted in their chosen sport and are very athletically inclined. This means that they tend to be fit and in good shape, often making them better looking than many of the other students. They get along with other jocks and are respected by the cool kids of the school while being feared by the nerds, geeks and losers. They don''t value academic achievements and can come into conflict with the gopniks and other troublemakers.'
+	*nl
+	'The popular, cool and beautiful. - These students are typically socially-gifted and are often blessed with natural good looks. They are envied by many because of this, and most other kids want to be their friends. More than any of the other cliques, they have the ability to ruin someone''s reputation and make them social outcasts, which earns them the fear of many students. Being cool and good looking is all they value, so they tend to be subpar athletically and academically.'
+	*nl
+	'Gopniks, rebels, punks and troublemakers. - These students don''t play by the rules and, in fact, will often happily piss on them if given half a chance. They are in decent shape from all of their fighting and troublemaking, but their predilection for drinking, smoking and drugs often counteracts this to a point. They are not the most well-liked students; teachers and parents alike take a dim view of them, as does the local police. Most other students fear them, either from the years of bullying or from the gopniks'' willingness to fight. Some students secretly envy their carefree attitude and apparent ability to sneer and wave off many of the social pitfalls that other students face.'
+	*nl
+	'Losers, teachers'' pets, sluts and the ugly. - These students are the outcasts - the kids no one likes to spend time with, other than to pick on or bully them. Perhaps they are just socially awkward and never made many friends, broke one of the unwritten social school rules, are ugly, a snitch, a slut and/or an outed gay boy. Either way, they all have one thing in common: they are easy targets to bully and mock.'
+
+	act 'Full custom setup': gt 'intro_customization', 'start'
+
+	act 'Nerd, Geek, Student':
+		*clr & cla
+		gs 'intro_sg_select', 'nerdinfo'
+		act 'I am the Queen of the Nerds!': gt 'intro_sg_select', 'nerdqueen'
+		act 'I am a good student': gt 'intro_sg_select', 'goodstudent'
+		act 'I am a computer geek': gt 'intro_sg_select', 'computergeek'
+		act 'I am an avid chess player': gt 'intro_sg_select', 'chessplayer'
+
+	end
+
+	act 'Athlete, Jock':
+		*clr & cla
+		gs 'intro_sg_select', 'jockinfo'
+		act 'Avid volleyball player': gt 'intro_sg_select', 'volleyball'
+		act 'Avid dancer': gt 'intro_sg_select', 'dancer'
+		act 'Avid runner': gt 'intro_sg_select', 'runner'
+		act 'Avid football player.': gt 'intro_sg_select', 'football'
+	end
+
+	act 'Popular, Cool, Beautiful':
+!!if we can do school uniforms gets an appropriate or borderline uniform.
+		*clr & cla
+		gs 'intro_sg_select', 'popularinfo'
+		act 'I have a lot of friends': gt 'intro_sg_select', 'socialite'
+		act 'I am beautiful': gt 'intro_sg_select', 'beautiful'
+	end
+
+	act 'Gopnik, Rebel, Punk, Troublemaker':
+!!If you can do uniforms then they can choose inappropriate or borderline
+!!can pick 1-3 tattoos at start
+		*clr & cla
+		gs 'intro_sg_select', 'gopnikinfo'
+		act 'A gopnik': gt 'intro_sg_select', 'gopnikstart'
+		act 'A punk or troublemaker': gt 'intro_sg_select', 'troublemaker'
+		act '<<$npc_nickname[''A9'']>>''s girlfriend':  gt 'intro_sg_select', 'vitekgf'
+		act 'An alternative, party girl or rebel': gt 'intro_sg_select', 'alternative'
+	end
+
+	act 'Outcast, Loser, Goth, Ugly':
+		*clr & cla
+		gs 'intro_sg_select', 'outcastinfo'
+		act 'I have no friends': gt 'intro_sg_select', 'friendless'
+		act 'I am an ugly duckling': gt 'intro_sg_select', 'uglyduckling'
+		act 'I am a good girl': gt 'intro_sg_select', 'goodgirl'
+		act 'I am a slut': gt 'intro_sg_select', 'slut'
+		act 'I am the resident goth': gt 'intro_sg_select', 'goth'
+	end
+
+	act 'Random personality':
+!! This allows the player to select a random personality.
+		*clr & cla
+		persrand = rand(0, 18)
+		if persrand <= 3:
+		!! Nerd
+			gs 'intro_sg_select', 'nerdinfo'
+			if persrand = 0:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'nerdqueen'
+			elseif persrand = 1:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'goodstudent'
+			elseif persrand = 2:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'computergeek'
+			elseif persrand = 3:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'chessplayer'
+			end
+		elseif persrand <= 7:
+		!! Jock
+			gs 'intro_sg_select', 'jockinfo'
+			if persrand = 4:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'volleyball'
+			elseif persrand = 5:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'dancer'
+			elseif persrand = 6:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'runner'
+			elseif persrand = 7:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'football'
+			end
+		elseif persrand <= 9:
+		!! Popular
+			gs 'intro_sg_select', 'popularinfo'
+			if persrand = 8:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'socialite'
+			elseif persrand = 9:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'beautiful'
+			end
+		elseif persrand <= 13:
+		!! Gopnik
+			gs 'intro_sg_select', 'gopnikinfo'
+			if persrand = 10:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'gopnikstart'
+			elseif persrand = 11:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'troublemaker'
+			elseif persrand = 12:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'vitekgf'
+			elseif persrand = 13:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'alternative'
+			end
+		elseif persrand <= 18:
+		!! Outcast
+			gs 'intro_sg_select', 'outcastinfo'
+			if persrand = 14:
+				killvar 'persrand'
+				gs'intro_sg_select', 'friendless'
+			elseif persrand = 15:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'uglyduckling'
+			elseif persrand = 16:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'goodgirl'
+			elseif persrand = 17:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'slut'
+			elseif persrand = 18:
+				killvar 'persrand'
+				gs 'intro_sg_select', 'goth'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'nerdinfo':
+	'<center><h4><font color="maroon">Nerd</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_0.jpg"></center>'
+	'While you were growing up, you spent virtually all of your free time at home, pursuing various cerebral pursuits. These might have included reading comics, fantasy or sci-fi books, learning about chess or computers or playing cards, board games, or RPGs with the other nerds in addition to faithfully going to school. While you have gained a huge amount of knowledge from this, your lack of interest in exercising as a child has left your body a little frail.'
+	*nl
+	'The long nights of trying to read in poor light have taken a toll on your eyesight as well, and you now need glasses to be able to read. Your cerebral pursuits have also had somewhat of a negative impact on your friendship with <<$npc_firstname[''A11'']>>: as you grew up. He became a gopnik and the two of you slowly started hanging out less and less, although you still consider each other to be friends. On the plus side, doing well in school has made your parents happy and has left you with some extra spending money as a reward for your hard work. Now...'
+	*nl
+end
+
+if $ARGS[0] = 'jockinfo':
+	'<center><h4><font color="maroon">Jock</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_0.jpg"></center>'
+	'While you were growing up, you spent virtually all of your free time outdoors. You loved playing sports, running, biking, horseback riding, hiking and most other outdoor activities. This has kept you in fairly good shape as well as decently socially active in a variety of team sports over the years. Doing this, however, negatively impacted your friendship with <<$npc_firstname[''A11'']>> somewhat. As you grew up, he became a gopnik and the two of you slowly started hanging out less and less, though you still consider each other to be friends. From all the sports available, you are an...'
+	*nl
+end
+
+if $ARGS[0] = 'popularinfo':
+	'<center><h4><font color="maroon">Popular</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_0.jpg"></center>'
+	'You spent most of your childhood outdoors, playing with other girls and boys. As a result, you''re quite healthy. You''re also pretty strong verbally, with a keen understanding about how to get yourself out of trouble (or shifting the blame to someone else). You were never very interested in school or sports, however, and are only a sub-par student. Your popularity has negatively impacted your relationship with <<$npc_firstname[''A11'']>> somewhat, and you are not as close as you once were. Now...'
+	*nl
+end
+
+if $ARGS[0] = 'gopnikinfo':
+	'<center><h4><font color="maroon">Gopnik</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_0.jpg"></center>'
+	'You spent most of your childhood outdoors, playing with the other girls and boys. As a result, you''re quite healthy. As you got older you lost any interest you might have once had with fitting in - now you do your own thing, and you’’re ready to tell anyone where they can stick it if they have a problem with that.'
+	'As you and <<$npc_firstname[''A11'']>> walked a similar path, your bond of friendship only deepened. This has had some repercussions on your school performance; you''re a sub-par student. It has also had some less enjoyable consequences leading you into more than your fair share of fights, into all sorts of problems at home, landing you in trouble and often punished at school, and even into a few run-ins with the local police. Now most consider you...'
+	*nl
+end
+
+if $ARGS[0] = 'outcastinfo':
+	'<center><h4><font color="maroon">Outcast</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_0.jpg"></center>'
+	'You never really fit in. You’’re just one of those individuals who, by choice or circumstance, never really clicked with the other kids. As you got older things only got worse, and now you are seen as an outcast. This breaks one of the most important social rules among your peers, and you are now considered in the same vein as sluts, losers, gay boys and the like.'
+	'Being an outcast has also had a somewhat negative impact on your friendship with <<$npc_firstname[''A11'']>>. As you grew up, he became a gopnik and the two of you slowly started hanging out less and less, although you still consider each other to be friends - if just barely. You have no other real friends, and you get bullied and made fun of all the time because...'
+	*nl
+end
+
+if $ARGS[0] = 'nerd':
+	pcs_tan = 0
+	pcs_gaming = 20
+	if player_avatar ! 1: pcs_haircol = 1
+	if player_avatar ! 1: pcs_eyecol = 0
+	fantasybook = 5
+	grupTipe=3
+	money += 3000
+	shampoo = 20
+	if player_avatar = 0:
+		pcs_eyesize = 1
+		pcs_lip = 1
+		pcs_lashes = 0
+	end
+	pcs_skin = 20
+	pcs_inhib = 10
+	pcs_heels = 10
+	pcs_makupskl = 15
+	gs 'npc_relationship', 'socialgroup_setting', -10, 0, 25, 0, 5, 20
+	npc_rel['A129'] += 10
+	npc_rel['A28'] += 10
+	npc_rel['A29'] += 10
+	grupvalue[1] = 200
+	grupvalue[2] = 100
+	grupvalue[3] = 700
+	grupvalue[4] = 100
+	grupvalue[6] = 600
+	genbsize = 22
+	traits['nerd_points'] = 60
+	traits['nerd_status'] = 2
+	traits['nerd_lernHome'] = 5
+end
+
+if $ARGS[0] = 'nerdqueen':
+	'<center><h4><font color="maroon">Queen of the nerds</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_1.jpg"></center>'
+	'While you love all things nerdy or geeky, what you love the most is hanging out with your fellow nerds and doing nerdy things together. This has made you fairly social for a nerd and more general in your areas of knowledge. As you got older and started to develop as a girl, it also made you much more aware of your sexuality than most nerds are comfortable with. As such, you cultivated that awareness more than most and are now more at ease with your body than most of the other nerds. By the usual nerd standards you are confident, dynamic and attractive. This has lead to you being the leader of your group of friends, and you are more acceptable to other social groups as a result, especially the cool kids who seem to respect your social skills and looks.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'nerd'
+		alterstrtimg = 8
+		pcs_intel = 40
+		pcs_chrsm = 40
+		pcs_sprt = 40
+		pcs_icesktng = 10
+		pcs_humint = 10
+		pcs_persuas = 10
+		pcs_makupskl = 30
+		pcs_inhib = 20
+		pcs_heels = 25
+		pirsC = 2
+		PirsC2_owned = 1
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 13
+		fashionista_purses[13] = 1
+		bag = 1
+		gs 'npc_relationship', 'socialgroup_setting', 10, 5, 10, 5, 5, 5
+		npc_rel['A18'] = 1
+!!make sure this coming after the gs code above will still set christina to a 1 relationship, if I did this code correctly, if not look for this code in other spots and fix it pls
+		grupvalue[1] = 300
+		grupvalue[3] = 800
+		grupvalue[6] = 700
+		kosmetica = 10
+		stanok = 10
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 3
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 50
+		genbsize = 17
+		salo = 87
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 75
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 75
+		gs 'grades', 'grade_award', 'school', 'bio', 75
+		gs 'grades', 'grade_award', 'school', 'pe', 70
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 75
+		gs 'grades', 'grade_award', 'school', 'sci', 75
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 75
+		gs 'grades', 'grade_award', 'school', 'mus', 75
+		gs 'grades', 'grade_award', 'school', 'his', 75
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'goodstudent':
+	'<center><h4><font color="maroon">Good student</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_2.jpg"></center>'
+	'You just love school, and your grades are more than good enough to attend the university of your choosing after graduation - all you have to do is not let your grades slip. You have always tried to absorb every bit of knowledge possible and have done everything you could to excel in school. While this attitude has gained you a lot of respect from the other nerds, it did not earn you a lot of friends and you never found the time for sports. You are often asked to be a tutor and sometimes find yourself forced to do others'' homework for them. You have excellent grades, and your mother is very proud of you. She has shown her appreciation for your hard work by rewarding you with money.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'nerd'
+		traits['nerd_points'] = 100
+		traits['nerd_status'] = 3
+		alterstrtimg = 9
+		if glass < 1 : glass = 1
+		pcs_intel = 50
+		pcs_instrmusic = 10
+		pcs_artskls = 10
+		money += 2000
+		pcs_skin = 20
+		salo = 115
+		grupvalue[3] = 750
+		grupvalue[6] = 700
+		gs 'npc_relationship', 'socialgroup_setting', 0, 0, 5, 0, 0, 0
+		npc_rel['A29'] += 20
+		if player_avatar ! 1: pcs_hairlng = 200
+		willpowermax = 80
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 90
+		gs 'grades', 'grade_award', 'school', 'art', 90
+		gs 'grades', 'grade_award', 'school', 'bio', 90
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 90
+		gs 'grades', 'grade_award', 'school', 'geo', 90
+		gs 'grades', 'grade_award', 'school', 'sci', 90
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 90
+		gs 'grades', 'grade_award', 'school', 'mus', 90
+		gs 'grades', 'grade_award', 'school', 'his', 90
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'computergeek':
+	'<center><h4><font color="maroon">Computer geek</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_3.jpg"></center>'
+	'You were always into computers, whether it be by playing video games, taking computers apart or learning programing and even hacking. You love everything about computers, but this passion left you little time to make friends - real-life friends, at least. You have managed to befriend many online players that you talk to while you play various video games, however, and you rarely spend any time outdoors, nor money on clothes or other girly stuff. You are far more interested in saving your money for a better computer in order to play even better games. You have considered hosting a web series of video games or vlogs - you even took the time to learn how to video edit - but you aren’’t sure if you want to put yourself out there like that.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'nerd'
+		alterstrtimg = 10
+		if glass < 1 : glass = 1
+		pcs_intel = 55
+		pcs_compskl = 40
+		pcs_comphckng = 20
+		pcs_gaming = 30
+		internet = 20
+		pcs_skin = 30
+		salo = 38
+		pcs_inhib = 20
+		npc_rel['A152'] += 10
+		npc_rel['A153'] += 10
+		npc_rel['A142'] += 15
+		npc_rel['A129'] += 10
+		komp = 1
+		if player_avatar ! 1: pcs_hairlng = 120
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 85
+		gs 'grades', 'grade_award', 'school', 'lit', 85
+		gs 'grades', 'grade_award', 'school', 'art', 85
+		gs 'grades', 'grade_award', 'school', 'bio', 85
+		gs 'grades', 'grade_award', 'school', 'pe', 65
+		gs 'grades', 'grade_award', 'school', 'eng', 85
+		gs 'grades', 'grade_award', 'school', 'geo', 85
+		gs 'grades', 'grade_award', 'school', 'sci', 85
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 95
+		gs 'grades', 'grade_award', 'school', 'mus', 85
+		gs 'grades', 'grade_award', 'school', 'his', 85
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'chessplayer':
+	'<center><h4><font color="maroon">Avid chess player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_4.jpg"></center>'
+	'You were always into chess as a child, and you have studied all the great chess masters. You can even name them all as well as their favorite strategies! You find nothing more interesting than matching your wits against someone else’’s in a game of chess. It has left you with the ability to often see the consequences of your actions better than most as you are used to looking several moves ahead. All of this has left you with little time to make many friends, and you rarely spend any time outdoors.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'nerd'
+		alterstrtimg = 11
+		pcs_intel = 55
+		pcs_prcptn = 40
+		pcs_react = 40
+		pcs_chess = 40
+		pcs_skin = 35
+		salo = 120
+		pcs_inhib = 15
+		chessyear = year
+		chessmonth = month
+		npc_rel['A151'] += 20
+		if player_avatar ! 1: pcs_hairlng = 200
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 90
+		gs 'grades', 'grade_award', 'school', 'art', 85
+		gs 'grades', 'grade_award', 'school', 'bio', 85
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 85
+		gs 'grades', 'grade_award', 'school', 'geo', 85
+		gs 'grades', 'grade_award', 'school', 'sci', 85
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 85
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 85
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'jock':
+	pcs_sprt = 40
+	pcs_stren = 40
+	pcs_vital = 40
+	pcs_react = 40
+	pcs_agil = 40
+	genbsize = 17
+	kosmetica = 10
+	stanok = 10
+	shampoo = 20
+	tampon = 20
+	pcs_run = 20
+	pcs_bushcraft = 5
+	pcs_ftbll = 10
+	pcs_vball = 10
+	pcs_danc = 10
+	pcs_icesktng = 20
+	pcs_humint = 10
+	pcs_makupskl = 30
+	pcs_heels = 20
+	pcs_inhib = 20
+	swim_start = 1
+	pirsC = 1
+	PirsC1_owned = 1
+	$currentpursetype = 'fashionista'
+	currentpursenumber = 11
+	fashionista_purses[11] = 1
+	bag = 1
+	grupvalue[1] = 400
+	grupvalue[2] = 700
+	grupvalue[3] = 100
+	grupvalue[4] = 300
+	grupvalue[6] = 200
+	gs 'npc_relationship', 'socialgroup_setting', 10, 25, -5, 0, -10, 0
+	npc_rel['A129'] -= 10
+	npc_rel['A18'] = 1
+	hscrunch = 10
+	hscrunchw = 0
+	pcs_tan = 20
+	if player_avatar = 0:
+		pcs_hairlng = 55
+		pcs_haircol = 3
+		pcs_eyecol = 3
+		pcs_eyesize = 3
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	npc_rel['A34'] += 10
+	grupTipe=2
+end
+
+if $ARGS[0] = 'volleyball':
+	'<center><h4><font color="maroon">Volleyball player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_1.jpg"></center>'
+	'Ever since the first time you played volleyball, you have been in love with the sport. You spent a lot of your free time trying to improve your ability, and it paid off; you''re actually quite good now! Your obsession with volleyball, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks. You are especially close with <<$npc_firstname[''A13'']>> and your coach.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'jock'
+		alterstrtimg = 12
+		pcs_react = 50
+		pcs_vital = 50
+		pcs_stren = 45
+		pcs_agil = 50
+		pcs_skin = 50
+		salo = 68
+		pcs_vball = 50
+		gsAboVolley += 30
+		npc_rel['A13'] += 10
+		npc_rel['A69'] += 10
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'dancer':
+	'<center><h4><font color="maroon">Avid dancer</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_2.jpg"></center>'
+	'You fell in love with dancing at an early age and never looked back. You spent a lot of your free time trying to improve your skills, and it paid off; you''re actually quite good now! <<$npc_firstname[''A11'']>> helpfully pointed out that an added benefit of dance was a greater increase in your flexibility (that is, of course, typical of <<$npc_firstname[''A11'']>>). Your obsession with dancing, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks.'
+	*nl
+	'You are particularly close with <<$npc_firstname[''A23'']>>, who is just as passionate about dancing as you are. You trained a lot together as children and have a mutual respect for each other''s abilities.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'jock'
+		alterstrtimg = 13
+		pcs_sprt = 45
+		pcs_vital = 50
+		pcs_react = 50
+		pcs_agil = 55
+		pcs_chrsm = 35
+		pcs_perform = 35
+		pcs_makupskl = 40
+		pcs_skin = 80
+		pcs_tan = 5
+		salo = 50
+		genbsize = 12
+		if player_avatar = 0:
+			pcs_hairlng = 200
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 60
+		pcs_danc = 50
+		pcs_heels = 30
+		pcs_inhib = 25
+		pcs_makupskl = 35
+		gsAboDance += 30
+		gs 'npc_relationship', 'socialgroup_setting', 5, 0, 0, -5, 0, 0
+		npc_rel['A23'] += 25
+		npc_rel['A144'] += 10
+		grupvalue[1] = 500
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'runner':
+	'<center><h4><font color="maroon">Track runner</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_3.jpg"></center>'
+	'Ever since you first tried track, you have been in love with the sport. When you’re running, the rest of the world fades away and you experience a natural high like no other. You spent a lot of your free time trying to get better at it, and it paid off; you''re actually quite good now! Your obsession with running, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks and your coach.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'jock'
+		alterstrtimg = 14
+		pcs_vital = 60
+		pcs_agil = 50
+		pcs_stren = 45
+		pcs_inhib = 25
+		salo = 58
+		pcs_skin = 40
+		genbsize = 12
+		pcs_run = 50
+		gsAboBeg += 30
+		npc_rel['A3'] += 10
+		npc_rel['A5'] += 10
+		npc_rel['A8'] += 5
+		npc_rel['A18'] = 1
+		npc_rel['A131'] += 10
+		grupvalue[2] = 750
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 75
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'football':
+	'<center><h4><font color="maroon">Football player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_4.jpg"></center>'
+	'Ever since your first football game, you have been in love with the sport. You spent a lot of your free time trying to get better at it, and it paid off; you''re actually quite good now! Your obsession with football has had some repercussions on your school performance, however, and you''re now a sub-par student. You haven''t made many friends other than your fellow jocks, especially <<$npc_firstname[''A149'']>> and your coach.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'jock'
+		alterstrtimg = 15
+		pcs_stren = 50
+		pcs_react = 50
+		pcs_vital = 50
+		salo = 80
+		pcs_skin = 50
+		pcs_kick = 20
+		pcs_ftbll = 50
+		npc_rel['A131'] += 10
+		npc_rel['A149'] += 10
+		npc_rel['A34'] += 10
+		grupvalue[2] = 800
+		willpowermax = 140
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 11
+		fashionista_purses[11] = 1
+		bag = 1
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'cool':
+	pcs_sprt = 40
+	pcs_chrsm = 40
+	pcs_prcptn = 40
+	pcs_icesktng = 10
+	pcs_danc = 10
+	pcs_persuas = 30
+	pcs_inhib = 20
+	swim_start = 99
+	kosmetica = 20
+	shampoo = 20
+	stanok = 20
+	tampon = 20
+	money += 1000
+	grupvalue[1] = 700
+	grupvalue[2] = 300
+	grupvalue[3] = 100
+	grupvalue[4] = 200
+	grupvalue[6] = 300
+	gs 'npc_relationship', 'socialgroup_setting', 25, 15, 0, -10, -20, 0
+	npc_rel['A129'] -= 20
+	npc_rel['A144'] += 10
+	npc_rel['A18'] = 1
+	if player_avatar ! 1: pcs_haircol = 2
+	if player_avatar ! 1: pcs_eyecol = 2
+	pcs_tan = 30
+	if player_avatar = 0:
+		pcs_eyesize = 2
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	pcs_skin = 50
+	pcs_tan = 5
+	npc_rel['A33'] += 10
+	grupTipe=1
+end
+
+if $ARGS[0] = 'socialite':
+	'<center><h4><font color="maroon">Sociable</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_1.jpg"></center>'
+	'You have a ton of friends! You''re friends with all of the important kids at school, anyways, which is what really matters. You were very social growing up and enjoyed being around others, often becoming the center of attention. You have always had a knack of knowing the right thing to say at the right moment, which led to many other students wanting to be your friend. You can with a little work get along with nearly anyone if you put your mind to it.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'cool'
+		alterstrtimg = 16
+		pcs_chrsm = 45
+		genbsize = 32
+		pcs_humint = 40
+		pcs_makupskl = 35
+		pcs_heels = 30
+		pcs_perform = 20
+		pirsC = 1
+		PirsC1_owned = 1
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 4
+		fashionista_purses[4] = 1
+		bag = 1
+		school_clothing = 6
+		if player_avatar ! 1: pcs_hairlng = 200
+		npc_rel['A140'] += 10
+		salo = 68
+		willpowermax = 110
+		gs 'grades', 'grade_award', 'school', 'math', 65
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 65
+		gs 'grades', 'grade_award', 'school', 'art', 65
+		gs 'grades', 'grade_award', 'school', 'bio', 65
+		gs 'grades', 'grade_award', 'school', 'pe', 65
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 65
+		gs 'grades', 'grade_award', 'school', 'sci', 65
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 65
+		gs 'grades', 'grade_award', 'school', 'mus', 65
+		gs 'grades', 'grade_award', 'school', 'his', 65
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'beautiful':
+	'<center><h4><font color="maroon">Beautiful</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_2.jpg"></center>'
+	'You might not be the smartest and you might not be the most social or have the toughest attitude - but what you do have are natural good looks. That’s not something you can earn! You blossomed earlier than most girls and the boys took note, especially <<$npc_firstname[''A11'']>>, who started acting differently around you. You know he is attracted to you, but who can blame him? After all, you''re fairly certain that all of the boys (and even some of the girls) lust after you either openly or secretly. As you got older your looks only improved, and you are often considered one of the best looking girls in the room wherever you go. You are especially popular with the cool kids and jocks.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'cool'
+		alterstrtimg = 17
+		pcs_humint = 20
+		pcs_makupskl = 50
+		pcs_heels = 40
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 2
+			pcs_lip = 3
+			pcs_lashes = 2
+		end
+		school_clothing = 6
+		pcs_skin = 70
+		pcs_tan = 50
+		genbsize = 37
+		pcs_inhib = 25
+		kosmetica = 50
+		falselashesplain = 10
+		falselashesmink = 2
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 9
+		fashionista_purses[9] = 1
+		bag = 1
+		gs 'obj_din', 'old'
+		greben = 1
+		kosmetitka = 10
+		krem = 10
+		pirsC = 2
+		PirsC2_owned = 1
+		gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 10, 10, 10, 0
+		salo = 63
+		grupvalue[1] = 800
+		grupvalue[4] = 300
+		gs 'fame', 'pav', 'sex', 20
+		willpowermax = 110
+		gs 'grades', 'grade_award', 'school', 'math', 60
+		gs 'grades', 'grade_award', 'school', 'rus', 60
+		gs 'grades', 'grade_award', 'school', 'lit', 60
+		gs 'grades', 'grade_award', 'school', 'art', 60
+		gs 'grades', 'grade_award', 'school', 'bio', 60
+		gs 'grades', 'grade_award', 'school', 'pe', 60
+		gs 'grades', 'grade_award', 'school', 'eng', 60
+		gs 'grades', 'grade_award', 'school', 'geo', 60
+		gs 'grades', 'grade_award', 'school', 'sci', 60
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 60
+		gs 'grades', 'grade_award', 'school', 'mus', 60
+		gs 'grades', 'grade_award', 'school', 'his', 60
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'gopnik':
+	pcs_sprt = 35
+	pcs_stren = 35
+	pcs_vital = 35
+	pcs_react = 35
+	pcs_agil = 35
+	genbsize = 22
+	pcs_inhib = 25
+	pcs_heels = 10
+	pcs_makupskl = 25
+	kosmetica = 10
+	shampoo = 20
+	stanok = 10
+	siga = 20
+	fakepassport = 1
+	pirsC = 1
+	PirsC1_owned = 1
+	grupvalue[1] = 100
+	grupvalue[2] = 300
+	grupvalue[3] = 100
+	grupvalue[4] = 700
+	grupvalue[6] = 100
+	gs 'npc_relationship', 'socialgroup_setting', 0, 0, -10, 25, 0, 0
+	npc_rel['A129'] -= 30
+	npc_rel['A11'] += 10
+	tampon = 20
+	pcs_run = 20
+	pcs_humint = 10
+	pcs_tan = 10
+	if player_avatar = 0:
+		pcs_hairlng = 120
+		pcs_haircol = 0
+		pcs_eyecol = 1
+		pcs_eyesize = 3
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	pcs_skin = 40
+	pcs_vag = 1
+	pcs_throat = 1
+	stat['hj'] = 10
+	stat['bj'] = 5
+	stat['vaginal'] = 1
+	Gspassed = 0
+	gs 'fame', 'pav', 'sex', 30
+	grupTipe=4
+end
+
+if $ARGS[0] = 'gopnikstart':
+	'<center><h4><font color="maroon">Gopnik</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_1.jpg"></center>'
+	'You are a gopnik. While you are still low in the gopnik pecking order, you have already proven yourself to them and most fully accept you as an equal. You have problems at home and school due to your antisocial behavior. This is especially true with your mother and stepfather, who see you going down the wrong path. The teachers and the police all know you''re one of the local gopniks. The jocks have a not so friendly rivalry with you and the other gopniks, while you don''t get along much, have some mutal respect for you.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'gopnik'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, 20, -10, 0
+		alterstrtimg = 18
+		pcs_stren = 40
+		pcs_vital = 40
+		pcs_jab = 35
+		pcs_punch = 35
+		pcs_kick = 35
+		pcs_def = 35
+		salo = 80
+		school_clothing = 5
+		npc_rel['A9'] += 10
+		npc_rel['A10'] += 10
+		npc_rel['A11'] += 10
+		npc_rel['A20'] += 10
+		npc_rel['A21'] += 10
+		npc_rel['A24'] += 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		grupvalue[4] = 800
+		willpowermax = 130
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 80
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 25
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'troublemaker':
+	'<center><h4><font color="maroon">Troublemaker</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_2.jpg"></center>'
+	'You are a troublemaker. Nothing makes you happier than causing problems, whether it be petty larceny, getting into fights or vandalism. You live for the thrill of breaking the rules. You get along fairly well with the gopniks and they accept you as a kindred spirit. They seem to love your willingness to jump head first into any and all trouble you run across - and if you can''t find any, you will happily make your own, which keeps things lively. You have problems at home and school due to your antisocial behavior. This is especially true with your mother and stepfather, who see you going down the wrong path. The teachers and the police all know who you are.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -50
+		gs 'intro_sg_select', 'gopnik'
+		alterstrtimg = 19
+		pcs_stren = 40
+		pcs_react = 40
+		pcs_jab = 20
+		pcs_punch = 20
+		pcs_kick = 20
+		pcs_def = 20
+		pcs_humint = 10
+		pcs_persuas = 10
+		pcs_skin = 40
+		salo = 75
+		pirsD = 4
+		PirsD4_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 16
+		dolls_purses[16] = 1
+		bag = 1
+		school_clothing = 5
+		if player_avatar ! 1: pcs_hairlng = 55
+		gs 'npc_relationship', 'socialgroup_setting', 0, 0, -10, 0, -10, -10
+		npc_rel['A24'] += 10
+		npc_rel['A155'] += 15
+		npc_rel['A157'] += 10
+		npc_rel['A143'] += 10
+		npc_rel['A144'] += 15
+		npc_rel['A145'] += 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		grupvalue[4] = 750
+		willpowermax = 120
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 80
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 25
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'vitekgf':
+	'<center><h4><font color="maroon">Vitek''s girlfriend</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_3.jpg"></center>'
+	'You are <<$npc_nickname[''A9'']>>''s girlfriend. You love the thrill and danger of hanging out with the gopniks, even if you lack the true attitude yourself. You met <<$npc_nickname[''A9'']>> after he and <<$npc_firstname[''A11'']>> became friends. There was something about his bad boy attitude that drew you in, and you soon found yourself falling for him.'
+	'As you developed, he started to take an interest in you as well. Soon thereafter the two of you started dating. You''re not technically a gopnik - you are considered more of a wannabe - but the rest of the gopniks seem to accept you anyways. You’’re not sure what would happen if you ever broke up with <<$npc_nickname[''A9'']>>, however, as being his girlfriend and hanging out with the other gopniks has cost you any real, close friends outside of their group.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -10
+		gs 'intro_sg_select', 'gopnik'
+		alterstrtimg = 20
+		pcs_sprt = 30
+		pcs_stren = 30
+		pcs_vital = 30
+		pcs_react = 30
+		pcs_agil = 30
+		pcs_chrsm = 40
+		genbsize = 32
+		pcs_humint = 20
+		pcs_makupskl = 30
+		pcs_heels = 30
+		pcs_jab = 10
+		pcs_punch = 10
+		pcs_kick = 10
+		pcs_def = 10
+		pirsD = 3
+		PirsD3_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 19
+		dolls_purses[19] = 1
+		bag = 1
+		npc_rel['A9'] += 50
+		npc_rel['A10'] += 5
+		npc_rel['A11'] += 5
+		npc_rel['A24'] -= 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		grupvalue[4] = 600
+		if player_avatar = 0:
+			pcs_hairlng = 200
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 50
+		pcs_tan = 5
+		pcs_vag = 1
+		pcs_throat = 1
+		salo = 87
+		stat['hj'] = 10
+		stat['bj'] = 5
+		stat['vaginal'] = 2
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+
+!! Vitek;s relationship
+		Gspassed = 0
+		kotovLoveQW = 1
+		vitekvisit = 5
+		npc_sex['A9'] += 5
+		willpowermax = 100
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'alternative':
+!!can choose two more starting tattoo''s
+	'<center><h4><font color="maroon">Alternative</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_4.jpg"></center>'
+	'You march to your own tune. You’’re not a follower - you’’re a leader! You just have no desire to actually lead anything. You do what you want when you want and you do it with a fuck-it-all attitude. The local gopniks respect you and for the most part you get along with them. You''re not one of them, however, but rather a kindred spirit looking to walk your own path and raise a little hell along the way.'
+	*nl
+	'Unlike the gopniks, you have far less interest in fighting or causing problems, instead just looking for a good time - you love to party more than anything else. The cool kids don''t completely look down their nose at you. Even if they don''t approve of your clothes, they respect your love of looking nice and having a good time. You have problems at home and school due to your behavior. This is especially true with your mother and stepfather, who see you going down the wrong path.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -20
+		pcs_exhib = 25
+		Exhibitionist_lvl = 1
+		addictive_exp = 1
+		addictive_trait_lvl = 1
+		gs 'intro_sg_select', 'gopnik'
+		alterstrtimg = 21
+		pcs_vital = 40
+		pcs_agil = 40
+		pcs_react = 40
+		salo = 50
+		pcs_chrsm = 35
+		pcs_humint = 20
+		pcs_persuas = 10
+		pcs_makupskl = 40
+		pcs_danc = 20
+		pcs_heels = 20
+		falselashesplain = 5
+		kosmetica = 20
+		pirsD = 5
+		PirsD5_owned = 1
+		pirsA = 2
+		PirsA2_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 15
+		dolls_purses[15] = 1
+		bag = 1
+		if player_avatar = 0:
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 4
+		pcs_skin = 60
+		pcs_tan = 5
+		pcs_inhib = 35
+		pcs_vag = 1
+		pcs_ass = 1
+		pcs_throat = 5
+		stat['hj'] = 15
+		stat['bj'] = 10
+		stat['vaginal'] = 3
+		stat['anal'] = 1
+		stat['vaginal_finger'] = 5
+		stat['vaginal_finger_give'] = 5
+		stat['cuni'] = 3
+		stat['cuni_give'] = 3
+		gs 'fame', 'pav', 'sex', 40
+		Gspassed = 0
+		npc_rel['A154'] += 10
+		npc_rel['A155'] += 10
+		npc_rel['A156'] += 10
+		npc_rel['A158'] += 10
+		npc_rel['A143'] += 10
+		npc_rel['A144'] += 20
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 10
+		npc_rel['A33'] += 10
+		grupvalue[1] = 200
+		grupvalue[2] = 400
+		willpowermax = 120
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'outcast':
+	pcs_prcptn = 35
+	pcs_inhib = 10
+	pcs_makupskl = 0
+	grupvalue[1] = 100
+	grupvalue[2] = 100
+	grupvalue[3] = 300
+	grupvalue[4] = 100
+	grupvalue[6] = 200
+	gs 'npc_relationship', 'socialgroup_setting', -10, -5, 0, -5, 0, 0
+	npc_rel['A133'] += 20
+	npc_rel['A11'] -= 10
+	npc_rel['A33'] -= 10
+	npc_rel['A34'] -= 10
+	if player_avatar = 0:
+		pcs_hairlng = 200
+		pcs_haircol = 1
+		pcs_eyecol = 0
+		pcs_eyesize = 1
+		pcs_lip = 1
+		pcs_lashes = 0
+	end
+	pcs_skin = 0
+	pcs_tan = 0
+	grupTipe=5
+	shampoo = 20
+end
+
+if $ARGS[0] = 'friendless':
+	'<center><h4><font color="maroon">Friendless</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_1.jpg"></center>'
+	'You were never very social and never learned how to make friends. You were often made fun of or bullied by the other kids as you grew up. As such, you naturally shielded away from them, an action that only served to isolate you even further. Now, years later, you have yet to make any real friends - even Vasily, who is your closest friend, wouldn''t be considered a particularly close one. In public, he scorns you like all the rest, but is a little nicer in private.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, -10, -10, 0
+		alterstrtimg = 22
+		genbsize = 17
+		pcs_chrsm = 20
+		pcs_observ = 20
+		pcs_skin = 10
+		pcs_makupskl = 10
+		npc_rel['A11'] -= 20
+		grupvalue[1] = 50
+		grupvalue[3] = 200
+		willpowermax = 80
+		salo = 68
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'uglyduckling':
+	'<center><h4><font color="maroon">Ugly duckling</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_2.jpg"></center>'
+	'Some girls blossom early and some have natural good looks... you got neither. In fact, you seem to have been cursed with an androgynous face and body. You have been mistaken for a boy more times than you would care to admit. You have never learned to use makeup, but maybe you should. It might help make people realize you are indeed a girl.'
+	*nl
+	'Your body seemed to have grown out of sync, leaving you looking odd and, at best, unattractive for most of your life. Now in your teens, your body is starting to even out in growth but you are still very androgynous and you are still considered by most to be ugly. Your lack of good looks has made you a social pariah. Nobody seems to like you or want to spend time with you unless they are making fun of you.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_sg_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting_boys', -10, -10, -10, -10, 0, 0
+		grupvalue[1] = 0
+		uglyduck_flag = 1
+		alterstrtimg = 23
+		if glass < 1 : glass = 1
+		genbsize = 2
+		pcs_inhib = 5
+		pcs_skin = 1
+		if player_avatar = 0:
+			pcs_eyesize = 0
+			pcs_lip = 0
+			pcs_lashes = 2
+		end
+		school_clothing = 3
+		salo = 210
+		willpowermax = 70
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 25
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'goodgirl':
+	'<center><h4><font color="maroon">Good girl</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_3.jpg"></center>'
+	'You are a good girl. The kind parents, teachers and adults love, but the other kids hate. You always reminded the teacher to give out homework and you would tell on anyone for doing anything. You love the attention you get from adults, and while you can feel lonely at times, you are still pretty happy knowing you''re a good girl. You also regularly attend church just like any good girl should. The nerds seem to tolerate you the most, probably because they almost never misbehave and always do their homework anyways.'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = 100
+		traits['nerd_status'] = 3
+		traits['nerd_lernHome'] = 5
+		gs 'intro_sg_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -5, -5, 0, -20, 0, 0
+		npc_rel['A25'] -= 5
+		npc_rel['A28'] += 10
+		npc_rel['A29'] += 10
+		npc_rel['A11'] -= 20
+		grupvalue[3] = 400
+		alterstrtimg = 24
+		pcs_intel = 35
+		pcs_sprt = 60
+		pcs_inhib = 5
+		pcs_makupskl = 10
+		money += 1000
+		shampoo = 10
+		pcs_skin = 30
+		$currentpursetype = 'gm'
+		currentpursenumber = 6
+		dolls_purses[6] = 1
+		bag = 1
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 3
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 3
+		salo = 48
+		genbsize = 17
+		willpowermax = 150
+		gs 'grades', 'grade_award', 'school', 'math', 80
+		gs 'grades', 'grade_award', 'school', 'rus', 80
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 80
+		gs 'grades', 'grade_award', 'school', 'bio', 80
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 80
+		gs 'grades', 'grade_award', 'school', 'sci', 80
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 80
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 80
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'slut':
+	'<center><h4><font color="maroon">Slut</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_4.jpg"></center>'
+	'You were the first girl at your age to lose her virginity, to your childhood friend Vasily. You became curious about sex far sooner than other kids your age and started masturbating long before the others in your year. You also found a desire for pornography and would masturbate to it. You loved the sensation so much that you wanted to find out how good sex would feel. Once you tried it, you learned that you loved it - you really love everything about it.'
+	*nl
+	'The boys took advantage of your sexual needs and made you give them handjobs, which then led to blowjobs under the bleachers during recess and after school (sometimes they would return the favour by fingering you or a few times even eating you out) You always savored swallowing their cum, and you even love how it tastes. The only thing you like more than sucking cock and swallowing cum is getting fucked by a huge cock while sucking on another one.'
+	*nl
+	'However, your sex addiction has made you a social pariah. The girls all despise you and the boys publicly mock you, although they don''t mind using you. The nerds completely avoid you, while the gopniks seem to tolerate you the most (likely because they enjoy your blowjobs)'
+	act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		trait['commando_lvl'] = 2
+		trt_cumeater = 1 and cumeater_cheat = 1
+		pcs_exhib = 40
+		Exhibitionist_lvl = 1
+		gs 'intro_sg_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, -10, 0, 0
+		gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 0, 15, 0, 0
+		npc_rel['A11'] += 20
+		npc_rel['A25'] += 30
+		npc_rel['A28'] -= 20
+		npc_rel['A29'] -= 30
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		npc_rel['A144'] += 10
+		grupvalue[1] = 0
+		grupvalue[2] = 50
+		grupvalue[3] = 50
+		grupvalue[4] = 100
+		alterstrtimg = 25
+		pcs_makupskl = 50
+		pcs_heels = 50
+		genbsize = 32
+		kosmetica = 30
+		falselashesplain = 20
+		$currentpursetype = 'cats'
+		currentpursenumber = 10
+		cats_purses[10] = 1
+		bag = 1
+		gs 'obj_din', 'old'
+		greben = 1
+		kosmetitka = 10
+		salfetka = 10
+		stanok = 10
+		shampoo = 20
+		pirsC = 2
+		PirsC2_owned = 1
+		motherKnowSpravka = 1
+		if player_avatar = 0:
+			pcs_hairlng = 120
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 2
+		pcs_perform = 20
+		pcs_skin = 60
+		pcs_tan = 20
+		pcs_vag = 10
+		pcs_ass = 10
+		pcs_throat = 10
+		pcs_inhib = 60
+		gs 'fame', 'pav', 'sex', 600
+		GspravkaT = 2
+		motherKnowSpravka = 2
+		Gspassed = 0
+		salo = 110
+		stat['porn'] = 75
+		stat['mast'] = 100
+		stat['hj'] = 70
+		stat['bj'] = 50
+		stat['vaginal_finger'] = 20
+		stat['cuni'] = 5
+		stat['vaginal'] = 30
+		stat['anal'] = 20
+		stat['group'] = 5
+		guy = 15
+		orgasm = 120
+		swallow = 40
+		trt_cumeater = 1
+		grupvalue[4] = 100
+		willpowermax = 50
+		motherKnowWhore = 1
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+if $ARGS[0] = 'goth':
+	'<center><h4><font color="maroon">Goth</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_5.jpg"></center>'
+	'There is always an oddball, the weirdo at every school and at yours, it seems you are the one. You have always felt different, like a person standing outside looking in at the world. You never felt like you fit in, at least until you watched some American movies, saw some goths and suddenly you felt like you belonged. You quickly used all the allowance you had to buy new clothes and makeup so you could finally feel good about yourself. Your family doesn''t approve, hell no one seems to approve but you don''t care.'
+	*nl
+    'You are the school''s resident Goth. The Dark Temptress that all the boys secretly dream of, weaver of bad poetry and suicide covenants... Yep, people have too much imagination. Most adults think that you are going to sacrifice their children. In fact, everyone seems to think you are going to sacrifice someone or commit suicide. The school''s kids aren''t better, with the so-called "cool girls" leading an ostracism campaign against you... Sigh... Fortunately, not everyone is a brainwashed sheep happily following all along, a few think for themselves. The nerds like your reading proclivity and that you are into some of the same things they are; you think they might even invite you to their game one day. A couple of the Gopniks like your party attitude, specifically the kids in the band Pizdá Buysto, who seem to respect your artistic disposition. Or maybe their lead singer just wants to get in your panties, it''s hard to tell.'
+    act 'Select another': gt 'intro_sg_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -10
+		gs 'intro_sg_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -5, 0, 0, +5, 0, -10
+        npc_rel['A28'] -= 20
+	    npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 20
+	    npc_rel['A34'] -= 20
+	    npc_rel['A144'] += 10
+		npc_rel['A155'] += 5
+		grupvalue[4] = 300
+        alterstrtimg = 28
+		genbsize = 17
+		salo = 45
+		pcs_chrsm = 35
+		pcs_intel = 35
+		pcs_sprt = 45
+		pcs_observ = 5
+		pcs_heels = 30
+		pcs_makupskl = 50
+		pcs_artskls = 10
+		pcs_sewng = 20
+		pcs_skin = 50
+	    pcs_inhib = 25
+		willpowermax = 100
+		if player_avatar = 0:
+		    pcs_hairlng = 265
+            pcs_haircol = 0
+			pcs_eyesize = 3
+			pcs_eyecol = 1
+			pcs_lashes = 1
+        end
+		school_clothing = 1
+        kosmetica = 25
+		stanok = 20
+		tampon = 10
+        $currentpursetype = 'dolls'
+		currentpursenumber = 18
+		dolls_purses[18] = 1
+		bag = 1
+		umbrella = 1
+		money -= 1000
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 80
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 70
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if $start_type = 'sg':
+			gt 'intro_sg', 'four'
+		elseif $start_type = 'sg_m':
+			gt 'intro_sg_m', 'four'
+		else
+			gt 'intro_sg_tg', 'four'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'sg_settings':
+	gm_school[6] = 1
+	sisboyday = -2
+	home_owned[1] = 0
+	cltarelka = 0
+	fairy = 0
+	eda = 0
+	poroshok = 0
+	shampoo = 0
+
+	hcolmotherremember = pcs_haircol
+	hcolfatherremember = pcs_haircol
+	hcolfronce = 1
+
+	!!Setting Kolkas birthday based off the PCs
+	koldobtmp_d = rand(1,28)
+	koldobtmp_y = birthyear
+	koldobtmp_m = birthmonth + 11
+	if koldobtmp_m > 12:
+		koldobtmp_y += 1
+		koldobtmp_m -= 12
+	end
+	npc_dob['A34'] = koldobtmp_y * 10000
+	npc_dob['A34'] += koldobtmp_m * 100
+	npc_dob['A34'] += koldobtmp_d
+	killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
+
+	$holyday += ', <b><<kanicont>> days left.</b>'
+end
+
+--- intro_sg_select ---------------------------------
+

locations/intro_sg_select_custom.qsrc

@@ -0,0 +1,443 @@
+# intro_sg_select_custom
+
+if $ARGS[0] = 'start':
+	act 'Pick a social group': gt 'intro_sg_select_custom','modgrup'
+	act 'Set relationships': gt 'intro_sg_select_custom','modrel'
+	act 'Confirm these options':
+		dynamic 'grupvalue[<<grupTipe>>] = 600'
+		if $soc_grup = 'nerd':
+			traits['nerd_points'] = 60
+			traits['nerd_status'] = 2
+			traits['nerd_lernHome'] = 5
+		elseif $soc_grup = 'gopnik':
+			traits['nerd_points'] = -20
+		end
+		if pcs_inhib < 10: pcs_inhib = 10
+		!!This line should get sveta to wear school uniform because she has no other clothing with > 50
+		if pcs_inhib > 50: gs 'clothing', 'wear', 'gm_school', 6
+		if bag = 1:
+			!!using current combination should prevent having more than 1 bag at the start of game.
+			dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
+			gs 'obj_din', 'old'
+		end
+		!!Set teh greades to be average.
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		if start = 1:
+			gt 'intro_sg', 'four'
+		elseif start = 2:
+			gt 'intro_sg_m'. 'start'
+		else
+			gt 'intro_tg', 'start'
+		end
+	end
+end
+
+
+!!This is used to set value, is used to avoid any values that go below 5.
+if $ARGS[0] = 'setval':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 5, 10, 15 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_sg_select_custom', 'setval'
+	elseif nstat < 5:
+		msg 'Please enter a value greater than or equal to 5'
+		gs 'intro_sg_select_custom', 'setval'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_sg_select_custom', 'setval'
+	else
+		gs 'stat'
+		exit
+	end
+end
+
+!!This is used to set values, that can go below 5 and ranges from 100 to -100.
+if $ARGS[0] = 'setval2':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 5, 0, -5 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_sg_select_custom', 'setval2'
+	elseif nstat < -100:
+		msg 'Please enter a value greater than or equal to -100'
+		gs 'intro_sg_select_custom', 'setval2'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_sg_select_custom', 'setval2'
+	else
+		exit
+	end
+end
+
+!!This is used to set values, that can go to 0 and ranges from 0 to 100.
+if $ARGS[0] = 'setval3':
+	nstat = 0
+	nstat = input 'Enter value in multiples of 5. For example, 0, 5, 10 etc.'
+	if nstat > 100:
+		msg 'Please enter a value less than or equal to 100'
+		gs 'intro_sg_select_custom', 'setval3'
+	elseif nstat < 0:
+		msg 'Please enter a value greater than or equal to 0'
+		gs 'intro_sg_select_custom', 'setval3'
+	elseif nstat mod 5 ! 0:
+		msg 'Please enter a value in multiples of 5'
+		gs 'intro_sg_select_custom', 'setval3'
+	else
+		exit
+	end
+end
+
+if $ARGS[0] = 'modgrup':
+	*clr & cla
+	'Your current social group is <<$soc_grup>>.'
+	act 'Nerd, Geek, Student':
+		killvar 'grupvalue'
+		$soc_grup = 'Nerd'
+		grupvalue[3] = 600
+		grupTipe = 3
+		gt 'intro_sg_select_custom','modgrup'
+	end
+	act 'Athlete, Jock':
+		killvar 'grupvalue'
+		$soc_grup = 'Jock'
+		grupvalue[2] = 600
+		grupTipe = 2
+		gt 'intro_sg_select_custom','modgrup'
+	end
+	act 'Popular, Cool, Beautiful':
+		killvar 'grupvalue'
+		$soc_grup = 'Cool'
+		grupvalue[1] = 600
+		grupTipe = 1
+		gt 'intro_sg_select_custom','modgrup'
+	end
+	act 'Gopnik, Rebel, Punk, Troublemaker':
+		killvar 'grupvalue'
+		$soc_grup = 'Gopnik'
+		grupvalue[4] = 600
+		grupTipe = 4
+		gt 'intro_sg_select_custom','modgrup'
+	end
+	act 'Outcast, Loser, Goth, Ugly':
+		killvar 'grupvalue'
+		$soc_grup = 'Outcast'
+		grupTipe = 5
+		gt 'intro_sg_select_custom','modgrup'
+	end
+	act 'Return':gt'intro_customization','start'
+end
+
+if $ARGS[0] = 'none':
+	!!Attributes Reset - I know most of these att&skl are not in need of reset, but I dont know how to use loops and I wanted this to clear all changes made by choosing social group and/or player choices.
+	pcs_stren = 30
+	pcs_agil = 30
+	pcs_vital = 30
+	pcs_intel = 30	
+	pcs_react = 30
+	pcs_sprt = 30
+	pcs_chrsm = 30
+	pcs_prcptn = 30
+	pcs_grades = 75
+	pcs_inhib = 10
+	pcs_heels = 5
+
+	!!Mental Skills Reset
+	pcs_humint = 0
+	pcs_persuas = 0
+	pcs_observ = 0	
+	
+	!!Sport Skills Reset
+	pcs_jab = 0
+	pcs_punch = 0
+	pcs_kick = 0
+	pcs_def = 0
+	pcs_run = 0
+	pcs_vball = 0
+	pcs_ftbll = 0
+	pcs_wrstlng = 0
+	pcs_shoot = 0
+	pcs_bushcraft = 0
+	pcs_chess = 0
+	pcs_icesktng = 0
+	pcs_gaming = 0
+	
+	!!Beauty Skills Reset
+	pcs_makupskl = 20
+	pcs_danc = 0
+	pcs_dancero = 0
+	pcs_dancpol = 0
+	pcs_cheer = 0
+	pcs_mdlng = 0
+	
+	!!Artistic Skills Reset
+	pcs_vokal = 0
+	pcs_instrmusic = 0
+	pcs_photoskl = 0
+	pcs_artskls = 0
+	
+	!!Job Skills Reset
+	pcs_compskl = 0
+	pcs_comphckng = 0
+	pcs_hndiwrk = 0
+	pcs_sewng = 0
+	pcs_servng = 0
+	pcs_medcn = 0
+	
+	!!social group Reset
+	grupTipe = 0	
+	grupvalue[1] = 0	
+	grupvalue[2] = 0	
+	grupvalue[3] = 0	
+	grupvalue[4] = 0	
+	grupvalue[6] = 0	
+	gs 'npc_relationship', 'socialgroup_setting', 0, 0, 0, 0, 0, 0	
+	
+	!!npc relationship Reset
+	npc_rel['A11'] = 60	
+	npc_rel['A129'] = 30	
+	npc_rel['A133'] = 30	
+	npc_rel['A28'] = 50	
+	npc_rel['A29'] = 50	
+	npc_rel['A33'] = 70	
+	npc_rel['A34'] = 50	
+	
+	!!items Reset
+	money = 2000
+	fakepassport = 0	
+	fantasybook = 0	
+	glass = 0	
+	hscrunch = 0
+	kosmetica = 0
+	pirsC = 0	
+	PirsC1_owned = 0
+	shampoo = 0	
+	siga = 0	
+	stanok = 0
+	swim_start = 0	
+	tampon = 0
+	
+	!!apprnc & sex stat reset
+	genbsize = 22
+	pcs_skin = 40
+	salo = 80
+	pcs_tan = 0	
+	pcs_throat = 0	
+	pcs_vag = 0
+	stat['bj'] = 0	
+	stat['hj'] = 0	
+	stat['vaginal'] = 0
+	$soc_grup = 'outcast'
+	grupTipe = 5
+end
+
+if $ARGS[0] = 'modrel':
+	act 'Family':gt 'intro_sg_select_custom','modrel_fam'
+	act 'Popular Kids':gt 'intro_sg_select_custom','modrel_pop'
+	act 'Athletes':gt 'intro_sg_select_custom','modrel_ath'
+	act 'Nerds':gt 'intro_sg_select_custom','modrel_ner'
+	act 'Gopniks':gt 'intro_sg_select_custom','modrel_gop'
+	act 'Outcasts/Loners':gt'intro_sg_select_custom','modrel_out'
+	act 'Teachers/Coaches':gt'intro_sg_select_custom','modrel_tea'
+	act 'Others':gt'intro_sg_select_custom','modrel_oth'
+	act 'Return':gt'intro_customization','start'
+end
+
+if $ARGS[0] = 'modrel_fam':
+	if npc_rel['A28'] < 0: npc_rel['A28'] = 0
+	if npc_rel['A29'] < 0: npc_rel['A29'] = 0
+	if npc_rel['A33'] < 0: npc_rel['A33'] = 0
+	if npc_rel['A34'] < 0: npc_rel['A34'] = 0
+	if npc_rel['A28'] > 100: npc_rel['A28'] = 100
+	if npc_rel['A29'] > 100: npc_rel['A29'] = 100
+	if npc_rel['A33'] > 100: npc_rel['A33'] = 100
+	if npc_rel['A34'] > 100: npc_rel['A34'] = 100
+	'<center><b>Family relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	'<TR bgcolor=#ffffff><TD>Stepfather: <<npc_rel[''A28'']>></TD><TD><a href="exec:npc_rel[''A28''] = 0 & gt ''intro_sg_select_custom'', ''modrel_fam''">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A28''] -= 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A28''] -= 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A28''] += 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A28''] += 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 10</a></TD><TD><a href="exec:npc_rel[''A28''] = 100 & gt ''intro_sg_select_custom'', ''modrel_fam''">100</a></TD>'
+	'<TR bgcolor=#ffffff><TD>Mother: <<npc_rel[''A29'']>></TD><TD><a href="exec:npc_rel[''A29''] = 0 & gt ''intro_sg_select_custom'', ''modrel_fam''">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A29''] -= 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A29''] -= 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A29''] += 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A29''] += 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 10</a></TD><TD><a href="exec:npc_rel[''A29''] = 100 & gt ''intro_sg_select_custom'', ''modrel_fam''">100</a></TD>'
+	'<TR bgcolor=#ffffff><TD>Sister: <<npc_rel[''A33'']>></TD><TD><a href="exec:npc_rel[''A33''] = 0 & gt ''intro_sg_select_custom'', ''modrel_fam''">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A33''] -= 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A33''] -= 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A33''] += 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A33''] += 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 10</a></TD><TD><a href="exec:npc_rel[''A33''] = 100 & gt ''intro_sg_select_custom'', ''modrel_fam''">100</a></TD>'
+	'<TR bgcolor=#ffffff><TD>Brother: <<npc_rel[''A34'']>></TD><TD><a href="exec:npc_rel[''A34''] = 0 & gt ''intro_sg_select_custom'', ''modrel_fam''">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A34''] -= 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''A34''] -= 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A34''] += 5 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''A34''] += 10 & gt ''intro_sg_select_custom'', ''modrel_fam''">plus 10</a></TD><TD><a href="exec:npc_rel[''A34''] = 100 & gt ''intro_sg_select_custom'', ''modrel_fam''">100</a></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+
+if $ARGS[0] = 'modrel_setup':
+	if npc_rel['<<$ARGS[1]>>'] < 0: npc_rel['<<$ARGS[1]>>'] = 0
+	if npc_rel['<<$ARGS[1]>>'] > 100: npc_rel['<<$ARGS[1]>>'] = 100
+	'<TR bgcolor=#ffffff><TD><<$npc_firstname[''<<$ARGS[1]>>'']>> <<$npc_lastname[''<<$ARGS[1]>>'']>>: <<npc_rel[''<<$ARGS[1]>>'']>></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 0 & gt ''intro_sg_select_custom'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 10 & gt ''intro_sg_select_custom'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 5 & gt ''intro_sg_select_custom'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 5 & gt ''intro_sg_select_custom'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 10 & gt ''intro_sg_select_custom'', $loc_arg">plus 10</a></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 100 & gt ''intro_sg_select_custom'', $loc_arg">100</a></TD>'
+end
+
+if $ARGS[0] = 'modrel_pop':
+	$loc_arg = 'modrel_pop'
+	'<center><b>Popular kids relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A1'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A4'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A14'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A15'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A17'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A23'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A146'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A147'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A148'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A25'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A139'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A140'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'modrel_ath':
+	$loc_arg = 'modrel_ath'
+	'<center><b>Jocks relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A3'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A5'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A8'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A13'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A18'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A19'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A22'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A149'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A150'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A141'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'modrel_ner':
+	$loc_arg = 'modrel_ner'
+	'<center><b>Nerds relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A2'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A6'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A12'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A16'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A151'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A152'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A153'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A142'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'modrel_gop':
+	$loc_arg = 'modrel_gop'
+	'<center><b>Gopnik kids relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A9'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A10'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A11'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A20'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A21'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A24'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A154'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A155'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A156'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A157'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A158'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A143'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A144'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A145'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+
+if $ARGS[0] = 'modrel_out':
+	$loc_arg = 'modrel_out'
+	'<center><b>Outcast kids relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A7'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A159'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+!!	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'modrel_tea':
+	$loc_arg = 'modrel_tea'
+	'<center><b>Teacher relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A26'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A128'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A129'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A130'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A131'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A132'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A133'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A134'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A135'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A136'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A137'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A138'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all men in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<TR bgcolor=#ffffff><TD>Set relationship level for all women in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'</table></center>'
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'modrel_oth':
+	$loc_arg = 'modrel_oth'
+	'<center><b>Others relationship levels</b></center>'
+	*nl
+	*nl
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A69'
+	gs 'intro_sg_select_custom', 'modrel_setup', 'A112'
+	'</table></center>'
+	!!Volleyball Coach is here because it wasnt being controlled by grup6 the teachers/coaches.
+	act 'Return': gt 'intro_sg_select_custom','modrel'
+end
+
+if $ARGS[0] = 'pol_grup_set':
+	!!ARGS[1] 0 is boys, 1 is girls. ARGS[2] 1nerd 2jock 3cool 4gopnik 5outcast 6teachers. ARGS[3] is changes to value
+	r = 1
+	:pol_grup_set_loop
+		if npc_gender['A<<r>>'] = ARGS[1] and npc_grupTipe['A<<r>>'] = ARGS[2]:
+			npc_rel['A<<r>>'] = ARGS[3]
+		end
+		r += 1
+	if r <= aarraynumber :jump 'pol_grup_set_loop'
+end
+
+
+--- intro_sg_select_custom ---------------------------------
+

locations/journal_quests.qsrc

@@ -357,7 +357,7 @@ if $ARGS[0] = 'start':
 			elseif katjaQW['pantiesQWstage'] > 4:
 				'Success. Katja doesn''t wear panties to school anymore.'
 			end
-			if npc_sex['A14'] = 1:
+			if npc_sex['A14'] >= 1:
 				if strapon = 0:
 					'I should buy a strap-on so that I can use it on Katja.'
 				elseif katjaQW['slut'] < 40:
@@ -366,21 +366,51 @@ if $ARGS[0] = 'start':
 					'You should' +iif(katjaQW['strapon_bj'] = 0, '; make Katja give your strap-on a blowjob', '')+ +iif( katjaQW['strapon_vag'] = 0, '; fuck Katja''s pussy with your strap-on', '')+ +iif(katjaQW['strapon_ass'] = 0, '; fuck Katja in the ass with your strap-on', '')+'.'
 				end
 
-				if katjaQW['school_kiss'] > 1 and (katjaQW['ivan_pussy'] + katjaQW['ivan_anal']) = 0:
+				if katjaQW['knows_BJ'] = 0 or katjaQW['knows_sex'] = 0 or katjaQW['knows_anal'] = 0:
+					'If I keep telling Katja about my sexual experiences, she might want to try something with me.'
+				end
+
+				if ((katjaQW['knows_BJ'] + katjaQW['knows_sex']) >= 2 and katjaQW['QWstage'] < 4) or ((katjaQW['knows_BJ'] + katjaQW['knows_anal']) >= 2 and katjaQW['anal_quest'] = 0):
+					'Katja wants to ask you something at her home, but she needs to be in the right mood before she will ask.'
+				end
+
+				if katjaQW['anal_quest'] = 2:
+					if  IvanShowerQW = 11:
+						'I should find a place where we can get Ivan to take Katja''s anal virginity. Maybe we can catch him at the beach.'
+					else
+						'I need to seduce and have anal sex with Ivan before I can have him take Katja''s anal virginity. See Ivan''s quest for how to do this.'
+					end
+				end
+
+				if katjaQW['QWstage'] = 5:
+					if katjaQW['marcus_asked'] = 0:
+						if Marcus_sextype > 0:
+							'I should ask Marcus about being Katja''s first during break at school.'
+						else
+							'I need to seduce and have sex with Marcus before I can ask him to be Katja''s first. I could try at the disco.'
+						end
+					else
+						'Marcus has agreed to be Katja''s first, so I should talk with Katja at her room to set it up.'
+					end
+				end
+				
+			if katjaQW['school_kiss'] > 1 and (katjaQW['ivan_pussy'] + katjaQW['ivan_anal']) = 0:
 					'Ivan seems interested in Katja and I. Maybe I can get them to have a threesome? Kissing Katja at school should get his attention, or maybe we will run into him at the beach.' +iif(katjaQW['slut'] < 60, ' Katja needs to lose some more inhibition before she will agree.', '')+ +iif(IvanShowerQW ! 11, ' I need to have sex with Ivan first (See his quest on how to do this).', '')
 				end
 
-				if katjaQW['slut'] < 100:
+				if katjaQW['birth_control_start_day'] = 0 and katjaQW['QWstage'] >= 5:
+					'I should get Katja on birth control, then I could take her on some wilder sex adventures once she''s ready.'
+				elseif katjaQW['QWstage'] < 6 and katjaQW['anal_ques'] < 3 and katjaQW['slut'] <= 100:
 					'I should continue to corrupt Katja. There might be more things I can push her to do.'
 				elseif katjaQW['park_sex'] = 0:
 					'I should take Katja to the park to get her to to hook up with random guys.'
 				elseif katjaQW['park_sex'] = 1:
 					'I took Katja to the park and she had sex with a random guy. Maybe if we go again I could get her to have sex with several guys.'
 				elseif katjaQW['park_sex'] = 2:
-					'Katja had a threesome in the park with two random guys. Let''s go again and see where it ends.'
+					'Katja had a threesome in the park with two random guys. We should go again and see where things end up.'
 				else
-					'You have managed to tun Katja from an innocent virgin into a complete slut that will have orgies with random people you meet in the park.'
-					'You have unlocked all the scenes with Katja that are in the game at the moment' +iif(NatbelQW['QWstage'] < 8, ', except a scene started by going to the market which requires you to advance Natasha''s quest line.', '.')
+					'You''ve managed to turn Katja from an innocent virgin into a complete slut that will have orgies with random people you meet in the park.'
+					'You have unlocked all the scenes with Katja that are in the game at this time' +iif(NatbelQW['QWstage'] < 8, ', except a scene started by going to the market which requires you to advance Natasha''s quest line.', '.')
 				end
 			end
 		end

locations/katalkinSex.qsrc

@@ -84,8 +84,8 @@ if $ARGS[0] = 'sexgo':
 
 				act 'Take his load on your face':
 					*clr & cla
-					facial += 1
-					KatalkinFacial += 1
+					
+					Katalkin
 					gs 'cum_call','face',$boy,1
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/facial.jpg"></center>'
 					'When he is about to orgasm, you release his cock from your mouth and give it a few quick jerks with your fingers as you aim it over your face, closing your eyes in anticipation. Soon enough you feel his warm load splattering all over your face... and wow, it''s a lot! You lick your lips to have a taste. It tastes somewhat bitter, but not necessarily unpleasant.'

locations/katjaEv.qsrc

@@ -8,6 +8,7 @@ menu_off = 0
 if $ARGS[0] = '':
 	*clr & cla
 	CLOSE ALL
+	if katjaQW['afterschool_hangout_day'] ! daystart: gs 'npc_relationship', 'modify', 'A14', 'like'
 	katjaQW['afterschool_hangout_day'] = daystart
 	gs 'katjaEvDin'
 	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -106,7 +107,7 @@ if $ARGS[0] = '1':
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_home.jpg"></center>'
 		if katjaQW['horny'] > 60 and rand (1,3) = 1: 
-			if katjaQW['pantiesQWstage'] >= 5 or katjaQW['no_panties_day'] = daystart:
+			if katjaQW['pantiesQWstage'] >= 5 or katjaQW['take_of_panties_day'] = daystart:
 				*clr & '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_go_home_no_tanga.jpg"></center>' & 'You walk through the streets of Pavlovsk together with Kate to her house. You and chatted about all sorts of trivia and have fun. Suddenly Kate stopped and turned around looking at you, giving you a mischievous look and lifting her skirt, showing you her tender pussy, she seems to have forgotten her panties.'
 			elseif katjaQW['pantiesQWstage'] > 0:
 				*clr & '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_go_home_tanga.jpg"></center>' & 'You walk through the streets of Pavlovsk together with Kate to her house. You and chatted about all sorts of trivia and have fun. Suddenly Kate stopped and turned around looking at you, giving you a mischievous look and lifting her skirt, showing you her panties. '
@@ -1453,7 +1454,7 @@ if $ARGS[0] = 'kathan9':
 		act 'Walk':gt 'katjaEv','kathan7'
 		act 'Redress and look for something else to do':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
 
-		if IvanShowerQW = 11 and fame['pav_slut'] <250 and katjaQW['slut'] > 60 and katjaQW['horny'] >60 and katjaQW['QWstage'] > 2 and npc_sex['A14'] > 0:
+		if IvanShowerQW = 11 and fame['pav_slut'] <250 and katjaQW['horny'] >60 and katjaQW['anal_quest'] = 2 and npc_sex['A14'] > 0:
 			act '"Hey Ivan! You know, we are REALLY bored!"':
 				*clr & cla
 				random_event = rand(1,2)
@@ -1507,6 +1508,7 @@ if $ARGS[0] = 'kathan9':
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS2.jpg"></center>'
 							if npc_ass['A14'] =0:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"What?! Ivan! That is... You are going to?! <<$pcs_nickname>>!"'
 								'Fear and nervousness cross Katja''s pretty face as she realizes where he is taking his <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the quickly freaked girl.'
 								'"Ok Katja, relax. It''s happened to me before. Don''t worry, it will be ok."'
@@ -1514,6 +1516,7 @@ if $ARGS[0] = 'kathan9':
 								'"Ouch! Fuck! <<$pcs_nickname>>! Ivan! Please a little... Hmfp?!"'
 								'You silence her pained grunts with a kiss and lead a hand towards Katja''s crotch, so you can finger her really wet and hot cunt as Ivan slowly fucks her asshole. Even with all that, it is evident that this isn''t easy for the girl, as painful moans escape between your linked tongues.'
 							elseif dick1 < npc_ass['A14']:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"Oh shit! Ivan! I can''t believe that I''m letting you put that in me!"'
 								'Katja bites her lips as she look transfixed at the jock''s <<dick>>cm <<$dick_girth>> cock. You embrace her petite figure and join in the shameless examination, making Ivan look at you nervously.'
 								'"Ahhh! Don''t worry Ivan! Katja isn''t... Hmpf?!"'
@@ -1521,6 +1524,7 @@ if $ARGS[0] = 'kathan9':
 								'"Shut... Gasp... up <<$pcs_nickname>>! I want... moan... your fingers in my cunt!"'
 								'You obey her commands and lead a hand towards Katja''s crotch and begin to finger her really wet and hot cunt as Ivan slowly fucks her asshole. The room quickly fills with aroused moans coming from between your linked tongues.'
 							else
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"Ehm... Ivan, please take care... Hm... I''m not exactly... Ehh... experienced back there."'
 								'Katja blushes as she takes a long look at the jock''s <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the nervous girl.'
 								'"Ok Katja, relax. We have done this before. Ivan isn''t going to hurt you."'

locations/katjaEvDin.qsrc

@@ -13,11 +13,11 @@ if $ARGS[0] = 'strapon_main':
 		elseif katjaQW['horny'] < 40:
 			'Katja looks at you with amusement.'
 		elseif katjaQW['horny'] < 60:
-			'Katja has a slight blush on her cheeks and she looks at you mischievously.'
+			'Katja has a slight blush on her cheeks as she looks at you mischievously.'
 		elseif katjaQW['horny'] < 80:
 			'Katja blushes and languidly looks at you.'
 		else
-			'Katja is red like a boiled lobster and her chest heaves from deep breathing.'
+			'Katja''s face is flushed bright red and her chest heaves from deep breathing.'
 		end
 	else
 		if katjaQW['horny'] < 20:
@@ -27,9 +27,9 @@ if $ARGS[0] = 'strapon_main':
 		elseif katjaQW['horny'] < 60:
 			'Katja has a slight blush on her cheeks and she looks at you mischievously, still breathing a bit hard.'
 		elseif katjaQW['horny'] < 80:
-			'Katja blushes and languidly looks at you, obviously still unable to get hear breath fully under control again.'
+			'Katja blushes and languidly looks at you, obviously still unable to get her breath fully under control again.'
 		else
-			'Katja is red like a boiled lobster and her chest heaves from gulping down all the air she can manage. You delight in the fact that you pushed her over the edge so hard.'
+			'Katja''s face is flushed red and her chest heaves from gulping down all the air she can manage. You delight in the fact that you pushed her over the edge so hard.'
 		end
 	end
 	if katjaQW['horny'] > 10 and katjaQW['horny'] < 100:
@@ -60,7 +60,7 @@ if $ARGS[0] = 'strapon_bj':
 	minut+=5
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_bj.jpg"></center>'
-	'You grab a handful of Katja red hair and keep a good hold on it. You pull her face over to the strap-on and smack her lips with it a couple of times till she opens her mouth. Once her mouth is open you slide it in and let her suck it for a bit. Then you buck your hips forward and start fucking her mouth and throat with the strap-on, your hand in her hair holding her head in place as you do.'
+	'You grab a handful of Katja''s red hair and keep a good hold on it as you pull her face over to the strap-on and smack her lips with it a few times until she opens her mouth. Once her mouth is open, you slide it in and let her suck it before you buck your hips forward and start fucking her mouth and throat with the strap-on, your hand in her hair holding her head in place as you do so.'
 
 	if katjaQW['strapon_bj'] = 0: katjaQW['strapon_bj'] = 1
 	gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
@@ -69,16 +69,16 @@ if $ARGS[0] = 'strapon_bj':
 	if dick < npc_throat['A14']:
 		katjaQW['slut'] += 1
 		katjaQW['horny'] += 5
-		'Katja expertly swallows the strap-on to the base, Her eyes moistened, but she''s very practiced at deep throating and easily takes the dildo all the way down her throat.'
+		'Katja expertly swallows the strap-on to the hilt, Her eyes water slightly, but she''s very practiced at deep throating and easily takes the dildo all the way down her throat.'
 
 		gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
 		gs 'stat'
 	elseif dick < npc_throat['A14']*2:
 		katjaQW['horny'] -= 5
-		'Katja tries to accommodate the dildo plunging down her throat but she keeps gagging a little, her eyes shed tears and a bit of saliva drips from her mouth but she is able to take it.'
+		'Katja tries to accommodate the dildo plunging down her throat, but she keeps gagging a little, her eyes shed tears and saliva drips from her mouth, but she''s able to take it.'
 	else
 		katjaQW['horny'] -= 10
-		'Katja tries to accommodate the dildo plunging down her throat but she keeps gagging, her eyes shed tears, snot runs from her nose, saliva drips from her mouth.'
+		'Katja tries to accommodate the dildo plunging down her throat, but she keeps gagging, her eyes shed tears, snot runs from her nose and saliva drips from her mouth.'
 	end
 
 	if dick > npc_throat['A14']: npc_throat['A14'] += 1
@@ -87,7 +87,7 @@ if $ARGS[0] = 'strapon_bj':
 		katjaQW['horny'] = 0
 		katjaQW['slut'] += 5
 		KatjaQW['orgasm_day'] = daystart
-		'Katja moans and bites her lip looking like she is already about to orgasm just from sucking the strap-on. "You look so pretty with that big cock slamming home in your throat baby." You say to her. Katja''s hand darts to her clit and she starts to rub herself furiously. In mere seconds she pushes herself over the edge and starts to tremble violently, all the while moaning around the big cock still pumping her throat.'
+		'Katja moans and bites her lip, looking like she''s already about to orgasm just from sucking the strap-on. "You look so pretty with that big cock slamming home in your throat baby!" you tell her as her hand darts to her clit and she starts to rub herself furiously. In mere seconds, she pushes herself over the edge and starts to tremble violently, all the while moaning around the dildo still pumping her throat.'
 	end
 
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
@@ -97,14 +97,14 @@ if $ARGS[0] = 'strapon_miss':
 	*clr & cla
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_miss.jpg"></center>'
-	'You lay Katja on her back and spread her legs. You crawl between her legs, rubbing the dildo against her wet pussy. Then you slip it into her and start to fuck her, you slowly work the strap-on balls deep into her, as you start to fuck her hard.'
+	'You lay Katja on her back and spread her legs before crawling between them and rubbing the dildo against her wet pussy. You slide it into her and start to fuck her, slowly working the dildo balls deep into her as you start to fuck her harder.'
 
 	if katjaQW['strapon_vag'] = 0: katjaQW['strapon_vag'] = 1
 	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian', 'dom'
 	gs 'stat'
 
-	if npc_vag['A14'] <= 1:
-		'Katja groans and bites her lip in pain as the strap-on enters her. You notice visible blood on the strap-on, you just popped Katja''s cherry.'
+	if npc_vag['A14'] < 1:
+		'Katja groans and bites her lip in pain as the strap-on enters her. You glance down and notice blood on the strap-on. You just popped Katja''s cherry...'
 		katjaQW['slut']-=10
 		katjaQW['horny'] = 0
 		npc_vag['A14'] += 3
@@ -113,22 +113,22 @@ if $ARGS[0] = 'strapon_miss':
 		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
 		katjaQW['slut']-=1
 		katjaQW['horny'] -= 10
-		'Katja bites her lip and moans as you fuck her with the strap-on and gradually she starts to get into it, she winces from time to time from one of your hard thrusts into her, obviously hurting her a little, but she reluctantly tolerates it.'
+		'Katja bites her lip and moans as you fuck her with the strap-on and she gradually starts to get into it. She winces from time to time from one of your hard thrusts into her, obviously hurting her a little, but she reluctantly tolerates it.'
 	elseif dick > npc_vag['A14'] + 3 or katjaQW['horny'] < 10:
 		if npc_vag['A14'] < dick: npc_vag['A14'] += 1
 		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
 		katjaQW['horny'] += 5
 		katjaQW['slut'] += 1
-		'Katja bite her lip and moans as you fuck her with the strap-on and gradually she starts to get into it, she closes her eyes enjoying the sensations.'
+		'Katja bites her lip and moans as you fuck her with the strap-on and she gradually starts to get into it. She closes her eyes and enjoys the sensations.'
 	else
 		if npc_vag['A14'] < dick: npc_vag['A14'] += 1
 		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
 		if rand(1,2) = 2:
 			katjaQW['horny'] += 10
-			'You fuck Katja hard and fast, she moans in an excited voice and rolls her eyes in pleasure'
+			'You fuck Katja hard and fast and she moans in an excited voice and rolls her eyes in pleasure.'
 		else
 			katjaQW['horny'] += 20
-			'You fuck Katja hard and fast, she moans in an excited voice "Faster, harder, deeper, yes fuck me!"'
+			'You fuck Katja hard and fast and she moans in an excited voice. "Faster, harder, deeper! Yes, fuck me! Pound me!"'
 		end
 		katjaQW['slut']+=1
 	end
@@ -137,7 +137,7 @@ if $ARGS[0] = 'strapon_miss':
 		katjaQW['horny'] = 0
 		katjaQW['slut'] += 5
 		KatjaQW['orgasm_day'] = daystart
-		'Katja moans and bites her lip looking like she is already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds you feel her starting to tremble violently. You let her ride out her orgasm while you slowly push the strap-on in and out of her a few more times listening to her sweet moaning while she tries to regain her breath.'
+		'Katja moans and bites her lip, looking like she''s already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds, you feel her starting to tremble violently. You let her ride out her orgasm while slowly pushing the dildo in and out of her a few more times, listening to her sweet moaning while she tries to regain her breath.'
 	end
 
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
@@ -147,7 +147,7 @@ if $ARGS[0] = 'strapon_anal':
 	*clr & cla
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_anal.jpg"></center>'
-	'You roll Katja onto her stomach and spread her legs, spreading her ass cheeks with your hands you being to rub her anus with your fingers. Grabbing a bottle of lube you lube up your fingers and slide one then a second one into her ass, working it a bit and lubing it up. Then you stop and lube up the strap-on. Once it is good and lubed you lean over her and slip the strap-on in her ass and being anally fucking her.'
+	'You roll Katja onto her stomach and spread her legs. Spreading her ass cheeks with your hands, you being to rub her anus with your fingers before grabbing a bottle of lube and lubing up your fingers. You slide two into her ass, stretching it a little while lubing it up. You then lube up the dildo before leaning over and sliding it slowly into her ass. You start slowly fucking her ass.'
 
 	if katjaQW['strapon_ass'] = 0: katjaQW['strapon_ass'] = 1
 	gs 'arousal', 'anal_strap_give', 5, 'lesbian', 'dom'
@@ -156,21 +156,21 @@ if $ARGS[0] = 'strapon_anal':
 	if npc_ass['A14'] <= 1:
 		katjaQW['slut'] -= 5
 		katjaQW['horny'] = 0
-		'Katja squeals when you push the strap-on in her very tight ass, even with all the lube it is very tight and slow going to work it balls deep into her. She cries out in pain, wincing, with tears flowing from her eyes as you fuck her ass.'
+		'Katja squeals when you push the dildo into her very tight ass. Even with all the lube, it is very tight and difficult to work it deeper into her. She cries out in pain and tears flow from her eyes as you fuck her ass.'
 	elseif dick > npc_ass['A14'] + 5:
 		katjaQW['slut'] -= 1
 		katjaQW['horny'] -= 30
-		'It takes a some effort to get the strap-on to slide into Katja''s tight ass, you slowly work your way down until you are balls deep into her. Causing her to cry out in pain. Her hands grasp at the sheets tightly, she bites the pillow as you anally fuck her with the strap-on.'
+		'It takes some effort to get the dildo to slide into Katja''s tight ass, but you slowly work your way down until you''re balls deep inside her, causing her to cry out in pain. Her hands grasp at the sheets tightly and she bites the pillow as you fuck her ass.'
 	elseif dick > npc_ass['A14'] + 3 or katjaQW['horny'] < 10:
 		katjaQW['horny'] -= 5
-		'It takes a little bit of effort to get the strap-on to slide into Katja''s ass, you slowly work your way down until you are balls deep into her. Causing her to cry out a bit in pain. Her hands grasp at the sheets tightly, caught between intense pleasure and pain, her moans echoing both sensations.'
+		'It takes a bit of effort to get the dildo to slide into Katja''s ass, but you slowly work your way down until you are balls deep inside her, causing her to cry out a little in pain. Her hands grasp at the sheets tightly, caught between intense pleasure and pain as her moans echo both sensations.'
 	elseif dick > npc_ass['A14']:
 		katjaQW['horny'] += 5
-		'The strap-on slides into Katja''s ass fairly easily, you slowly work your way down until you are balls deep into her. She moans in pleasure as you roughly fuck her ass.'
+		'The dildo slides into Katja''s ass fairly easily, and you slowly work your way down until you''re balls deep inside her. She moans in pleasure as you roughly fuck her ass.'
 	else
 		katjaQW['horny'] += 10
 		katjaQW['slut'] += 1
-		'The strap-on slides into Katja''s ass easily all the way down to balls deep into her. She moans in pleasure as you roughly fuck her ass.'
+		'The strap-on easily slides into Katja''s ass all the way to the hilt. She moans in pleasure as you roughly fuck her ass.'
 	end
 
 	if npc_ass['A14'] < dick: npc_ass['A14'] += 1
@@ -180,7 +180,7 @@ if $ARGS[0] = 'strapon_anal':
 		katjaQW['horny'] = 0
 		katjaQW['slut'] += 5
 		KatjaQW['orgasm_day'] = daystart
-		'Katja moans and bites her lip looking like she is already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds you feel her starting to tremble violently. You let her ride out her orgasm while you slowly push the strap-on in and out of her a few more times listening to her sweet moaning while she tries to regain her breath.'
+		'Katja moans and bites her lip, looking like she''s already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds, you feel her starting to tremble violently. You let her ride out her orgasm while slowly thrusting the dildo in and out of her a few more times, listening to her sweet moaning while she tries to regain her breath.'
 	end
 
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
@@ -196,9 +196,9 @@ if $ARGS[0] = 'strapon_start':
 		*clr & cla
 		minut += 3
 		gs 'boystat', 'D<<strapnumber>>'
-		gs'stat'
+		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon.jpg"></center>'
-		'You put the strap-on harness on and buckle it in place, Katja bites her lip watching your actions.'
+		'You put the strap-on harness on and buckle it in place as Katja bites her lip watching you.'
 		act 'Make Katja suck the strap-on': gt 'KatjaEvDin', 'strapon_bj'
 		act 'Fuck Katja with the strap-on': gt 'KatjaEvDin', 'strapon_miss'
 		act 'Fuck Katja in the ass with the strap-on': gt 'KatjaEvDin', 'strapon_anal'
@@ -235,7 +235,7 @@ if $ARGS[0] = 'sex':
 		end
 	end
 
-	act 'Touch Katja between her legs ':
+	act 'Touch Katja between her legs':
 		*clr & cla
 
 		if pcs_horny < 50:pcs_horny = 50
@@ -243,7 +243,7 @@ if $ARGS[0] = 'sex':
 
 		if katjaQW['slut'] >= 20:
 			katjaQW['slut'] += 1
-			'You put your hand between her legs, feeling Katja''s hot and wet pussy under her panties.'
+			'You put your hand between her legs, feeling her wet pussy under her panties.'
 
 			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'dom'
 			gs 'stat'
@@ -269,7 +269,7 @@ if $ARGS[0] = 'sex':
 	!!end
 
 	if katjaQW['slut'] >= 40 and katjaQW['horny'] >= 40 and npc_sex['A14'] > 0 and strapon > 0:
-		act 'Get your Strap On': gt 'KatjaEvDin', 'strapon_start'
+		act 'Get your strap-on': gt 'KatjaEvDin', 'strapon_start'
 	end
 end
 
@@ -283,8 +283,8 @@ if $ARGS[0] = 'kuni':
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
-	'You lean in between Katja''s legs and begin to lick her pussy, Katja moans and closes her eyes, enjoying your tongue. After a while Katja shivers and her pussy starts to contract rhythmically.'
-	'Katja clutches your hair, no longer able to hold back, she moans loudly as she orgasms. Then she pushes your head away from her.'
+	'You lean in between Katja''s legs and begin to lick her pussy. She moans and closes her eyes, enjoying your tongue, and after a few minutes, she shivers and her pussy starts to contract rhythmically.'
+	'Katja clutches your hair, no longer able to hold back as she moans loudly in orgasm. She then pushes your head away from her.'
 
 	gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
 	gs 'stat'
@@ -311,9 +311,9 @@ if $ARGS[0] = 'kuni_p':
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni.jpg"></center>'
-	'Katja bows her head between your legs and you feel something as her tongue begins to toy with your clitoris, you enjoy a natural bliss.'
-	'After a while a nice fire builds inside you. It builds and consumes. Everything is so hot. Then it finds release and you''re in the throes of orgasm.'
-	'Soon the feeling becomes too much and you gently lift Katja''s head away from you.'
+	'Katja moves her head between your legs and you feel her tongue begin to toy with your clitoris, causing you to moan softly.'
+	'After a while, you feel a sensation building inside you before it finds release and you''re in the throes of a powerful orgasm.'
+	'Soon, the feeling becomes too much and you gently lift Katja''s head away from you.'
 
 	$orgasm_or = 'yes'
 	gs 'arousal', 'cuni', 5, 'lesbian', 'dom'
@@ -344,8 +344,8 @@ if $ARGS[0] = 'kuni_dom':
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
-	'You lean in between Katja''s legs and begin to lick her pussy, Katja moans and closes her eyes, enjoying your tongue. After a while Katja shivers and her pussy starts to contract rhythmically.'
-	'Katja clutches your hair, no longer able to hold back, she moans loudly as she orgasms. Then she pushes your head away from her.'
+	'You lean in between Katja''s legs and begin to lick her pussy. She moans and closes her eyes, enjoying your tongue, and after a few minutes, she shivers and her pussy starts to contract rhythmically.'
+	'Katja clutches your hair, no longer able to hold back as she moans loudly in orgasm. She then pushes your head away from her.'
 
 	gs 'arousal', 'cuni_give', 5, 'lesbian', 'sub'
 	gs 'stat'
@@ -355,7 +355,7 @@ if $ARGS[0] = 'kuni_dom':
 			'Katja smiles at you "That was great <<$pcs_nickname>>, spread your legs."'
 			act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
 		else
-			'She looks at you with a satisfied grin, you know that she is aware you are horny as well. With a mischievous look in her eye she says. "That was great <<$pcs_nickname>> but I think that''s enough of that for today."'
+			'She looks at you with a satisfied grin, aware you''re horny as well. She smiles at you with a mischievous look in her eye. "That was great <<$pcs_nickname>>, but I think that''s enough of that for today."'
 
 			gs 'willpower', 'sex', 'resist', 'hard'
 			if will_cost <= pcs_willpwr:
@@ -368,13 +368,13 @@ if $ARGS[0] = 'kuni_dom':
 				act 'Say goodbye and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end	
 
-			act 'Beg her to give you a turn.':
+			act 'Beg her to give you a turn':
 				*clr & cla
 				katjaQW['dom'] += 1
 				pcs_horny += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/myturn.jpg"></center>'
-				'You beg her to give you a turn but she shakes her head no. "Sorry <<$pcs_nickname>>, I''m just not in the mood to go down on you... although if you really want something, I got this." As she is talking she pulls out a strap-on harness with a rather large dildo attached to it, giving you a wicked grin. You can tell she is just itching to use it on you.'
+				'You beg her to give you a turn, but she shakes her head. "Sorry <<$pcs_nickname>>, I''m just not in the mood to go down on you, but if you really want something, I''ve got this..." She pulls out a strap-on harness with a rather large dildo attached to it and gives you a wicked grin. You can tell she is just itching to use it on you.'
 
 				gs 'willpower', 'sex', 'resist', 'hard'
 				if will_cost <= pcs_willpwr:
@@ -392,16 +392,16 @@ if $ARGS[0] = 'kuni_dom':
 					pcs_horny += 10
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katjanewtoy.jpg"></center>'
-					'You bite your lower lip for a moment. You are kinda turned on at the idea of Katja using that to fuck you. You start nodding your head yes as you start to take off your clothes. Katja grins and starts putting the harness on. "Sweet! This is going to be fun <<$pcs_nickname>>. I can''t wait to fuck you with this."'
+					'You bite your lower lip. You''re turned on at the idea of Katja using that to fuck you. You nod your head and start undressing as Katja grins and starts putting the harness on. "Sweet! This is going to be fun <<$pcs_nickname>>. I can''t wait to fuck you with this."'
 
 					act 'Blowjob':
 						*clr & cla
 						gs 'stat'
 						'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapbj.mp4"></video></center>'
-						'As you get naked she makes sure the harness is securely in place. She looks over at you and grins, swinging her hips back and forth making the dildo swing along with her movements, which makes her giggle. After she amuses herself for a bit she looks at you with a wicked grin and walks over.'
-						'She grabs you by your hair, not too hard but not very gentle either, pulls you off the bed and gets you down in front of her on your knees. Once you''re on your knees she pushes the head of the dildo against you lips and slips it into your mouth. With a firm hold on your hair she starts fucking your mouth. Soon she is ramming the dildo down your throat.'
-						'No matter how used to being throat fucked you are, she makes you gag. She buries it to the base in your throat and leaves it till you start to gag, then she goes back to roughly fucking your mouth. Each time she makes you gag you can hear her giggle, you can tell she is enjoying herself.'
-						'With tears running down your cheeks from being gagged and saliva dripping from your mouth, she finally pulls your head away by your hair. "Ok I think we got this wet enough with your saliva, don''t you? Ready for round two?"'
+						'As you get naked, she makes sure the harness is securely in place before she looks over at you and grins, swinging her hips back and forth to make the dildo swing along with her, which makes her giggle. After she amuses herself, she looks at you with a wicked grin and walks over.'
+						'She grabs you by your hair, not too hard but not very gently either, pulls you off the bed and gets you down in front of her on your knees. Once you''re on your knees, she pushes the head of the dildo against your lips and slides it into your mouth. With a firm hold on your hair, she starts fucking your mouth and is soon ramming the dildo down your throat.'
+						'No matter how used to being throat fucked you are, she makes you gag. She buries it to the base in your throat and leaves it there until you start to gag, before going back to roughly fucking your mouth. Each time she makes you gag, you can hear her giggle, clearly enjoying herself.'
+						'With tears running down your cheeks and saliva dripping from your mouth, she finally pulls your head away by your hair. "Okay, I think we got this wet enough, don''t you? Ready for round two?"'
 
 						gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'rough', 'deepthroat'
 						gs 'stat'
@@ -417,16 +417,16 @@ if $ARGS[0] = 'kuni_dom':
 							act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 						end
 						
-						act 'Agree to round two':
+						act 'Agree':
 							*clr & cla
 							pcs_horny += 15
 							gs 'stat'
 							'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapfuck.mp4"></video></center>'
-							'You nod your head. You want more. Katja pulls you up to your feet by your hair. It hurts a little but you also like the rough treatment. She grabs you on either side of the head and licks some of the spittle off your chin, slowly moving her tongue up to your mouth. You eagerly open your mouth for hers and she gives you a passionate kiss, forcing her tongue into your mouth and then pushes you onto the bed. "That''s my good little fuck slut, now get on your hands and knees like a good little slut." She gets you on your hands and knees and as she kneels down behind you she gives your bare ass a hard smack.'
-							'With one hand she holds the dildo and starts rubbing it against your pussy lips, with the other she grabs your hair again and pulls your head back. She slips the dildo into your wet pussy. She barely has the tip all the way in you when she pulls back on your hair. Forcing you to lean back a bit while she thrusts her hips forward, burying the dildo the full length inside of you.'
-							'Before she even gives you a chance to get used to it, she starts roughly and furiously fucking you. At first it hurts a little but soon you are soaking wet and moaning in pleasure. Loving the feeling of being used like a, as she put it, little fuck slut. Especially being her little fuck slut. The thought of her dominating you and using you however she wants is more of a turn on than the dildo currently pounding inside you.'
-							'Your moans get louder as the pleasure ebbs and flows. "Yeah you love this, don''t you bitch?" You moan back to her. "Yes, yes please fuck me. Use me!" She redoubles her efforts for a bit, before she finally pulls out of you, keeping hold of your hair and dragging you off the bed with her. She takes you to her desk and bends you over it.'
-							'"Reach back and pull those ass cheeks apart so I can fuck you in the ass." She commands you now. You don''t know if you can resist her, you don''t know if you even want to.'
+							'You nod your head and Katja pulls you up to your feet by your hair. She grabs you on either side of the head and licks some of the saliva off your chin before slowly moving her tongue up to your mouth. You eagerly open your mouth and she gives you a passionate kiss, forcing her tongue into your mouth and then pushes you onto the bed. "That''s my good little fuck slut, now get on your hands and knees like a good little slut!" You get on all fours as she kneels down behind you and gives your ass a hard smack.'
+							'She holds the dildo with one hand and starts rubbing it against your pussy lips, while using the other to grab your hair again and pull your head back as she slides the dildo into your wet pussy. She barely has the tip all the way in when she pulls back on your hair, forcing you to lean back as she thrusts her hips forward, shoving the dildo the full length of the dildo inside you.'
+							'Before she even gives you a chance to get used to it, she starts roughly and furiously fucking you. Your moans get louder as the pleasure builds. "Yeah, you love this, don''t you bitch?!" 
+							"Yes, yes please fuck me. Use me!" you moan back and she doubles her efforts before she finally pulls out of you, keeping hold of your hair as she drags you off the bed. She takes you over to her desk and bends you over it.'
+							'"Reach back and pull those ass cheeks apart so I can fuck you in the ass!" she commands you. You don''t know if you can resist her, you don''t know if you even want to.'
 
 							gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub', 'rough'
 							gs 'stat'
@@ -446,23 +446,23 @@ if $ARGS[0] = 'kuni_dom':
 								*clr & cla
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapanal.jpg"></center>'
-								'You do as she says. You grab your butt cheeks and pull them apart. Almost at once you feel the head of the dildo pressing against your asshole as she says. "That''s my good little butt slut. We will have you trained in no time."'
-								'With only the lubrication from your own pussy on the dildo she slips it into your ass. She is gentle at first, working it in slowly. She strokes in and out at this slow steady pace, as she works it deeper and deeper into your ass. Once she has pushes it the full length in your ass and there is no more to push in, she starts to pick up the pace and fuck you harder. You start moaning in a mixture of pleasure and pain. It hurts a little but you also love it, not just the feeling but also being used like this.'
-								'She keeps picking up speed, soon the sounds of the skin from her hips slapping against your butt can be heard over your moaning. She seems to lose herself in the act. She stops paying attention to you. You don''t even think she would notice if you orgasmed. After a long time she starts panting. You can tell she is starting to get physically tired and worn out.'
+								'You grab your ass cheeks and pull them apart. Almost at once, you feel the head of the dildo pressing against your asshole. "That''s my good little butt slut. We''ll have you trained in no time."'
+								'With only the lubrication from your pussy, she slides it into your ass. She is gentle at first, working it in slowly as she thrusts in and out at a steady pace, gradually works it deeper and deeper into your ass. Once she has pushed the full length into your ass, she starts to pick up the pace and fuck you harder. You start moaning in a mixture of pleasure and pain.'
+								'She keeps picking up speed and soon the sound of her hips slapping against your ass can be heard over your moaning. She seems to lose herself in the act and stops paying attention to you. You don''t think she would even notice if you orgasmed. After a good few minutes of this, she starts panting as she gets tired.'
 
 								gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub', 'rough'
 								
 								if pcs_horny >= 100:
 									$orgasm_or = 'yes'
-									$orgasm_txt = 'It is then that your orgasm hits you, it is sudden and amazingly intense.'
+									$orgasm_txt = 'It is then that your orgasm hits you. It is sudden and amazingly intense.'
 									gs 'arousal', 'anal_strap', -1, 'lesbian', 'sub', 'rough'
 								end
-																
+								
 								gs 'stat'
 								
-								'Yet she doesn''t slow down her furious pace. Finally unable to keep it up anymore she collapses on your back. You can feel the sweat from her body on your back and her heavy breathing in your ear. As she rests, half leaning against and half laying on you, with the dildo still buried it''s full length up your ass.'
-								'You take the time to rest and relax yourself coming down from the amazing fucking you just received. A few moments later she kisses your back and your neck, before getting off you and pulling the dildo out slowly. Getting up yourself, you see her taking the harness off and tossing it aside. You notice that her thighs are slick with sweat and her own juices. Once it is off and you are facing her, she grabs you by the neck and gives you a passionate, deep, long kiss. Finally breaking the kiss "My god <<$pcs_nickname>> that was amazing. I hope I didn''t hurt you too much and you enjoyed it as much as I did. No wonder boys fuck us like that, that was amazing."'
-								'She says as she falls back on her bed laying on her back, still breathing hard and looking at you with a somewhat possessive look. You lay down next to her. "It was wonderful, I''m glad you enjoyed it too, even if you were a little rough at times." She leans over and gives you another kiss. "Sorry <<$pcs_nickname>> if I was to rough, but that was beyond description, we are going to have to do that again." The two of you lay quietly for a while, basking in the aftermath. You know something in your relationship has changed and you think for the better. After a while you get up and get dressed, you need to get going.'
+								'Yet she doesn''t slow down her furious pace. Finally unable to keep it up anymore, she collapses on your back. You can feel her sweat on your back and her heavy breathing in your ear as she rests against with the dildo still firmly up your ass.'
+								'You take the time to rest and relax yourself, coming down from the pounding you just received. A few minutes later, she kisses your back and your neck before climbing off you and pulling the dildo out slowly. Getting up yourself, you see her taking the harness off and tossing it aside. You notice that her thighs are slick with sweat and her own juices. She grabs you by the neck and gives you a passionate, deep and very long kiss. "My god <<$pcs_nickname>>, that was amazing! I hope I didn''t hurt you too much and you enjoyed it as much as I did. No wonder boys fuck us like that, that was amazing!" she says upon breaking the kiss.'
+								'She falls back on her bed, still breathing hard and looking at you with a somewhat possessive look as you lie down next to her. "It was wonderful. I''m glad you enjoyed it too, even if you were a little rough at times." She leans over and gives you another kiss. "Sorry, but that was beyond description. We''re going to have to do that again sometime." The two of you lay quietly for a while, basking in the aftermath. You know something in your relationship has changed and you think for the better. After a while, you get up and get dressed.'
 
 								act 'Talk about something else': gt 'KatjaHomeTalk'
 								if mey_vika['key'] = 1:

locations/katja_meynold_schedule.qsrc

@@ -0,0 +1,166 @@
+# katja_meynold_schedule
+!!2022/01/27
+locat['katja'] = 0
+
+if SchoolAtestat = 0 and kanikuli = 0:
+	if week <= 5:
+		if (hour < 6) or (hour = 6 and minut < 45):
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour < 7:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour = 7 and minut <= 15:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour = 7 and minut < 30:
+			!!NotHome - Walking to school
+			locat['katja']  = 4
+		elseif hour < 14:
+			!!NotHome - At School
+			locat['katja']  = 5
+		elseif hour < 15:
+			!!NotHome - Hanging out near the school or walking home from school
+			locat['katja']  = 6
+		elseif hour < 20:
+			!!At home in her room
+			locat['katja'] = 7
+		else
+			if week = 5:
+				!!At the comunity center disco
+				locat['katja'] = 8
+			else
+				!!In her room with not having visitors over
+				locat['katja'] = 9
+			end
+		end
+	elseif week = 6:
+		if hour < 9:
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour = 9 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour < 10:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour < 20:
+			!!At home in her room
+			locat['katja'] = 7
+		else
+			!!At the comunity center disco
+			locat['katja'] = 8
+		end
+	else
+		if hour < 9:
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour = 9 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour < 10:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour < 12:
+			!!At home in her room
+			locat['katja'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['katja'] = 10
+			else
+				!!At home in her room
+				locat['katja'] = 7
+			end
+		elseif hour < 20:
+			!!At home in her room
+			locat['katja'] = 7
+		else
+			!!In her room with not having visitors over
+			locat['katja'] = 9
+		end
+	end
+else
+	if week <= 5:
+		if (hour < 7) or (hour = 7 and minut < 45):
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour < 7:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour = 8 and minut <= 30:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour < 12:
+			!!At home in her room
+			locat['katja'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9 and week mod 2 = 0:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['katja'] = 10
+			else
+				!!At home in her room
+				locat['katja'] = 7
+			end
+		elseif hour < 20:
+				!!At home in her room
+				locat['katja'] = 7
+		else
+			if week = 5:
+				!!At the comunity center disco
+				locat['katja'] = 8
+			else
+				!!In her room with not having visitors over
+				locat['katja'] = 9
+			end
+		end
+	elseif week = 6:
+		if hour < 9:
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour = 9 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour < 10:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour < 12:
+			!!At home in her room
+			locat['katja'] = 7
+		elseif hour < 15:
+			if temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9:
+				!!At the lake beach hanging out wiht the other cool kids and the jocks
+				locat['katja'] = 10
+			else
+				!!At home in her room
+				locat['katja'] = 7
+			end
+		elseif hour < 20:
+			!!At home in her room
+			locat['katja'] = 7
+		else
+			!!At the comunity center disco
+			locat['katja'] = 8
+		end
+	else
+		if hour < 9:
+			!!Bedroom - Asleep
+			locat['katja']  = 1
+		elseif hour = 9 and minut < 30:
+			!!Bedroom - Getting Dressed
+			locat['katja']  = 2
+		elseif hour < 10:
+			!!Kitchen - Breakfast
+			locat['katja']  = 3
+		elseif hour < 20:
+			!!At home in her room
+			locat['katja'] = 7
+		else
+			!!In her room with not having visitors over
+			locat['katja'] = 9
+		end
+	end
+end
+
+--- katja_meynold_schedule ---------------------------------
+

locations/katja_sex.qsrc

@@ -6,57 +6,49 @@ if $ARGS[0] = 'park':
 	if month=3 or month=4 or month=5:
 		if hour>=6 and hour<=17:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.spring.jpg"></center>'
-			'After months of winter, spring is finally here. Flowers begin to bloom and new leaves grow on the trees.'
-			'On the ground, there are puddles of melted snow. Most people walk around the puddles or jump over them, a few guys apparently think it makes them look tough, just walk straight through the puddles.'
-			'Couples stroll hand and hand along the many paths in the park.'
-			*nl
+			'After months of winter, spring is finally here. Flowers begin to bloom, new leaves grow on the trees and puddles of melted snow litter the ground.'
+			'Most people walk around the puddles or jump over them, but a few just walk straight through them as people around you enjoy the atmosphere.'
+			'Couples stroll hand and hand along the many paths, others sit on benches and take in the view and children run through the trees.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.spring.night.jpg"></center>'
-			'With the arrival of spring, people start visiting the park a lot more again. As the sun sets and the cold of the night settles in, it drives the people out of the park to warmer locations, leaving you to wander the park alone.'
-			*nl
+			'With the arrival of spring, people have started visiting the park again. As the sun sets, the bitter cold of the night settles in and drives people out of the park to warmer locations, leaving you to wander the park alone.'
 		end
 	end
 	if month=6 or month=7 or month=8:
 		if hour>=6 and hour<=19:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/skver.jpg"></center>'
-			'Many people come to the park during the day to rest, take walks, a place for couples to have romantic strolls, or a place for the kids to play.'
-			*nl
+			'Many people come to the park during the day to rest or take a walk. It''s also a place for couples to have romantic strolls and for children to play.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.summer.night.jpg"></center>'
-			'At night the park is almost always empty, leaving you alone to enjoy the stillness of the park at night.'
-			*nl
-		end
+			'The park is almost always empty at night, leaving you alone to enjoy the near silence of it all.'
+	    end
 	end
 	if month=9 or month=10 or month=11:
 		if hour>=6 and hour<=18:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.autumn.jpg"></center>'
-			'With the coming of fall, the leaves turn red, orange or brown as they being to fall off the tree''s. Leaving a coating of fallen leaves on the ground. Many people still visit the park, to jog, go for walks, sit and rest, or just enjoy the beauty of fall and take pictures.'
-			*nl
+			'With the coming of fall, the leaves start turning red, orange or brown as they fall off the trees, leaving a crisp covering on the ground. Many people still visit the park to jog, go for a walk or to just sit and enjoy the beauty of their surrondings.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.autumn.night.jpg"></center>'
 			'As night falls and the air cools, most people seek out warmer locations, leaving you to enjoy the park with no interruptions.'
-			*nl
 		end
 	end
 	if month=1 or month=2 or month=12:
 		if hour>=7 and hour<=16:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.winter.jpg"></center>'
-			'With snow covering the ground, the park has become the main play ground for the kids, they build snowmen, sled, or have snowball fights. Occasionally some of the adults join in as well, while others just enjoy the beauty of the winter wonderland that is the park.'
-			*nl
+			'With a blanket of snow covering the ground, the park has become a playground for children and adults alike to build snowmen, go sledding and have snowball fights. Others just enjoy the beauty of the winter wonderland that the park has become.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.winter.night.jpg"></center>'
-			'The bitter cold at night drives all but the most adventurous people indoors.'
-			*nl
+			'The bitter cold at night drives all but the bravest of people indoors.'
 		end
 	end
 	!_________________Change the date\nights, seasons. End.___________________________
 
 	if flag_KissEV = 3:
-		'You and Katja arrive at the park hand in hand, she looks to you. "Ready?"'
-		'You nod your head, ready to play your little game. Then she asks "How do we know who wins?"'
-		'You replied to her with smile. "Who ever kisses the most boys win of course."'
-		'She shakes her head. "No I mean how do we prove how many we have kissed?"'
-		'You nod in understanding and lean over and give her a kiss, while taking a picture of the act with your phone. Showing it to her she smiles and nods as the two of you run off in opposite directions in the park to find boys to kiss.'
+		'You and Katja arrive at the park hand in hand and she looks to you. "Ready?"'
+		'You nod your head, ready to play your little game. "How do we know who wins?" she asks.'
+		'"Whoever kisses the most boys wins of course," you reply with a smile.'
+		'She shakes her head. "No, I mean how do we prove how many we''ve kissed?"'
+		'You nod in understanding and lean over and give her a kiss while taking a picture with your phone. You show it to her and she smiles and nods before the two of you run off in opposite directions to find boys to kiss.'
 		act 'Look for a guy':
 			cla
 			*clr
@@ -65,7 +57,7 @@ if $ARGS[0] = 'park':
 			else
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/parc_ev_1_1.jpg"></center>'
 			end
-			'Running around the park looking for a boy to kiss, you spy one and start over. But you see Katja run up to him first, they talk for a few moments and then kiss.'
+			'Running around the park looking for a boy to kiss, you spy one and start heading over, but Katja makes it to him first. They talk for a few minutes before kissing.'
 			act 'Look for a guy':
 				cla
 				*clr
@@ -74,23 +66,23 @@ if $ARGS[0] = 'park':
 				else
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/parc_ev_1_3.jpg"></center>'
 				end
-				'Running deeper into the park you come across a boy all by himself, you run up to him and blurt out. "Hello"'
-				'The boy a little startled by your actions cautiously replies. "Hello, what can I help you with?"'
-				'You hastily reply. "My friend and I have a bet going on who can kiss the most guys, can I kiss you and take a picture? Please?"'
-				'He hesitates a moment and then looks you over and nods yes. You plant a very passionate kiss on his lips as you take a picture with your phone. Leaving the startled boy in your wake as you run off to find more prey.'
+				'Running deeper into the park, you come across a boy by himself. You run up to him and blurt out an awkward "Hello."'
+				'The boy, a little startled by your actions, cautiously replies. "Hey? Can I help you with something?"'
+				'"My friend and I have a bet on who can kiss the most guys. Can I kiss you and take a picture? Please?"'
+				'He hesitates before looking you over and nodding. You plant a very passionate kiss on his lips as you take a picture with your phone before leaving the startled boy in your wake as you run off to find more prey.'
 				act 'Looking for another':
 					cla
 					*clr
 					if month=1 or month=2 or month=12 or month=11:
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/parc_ev_1_6.jpg"></center>'
-						'Running up to a buff looking guy, you think. Katja likes guys like this. "Hi would you like a kiss?"'
-						'The guy looks at you confused for a moment and then looks you over and smiles. "Just a kiss?"'
-						'You nod and before you have a chance to respond he grabs you and pushes you down in the snow. He lands on top of you, holding you with one arm while his other breaks your fall. He begins to hold you tight and kisses you passionately, it takes several minutes for you manage to get free of him.'
+						'You run up to a buff looking guy, the kind of guy that Katja likes. "Hi! Would you like a kiss?"'
+						'The guy looks at you confused for a second before looking you over and smiling. "Just a kiss?"'
+						'You nod, but before you have a chance to respond, he pushes you down into the snow and lands on top of you, holding you with one arm while his other breaks your fall. He holds you tight and starts kissing you passionately. It takes several minutes for you to get free of him.'
 					else
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/parc_ev_1_5.jpg"></center>'
 						'Running up to a buff looking guy, you think. Katja likes guys like this. "Hi would you like a kiss?"'
 						'The guy looks at you confused for a moment and then looks you over and smiles. "Just a kiss?"'
-						'You nod and before you have a chance to respond he grabs you and pulls you into a tight embrace as he beings to passionately kiss you, it takes several minutes for you manage to get free of him.'
+						'You nod, but before you have a chance to respond, he pulls you into a tight embrace and starts passionately kissing you. It takes several minutes for you to get free of him.'
 					end
 					act 'Running out of time':
 						cla
@@ -101,18 +93,18 @@ if $ARGS[0] = 'park':
 						else
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tel_leto.jpg"></center>'
 						end
-						'As you look for another boy you run across Katja waiting for you with her phone in her hand, knowing your time is up, you walk over to her and you trade phones. Taking a look at her phone you see she has five pictures of kissing boys, you sigh knowing you have lost. Just as Katja lets out a giggle holding up your phone. "Only two?" She asks in a teasing tone.'
-						'You try to protest. "It''s not fair, one of the guys held me as he kissed me and wouldn''t let me go."'
-						'Shaking her head you can tell she doesn''t care about any excuses. "You lose, I got five and you only got two." She said with a smug smile.'
-						'Giving up and smiling yourself. "Fine you win but I want a rematch tomorrow." She nods to the rematch.'
+						'As you look for another boy, you run across Katja waiting for you with her phone in her hand. Knowing your time is up, you walk over to her and trade phones. Taking a look at her phone, you see she has five pictures and sigh in defeat as Katja lets out a giggle and holds up your phone. "Only two?" she asks in a teasing tone.'
+						'"It''s not fair! One of the guys held me as he kissed me and wouldn''t let me go!" you protest.'
+						'She shakes her head, telling you that she doesn''t care about any excuses. "You lose! I got five and you only got two!" she says with a smug smile.'
+						'"Fine you win, but I want a rematch tomorrow!" you reply and she nods in agreement.'
 						act 'Leave': gt'pav_residential'
 					end
 				end
 			end
 		end
 	elseif flag_KissEV = 4:
-		'Back in the park again, Katja looks over at you. "Who do you think will win today?" Her tone clearly indicates she thinks the results won''t be any different today than it was yesterday.'
-		'With a determined look you tell her. "Well lets find out." As you both race off to find boys to kiss.'
+		'Back in the park again, Katja looks over at you. "Who do you think will win today?" Her tone clearly indicates her belief that the results won''t be any different today than they were yesterday.'
+		'"Well, let''s find out," you reply with a determined smile before you both race off to find boys to kiss.'
 		act 'Look for a guy':
 			cla
 			*clr
@@ -121,9 +113,9 @@ if $ARGS[0] = 'park':
 			else
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/skver6_1.jpg"></center>'
 			end
-			'You find a guy by himself, you run up to him. "Hi would you like a kiss?"'
-			'Before you even finish saying it he is shaking his head no. "Sorry but some redhead already asked me and said if I told you no we could hang out." Seething at the little redheaded bitch, she was trying to block you, you turn to run off looking for another boy.'
-			'Just as he speaks again. "Hey wait." Stopping you turn to look at him, hoping he changed his mind. Leering at you he says. "Show me your tits and I will kiss you." You''re about to tell him off for his suggestion when you consider you really don''t want to lose to Katja again. Is it worth showing him your boobs to hopefully not lose again?.'
+			'You find a guy by himself and run up to him. "Hi. Would you like a kiss?"'
+			'Before you even finish, he''s shaking his head at you. "Sorry, but some cute redhead already asked me and said if I turned you down, then we could hang out." Seething at Katja''s underhanded tactic, you turn to run off in search of another boy.'
+			'"Hey, wait!" he shouts and you turn to look at him, hoping he''s changed his mind. "Show me your tits and I''ll kiss you," he says while leering at you. You''re about to tell him off for his suggestion when you remember that you really don''t want to lose to Katja again. Is it worth it?'
 
 			act 'Agree':
 				cla
@@ -133,8 +125,8 @@ if $ARGS[0] = 'park':
 				else
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/parc_ev_2_2.jpg"></center>'
 				end
-				'Thinking anything is worth beating Katja, just so you don''t have to see that smug little smile again if she beats you a second time. You quickly pull up your shirt showing him your bare tits. His eyes get big and he reaches out to grab them. "Sweet boobs!"'
-				'You step out of his reach and pull your shirt back down. "No touching, that wasn''t the deal. I showed you my tits, now where''s my kiss?" He quickly kisses you as you take a photo, he starts to say something more but you are already running off looking for another guy.'
+				'Thinking anything is worth beating Katja so you don''t have to see her smug smile again, you quickly pull up your shirt and show him your bare tits. His eyes grow wide and he reaches out to grab them. "Nice tits!"'
+				'You step away and pull your shirt back down. "No touching, that wasn''t the deal. I showed you my tits, now where''s my kiss?" He quickly kisses you as you take a photo. He starts to say something to you, but you''re already running off looking for another guy.'
 				act 'Another guy':
 					cla
 					*clr
@@ -143,10 +135,10 @@ if $ARGS[0] = 'park':
 					else
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/skver6_1.jpg"></center>'
 					end
-					'Running up to another guy you, hurriedly blurted out. "I want to see your tits."'
-					'He looks at you confused and you blush as you realize what you said. "No I mean do you want to see my tits? No I mean do you want to kiss me." What''s wrong with you? The look of confusion passes on the guys face and he starts nodding. "Sure I''ll kiss you if you show me your tits." Rolling your eyes, but you have no one to blame but yourself this time.'
-					act 'Say yes again':
-						'You pull up your shirt quickly showing him your boobs and pull it down just as fast. A huge grins plays across his face and then he kisses you as you take a picture.'
+					'Running up to another guy, you hurriedly blurt out a greeting. "I want to see your tits."'
+					'He looks at you confused and you blush as you realize what you said. "No, I mean do you want to see my tits? No! I mean do you want to kiss me?" What''s wrong with you? The look of confusion passes on the guy''s face and he starts nodding. "Sure, I''ll kiss you if you show me your tits." You roll your eyes, but have no one to blame but yourself this time.'
+					act 'Agree':
+						'You quickly pull up your shirt and show him your breasts before pulling it down just as fast. A huge grins appears on his face and he kisses you as you take a picture.'
 					end
 				end
 			end
@@ -154,7 +146,7 @@ if $ARGS[0] = 'park':
 			act 'No':
 				cla
 				*clr
-				'You shake your head no at his request, the guy obviously frustrated walks off as you run off to find another guy.'
+				'You shake your head at his request and the guy, obviously frustrated, walks away as you run off in search of another guy.'
 			end
 		end
 	end
@@ -164,12 +156,12 @@ end
 if $ARGS[0] = 'prohorov_sex':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tease.jpg"></center>'
-	'You hug Katja as you meet at school, as you move down the corridor, you slip your arm around her to hold her close. From time to time some of the other students watch the two of you. As you head into a deserted hallway you notice Ivan following you. You turn to look at him and smile seductively to Katja. "Want to give him a show?"'
+	'You hug Katja and slip your arm around her to hold her close as you walk down the corridor, the other students staring as you pass by. As you head into a deserted hallway, you notice Ivan following you and turn to look at him while smiling seductively at Katja. "Want to give him a show?"'
 	act 'Kiss':
 		katjaQW['Horny'] += 5
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kissing.jpg"></center>'
-		'You pull Katja close as you begin to kiss each other, your tongues exploring each others mouths as your hands roam over each others bodies, you completely ignore Ivan.'
+		'You pull Katja close and you begin to kiss each other, your tongues exploring each other''s mouths as your hands roam over each other''s bodies. You completely ignore Ivan.'
 		gs 'arousal', 'kiss', 1, 'lesbian'
 		gs 'stat'
 		if katjaQW['Horny'] >= 50:
@@ -178,7 +170,7 @@ if $ARGS[0] = 'prohorov_sex':
 				katjaQW['Horny'] += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/morekissing.jpg"></center>'
-				'You pull Katja close as you begin to kiss each other, your tongues exploring each others mouths as your hands roam over each others bodies, completely ignoring the boy. After a few moments of kissing you start kissing her neck as you unbutton her top, exposing her naked breasts. You kiss your way down to her breasts and being to lick and suck on her nipple.'
+				'You pull Katja close and you begin to kiss each other, your tongues exploring each other''s mouths as your hands roam over each other''s bodies. You completely ignore Ivan and start kissing her neck as you unbutton her top, exposing her naked breasts and kissing your way down to her breasts before you begin licking and sucking on her nipple.'
 				gs 'arousal', 'kiss', 2, 'lesbian'
 				gs 'arousal', 'foreplay_give', 2, 'lesbian'
 				minut -= 2
@@ -188,7 +180,7 @@ if $ARGS[0] = 'prohorov_sex':
 						katjaQW['Horny'] += 5
 						cla & *clr
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nipplesuck.jpg"></center>'
-						'Katja begins to unbutton your shirt and pulls it off you, forcing you to break contact with her breasts. After your shirt is off, Katja immediately starts to kiss, lick and suck on your nipples, biting your lower lip as you moan in pleasure. Ivan continues to watch the two of you, but he begins to rub the large bulge in his pants.'
+						'Katja begins to unbutton your shirt and pulls it off you, forcing you to break contact with her breasts. Once your shirt is off, Katja immediately starts to kiss, lick and suck on your nipples and you bite your lower lip as you moan in pleasure. Ivan continues to watch as he rubs the large bulge in his pants.'
 						gs 'arousal', 'foreplay', 1, 'lesbian'
 						gs 'stat'
 						if katjaQW['Horny'] >= 70:
@@ -196,35 +188,35 @@ if $ARGS[0] = 'prohorov_sex':
 								cls
 								katjaQW['Horny'] += 5
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nakedkissing.jpg"></center>'
-								'You pull her face up to yours as the two of you being to kiss again. While your hands caress each others breasts, Katja hooks one her legs around yours as you become intertwined. You are so distracted you don''t even notice the heavy breathing coming from Ivan behind you, as he continues to watch.'
+								'You pull her face up to yours and the two of you start kissing again. While your hands caress each other''s breasts, Katja hooks one of her legs around yours and you become intertwined. You''re so distracted that you don''t even notice the heavy breathing coming from Ivan as he continues to watch.'
 								gs 'arousal', 'kiss', 1, 'lesbian'
 								gs 'stat'
-								if katjaQW['Horny'] >= 80:
+								if katjaQW['Horny'] >= 80 and katjaQW['QWstage'] = 6 and katjaQW['anal_quest'] = 2:
 									act 'Lift skirt':
 										cla
 										*clr
 										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/inthemoment.jpg"></center>'
-										'Katja and you moan into each others mouths, she lifts your skirt and pulls your panties down. You feel your panties slide down around your ankles, both of you are completely unconcerned someone could come by at any moment and find the two of you making out half naked in front of Ivan.'
-										'After a few moments you feel another hand join Katja''s on your ass, a strong hand with strong fingers, you feel one of the fingers sliding down to rub your asshole.'
+										'You moan into each other''s mouths as she lifts your skirt and pulls your panties down. You feel your panties slide down around your ankles, both of you completely unconcerned that someone might come by at any moment and find you making out half naked in front of Ivan.'
+										'After a few seconds, you feel another hand join Katja''s on your ass, a strong hand with strong fingers. You feel one of the fingers sliding down to rub your asshole.'
 										gs 'arousal', 'anal_finger', 2
 										gs 'stat'
 										
 										gs 'willpower', 'sex', 'resist', 'hard'
 										if will_cost <= pcs_willpwr:
-											act 'Get angry and tell Ivan to just watch (<<will_cost>> Willpower)':
+											act 'Tell Ivan to just watch (<<will_cost>> Willpower)':
 												cla & *clr
 												gs 'willpower', 'pay', 'self'
 												gs 'stat'
 												'<center><img <<$set_imgh>> src="images/pc/reactions/glare.jpg"></center>'
-												'You push Ivan''s hands away and turn your head to give him a dirty look. "Just watch!" You notice his crest fallen look as you turn back to Katja you notice her disappointed expression as well.'
-												'Before you can say anything to make it better the bell rings and all three of you rush to class. While you are putting your shirt back on, you hear Ivan shout. "That was great girls!"'
+												'You push Ivan''s hands away and turn your head to give him a dirty look. "Hey! Just watch!" You notice his crest fallen look, and as you turn back to Katja, you notice her disappointed expression as well.'
+												'Before you can say anything, the bell rings and you all rush to class. "Great show, girls!" you hear Ivan shout as you pull your shirt back on.'
 												
 												gs 'arousal', 'end'
 												gs 'stat'
 												act 'Continue': gt 'gschool_lessons', 'short_break'
 											end
 										else
-											act 'Get angry and tell Ivan to just watch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+											act 'Tell Ivan to just watch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 										end	
 										
 										act 'Encourage Ivan':
@@ -232,11 +224,11 @@ if $ARGS[0] = 'prohorov_sex':
 											ivan_afterschool = 1
 											gs 'stat'
 											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/letshavefun.jpg"></center>'
-											'Feeling Ivan''s finger rubbing asshole, you reach back and put your hand on his ass and give it a squeeze pulling him tighter up against you. You turn your head and begin to kiss him.'
-											'Katja quickly joins you in kissing Ivan and soon all three of you are kissing and fondling each other, at the encouragement Ivan slips his finger in your ass, eliciting a moan of pleasure from you.'
-											'A few moments later the class bell rings, you all break apart, as you and Katja start to get dressed Ivan says in a pleading tone. "Meet me after school, so we can continue this?"'
-											'You look at Ivan for a moment and bite your lower lip considering, turning to look at Katja, you find her looking at you and enthusiastically nodding, you can''t help but grin at her eagerness and nod as well. Grinning and looking into each others eyes a moment of complete understanding passes between you.'
-											'Then Katja looks at Ivan and says in a seductive tone. "Meet us here after school and we''ll rock your world." You watch as Ivan has the biggest grin on his face you have every seen. You turn to Katja and both of you laugh, as all three of you rush to class.'
+											'Feeling Ivan''s finger rubbing your asshole, you reach back and put your hand on his ass, giving it a squeeze before pulling him up against you. You turn your head and begin to kiss him.'
+											'Katja quickly joins you and soon all three of you are kissing and fondling each other. At your encouragement, Ivan slips his finger into your ass, eliciting a moan of pleasure from you.'
+											'A few seconds later, the bell rings and you all break apart. "Meet me after school so we can continue this?" Ivan pleads as you and Katja get dressed.'
+											'You look at Ivan for a second and bite your lower lip in consideration. Turning to look at Katja, you find her looking at you and enthusiastically nodding. You can''t help but grin at her eagerness and nod as well.'
+											'Katja walks up to Ivan. "Meet us here after school and we''ll rock your world..." she says in a seductive tone and you watch as the biggest grin appears on his face. You turn to Katja and you both laugh as you all rush to class.'
 											
 											gs 'arousal', 'anal_finger', 3
 											gs 'arousal', 'kiss', 3, 'lesbian'
@@ -248,28 +240,28 @@ if $ARGS[0] = 'prohorov_sex':
 										end
 									end
 								else
-									'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+									'Before you can do more, the bell rings and you all rush to class. "Great show, girls!" you hear Ivan shout as you pull your shirt back on.'
 									gs 'arousal', 'end'
 									gs 'stat'
 									act 'Continue': gt 'gschool_lessons', 'short_break'
 								end
 							end
 						else
-							'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+							'Before you can do more, the bell rings and you all rush to class. "Great show, girls!" you hear Ivan shout as you pull your shirt back on.'
 							gs 'arousal', 'end'
 							gs 'stat'
 							act 'Continue': gt 'gschool_lessons', 'short_break'
 						end
 					end
 				else
-					'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+					'Before you can do more, the bell rings and you all rush to class. "Great show, girls!" you hear Ivan shout as you pull your shirt back on.'
 					gs 'arousal', 'end'
 					gs 'stat'
 					act 'Continue': gt 'gschool_lessons', 'short_break'
 				end
 			end
 		else
-			'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+			'Before you can do more, the bell rings and you all rush to class. "Great show, girls!" you hear Ivan shout as you pull your shirt back on.'
 			gs 'arousal', 'end'
 			gs 'stat'
 			act 'Continue': gt 'gschool_lessons', 'short_break'
@@ -278,5 +270,282 @@ if $ARGS[0] = 'prohorov_sex':
 end
 !end port from 1.2.3 fix2
 
+if $ARGS[0] = 'marcus_wait':
+	menu_off = 1
+	*clr & cla
+	minute += 5
+	gs 'arousal', 'foreplay', 5
+	katjaQW['horny'] += 10
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/marcuswait1.jpg"></center>'
+	'You call Marcus'+iif(katjaQW['marcus_pussy'] = 0, ' and tell him the address, and he sounds very exicted to finally meet the mysterious girl whose virginity he will be taking',  ' and he almost too eagerly agrees to join you and Katja again for a threesome')+'. He says he will be there in 10 minutes.' 
+	'You tell Katja that he will be here soon and suggest that you greet him in your underwear. Katja'+iif(katjaQW['slut'] < 80, ' hesitantly', ' eagerly')+' agrees and you strip each other down and sit on the bed.' 
+	'While you wait, you getly stroke Katja''s body to keep her'+iif(npc_vag['A14'] + 5 < npc_dick['A146'] or katjaQW['marcus_pussy'] = 0, ' nerves down.', ' exicited.')+' Finally, after what seems like an eternity, you hear the doorbell ring.'
+	act 'Tell him to come in':
+		*clr & cla
+		minute += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/marcuswait2.jpg"></center>'
+		'"Come in, the door is open!" you shout. After hearing the door close, you shout "We''re in here!"'
+		'Marcus enters the room and when he sees you and Katja in your underwear on the bed looking at him, '+iif(katjaQW['marcus_pussy'] = 0, 'he is momentarely stunned. The biggest smile you''ve ever seen on him then appears on his face.', ' his face breaks out in a huge smile.')
+		iif(katjaQW['marcus_pussy'] = 0, '"You could have told me that you were offering me the hottest redhead in Pav, <<$pcs_nickname>>,"', '"I see that you''ve kept her warm for me,"')+' he says with a huge grin.'
+		act 'Tell him to join you':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg1.jpg"></center>'
+			'Marcus walks over and climbs on the bed. You start kissing him while Katja watches eagerly, and after a few seconds, Marcus turns his attention to her and they kiss for a bit before he pulls away and puts one hand on each of your heads and pushes you towards one another.'
+			gs 'arousal', 'kiss', 2, 'group'
+			gs 'stat'
+			act 'Kiss Katja':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg2.jpg"></center>'
+				'As Marcus pushes you towards each other, you and Katja start kissing, with your hands roaming over each other''s bodies. As you do this, Marcus''s hands roam over both of your bodies, paying special attention to your asses. After a few minutes, he stops and takes off his pants before he gets on his back and slides between the two of you.'
+				gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+				gs 'stat'
+				act 'Give him a handjob':
+					if npc_vag['A14'] + 5 < npc_dick['A146']:
+						gt 'katja_sex', 'marcus_first'
+					else
+						gt 'katja_sex', 'marcus_threesome'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_first':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg3.jpg"></center>'
+	'You stop kissing Katja and reach down to take Marcus''s enormous semi-hard cock into your hand and start stroking it. He quickly gets hard in your hand, which Katja watches in fascination. After spending a few more minutes watching, she reaches down and starts stroking his dick herself. You let go to allow her to stroke the full length of his shaft in her hand.'
+	gs 'arousal', 'hj', 3, 'group'
+	gs 'stat'
+	act 'Give him a blowjob':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg4.jpg"></center>'
+		'As Katja continues jerking him off, you bend over, open your mouth and take his cock into your mouth. You struggle to open your mouth wide enough to take it in. You go as deep as you can, but it still doesn''t fit completely in your mouth. Katja keeps stroking his shaft while you suck on it, and after a few minutes, you pop the wet cock out of your mouth and offer it to Katja.'
+		gs 'arousal', 'bj', 2, 'group'
+		gs 'stat'
+		act 'Watch':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg5.jpg"></center>'
+			'She opens her mouth and tries to mimic what you did. She starts sucking on his dick, taking it as deep as she can, but starts gagging almost at once, and resigns herself to just sucking on the tip while jerking him off. A few minutes go by before she stops, gasping a little for air. "So who''s first?" Marcus asks.'
+			gs 'arousal', 'voyeur_sex', 2, 'group'
+			gs 'stat'
+			act 'Mount him':
+				*clr & cla
+				minut -= 3
+				gs 'boyStat', 'A146'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg6.jpg"></center>'
+				'Katja bites her lower lip and looks hesitant, so you smile and straddle Marcus. You reach down and line his <<dick>>cm <<$dick_girth>> dick up with your slit and slowly lower yourself down onto it. You feel it stretching you out as it fills you up, and once you''re all the way down, you start to slowly ride him, moaning in pleasure as you do. Marcus pulls Katja over and she straddles his face and starts moaning as he eats her out. She leans forward and starts kissing you as you ride Marcus. After a few minutes, she stops kissing you. "Okay, I''m ready."'
+				gs 'arousal', 'vaginal', 3, 'group'
+				gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+				gs 'stat'
+				act 'Help Katja':
+					*clr & cla
+					minut -= 3
+					gs 'boyStat', 'A146'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg7.jpg"></center>'
+					'You climb off Marcus and Katja takes your place. As she slowly lowers herself down, you grab hold of his dick and line it up for her. As his <<dick>>cm <<$dick_girth>> dick starts to enter her, she inhales sharply and stops moving. After a few seconds, she lowers herself a bit more and then slowly starts to ride his cock, only taking about half his length inside her. You can''t tell by her moans and groans how much she is enjoying herself, so to help out, you reach over and start rubbing her clit as she rides him slowly.'
+					if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+					if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+					if katjaQW['marcus_pussy'] = 0: katjaQW['marcus_pussy'] = 1
+					gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+					gs 'arousal', 'voyeur_sex', 3, 'group'
+					gs 'stat'
+					act 'Lick Katja':
+						*clr & cla
+						minut -= 3
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg8.jpg"></center>'
+						'With your fingers rubbing her clit, she sounds like she''s enjoying it more now, so you lean over and start licking her clit as she continues riding Marcus. She moans even louder and seems to be enjoying it even more now, but she''s still only taking about half his length and moving slowly.'
+						if npc_vag['A14'] = 0:
+							katjaQW['slut'] -= 5 
+							'After a few more minutes of this, she finally pulls up and off, you can see the blood on his dick from popping her cherry. She climbs off the bed and starts cleaning herself up. "No sorry I can''t do it anymore, he is just too big and it hurts too much."'
+							'Marcus smiles at her. "It''s okay, we can try again some other time if you want." She bites her lower lip and nods. You can tell she''s still turned on and wants to try again at some point.'
+							'He reaches over and slaps you on the hip as he gets up on his knees. "Get up and turn around for me." He then reaches over to grab some tissues to clean the blood off his dick.'
+						else
+							katjaQW['slut'] += 1 
+							'After a few more minutes of this, she finally pulls up and off of him, sitting on the bed beside the two of you. "No. Sorry, but I can''t do it anymore! He''s just too big!"'
+							'Marcus smiles at her. "It''s okay. We can try again some other time if you want." She bites her lower lip and nods. You can tell she''s still turned on and wants to try again at some point.'
+							'He reaches over and slaps you on the hip as he gets up on his knees. "Get up and turn around for me."'
+						end
+						katjaQW['horny'] = 0
+						if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+						if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+						gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+						gs 'arousal', 'voyeur_sex', 3, 'group'
+						gs 'stat'
+						act 'On all fours':
+							*clr & cla
+							minut -= 3
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg9.jpg"></center>'
+							'You turn around and get on all fours as he scoots up behind you. He rubs the tip of his dick against your slit before sliding his massive cock back inside you and fucking you again, slowly working himself deeper into your pussy. As he fucks you, Katja kneels on the bed in front of you, leans forward and starts kissing you as Marcus continues fucking you.'
+							gs 'arousal', 'vaginal', 3, 'group'
+							gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+							gs 'stat'
+							act 'Get fucked':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg10.jpg"></center>'
+								'Marcus suddenly goes balls deep, but instead of pulling back out for another thrust, he just grabs you and lifts you up. You''re a bit surprised at how easily he lifts you off the bed and holds you off the ground. He carries you over to one of the chairs and lowers you. You put your legs down until your feet touch the floor and he lifts one of your legs up until you have one foot on the chair. He starts fucking you again as you notice Katja in front of you with her phone out, taking pictures of you and Marcus while laughing.'
+								gs 'arousal', 'vaginal', 3, 'lesbian', 'inhibition'
+								gs 'stat'
+								act 'Pose while fucking':
+									*clr & cla
+									minut -= 3
+									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg11.jpg"></center>'
+									'You do your best to pose for the pictures as Marcus fucks you from behind. Katja seems to be enjoying this almost as much as you are, and not long after you feel him tense up as he starts fucking you harder and faster. He''s getting close. He suddenly pulls out of you and pushes you onto your knees in front of him. You grab Katja and pull her down as well.'
+									gs 'arousal', 'vaginal', 3, 'group'
+									gs 'arousal', 'kiss', 3, 'lesbian', 'group', 'inhibition'
+									gs 'stat'
+									act 'Facial':
+										*clr & cla
+										minut += 10
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg12.jpg"></center>'
+										'Once Katja is next to you, you start jerking Marcus off, and he moans loudly as you feel his dick twitching in your hand. His cum splatters across your faces, some of it getting in your mouth, as you continue jerking his cock. After several more strokes, a final drop is squeezed out and you let go of him. He sighs and looks down at you with a huge grin, your faces drenched in his cum.'
+										gs 'arousal', 'hj', 1, 'group'
+										gs 'arousal', 'end'
+										gs 'cum_call', 'face', 'A146', 1
+										gs 'cum_call', 'mouth', 'A146', 1
+										gs 'stat'
+										act 'Clean up': gt 'katja_sex', 'marcus_aftermatch'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_threesome':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg3.jpg"></center>'
+	'After you stop kissing Katja, you look down and see that she''s already stroking Marcus''s massive hard cock with her hand. After a few seconds, she reaches over to pull your hand over and you take her place jerking him off.'
+	gs 'arousal', 'hj', 3, 'group'
+	gs 'stat'
+	act 'Watch':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg5.jpg"></center>'
+		'She opens her mouth and starts sucking on his dick, taking it as deep as she can. She takes it surprisingly deep down her throat while jerking him off. She must be getting used to giving blowjobs, or has been practicing on her own. A few minutes go by before she stops, popping his dick out of her mouth and offering it to you.'
+		gs 'arousal', 'voyeur_sex', 2, 'group'
+		gs 'stat'
+		act 'Give him a blowjob':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg4.jpg"></center>'
+			'You open your mouth and take his big cock inside. You struggle to open your mouth wide enough to take it in. You go as deep as you can, but it still doesn''t fit completely in your mouth. Katja keeps stroking his shaft while you suck on it, and after a few minutes, you pop the wet cock out of your mouth to take a short break when Marcus speaks up. "So who''s first?" You can tell he is eager to start fucking the two of you.'
+			gs 'arousal', 'bj', 2, 'group'
+			gs 'stat'
+			act 'Help Katja':
+				*clr & cla
+				minut -= 3
+				gs 'boyStat', 'A146'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff1.jpg"></center>'
+				'Katja straddles Marcus. As she slowly lowers herself down, you grab hold of his dick and line it up for her. As his <<dick>>cm <<$dick_girth>> dick starts to enter her, she inhales sharply and moans loudly. After a few seconds, she lowers herself a bit more and then slowly starts to ride his cock, only taking about half his length inside her. You reach over and start rubbing her clit as she rides him slowly before picking up the pace a little and going further down. It takes a few minutes, but she finally takes the full length of his shaft inside her.'
+				if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+				if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+				if katjaQW['marcus_pussy'] = 0: katjaQW['marcus_pussy'] = 1
+				gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+				gs 'arousal', 'voyeur_sex', 3, 'group'
+				gs 'stat'
+				act 'Make Katja feel good':
+					*clr & cla
+					minut -= 3
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff2.jpg"></center>'
+					'You keep rubbing her clit as she starts slamming herself down on him, moaning louder and louder as she goes. She seems to really be enjoying herself, but just as it seems like she''s starting to get close, Marcus suddenly lifts her off and places her gently aside. "You can''t have all the fun. It''s <<$pcs_nickname>>''s turn." Katja gives a slighty pouty look before smiling.'
+					if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+					if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+					gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+					gs 'arousal', 'voyeur_sex', 3, 'group'
+					gs 'stat'
+					act 'Mount him':
+						*clr & cla
+						minut -= 3
+						gs 'boyStat', 'A146'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg6.jpg"></center>'
+						'You smile and straddle Marcus, reaching down and lining his <<dick>>cm <<$dick_girth>> dick up with your slit before you slowly lower yourself down onto it. You feel it stretching you out as it fills you up, and once you''re all the way down, you start to slowly ride him, moaning in pleasure as you do. Marcus pulls Katja over and she straddles his face and starts moaning as he eats her out. She leans forward and starts kissing you as you ride Marcus. After a few minutes, she stops kissing you and looks at Marcus. "I want another go." He laughs and slaps you on the ass as he pulls out. Katja crawls over to him and he grabs her and flips her onto her back.'
+						gs 'arousal', 'vaginal', 3, 'group'
+						gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+						gs 'stat'
+						act 'Sit on Katja''s face':
+							*clr & cla
+							minut -= 6
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff3.jpg"></center>'
+							'He slides his dick back in her and starts fucking her again. Since she''s getting the dick again, you straddle her face and sit on her. She start licking your wet pussy as you lean forward and start licking and sucking on her clit. You feel Marcus''s stomach slam against the top of your head with each thrust he takes into Katja.'
+							if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+							if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+							gs 'arousal', 'cuni', 3, 'lesbian', 'group'
+							gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+							gs 'arousal', 'vaginal', 3, 'group'
+							gs 'stat'
+							act 'Enjoy yourself':
+								*clr & cla
+								minut -= 6
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff4.jpg"></center>'
+								'This continues for several minutes before Katja stops licking you and starts moaning loudly. You keep licking her clit as Marcus fucks her, her moans getting louder and louder until she finally cries out and her whole body shakes as she has an intense orgasm. He fucks her all the way through her orgasm, and pulls out only once she stops shaking. He gets up to walk around you as Katja crawls out from under you, looking spent.'
+								if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+								if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+								katjaQW['horny'] = 0
+								katjaQW['slut'] += 2 
+								gs 'arousal', 'cuni', 3, 'lesbian', 'group'
+								gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+								gs 'arousal', 'vaginal', 3, 'group'
+								gs 'stat'
+								act 'Take it from behind':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff5.jpg"></center>'
+									'Marcus settles down behind you, pulling your hips up so you''re fully up on your knees and pushes you down at your shoulders until your face is against the floor. He slides his enormous cock back into you and starts fucking you again, while Katja comes over to watch, giggling, seemingly enjoying this almost as much as you are.'
+									gs 'arousal', 'vaginal', 3, 'group'
+									gs 'stat'
+									act 'Kiss Katja':
+										*clr & cla
+										minut -= 3
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff6.jpg"></center>'
+										'After a few minutes, Katja places a hand under your chin, lifts your head up and starts kissing you as Marcus pounds you from behind. There are few times in life that one finds sexual bliss, but this is one of those times. Marcus speeds up and starts grunting louder before he pulls his cock out of you. He gets up and quickly walks over so he is standing between you and starts jerking off.'
+										gs 'arousal', 'vaginal', 3, 'group'
+										gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+										gs 'stat'
+										act 'Facial':
+											*clr & cla
+											minut += 10
+											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff7.jpg"></center>'
+											'You and Katja scoot together in front of his dick, open your mouths and tilt your heads back. Ropes of warm cum soon start splattering across your faces, some of it ending up in your mouths. Once he finally finishes, you turn towards each other and kiss, sharing the cum in your mouths. Marcus sighs and takes a seat on one of the chairs as he watches.'
+											gs 'arousal', 'kiss', 1, 'lesbian', 'group'
+											gs 'arousal', 'end'
+											gs 'cum_call', 'face', 'A146', 1
+											gs 'cum_call', 'mouth', 'A146', 1
+											gs 'stat'
+											act 'Clean up': gt 'katja_sex', 'marcus_aftermatch'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_aftermatch':
+	*clr & cla
+	minut += 10
+	gs 'npc_relationship', 'modify', 'A146', 'love'
+	cumspclnt = 1
+	gs 'cum_cleanup'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katafter.jpg"></center>'
+	'Marcus starts getting dressed as you and Katja clean yourselves up. She slumps back on the bed and closes her eyes while playing with her pussy.'
+	'"That was '+iif( katjaQW['QWstage'] = 5, 'amazing and a great honor to be Katja''s first. If you ever want to repeat this', 'great as always girls. If you feel the urge again just')+' give me a call." Katja doesn''t respond, so you answer. "Yeah, this was fun. We might repeat it another time. You should get going before Vicky gets back. We don''t want her sticking her nose in our business."'
+	'"See you around," he says and leaves while you start putting your clothes back on. After a few minutes, Katja finally gets up from the bed and starts getting dressed in silence.'
+	act 'Talk with Katja': gt 'KatjaHomeTalk'
+	if mey_vika['key'] = 1:
+		act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+	end
+end
+
 --- katja_sex ---------------------------------
 

locations/kit_din.qsrc

@@ -13,7 +13,7 @@ $santehnikgr = {
 $santehnikend3 = {
 	*clr & cla
 	ransloman = 0
-	facial += 1
+	
 	spafinloc = 11
 	gs 'cum_manage'
 	if GrishaSex = 0:GrishaSex = 1 & guy += 1

locations/metro_events.qsrc

@@ -208,7 +208,7 @@ if $ARGS[0] = 'b':
 						act 'Continue to suck':
 							*clr & cla
 							gs 'cum_call', 'face', 'stranger on the metro', 0, 0, spot, svol
-							facial += 1
+							
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote3.jpg"></center>'
 							'The man pulls his cock out of your mouth, and hot cum splatters across your cheek and chin. Once he has milked the last drop of sperm from his cock onto your face, he tucks his cock into his pants and moves away. He forces his way through the crowd before disappearing, leaving you alone with his cum all over your face.'
@@ -358,7 +358,7 @@ if $ARGS[0] = 'c':
 							act 'Continue to suck':
 								*clr & cla
 								gs 'cum_call', 'face', 'stranger on the metro', 0, 0, spot, svol
-								facial += 1
+								
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frote3.jpg"></center>'
 								'The man pulls his cock out of your mouth, and hot cum splatters across your cheek and chin. Once he has milked the last drop of sperm from his cock onto your face, he tucks his cock into his pants and moves away. He forces his way through the crowd before disappearing, leaving you alone with his cum all over your face.'

locations/mey_home.qsrc

@@ -14,6 +14,8 @@ if $args[0] = 'door':
 	$menu_arg = 'door'
 	menu_off = 0
 	cls
+	gs 'vicky_meynold_schedule'
+	gs 'katja_meynold_schedule'
 	gs'stat'
 	'<center><h4><font color="maroon">Meynold''s house</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/mey_home.jpg"></center>'
@@ -23,25 +25,26 @@ if $args[0] = 'door':
 		'You open the door with your key and enter the house.'
 
 		act 'Enter': gt 'mey_home', 'start'
-	elseif hour < 20 and ((week < 6 and hour >= 15) or (week >= 6 and hour > 10)):
-		if mey_vika['mey_vika_qw'] = 27: gt 'mey_tamara_events', 'next_meet'
-		if mey_vika['mey_vika_qw'] > 27:
+	elseif hour < 20 and ((week < 6 and hour >= 15) or (week >= 6 and hour > 10)) and mey_vika['mey_vika_qw'] >= 27:
+		if mey_vika['mey_vika_qw'] = 27: 
+			gt 'mey_tamara_events', 'next_meet'
+		else
 			*clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea1.jpg"></center>'
 			*nl
 			'You walk up to the Meynolds residence and ring the doorbell...'
-			'After a short wait, you hear the lock click and you see Katja''s mother Kathy and sister Vicky standing by the door: <br><do>Oh hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home.</do>'
+			'After a short wait, you hear the lock click and you see Katja''s mother Tamara and sister Vicky standing by the door: <br><do>Oh hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home.</do>'
 
 			act 'Enter': gt 'mey_home', 'start'
-		else
-			cla
-			'You walk up to the Meynolds residence and ring the doorbell...'
-			'Katja opens the door and quickly drags you to her room.'
+		end
+	elseif locat['katja'] = 7:
+		cla
+		'You walk up to the Meynolds residence and ring the doorbell...'
+		'Katja opens the door and quickly drags you to her room.'
 
-			act 'Go to Katjas room':
-				if frost > 0: frost = 0
-				gt 'KatjaHomeTalk'
-			end
+		act 'Go to Katjas room':
+			if frost > 0: frost = 0
+			gt 'KatjaHomeTalk'
 		end
 	else
 		*clr
@@ -63,6 +66,8 @@ if $ARGS[0] = 'start':
 	menu_off = 0
 	killvar '$locclass'
 	cls
+	gs 'vicky_meynold_schedule'
+	gs 'katja_meynold_schedule'
 	gs'stat'
 	'<center><h4><font color="maroon">Hall</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
@@ -72,10 +77,10 @@ if $ARGS[0] = 'start':
 
 	act 'Leave the house':minut += 5 & gt 'pav_residential'
 
-	if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and hour = 23: gs 'mey_vika_events', 'case_gift'
-	if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 16 and minut >= 30: gs 'mey_vika_events', 'gym0'
-	if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 17 and minut >= 30: gs 'mey_vika_events', 'gym1'
-	if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and hour >= 23: gs 'mey_vika_events', 'learning0'
+	if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15: gs 'mey_vika_events', 'case_gift'
+	if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 12: gs 'mey_vika_events', 'gym0'
+	if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 13: gs 'mey_vika_events', 'gym1'
+	if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15: gs 'mey_vika_events', 'learning0'
 
 	if mey_vika['mey_vika_qw'] >= 32:
 		! welcome to the corporate
@@ -90,7 +95,7 @@ if $ARGS[0] = 'start':
 		end
 
 		! Vic calls in the shower
-		if mesec = 0 and pcs_vag > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,10) > 5 and ((week < 6 and hour >= 14) or (week = 6 and hour >= 8)):
+		if mesec = 0 and pcs_vag > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,1) = 0 and locat['Vicky'] = 9:
 			gs 'mey_vika_events', 'bath_qw1'
 			exit
 		end
@@ -285,7 +290,6 @@ if $ARGS[0] = '4':
 end
 
 if $ARGS[0] = '5':
-!add room katja
 	cls
 	$loc = 'mey_home'
 	$loc_arg = '5'
@@ -294,6 +298,7 @@ if $ARGS[0] = '5':
 	menu_off = 0
 	minut += 1
 	$locclass = 'livingr'
+	gs 'katja_meynold_schedule'
 	gs 'stat'
 	'<center><h4><font color="maroon">Katja''s room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/katya_room.jpg"></center>'
@@ -301,12 +306,14 @@ if $ARGS[0] = '5':
 	'Katja''s room feels like someone is living there temporarily and will soon move out. The stuff in the room are in the perfect order, depicting the feeling off a "non-residential premise".'
 	'There are numerous flowers in the pots on the windowsill, there are pots hanging on the walls and there are even plants in pots on the floor giving the room a greenhouse feeling.'
 	'There is a computer desk in one of the corners, opposite of the bed. In another corner is a hidden wardrobe. Lastly a well hidden bookshelf can be seen in the room, but it is kinda hard to spot because of wildly overgrown plants.'
-	if katjaQW['QWstage'] > 1:
-		if (hour >= 15 and week < 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and kanikuli > 0 and hour < 20):
+	if locat['katja'] = 7:
+		if katjaQW['QWstage'] > 1:
 			act 'Chat with Katja': gt'KatjaHomeTalk'
+		else
+			'<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
 		end
 	else
-		'<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
+		'Katja is not in her room'
 	end
 	act 'Return to the hallway': gt 'mey_home', 'start'
 end

locations/mey_vika_events.qsrc

@@ -368,7 +368,7 @@ if $ARGS[0] = 'near_school':
 	$location_type = 'event'
 	vicky_afterschool = daystart
 
-	if (cheerleadingQW['quest_stage'] > 1 and (week = 1 or week = 3)) or (cheerleadingQW['quest_stage'] < 2 and (week = 2 or week = 4)):
+	if locat['Vicky'] = 10 or locat['Vicky'] = 11:
 		'<br>You see Vicky Meynold leaving the school area holding hands with Vanya.'
 
 		if mey_vika['mey_vika_qw'] = 0:
@@ -950,7 +950,7 @@ end
 if $ARGS[0] = 'case_gift':
 	menu_off = 1
 	$location_type = 'event'
-	!if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and hour = 23:
+	!if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15:
 		zz_stage = args[1]
 		if zz_stage < 2:
 			*clr & cla
@@ -1083,7 +1083,7 @@ end
 if $ARGS[0] = 'learning0':
 	menu_off = 1
 	$location_type = 'event'
-	!if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and hour >= 23:
+	!if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15:
 		*clr & cla
 		minut += 5
 		mey_vika['qw_day'] = daystart
@@ -1203,7 +1203,7 @@ end
 if $ARGS[0] = 'gym0':
 	menu_off = 1
 	$location_type = 'event'
-!!	if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 14 and minut >= 30:
+!!	if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 12:
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/vicky/event/gym0.jpg"></center>'
 		'You are walking past Vicky''s room. The door to the room is opened. You see Vicky warming up inside her room. Seeing you, she smiles...'
@@ -1319,7 +1319,7 @@ end
 if $ARGS[0] = 'gym1':
 	menu_off = 1
 	$location_type = 'event'
-	!if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 17 and minut >= 30:
+	!if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 12:
 		zz_stage = args[1]
 		if zz_stage < 1:
 			*clr & cla

locations/obj_din.qsrc

@@ -726,14 +726,14 @@ if $ARGS[0] = 'stats':
 		if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
 		if hidden_slutty > 0: 'Sold your body <<hidden_slutty>> times, and gave all the money to your therapist. You do not remember any of it.'
 	end
-orgasm_masturbate
+
 	if orgasm > 0: 'You have experienced <<orgasm>> orgasms.'
 	if orgasm_masturbate > 0: '<<orgasm_masturbate>> of them from masturbation.'
 	if orgasm_clit > 0 : '<<orgasm_clit>> of them from clitoral stimulation.'
 	if orgasm - orgasm_clit - orgasm_anal > 0 : '<<orgasm - orgasm_clit - orgasm_anal>> of them vaginal orgasms.'
 	if orgasm_anal > 0 : '<<orgasm_anal>> of them anal orgasms.'
-	if swallow > 0: 'Sperm swallowed <<swallow>> times.'
-	if facial > 0: 'You have taken <<facial>> facials.'
+	if stat['swallow'] > 0: 'Sperm swallowed <<stat[''swallow'']>> times.'
+	if stat['cum_facial'] > 0: 'You have taken <<stat[''cum_facial'']>> facials.'
 	if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
 	! This is my suggestion, change it however you see fit, Sicaa
 	if stat['pee_give'] > 0: 'You''ve peed on others <<stat[''pee_give'']>> times.'
@@ -757,7 +757,7 @@ orgasm_masturbate
 	if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
 		'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
 		if bja > 0: 'Sucked your boyfriends cock: <<bja>>'
-		if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <<gloryhole>>/<<hidden_gloryhole>>'
+		if stat['gloryhole'] > 0 or stat['hidden_gloryhole'] > 0: 'Sucked cock in a gloryhole (known/unknown): <<stat[''gloryhole'']>>/<<stat[''hidden_gloryhole'']>>'
 		if furibj > 0: 'Sucked off truckers for a ride <<furibj>> times'
 		if furi['road_head_girl'] = 1: 'The truckers who drive the lorries nicknamed you "Road Head Girl".'
 		

locations/pav_beach_chat.qsrc

@@ -0,0 +1,988 @@
+# pav_beach_chat
+!2022/01/03
+
+if $ARGS[0] = 'beach_hangout':
+	*clr & cla
+	$loc_arg = 'beach_hangout'
+	$loc = 'pav_beach_chat'
+	$location_type = 'public_outdoors'
+	$menu_loc = 'pav_beach_chat'
+	$menu_arg = 'beach_hangout'
+	minut += 5
+	if hour < 15 and sunWeather = 1:
+		'<center><b><font color="maroon">Beach</font></b></center>'
+		'<center><table><tr><td colspan = 8>Most of the cool kids and jocks are lounging around the beach tanning, some are sitting near each other talking, and a few are wading in the water.</td></tr>'
+
+		i = 1
+		i2 = 0
+		:beachcool_loop
+			if npc_grupTipe['A<<i>>'] = 1:
+				if i2 = 0: '<tr>'
+				i2 += 1
+				'<td width =12.5%><table bgcolor=#FFF8DC><tr><td align=center><a href="exec: i = <<i>> & gt ''pav_beach_chat'', ''cool_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A<<i>>'']>></td></tr></table></td>'
+				if i2 mod 8 = 0: i2 = 0 & '</tr>'
+			end
+			i += 1
+		if i <= aarraynumber:jump 'beachcool_loop'
+
+		i = 1
+		:beachjock_loop
+			if npc_grupTipe['A<<i>>'] = 2:
+				if i2 = 0: '<tr>'
+				i2 += 1
+				'<td width =12.5%><table bgcolor=#FFF8DC><tr><td align=center><a href="exec: i = <<i>> & gt ''pav_beach_chat'', ''jocks_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A<<i>>'']>></td></tr></table></td>'
+				if i2 mod 8 = 0: i2 = 0 & '</tr>'
+			end
+			i += 1
+		if i <= aarraynumber:jump 'beachjock_loop'
+		if i2 mod 8 <> 0:
+			:beach_loopi21
+			i2 += 1
+			'<td></td>'
+			if i2 mod 8 = 0:
+				i2 = 0
+				'</tr>'
+			else
+				jump 'beach_loopi21'
+			end
+		end		
+		act'Go back':gt'pav_lake'
+	else
+		'It seems everyone has had their fill of hanging out on the beach today. You see several of them have already left and the rest are either walking off or gathering up their stuff and saying their goodbyes to one another, a few wave to them as they walk off as well. Soon you are the last one on the beach.'
+		act'Go back':gt'pav_lake'
+	end
+end
+
+if $ARGS[0] = 'jocks_list':
+	$listname = $npc_nickname['A<<i>>']
+	$listname = $lcase($listname)
+	gt 'pav_beach_chat', $listname
+end
+
+if $ARGS[0] = 'cool_list':
+	$listname = $npc_nickname['A<<i>>']
+	$listname = $lcase($listname)
+	gt 'pav_beach_chat', $listname
+end
+
+if $ARGS[0] = 'lazar':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A149', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/lazar/beach_chat.jpg"></center>'
+	if rand(1,4) = 1 and npc_sex['A149'] > 0:
+		gs 'fame', 'pav', 'sex', 'small'
+		'Seeing you, Lazar smirks. "Back for more? I know, it was amazing."'
+		'You only let out a short "Mhm" as you roll your eyes.'
+		'Lazar breaks out in a smile. "No worries <<$pcs_nickname>>! I''m sure we''ll hook up again." You notice several others pay attention to what he says, you are not real happy he is pretty much bragging publicly about banging you. You try and change the topic, you talk for a bit but mostly it is sexual banter from him.'
+	elseif grupTipe = 1:
+		if npc_rel['A149'] >= 50:
+			'"Hey, <<$pcs_nickname>>. So I''ve been noticing you''ve been eying me." Lazar winks.'
+			'You laugh. "Nice line Lazar... Is that how you get the ladies interested in you?"'
+			'He confidently continues. "You know it. And it works like a charm every time. You just wait, you''ll fall for me too." From there the two of you talk about a variety of topics, though mostly sports.'
+		elseif npc_rel['A149'] <= 20:
+			'"Are you the one that''s been going around and telling the other girls that I''m no good for them?!" Lazar angrily asks.'
+			'"No... Like I give a shit about you! You''re not the center of the world, Lazar!" you yell back.'
+			'"Good. Keep it that way or else we might have a problem..." he says as he brushes pass you.'
+		else
+			'"I didn''t take you for one of them girls <<$pcs_nickname>>?" Lazar smiles.'
+			'"What?" you ask surprised.'
+			'"Didn''t take you for one of my fan girls, that''s all." he winks. You roll your eyes and shake your head, you know he is full of himself even if he is the most gifted athlete in school and cute to boot, but sadly he knows it. The two of you talk about a variety of things, which mostly he twists into you just liking him.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A149'] >= 50:
+			'"Did you see that move I made at the last game <<$pcs_nickname>>?" Lazar boasts.'
+			'"I heard about it." you inform him.'
+			'The two of you start talking about his last game but soon are talking about a variety of topics.'
+		elseif npc_rel['A149'] <= 20:
+			'"Well well, if it isn''t <<$pcs_nickname>>..." Lazar is standing with his arms crossed.'
+			'You sigh. "What now Lazar? I don''t have time for your games today..."'
+			'He huffs. "Somebody has been talking shit behind my back to some girls, but I haven''t figured out who it is yet. I wanted you to know that I''m keeping my eyes on you <<$pcs_nickname>>."'
+			'"Okay..." you say as you roll your eyes. "What does that have to do with me?"'
+		else
+			'"Did you hear my own little cheer squad at the last game <<$pcs_nickname>>?" Lazar boasts.'
+			'"I heard many boys are out to get at your level <i>Mister Superstar</i>. Watch out so you don''t lose that cheer squad of yours." you jokingly reply.'
+			'Lazar bursts out in a laughter. "No no, I''m not worried. That only makes me want to improve even more..."'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A149'] >= 50:
+			'"Hey, <<$pcs_nickname>>. So I''ve been noticing you''ve been eying me." Lazar winks.'
+			'You blush a bit. "No... no I havn''t."'
+			'He confidently continues. "Are say I''m not good looking?" You start to stammer and then he laughs showing he is just messing with you. From there the two of you talk about a variety of topics, though mostly sports.'
+		elseif npc_rel['A149'] <= 20:
+			'As you walk up and try and talk to him he just flat ignores you and pretends like you are not there. After several minutes of this he finally sighs loudly. "Can''t you taking a fucking hint? No one wants you around." Then he goes back to ignoring you as you walk off.'
+		else
+			'"Well well, if it isn''t <<$pcs_nickname>>." Lazar says as it brings everyones attention to you.'
+			'You glance around waiting for someone to start picking on you. "Hi, I just wanted to say hi."'
+			'He smirks. "Of course you do." Just the way he says it, makes it sound like a forgone conclusion you would want to talk to him.'
+			'"Okay..." you say not sure how to respond to this. He does start talking to some of the others and seems friendly enough even if he and the rest don''t pay much attention to you, at least no one is picking on you.'
+		end
+	else
+		if npc_rel['A149'] >= 50:
+			'"Hey, <<$pcs_nickname>>. So I''ve been noticing you''ve been eying me." Lazar winks.'
+			'You laugh. "You wish... Are any of the girls dumb enough to fall for that?"'
+			'He confidently continues. "Nothing to fall for, it is simple a fact, you don''t got to hide it, I got a rocking bod." He lifts up his shirt and shows off his six pack, which gets the attention of most of the girls. You have to admit if you are into guys he has a great body. From there the two of you talk about a variety of topics, though mostly sports.'
+		elseif npc_rel['A149'] <= 20:
+			'As you walk up and try and talk to him he just flat ignores you and pretends like you are not there. After several minutes of this he finally sighs loudly. "Can''t you taking a fucking hint? No one wants you around." Then he goes back to ignore you as you walk off.'
+		else
+			'"Well well, if it isn''t <<$pcs_nickname>>. Get lost? Or maybe to drunk to find some alleyway to squat in." Lazar says with a laugh as it brings everyones attention to you. Sure the gopniks are well known for drinking and drugs but it gets old, that everyones seems to think that is all you guys do.'
+			'You just sigh. "I just wanted to say hi."'
+			'He smirks. "Of course you do." Just the way he says it, makes it sound like a forgone conclusion you would want to talk to him.'
+			'"Okay..." you say not sure how to respond to this. He does start talking to some of the others and seems friendly enough even if he and the rest don''t pay much attention to you, at least no one is picking on you.'
+		end
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'svyatoslav':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A8', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/svyatoslav/beach_chat.jpg"></center>'
+	if grupTipe = 1:
+		if npc_rel['A8'] >= 50:
+			'"Well isn''t this a surprise. Are you here to wish me good luck in the next race?" Svyatoslav curiously asks.'
+			'Seeing him excited and not wanting to hurt his feelings, you just nod. "Yeah... that''s exactly what I wanted to say..."'
+			'"Thanks <<$pcs_nickname>>! I''ll be sure to win this time!" he boastfully replies. Then the two of you talk about the many times he fails to either beat Ivan or Lazar in one of the varies sports at school.'
+		elseif npc_rel['A8'] <= 20:
+			'As you walk up to him he gives you a dirty look. "I got nothing to say to you, so go bother someone else." You try talking to him but he just seems to get more annoyed with you, so you finally give up and just leave.'
+		else
+			'You walk up to him and start talking, he starts talking about working out and staying fit, before long he starts flirting with you. You get the feeling he has a thing for you, or maybe he just wants to bang any girl in school, hard to tell with him.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A8'] >= 50:
+			'You walk up to him and start talking, the two of you quickly start talking about working out and staying fit, before long he starts flirting with you. You get the feeling he has a thing for you, or maybe he just wants to bang any girl in school, hard to tell with him.'
+		elseif npc_rel['A8'] <= 20:
+			'As you walk up to him he gives you a dirty look. "I got nothing to say to you, so go bother someone else." You try talking to him but he just seems to get more annoyed with you, so you finally give up and just leave.'
+		else
+			'You walk up to him and start talking, the two of you quickly start talking about working out and staying fit, before long he starts flirting with you. You get the feeling he has a thing for you, or maybe he just wants to bang any girl in school, hard to tell with him.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A8'] >= 50:
+			'As you walk up to him he says. "You get lost nerd?"'
+			'You shake your head no. "No I just wanted to say hi."'
+			'He snorts. "What ever, hey make sure you don''t lean to far forward in class so I can copy off you." Then he mostly ignores you but doesn''t pick on you at least.'
+		elseif npc_rel['A8'] <= 20:
+			'As you walk up to him he says. "You get lost nerd?"'
+			'You shake your head no. "No I just wanted to say hi."'
+			'He steps towards you and places his hand on your shoulder and shoves you hard, hard enough you stumble a couple of steps away catching your balance. "Get the fuck out of here." You notice the looks on the face of some of the others and decided it is best to leave before things get worse.'
+		else
+			'As you walk up to him he says. "You get lost nerd?"'
+			'You shake your head no. "No I just wanted to say hi."'
+			'He laughs. "Yeah well you said, so why don''t you just go back to your fellow losers and pretend to be a elf or what ever it is you loser do." Then he partially ignores you and when he isn''t he mocks and makes fun of you.'
+		end
+	else
+		if npc_rel['A8'] >= 50:
+			'As you walk up to him he says. "You come to see what real men are like?"'
+			'You shake your head no and roll your eyes at his comment. "No I just wanted to say hi."'
+			'He snorts. "Sure you didn''t well take a good look." He does a little flexing and he has a pretty nice body, finally you are able to engage him in a bit of a conversation.'
+		elseif npc_rel['A8'] <= 20:
+			'As you walk up to him he says. "You come to beg for some money, so you can buy drugs?" He says with a laugh and several others join in.'
+			'You shake your head no. "No I just wanted to say hi."'
+			'"Yeah well no one wants to talk to your skank ass, so go back to your own kind." You notice the looks on the face of some of the others and decided it is best to leave before things get worse.'
+		else
+			'As you walk up to him he says. "You get lost drugy?"'
+			'You shake your head no. "No I just wanted to say hi."'
+			'He laughs. "Yeah well you said, so why don''t you just go back to your fellow wannabe gangsters and pretend like you matter." Then he partially ignores you and when he isn''t he mocks and makes fun of you.'
+		end
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'vanya':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A165', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/vanya/beach_chat.jpg"></center>'
+	if npc_rel['A165'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'"Say <<$pcs_nickname>> did you hear about the prank I pulled on the football coach?" Vanya is having a hard time keeping himself from laughter.'
+			'"No, what did you do this time?" you curiously ask.'
+			'"Well, during one of the training sessions, I unscrewed the top from a water bottle thinking one of the boys would drink it but here comes the coach, who grabs it. Just as he''s about to drink, the top falls off and water splashes all over him!" Vanya bursts out in laughter.'
+		else
+			'"<<$pcs_nickname>>! You need to help me hide!" Vanya is alarmingly looking around.'
+			'Feeling stressed, you ask. "What''s wrong?! Who''s after you?!"'
+			'Vanya cracks up seeing you panic. "Just kidding! I just wanted to see your reaction."'
+			'"Always the same thing Vanya. Don''t you get tired of playing games all the time?" you reprimand him.'
+		end
+	elseif npc_rel['A165'] <= 20:
+		'He just completely ignores you and spends his time talking to Vicky.'
+	else
+		'"Hey <<$pcs_nickname>>! Check this out!" Vanya says as he flexes showing off what muscles he has. You just shake your head at him and soon the two of you are having a pleasant conversation.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'erast':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A150', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/erast/beach_chat.jpg"></center>'
+	if npc_rel['A150'] >= 50:
+		'"Here''s the resident big guy of our school!" you say jokingly when you approach Erast who is watching some of the girls in bikini''s.'
+		'You can see him blushing a little when he looks up and notices you. "Hello <<$pcs_nickname>>, how''re you doing today?"'
+		'"I''m fine, thanks for asking. You know, I came here to get some pointers as I''ve been struggling with my training recently. I have to pay attention to my shape and some good tips are always useful."'
+		*nl
+		'"You already look good <<$pcs_nickname>>." he says politely but his face turns red a little. Before you could react, he starts talking about aerobic and anaerobic techniques which he thinks would help you with your goal.'
+		'You listen to him very carefully and try to remember as much as you can. Which is not easy, because he is so passionate talking about this topic that he often uses technical terms you don''t even know what they mean.'
+	elseif npc_rel['A150'] <= 20:
+		'"Hey Erast!" you greet him but he''s so focused on watching some of the other guys who are flexing and showing off their muscles, to see who has the biggest ones. When you try and talk to him more he excuses him self and walks over to show the guys what real big muscles look like.'
+	else
+		'You walk over and take a seat on the sand next to him, you start talking to him and he quickly engages in a conversation with you, the two of you talk for some time about a variety of topics.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'christina':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/christina/beach_chat.jpg"></center>'
+	'You walk over to Christina, where she lays on the beach getting a tan. Before you can even say a word she speaks up. "I am having a good day, go away before you ruin it or I will ruin your day." You sigh, and turn around and walk away from her. It seems she will never forgive you.'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'albina':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A23', 'like'
+	gs 'stat'
+	if AlbinaQW['Friends'] = 1:
+		AlbinaQW['Friends'] = 2
+		gs 'npc_relationship', 'set', 'A23', 100
+		'Albina smiles gratefully at you. "I just wanted to thank you again <<$pcs_nickname>>. There''s some stupid shit about ''a friend in need'' or something. I''m letting you know that I''m disbanding the Starlets as well. Too many bad memories you know?"'
+		'You tell her you understand and she embraces you in a tight hug before composing herself, staring down anyone looking at her with a cold glare.'
+	elseif AlbinaQW['Friends'] = 2:
+		'You have a pleasant conversation with Albina where you both talk about almost anything, but you''re careful not to bring up her father, the Starlets or anything else that might upset her. The conversation ends with Albina embracing you in a tight and extended hug.'
+	elseif grupTipe = 1:
+		if npc_rel['A23'] >= 70:
+			'Albina has a friendly, yet awkward conversation with you. You both talk about your shared interests, but when you bring up family life she fiercely avoids the subject, eventually refusing to speak with you anymore and storming off. You don''t know what her problem is, but she''s always been sensitive when it comes to discussing her home life.'
+		elseif npc_rel['A23'] <= 20:
+			'Albina glares at you. "What do you want you fake ass bitch? I don''t like you, so why would I want to talk to you?" You can tell she isn''t waiting for an answer, so you back off before she causes a scene.'
+		else
+			'Albina sighs and begrudgingly starts chatting with you. She spends a lot of the conversation with her arms crossed and makes no effort to hide her boredom. She doesn''t dislike you, but it''s obvious that she''s just tolerating your presence and humouring you with conversation.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A23'] >= 70:
+			'Albina has a friendly, yet awkward conversation with you. You both talk about your shared interests, but when you bring up family life she fiercely avoids the subject, eventually refusing to speak with you anymore and storming off. You don''t know what her problem is, but she''s always been sensitive when it comes to discussing her home life.'
+		elseif npc_rel['A23'] <= 20:
+			'Albina scoffs at you. "I don''t like you, I barely tolerate you being in the same social group as me, so why would I want to talk to you?" You can tell she isn''t waiting for an answer, so you back off before she causes a scene.'
+		else
+			'Albina sighs and begrudgingly starts chatting with you. She spends a lot of the conversation with her arms crossed and makes no effort to hide her boredom. She doesn''t dislike you, but it''s obvious that she''s just tolerating your presence and humouring you with conversation.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A23'] <= 20:
+			'Albina rolls her eyes and crosses her arms. "This isn''t your stop, <<$pcs_firstname>>. The train to Geeksville terminates over there." She motions towards the door to the classroom that the nerds hang out in. "So get back on board and piss off!"'
+		else
+			'Albina sighs and begrudgingly starts chatting with you. She spends a lot of the conversation with her arms crossed and makes no effort to hide her boredom. She doesn''t dislike you, but it''s obvious that she''s just tolerating your presence and humouring you with conversation.'
+		end
+	else
+		if npc_rel['A23'] <= 20:
+			'Albina recoils back from you with a look of utter contempt on her face. "What the hell do <i>you</i> want? Go find the other knuckle brained morons. The zoo is over there." She motions towards the stairway that the gopniks usually hang out in before returning to her phone and ignoring you.'
+		else
+			'Albina stares at you, seemingly in confusion. "Uhh, can I help you?"'
+			'"I just wanted to talk is all," you reply and she sighs and begrudgingly starts chatting with you. She spends a lot of the conversation with her arms crossed and makes no effort to hide her boredom. It''s obvious that she''s just tolerating your presence and humouring you with a conversation she doesn''t actually care about.'
+		end
+	end
+end
+
+if $ARGS[0] = 'lina':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A19', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lina/beach_chat.jpg"></center>'
+	if npc_rel['A19'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'"I''ve finally been improving my lap times." Lina proudly tells you.'
+			'"Great news! I''m glad you''re improving." you encourage her.'
+			'Lina nods. "Yeah, the new workout plan that Christina made for me is really great. She''s really helped me out a lot." There she goes, worshipping Christina.'
+		else
+			'"Hi <<$pcs_nickname>>! Did you watch the latest video someone took of the Starlets? Their movements were amazing! I wish I could join them, but I''m too clumsy..." Lina looks dejected.'
+			'"Is that so?" you curiously ask.'
+			'With a nervous laughter Lina replies. "I should stop, you''re probably not interested in this anyway." Before you''re able to answer, you can hear Christina calling her over and Lina quickly runs over to her, leaving you alone.'
+		end
+	elseif npc_rel['A19'] <= 20:
+		if grupTipe = 1 or grupTipe = 2:
+			'"I always hear that I''m bad at sports, but you''re even worse than me!" Lina spares no time to insult you.'
+			'"Where did this come from?" you ask.'
+			'Lina mockingly replies. "It''s just something me and the other girls were discussing and I just wanted you to know that."'
+			'"Come and face me then and I''ll show you who''s the worse athlete!" you fire back.'
+		else
+			'"So where''s the old ball and chain?" you teasingly ask.'
+			'"Oh shut up <<$pcs_nickname>>. Don''t you have anything better to do? At least I have a friend unlike <i>some</i> people." Lina fires back.'
+		end
+	else
+		'"What do you want <<$pcs_nickname>>? Christina is looking for me..." Lina says irritatingly.'
+		'"I wanted to ask you if you had the notes from the class. I need to copy it." you tell her.'
+		'"We''ll do it later. I have to find Christina right away or else she''ll get mad..." Lina excuses herself.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'lariska':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A13', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lariska/beach_chat.jpg"></center>'
+	if npc_rel['A13'] >= 50:
+		'"Hey <<$pcs_nickname>>! I need help with a thing and I think you''re the perfect person that can help me out." Lariska smiles.'
+		'"Sure thing Lariska. What do you need help with?" you curiously ask.'
+		'"Well... I need to impress Christina and need your help with coming up with something fitting..." she starts and goes on a long tirade about what might impress Christina.'
+	elseif npc_rel['A13'] <= 20:
+		'"So where''s the old ball and chain?" you teasingly ask.'
+		'"Oh shut up <<$pcs_nickname>>. Don''t you have anything better to do? At least I have friends." Lariska fires back.'
+		'You start laughing. "Yeah, ''friends.''"'
+	else
+		'"What do you want <<$pcs_nickname>>? I don''t really have the time right now." Lariska says.'
+		'"Well... I just wanted to talk..." you tell her.'
+		'She glances around, you guess checking to see if Christina is looking, then she talks with you for a bit, but then suddenly stops and gets up. You notice Christina looking your direction with a angery look on her face as Lariska heads towards her.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'fedor':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A3', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/beach_chat.jpg"></center>'
+	if npc_rel['A13'] >= 50:
+		'"Hey <<$pcs_nickname>>!" Fedor smiles at you.'
+		'You take a seat next to him on the sand and quickly find yourself in a deep conversation with him for awhile before things start to wind down and you tell him bye as you get up.'
+	elseif npc_rel['A13'] <= 20:
+		'You sit down in the sand next to him and try to talk to him but he mostly just ignores you, then he finally gets up and just walks off leaving you sitting in the sand alone.'
+	else
+		'"What''s up <<$pcs_nickname>>?" Fedor says.'
+		'"I just wanted to talk." you tell him.'
+		'He smiles and engages you in a interesting conversation for awhile, eventually the conversation ends and you sit for a moment in silence before he gets up and tells you he will talk to you later, then he walks over to Ivan.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'ivan':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A3', 'like'
+	chrsm_exp += rand(1,2)
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/beach_chat.jpg"></center>'
+	if npc_rel['A3'] >= 50:
+		'"Hi <<$pcs_nickname>>." Ivan greets you as he sees you approaching.'
+		'"Hello Ivan, what''s up? How was your last training match?" you ask curiously.'
+		'He tells you about it and after that the two of you talk about a variety of topics for awhile, until he finally gets up and says he is going to go for a swim. Then he runs out into the lake and dives forward once the water is deep enough.'
+	elseif npc_rel['A3'] <= 20:
+		'You see Ivan talking to Fedor and decide to go to him. "Hi Ivan, do you have a minute?" you ask.'
+		'As he turns around, he notices it''s you talking to him. "Hi <<$pcs_nickname>>. Is it important? As you can see, I''m talking to Fedor and we''re discussing an important thing." he says, then turns back to Fedor.'
+		'"Not that important, I just thought we could have a little chat. You''re always talking to Fedor anyway, you need a change, don''t you?" you ask in a playful, flirtatious tone.'
+		*nl
+		'He''s clearly not impressed by your desperate attempt. He turns back to you, looks you in the eye and says: "I told you I''m busy now, maybe some other time." and with that, he starts talking to Fedor again.'
+		'You feel very awkward as he wasn''t interested in your flirting at all. You stand there, you don''t know what to do. You decide not to push it any further, so you leave them there.'
+	else
+		'As you walk over to him. "Hi Ivan, how are you today?" you ask.'
+		'"Hi <<$pcs_nickname>>, fine..." Ivan replies as he looks around. When he sees that everyone is busy with doing something or talking to someone, he sits down on the sand and gestures for you to sit down next to him.'
+		'You start chatting about everything from school to sports to reading. After a while, Ivan starts talking about how he tried to help his younger siblings learn. "It''s important that they get a good education. I want them to achieve something in life." she says with a serious look in her eyes.'
+		'"That''s very thoughtful of you. If you want, I can share some tips." you reply. In the next few minutes, you share a few tips on how he can help them as much as possible and how he could make learning enjoyable for them.'
+		'After a while, you stand up. "I''m going now, I want to revise my homework one more time before class." you say, and then head off to the classroom.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'dimka':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A1', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+	if grupTipe = 1:
+		if npc_rel['A1'] >= 50:
+			'"Just the person I was hoping to see!" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
+		elseif npc_rel['A1'] <= 20:
+			'"You seem to have the wrong idea about me <<$pcs_nickname>>." Dimka holds out his hand to keep you from getting any closer. "Just because we run in the same social circle doesn''t mean we''re friends."'
+			'You can''t help but scoff and roll your eyes. "Who said I want to be friends? You just looked lonely standing over here by yourself. I was just trying to be nice." You trade a few more barbs back and forth.'
+		else
+			'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A1'] >= 50:
+			'"Have I shown you my photos from my last trip?" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
+		elseif npc_rel['A1'] <= 20:
+			'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
+			'"I just wanted to say hi is all," you reply.'
+			'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+		else
+			'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A1'] >= 60:
+			'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
+		elseif npc_rel['A1'] <= 20:
+			'Dimka looks down at you with a condescending smile. "You get lost loser? Shouldn''t you be off pretending to be an elf or something?" he asks with a charming smile on his face.'
+			'"I just wanted to say hi is all," you reply.'
+			'He looks around like this is a common burden. "Of course you did, everyone does. Now that you have, why don''t you go back to your own kind?" You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+		else
+			'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
+			'"I just wanted to say hi is all," you reply.'
+			'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+		end
+	else
+		if npc_rel['A1'] >= 60:
+			'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
+		elseif npc_rel['A1'] <= 20:
+			'Dimka looks down at you with a condescending smile. "What do you want? We don''t have any drugs and none of us want whatever it is you''re selling," he remarks, maintaining his "friendly" appearance in front of everyone.'
+			'"I just wanted to say hi is all," you reply.'
+			'He looks around like this is a common burden. "Of course you did, everyone does. Now go away before you ruin everyone''s day with your dreadful attempt at fashion." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+		else
+			'Dimka looks down at you with a condescending smile. "What do you want? Maybe looking for some fashion advice?" he asks, maintaining his "friendly" appearance in front of everyone.'
+			'"I just wanted to say hi is all," you reply.'
+			'He looks around like this is a common burden. "Of course you did, everyone does. Now that I''ve made your day you can go do... whatever it is you people do." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+		end
+	end
+end
+
+if $ARGS[0] = 'igor':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A4', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+	if IgorLoverQW > 0:
+		'When Igor sees you, his face lights up and he smiles warmly. "I was hoping I''d see you. I, uh, kind of missed you..." he says shyly and it makes you giggle. While you talk with each other, his warm hand finds yours.'
+		act 'Just chat with him':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/beach_chat.jpg"></center>'
+			'You sit next to Igor holding his hand while the two of you chat for some time about a variety of topics.'
+			act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+		end
+		if igorstrap = 1:
+			act 'Tease him about fucking him with a strapon':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/beach_chat.jpg"></center>'
+				'You decide to tease him a little. "I hope you''re not too sore after last time..." you whisper with a smirk. Igor''s cheeks flush pink as he looks around nervously, hoping no one overheard.'
+				act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+				act 'Just chat':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/beach_chat.jpg"></center>'
+					'You choose not to press it any further and start talking to him about a variety of topics while holding hands until break is over. With a smile, you give him a quick kiss goodbye.'
+					act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+				end
+			end
+		end
+	elseif grupTipe = 1:
+		if npc_rel['A4'] >= 50:
+			'You know he doesn''t have many friends, so he''s more than happy that you want to hang out with him. Unlike most boys, Igor is really attentive and listens to everything you say, even taking an interest in the more "girly" topics.'
+			'"Oh, it''s not that weird," he says while blushing. "I have a sister, so I hear about these things all the time..."'
+		elseif npc_rel['A4'] <= 20:
+			'The conversation feels forced as Igor makes almost no effort to talk to you. You get the feeling he''s just doing this as a courtesy since you''re in the same clique.'
+		else
+			'As usual, Igor is hanging around Dimka, but he pays closer attention to you. With a smile, he asks you how your day has been so far and before long you''re talking about all kinds of things. He even takes an interest in the more "girly" topics.'
+		end
+	elseif grupTipe = 2 or grupTipe = 3:
+		if npc_rel['A4'] >= 60:
+			'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
+			'He shrugs dismissively. "Just waiting for Dimka."'
+			'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
+		elseif npc_rel['A4'] <= 20:
+			'The conversation feels forced as Igor makes almost no effort to talk to you. You get the feeling he''s just doing this to try and be polite to you.'
+		else
+			'As usual, Igor is hanging around Dimka, but he pays closer attention to you. With a smile, he asks you how your day has been so far and before long you''re talking about all kinds of things. He even takes an interest in the more "girly" topics.'
+		end
+	else
+		if npc_rel['A4'] >= 70:
+			'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
+			'He shrugs dismissively. "Just waiting for Dimka."'
+			'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
+		elseif npc_rel['A4'] <= 20:
+			'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
+			'Igor looks around in a slight panic. "Just waiting for Dimka. I think I see him." He almost runs away like he''s afraid you''re about to do something to him.'
+		else
+			'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
+			'Igor looks around in a slight panic. "Why? what do you want?"'
+			'You give him a friendly smile. "I just wanted to see how you were doing. Anything wrong with that?"'
+			'He swallows and looks a little afraid. "No... no of course not." You talk for a few minutes, but you can tell he is afraid of you, like he is expecting you to bully him in some manner. He looks relived upon seeing Dimka and rushes over to him. "Uh, I''ve got to go. See you later."'
+		end
+	end
+end
+
+if $ARGS[0] = 'katja':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A14', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+	if katjaQW['drunk_help'] = 1:
+		act 'Thank her for taking you home':
+			*clr & cla
+			gs 'npc_relationship', 'modify', 'A14', 'like'
+			katjaQW['drunk_help'] = 0
+			gs 'stat'
+			'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/big14.jpg"></center>'
+			'You approach Katja and thank her for taking you home from the disco when you were drunk and she gives you a knowing smile. "Don''t mention it <<$pcs_nickname>>! You really shouldn''t get that drunk again though. It could end badly. Some of the guys there are real pigs..." she says. "Do you want to hang out after school? We could do our homework together?"'
+			'"Sure, why not?" you reply.'
+			act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+		end
+	end
+	if grupTipe = 1:
+		if npc_rel['A14'] >= 50:
+			'You spend some time hanging around Kat''s locker, laughing and joking as she tells you some personal stories about Vicky. "She had been drinking all night and had to go, but all the stalls were full, so she drags me out behind the community center to go pee behind a bush." She breaks out into a fit of giggles.'
+			'"She was so drunk, as she was squatting, she stumbled and fell into her own pee!"'
+		elseif npc_rel['A14'] <= 20:
+			'You smile at her as you approach. "Hey Katja, trying a new lipstick out? That color looks pretty on you." '
+			'She smiles sheepishly at your compliment. "Yeah... Just wanted to try something a little different..." she answers quietly. The conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
+		else
+			'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A14'] >= 50:
+			'You approach Katja and have a lively conversation where you exchange funny stories about Vanya. "And that''s how my sister fell in love with the biggest clown in school!" she laughs with a snort.'
+			'"And I wouldn''t change him for the world!" Vicky adds with a smile.'
+		elseif npc_rel['A14'] <= 20:
+			'Katja looks around nervously when she sees you approaching. "Why do you want to talk to me? I''m not sporty like you or my sister or Albina. Could you go and....speak with someone else please?"'
+		else
+			'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A14'] >= 50:
+			'Katja smiles as you approach and you have a lively conversation about your favorite subjects and her plans for going to university after school. "I want to become a teacher. Helping others achieve their potential just sounds like the perfect job!" she gleefully states.'
+		elseif npc_rel['A14'] <= 20:
+			'Katja doesn''t look too happy to see you and your conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
+		else
+			'Altough Katja is happy to see you, she doesn''t do much talking. You get the feeling that she''d open up more if you were closer, but for now you''ll have to settle with this.'
+		end
+	else
+		if npc_rel['A14'] >= 50:
+			'Katja takes a surprising interest in what you and your fellow gopniks get up to outside of school and listens carefully when you answer her numerous questions.'
+		elseif npc_rel['A14'] <= 20:
+			'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to hide behind her, clearly scared of you and wanting to avoid speaking to you.'
+		else
+			'With Katja being a quiet girl, she doesn''t do much talking and often avoids eye contact with you. You get the feeling she''d open up more if you were closer, but for now you''ll have to settle with this.'
+		end
+	end
+end
+
+if $ARGS[0] = 'bella':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A22', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/bella/beach_chat.jpg"></center>'
+	if npc_rel['A22'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'"You know, you should come and hang out with me and my friends." Bella says smiling.'
+			'"You really mean that?" you ask as your eyes widen. "You think I''ll fit in with them?"'
+			'Bella nods. "No doubt! You''ll have no issues fitting in. I''ll be seeing you around and we can plan something, no?" The two of you talk for a bit more.'
+		else
+			'"Now that we''ve established that you''re pretty mature and cool, you should come and hang with my friends." Bella says with a smile.'
+			'"You really mean that?" you reply as your eyes widen.'
+			'Bella nods. "Of course, I don''t joke around. I''ll be seeing you around and we can plan something, no?" The two of you walk for a bit more'
+		end
+	elseif npc_rel['A22'] <= 20:
+		if grupTipe = 1 or grupTipe = 2:
+			'"What do you want now <<$pcs_nickname>>? What can you possibly want from me?" Bella moans as she rolls her eyes.'
+			'"I was thinking about asking yo..." you start.'
+			'Bella begins to mockingly laugh. "Don''t be silly! Like I would give advice to someone like you..."'
+		else
+			'"What do you want?" Bella arrogantly asks as you approach her.'
+			'"I just wanted to ask you about this store in the city. I heard..."'
+			'Before you''re able to continue she cuts you off, looks at her pedicure and, with a sigh, replies "Listen, the city is not for children like you. You''re better off buying clothes like the rest of your classmates at the G&M store here in Pavlovsk."'
+		end
+	else
+		'"Make it quick <<$pcs_nickname>>! I don''t really have the time to stand here and chat..." Bella hurries you on.'
+		'"I was thinking we could maybe hang after school one day?" you cheerfully ask.'
+		'"You and I?" she looks around. "Is this a prank? Where have you hidden the cameras?" She keeps on looking around. "Don''t be silly! Run along now, kid." She scoffs you aside.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'lizaveta':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A140', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/lizaveta/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+	if grupTipe = 1:
+		if npc_rel['A140'] >= 50:
+			'The perks of being a close friend of Liza go beyond just running in the same social circle. She tells you some gossip that no one else should know about.'
+			'"I heard from a little red bird that one time while Vicky was out partying at the community center, she couldn''t hold it in, so she went to do her business behind a bush, buuuut..." Liza drags it out to build a little suspense. "She was so drunk that she ended up falling into her own piss! Luckily Kat-- her friend, I mean, was there to take her home before anyone saw!" The two of you chat for some time about some of the recent stuff she has heard.'
+		elseif npc_rel['A140'] <= 20:
+			'"You know, you really shouldn''t shit where you sleep." Lizaveta says while shaking her head disapprovingly.'
+			'"What? What is that supposed to mean?" you ask, but she just sighs.'
+			'"You''re dumber than I thought..." she mutters. You try to get an answer out of her, but she dances around your questions while talking to Bella.'
+		else
+			'You spend some time talking with Lizaveta, and for a while you manage to avoid talking about anything gossipy, but considering she''s the queen of it, it eventually devolves into some "He said, she said."'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A140'] >= 50:
+			'You would think that being close friends with Lizaveta would mean getting some exclusive gossip from her, but she keeps her lips sealed. "I know everyone likes to say I can''t keep my mouth shut, but even I need to have some secrets of my own." she winks.'
+			'"Oh come on!" you plead. "You gotta give me a little bit of something..."'
+			'With a dramatic sigh, Liza caves and shares some harmless, yet juicy gossip you hadn''t heard about until now.'
+		elseif npc_rel['A140'] <= 20:
+			'The conversation is stale and lifeless as Lizaveta taps away at her phone while you talk, only managing an occasional "Yeah..." or "Uh-huh..."'
+		else
+			'You spend some time talking with Lizaveta, and for a while you manage to avoid talking about anything gossipy, but considering she''s the queen of it, it eventually devolves into some "He said, she said."'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A140'] >= 50:
+			'When you sit on the sand next to Lizaveta, she smiles at you and the two of you are soon talking about a variety of subjects. However, she can''t help herself and soon starts asking you all sorts of questions about your fellow nerds. You can barely even get a word in edge wise as she pumps you for gossip. You can''t help yourself and start letting some stuff slip as the two of you talk.'
+		elseif npc_rel['A140'] <= 20:
+			'When you sit on the sand next to Lizaveta, she looks at you in shock and surprise. "Why are you sitting next to me, loser? Get away from me." Her outburst attracts the attention of the other cool kids and jocks around and now everyone is staring at you, making you feel very unwelcome. She continues to stare at you until you get up and leave.'
+		else
+			'When you sit on the sand next to Lizaveta, she starts asking you all sorts of questions about your fellow nerds. You can barely get a word in edge wise as she pumps you for gossip. You just can''t help yourself and start letting some stuff slip as the two of you talk.'
+		end
+	else
+		if npc_rel['A140'] >= 50:
+			'When you sit on the sand next to Lizaveta, she smiles at you and the two of you are soon talking about a variety of subjects. However, she can''t help herself and starts asking you all sorts of questions about your fellow gopniks. You can barely even get a word in edge wise as she pumps you for gossip. You can''t help yourself and start letting some stuff slip as the two of you talk.'
+		elseif npc_rel['A140'] <= 20:
+			'When you sit on the sand next to Lizaveta, she looks at you in shock and surprise before scooting away. "Why are you sitting next to me, freak? Get away from me." Her outburst attracts the attention of the other cool kids and jocks around and now everyone is staring at you, making you feel very unwelcome. She continues to stare at you until you get up and leave.'
+		else
+			'When you sit on the sand next to Lizaveta, she starts asking you all sorts of questions about your fellow gopniks. You can barely get a word in edge wise as she pumps you for gossip. You can''t help yourself and start letting some stuff slip as the two of you talk.'
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A146', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/marcus/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+!!bgk don''t know if you want this katja stuff here or not I left it for now, you might want to tweak the text below because it is happening during the summer or on the beach
+	if katjaQW['QWstage'] = 5 and Marcus_sextype > 0 and katjaQW['marcus_asked'] = 0: act 'Ask Marcus about being Katja''s first': gt 'pav_beach_chats', 'Marcus_Katja_talk'
+	if grupTipe = 1:
+		if npc_rel['A146'] >= 50:
+			'Talking with Marcus is always fun. He always knows how to make you laugh with the stories he tells. "You should have seen his face!" He lets out a deep laugh. "We walk by the bathroom on the way to his room and BAM! There''s his mom, butt naked, and we see it all! You ever seen someone change colors? Poor guy was as pink as... as his mom''s nipples now that I think about it!"'
+			'You spend the rest of break laughing along with him as he tells you some more stories.'
+		elseif npc_rel['A146'] <= 20:
+			'You try to strike up a conversation with Marcus, but he just ignores you as he continues talking to Andrey and Dimka.'
+		else
+			'You walk up to Marcus and he gives you a small smile as you start talking to him. He responds and talks back, sharing a few stories of his time in America or when he first arrived here in Russia, but he spends just as much time talking to Andrey as he does you.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A146'] >= 50:
+			'You walk up to Marcus and he gives you a big smile as you start talking to him. The conversation quickly turns to sports, mostly sports in America. It seems he was a jock back home and loves watching and playing sports. He seems to really miss American football, his favorite sport to play, but is happy there is basketball here, his second favorite sport. He talks about his games back home, but also asks about how you are doing in sports yourself.'
+		elseif npc_rel['A146'] <= 20:
+			'You try to strike up a conversation with Marcus, but he mostly ignores you and continues talking to Andrey and Dimka.'
+		else
+			'You walk up to Marcus and he gives you a smile as you start talking to him. The conversation quickly turns to sports, mostly sports in America. It seems he was a jock back home and loves watching and playing sports. He seems to really miss American football, his favorite sport to play, but is happy there is basketball here, his second favorite sport. He talks about the games he played back home.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A146'] >= 50:
+			'You walk up to Marcus and he gives you a smile as you start talking to him. You enjoy hearing the stories Marcus tells about his life in America, though he often talks about the differences between nerds here and there. He explains how nerds back home are less about grades and more about what school club you belonged to.'
+			'You spend the rest of break asking more questions about his home life and he''s happy to tell you all about it.'
+		elseif npc_rel['A146'] <= 20:
+			'You try to strike up a conversation with Marcus, but he mostly ignores you and continues talking to Andrey and Dimka.'
+		else
+			'You walk up to Marcus and he gives you a smile as you start talking to him. You enjoy hearing the stories Marcus tells about his life in America. "It''s kind of funny, I don''t think I was nearly as popular as this back home. I''m not complaining though!"'
+			'You spend the rest of break asking more questions about his home life and he''s happy to tell you all about it.'
+		end
+	else
+		if npc_rel['A146'] >= 50:
+			'You walk up to Marcus and he gives you a smile as you start talking to him. You enjoy hearing the stories Marcus tells about his life in America. "You guys seem a lot more fun than I expected. I''m still trying to wrap my head around what a gopnik is. I know a lot of you are called that, but there are some big differences." You explain some of the differences between the collective term and what a real gopnik is, which just leads to him once again wondering why you all hang out together.'
+		elseif npc_rel['A146'] <= 20:
+			'You try to strike up a conversation with Marcus, but he mostly ignores you and continues talking to Andrey and Dimka.'
+		else
+			'You walk up to Marcus and he gives you a smile as you start talking to him. You enjoy hearing the stories Marcus tells about his life in America. "You guys aren''t nearly as bad as the bangers back home. I''ve never seen any of you carrying guns." He goes on to tell you about some of his encounters with gangbangers back home. It sounds like they were a lot more dangerous than gopniks.'
+		end
+	end
+end
+
+if $ARGS[0] = 'Marcus_Katja_talk':
+	*clr & cla
+	menu_off = 1
+	katjaQW['marcus_asked'] = 1
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/marcus/beach_chat.jpg"></center>'
+	'"So you know how we sometimes have fun together?" you ask him.'
+	'"Yeah?" he answers and you smile. "Well, I have this friend who have never been with a boy before but would like to try. So I was wondering if you were up for helping me give her an amazing first time? She''s '+iif( hotcat < hotcat_rating['A14'], 'even hotter that I am', 'totally hot')+' so you won''t regret it."'
+	'"Are you asking me if I want to have a threesome with two beautiful girls, with one of them even being a virgin?" he asks with a surprised look on his face. "Of course I''m up for this!" he exclaims as his face turns into a huge grin.' 
+	'"Great," you answer. "I''ll call you with her address when we are ready. But you have to be discrete, we don''t want any rumors spread around!" you tell him and he smiles. "Of course, I''m a gentleman and gentlemen never kiss and tell. I look forward to your call."'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'andrey':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A147', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/andrey/beach_chat.jpg"></center>'
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+	if grupTipe = 1:
+		if npc_rel['A147'] >= 50:
+			'"Do you think Stasya will ever get over this whole... jealousy thing she has for Marcus?" Andrey confides in you with a look of exhaustion.'
+			'Stasya must really be putting him through it lately. "She''ll get over herself, don''t worry. Just be glad you''re not one of the nerds." you tease.'
+			'That seems to brighten his mood a bit as the conversation continues in a lighter tone.'
+		elseif npc_rel['A147'] <= 20:
+			'You spend a few minutes talking with Andrey until he makes up an excuse to leave. "I gotta go meet up with Marcus. Uh, maybe we''ll talk some other time?"'
+		else
+			'"Hanging out with Marcus has been great for me!" Andrey says with a grin.'
+			'"Oh yeah?" You can''t help but smile when you see the good mood he''s in. "Did something happen recently?"'
+			'"No, it''s just that hanging around him has made me more popular than ever! I mean, I was already pretty popular but this... Being his friend sure has its perks!"'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A147'] >= 50:
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'Andrey just shrugs. "Oh you know, Stasya and my parents still complain about Marcus, so the usual," he teases halfheartedly.'
+			'You spend some time chatting with him, which seems to take his mind off things for a bit.'
+		elseif npc_rel['A147'] <= 20:
+			'You spend a few minutes talking with Andrey until he makes up an excuse to leave. "I gotta go meet up with Marcus. Uh, maybe we''ll talk some other time?"'
+		else
+			'"Hanging out with Marcus has been great for me!" Andrey says with a grin.'
+			'"Oh yeah?" You can''t help but smile when you see the good mood he''s in. "Did something happen recently?"'
+			'"No, it''s just that hanging around him, he is way more into sports than I am. But he got me into working out and jogging and you know what? I feel great." He goes on talking about the positive changes in his life since Marcus moved in.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A147'] >= 50:
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a slightly confused stare as to why you''re talking to him. "Are you lost or something, nerd?"'
+			'You shake your head. "No, I just wanted to see how things were with you is all."'
+			'Andrey just sighs. "Oh you know, Stasya and my parents still complain about Marcus, so the usual," he teases halfheartedly.'
+			'You spend some time chatting with him. He is a bit reluctant at first, but he eventually welcomes the distraction.'
+		elseif npc_rel['A147'] <= 20:
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a slightly confused look as to why you''re talking to him. "Go hang out with your own kind. No one here wants anything to do with you." He proceeds to ignore you and you can feel everyone else staring at you. Afraid someone might start picking on you, you quickly leave.'
+		else
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a slightly confused look as to why you''re talking to him. "If I wanted to talk to you, I would come find you. Go away." He proceeds to ignore you and you can feel everyone else staring at you. Afraid someone might start picking on you, you quickly leave.'
+		end
+	else
+		if npc_rel['A147'] >= 50:
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a smirk. "Come to see what it''s like to be, well...liked? Or did you just get too drunk and get lost?"'
+			'You shake your head. "No, I just wanted to see how things were with you is all."'
+			'Andrey just sighs. "Oh you know, Stasya and my parents still complain about Marcus, so the usual," he teases halfheartedly.'
+			'You spend some time chatting with him. He is a bit reluctant at first, but he eventually welcomes the distraction.'
+		elseif npc_rel['A147'] <= 20:
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a slightly confused look as to why you''re talking to him. "Don''t you have some street to hang out on trying to look tough or something? No one wants you around, so get lost." He proceeds to ignore you and you can feel everyone else staring at you.'
+		else
+			'"Hey, Andrey! How''s it been?" you ask with a small smile.'
+			'He gives you a slightly confused look as to why you''re talking to him. "Why are you talking to me? We''re not friends, so go bother someone else." He proceeds to ignore you and you can feel everyone else staring at you.'
+		end
+	end
+end
+
+if $ARGS[0] = 'mefodiy':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A148', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/mefodiy/beach_chat.jpg"></center>'
+	if npc_rel['A148'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'"I still don''t get why you guys keep me around. There really isn''t much about me that screams ''popular.''" Mefodiy explains with a shy smile.'
+			'"Hey, you''re selling yourself short." you comfort him. "Every kingdom needs their village idiot, right?" you add with a smirk.'
+			'He winces and groans as he clutches at his heart. "Damn, that was a cold one <<$pcs_nickname>>! You''re lucky I like you!"'
+		else
+			'"Who would have thought that being funny and cute would make me so popular?" Mefodiy says and you can''t help but laugh.'
+			'"You really couldn''t be more wrong." you tease him.'
+			'He takes a second to think. "Hmm... ah, you''re right! What I should have said was <i>incredibly handsome and hilarious</i>. Thanks for correcting me <<$pcs_nickname>>!" he says with a wink.'
+		end
+	elseif npc_rel['A148'] <= 20:
+		if grupTipe = 1 or grupTipe = 2:
+			'"It doesn''t take much to get on people''s good sides. Just look at me. If I can manage it, why can''t you?" Mefodiy seems disappointed that you''re not getting along better, but at least he seems willing to give you a chance.'
+		else
+			'"I just can''t." Mefodiy groans after talking to you for a few minutes. "You just kill my whole mood..." He sighs heavily before walking away, dragging his feet the entire time.'
+		end
+	else
+		'Mefodiy has you laughing nonstop the entire time you''re hanging out with him. You lose track of time, but eventually some of the guys call him over and he excusses himself to go see what they want.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'vicky':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A15', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/vicky/beach_chat.jpg"></center>'
+	if npc_rel['A15'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'As soon as Vicky sees you, she pulls you into a tight hug. "<<$pcs_nickname>>, my third favorite person!"'
+			'"Wait, third? I get Kat being second, but who''s first?!" You pretend to be outraged and she plays along.'
+			'"Oh honey. You... you didn''t know? I don''t know how to tell you this but... Vanya is my number one!"'
+			'You pout and cross your arms. "That''s not fair. I can''t fuck my way to the number one spot like he can!" you say before the two of you burst into laughter.'
+		else
+			'"I''ve been thinking of going all in and dying my hair to match the color of the outfits I wear. What do you think?" Vicky asks as she runs her fingers through her red hair.'
+			'You can''t help but laugh at her odd question. "Uhmm, you wear a different color every day. Do you know what will to your hair after a week?"'
+			'Vicky is silent for a while before shrugging. "No?"'
+			'"Bald. You will definitely be bald after a week of dying your hair..." You and Vicky then spend the rest of break joking back and forth.'
+		end
+	elseif npc_rel['A15'] <= 20:
+		if grupTipe = 1 or grupTipe = 2:
+			'"I know we''re both ''popular'' which means we should be friends, but I would honestly rather have people think I let Lera''s creepy brother finger me than spend another minute talking to you!" Vicky throws her hands up and shrugs.'
+		else
+			'"Do you hear that <<$pcs_nickname>>?" Vicky interrupts you mid sentence. You go quiet and listen carefully, but don''t hear anything unusual.'
+			'"Listen carefully... that''s the sound of me running away from this conversation. See ya!"'
+			'Before you can respond, she takes off down the hallway.'
+		end
+	else
+		'It can be hard to follow Vicky as she keeps up a lively conversation, jumping from one topic to another, but you don''t really mind and find her upbeat attitude intoxicating.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'stasya':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A139', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/stasya/beach_chat.jpg"></center>'
+	if grupTipe = 1:
+		if npc_rel['A139'] >= 50:
+			'When Stasya sees you, she smiles and waves. "Glad you showed up, was just discussing which boy is cutest other than Andrey of course." she tells you, it seems her and Bella can''t agree on which of the boys are the cutest, you join in with their ranking of the boys. The conversation is rather fun.'
+		elseif npc_rel['A139'] <= 20:
+			'"Don''t think that just because we''re in the same clique, we''re going to be best buddies." Stasya tells you. Despite that, she doesn''t run you off as you hang around to talk, though she pretty much ignores you while she talks to others.'
+		else
+			'You spend some time conversing with Stasya until she holds out her hand to stop you from talking. "I don''t mean to cut you off, but I need to see Andrey." She gives you a half-assed apologetic smile before walking off in search of her elusive boyfriend.'
+		end
+	elseif grupTipe = 2:
+		if npc_rel['A139'] >= 50:
+			'When Stasya sees you, she smiles and waves. "Glad you showed up, was just discussing which boy is cutest other than Andrey of course." she tells you, it seems her and Bella can''t agree on which of the boys are the cutest, you join in with their ranking of the boys. The conversation is rather fun.'
+		elseif npc_rel['A139'] <= 20:
+			'"What do you want? Don''t you have some balls to play with?" Stasya says with a smirk. Despite that, she doesn''t run you off as you hang around to talk, though she pretty much ignores you while she talks to others.'
+		else
+			'You spend some time conversing with Stasya until she holds out her hand to stop you from talking. "I don''t mean to cut you off, but I need to see Andrey." She gives you a half-assed apologetic smile before walking off in search of her elusive boyfriend.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A139'] >= 50:
+			'She stares at you approaching. "Are you lost or something?" Bella and Irina giggle at her remark and she turns and ignores you, talking with Bella and Irina instead, who also ignore you. They sometimes respond to your comments or questions, mostly acting like how adults act when small children try to take part in adult conversations.'
+		elseif npc_rel['A139'] <= 20:
+			'"Don''t even fucking think about it!" Stasya warns when you try to approach. She stares you down until you finally back away.'
+		else
+			'She stares at you approaching. "What do you want? Never mind I don''t want to know." She turns and ignores you, talking with Bella and Irina instead, who also ignore you. At least they don''t chase you off.'
+		end
+	else
+		if npc_rel['A139'] >= 50:
+			'She looks you over from head to toe before she scoffs. "What?"'
+			'You smile at her. "I just wanted to talk."'
+			'She rolls her eyes and starts talking to Bella and Irina. They mostly ignore you, but do respond to a few of your questions and comments as they talk about boys and fashion.'
+		else
+			'She stares at you approaching. "What do you want? Never mind I don''t want to know." She turns and ignores you, talking with Bella and Irina instead, who also ignore you. At least they don''t chase you off.'
+		end
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'irina':
+	*clr & cla
+	menu_off = 1
+	minut += 20
+	chrsm_exp += rand(1,2)
+	gs 'npc_relationship', 'modify', 'A17', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/irina/beach_chat.jpg"></center>'
+	if npc_rel['A17'] >= 50:
+		if grupTipe = 1 or grupTipe = 2:
+			'When Irina sees you, she smiles and waves. "Glad you showed up, was just discussing which boy is cutest." she tells you, it seems her and Bella can''t agree on which of the boys are the cutest, you join in with their ranking of the boys. The conversation is rather fun.'
+		else
+			'It''s easy to please Irina since she likes to talk about herself. So long as you ask her about herself and don''t interrupt her, she''s more than happy to talk with you.'
+		end
+	elseif npc_rel['A17'] <= 20:
+		if grupTipe = 1 or grupTipe = 2:
+			'Irina listens to you talking with a tired and bored expression. "Oh god, I think I''d rather talk to Lesco..." she yawns before brushing you off. "I''ve heard enough. Go bother Stasya."'
+		else
+			'You try to make small talk with Irina, and to your surprise, she doesn''t instantly turn you away. Seeing as though she hasn''t said anything yet, you keep talking to her, even if she hasn''t said much... of anything yet. Falling quiet, you hear the faint sound of music and realize she''s being wearing earpods this whole time.'
+			'With comical timing, Irina pulls them out when she finally notices you standing next to her. "What do you want?" she sneers.'
+		end
+	else
+		'She looks you over from head to toe before she scoffs. "What?"'
+		'You smile at her. "I just wanted to talk."'
+		'She rolls her eyes and starts talking to Bella and Stasya. They mostly ignore you, but do respond to a few of your questions and comments as they talk about boys and fashion.'
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+if $ARGS[0] = 'sonia':
+	*clr & cla
+	menu_off = 1
+	chrsm_exp += rand(1,2)
+	minut += 20
+	gs 'npc_relationship', 'modify', 'A25', 'like'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/sonia/beach_chat.jpg"></center>'
+	if grupTipe = 1 or grupTipe = 2:
+		if npc_rel['A139'] >= 50:
+			'You walk over and take a seat on the sand next to her and soon the two of you start talking about some of your recent nights out and it seems like Sonia really wants to just cut loose.'
+		elseif npc_rel['A139'] <= 20:
+			'You spend some time talking with Sonia, but she ends up focusing more on getting a tan and rarely responds to you, which is a bit disappointing, but at least she stuck around.'
+		else
+			'"What are you up to?" you ask as you watch her laying back getting a tan.'
+			'"Just trying to get a tan so I am not so white." Sonia sighs as she looks over at you.'
+			'You can''t help but laugh and tease her a little. In the end, the two of you end up talking about how to get the best tan and how much guys like tan girls.'
+		end
+	elseif grupTipe = 3:
+		if npc_rel['A139'] >= 50:
+			'"Hey Sonia!" you greet her with a smile and she gives you a friendly little wave.'
+			'"What''s up neeeeerd?" she asks with a giggle and you tell her you just wanted to hang out for a bit. With Sonia being so friendly, you slip into an easygoing banter with her for the rest of break.'
+		elseif npc_rel['A139'] <= 20:
+			'You spend some time talking with Sonia, but she ends up focusing more on getting a tan and rarely responds to you, which is a bit disappointing, but at least she stuck around.'
+		else
+			'"Hey Sonia!" you greet her with a smile and gives you a friendly little wave.'
+			'"What''s up <<$pcs_nickname>>?" she asks and you tell her you just wanted to hang out for a bit. "Sure, I''ve got some time."'
+			'With Sonia being so friendly, you slip into an easygoing banter with her for the rest of break.'
+		end
+	else
+		if npc_rel['A139'] >= 50:
+			'"Hey Sonia!" you greet her with a smile and she gives you a friendly little wave.'
+			'"What''s up? Mind if I ask you some questions?" she asks and you shrug. She launches into a barrage of questions about partying with your fellow gopniks. What they''re like, what it''s like to run wild, etc. She seems very interested in what you and the other gopniks do for fun and you talk for a while, mostly sharing some of your favorite stories.'
+		elseif npc_rel['A139'] <= 20:
+			'You spend some time talking with Sonia, but she ends up focusing more on getting a tan and rarely responds to you, which is a bit disappointing, but at least she stuck around.'
+		else
+			'"Hey Sonia!" you greet her with a smile and she gives you a friendly little wave.'
+			'"What''s up <<$pcs_nickname>>?" she asks and you tell her you just wanted to hang out for a bit. "Sure, I''ve got some time."'
+			'With Sonia being so friendly, you slip into an easygoing banter with her for awhile.'
+		end
+	end
+	act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
+end
+
+--- pav_beach_chat ---------------------------------

locations/pav_clinic.qsrc

@@ -107,7 +107,7 @@ if $ARGS[0] = '':
 				minut += 60
 				pcs_mood -= 15
 				money += 100
-				gs 'sweat', 'add', 20
+				gs 'sweat', 'add', 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
 				'As instructed, you take a mop and a bucket from the maintenance closet and begin by cleaning the corridors throughout the clinic. Once you''re done with that, you enter the examination rooms and offices one by one, occasionally hearing a softly muttered curse from a doctor when you interrupt their work. Nevertheless, you work quickly and the doctors don''t give you any trouble while you clean the floors of the rooms.'
@@ -153,26 +153,49 @@ if $ARGS[0] = '':
 					'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
 				end
 
-				if money >= zubpay:
-					act 'Sort out your teeth':
-						*clr & cla
-						money -= zubpay
-						minut += 60
-						gs 'body_shape', 'basebeautycalc', 1
-						gs 'stat'
-						if pcs_teeth > 0:
-							pcs_teeth = 0
-							'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
-						else
-							pcs_teeth = -1
-							'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+				if money < zubpay and karta < zubpay:
+					*nl
+					'You do not have enough money to fix your teeth.'
+				else
+					if money >= zubpay:
+						act 'Sort out your teeth (cash)':
+							*clr & cla
+							money -= zubpay
+							minut += 60
+							gs 'body_shape', 'basebeautycalc', 1
+							gs 'stat'
+							if pcs_teeth > 0:
+								pcs_teeth = 0
+								'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+							else
+								pcs_teeth = -1
+								'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+							end
+
+							act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
 						end
+					end
+					if karta >= zubpay:
+						act 'Sort out your teeth (card)':
+							*clr & cla
+							karta -= zubpay
+							minut += 60
+							gs 'body_shape', 'basebeautycalc', 1
+							gs 'stat'
+							if pcs_teeth > 0:
+								pcs_teeth = 0
+								'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+							else
+								pcs_teeth = -1
+								'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+							end
 
-						act 'Leave the clinic': minut += 5 & gt 'city_residential'
+							act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
+						end
 					end
-				end
+				end				
 					
-				act 'Leave the clinic': minut += 5 & gt 'city_residential'
+				act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
 			end
 		end
 
@@ -203,41 +226,69 @@ if $ARGS[0] = '':
 
 				if glass = 1:'The doctor adds, there is also the option to buy glasses for 4,500 <b>₽</b>.'
 
-				act 'Return to the entrance':gt 'city_clinic', 'start'
+				act 'Return to the entrance':gt 'pav_clinic'
 
 				if glass = 1:
-					if money >= 4500:
-						act 'Buy glasses (4,500 <b>₽</b>)':
-							cls
-							money -= 4500
-							minut += 60
-							glass = 2
-							gs 'stat'
-							'You buy a new, more stylish pair of glasses.'
-
-							act 'Return to the entrance':gt 'city_clinic', 'start'
-						end
-					else
+					if money < 4500 and karta < 4500:
 						*nl
 						'You can not afford the more stylish glasses.'
+					else
+						if money >= 4500:
+							act 'Buy glasses (4,500 <b>₽</b>) (cash)':
+								cls
+								money -= 4500
+								minut += 60
+								glass = 2
+								gs 'stat'
+								'You buy a new, more stylish pair of glasses.'
+
+								act 'Return to the entrance':gt 'pav_clinic'
+							end
+						end
+						if karta >= 4500:
+							act 'Buy glasses (4,500 <b>₽</b>) (card)':
+								cls
+								karta -= 4500
+								minut += 60
+								glass = 2
+								gs 'stat'
+								'You buy a new, more stylish pair of glasses.'
+
+								act 'Return to the entrance':gt 'pav_clinic'
+							end
+						end
 					end
 				end
 
 				if glass ! 0:
-					if money >= 75000:
-						act 'Pay for laser correction (75,000 <b>₽</b>)':
-							cls
-							money -= 75000
-							minut += 60
-							blizoruk = 0
-							glass = 0
-							gs 'stat'
-							'You undergo laser eye surgery. Your eyesight is much better now.'
-							act 'Return to the entrance':gt 'city_clinic', 'start'
-						end
-					else
+					if money < 75000 and karta < 75000:
 						*nl
 						'You can not afford the laser eye correction surgery.'
+					else
+						if money >= 75000:
+							act 'Pay for laser correction (75,000 <b>₽</b>) (cash)':
+								cls
+								money -= 75000
+								minut += 60
+								blizoruk = 0
+								glass = 0
+								gs 'stat'
+								'You undergo laser eye surgery. Your eyesight is much better now.'
+								act 'Return to the entrance':gt 'pav_clinic'
+							end
+						end
+						if karta >= 75000:
+							act 'Pay for laser correction (75,000 <b>₽</b>) (card)':
+								cls
+								karta -= 75000
+								minut += 60
+								blizoruk = 0
+								glass = 0
+								gs 'stat'
+								'You undergo laser eye surgery. Your eyesight is much better now.'
+								act 'Return to the entrance':gt 'pav_clinic'
+							end
+						end
 					end
 				end
 			end
@@ -262,86 +313,7 @@ if $ARGS[0] = '':
 
 		gs 'medical_din', 'birth_control'
 
-		act 'Go to the sexual health clinic':
-			*clr & cla
-			menu_off = 1
-			minut += 1
-			gs 'stat'
-			'<center><b>Sexual Health Clinic</b></center>'
-			*nl
-			'<center>STD Test - 1,000 <b>₽</b></center>'
-			'<center>For treatments, see the nurse</center>'
-
-			act 'Leave':gt 'pav_clinic'
-
-			if money >= 1000:
-				act 'Get tested for STDs (1,000 <b>₽</b>)':
-					*clr & cla
-					money -= 1000
-					minut += 60
-					gs 'stat'
-					'The doctor has you provide some blood and urine, before examining you. Then he sends you out to wait in the waiting room while you wait for the test results to come back.'
-
-					if venera > 0 or Kandidoz > 10:
-						'The doctor calls you back to his office after a while, and says with a slight frown: "I''m afraid I have some bad news."'
-						gs 'pav_clinic', 'std_check'
-					else
-						'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
-					end
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-
-			if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
-				act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
-					*clr & cla
-					money -= 450
-					minut += 15
-					GerpesUkolDay = daystart
-					GerpesNapr -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-
-			if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
-				act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
-					*clr & cla
-					money -= 750
-					minut += 15
-					TriperUkolDay = daystart
-					TriperNapr -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-			if money >= 1000 and SifNapr = 1:
-				act 'Get syphilis shot (1,000 <b>₽</b>).':
-					*clr & cla
-					menu_off = 1
-					money -= 1000
-					minut += 60
-					SifNapr = 0
-					SifacOnce = 0
-					Sifilis = 0
-					Venera -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					'"That''s it, you might still feel a bit off but the infection is now cured".'
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-		end
+		act 'Go to the sexual health clinic': gt 'pav_clinic', 'sexual_health'
 
 		if sick >= 1:
 			act 'Visit the doctor for your sickness':
@@ -708,6 +680,142 @@ if $ARGS[0] = '':
 	end
 end
 
+if $ARGS[0] = 'sexual_health':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	'<center><b>Sexual Health Clinic</b></center>'
+	*nl
+	'<center>STD Test - 1,000 <b>₽</b></center>'
+	'<center>For treatments, see the nurse</center>'
+
+	act 'Leave':gt 'pav_clinic'
+
+	if money >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
+			money -= 1000
+			gs 'pav_clinic', 'std_test'
+		end
+	end
+
+	if karta >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
+			karta -= 1000
+			gs 'pav_clinic', 'std_test'
+		end
+	end
+
+	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
+		if money < 450 and karta < 450: *nl & 'You cannot afford your herpes shot.'
+
+		if money >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (cash). You need <<GerpesNapr>> more injections to complete the treatment.':
+				money -= 450
+				gs 'pav_clinic', 'herpes_shot'
+			end
+		end
+
+		if karta >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (card). You need <<GerpesNapr>> more injections to complete the treatment.':
+				karta -= 450
+				gs 'pav_clinic', 'herpes_shot'
+			end
+		end
+	end
+
+	if TriperNapr > 0 and TriperUkolDay ! daystart:
+		if money < 750 and karta < 750: *nl & 'You cannot afford your gonorrhea shot.'
+
+		if money >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (cash). You need <<TriperNapr>> more injections to complete the treatment.':
+				money -= 750
+				gs 'pav_clinic', 'gonorrhea_shot'
+			end
+		end
+
+		if karta >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (card). You need <<TriperNapr>> more injections to complete the treatment.':
+				karta -= 750
+				gs 'pav_clinic', 'gonorrhea_shot'
+			end
+		end
+	end
+
+	if SifNapr = 1:
+		if money < 1000 and karta < 1000: *nl & 'You cannot afford your syphilis shot.'
+
+		if money >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (cash)':
+				money -= 1000
+				gs 'pav_clinic', 'syphilis_shot'
+			end
+		end
+
+		if karta >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
+				karta -= 1000
+				gs 'pav_clinic', 'syphilis_shot'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'std_test':
+	minut += 60
+	gs 'stat'
+	'The doctor has you provide some blood and urine, before examining you. Then he sends you out to wait in the waiting room while you wait for the test results to come back.'
+
+	if venera > 0 or Kandidoz > 10:
+		'The doctor calls you back to his office after a while, and says with a slight frown: "I''m afraid I have some bad news."'
+		gs 'pav_clinic', 'std_check'
+	else
+		'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
+	end
+
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'herpes_shot':
+	*clr & cla
+	minut += 15
+	GerpesUkolDay = daystart
+	GerpesNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'gonorrhea_shot':
+	*clr & cla
+	minut += 15
+	TriperUkolDay = daystart
+	TriperNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
+
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'syphilis_shot':
+	*clr & cla
+	minut += 60
+	SifNapr = 0
+	SifacOnce = 0
+	Sifilis = 0
+	Venera -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	'"That''s it, you might still feel a bit off but the infection is now cured".'
+
+	act 'Leave':gt 'pav_clinic'
+end
+
 if $ARGS[0] = 'referral':
 	menu_off = 1
 	if pcs_vag = 0 and stat['hidden_vaginal'] = 0:
@@ -1120,7 +1228,7 @@ if $ARGS[0] = 'spravka_money':
 		'The doctor strokes his chin as he thinks, and offers: "<<$pcs_nickname>>, I don''t know... I''m not here for the money. However, a private patient wouldn''t count as a minor, so I would have no obligation to tell your mother."'
 		'He continues: "The standard consultancy fee is 2,000 <b>₽</b>."'
 		if money >= 2000:
-			act 'Pay him the 2,000 <b>₽</b>':
+			act 'Pay him the 2,000 <b>₽</b> (cash)':
 				*clr & cla
 				minut += 5
 				money -= 2000
@@ -1134,6 +1242,21 @@ if $ARGS[0] = 'spravka_money':
 				act 'Leave':gt 'pav_clinic'
 			end
 		end
+		if karta >= 2000:
+			act 'Pay him the 2,000 <b>₽</b> (card)':
+				*clr & cla
+				minut += 5
+				karta -= 2000
+				gs 'stat'
+				Gspravka = 30
+				GspravkaT = 1
+				Gspassed = 1
+				forge_referral = 1
+				'Without giving it much thought, you say: "Deal!"'
+				'It''s not cheap, but this way you get another month to think of a solution before your mother finds out you are not a virgin. Dr. Petrovich produces a card reader and you make the payment, then fills out a form stating you are a virgin. He stamps it and hands it to you, and you carefully put it in your pocket while thanking him.'
+				act 'Leave':gt 'pav_clinic'
+			end
+		end
 		act 'Just accept the referral as is':gt 'pav_clinic', 'badend'
 		act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange'
 	else
@@ -1159,18 +1282,25 @@ if $ARGS[0] = 'spravka_money_pale':
 		'A gleam of greed appears in his eyes, you definitely have his attention. He offers: "However, a private patient wouldn''t count as a minor, so I would have no obligation to tell anyone anything. It would be like you were never here!"'
 		'He continues: "The normal consultancy fee is 2,000 <b>₽</b>."'
 		if money >= 2000:
-			act 'Pay him the 2,000 <b>₽</b>':
+			act 'Pay him the 2,000 <b>₽</b> (cash)':
 				*clr & cla
 				minut += 5
 				money -= 2000
 				pcs_horny += 5
 				gs 'stat'
 				'The doctor carefully counts the money, and then goes and prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
-				'He tells you to bend over. He seems to have some problems finding the correct spot for the shot and you feel his hand squeezing your ass cheeks in several spots. What''s taking him so long?'
-				'For a moment you you''re afraid he has to stick the needle in your asshole, as he even rubs you there. Fortunately, he finally settles on a location and swabs it with some disinfectant.'
-				'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
-				'"There, all done," the doctor says with a satisfied tone. He warns you: "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more, or the cure will not work."'
-				act 'Leave':gt 'pav_clinic'
+				gs 'pav_clinic', 'spravka_money_pale2'
+			end
+		end
+		if karta >= 2000:
+			act 'Pay him the 2,000 <b>₽</b> (card)':
+				*clr & cla
+				minut += 5
+				karta -= 2000
+				pcs_horny += 5
+				gs 'stat'
+				'The doctor picks up his card reader and you make the payment, then goes and prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
+				gs 'pav_clinic', 'spravka_money_pale2'
 			end
 		end
 		act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange_pale'
@@ -1185,6 +1315,14 @@ if $ARGS[0] = 'spravka_money_pale':
 	end
 end
 
+if $ARGS[0] = 'spravka_money_pale2':
+	'He tells you to bend over. He seems to have some problems finding the correct spot for the shot and you feel his hand squeezing your ass cheeks in several spots. What''s taking him so long?'
+	'For a moment you you''re afraid he has to stick the needle in your asshole, as he even rubs you there. Fortunately, he finally settles on a location and swabs it with some disinfectant.'
+	'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
+	'"There, all done," the doctor says with a satisfied tone. He warns you: "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more, or the cure will not work."'
+	act 'Leave':gt 'pav_clinic'
+end
+
 if $ARGS[0] = 'spravka_arrange_pale':
 	*clr & cla
 	minut += 5

locations/pav_disco_coolkids.qsrc

@@ -1156,12 +1156,7 @@ if $ARGS[0] = 'igor':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'You decide to tease Igor a little. "I hope you''re not too sore after last time." you whisper with a smirk. Igor''s cheeks flush pink as he looks around nervously, hoping no one overheard.'
-					act 'Just chat':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-						'You don''t press it and start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-						act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-					end
+					act 'Just chat': gt 'pav_disco_coolkids', 'igor_hang_out'	
 					act 'Tell him you have a surprise':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
@@ -1175,20 +1170,13 @@ if $ARGS[0] = 'igor':
 							'You laugh a little. "You <i>are</i> eager! You must really love it..."'
 							'He blushes bright red. "I... I..."'
 							'You raise a hand to caress his cheek. "It''s okay, I was just messing with you. You''re right, it''s too risky. I didn''t think you would agree."'
-							'He looks a little sheepish. "Oh..."'
-							act 'Just chat':
-								*clr & cla
-								'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-								'You don''t press it and start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-								act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-							end
+							'He looks a little sheepish. "Oh..." You don''t press it.'
+							act 'Just chat':  gt 'pav_disco_coolkids', 'igor_hang_out'	
 						end
 					end
 				end
-			else
-				'You start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 			end
+			act 'Hang out with him': gt 'pav_disco_coolkids', 'igor_hang_out'
 		elseif grupTipe = 5:
 			'When you get near him, he glances at some of the other cool kids and then back to you. "Go bother someone else."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1196,27 +1184,7 @@ if $ARGS[0] = 'igor':
 			'You know he doesn''t have many friends, so he''s more than happy that you want to hang out with him. Unlike most boys, Igor is really attentive and listens to everything you say, even taking an interest in the more "girly" topics.'
 			'"Oh, it''s not that weird." Igor blushes. "I have a sister, so I hear about these things all the time..."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			act 'Hang out with him':
-				*clr & cla
-				minut += 15
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-				'The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
-				act 'No':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-					'You shake your head. "Not right now. Maybe some other time."'
-					'He looks a bit crestfallen. "Oh okay... Uh yeah, it was silly. I don''t know why I asked. Anyway, I need to use the restroom." Before you can get another word in, he hurries off towards the restrooms.'
-					act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-				end
-				act 'Yes':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-					'You nod your head and smile warmly at him. "Yes, yes I would."'
-					'He lights up and has a huge grin on his face. "Great!... I mean it''s good that you want to." He blushes at his outburt before taking you by the hand and shyly leading you out onto the dance floor.'
-					act 'Go dancing': gt 'pav_disco_coolkids', 'igor_dance'
-				end
-			end
+			act 'Hang out with him': gt 'pav_disco_coolkids', 'igor_hang_out'	
 		elseif npc_rel['A4'] <= 20 and fame['pav_slut'] < 200:
 			if grupTipe = 1:
 				'The conversation feels forced as Igor makes almost no effort to talk to you. You get the feeling he''s just doing this as a courtesy since you''re in the same clique.'
@@ -1245,6 +1213,32 @@ if $ARGS[0] = 'igor':
 	end
 end
 
+if $ARGS[0] = 'igor_hang_out':
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+	if IgorLoverQW > 0:
+		'You start talking to him about a variety of topics while holding hands. The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
+	else
+		'The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
+	end
+	act 'No':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+		'You shake your head. "Not right now. Maybe some other time."'
+		'He looks a bit crestfallen. "Oh okay... Uh yeah, it was silly. I don''t know why I asked. Anyway, I need to use the restroom." Before you can get another word in, he hurries off towards the restrooms.'
+		act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
+	end
+	act 'Yes':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+		'You nod your head and smile warmly at him. "Yes, yes I would."'
+		'He lights up and has a huge grin on his face. "Great!... I mean it''s good that you want to." He blushes at his outburt before taking you by the hand and shyly leading you out onto the dance floor.'
+		act 'Go dancing': gt 'pav_disco_coolkids', 'igor_dance'
+	end
+end
+
 if $ARGS[0] = 'igor_dance':
 	*clr & cla
 	minut += 15

locations/pav_disco_sex.qsrc

@@ -548,7 +548,7 @@ if $ARGS[0] = 'kissing':
 											if boynumBlock = 0: guy += 1
 											if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1
 
-											facial += 1
+											
 											spafinloc = 11
 											gs 'cum_manage'
 											spafinloc = 7
@@ -1887,7 +1887,7 @@ if $ARGS[0] = 'hotelsex':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 					'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
@@ -1924,7 +1924,7 @@ if $ARGS[0] = 'hotelsex':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 					'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
 					if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -1948,7 +1948,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
 						if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -2005,7 +2005,7 @@ if $ARGS[0] = 'hotelsex':
 								*clr & cla
 								spafinloc = 11
 								gs 'cum_manage'
-								facial += 1
+								
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 								'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 								'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
@@ -2073,7 +2073,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
@@ -2139,7 +2139,7 @@ if $ARGS[0] = 'hotelsex':
 						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 						'You keep sucking his dick for a while longer, before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
 						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
@@ -2173,7 +2173,7 @@ if $ARGS[0] = 'hotelsex':
 							*clr & cla
 							spafinloc = 11
 							gs 'cum_manage'
-							facial += 1
+							
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 							'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
 							if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
@@ -2197,7 +2197,7 @@ if $ARGS[0] = 'hotelsex':
 								*clr & cla
 								spafinloc = 11
 								gs 'cum_manage'
-								facial += 1
+								
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
 								'After he fucks your ass for a while, you turn to look over your shoulder and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
 								if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'

locations/pav_lake.qsrc

@@ -1,4 +1,5 @@
 # pav_lake
+!2022/01/19
 
 CLOSE ALL
 if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
@@ -60,6 +61,15 @@ if storyline = 1 and (month <= 2 or month = 12):
 	end
 end
 
+if storyline = 1 and temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9 and hour >= 12 and hour <= 14 and ((kankuli = 0 and week = 7) or week mod 2 = 0):
+	if $clothingworntype = 'nude':
+		'As you walk down to the beach area of the lake you see a group of kids from your school hanging out on the beach. It looks like it is the jocks and cool kids. You hope none of them have seen you naked, it would be such a scandal if they seen you like this. You should put on a bikini before approaching them if you want to hang out, or just avoid them and do your own thing today.'
+	else
+		'As you walk down to the beach area of the lake you see a group of kids from your school hanging out on the beach. It looks like it is the jocks and cool kids.'
+		act 'Head towards your class mates': gt 'pav_lake', 'school_mates'
+	end
+end
+
 if StoryLine = 1 and SchoolAtestat = 0 and ((month >= 3 and month <= 5) or (month >= 9 and month <= 11)) and week <= 5 and hour >= 15 and hour <= 20 and (christinaQW['dompath'] >= 6 or christinaQW['subpath'] = 1) and socialchg['tChristina_day'] ! daystart:
 	if christinaQW['subpath'] = 1:
 		'<a href="exec:gt ''Zvereva_sub_1'', ''chris_sub''">Christina</a> is standing by the beach looking out over the lake as Lina stands next to her, breathing heavily.'
@@ -573,6 +583,65 @@ if $ARGS[0] = 'skating':
 	end
 end
 
+if $ARGS[0] = 'school_mates':
+	*clr & cla
+	minut += 2
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/beach_hangout/school_mates.jpg"></center>'
+	if fame['pav_slut'] >= 225:
+		'You start walking over to them and you start getting disgusted stares from several of them. Soon several are making rude comments, finally Dimka comes over with Svyatoslav. "Get lost slut, we don''t want you here." You sigh as it is obvious if you try and push this, nothing good will come of it. So you turn and walk away.'
+		act 'Leave': gt'pav_lake'
+	elseif grupTipe = 1 or grupTipe = 2:
+		'You start walking over to them and most give you friendly smiles or waves, several wave you to come over and join them.'
+		act 'Leave': gt 'pav_lake'
+		act 'Join them': gt 'pav_lake', 'beach_hangout'
+	elseif grupTipe = 3 or grupTipe = 4:
+		'You start walking over to them and most just ignore you until you start to get close then several of them give you annoyed looks, making it clear you are not really welcome here, but none of them seem like they are going to stop you from joining them at least.'
+		act 'Leave': gt 'pav_lake'
+		act 'Join them': gt 'pav_lake', 'beach_hangout'
+	else
+		'You start walking over to them and you start getting annoyed stares from several of them. Soon several are making rude comments, finally Dimka comes over with Svyatoslav. "Get lost loser, we don''t want you here." You sigh as it is obvious if you try and push this, nothing good will come of it. So you turn and walk away.'
+		act 'Leave': gt'pav_lake'
+	end
+end
+
+if $ARGS[0] = 'beach_hangout':
+	*clr & cla
+	minut += 5
+	!!Cool kids aprove of high quality bikini or outfit and disaprove of low quality
+	if PCloQuality >= 4: 	
+		grupvalue[1] += 1
+	elseif PCloQuality  < 3: 	
+		grupvalue[1] -= 1
+	end
+	!!Cool kids and jocks aprove of somewhat revealing clothes or a little skimpy bikini and disaprove of conseravite clothes or bikinis and very revealing clothes or very skimpy bikini
+	if PCloInhibit >= 35:
+		grupvalue[1] -= 1
+		grupvalue[2] -= 1
+	elseif PCloInhibit >= 20:
+		grupvalue[1] += 1
+		grupvalue[2] += 1
+	elseif PCloInhibit <= 10:
+		grupvalue[1] -= 1
+		grupvalue[2] -= 1
+	end
+	!!Jocks disaprove of a one piece swimsuite
+	if PCloswimwear = 1 and PCloOnePiece = 1:
+		grupvalue[2] -= 1
+	end
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/beach_hangout/beach_hangout.jpg"></center>'
+	if grupTipe = 1 or grupTipe = 2:
+		'You smile to your friends and take a seat with them and soon are joining in on the variety of conversations going on. Some of them are tanning, others sitting around talking, while a few are just horsing around. You spend some time just talking to a few of them catching up. You could use this chance to get to know one of them better if you wanted to.'
+		act 'Leave': gt'pav_lake'
+		act 'Talk to one of them': gt 'pav_beach_chat', 'start'
+	else
+		'You smile and take a seat with them, you get a mix of responses. The ones you know better seem at least somewhat friendly, most of the rest range from looking annoyed that you are here to indifference, many just ignore you. Some of them are tanning, others sitting around talking, while a few are just horsing around. You spend some time trying to get involved in the varies conversations going on and meet limited success. You could use this chance to get to know one of them better if you wanted to.'
+		act 'Leave': gt'pav_lake'
+		act 'Talk to one of them': gt 'pav_beach_chat', 'beach_hangout'
+	end
+end
+
 
 --- pav_lake ---------------------------------
 

locations/pav_park.qsrc

@@ -13,6 +13,7 @@ if $ARGS[0] = 'start':
 	$locclass = 'city_park'
 	menu_off = 0
 	gs 'stat'
+	gs 'vicky_meynold_schedule'
 
 	if sound = 0:
 		if month >=11 and month <= 12 or month >=1 and month <=3:
@@ -142,7 +143,7 @@ if $ARGS[0] = 'start':
 		menu_off = 1
 		if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1', 1
 
-		if StoryLine = 1 and SchoolAtestat = 0 and mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart and ((week > 5 and hour >= 8 and hour < 20) or (week < 6 and week mod 2 = 1 and hour > 14)):
+		if StoryLine = 1 and SchoolAtestat = 0 and mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 11:
 			gs 'mey_vika_events', 'park_meet'
 			gs 'stat'
 		else
@@ -233,7 +234,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if mey_vika['mey_vika_qw'] > 0 and mey_vika['mey_vika_qw'] < 27 and mey_vika['qw_day'] ! daystart:
-		if hour >= 20 or (week > 5 and hour < 8) or (week < 6 and week mod 2 = 0 and hour < 14) or (week mod 2 = 1 and hour < 18):
+		if locat['Vicky'] ! 11:
 			'<br>Vicky and Vanya never are in the park at this time.'
 		else
 			act 'Look for Vicky and Vanya (0:05)':

locations/pav_train_hall.qsrc

@@ -341,7 +341,7 @@ if $ARGS[0] = 'ind':
 	'After 35 minutes, the train stops at the St. Petersburg city industrial area station.'
 	act 'Get off the train':
 		if rand(1, 100) <= 5: gt 'train_incidental', 'end'
-		gt 'city_industrial_train', 'platform'
+		gt 'city_industrial_train', 'inside'
 	end
 end
 

locations/pornfilm.qsrc

@@ -166,7 +166,7 @@ if $ARGS[0] = '2':
 				act 'Open your mouth':
 					*clr & cla
 					minut += 5
-					facial += 1
+					
 					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
 					'<<$pakter[1]>> gives you a nod to let you know he is close, so you start quickly jerking him and stick your tongue out for him to shoot his load.'
 					cumnostd = 1
@@ -250,7 +250,7 @@ if $ARGS[0] = '3':
 						cumnostd = 1
 						gs 'cum_call', 'mouth_swallow', $pakterID[1], 1, 0, 0, 36
 						gs 'cum_call', 'face', $pakterID[1], 1, 0, 0, 4
-						facial += 1
+						
 						gs 'stat'
 						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
 						'<<$pakter[1]>> is pounding you hard in the missionary position, your legs spread high and wide as you talk dirty for the camera, when you hear him panting loudly and feel him pulling out of you. You slide off the bed onto your knees in front of him and he shoots his load across your face with a loud grunt.'
@@ -340,7 +340,7 @@ if $ARGS[0] = '4':
 						act 'Kneel down and open your mouth':
 							*clr & cla
 							minut += 5
-							facial += 1
+							
 							gs 'stat'
 							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
 							'<<$pakter[1]>> grabs you by the hips and really starts pounding your ass. Just as it''s starting to hurt, he pulls out of your ass and you quickly turn and kneel before him. He vigorously jerks his dick and his cum is soon splattering across your face and onto your tongue.'
@@ -436,7 +436,7 @@ if $ARGS[0] = '5':
 					act 'Facial':
 						*clr & cla
 						minut += 5
-						facial += 1
+						
 						pornswall += 1
 						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
 						'You are about to move around to clean up <<$pakter[1]>> when <<$pakter[2]>> grabs your head and shoots his load across your face. The two men say the most depraved things as cum slowly trickles down your face and out of your asshole.'
@@ -528,7 +528,7 @@ if $ARGS[0] = '6':
 						act 'Finish them':
 							*clr & cla
 							minut += 5
-							facial += 1
+							
 							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
 							'The guys tell you they''re close and both pull out. You grab <<$pakter[1]>>''s dick and begin to suck it.'
 							'As you suck his dick, your head is suddenly grabbed and you are turned around. <<$pakter[2]>> shoots his load across your face and into your mouth, <<$pakter[1]>> following him close behind.'
@@ -1403,7 +1403,7 @@ if $ARGS[0] = '14':
 				gs 'cum_call', 'hair', 'Porn Fan', 0, 0, 10000, 40
 			end
 			lip50 -= 1
-			facial += 1
+			
 		end
 		if lip50 > 0: jump 'gbface'
 		:gbass

locations/qwmeet.qsrc

@@ -447,7 +447,7 @@ if $ARGS[0] = 'qwbereg':
 							'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
 							'You took out a member and at this point Vladimir discharged directly on your face, covering it with warm and sticky cum.'
 							gs 'arousal', 'bj', 5, 'sub'
-							facial += 1
+							
 							gs 'cum_call','face', $boy,1
 							gs 'arousal', 'end'
 							gs 'stat'

locations/rex_events.qsrc

@@ -822,7 +822,7 @@ if $ARGS[0] = 'Party_rex_sex_cum':
 	sexpartkno = 1
 	sexvolume = 8
 	gs 'cum_manage'
-	facial += 1
+	
 	spafinloc = 11
 	sexpartkno = 1
 	sexvolume = 12

locations/rex_party_sexEvents.qsrc

@@ -173,7 +173,7 @@ if $ARGS[0] = 'ira_lena_rex_cum':
 		'Lena and Ira without hesitation began to lick up all the cum, then they kiss you and each other, sharing the taste of sperm with you.'
 		''
 	else
-		facial += 1
+		
 		spafinloc = 11
 		gs 'cum_manage'
 		spafinloc = 12
@@ -341,7 +341,7 @@ if $ARGS[0] = 'rex_sex_cum':
 	sexpartkno = 1
 	sexvolume = 8
 	gs 'cum_manage'
-	facial += 1
+	
 	spafinloc = 11
 	sexpartkno = 1
 	sexvolume = 12
@@ -371,7 +371,7 @@ if $ARGS[0] = 'rex_toilet_bj':
 	act 'Continue':
 		cls
 		gs 'arousal', 'bj', 8
-		facial += 1
+		
 		spafinloc = 12
 		gs 'cum_manage'
 		spafinloc = 11
@@ -703,7 +703,7 @@ if $ARGS[0] = 'orgy':
 	end
 	i = rand(1,2)
 	if i = 1:
-		facial += 1
+		
 		gs 'arousal', 'bj', 5, 'gangbang'
 		spafinloc = 12
 		gs 'cum_manage'
@@ -723,7 +723,7 @@ if $ARGS[0] = 'orgy':
 			*clr
 			gs 'arousal', 'vaginal', 30, 'group', 'gangbang'
 			gs 'arousal', 'bj', -30, 'group', 'gangbang'
-			facial += 1
+			
 			spafinloc = 12
 			gs 'cum_manage'
 			spafinloc = 11
@@ -785,7 +785,7 @@ if $ARGS[0] = 'gangbang_outdoor':
 			act 'Open your mouth':
 				cls
 				minut += 5
-				facial += 1
+				
 				cumprecheck = 1
 				gs 'cum_manage'
 				spafinloc = 8
@@ -971,7 +971,7 @@ if $ARGS[0] = 'gangbang_outdoor':
 			gs 'cum_manage'
 			if rand(0,5) = 5:
 				i = rand(0,16)
-				if i = 11: facial += 1
+				if i = 11: 
 				if i = 2 or i = 5: i -= 2
 				if i = 6: i = 1
 				if i = 7: i = 4
@@ -991,7 +991,7 @@ if $ARGS[0] = 'gangbang_outdoor':
 			gs 'cum_manage'
 			if rand(0,5) = 5:
 				i = rand(0,16)
-				if i = 11: facial += 1
+				if i = 11: 
 				if i = 2 or i = 5: i -= 2
 				if i = 6: i = 1
 				if i = 7: i = 4
@@ -1002,7 +1002,7 @@ if $ARGS[0] = 'gangbang_outdoor':
 			end
 			gs 'boyStat', $boy2
 			i = rand(0,16)
-			if i = 11: facial += 1
+			if i = 11: 
 			if i = 2 or i = 5: i -= 2
 			if i = 6: i = 1
 			if i = 7: i = 4
@@ -1013,7 +1013,7 @@ if $ARGS[0] = 'gangbang_outdoor':
 			if i = 0: i2 = 1
 			if rand(0,5) = 5:
 				i = rand(0,16)
-				if i = 11: facial += 1
+				if i = 11: 
 				if i = 2 or i = 5: i -= 2
 				if i = 6: i = 1
 				if i = 7: i = 4
@@ -1073,7 +1073,7 @@ if $ARGS[0] = 'gangbang_indoor':
 		act 'Take their cum':
 			cls
 			minut += 5
-			facial += 1
+			
 			cumprecheck = 1
 			gs 'cum_manage'
 			spafinloc = 15
@@ -1184,7 +1184,7 @@ if $ARGS[0] = 'boobs_yes':
 						minut += 5
 						spafinloc = 7
 						gs 'cum_manage'
-						facial += 1
+						
 						spafinloc = 11
 						gs 'cum_manage'
 						party_boys_in += 1
@@ -1324,7 +1324,7 @@ if $ARGS[0] = 'toilet_sex_events':
 					gs 'cum_manage'
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					i = rand(11,18)
 					if i = 11:
 						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<i>>.mp4"></video></center>'

locations/rex_party_smallEvents.qsrc

@@ -1178,7 +1178,7 @@ if $ARGS[0] = 'fun':
 						gs 'cum_manage'
 						spafinloc = 11
 						gs 'cum_manage'
-						facial += 1
+						
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_<<rand(6,12)>>.jpg"></center>'
 						'You open your mouth and stick out your tongue.'

locations/saveupdater.qsrc

@@ -215,6 +215,7 @@ end
 		telefon_rev = 2
 	end
 
+	if stat['cum_facial'] = 0: stat['cum_facial'] = facial & facial =0
 	if pee > 0: stat['pee'] += pee & killvar 'pee'
 	! Since the arousal calls are seeded in all the scenes where these two variables occur, once they''ve been added to the stat, they should always be less or equal to it.
 	if NatbelQW['pee'] > stat['pee_give']: stat['pee_give'] += NatbelQW['pee']

locations/seeporn.qsrc

@@ -170,7 +170,7 @@ act 'Watch it':
 						spafinloc = 11
 						sexpartkno = 1
 						gs 'cum_manage'
-						facial += 1
+						
 
 						if brotherSex < 6:brotherSex = 6
 						gs 'arousal', 'bj', -5, 'incest', 'sub'

locations/sexm.qsrc

@@ -364,7 +364,7 @@ if $ARGS[0] = 'minet':
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
 					'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
 				elseif tiprand = 3:
-					facial += 1
+					
 					spafinloc = 11
 					gs 'cum_manage'
 					loverrelation[lover_number] += 1
@@ -372,7 +372,7 @@ if $ARGS[0] = 'minet':
 					'You take his dick out of your mouth and point it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
 				end
 			elseif haraklover[lover_number] = 2:
-				facial += 1
+				
 				spafinloc = 11
 				gs 'cum_manage'
 				loverrelation[lover_number] += 1
@@ -720,14 +720,14 @@ if $ARGS[0] = 'blow':
 						'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
 						'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
 					elseif tiprand = 3:
-						facial += 1
+						
 						spafinloc = 11
 						gs 'cum_manage'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
 						'You take his dick out of your mouth and point it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
 					end
 				elseif haraklover[lover_number] = 2:
-					facial += 1
+					
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
@@ -821,7 +821,7 @@ if $ARGS[0] = 'gangbang':
 	gs 'cum_manage'
 	spafinloc = 12
 	gs 'cum_manage'
-	facial += 1
+	
 	pcs_vag += 1
 	pcs_ass += 1
 	pcs_throat += 1

locations/sexshop.qsrc

@@ -518,7 +518,7 @@ if $ARGS[0] = 'pip':
 					act 'Suck his dick':
 						cla
 						*clr
-						gloryhole += 1
+						stat['gloryhole'] += 1
 						swallow += 1
 						gs 'dinSex', 'std_trigger_oral'
 						ghprand = rand(1, 38)

locations/shop_pussycats.qsrc

@@ -662,7 +662,7 @@ if $ARGS[0] = '13':
 
 			act 'Close your eyes':
 				cla & *clr
-				facial += 1
+				
 				gs 'cum_call', 'face'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/cats/sex/young_shop_quest8.jpg"></center>'

locations/sny.qsrc

@@ -356,7 +356,7 @@ if $ARGS[0] = 'kiss':
 					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
-					facial += 1
+					
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/fa2.jpg"></center>'
 					'You suck on Gosha''s dick while Dimka fucks your pussy from behind. After a while, Gosha takes his dick out of your mouth, and a jet of sperm hits you in the face. Several more spurts join the first, splattering your face with his cum.'
@@ -367,7 +367,7 @@ if $ARGS[0] = 'kiss':
 					if condomDima = 1:
 						act 'Further':
 							*clr & cla
-							facial += 1
+							
 							spafinloc = 11
 							gs 'cum_manage'
 							gs 'stat'
@@ -379,7 +379,7 @@ if $ARGS[0] = 'kiss':
 					elseif condomDima = 0:
 					    act 'Further':
 							*clr & cla
-							facial += 1
+							
 							spafinloc = 11
 							gs 'cum_manage'
 							gs 'stat'

locations/stat.qsrc

@@ -90,7 +90,7 @@ end
 if lernSkill >= 8: intel_exp += 1 & lernSkill = 0
 if lern >= 10: intel_exp += 1 & lern = 0
 
-!! Katja leranign about you sexual experience from other sources becaus you are a slut.
+!! Katja learnign about you sexual experience from other sources because you are a slut.
 if fame['pav_slut'] >= 150 and stat['bj'] > 0 and katjaQW['knows_BJ'] ! 1: katjaQW['knows_BJ'] = 1
 if fame['pav_slut'] >= 250 or preg > 0 and stat['vaginal'] > 0 and katjaQW['knows_sex'] ! 1: katjaQW['knows_sex'] = 1