.gitignore

@@ -16,6 +16,8 @@ avatar.*
 *.rar
 *.zip
 VideoDecodeStats/
+tools/*.AppImage
+linux_build.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,37 +439,23 @@
 		<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_home"/>
-		<Location name="rex_party_events"/>
-		<Location name="rex_party_boys_events"/>
-		<Location name="rex_party_girls_events"/>
-		<Location name="rex_party_sister_events"/>
+		<Location name="rex_party_firstTime"/>
+		<Location name="rex_party"/>
+		<Location name="rex_party_smallEvents"/>
+		<Location name="rex_party_sexEvents"/>
 	</Folder>
 	<Folder name="Dima Nosov">
 		<Location name="dimaEv"/>
@@ -501,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"/>
@@ -508,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"/>
@@ -537,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"/>
@@ -604,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"/>
@@ -694,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"/>
@@ -716,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"/>
@@ -724,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"/>
@@ -754,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"/>
@@ -768,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"/>
@@ -815,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"/>
@@ -827,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"/>
@@ -858,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"/>
@@ -900,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"/>
@@ -920,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"/>
@@ -999,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"/>
@@ -1055,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"/>
@@ -1100,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"/>
@@ -1113,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

@@ -622,6 +622,13 @@ $cheatmenu['permanent'] = {
 	'</tr></table></b></center>'
 }
 
+$cheatmenu['therapist_reset'] = {
+	gs 'therapist'
+	dynamic $RestTherapyVariables
+	gs 'stat'
+	dynamic $cheatmenu['state']
+}
+
 $cheatmenu['state'] = {
 	gs'stat'
 	*clr & cla
@@ -697,6 +704,8 @@ $cheatmenu['state'] = {
 		end
 		'<font color="grey">Does <<$pcs_firstname>> know she induced lactation herself, or not? (This is only used for some events.)</font>'
 	end
+	*nl
+	'<a href="exec:dynamic $cheatmenu[''therapist_reset'']">Reset therapist states</a>'
 	'</tr></table></b></center>'
 }
 

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/FedorEv2.qsrc

@@ -800,7 +800,7 @@ if $ARGS[0] = 'Park 2':
 				FedorLuv += 2
 				gs 'boyStat', 'A5'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev2/park/swing4.jpg"></center>'
-				'You grab the back of Fedor''s neck then slowly pull it toward you while tilting your head forward until you feel Fedor''s lips make contact with yours. You passionately kiss Fedor while running your fingers though his hair gently. The kiss lasts for a few minutes but soon after you lower your head then look back up at Fedor''s eyes as he says, "<<$pcs_firstname>> you are such a great kisser and your lips are so soft." yuo give Fedor a smile as you reply, "Keep treating me right and I may do more for you in the future." Fedor returns the smile as he responds, "I''ll treat you better than "Right" just stay with me and I''ll show you how a woman should be treated. Anyway are you ready to head home or do you have some business in town to attend to?"'
+				'You grab the back of Fedor''s neck then slowly pull it toward you while tilting your head forward until you feel Fedor''s lips make contact with yours. You passionately kiss Fedor while running your fingers though his hair gently. The kiss lasts for a few minutes but soon after you lower your head then look back up at Fedor''s eyes as he says, "<<$pcs_firstname>> you are such a great kisser and your lips are so soft." You give Fedor a smile as you reply, "Keep treating me right and I may do more for you in the future." Fedor returns the smile as he responds, "I''ll treat you better than "Right" just stay with me and I''ll show you how a woman should be treated. Anyway are you ready to head home or do you have some business in town to attend to?"'
 				gs 'arousal', 'kiss', 10, 'dom'
 				gs 'arousal', 'end'	
 				gs 'stat'		

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/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:
@@ -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/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>'
 

locations/clothing_QV.qsrc

@@ -1,5 +1,5 @@
 # clothing_QV
-!!2021/04/15
+!!2022/01/20
 menu_off = 1
 
 if $ARGS[0] = 'list':
@@ -1284,21 +1284,21 @@ if $ARGS[0] = 'change':
 
 	if CloStyle2 = 4:
 		if CloInhibit <= 10:
-			'<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
+			'<font color="blue">This uniform is very conservative in style. Only the nerds would approve of you for wearing it.</font>'
 		elseif CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
 			if CloQuality >= 4:
-				'<font color="blue">This uniform complies with the regulations and is of good quality. It would certainly help you with your standing with the cool kids and jocks.</font>'
+				'<font color="blue">This uniform follows the school regulations and is of good quality. You would gain approval from both the cool kids and the jocks.</font>'
 			else
-				'<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
+				'<font color="blue">This uniform follows the school regulations on skirt length. Every student feels indifferent to you for wearing it.</font>'
 			end
 		elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
 			if CloQuality >= 4:
-				'<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of good quality. Everybody apart from the nerds would approve of you wearing it.</font>'
+				'<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of good quality. Students are, at least, indifferent to you for wearing it, except the disapproving looks from the nerds.</font>'
 			else
-				'<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
+				'<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you for wearing it.</font>'
 			end
 		else
-			'<font color="red">This uniform makes a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
+			'<font color="red">This uniform makes a mockery of the school regulations. Every students except the gopniks will think you a slut for wearing it.</font>'
 		end
 	end
 	act 'Return':gt 'clothing_QV', 'clothing_list', '<<$ward_list_store>>'

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_chats.qsrc

@@ -1,5 +1,5 @@
 # gschool_chats
-!2021/05/02
+!!2021/05/02
 
 if $ARGS[0] = 'nerds':
 	*clr & cla
@@ -44,10 +44,10 @@ if $ARGS[0] = 'nerds':
 				if soniaPS > 0: gs 'npc_relationship', 'modify', 'A25', 'like'
 				gs 'npc_relationship', 'modify', 'A159', 'like'
 				if grupTipe = 3:
-					'You go to the classroom that you and your fellow nerds like to gather in. You find them all clustered around a table talking and engaged in a variety of pet projects, as usual. Several of them look up at you as you walk in. A couple of the boys, especially Feofan, Artem and Petka look at you longer than the rest and Julia''s eyes also seem to linger on you for just a bit longer.'
+					'You enter the classroom that you and your fellow nerds like to hang out. You find them, as usual, all gathered around a table talking and engaging in various hobby projects. Few of them look up just as you walk closer. A couple of the boys, Feofan and Artem, are struggling to conceal their disapproving stares about your choosen uniform. Julia''s eyes also seem to linger on your attire for just a bit longer and you don''t feel her gaze is all that welcoming either.'
 					'Artem, Petka, Julia, Natasha, Zinaida, Evgeny, Feofan and Gerasim are sitting around some tables they''ve moved together.'
 				else
-					'You go to one of the classrooms that the nerds like to gather in. You find them all clustered around a table talking and engaged in a variety of pet projects. Several of them look up at you as you walk in. A couple of the boys, especially Feofan, Artem and Petka look at you longer than the rest and Julia''s eyes also seem to linger on you for just a bit longer.'
+					'You go to the classrooms that the nerdy students like to hang out. You find them, as always, all nerding around a table talking and engaging in various personal projects. Several of them look up just as you walk closer. A couple of the boys, Artem and Petka, both seem to be struggling to hide their judgmental stares about your choice of uniform. You don''t find the look Julia has in her eyes all that comforting either.'
 				end
 				*nl
 				gs 'gschool_groups', 'nerds'

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,8 @@ if $ARGS[0] = 'main':
 	menu_off = 0
 	killvar '$locclass'
 	*clr & cla
+	gs 'vicky_meynold_schedule'
+	gs 'katja_meynold_schedule'
 	gs 'stat'
 	'<center><b><font color="maroon">Outside School</font></b></center>'
 	if month >= 11 or month <= 3:
@@ -242,14 +244,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:
@@ -270,14 +272,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

@@ -18,6 +18,7 @@ end
 if $ARGS[0] = 'rexGdkTalk':
 	cla
 	if npc_rel['A57'] >= 40 and npc_rel['A57'] < 60:
+		gs 'npc_relationship', 'modify', 'A57', 'like'
 		rexTalk = rand(1,10)
 		if rexTalk <= 5:
 			'You talk with Rex about different topics.'
@@ -40,8 +41,8 @@ if $ARGS[0] = 'rexGdkTalk':
 			pcs_horny += 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/rexhistory1.jpg"></center>'
-			'You talk with Rex. He says "My friend, the bride, was so drunk, that after the party when everyone went to sleep, she plopped down in the wrong bed! In the dark she thought she was in bed with her new husband, so she began to fuck the guy, not realizing it was actually a friend of the groom, though clearly not the best! Well, he wasn''t going to turn her down! You don''t even want to know how that went over in the morning... Needless to say, they didn''t stay married" Rex is now laughing.'
-			'This topic of conversation excited you a little bit. '
+			'You talk with Rex. He says "My friend, the bride, was so drunk, that after the party when everyone went to sleep she plopped down in the wrong bed! In the dark she thought she was in bed with her new husband, so she began to fuck the guy, not realizing it was actually a friend of the groom, though clearly not the best! Well, he wasn''t going to turn her down! You don''t even want to know how that went over in the morning... Needless to say, they didn''t stay married" Rex is now laughing.'
+			'You find yourself getting a bit horny at the idea. '
 		elseif rexTalk < 5 and npc_rel['A57'] >= 80 and rexSisTalk < 4:
 			if rexSisTalk = 0:
 				'You talk with Rex. He says he also has an older sister Diana, who is studying to become a teacher in the city. She lives with the other students in the Dorm, but sometimes comes here on the weekends for vacation; the benefit of the city being only a day''s drive away.'
@@ -55,7 +56,7 @@ if $ARGS[0] = 'rexGdkTalk':
 				'<<$pcs_nickname>>, remember how I told you that my folks gave me an awesome new camera for my birthday? How about we go for a walk in the Park tomorrow? I want to take some photos there to show you how great its pictures are!'
 				act 'Agree':
 					cla
-					npc_rel['A57'] += 1
+					gs 'npc_relationship', 'modify', 'A57', 'love'
 					'That sounds like fun, let''s head out there at 16:00.'
 					'Cool, then tomorrow at 16:00 it is!'
 					rexPark = 1
@@ -64,7 +65,7 @@ if $ARGS[0] = 'rexGdkTalk':
 				end
 				act 'Bail':
 					cla
-					npc_rel['A57'] -= 3
+					gs 'npc_relationship', 'modify', 'A57', 'dislike'
 					'Tomorrow I''m a bit busy..., maybe another time.'
 					'Ah, OK...'
 					act 'Continue to drink beer': gt 'sister', 'scene2'
@@ -76,14 +77,14 @@ if $ARGS[0] = 'rexGdkTalk':
 				'<<$pcs_nickname>> remember, how I told you I''ve been stealing my father''s car keys while he''s not home? Tomorrow my folks are going to the city for their anniversary and it''s likely they will stay for the night. My father is going to be leaving his keys at home. Maybe we could go for a little ride around 21:00?'
 				act 'Bail':
 					cla
-					npc_rel['A57'] -= 5
+					gs 'npc_relationship', 'modify', 'A57', 'dislike'
 					'Maybe another time.'
 					'Ah... bummer, replied Rex.'
 					act 'Continue to drink beer': gt 'sister', 'scene2'
 				end
 				act 'Agree':
 					cla
-					npc_rel['A57'] += 1
+					gs 'npc_relationship', 'modify', 'A57', 'love'
 					'Sure! Why not?'
 					'Alright! Then tomorrow I''ll pick you up at your door around 21:00.'
 					rexCar = 1
@@ -96,14 +97,14 @@ if $ARGS[0] = 'rexGdkTalk':
 			'Rex offers to take you for a drive around 21:00 tonight.'
 			act 'Bail':
 				cla
-				npc_rel['A57'] -= 5
+				gs 'npc_relationship', 'modify', 'A57', 'dislike'
 				'Maybe another time.'
 				'Well, maybe next time...'
 				act 'Continue to drink beer': gt 'sister', 'scene2'
 			end
 			act 'Agree':
 				cla
-				npc_rel['A57'] += 1
+				gs 'npc_relationship', 'modify', 'A57', 'love'
 				'Yeah, let''s do it.'
 				'Great! I''ll be on your porch at 21:00 smiled Rex.'
 				rexCar = 1
@@ -112,6 +113,7 @@ if $ARGS[0] = 'rexGdkTalk':
 			end
 			exit
 		else
+			gs 'npc_relationship', 'modify', 'A57', 'like'
 			rexTalk = rand(1,6)
 		end
 		if rexTalk = 1:
@@ -128,7 +130,31 @@ if $ARGS[0] = 'rexGdkTalk':
 			'You talk with Rex, and each time you find yourself liking him a little more. It turns out he isn''t so strange.'
 		end
 
-		act 'Continue to drink beer': gt 'sister', 'scene2'
+		act 'Continue to drink beer':
+			gt 'sister', 'scene2'
+			killvar 'rexTalk'
+		end
+	else
+		gs 'npc_relationship', 'modify', 'A57', 'like'
+		rexTalk = rand(1,6)
+		if rexTalk = 1:
+			'You talk with Rex. He tells you that some nights he "borrows" the keys to his dad''s car while his parents aren''t home and goes driving without a license.'
+		elseif rexTalk = 2:
+			'You talk with Rex about various topics, and he sometimes gives you compliments inbetween.'
+		elseif rexTalk = 3:
+			'You talk with Rex. He tells you about the awesome camera his parents gave him for his birthday.'
+		elseif rexTalk = 4:
+			'You talk with Rex, "You know, my sister''s away at the University, but I think you two definitely have a lot in common..."'
+		elseif rexTalk = 5:
+			'You talk with Rex. He says, that he''s taking classes at a driving school and, if he''s lucky, he''ll get his license soon.'
+		elseif rexTalk = 6:
+			'You talk with Rex, and each time you find yourself liking him a little more. It turns out he isn''t so strange.'
+		end
+
+		act 'Continue to drink beer':
+			gt 'sister', 'scene2'
+			killvar 'rexTalk'
+		end
 	end
 	killvar 'rexTalk'
 end
@@ -314,7 +340,7 @@ if $ARGS[0] = 'avto':
 	rexCar = 0
 	rexSisTalk += 1
 	minut += 5
-	npc_rel['A57'] += 1
+	gs 'npc_relationship', 'modify', 'A57', 'like'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/skoda.jpg"></center>'
 	'You stepped into the new foreign car and went for a ride. Rex was swerving on the road. You noticed, he was already a little drunk. Rex stopped at a little place overlooking the lake.'
@@ -326,7 +352,7 @@ if $ARGS[0] = 'avto':
 			*clr & cla
 			gs 'willpower', 'pay', 'resist'
 			minut += 20
-			npc_rel['A57'] -= 2
+			gs 'npc_relationship', 'modify', 'A57', 'dislike'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/rex.jpg"></center>'
 			'You pretty much sit around waiting for an already tipsy Rex to finish the beer.'
@@ -339,7 +365,7 @@ if $ARGS[0] = 'avto':
 		*clr & cla
 		minut += 15
 		gs 'drugs', 'alcohol', 'beer'
-		npc_rel['A57'] += 2
+		gs 'npc_relationship', 'modify', 'A57', 'like'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/rex.jpg"></center>'
 		'You sit around drinking for quite a long time, thinking this beer is too bitter to take big gulps. Rex, however, who was already tipsy, manages to finish most of the bottle.'
@@ -414,7 +440,7 @@ if $ARGS[0] = 'avto2':
 	rexCar = 0
 	rexCarCount += 1
 	minut += 30
-	npc_rel['A57'] += 1
+	gs 'npc_relationship', 'modify', 'A57', 'like'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex1.jpg"></center>'
 
@@ -434,7 +460,7 @@ if $ARGS[0] = 'avto2':
 			*clr & cla
 			pcs_horny += 10
 			minut += 30
-			npc_rel['A57'] += 1
+			gs 'npc_relationship', 'modify', 'A57', 'like'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex2.jpg"></center>'
 			'Rex holds you by the hand. He is surprised that you don''t mind. You notice he is a little nervous.'
@@ -476,7 +502,7 @@ if $ARGS[0] = 'avto2':
 			*clr & cla
 			pcs_horny += 10
 			minut += 10
-			npc_rel['A57'] += 1
+			gs 'npc_relationship', 'modify', 'A57', 'like'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex3.jpg"></center>'
 			'Rex keeps his hand on your leg just above the knee, you continued to talk.'
@@ -499,7 +525,7 @@ if $ARGS[0] = 'avto2':
 				*clr & cla
 				pcs_horny += 10
 				minut += 10
-				npc_rel['A57'] += 1
+				gs 'npc_relationship', 'modify', 'A57', 'like'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex5.jpg"></center>'
 				'During the conversation, Rex ''accidentally'' raises his hand a little higher up your leg.'
@@ -520,7 +546,7 @@ if $ARGS[0] = 'avto2':
 				end
 				act 'Further':
 					*clr & cla
-					npc_rel['A57'] += 1
+					gs 'npc_relationship', 'modify', 'A57', 'like'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex8.jpg"></center>'
 					'Rex'' hand is now very close to your underpants. He is almost touching them. You are getting horny and starting to doubt if this is something you really want to do. You are still a little bit afraid of his oddities but still you put your hand on his, implying that he can continue to move a little further.'
@@ -533,7 +559,7 @@ if $ARGS[0] = 'avto2':
 						*clr & cla
 						pcs_horny += 10
 						minut += 10
-						npc_rel['A57'] -= 5
+						gs 'npc_relationship', 'modify', 'A57', 'hate'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex9.jpg"></center>'
 						'You abruptly stick your hand between your legs, not giving him the opportunity to continue. Rex was already getting very excited and really had to force himself to remove his hand from your legs...'
@@ -559,7 +585,7 @@ end
 if $ARGS[0] = 'sms':
 	*clr & cla
 	minut += 10
-	npc_rel['A57'] += 1
+	gs 'npc_relationship', 'modify', 'A57', 'like'
 	rexSmsDay = daystart
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smartsist.jpg"></center>'
@@ -693,7 +719,7 @@ if $ARGS[0] = 'sms':
 				'You take off your clothes, only leaving your underwear and stockings. You then take a seductive pose and take the picture.'
 				act 'Send':
 					*clr & cla
-					npc_rel['A57'] += 1
+					gs 'npc_relationship', 'modify', 'A57', 'like'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smsrex14.jpg"></center>'
 					'5 Minutes after you sent your latest foto you receive an MMS from Rex.'
 					'OH MY GOD!!! you suddenly exclaimed. With wide open eyes, you are looking at a pretty picture of a big dick!'
@@ -704,7 +730,7 @@ if $ARGS[0] = 'sms':
 					
 					act 'Answer':
 						*clr & cla
-						npc_rel['A57'] += 1
+						gs 'npc_relationship', 'modify', 'A57', 'like'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smsrex17.jpg"></center>'
 						'You lie back in front of the mirror. You lift your legs up in the air and slide your panties to the side. You then take a picture of your exposed pussy and send it to Rex.'
 						
@@ -713,9 +739,9 @@ if $ARGS[0] = 'sms':
 					
 						act 'Wait':
 							*clr & cla
-							npc_rel['A57'] += 1
+							gs 'npc_relationship', 'modify', 'A57', 'like'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smsrex18.jpg"></center>'
-							'You waited a long time for him to answer. Just when you wanted to put your phone away you received a new MMS. You were stunned by what you saw! Rex took a shot of his penis while cumming. The cum was flowing heavily in the picture.'
+							'You waited a long time for him to answer. Just when you wanted to put your phone away you received a new SMS. You are stunned by what you see! Rex took a shot of his penis while cumming. The cum was flowing heavily in the picture.'
 							
 							gs 'arousal', 'foreplay', 10
 							gs 'stat'
@@ -723,10 +749,10 @@ if $ARGS[0] = 'sms':
 							if pcs_horny >= 100:
 								act 'Masturbate':
 									*clr & cla
-									npc_rel['A57'] += 1
+									gs 'npc_relationship', 'modify', 'A57', 'like'
 									pcs_mood = 100
 									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smsrex15.jpg"></center>'
-									'You can''t hold back any longer and you start masturbating while looking at your phone, until you finally exploded with an earth-shattering orgasm.'
+									'You can''t hold back any longer and you start masturbating while looking at your phone, until you finally explode with an earth-shattering orgasm.'
 									$orgasm_or = 'custom'
 									gs 'arousal', 'clit_finger', 10, 'masturbate'
 									gs 'arousal', 'end'
@@ -735,24 +761,24 @@ if $ARGS[0] = 'sms':
 									act 'Answer':
 										*clr & cla
 										minut += 10
-										npc_rel['A57'] += 10
+										gs 'npc_relationship', 'modify', 'A57', '10'
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smsrex16.jpg"></center>'
-										'You took a new picture of your pussy, still wet with your juices after your orgasm and sent it to Rex. A moment later, he replied via SMS with the words "You are super!!!".'
-										'You didn''t want to send a reply and after a short while, once you were convinced that Rex wouldn''t send any more messages, you placed the phone back on his spot.'
+										'You took a new picture of your pussy, still wet with your juices after your orgasm and send it to Rex. A moment later, he replied via SMS with the words "You are super!!!".'
+										'You don''t want to send a reply and after a short while, once you are convinced that Rex won''t send any more messages, you place the phone back in its spot.'
 										act 'Put the phone on the spot': gs 'arousal', 'end' & gt 'bedrPar'
 									end
 									act 'Don''t answer':
-										'You didn''t want to send a reply and after a short while, once you were convinced that Rex wouldn''t send any more messages, you placed the phone back on his spot.'
-										act 'Put the phone on the spot': gs 'arousal', 'end' & gt 'bedrPar'
+										'You don''t want to send a reply and after a short while, once you are convinced that Rex won''t send any more messages, you place the phone back in its spot.'
+										act 'Put the phone away': gs 'arousal', 'end' & gt 'bedrPar'
 									end
 								end
 							else
-								act 'Put the phone on the spot': gs 'arousal', 'end' & gt 'bedrPar'
+								act 'Put the phone away': gs 'arousal', 'end' & gt 'bedrPar'
 							end
 						end
 					end
-					act 'Put the phone on the spot': gs 'arousal', 'end' & gt 'bedrPar'
+					act 'Put the phone away': gs 'arousal', 'end' & gt 'bedrPar'
 				end
 			end
 		end
@@ -762,7 +788,7 @@ end
 if $ARGS[0] = 'sms_end1':
 	*clr & cla
 	minut += 5
-	npc_rel['A57'] += 1
+	gs 'npc_relationship', 'modify', 'A57', 'like'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smartsist.jpg"></center>'
 	'Looking through the contacts on the phone you found Rex'' phone number and you sent a message. You received the report that the message was delivered. A little later, just when you were about to put the phone back and go to sleep, you received an answer.'
@@ -771,7 +797,7 @@ if $ARGS[0] = 'sms_end1':
 		gs 'stat'
 		''
 		'Thank you <<$pcs_firstname>>, you have no idea how pleased I am :*.'
-		act 'Put the phone back on the spot': gt 'bedrPar'
+		act 'Put the phone away': gt 'bedrPar'
 	end
 end
 
@@ -779,12 +805,12 @@ if $ARGS[0] = 'sms_end2':
 	act 'Send':
 		*clr & cla
 		minut += 5
-		npc_rel['A57'] += 1
+		gs 'npc_relationship', 'modify', 'A57', 'like'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/phone/smartsist.jpg"></center>'
 		'You sent the message with the picture. 5 minutes later you already get a message back.'
 		'Baby you are super:*!!! Want more of those pics!!!'
-		act 'Put the phone back on the spot': gt 'bedrPar'
+		act 'Put the phone away': gt 'bedrPar'
 	end
 end
 
@@ -796,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.qsrc

@@ -0,0 +1,196 @@
+# rex_party
+
+!introductions
+if $ARGS[0] = 'start':
+    CLOSE ALL
+
+    !set event variables
+    sisterQW['partycount'] += 1
+	sisterQW['party'] = 2
+	sisboyparty = 1
+	sisboypartyQW += 1
+	alkoParty = 0
+	party_girls_talk = 0
+	girls_smoke = 0
+	party_dj = 0
+	dj_beer = 0
+	dj_thank = 0
+	dj_bad = 0
+	dj_boobs = 0
+	party_boys_drink = 0
+	Rex_save = 0
+	party_boys_in = 0
+	rex_talk = 0
+	rex_sex = 0
+	drunk_sveta = 0
+	iralenasleep = 0
+	sister_party_dom = 0
+    lastUpdatedHour = -1 !This variable is used to update event every hour
+    numberOfEvents = 2 !This variable is used to update event every hour
+
+
+	$location_type = 'event'
+	gs 'themes', 'indoors'
+	$loc_arg = 'start'
+	$loc = 'rex_party'
+	$menu_loc = 'rex_party'
+	$menu_arg = 'start'
+	menu_off = 0
+	cls
+    minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
+	'You arrive at Rex''s apartment for the weekend party. Going inside with the others, the loud music drowns out any noise from outside. As soon as you are inside, several boys immediately start offering you drinks.'
+	act 'Drink':
+		cls
+		minut += 5
+		alkoParty += 1
+		gs 'drugs', 'alcohol', 'vodka'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
+		'In all this mess, you are unable to find a clean cup and are handed a full bottle of booze. Clinking glasses with the bottle, you put your lips to its mouth and turn it up, gulping down several swigs of strong drink, noticing the effects almost at once.'
+		'The party has just begun. You can still walk through the apartment and find something to do.'
+		act 'Move away': gt 'rex_party', 'RexRoom'
+	end
+end
+
+if $ARGS[0] = 'RexRoom':
+    $loc_arg = 'RexRoom'
+    $menu_arg = 'RexRoom'
+	cls
+	minut += 5
+	gs 'stat'
+
+    gs $loc, 'EventUpdate'
+    '<center><b><font color = maroon>Rex''s Room</font></b></center>'
+    !gs $loc, 'RexRoomEvent<<eventNumber>>'
+    gs 'rex_party', 'Event<<eventNumber>>', 'RexRoom'
+
+    act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+end
+
+if $ARGS[0] = 'LivingRoom':
+    $loc_arg = 'LivingRoom'
+    $menu_arg = 'LivingRoom'
+	cla & *clr
+	minut += 5
+	gs 'stat'
+
+    gs $loc, 'EventUpdate'
+    '<center><b><font color = maroon>Living room</font></b></center>'
+    gs 'rex_party', 'Event<<eventNumber>>', 'LivingRoom'
+
+    act 'Go to Rex''s room': gt 'rex_party', 'RexRoom'
+    act 'Go to the kitchen': gt 'rex_party', 'Kitchen'
+    act 'Go to the Toilet': gt 'rex_party', 'Toilet'
+    act 'Leave Rex''s home': gt 'pav_commercial'
+end
+
+if $ARGS[0] = 'Kitchen':
+    $loc_arg = 'Kitchen'
+    $menu_arg = 'Kitchen'
+	cla & *clr
+	minut += 5
+	gs 'stat'
+
+    gs $loc, 'EventUpdate'
+    '<center><b><font color = maroon>Kitchen room</font></b></center>'
+    '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/kuh.jpg"></center>'
+    gs 'rex_party', 'Event<<eventNumber>>', 'Kitchen'
+
+    act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+end
+
+if $ARGS[0] = 'Toilet':
+    $loc_arg = 'Toilet'
+    $menu_arg = 'Toilet'
+	cla & *clr
+	minut += 5
+	gs 'stat'
+   
+	if alko > 3 and rand(1,100) <= 30: gt 'rex_party_sexEvents', 'toilet_sex_events'
+	'<center><b><font color = maroon>Toilet</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/toilet.jpg"></center>'
+
+	'Here you can wash your face, freshen up or touch up your make-up at <a href="exec: gt ''mirror'', ''start''">mirrors</a>.'
+	!if pcs_horny > 50:'Feeling yourself ready to burst with desire, you can''t take it anymore and begin to <a href="exec: gt ''rex_party_sexEvents'', ''toilet_mast''">masturbate</a>.'
+	act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	if cumloc[11] = 1 or cumloc[12] = 1:
+		act 'Clean the sperm from your face (0:10)':
+			cla
+			*clr
+			pcs_makeup = 1
+			cumspclnt = 9
+			gs 'cum_cleanup'
+			cumspclnt = 13
+			gs 'cum_cleanup'
+			if pcs_sweat > 19 : pcs_sweat -= 5
+			minut += 10
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
+			*nl
+			'You clean your face and get rid of any trace of cum.'
+
+			act 'Move away': gt 'rex_party', 'Toilet'
+		end
+    end
+end
+
+if $ARGS[0] = 'EventUpdate':
+    if alko < 3: 
+        eventNumber = 1
+    else:
+        eventNumber = 2
+    end
+
+    !{
+        if lastUpdatedHour = -1 or lastUpdatedHour ! hour:
+            lastUpdatedHour = hour
+            eventNumber = rand(1,numberOfEvents)
+        end
+    }
+    
+end
+
+if $ARGS[0] = 'Event1':
+    if $ARGS[1] = 'RexRoom':
+        '<center><b><font color = maroon>Rex''s Room</font></b></center>'
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
+        'You sit at a table and drink with your friends. Sitting to one side of you sharing a bottle as always are <a href="exec: gt ''rex_party_smallEvents'', ''lena''">Lena</a> who is always fun, her slightly more reserved friend <a href="exec: gt ''rex_party_smallEvents'', ''ira''">Ira</a>, and always upbeat <a href="exec: gt ''rex_party_smallEvents'', ''rex''">Rex</a>.'
+        'To your other side sits your sister <a href="exec: gt ''rex_party_smallEvents'', ''anya''">Anya</a>, drinking already, and <a href="exec: gt ''rex_party_smallEvents'', ''roma''">Roma</a>, who himself sits just a bit away looking more serious than normal, plus lots of <a href="exec: gt ''rex_party_smallEvents'', ''party_girls''">girls</a> and <a href="exec: gt ''rex_party_smallEvents'', ''party_boys''">guys</a> you barely know.'
+        'One of the guys offers you a bottle to <a href="exec: gt ''rex_party_smallEvents'', ''party_drink''">drink</a> from as he says, "A little more to set the mood."'
+    end
+    if $ARGS[1] = 'LivingRoom':
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_3.jpg"></center>'
+        'This is a large living room. Hardly anyone is here, most are all still sitting in the other room talking and drinking. Only one <a href="exec: gt ''rex_party_smallEvents'', ''dj''">guy</a> is in here tinkering with a turntable.'
+    end
+    if $ARGS[1] = 'Kitchen':
+        'The kitchen is spacious, but kinda dirty. The kitchen table is covered in cans and bottles of beer as well as 5ths of booze. You can grab any bottle you want and <a href="exec: gt ''rex_party_smallEvents'', ''party_drink''">drink</a>.'
+        if party_dj =1 and dj_beer < 1:'You grab two bottle for the <a href="exec: gt ''rex_party_smallEvents'', ''dj_take_beer''">DJ and his friend</a>.'
+    end
+end}
+
+if $ARGS[0] = 'Event2':
+    if $ARGS[1] = 'RexRoom':
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_1_' + rand(1,5) + '.jpg"></center>'
+        'After a while, everyone gets up to go dance and drink. Only a few <a href="exec: gt ''rex_party_smallEvents'', ''party_girls''">girls</a> are left in the room, but they are fun to hang out and gossip with.'
+        iif(party_girls_talk >= 2,'You <a href="exec: gt ''rex_party_smallEvents'', ''talk''">chat</a> and gossip with them. One of the girls pulls out some marijuana and invites all of you to <a href="exec: gt ''rex_party_smallEvents'', ''smoke''">have a smoke</a>.', 'You <a href="exec: gt ''rex_party_smallEvents'', ''talk''">chat</a> and gossip with them.')
+        if pcs_mood = 100 and pcs_horny >= 50 and girls_smoke > 1:
+            'All the girls are in a good mood, and several of them excitedly pull you with them to have some <a href="exec: gt ''rex_party_smallEvents'', ''fun''">fun</a>.'
+        end
+    end
+    if $ARGS[1] = 'LivingRoom':
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_4_' + rand(1,8) + '.jpg"></center>'
+        'The party is in full swing. In one corner. a <a href="exec: gt ''rex_party_smallEvents'', ''dj''">guy</a>, the party DJ, is spinning beats at the turntable. You want to give it a try and <a href="exec: gt ''rex_party_smallEvents'', ''dance''">spin some beats</a>.'
+        '<a href="exec: gt ''rex_party_smallEvents'', ''roma''">Roma</a> and <a href="exec: gt ''rex_party_smallEvents'', ''anya''">Anya</a> are locked together having fun dancing.'
+        if Rex_Love = 0:'<a href="exec: gt ''rex_party_smallEvents'', ''rex''">Rex</a> is having fun dancing with some <a href="exec: gt ''rex_party_smallEvents'', ''party_girls''">girls</a>.'
+        if Rex_Love = 1:'You are dancing with some <a href="exec: gt ''rex_party_smallEvents'', ''party_girls''">girls</a> and <a href="exec: gt ''rex_party_smallEvents'', ''rex''">Rex</a>, who looks at you with loving eyes.'
+        '<a href="exec: gt ''rex_party_smallEvents'', ''ira_lena_livingRoom''">Lena</a> and <a href="exec: gt ''rex_party_smallEvents'', ''ira_lena_livingRoom''">Ira</a> are having fun in the company of drunken <a href="exec: gt ''rex_party_smallEvents'', ''party_boys''">guys</a>.'
+    end
+
+    if $ARGS[1] = 'Kitchen':
+        'The kitchen is spacious, but kinda dirty. The kitchen table is covered in cans and bottles of beer as well as 5ths of booze. You can grab any bottle you want and <a href="exec: gt ''rex_party_smallEvents'', ''party_drink''">drink</a>.'
+        if party_dj =1 and dj_beer < 1:'You grab two bottle for the <a href="exec: gt ''rex_party_smallEvents'', ''dj_take_beer''">DJ and his friend</a>.'
+        'Some <a href="exec: gt ''rex_party_smallEvents'', ''party_boys''">guys</a> bang their empty drinks down on the table. Refilling, they offer a cup to you and try to get you to <a href="exec: gt ''rex_party_smallEvents'', ''kitchen_boy_drink''">drink</a> with them.'
+    end
+end
+--- rex_party ---------------------------------

locations/rex_party_firstTime.qsrc

@@ -0,0 +1,330 @@
+# rex_party_firstTime
+if $ARGS[0] = 'sisboyQW_party':
+	sisterQW['partycount'] += 1
+	sisterQW['party'] = 2
+	if sisterQW['rexbday'] = 1: sisterQW['rexbday'] = 2
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_8.jpg"></center>'
+	*nl
+	'Once you burst into Rex''s house, the loud music immediately drowns out just about any other noise.'
+	'You help the guys lay out the table. They carry the drinks and you the snacks, but there is so much booze that it covers the table, leaving nowhere to put the snacks.'
+	'Everyone starts to thump in unison, dealing, laughing and telling funny stories.'
+	'You cheerfully ask Anya, "You won''t leave me alone at the party will you?"'
+	'Anya smiles and hands you a bottle of vodka. "Of course not <<$pcs_nickname>>."'
+	act 'Decline the drink':
+		*clr & cla
+		minut += 15
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
+		*nl
+		'You politely try to refuse the drink, but everyone watching has gathered round and started chanting, "Drink! Drink! Drink! Drink! Drink! Drink!"'
+		'Giving in to peer pressure, you take the bottle from Anya''s hand and gulp down a huge swig of vodka.'
+		act 'Go dance': gt 'rex_party_firstTime', 'dance'
+		act 'Drink': gt 'rex_party_firstTime', 'drink'
+		act 'Sit': gt 'rex_party_firstTime', 'sit'
+	end
+	act 'Accept the drink':
+		*clr & cla
+		minut += 15
+		gs 'drugs', 'alcohol', 'vodka'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
+		*nl
+		'You take the bottle from her hand. "Well, let''s party!" you say and gulp down a huge swig of vodka.'
+		'Roma looks at Anya and smirks. "Look, <<$pcs_nickname>> is drinking more than you!" Everyone then begins to drink heavily.'
+		act 'Go dance': gt 'rex_party_firstTime', 'dance'
+		act 'Drink': gt 'rex_party_firstTime', 'drink'
+		act 'Sit': gt 'rex_party_firstTime', 'sit'
+	end
+	act 'Get up to dance':
+		*clr & cla
+		minut += 15
+		gs 'drugs', 'alcohol', 'vodka'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
+		*nl
+		'Standing, you try to get out from behind the table to go dancing, but no one is actually dancing. They are all just sitting and drinking.'
+		'Seeing what you''re doing, Rex pulls you over. "Where are you going? It''s only the beginning! Hold the bottle and let''s drink, otherwise I will be offended."'
+		'You can''t deny the ' + iif(sisterQW['rexbday'] = 2, 'birthday boy', 'host of the party') + ', so you take the bottle from his hand and gulp down a huge shot, feeling it burn down your throat. You hear others shouting in encouragement.'
+		act 'Go dance': gt 'rex_party_firstTime', 'dance'
+		act 'Drink': gt 'rex_party_firstTime', 'drink'
+		act 'Sit': gt 'rex_party_firstTime', 'sit'
+	end
+end
+
+if $ARGS[0] = 'dance':
+	*clr & cla
+	minut += 15
+	pcs_horny += 10
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_10.jpg"></center>'
+	*nl
+	'You drunkenly stumble around to go and dance.'
+	'You do not need to be persuaded. You are on the same wavelength with everyone else and pull your top off, dancing in your bra.'
+	'The boys carry on dancing, jumping and bumping into each other. Even though you are almost half-naked, it seems like no one is paying any attention to you.'
+	'Anya approaches you. "Cheer up <<$pcs_nickname>>! Go get in the center and have fun dancing, among other things..."'
+	act 'Drink':
+		*clr & cla
+		minut += 10
+		gs 'drugs', 'alcohol', 'whiskey'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_13.jpg"></center>'
+		*nl
+		'You want to drink again and again. The boys quickly give you two bottles of whiskey, and without any hesitation, you start to pour both of them into your mouth. The whiskey spills out of your mouth as you are unable to drink it all fast enough. It pours all down your body.'
+		'Your clothes are soaked in alcohol, and everyone can see your nipples poking through your wet bra.'
+		'Two guys, mad with energy, begin to dance around you, persistently lapping at the booze on your body.'
+		act 'Dance with them': gt 'rex_party_firstTime', 'two_boy'
+	end
+	act 'Keep dancing':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_18.mp4"></video></center>'
+		*nl
+		'You''re drunk, but still able to control yourself. You want to continue dancing.'
+		'Your erotic movements have attracted the attention of many guys, and two of them approach.'
+		gs 'arousal', 'foreplay', 10
+		gs 'stat'
+!! This should have a way to back out, but where to?
+		if sisterQW['rexbday'] = 2: act 'Congratulate Rex personally': gt 'rex_party_firstTime', 'reks'
+		if sisterQW['AnyaRomaQW'] = 0: act 'Look for Anya': gt 'rex_party_firstTime', 'anya_find'
+		act 'Dance with them': gt 'rex_party_firstTime', 'two_boy'
+	end
+	if sisterQW['rexbday'] = 2:
+		act 'Congratulate Rex personally': gt 'rex_party_firstTime', 'reks'
+	end
+end
+
+if $ARGS[0] = 'anya_find':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'You look for your sister but can''t find her. "Where the hell did she go?" You look everywhere in desperation.'
+	act 'Look in the bathroom': gt 'rex_party_firstTime', 'anya_toilet'
+	act 'Look in the kitchen': gt 'rex_party_firstTime', 'anya_kit'
+	act 'Look in the bedroom': gt 'rex_party_firstTime', 'anya_bed'
+end
+
+if $ARGS[0] = 'anya_kit':
+	*clr & cla
+	minut += 5
+	$locclass = 'kitr'
+	sisterQW['AnyaRomaQW'] = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_24.jpg"></center>'
+	*nl
+	'You walk into the kitchen and look around for your sister. You see two drunk girls having fun in the corner of the room, but neither of them know where your sister is. Suddenly, you hear heavy breathing behind you.'
+	act 'Turn around':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_25.jpg"></center>'
+		*nl
+		'Turning around, you find Anya completely naked, drinking from a bottle with tears running down her face while looking at Roma. "Well it''s over between us. Go to hell dog!"'
+		'Roma doesn''t say anything in response, and Anya turns and runs away in tears. You glare at him for a few few moments, then rush after her.'
+		gs 'arousal', 'erotic_nudity', 5, 'incest'
+		gs 'stat'
+		act 'Chase Anya':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_26.jpg"></center>'
+			*nl
+			'It takes you a while to find Anya again, but you eventually find her on her knees in front of two unfamiliar guys. "What are you doing? Stop and think about this!" you plead to your sister.'
+			'Anya keeps drunkenly sucking the guys off, and they turn to look at you. "Come and join us or get the fuck out."'
+			gs 'arousal', 'voyeur_sex', 5
+			gs 'stat'
+			act 'Wait':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_27.jpg"></center>'
+				*nl
+				'You decide not to argue with them, afraid of what they might do and wait.'
+				'The guys push Anya down on her stomach. One kneels down in front of her and sticks his cock back in her mouth, while the other kneels down behind her, shoves his dick in her ass and begins to fuck her hard.'
+				'Turning to look at you again, one of the guys leers and pats the floor next to Anya. "Come over here and join us if you''re so worried about her. Then we will take turns fucking you both in the ass."'
+				gs 'arousal', 'voyeur_sex', 10
+				gs 'stat'
+				if hour < 22:
+					minut += ((21 - hour) * 60) + (60 - minut)
+					act 'Leave': gs 'arousal', 'end' & gt 'bedrPar'
+				else
+					act 'Leave': minut += 15 & gs 'arousal', 'end' & gt 'bedrPar'
+				end
+				act 'Join':
+					*clr & cla
+					sisterknowslut = 2
+					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+					gs 'boyStat', $npclastgenerated
+
+					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+					gs 'boyStat', $npclastgenerated, 'a'
+					spafinloc = 3
+					gs 'cum_manage'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_28.jpg"></center>'
+					*nl
+					'You frown upon seeing your sister being used like this, but maybe it would be better for her if you let them use you too so she wouldn''t be the sole object of their lust? "OK, who wants to fuck me first?" you say as you walk over and take your clothes off.'
+					'The one that had been talking to you and fucking your sister''s mouth pulls away from her and shoves you down on your hands and knees. Without waiting, he shoves his cock in your ass and begins to furiously fuck you.'
+					'Your hands tighten as you grimace in pain, trying to think about anything but the pain of having your ass torn up.'
+					'This goes on for some time, though the boys do switch places from time to time, taking turns fucking you and Anya in the ass. Finally, and mercifully, they cum inside of both of you. After they are finished, they laugh and leave the room.'
+					'You gather your clothes up and get dressed. You then help Anya get dressed and help her home.'
+					gs 'arousal', 'anal', 10, 'rough', 'sub', 'group', 'unknown'
+					gs 'stat'
+					if hour < 22:
+						minut += ((21 - hour) * 60) + (60 - minut)
+						gs 'arousal', 'end'
+						act 'Leave': gt 'bedrPar'
+					else
+						gs 'arousal', 'end'
+						act 'Leave': minut += 15 & gt 'bedrPar'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'anya_toilet':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_22.jpg"></center>'
+	*nl
+	'You walk into the bathroom and find some guy pushing some poor girl''s head into the toilet. Thankfully, it isn''t Anya, and not wanting to get involved any further, you leave.'
+	act 'Look in the kitchen': gt 'rex_party_firstTime', 'anya_kit'
+	act 'Look in the bedroom': gt 'rex_party_firstTime', 'anya_bed'
+end
+
+if $ARGS[0] = 'anya_bed':
+	*clr & cla
+	minut += 5
+	pcs_horny += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_23.jpg"></center>'
+	*nl
+	'In the bedroom, you see two guys jerking off onto the face of some poor unconscious girl as one of them says to the other, "Let''s get the fuck out of here before she wakes up. I don''t want to deal with her ex-boyfriend. He''s one of the boxers."'
+	'Anya isn''t here, so you keep searching.'
+	act 'Look in the bathroom': gt 'rex_party_firstTime', 'anya_toilet'
+	act 'Look in the kitchen': gt 'rex_party_firstTime', 'anya_kit'
+end
+
+if $ARGS[0] = 'reks':
+	*clr & cla
+	minut += 5
+	gs 'drugs', 'alcohol', 'champagne'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_19.jpg"></center>'
+	*nl
+	'"Hey girl! Damn, you''ve been having fun. Oh yeah, you''re Anya''s little sister, right? I know she''s... That''s odd, I haven''t seen her. Although I have been drinking bubbly all day. Here, drink up!"'
+	'He starts pouring the sweet champagne down your throat. He''s so drunk that he pours it too fast, and as much as you try to keep up, a lot of it spills on you and the floor.
+	 Then, without a word, Rex just staggers off.'
+	act 'Look for Anya': gt 'rex_party_firstTime', 'anya_find'
+	act 'Follow Rex to the toilet for birthday sex':
+		*clr & cla
+		toiletRexSex = 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_20.jpg"></center>'
+		*nl
+		'You go to the bathroom, only to find Rex already there, having just finished taking a piss with his dick still out in his hand. "Oh <<$pcs_nickname>>, you again? I''m here already..."'
+		'Stopping him mid-sentence, you push him down onto the toilet and pull his hand away from his cock. You start undressing and watch his cock stiffen as he stares at your naked body. You climb on and straddle him. Lowering yourself onto his cock, you feel it slide into your wet pussy. "Happy birthday," you whisper in his ear.'
+		'"Fucking hell," he mumbles as you ride him.'
+		gs 'arousal', 'vaginal', 5, 'sub'
+		gs 'stat'
+		act 'Doggystyle':
+			*clr & cla
+			rexSex = 1
+			gs 'boyStat', 'A57'
+			sexpartkno = 1
+			gs 'cum_manage'
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_21.mp4"></video></center>'
+			*nl
+			'Rex growls as he grabs you and lifts you off him. He gets up, bends you over and plunges his dick right back into your pussy, beginning to furiously fuck you balls deep.'
+			'"Not so fast, not so deep," you beg him. However, the pain of his frantic balls deep fucking soon gives way to waves of deep pleasure as he keeps pounding you.'
+			'With a final grunt, he shoots his load deep inside your pussy. "Wow <<$pcs_nickname>>, you are hotter than your sister!" He then zips his pants and leaves you alone in the bathroom.'
+			gs 'arousal', 'vaginal', 5, 'sub', 'rough'
+			gs 'stat'
+			act 'Look for Anya': gt 'rex_party_firstTime', 'anya_find'
+		end
+	end
+end
+
+if $ARGS[0] = 'two_boy':
+	*clr & cla
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_14.mp4"></video></center>'
+	*nl
+	'They rub your body, grab your boobs and squeeze your ass. Under the influence of alcohol, you really like it and just enjoy the moment.'
+	'Seeing that you aren''t resisting, they pull you into the next room.'
+	gs 'arousal', 'foreplay', 5, 'sub', 'group', 'unknown'
+	gs 'stat'
+	act 'Go':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_15.jpg"></center>'
+		*nl
+		'As you enter the room, they push you down on the bed and pull out their cocks.'
+		'In a drunken fog, you try to grab one, then the other, but you are so drunk that the room is spinning.'
+		'One of the guys starts licking your pussy, and you can hear yourself moaning in passion.'
+		gs 'arousal', 'cuni', 5, 'sub', 'group', 'unknown'
+		gs 'stat'
+		act 'Doggystyle':
+			*clr & cla
+			gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
+			$boy1[1] = $npclastgenerated
+			gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
+			$boy1[2] = $npclastgenerated
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_16.jpg"></center>'
+			*nl
+			'They lift you up onto your knees. Their hands help hold you steady as one of them slides his dick into your pussy and the other shoves his cock in your mouth.'
+			'The guys start laughing, obviously having fun fucking you as they talk and joke to each other. "She looks a bit young. I think she might be Anya''s little sister."'
+			'"Fuck, I think you''re right. She''s a sweet little thing, but I don''t fuck schoolgirls. I''ll trade you."'
+			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
+			gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
+			minut -= 5
+			gs 'stat'
+			act 'Switch':
+				*clr & cla
+				gs 'boyStat', $boy1[2]
+				cumprecheck = 1
+				gs 'cum_manage'
+				sexpartkno = 0
+				spafinloc = 11
+				gs 'cum_manage'
+				swallow += 1
+				gs 'boyStat', $boy1[1]
+				cumprecheck = 1
+				gs 'cum_manage'
+				sexpartkno = 0
+				spafinloc = 4
+				gs 'cum_manage'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_17.jpg"></center>'
+				*nl
+				'The guys switch places and continue to rhythmically fuck you. After they have fucked you for a while, you somewhat come to your senses. "Oh yeah, wake up bitch! Suck and fuck us harder."'
+				'Still mostly out of it, you obey and begin to suck harder until he starts to cum. He pulls out of your mouth and splatters your entire face in his cum. The second guy cums quickly too, pulling out of your pussy and covering your ass with his cum.'
+				'After spending some time cleaning yourself up, you decide to go and find your sister.'
+				gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
+				gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
+				gs 'arousal', 'end'
+				minut -= 5
+				gs 'stat'
+				act 'Look For Anya': gt 'rex_party_firstTime', 'anya_find'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'drink':
+	*clr & cla
+	minut += 10
+	gs 'drugs', 'alcohol', 'vodka'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_11.jpg"></center>'
+	*nl
+	'Everyone undresses to the waist and goes into the hall to dance. "Come dance <<$pcs_nickname>>, you don''t want to be left alone," Anya calls out to you.'
+	'Not now Anya. I want to drink some more first," you reply, but not taking no for an answer, Anya drags you out to dance with her and her friends.'
+	act 'Go dance': gt 'rex_party_firstTime', 'dance'
+end
+
+if $ARGS[0] = 'sit':
+	*clr & cla
+	minut += 10
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_12.jpg"></center>'
+	*nl
+	'You are starting to feel a little dizzy after drinking so much and so sit down for a while. Anya and her friends then approach you. "<<$pcs_nickname>>? Why are you just sitting there? Come dance with us." Not taking no for an answer, Anya drags you out to dance with her and her friends.'
+	act 'Go dance': gt 'rex_party_firstTime', 'dance'
+end
+--- rex_party_firstTime ---------------------------------

locations/rex_party_sexEvents.qsrc

@@ -0,0 +1,1478 @@
+# rex_party_sexEvents
+
+if $ARGS[0] = 'ira_lena_fun':
+    !Sex involves boys
+    if $ARGS[1] = 'boys':
+        cls
+        '<center><b><font color = maroon>Ira and Lena</font></b></center>'
+        if rand(1,2) = 1:
+            '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_3_2.mp4"></video></center>'
+        else
+            '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_3_1.jpg"></center>'
+        end
+        'Music pumping puts you in the mood of fierce desire to have fun with Lena and Ira. Dancing with them, you start pulling their clothes off and they follow suit, taking your clothes off until all three of you are half naked just wearing your underwear.'
+        'The buzz of the booze makes you feel a lot more liberated as you slap each of the girls on the ass, which they return the favor and soon all three of you are taking turns slapping each others asses, in front of the guys.'
+        gs 'arousal', 'foreplay', 5, 'exhibitionism', 'lesbian'
+        gs 'stat'
+        if rand(1,2) = 1:
+            if Rex_Love = 0: 'Seeing what you are doing, Rex walks over and grabs you, then drags you into another room.'
+            if Rex_Love = 1: 'Seeing what you are doing, Rex walks over and grabs you, then drags you into another room.'
+            if Rex_Love = 1: 'Rex glares in the direction of Roma and your female companions.'
+            act 'Go with him': gt 'rex_party_sexEvents', 'ira_lena_rex'
+            if Rex_Love = 1:act 'Stay with Rex': gt 'rex_party_smallEvents', 'rex_talk'
+        else
+            'Seeing what you are doing, a couple of guys walk over and grab you, then they drag you into another room.'
+            if Rex_Love = 1: 'Rex glares in the direction of your female companions.'
+            act 'Go with them': gt 'rex_party_sexEvents', 'ira_fun_boys'
+            if Rex_Love = 1:act 'Stay with Rex': gt 'rex_party_smallEvents', 'rex_talk'
+        end
+    end
+    !Sex with just 3 girls
+    if $ARGS[1] = 'girls':
+        cls
+		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(1,2)>>.jpg"></center>'
+		'While you dance Lena moves in close to you and soon you are dancing up against each other, she leans in and kisses you. You momentarily dumbfounded, her lips are soft and they taste sweet as you kiss her back. Ira with fervent interest is watching the two of you.'
+		'Soon Ira joins the two of you, then all three of you start kissing each other. Your hands exploring each others bodies, as you begin to remove each others clothes right in the middle of the room, in front of everyone.'
+		gs 'arousal', 'kiss', 5, 'lesbian', 'group'
+		gs 'stat'
+		act 'Move away': gt $loc, $loc_arg
+		act 'Continue cuddling':
+			cls
+			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_3.jpg"></center>'
+			'You, along with Lena and Ira undress each other as you continue you to kiss and caress each other until you are all completely naked right in the middle of the room, in front of all the other guys and girls.'
+			if Rex_Love = 1: 'Rex curiously stares only at you.'
+			'As your fingers and tongues begin to explore each others naked bodies you finally realize where you are, surrounded by guys who start cheering and whistling loudly pulling you at of the moment.'
+			'You have gone too far, the girls and you gather up your things as you leave the room the guys calmed down and continued to have fun discussing the incident.'
+			gs 'arousal', 'foreplay', 5, 'lesbian', 'group'
+			gs 'stat'
+			act 'Move away': gt $loc, $loc_arg
+			act 'Drag the girls in another room':
+				cls
+				'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_4.jpg"></center>'
+				'As you leave the room, you are far to turned on to stop now, so you grab Ira and Lena by the hands and pull them into one of the empty bedrooms with you. "Well, girls, should we continue here, without prying eyes." you ask'
+				'They answer you by dropping their things on the floor and join you in kissing and fondling each other again.'
+				gs 'arousal', 'foreplay', 5, 'lesbian', 'group'
+				gs 'stat'
+				act 'Start bed games':
+					cls
+					'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+					i = rand(1,2)
+					if i = 1: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(5,7)>>.jpg"></center>'
+					if i = 2: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(8,9)>>.mp4"></video></center>'
+					'Together, laying down comfortably you continue to kiss and caress each other.'
+				    'You lick each other, using your tongue and fingers to explore each others pussies. Lapping up and swallowing each others juices, stopping only to share a passionate kiss with one another.'
+					'You work each others bodies, sometimes two on one and other times each giving and receiving from different girls. As you feel yourself getting close, you pay extra attention to whom ever seems to be lagging behind, emphasizing the sensual caress in the most erogenous places.'
+					'Soon, the three of you are moaning almost as one, all nearing your peak.'
+					gs 'arousal', 'kiss', 5, 'lesbian', 'group'
+					gs 'arousal', 'cuni', 5, 'lesbian', 'group'
+					gs 'arousal', 'cuni_give', 5, 'lesbian', 'group'
+					gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'group'
+					gs 'arousal', 'vaginal_finger_give', -5, 'lesbian', 'group'
+					gs 'stat'
+					act 'Cum':
+						cls
+						minut += 5
+						iralenasleep += 1
+						'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_10.mp4"></video></center>'
+						'Laying side by side with you in the middle, your hands on each others clits, rubbing and caressing them until an incredibly strong orgasm overtakes you all, and the three of you wither in sweet release. "Uhh, who says we need men anyways?" All of your answers with satisfied giggles.'
+						'Continuing to be in ecstasy, you slowly come down on your sexual high, as you do you slowly fall asleep.'
+						$orgasm_or = 'yes'
+						gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'group'
+						gs 'arousal', 'vaginal_finger_give', -5, 'lesbian', 'group'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+					end
+				end
+			end
+		end
+    end
+end
+
+if $ARGS[0] = 'ira_lena_rex':
+	cls
+	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+	if Rex_love = 0:
+		gs 'boyStat', 'A57'
+	else
+		gs 'boyStat', 'A56'
+	end
+	if rand(1,2) = 1:
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_4_2.mp4"></video></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_4_1.jpg"></center>'
+	end
+	'You go with <<$boydesc>>, Lena and Ira follow a little ways behind and without waiting for them, he puts you down on your knees.'
+	'You finish stripping naked, he has his cock out stroking it watching as you got undressed, seeing his cock you start sucking it at once.'
+	'Just as you start sucking his cock, Lena and Ira belatedly join you. They start kissing each other and undressing.'
+	gs 'arousal', 'bj', 5, 'sub', 'unknown'
+	gs 'stat'
+	act 'Suck together':
+		cls
+		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+		if rand(1,2) = 1:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_<<rand(1,2)>>.jpg"></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_3.mp4"></video></center>'
+		end
+		'Lena and Ira come over and kneel down next to you, one of them on each side of you. Each of you take turn sucking his cock, while the other two kiss each other or suck on his balls.'
+		gs 'arousal', 'bj', 5, 'sub', 'unknown', 'group'
+		gs 'stat'
+		act 'Lie on your back':
+			cls
+			pcs_vag += 1
+			cumprecheck = 1
+			gs 'cum_manage'
+			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_4.jpg"></center>'
+			'You lay down on your back legs wide apart, Ira crawls over to you on all fours and buries her face between your legs and begins kissing, licking and sucking on your clit.'
+			'<<$boydesc>>  takes advantage of Ira''s position and slides his cock inside of her and begins to fuck her roughly.'
+			'Ira bouncing her hips back and forth, fucking him as much as he was fucking her as she keeps licking your pussy, Lena starts kissing <<$boydesc>>, while her hand caress his balls.'
+			'Time flies fast, Ira, Lena and yourself have all switched positions many times, letting him fuck all three of you, <<$boydesc>> can take no more.'
+			gs 'arousal', 'cuni', 5, 'sub', 'unknown', 'lesbian'
+			gs 'arousal', 'vaginal', 5, 'sub', 'unknown'
+			minut -= 5
+			gs 'stat'
+			act 'Cum': gt 'rex_party_sexEvents', 'ira_lena_rex_cum'
+		end
+
+		act 'Bend over':
+			cls
+			pcs_vag += 1
+			cumprecheck = 1
+			gs 'cum_manage'
+			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_5.jpg"></center>'
+			'You bend over in front of him, Lena and Ira obediently bend over in front of <<$boydesc>> as well. One of them to each side of you, giving him a lovely view of all three of your asses.'
+			'<<$boydesc>> enjoys the spectacular view of your graceful asses. He fucks you first, while he slaps the girls on the ass, as he pounds into you.'
+			'You got the feeling he meant to take turns fucking each of you, but he grunts and can no longer hold back.'
+			gs 'arousal', 'vaginal', 5, 'sub', 'unknown', 'group'
+			gs 'stat'
+			act 'Cum': gt 'rex_party_sexEvents', 'ira_lena_rex_cum'
+		end
+	end
+end
+
+if $ARGS[0] = 'ira_lena_rex_cum':
+	cls
+	gs 'arousal', 'foreplay', 5, 'group', 'lesbian'
+	spafinloc = 7
+	gs 'cum_manage'
+	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+	if rand(1,2):
+		spafinloc = 12
+		gs 'cum_manage'
+		spafinloc = 14
+		gs 'cum_manage'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_6.jpg"></center>'
+		'<<$boydesc>> pulls out of you and blows his load all over your ass, covering it in his spunk.'
+		'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
+		
+		spafinloc = 11
+		gs 'cum_manage'
+		spafinloc = 12
+		gs 'cum_manage'
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_<<rand(7,8)>>.mp4"></video></center>'
+		'With a slap on your ass he pulls out, knowing what he wants you turn around and open your mouth, sticking out your tongue, your girlfriends obediently follow suit and open their mouths, sticking out there tongues as well.'
+		'<<$boydesc>> jerks his cock until he starts shooting his sperm all over the three of you, he does his best to aim for your mouths and tries to make sure he gets at least a little in all of your mouths. Once his dick stops spurting cum the three of you start licking up the cum that missed your mouths and kissing, exchanging his sperm from one mouth to another mouth, until it finally ends up back in your mouth and you swallow it.'
+		''
+	end
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'ira_fun_boys':
+	cls
+	minut += 5
+	pcs_vag += 2
+	gs 'stat'
+	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+	gs 'boyStat', $npclastgenerated, 'a'
+	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
+	'The three guys each pull one of you into the bathroom, they quickly help you girls finish getting undressed until your all naked. Once you are all completely naked the guys crowd around you in a circle and pull their dicks out of pants and begin stroking them, looking at you expectantly.'
+	act 'Suck':
+		cls
+		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(1,2)>>.jpg"></center>'
+		'With Lena and Ira, you get down on your knees in front of the guys, each of you take one of the cocks into your mouth and begin sucking on it. After a bit you switch which cock your sucking on, until all three of you have sucked all the guys cocks.'
+		gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
+		gs 'stat'
+		act 'Fuck': gt 'rex_party_sexEvents', 'ira_boys_fuck'
+	end
+	act 'Fuck': gt 'rex_party_sexEvents', 'ira_boys_fuck'
+end
+
+if $ARGS[0] = 'ira_boys_fuck':
+	cls
+	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(3,4)>>.jpg"></center>'
+	'Two of the guys, you, Ira, and Lena all take it into the bedroom. The two boys start off fucking Ira and Lena, while you fondled the girls. Eventually they switch and one of them bends you over and starts fucking your pussy, while another fucks Ira, leaving Lena to take turns kissing you and Ira. In time the boys keep switching until both of them have fucked all three of you several times. After several orgasms each, Ira, Lena and you lay back on the bed.'
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
+	gs 'stat'
+	act 'Cum':
+		cls
+		minut += 5
+		cumprecheck = 1
+		gs 'cum_manage'
+		spafinloc = 14
+		gs 'cum_manage'
+		gs 'boyStat', $boy1
+		cumprecheck = 1
+		gs 'cum_manage'
+		spafinloc = 14
+		gs 'cum_manage'
+		iralenasleep += 1
+		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_5.jpg"></center>'
+		'As Lena, Ira, and you lay on the bed side by side, the two boys jerk themselves off to finish. Spraying all three of your naked bodies with their spunk. As the boys get dressed and leave, the three of you kiss and lick the sperm off each others bodies until you get to tired and fall asleep in a tangle.'
+		cumspclnt = 14  & gs 'cum_cleanup'
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+	end
+end
+
+if $ARGS[0] = 'rex_sex':
+	*clr & cla
+	sexstart = 1
+	sexvar = 3
+	gs 'boyStat', 'A57'
+	gs 'dinsex2', 'stamina_npc'
+	sexpartkno = 1
+	cumprecheck = 1
+	gs 'cum_manage'
+	if rand(1,2) = 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_14_<<rand(1,6)>>.jpg"></center>'
+	else
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_14_7.mp4"></video></center>'
+	end
+	if Rex_Love = 1: 'Rex gently grabbed you by the hair and began to move his penis to your mouth.
+	caress it, my love, he asked with a smile.'
+	if Rex_Love = 0: 'Entering the room, Rex grabbed you by the hair and began to move his penis to your mouth.
+	stroke it, bitch, he asked with a vicious smile.'
+	'You took his head into your mouth and started sucking, after a few moments Rex started pushing his penis forcing you to swallow it even deeper. You were almost choking on his dick.'
+	'You keep sucking his dick. ' + iif( Rex_Love = 0, 'Rex', 'Your lover') + ' looks at you and you can see in his eyes that he is ready for the next step.'
+	gs 'arousal', 'bj', 5, 'sub'
+	gs 'stat'
+	act 'Lie on your back': gt 'rex_party_sexEvents', 'rex_sex_missionary'
+	act 'Get on all fours': gt 'rex_party_sexEvents', 'rex_sex_dog'
+	act 'Get on top': gt 'rex_party_sexEvents', 'rex_sex_cow'
+end
+
+if $ARGS[0] = 'rex_sex_cow':
+	*clr & cla
+	sexvar -= 1
+	gs 'dinsex2', 'stamina_npc'
+	pcs_vag += 1
+	rex_sex +=1
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_10_<<rand(1,5)>>.mp4"></video></center>'
+	'You jumped on top of Rex and took full control of the situation. Judging by his pleading eyes you knew he would not be able to resist.
+	You lower yourself on his dick and start moving slowly until his dick his fully inserted into your pussy. Then you start increasing the pace. You let go of all your inhibitions and begin to moan very loud.
+	You Lean on his hands and begin to move you body even faster than before. You can see that this is bringing Rex to ecstacy.
+	His hands grabbed you by the waist and he started to help you move up and down on his powerful dick! You opened your mouth wide, and were taking a lot of deep breaths'
+	if sexvar > 1: 'Slightly lowering the pace, Rex asks you to change position.'
+	if sexvar = 1: '<br>He indicates that he will cum soon.'
+	gs 'arousal', 'vaginal', 5, 'sub'
+	gs 'stat'
+	if sexvar = 0:act 'Make him cum': gt 'rex_party_sexEvents', 'rex_sex_cum'
+	if sexvar > 0:act 'Lie on your back': gt 'rex_party_sexEvents', 'rex_sex_missionary'
+	if sexvar > 0:act 'Get on all fours': gt 'rex_party_sexEvents', 'rex_sex_dog'
+end
+
+if $ARGS[0] = 'rex_sex_dog':
+	*clr & cla
+	sexvar -= 1
+	gs 'dinsex2', 'stamina_npc'
+	pcs_vag += 1
+	rex_sex +=1
+	if rand(1,2) = 1:
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_9_<<rand(2,5)>>.mp4"></video></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_9_1.jpg"></center>'
+	end
+	'You got on all fours giving Rex full control over your hot body.
+	Rex immediately drove his big dick inside your pussy.
+	You were feeling the passion and desire burning inside you and you begged him to fuck you.
+	Rex starts fucking you with full force and you can feel and hear his balls slapping against your ass.'
+	if sexvar > 1: 'Slightly lowering the pace, Rex asks you to change position.'
+	if sexvar = 1: '<br>He indicates that he will cum soon.'
+	gs 'arousal', 'vaginal', 5, 'sub'
+	gs 'stat'
+	if sexvar = 0:act 'Make him cum': gt 'rex_party_sexEvents', 'rex_sex_cum'
+	if sexvar > 0:act 'Get on top': gt 'rex_party_sexEvents', 'rex_sex_cow'
+	if sexvar > 0:act 'Lie on your back': gt 'rex_party_sexEvents', 'rex_sex_missionary'
+end
+
+if $ARGS[0] = 'rex_sex_missionary':
+	*clr & cla
+	sexvar -= 1
+	gs 'dinsex2', 'stamina_npc'
+	pcs_vag += 1
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_8_<<rand(1,5)>>.mp4"></video></center>'
+	'You lie down on your back, lasciviously opening your legs. Rex moves himself between them.
+	Rex started teasing you by rubbing the head of his penis against your lips and clitoris. After a few moments he started pushing and entered your juicy pussy.
+	His movements are strong, persistent and he is moving faster and faster...
+	Blissful feelings start filling your mind. You are groaning and getting gradually louder...'
+	if sexvar > 1: 'Slightly lowering the pace, Rex asks you to change position.'
+	if sexvar = 1: '<br>He indicates that he will cum soon.'
+	gs 'arousal', 'vaginal', 5, 'sub'
+	gs 'stat'
+	if sexvar > 0: act 'Get on all fours': gt 'rex_party_sexEvents', 'rex_sex_dog'
+	if sexvar > 0: act 'Get on top': gt 'rex_party_sexEvents', 'rex_sex_cow'
+	if sexvar = 0: act 'Make him cum': gt 'rex_party_sexEvents', 'rex_sex_cum'
+end
+
+if $ARGS[0] = 'rex_sex_cum':
+	*clr & cla
+	sexstart = 0
+	minut = 7
+	spafinloc = 7
+	sexpartkno = 1
+	sexvolume = 8
+	gs 'cum_manage'
+	
+	spafinloc = 11
+	sexpartkno = 1
+	sexvolume = 12
+	gs 'cum_manage'
+	spafinloc = 12
+	sexpartkno = 1
+	sexvolume = 20
+	gs 'cum_manage'
+	if Rex_Love = 0:party_boys_in +=1
+	if Rex_Love = 1:Rex_save +=1
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_11_<<rand(1,4)>>.mp4"></video></center>'
+	'Rex quickly shoved his dick in your mouth and immediately poured out all the accumulated love juices.
+	Cum filled your mouth. It soon overflows onto your lips and chin, Rex used his hand to push out the last drops and smeared them all over your face.
+	It seems the evening was a success, you can''t keep you eyes open any longer and start to fall asleep...'
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+end
+
+if $ARGS[0] = 'rex_toilet_bj':
+	cls
+	minut += 2
+	gs 'boyStat', 'A57'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_7.jpg"></center>'
+	'Rex drags you to the toilet, sporting a huge erection. You quickly squat down and eagerly plunge his <<dick>>cm <<$dick_girth>> cock into your mouth. Rex exclaims excitedly, "Wow, you are really unpredictable, and for that I love you." With that, he fucks you in the mouth, while you suck on him passionately. Soon you can tell he is about to blow his load.'
+	act 'Continue':
+		cls
+		gs 'arousal', 'bj', 8
+		
+		spafinloc = 12
+		gs 'cum_manage'
+		spafinloc = 11
+		gs 'cum_manage'
+		spafinloc = 7
+		gs 'cum_manage'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_8.jpg"></center>'
+		'You eagerly open your mouth and instantly get hit by a stream of semen. Rex groans passionately as he finishes. "Ooh, babe, that was fantastic. You know how to get me in a good mood. You clean yourself up, while I go back to the guests."'
+		act 'Move away': gt 'rex_party', 'Toilet'
+	end
+end
+
+if $ARGS[0] = 'sister_fun':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Anya</font></b></center>'     
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(1,2)>>.mp4"></video></center>'
+	'The alcohol has hit you hard. You feel a little light headed, but warm and happy. Anya cheerfully stumbles up to you.'
+	'"<<$pcs_nickname>>, let''s dance like there''s no tomorrow!" Pulling her top off, she helps you remove yours.'
+	'Before long, you and Anya have both stripped down to your panties and are dancing and shaking your tits for anyone that wants to watch.'
+	if Rex_Love = 1: 'Rex watches you and your sister with great curiosity.'     
+	act 'Move away': gt $loc, $loc_arg
+	act 'Kiss':
+		*clr & cla
+		'<center><b><font color = maroon>Anya</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(3,4)>>.jpg"></center>'
+		'As you dance half naked with your sister, the strong intoxication and excitement turns you on, and you start kissing her.'
+		'She doesn''t resist. Instead, she responds in kind, and soon you are both embraced in a deep passionate makeout, your tongues exploring each other''s mouths.'
+		if Rex_Love = 1:'Rex continues to watch you and your sister with great curiosity.'
+		'Wild desire seizes you. As you continue to kiss, you pull her towards one of the bedrooms.'
+		
+		gs 'arousal', 'kiss', 5, 'lesbian', 'incest'
+		gs 'stat'
+		
+		act 'Go to Rex''s room':
+			*clr & cla
+			'<center><b><font color = maroon>Anya</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(5,10)>>.jpg"></center>'
+			'Once in the room, you push the door closed and then push Anya down on the bed. You quickly crawl on top of her as you continue to kiss and caress her.'
+			'Anya, panting with excitement, caresses your body in return and just as fiercely returns the kiss.'
+			
+			gs 'arousal', 'foreplay', 5, 'lesbian', 'incest'
+			gs 'stat'
+		
+			act 'Lick Anya''s pussy':
+				*clr & cla
+				sister_party_dom = 1
+				'<center><b><font color = maroon>Anya</font></b></center>'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_4_<<rand(1,3)>>.mp4"></video></center>'
+				'You kiss her breasts and stomach right down to her panties. You pull her panties down, exposing her already soaking wet pussy, which you begin to lick.'
+				'Both of you moan in pleasure. You feel hot with desire and can''t help but think that, despite all your sister''s protests that she isn''t a lesbian, she is just kidding herself. She loves having lesbian sex way too much.'
+				'Kissing, licking and sucking her clit, your face is wet with her juices. Her body twitches, and she moans loudly from your actions.' 
+				'After her moaning starts getting louder, you plunge your tongue inside of her, eliciting a cry of pleasure as you tongue fuck her pussy, slipping your tongue in and out of her.'
+				
+				gs 'arousal', 'cuni_give', 5, 'lesbian', 'incest'
+				gs 'stat'
+		
+				act 'Caress Anya with your hand': gt 'rex_party_sexEvents', 'sister_hand'
+     
+			end
+			act 'Lie on your back':
+				*clr & cla
+				sister_party_dom = 2
+				'<center><b><font color = maroon>Anya</font></b></center>'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_4_<<rand(1,3)>>.mp4"></video></center>'
+				'You roll over as Anya climbs on top of you. As she kisses her way down to your nipples, your body arches in pleasure as you feel your pussy getting wet already.'
+				'Kissing and licking her way down your body, she pulls your panties off and gently kisses your clit. Her tongue gently flicking your clit elicits deep moans of pleasure from you. You feel a full tremor run through your body as her tongue slips inside of you.'
+				'"Mmm <<$pcs_nickname>>, you taste so sweet," Anya murmurs. You can''t help but smile at the skill of her tongue and again silently question her claims that she isn''t into girls.'
+				'Anya''s tongue works wonders, filling you with mounting pleasure as it strokes inside of you, penetrating you as deeply as it can go. She starts to tongue fuck your pussy.' 
+				
+				gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
+				gs 'stat'
+		
+				act 'Let Anya caress you with her hand': gt 'rex_party_sexEvents', 'sister_hand'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'sister_hand':
+	*clr & cla
+	'<center><b><font color = maroon>Anya</font></b></center>'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_5_<<rand(1,3)>>.mp4"></video></center>'
+	if sister_party_dom = 1:
+		'After licking your sister''s pussy for some time, you pull your head away from her and start rubbing her clit with your fingers.'
+		'She moans and bucks her hips against your hand. You then slip several of your fingers inside of her pussy and start rapidly finger blasting her wet hole.'
+		'Her moans get louder, and she starts to fuck your fingers, pleading with you not to stop.'
+		
+		gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
+		gs 'stat'
+				
+	elseif sister_party_dom = 2:
+		'After receiving plenty of oral attention from Anya, she withdraws and starts rubbing your wet pussy with her fingers.'
+		'She slips a finger into your wet hole, then a second and finally a third. She then starts finger fucking you in earnest.'
+		'You start trying to hump her hand as you wither in pleasure, begging her not to stop.'
+		
+		gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
+		gs 'stat'
+		
+	end
+	act 'Caress each other':
+		*clr & cla
+		'<center><b><font color = maroon>Anya</font></b></center>'
+		if rand(1,2) = 1:
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_6_<<rand(1,3)>>.mp4"></video></center>'
+			'Stopping a moment so you can both catch your breath, neither of you wants it to end, but you are both also desperate for release.'
+			'Anya smiles wickedly at you. "Well little sis, let''s see who eats pussy better and brings the other to orgasm first."'
+			'With those words, you simultaneously seek out each other''s crotch and start licking, sucking and using your fingers and tongue to fuck the other. You both start moaning and panting, close to your sweet releases.'
+			''
+			
+			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
+			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
+			gs 'arousal', 'cuni_give', -5, 'lesbian', 'incest'
+			gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
+			gs 'stat'
+			
+			act 'Cum': gt 'rex_party_sexEvents', 'sister_cum'
+		else
+			if rand(1,2) = 1:
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_7_1.mp4"></video></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_7_2.jpg"></center>'
+			end
+			if sister_party_dom = 2:'You let Anya know you also want to caress her pussy with your fingers.'
+			if sister_party_dom = 1:'Anya lets you know she also wants to caress your pussy with her fingers.'
+			'With delicate and skillful hands, you plunge your fingers into each other, at times pulling them out to lick and suck on them. Both of you moan and pant, close to your sweet releases.'
+			''
+			
+			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
+			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
+			gs 'arousal', 'cuni_give', -5, 'lesbian', 'incest'
+			gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
+			gs 'stat'
+			
+			act 'Cum': gt 'rex_party_sexEvents', 'sister_cum'
+		end
+	end
+
+	act 'Move to scissoring':
+		*clr & cla
+		gs 'stat'
+		'<center><b><font color = maroon>Anya</font></b></center>'
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_8_<<rand(1,4)>>.mp4"></video></center>'
+		'Opening up your legs, you rub your wet pussies against one another in a slow motion, both moaning in pleasure as you look into each other''s eyes. You slowly pick up speed as you continue to grind your pussies against one another.'     
+		
+		gs 'arousal', 'trib', 5, 'lesbian', 'incest'
+		gs 'stat'
+		
+		act 'Cum': gt 'rex_party_sexEvents', 'sister_cum'
+	end
+end
+
+if $ARGS[0] = 'sister_cum':     
+	*clr & cla
+	'<center><b><font color = maroon>Anya</font></b></center>'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_9_<<rand(1,2)>>.mp4"></video></center>'
+	'Your bodies convulse and spasm at the same time as a pure wave of pleasure overwhelms you both. In time, both of you will claim the other came first, but for now, you are lost in the ecstasy of the moment.'
+	'"Oh <<$pcs_nickname>>, if you weren''t my sister, I would marry you," your sister mumbles.'
+	'Your warm, wet and limp bodies lie entangled in a moment of pure bliss before you fall asleep in each other''s arms.'    
+
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal_finger', 5
+	gs 'arousal', 'end'
+	gs 'stat'
+	
+	act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+end
+
+if $ARGS[0] = 'dj_boobs':
+	cla
+	*clr
+	menu_off = 1
+	gs 'arousal', 'flash', 5
+	dj_boobs = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_2.jpg"></center>'
+	'"Like this boys?" you ask as you put your breasts on the turntable and move it a bit with your breasts.'
+	'Not much sound comes out from your attempt, but the guys seem to love it all the same.'
+	act 'Move away': gt $loc, $loc_arg
+	act 'Take off your top': gt 'rex_party_smallEvents', 'dj_cock'
+end
+
+if $ARGS[0] = 'dj_cock':
+	cla
+	*clr
+	menu_off = 1
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_3.jpg"></center>'
+	'Seeing the interest from the smiling guys watching you, you get rid of your top and bra and then place your naked breasts on the turntable, trying to play it topless. "I think I did better that time. What do you think?"'
+	'The guy pulls out his erection and says "Not bad. Maybe try this instead."'
+	act 'Move away': gt $loc, $loc_arg
+	act 'Give his dick a try': gt 'rex_party_smallEvents', 'dj_suck'
+end
+
+if $ARGS[0] = 'dj_suck':
+	cla
+	*clr
+	menu_off = 1
+	gs 'arousal', 'foreplay', 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_4.jpg"></center>'
+	'You grab his hard cock and place the head on the spinning record, barely touching it. The guy squirms a bit. Perhaps it was a little painful for him?'
+	if Rex_Love = 1: 'You don''t think Rex would like you playing these games with the DJ. You''ve had a little fun, but that''s enough.'
+	act 'Move away': gt $loc, $loc_arg
+	if Rex_Love = 0:
+		act 'Kiss it and make it better':
+			cla
+			*clr
+			gs 'npcgeneratec', 0, 'The DJ at Rex''s Party', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_5.jpg"></center>'
+			'You decide to make amends to the guy and kiss the head of his cock.'
+			'You find you don''t want to stop and passionately start sucking his <<dick>>cm <<$dick_girth>> dick right there in front of everyone.'
+			'After you suck him for a bit, he pulls you up and turns you around. Pulling your panties down, he pushes you forward, bending you over.'
+			
+			gs 'arousal', 'bj', 5, 'exhibitionism'
+			gs 'stat'
+			
+			act 'Bend over':
+				cla
+				*clr
+				guy += 1
+				pcs_vag += 1
+				gs 'cum_manage'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boy_6.mp4"></video></center>'
+				'You let him bend you over as he begins to rub the head of his dick against your pussy lips.'
+				'He abruptly pushes his <<dick>>cm <<$dick_girth>> dick inside of you and starts fucking you with a fast pace.'
+				'Within just a few moments, he grunts and you feel him shooting his load deep into your wet pussy.'
+				
+				gs 'arousal', 'vaginal', 5, 'exhibitionism'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
+				gs 'cuminsidereact'
+				act 'Move away': gt $loc, $loc_arg
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'toilet_boys_bj':
+    cls
+    '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_10.jpg"></center>'
+    'The boys take you to the bathroom and put you on your knees, unzipping their pants. Even in such a drunken state, you can still guess, what they want you to do.'
+    act 'Suck':
+        cls
+        gs 'arousal', 'hj', 5, 'group', 'gangbang'
+        gs 'arousal', 'bj', 5, 'group', 'gangbang'
+        guy += 3
+        gang += 1
+        gs 'stat'
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_11.jpg"></center>'
+        'You try to service them both awkwardly, stroking them both while trying to lick the heads of their dick, in your drunken state you can''t keep up any kind of rhythm with your hands. One of the guys tells you to just use your mouth.'
+        act 'Remove hands':
+            cls
+            i = rand(1,2)
+            if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_12_1.mp4"></video></center>'
+            if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_12_3.jpg"></center>'
+            'You dutifully remove your hands and instinctively begin to fondle your pussy with your free hand. The guys take turns fucking your mouth, sliding their cocks until their balls are against you chin, making your gag and your eyes water, while the other masturbates. Soon you bring them both to the point where they are ready to come.'
+            gs 'arousal', 'bj', 5, 'group', 'gangbang'
+            gs 'arousal', 'clit_finger', -5, 'masturbate'
+            gs 'stat'
+            act 'Continue':
+                cls
+                gs 'cum_call', 'mouth', $boy, 1,'','',20
+                gs 'cum_call', 'face', $boy, 1,'','',20
+                gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+                gs 'boyStat', $npclastgenerated
+                gs 'cum_call', 'clothes', $boy, 1,'','',20
+                gs 'cum_call', 'hair', $boy, 1,'','',20
+                gs 'stat'
+                '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_13.jpg"></center>'
+                'Still squatting and barely able to stay in this position they grab their hard dicks and masturbate them until you get splashed with their semen, spurts of cum cover your face and hair. The boys wipe off the last drop of cum from their limp dicks onto your face and cackle as they leave you alone in the room.'
+                gs 'arousal', 'end'
+                act 'Move away': gt 'rex_party', 'Toilet'
+            end
+        end
+    end
+end
+
+if $ARGS[0] = 'girl_orgy':
+	cls
+	minut += 5
+	inhib_exp += rand(1,3)
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_16_<<rand(1,2)>>.jpg"></center>'
+	'You decide that you want to be alone with the girls. You close the door, making sure that none of the boys will disturb you.'
+	act 'Proceed':
+		cla
+		*clr
+		minut += 5
+		gs 'stat' 
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_17_<<rand(4,5)>>.jpg"></center>'
+		'You continue your lesbian play. It is an insane orgy as you caress each other, using your tongues and gentle fingers on every available hole. Time flies as you bring each other to orgasm, convulsing from the pleasure.'
+		act 'Fall asleep':
+			cla
+			*clr
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_18_<<rand(1,2)>>.jpg"></center>'
+			'Covered in each others juices and warm embraces you quickly fall asleep. After some time you are woken up by someone shouting at you and slapping your face.'
+			act 'Wake up':
+				cls
+				*clr
+				minut += 90
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
+					'You slowly wake up as Anya keeps slapping you in the face.'
+					'"Well that was fun. How are you feeling?"'
+					'"Everything hurts, I''m dizzy. Give me a little more sleep." you answer with a weak voice.'
+					'"Get up stupid. Our parents are going to kill us, if we don''t spend the night at home."'
+				act 'Going home': gt 'bedrPar'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'orgy':
+	cls
+	if rex_love = 0:
+		gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+		gs 'boyStat', $npclastgenerated
+		$boydesc = $npc_usedname[$npclastgenerated]
+	else
+		gs 'boyStat', 'A57'
+	end
+	i = rand(1,2)
+	if i = 1:
+		
+		gs 'arousal', 'bj', 5, 'gangbang'
+		spafinloc = 12
+		gs 'cum_manage'
+		spafinloc = 11
+		gs 'cum_manage'
+		spafinloc = 7
+		gs 'cum_manage'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_19.jpg"></center>'
+		'The guys soon are unable to withstand just watching, decide to join the fun. The guys walk up in front of you girls and unbutton their pants, pulling out their hard dicks. You and the other pretty girls look at each other and decide to go with it. You kneel down in front of ' + iif(Rex_Love = 0,'one of the guys', 'Rex') + ' and happily begin to suck his already rock hard member. After you and the girls make the guys cum, each of you swallowing down the sperm, you continue with the fun.'
+		act 'Move away': gt $loc, $loc_arg
+	elseif i = 2:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_20_<<rand(1,2)>>.jpg"></center>'
+		'The guys soon are unable to withstand just watching, decide to join the fun. Soon you kiss and caress each other in unison. Rex closely keeps you to himself, not letting any of the other guys touch you.'
+		act 'Further':
+			cla
+			*clr
+			gs 'arousal', 'vaginal', 30, 'group', 'gangbang'
+			gs 'arousal', 'bj', -30, 'group', 'gangbang'
+			
+			spafinloc = 12
+			gs 'cum_manage'
+			spafinloc = 11
+			gs 'cum_manage'
+			spafinloc = 7
+			gs 'cum_manage'
+			guy += 1
+			gang += 1
+			gs 'cum_manage'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_21_<<rand(1,6)>>.jpg"></center>'
+			'You don''t really recall how your adult game turned into a raging orgy. Everyone is divided into pairs who passionately fuck each other. There are not enough girls for every guy and you notice how they are huddling around your sister with Roma as Anya gladly accepts any dick that is put in front of her. The apartment is dipped into an atmosphere of wild and depraved sex, groans and cries of pleasure coming from every corner. Time seems to have stopped and eventually everyone is just fucking each other until they run out of energy.'
+			gs 'cuminsidereact', '<<$boydesc>>'
+			act 'Fall asleep':
+				cla
+				*clr
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_6_<<rand(1,9)>>.jpg"></center>'
+				'After everything that happened, you fall asleep instantly, plunging into a sweet dream. You went to sleep all smeared with sperm, but you do not care. After some time you are woken up by someone shouting at you and slapping your face.'
+				act 'Wake up':
+					cls
+					minut += 90
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
+					'You slowly wake up as Anya keeps slapping you in the face.'
+					'"Well that was fun. How are you feeling?"'
+					'"Everything hurts, I''m dizzy. Give me a little more sleep." you answer with a weak voice.'
+					'"Get up stupid. Our parents are going to kill us, if we don''t spend the night at home."'
+					act 'Going home': gt 'bedrPar'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'gangbang_outdoor':
+	cls
+	i3 = rand(3,6)
+	guy += 3
+	gang += 1
+	pcs_vag += 3
+	pcs_ass += 3
+	menu_off = 1
+	i = rand(1,4)
+	if i = 1:
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_4.mp4"></video></center>'
+		'Together they get you out to the street and one of the guys pushes you down to your knees and pull his cock out. "Come on, <<$pcs_nickname>>, start sucking." You put you hand on his member and start to lick the whole length before wrapping your lips around the head. You keep sucking, taking turns on the guy''s dicks, until they are all hard and ready. Then one of them tells you to bend over.'
+		gs 'arousal', 'bj', 5, 'sub', 'group'
+		gs 'stat'
+		act 'Bend over':
+			cls
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_5.mp4"></video></center>'
+			'"Bend over, <<$pcs_nickname>>, and show us your tight, wet hole." You get in a comfortable position and the guys take turns fucking your wet pussy. You really enjoy yourself as you move your hips towards their rock hard members, making them glide in and out of your pussy, occasionally they switch to your ass, fucking it as well. The guys finish on your ass and back, except the last one who groans and tells you: "Ah, <<$pcs_nickname>>, open up, I want to cum in your mouth!"'
+			gs 'arousal', 'vaginal', 5, 'sub', 'group'
+			gs 'arousal', 'anal', 5, 'sub', 'group'
+			minut -= 5
+			gs 'stat'
+			act 'Open your mouth':
+				cls
+				minut += 5
+				
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = 8
+				gs 'cum_manage'
+				gs 'boyStat', $boy1
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = 4
+				gs 'cum_manage'
+				gs 'boyStat', $boy2
+				cumprecheck = 1
+				gs 'cum_manage'
+				sexvolume = 30
+				spafinloc = 12
+				gs 'cum_manage'
+				sexvolume = 10
+				spafinloc = 11
+				gs 'cum_manage'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_6.mp4"></video></center>'
+				'You turn around and kneel in front of him, playfully sticking out your tongue. The drunk guy gives a little jerk and sprays of sperm jets into your mouth. "Ah, <<$pcs_nickname>>, you are truly the best bitch at this party!" the guys all laugh. You try to join in, but your laughter is stifled by the mouthful of sperm.'
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Swallow': gt 'rex_party_sexEvents', 'boys_swalow'
+				act 'Spit out': gt 'rex_party_sexEvents', 'boys_spit'
+			end
+		end
+	elseif i = 2:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_7.jpg"></center>'
+		'The boys have fun dragging you into the street, and you immediately go down on your knees. "Hey, <<$pcs_nickname>>, try our lollipops." You get excited as more and more members are put in front of your plump lips. You open your lips and even feel turned on while sucking them. You talk dirty, squeeze your boobs together and even give a little moan with their dicks in your mouth. After everyone is hard and you had your fun you get up, still sucking on one of their members with your mouth, and the boys tell you to bend over.'
+		
+		gs 'arousal', 'bj', 5, 'sub', 'group'
+		gs 'stat'
+		
+		act 'Bend over':
+			cls
+			minut += 5
+				i = rand(0,16)
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+				if rand(0,5) = 5:
+					i = rand(0,16)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+					if i = 0: i2 = 1
+				end
+				gs 'boyStat', $boy1
+				i = rand(0,16)
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+				if rand(0,5) = 5:
+					i = rand(0,16)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+					if i = 0: i2 = 1
+				end
+				gs 'boyStat', $boy2
+				i = rand(0,16)
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+				if rand(0,5) = 5:
+					i = rand(0,16)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+					if i = 0: i2 = 1
+				end
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_8.mp4"></video></center>'
+			'You dutifully oblige and bend over not letting the member out of your mouth. One of the guys enters your aching pussy. In time they switch positions and even start fucking you in the ass. You feel relaxed and relish having their cocks in every hole, completely giving yourself up to the boys. After playing with you the guys finish one by one. Half awake and drunk you hardly care where they cum on you. Exhausted and quite a mess you drunkenly stumble into a room.'
+			gs 'arousal', 'vaginal', 5, 'sub', 'group'
+			gs 'arousal', 'anal', -5, 'sub', 'group'
+			if i2 = 1: gs 'cuminsidereact', 'one of the guys from the party'
+			killvar 'i2'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+		end
+	elseif i = 3:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_9.jpg"></center>'
+		'You are dragged into the street, undressed and unceremoniously pushed down on a bench. You give a sigh of pleasure when the guys begin to slowly fuck your mouth and pussy.'
+		'They take turns fucking you and letting you suck their cock, they even start fucking you in the ass.'
+		'Their cocks glide in and out of your holes, going deeper with every thrust.'
+		
+		gs 'arousal', 'vaginal', 5, 'sub', 'group'
+		gs 'arousal', 'anal', 5, 'sub', 'group'
+		gs 'arousal', 'bj', 5, 'sub', 'group'
+		minut -= 5
+		gs 'stat'
+			
+		act 'Go on':
+			cls
+			minut += 5
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = 4
+				gs 'cum_manage'
+				if rand(0,5) = 5:
+					i = rand(0,8)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+				end
+				gs 'boyStat', $boy1
+				gs 'cum_manage'
+				if rand(0,5) = 5:
+					i = rand(0,8)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+				end
+				gs 'boyStat', $boy2
+				cumprecheck = 1
+				gs 'cum_manage'
+				spafinloc = 8
+				gs 'cum_manage'
+				if rand(0,5) = 5:
+					i = rand(0,8)
+					if i = 2 or i = 5: i -= 2
+					if i = 6: i = 1
+					if i = 7: i = 4
+					sexvolume = 20
+					spafinloc = i
+					gs 'cum_manage'
+				end
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_10.jpg"></center>'
+			'The guys a very drunk and soon begin to focus on your pussy and ass, fucking you roughly. Enthralled by the moment the guys cum wherever they want. You feel hot jets of sperm hitting your back and ass. Some of them even cum inside of you. After they are done, one of them exclaims, "Uhh, the crown for the best whore of the evening certainly belongs to you, <<$pcs_nickname>>." Exhausted and quite a mess you drunkenly stumble into a room.'
+			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
+			gs 'arousal', 'anal', -5, 'sub', 'group', 'rough'
+			gs 'cuminsidereact', 'one of the guys from the party'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+		end
+	elseif i = 4:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_11.jpg"></center>'
+		'Out on the street, one of the guys immediately grabs you from behind, and tells you to bend over. You obediently follow his order as he spits in his hand and rubs his saliva all over your pussy. His member easily enters you and he brazenly grabs you by the hips and starts pumping you hard balls deep, completely unconcerned if you are enjoying yourself or not. The guy spanks you, his hand coming down in sweeping strokes on your ass, as he drives his dick in your pussy. You feel yourself getting wet from the forceful fucking and begin to rhythmically wag your ass enjoying every movement while holding two of the other guy''s members in your hands. Not quite done the first guy helps you up.'
+		
+		gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
+		gs 'arousal', 'hj', 5, 'sub', 'group'
+		minut -= 5
+		gs 'stat'
+			
+		act 'Get up':
+			cls
+			minut += 5
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = 3
+			gs 'cum_manage'
+			if rand(0,5) = 5:
+				i = rand(0,16)
+				if i = 11: 
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				sexvolume = 20
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+			end
+			gs 'boyStat', $boy1
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = i
+			sexvolume = 20
+			gs 'cum_manage'
+			spafinloc = i
+			sexvolume = 20
+			gs 'cum_manage'
+			if rand(0,5) = 5:
+				i = rand(0,16)
+				if i = 11: 
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				sexvolume = 20
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+			end
+			gs 'boyStat', $boy2
+			i = rand(0,16)
+			if i = 11: 
+			if i = 2 or i = 5: i -= 2
+			if i = 6: i = 1
+			if i = 7: i = 4
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = i
+			gs 'cum_manage'
+			if i = 0: i2 = 1
+			if rand(0,5) = 5:
+				i = rand(0,16)
+				if i = 11: 
+				if i = 2 or i = 5: i -= 2
+				if i = 6: i = 1
+				if i = 7: i = 4
+				sexvolume = 20
+				spafinloc = i
+				gs 'cum_manage'
+				if i = 0: i2 = 1
+			end
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_12.mp4"></video></center>'
+			'You rest your hands on a railing and the guy slips his cock in your ass and continues pumping, emptying his balls inside your ass before long. Another stud comes over and stupidly continues with the monotonous movements, using both of your holes looking to get off soon. When he starts to twitch, clearly being close to orgasm, he abruptly pulls his dick out of your vagina and you can feel warm drops on your back and buttocks.'
+			'"I''m next. Move!" says a voice from behind you. "Someone else can use her mouth." echoes another voice. Before long the rest of the guys finish too. Exhausted and quite a mess you drunkenly stumble into a room.'
+			gs 'arousal', 'bj', 5, 'sub', 'group'
+			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
+			gs 'arousal', 'anal', 5, 'sub', 'group', 'rough'
+			minut -= 5
+			gs 'stat'
+			if i2 = 1: gs 'cuminsidereact', 'one of the guys from the party'
+			killvar 'i2'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+		end
+	end
+end
+
+if $ARGS[0] = 'gangbang_indoor':
+	cls
+	guy += 3
+	gang += 1
+	stat['vaginal'] += 1
+	stat['anal'] +=1
+	pcs_vag += 3
+	pcs_ass += 3
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(7,13)>>.jpg"></center>'
+	'You fall down on your knees in front of the annoying guys and put your hand on two of their members. Tightening your grip slightly, you cause a faint sigh from one of the boys. You lick their members from the bottom up closing your lips around their heads. You continue taking turns sucking on their dicks without stopping. Your lips slide up and down on each member, exploring every bump and vein on their rock hard dicks. Greedily you take care of each one, leaving nobody unsatisfied. One of the guys starts to caress your back. He seems ready.'
+	
+	gs 'arousal', 'bj', 5, 'sub', 'group'
+	gs 'stat'
+		
+	act 'Surrender':
+		cls
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(15,19)>>.jpg"></center>'
+		'The hands on your back grip you firmly and the guy enters you with a swift movement, parting your pussy lips. His hands grab your hips authoritatively as he thrusts his member into your wet pussy. You feel the movement of fingers sliding down you buttocks and into your ass followed by an indescribable sensation as one of the guy''s members slips into your tight ring.'
+		'Feeling stretched inside you are overcome by pleasure and start to relax and enjoy everything that is happening to you. They use you as they please, and you are defenseless, subordinate to their will. After a while the guys pull out and put you on your knees in front of them.'
+		'Each of them taking a turn fucking your mouth, pussy and ass, pounding all of your holes with reckless abandon, seemingly unconcerned if you are enjoy it or not.'
+		
+		gs 'arousal', 'bj', 5, 'sub', 'group'
+		gs 'arousal', 'vaginal', 5, 'sub', 'group'
+		gs 'arousal', 'anal', 5, 'sub', 'group'
+		minut -= 5
+		gs 'stat'
+			
+		act 'Take their cum':
+			cls
+			minut += 5
+			
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = 15
+			sexvolume = 5
+			gs 'cum_manage'
+			spafinloc = 12
+			sexvolume = 10
+			gs 'cum_manage'
+			spafinloc = 11
+			sexvolume = 20
+			gs 'cum_manage'
+
+			gs 'boyStat', $boy1
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = 15
+			sexvolume = 5
+			gs 'cum_manage'
+			spafinloc = 12
+			sexvolume = 10
+			gs 'cum_manage'
+			spafinloc = 11
+			sexvolume = 20
+			gs 'cum_manage'
+
+			gs 'boyStat', $boy2
+			cumprecheck = 1
+			gs 'cum_manage'
+			spafinloc = 15
+			sexvolume = 5
+			gs 'cum_manage'
+			spafinloc = 12
+			sexvolume = 10
+			gs 'cum_manage'
+			spafinloc = 11
+			sexvolume = 20
+			gs 'cum_manage'
+
+			gs 'stat'
+			if rand(1,2) = 1:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(20,23)>>.jpg"></center>'
+			else
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(24,25)>>.mp4"></video></center>'
+			end
+			'The guys stand over you and begin to finish at the same time, spurting streams of semen on you from all sides. Some of them come into your mouth and you swallow copious amounts of sperm. You sit in front of the happy guys, licking every last drop off of their limp dicks. "Good work boys. We really used this bitch up.", you hear a muffled voice say, as you begin to fall asleep.'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+		end
+	end
+end
+
+if $ARGS[0] = 'boobs_yes':
+	cls
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_3.jpg"></center>'
+	if Rex_Love = 1: 'You completely ignore Rex and laugh at the seemingly happy guys.'
+	'They grab at your stunning body, fondling your tits and ass. You enjoy their attention.'
+	gs 'arousal', 'foreplay', 5, 'sub', 'group'
+	gs 'stat'
+	act 'Have fun with them':
+		cls
+		minut += 5
+		gs 'stat'
+		if rand(1,2) = 1:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_4_1.jpg"></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_4_2.mp4"></video></center>'
+		end
+		'Surrounded by the guys you let out a silly laugh. ' + iif(Rex_Love = 0,'Rex', 'One of the guys') + ' already has a bulge in his pants and turns his attention to your erect nipples. He then invites you to say hello to his friend.'
+		act 'Take a closer look':
+			cls
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_5.jpg"></center>'
+			'You gladly kneel in front of him to take a closer look at his erect member. "Come on <<$pcs_nickname>>, don''t be shy."'
+			act 'Start sucking':
+				cls
+				minut += 5
+				if Rex_Love = 0:
+					gs 'boyStat', 'A57'
+				else
+					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+					gs 'boyStat', $npclastgenerated
+				end
+				guy += 1
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_6.mp4"></video></center>'
+				'The beautiful view of his erect cock gets you very excited. As soon as your lips wrap around his cock, ' + iif(Rex_Love = 0,'Rex', 'the guy') + ' begins to furiously fuck your mouth. After a while he slows down, pulls his dick out and tells you to bend over...'
+				
+				gs 'arousal', 'bj', 5, 'sub'
+				gs 'stat'
+				
+				act 'Bend over':
+					cls
+					pcs_vag += 1
+					gs 'stat'
+					'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_7_<<rand(1,2)>>.mp4"></video></center>'
+					'You are happy to fulfill his wish and he immediately thrusts his hard cock inside your wet pussy. The two of you start fucking wildly, getting cheered on by the crowd of friends and acquaintances standing around you. ' + iif(Rex_Love = 0,'Rex', 'The guy') + ' is clearly excited and fucks you with vengeance.'
+					'Suddenly ' + iif(Rex_Love = 0,'Rex', 'the guy') + ' hastily pulls out his dick, and you realize, that he is about to cum.'
+					
+					gs 'arousal', 'vaginal', 5, 'sub'
+					gs 'stat'
+					
+					act 'Continue':
+						cls
+						minut += 5
+						spafinloc = 7
+						gs 'cum_manage'
+						
+						spafinloc = 11
+						gs 'cum_manage'
+						party_boys_in += 1
+						spafinloc = 12
+						gs 'cum_manage'
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_8.mp4"></video></center>'
+						'The crowd whistles and cheers him on: "Go on! Cover that bitch in cum!" You quickly turn around and get your pretty face covered in sperm. Streams of sticky semen flow down your lashes, lips and chin.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Swallow': gt 'rex_party_sexEvents', 'boys_swalow'
+						act 'Spit it out': gt 'rex_party_sexEvents', 'boys_spit'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'boys_swalow':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	swallow += 1
+	i = 5
+	:dinPartySwalloop
+	gs 'npcgeneratec', 0, 'a guy from Rex''s party', rand(17,22)
+	gs 'boyStat', $npclastgenerated
+	spafinloc = 12
+	gs 'cum_manage'
+	i -= 1
+	if i > 0: jump 'dinPartySwalloop'
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(13,15)>>.mp4"></video></center>'
+	'You swallow the tart mixture of several different guys sperm, greedily licking your lips with your tongue.'
+	'"Uhh <<$pcs_nickname>>! You''re still the best cocksucker around. If you want more sperm to swallow, call us."'
+	'The guys help you back into the apartment and into one of the bedrooms as you are too drunk to do it yourself.'
+	
+	act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+end
+
+if $ARGS[0] = 'boys_spit':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	i = 5
+	:dinPartySpitloop
+	gs 'npcgeneratec', 0, 'a guy from Rex''s party', rand(17,22)
+	gs 'boyStat', $npclastgenerated
+	spafinloc = 12
+	sexvolume = 1
+	gs 'cum_manage'
+	i -= 1
+	if i > 0: jump 'dinPartySpitloop'
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(16,17)>>.mp4"></video></center>'
+	'You spit out the mixture of cum from several guys.'
+	'"What''s wrong <<$pcs_nickname>>? Didn''t you like it? I thought all girls loved the taste of cum." one of the guys asked you with a laugh.'
+	'The guys help you back into the apartment and into one of the bedrooms as you are too drunk to do it yourself.'
+	
+	act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+end
+
+if $ARGS[0] = 'toilet_sex_events':
+	menu_off = 1
+	temp = rand(1,8)
+	if toiletEvent_Girls = daystart: temp += 1
+	if toiletEvent_Rex = daystart: temp += 1
+	if toiletEvent_Sis = daystart: temp += 1
+	if toiletEvent_SisBoy = daystart: temp = 1
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	if temp = 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_2_<<rand(1,2)>>.jpg"></center>'
+		'A girl sits on the toilet drinking.'
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 2:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_3_<<rand(1,5)>>.jpg"></center>'
+		'A girl sits on the toilet, urinating. She seems oddly happy to see you.'
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 3:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_4.jpg"></center>'
+		'A wasted girl sits on the toilet masturbating.'
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 4:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_1.jpg"></center>'
+		'You go into the bathroom, only to find Rex standing in there completely naked with a raging hard on.'
+		act 'Help':
+			*clr & cla
+			toiletEvent_Rex = daystart
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_2.jpg"></center>'
+			'You walk over to Rex and when you are within arms reach, he grabs you by the neck and pulls you close, kissing your lips. You take his dick in your hand and gently stroke it.'			
+			
+			gs 'arousal', 'kiss', 5
+			gs 'stat'
+			
+			act 'Masturbate':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<rand(3,4)>>.jpg"></center>'
+				'Breaking the kiss, you put your full attention into jerking Rex off.'
+				
+				gs 'arousal', 'hj', 5
+				gs 'stat'
+				
+				act 'Cum':
+					*clr & cla
+					minut += 5
+					gs 'boyStat', 'A57'
+					spafinloc = 15
+					gs 'cum_manage'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_5.jpg"></center>'
+					'As you jerk him off, he moans and sperm starts squirting all over your hands. "Ooh <<$pcs_nickname>>, you saved me. But next time, use your mouth." he says with a wink.'
+					
+					gs 'arousal', 'end'
+					gs 'stat'
+					
+					act 'Move away': gt $loc, $loc_arg
+				end
+			end
+			act 'Suck':
+				*clr & cla
+				if reksMeet = 1: bja += 1
+				gs 'boyStat', 'A57'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<rand(6,10)>>.jpg"></center>'
+				'You feel Rex''s hands on your shoulders gently pushing you down. You instantly obey and drop to your knees. Once you''re level with Rex''s <<dick>>cm <<$dick_girth>> dick, you take his head into your mouth and wrap your lips tightly around his shaft as you begin to suck him off.'
+				'He moans as you suck his cock. He is already tensing up and you can tell he is already about to cum.'
+				
+				gs 'arousal', 'bj', 5
+				gs 'stat'
+			
+				act 'Cum':
+					*clr & cla
+					minut += 5
+					gs 'boyStat', 'A57'
+					spafinloc = 12
+					gs 'cum_manage'
+					spafinloc = 11
+					gs 'cum_manage'
+					
+					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>'
+					else
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<i>>.jpg"></center>'
+					end
+					'You barely have time to pull his cock out of your mouth and a couple of spurts of cum shoot into your mouth, but the rest coats your pretty face. You happily lick his quivering dick, licking the last drops of cum up.'
+					
+					gs 'arousal', 'end'
+					gs 'stat'
+					
+					act 'Move away': gt $loc, $loc_arg
+				end
+			end
+		end
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 5:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_1.jpg"></center>'
+		'Entering the bathroom, you find your sister sitting on the toilet. You notice the cum on her face.'
+		'When she sees you, she smiles, then opens up her mouth and sticks out her tongue, showing how it is completely coated in cum.'
+		act 'Lick':
+			*clr & cla
+			toiletEvent_Sis = daystart
+			minut += 5
+			gs 'boyStat', 'A56'
+			sexvolume = 5
+			spafinloc = 12
+			gs 'cum_manage'
+			gs 'stat'
+			i = rand(2,5)
+			if i = 2 or i = 4:
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_<<i>>.mp4"></video></center>'
+			else
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_<<i>>.jpg"></center>'
+			end
+			'Seeing this little display, you smile and kneel down in front of her and start licking the sperm off her face. Once you have licked it all up, you kiss her. The two of you share a long kiss where you trade the cum back and forth in your mouths before you both end up swallowing a portion of it.'
+			'"So who''s dick, or should I say dicks, have you been sucking to get all that cum all over you?" you ask with a smile.'
+			'"Roma tried to make up again." your sister responds angrily. Once she has finished peeing, she gets up and leaves, obviously not wanting to talk about it.'
+			act 'Move away': gt $loc, $loc_arg
+		end
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 6:
+		toiletEvent_Girls = daystart
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_1.jpg"></center>'
+		'You open the door and see Lena and Ira kissing while Ira sits on the toilet. Lena pushes Ira''s legs apart and then breaks the kiss, lowers herself and begins to lick her pussy while Ira is still sitting on the toilet.'
+		'"Ahaha, Lena, your such a bitch sometimes and that''s why I love you." Moaned Ira.'
+		act 'Watch':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_2.jpg"></center>'
+			'A few moments later, they both get up and strip naked. Lena sits Ira on the edge of the sink and drops back to her knees while Ira spreads her legs wide, giving her friend easy access. Lena starts licking her friend''s pussy at once and Ira closes her eyes and moans softly.'
+			
+			gs 'arousal', 'voyeur_sex', 5, 'lesbian'
+			gs 'stat'
+			
+			act 'Watch':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_3.mp4"></video></center>'
+				'Ira moans louder and her breathing becoming quicker. She grabs Lena''s head and pushes it against her crotch as she grinds herself against her friend''s face. Her body begins to tremble as she lets out a loud moan of pleasure as she orgasms, coating her friend''s face with her pussy juices.'
+				
+				gs 'arousal', 'voyeur_sex', 5, 'lesbian'
+				gs 'stat'
+			
+				act 'Go in':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
+					'Once they finish, you walk in. Ira and Lena look at each other and then smile at you.'
+					'"Oh, it''s you <<$pcs_nickname>>. Glad it is not some guy. We do not know what we would have done with him."'
+					'"Yes, I just wanted to tidy myself up." you say with a slight blush.'
+					'Lena comes up to you and leans in close as she whispers in your ear: "You liked watching what we were doing, right? Stay with us and you''ll like it even more."'
+					act 'Stay':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_5.jpg"></center>'
+						'Looking at the naked girls, you bite your lower lip as your eyes roam over their bodies with a lustful look. Ira and Lena start kissing you all over while stripping you.'
+						'"Mmm... Oh yes, don''t stop." you moan out. Lena sucks your clit and begins licking your wet pussy.'
+						
+						gs 'arousal', 'cuni', 5, 'lesbian'
+						gs 'stat'
+			
+						act 'Enjoy':
+							*clr & cla
+							pcs_mood = 100
+							'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_6.mp4"></video></center>'
+							'You feel incredible pleasure from the gentle carresses of the girls. Completely trusting them, you feel totally relaxed. Ira takes Lena''s place licking your pussy, while Lena slides her tongue to your asshole and begins to lick it.'
+							'You don''t last long from this dual tobgue lashing. You start moaning loudly and your body spasms hard with an orgasm, coating Ira''s face from the wetness of your pussy. Once your orgasm passes, both girls stand up and Lena starts licking Ira''s face, licking your wetness off her. You quickly join in, licking Ira''s juices off of Lena''s face while Ira kisses you both in turns.'
+							
+							$orgasm_or = 'yes'
+							gs 'arousal', 'cuni', 5, 'lesbian', 'group'
+							gs 'stat'
+			
+							act 'Chat':
+								*clr & cla
+								minut += 5
+								'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_7.mp4"></video></center>'
+								'"Well <<$pcs_nickname>>, did you like it?"'
+								'"Oh, that was amazing girls! It makes me think we never need the touch of a man."'
+								'"That''s for sure! You only need a special girlfriend or girlfriends." Lena and Ira then leave.'
+								
+								gs 'arousal', 'end'
+								gs 'stat'
+								
+								act 'Move away': gt $loc, $loc_arg
+							end
+						end
+					end
+				act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+				end
+			act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+			end
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+		end
+	act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 7:
+		i = rand(1,3)
+		if i = 2:
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_8_<<i>>.mp4"></video></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_8_<<i>>.jpg"></center>'
+		end
+		'From the sounds of the groans, moans and cries of passion, the bathroom is in use again. Peeking inside, you see a sweet couple fucking like rabbits.'
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	elseif temp = 8:
+		toiletEvent_SisBoy = daystart
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_9.jpg"></center>'
+		'Looking inside the bathroom, you see your sister with her back against the wall, her skirt pulled up and panties around her ankles with Roma''s face buried between her legs. He''s apparently asking for forgiveness from your sister again.'
+		act 'Go to the living room': gt 'rex_party', 'LivingRoom'
+	end
+end
+
+!Masturbating in the bathroom
+if $ARGS[0] = 'toilet_mast':
+	cla
+	*clr
+	menu_off = 1
+	if pcs_inhib < 30:inhib_exp += rand(1,3)
+	i = rand(1,3)
+	if i < 3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_1_<<i>>.jpg"></center>'
+	if i = 3:'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_1_<<i>>.mp4"></video></center>'
+	'With your arousal overpowering your senses, you can''t take it anymore. You pull your panties down and rigorously begin rubbing your clit. Once you are good and wet, you slide your fingers inside your pussy and start finger fucking yourself, switching back and forth between rubbing your clit and fucking your fingers until you bring yourself to an orgasm.'
+	
+	$orgasm_or = 'no'
+	gs 'arousal', 'vaginal_finger', 5, 'masturbate'
+	$orgasm_or = 'custom'
+	gs 'arousal', 'clit_finger', 5, 'masturbate'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
+	act 'Move away': gt $loc, $loc_arg
+end
+--- rex_party_sexEvents ---------------------------------

locations/rex_party_smallEvents.qsrc

@@ -0,0 +1,1215 @@
+# rex_party_smallEvents
+
+if $ARGS[0] = 'dance':
+	cla
+	*clr
+	minut += 5
+	if pcs_inhib < 40: inhib_exp += rand(1,2)
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
+	'Moving to the rhythmic sounds, you indulge in an unrestrained dance.'
+	'You jump, sway your body and rock your booty, losing yourself in the general merriment.'
+	if pcs_danc >= 50: 'You move your body perfectly with the rhythm of the music in an erotic way. This gets you a lot of attention from the others. Attention that you love.'
+	if pcs_danc < 50: 'Your ridiculous movements during the dance doesn''t bother anyone. You dance badly, but you don''t care.'
+	act 'Have a rest': gt $loc, $loc_arg
+	act 'Dance more': gt 'rex_party_smallEvents', 'dance' 
+end
+
+!Drink
+if $ARGS[0] = 'party_drink':
+	cls
+	minut += 5
+	alkoParty += 1
+	gs 'drugs', 'alcohol', 'vodka'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
+	'Someone hands you a half full bottle of booze. Putting your lips to the mouth of the bottle, you turn it up and gulp down several swigs of strong drink, noticing the effects almost at once.'
+	'The party has just begun, you can still walk through the apartment and find something to do.'
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'sleep':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	gs 'stat'
+	if Rex_save = 1 and Rex_Love = 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_13_<<rand(1,4)>>.jpg"></center>'
+		'You fall asleep feeling the warmth of his body against your back as he hugs you tightly.'
+		'You feel his hard erection against your ass. It excites you, but you are too tired to do anything with it as you fall fast asleep.'
+	elseif Rex_save = 1 and Rex_Love = 0:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_12_<<rand(1,11)>>.jpg"></center>'
+		'You feel completely safe as you fall asleep.'
+	elseif iralenasleep >= 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(6,7)>>.jpg"></center>'
+		'You Lena and Ira lie in the bed side by side as you fall asleep.'
+	elseif drunk_sveta >= 1 and sister_party_dom < 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_<<rand(1,3)>>.jpg"></center>'
+		'Your body could not withstand so much alcohol and you end up passing out. Fortunately for you, friends are close and you are placed in a bed.'
+	elseif sister_party_dom >= 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_9_<<rand(3,5)>>.jpg"></center>'
+		'You fall asleep in the arms of your sister with a final kiss before drifting off.'
+	elseif party_boys_in >= 1:
+		i = rand(1,3)
+		hidden_guy += 3
+		if i = 1:
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			sloc = rand(0,6)
+			if sloc = 1:
+				spafinloc = 1
+			elseif sloc = 2:
+				spafinloc = 4
+			elseif sloc = 3:
+				spafinloc = 8
+			elseif sloc = 4:
+				spafinloc = 11
+			elseif sloc = 5:
+				spafinloc = 12
+			elseif sloc = 6:
+				spafinloc = 14
+			end
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			sloc = rand(0,6)
+			if sloc = 1:
+				spafinloc = 1
+			elseif sloc = 2:
+				spafinloc = 4
+			elseif sloc = 3:
+				spafinloc = 8
+			elseif sloc = 4:
+				spafinloc = 11
+			elseif sloc = 5:
+				spafinloc = 12
+			elseif sloc = 6:
+				spafinloc = 14
+			end
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			sloc = rand(0,6)
+			if sloc = 1:
+				spafinloc = 1
+			elseif sloc = 2:
+				spafinloc = 4
+			elseif sloc = 3:
+				spafinloc = 8
+			elseif sloc = 4:
+				spafinloc = 11
+			elseif sloc = 5:
+				spafinloc = 12
+			elseif sloc = 6:
+				spafinloc = 14
+			end
+			gs 'cum_manage'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_6_<<rand(1,9)>>.jpg"></center>'
+			'After everything that happened tonight, you feel exhausted and fall asleep. Your face and body are still smeared and coated in sperm, but you don''t care.'
+		elseif i = 2:
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			spafinloc = 11
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			spafinloc = 11
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			spafinloc = 11
+			gs 'cum_manage'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_8_<<rand(1,5)>>.jpg"></center>'
+			'After everything that happened tonight, you feel exhausted and fall asleep. You have a dream about warm wet drops landing on your face and lips, like a warm summers rain. You sleepily like at the drops.'
+		elseif i = 3:
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			if rand(0,1) = 0:
+				spafinloc = 3 & stat['hidden_anal'] += 1
+			else
+				stat['hidden_vaginal'] += 1
+			end
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			if rand(0,1) = 0:
+				spafinloc = 3 & stat['hidden_anal'] += 1
+			else
+				stat['hidden_vaginal'] += 1
+			end
+			gs 'cum_manage'
+			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
+			gs 'boyStat', $npclastgenerated
+			sexunaware = 1
+			if rand(0,1) = 0:
+				spafinloc = 3 & stat['hidden_anal'] += 1
+			else
+				stat['hidden_vaginal'] += 1
+			end
+			gs 'cum_manage'
+			i = rand(1,2)
+			if i = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_9_<<rand(1,2)>>.jpg"></center>'
+			if i = 2:'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_9_3.mp4"></video></center>'
+			'After everything that happened tonight, you feel exhausted and fall asleep. You have a dream about being impaled on a stake for all your sins but surprisingly, instead of hurting, it actually feels wonderful.'               
+		end
+	end
+	if (indorf = 0):
+		''
+		'After sleeping for some time, you are suddenly awakened by someone yelling at you to wake up while they slap you.'
+		act 'Wake up':
+			*clr & cla
+			minut += 90
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
+			'Anya shakes, yells at and slaps you until you slowly wake up.'
+			'She smiles at you. "It looks like you had fun tonight. How are you feeling?"'
+			'You groan, feeling sick. Your head is pounding, you feel like you are about to throw up and you are sore in more places than you can remember. "Go away and let me sleep, sis"'
+			'Anya shakes you again. "Get up you drunk idiot! Mom will kill us both if you don''t come home tonight."'
+			if Rex_save = 1 and Rex_Love = 0: 'As you leave the apartment, you gently kiss Rex on the cheek, thanking for the evening.'
+			if Rex_Love = 1: 'As you leave the apartment, you passionatly kiss Rex on the lips. "Thank you for a lovely evening."'
+			if party_boys_in >= 1: 'As you leave the apartment, some drunk guys tell you they will miss you and to sleep well while laughing to each other.'
+			if hour < 22 and  hour > 18:
+				minut += ((21 - hour) * 60) + (60 - minut)
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Go home': gt 'bedrPar'
+			else 
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Go home':minut += 15 & gt 'bedrPar'
+			end
+		end
+	else
+		if hour < 9 and hour > 3 :
+			pcs_sleep += (9 - hour) * 5
+			minut += ((8 - hour) * 60) + (60 - minut)
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
+			'Anya shakes you until you slowly wake up'
+			'She smiles at you. "Well it looks like you had fun tonight. How are you feeling?"'
+			'You groan, feeling sick. Your head is pounding and you are sore in more places than you can remember. "Let me sleep sis! I feel so sick."'
+			'Anya shakes you again. "Get up you drunk idiot! Mom is going to kill us both since we haven''t come home yet!"'
+			if Rex_save = 1 and Rex_Love = 0: 'As you leave the apartment, you gently kiss Rex on the cheek, thanking for the evening.'
+			if Rex_Love = 1: 'As you leave the apartment, you passionatly kiss Rex on the lips. "Thank you for a lovely evening."'
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Go home': minut += 15 & gt 'bedrPar'
+		else
+			*clr & cla
+			minut += 90
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_1.jpg"></center>'
+			*nl 'You wake up an hour later and find the party still in full swing.'
+			act 'Return to party': gt $loc, $loc_arg
+		end
+	end
+end
+
+if $ARGS[0] = 'lena':
+	cls
+	minut += 5
+	menu_off = 0
+	gs 'stat'
+	'<center><b><font color = maroon>Lena</font></b></center>'
+    '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/lena/lena.jpg"></center>'
+    'Walking up to Lena you talk and share a drink.'
+	'Small and mobile Lena'
+	act 'Move away': gt $loc, $loc_arg
+	if alko < 6 and $loc_arg = 'RexRoom': act 'Have a drink': gt 'rex_party_smallEvents', 'party_drink'
+end
+
+
+if $ARGS[0] = 'ira':
+	cla & *clr
+	minut += 5
+	menu_off = 0
+	gs 'stat'
+	'<center><b><font color = maroon>Ira</font></b></center>'
+    '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/ira/ira.jpg"></center>'
+    'Walking up to Ira you talk and share a drink.'
+	'Constantly embarrassing Ira'
+	act 'Move away': gt $loc, $loc_arg
+	if alko < 6 and $loc_arg = 'RexRoom': act 'Have a drink': gt 'rex_party_smallEvents', 'party_drink'
+end
+
+if $ARGS[0] = 'ira_lena_livingRoom':
+    cls
+	minut += 5
+	menu_off = 0
+	gs 'stat'
+	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_1_<<rand(1,5)>>.jpg"></center>'
+    
+    'Ira and Lena are really getting into the spirit of the party.'
+    'Lena and Ira together clink cups. "<<$pcs_nickname>>, Lets party!" As they offer you a drink.'
+
+    act 'Move away': gt $loc, $loc_arg
+    act 'Drink': 
+        cls
+        menu_off = 1
+        minut += 5
+        drunk_sveta += 1
+        gs 'drugs', 'alcohol', 'beer', 1
+        gs 'stat'
+        '<center><b><font color = maroon>Ira and Lena</font></b></center>'
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_2.jpg"></center>'
+        'Ira and Lena ply you with drinks, the more you drink the more your mood is markedly improved.'
+        'After several drinks Lena and Ira pull you roughly along to come have fun with them.'
+
+        if alko >= 7:
+            'Sudden your head starts spinning and you feel unsteady.'
+            act 'Pass out': gt 'rex_party_smallEvents', 'sleep'
+        else:
+            act 'Have fun': gt 'rex_party_sexEvents', 'ira_lena_fun', 'boys'
+            act 'Move away': gt $loc, $loc_arg
+        end
+    end
+	act 'Dance':
+        cls
+        minut += 5
+        menu_off = 1
+        gs 'stat'
+        '<center><b><font color = maroon>Ira and Lena</font></b></center>'
+        '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
+        'Moving to the rhythmic sounds, you indulge in an unrestrained dance with Lena and Ira.'
+        'You jump, sway your body, and rock your booty, losing yourself in the general merriment.'
+        if pcs_danc >= 50: 'You move your body perfectly with the rhythm of the music in an erotic way, getting you a lot of attention from others and you love they attention.'
+        if pcs_danc < 50: 'Your ridiculous movements during the dance does not bother anyone, you dance badly, but you do not care.'
+        act 'Have a rest': gt $loc, $loc_arg
+        act 'Kiss': gt 'rex_party_sexEvents', 'ira_lena_fun', 'girls'
+    end
+
+end
+
+if $ARGS[0] = 'rex':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Rex</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/reks.jpg"></center>'
+	'Tall, athletic guy, whom everyone calls Rex.'
+	if Rex_Love = 0: 'You walk up to Rex but then you realize he looks way too drunk and distracted by the other girls to pay much attention to you.'
+	if Rex_Love = 1: 'Rex comes up to you and hugs you sweetly.'
+	act 'Move away': gt $loc,$loc_arg
+	if $loc_arg = 'RexRoom' and alko < 6: act 'propose a toast': gt 'rex_party_smallEvents', 'party_drink'
+	if $loc_arg = 'LivingRoom': act 'Chat': gt 'rex_party_smallEvents', 'rex_talk'
+	if $loc_arg = 'LivingRoom': act 'Dance together': gt 'rex_party_smallEvents', 'rex_dance'
+end
+
+if $ARGS[0] = 'rex_talk':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	rex_talk += 1
+	gs 'stat'	
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_2_<<rand(1,5)>>.mp4"></video></center>'
+	'You find a space to sit and talk to Rex. He''s quite interesting and very handsome, so you spend most of the time just nodding and flirting.'
+	act 'Move away': gt $loc, $loc_arg
+	if rex_talk >= 2: act 'Hug': gt 'rex_party_smallEvents', 'rex_hug'
+	act 'Ask Rex to dance': gt 'rex_party_smallEvents', 'rex_dance'
+end
+
+if $ARGS[0] = 'rex_hug':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	if pcs_inhib < 40:inhib_exp += rand(1,2)
+	gs 'stat'
+	if Rex_Love =1:
+		if rand(1,2) = 1:
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_4_1.mp4"></video></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_4_<<rand(2,5)>>.jpg"></center>'
+		end
+		'Rex grabs you with his strong hands and begins to knead your ass with one hand and caress your pussy with the other in front of everybody.'
+		'You grab his neck and audibly groan, completely giving into his affections.'
+		'You are overwhelmed with the most pleasant feeling in the world. You don''t want it to stop.'
+		act 'Kiss':
+			*clr & cla
+			if rand(1,2) = 1:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_5_1.jpg"></center>'
+			else
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_5_<<rand(2,4)>>.mp4"></video></center>'
+			end
+			'Looking adoringly into each other''s eyes, you begin to passionately kiss.'
+			'You lips touch in your long kiss. It almost feels like a shock of electricity is running through your body.'
+			'For a long time, you continue to enjoy the warm kiss, but Rex eventually breaks the kiss and says "Come with me <<$pcs_nickname>>. I think we''ve had enough fun here." Smiling, he takes you by the hand and leads you away.'
+			
+			gs 'arousal', 'kiss', 5, 'exhibitionism'
+			gs 'stat'
+	
+			act 'Move away': gt $loc, $loc_arg
+			act 'Follow Rex': gt 'rex_party_sexEvents', 'rex_sex'
+		end
+	end
+
+	if Rex_Love = 0:
+		if rand(1,2) = 1:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_13_<<rand(4,7)>>.jpg"></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_13_<<rand(1,3)>>.mp4"></video></center>'
+		end
+		'Rex grabs you with his strong hands and begins to knead your ass with one hand and caress your pussy with the other in front of everybody.'
+		'You grab his neck and audibly groan, completely giving into his affections.'
+		'After playing with your pussy for a bit, he stops, takes you by the hand and pulls you away as he says "Come with me <<$pcs_nickname>>, I think we''ve had enough fun here."'
+
+		gs 'arousal', 'foreplay', 5, 'exhibitionism'
+		gs 'stat'
+		
+		act 'Follow Rex': gt 'rex_party_sexEvents', 'rex_sex'
+	end    
+end
+
+if $ARGS[0] = 'rex_dance':
+	*clr & cla
+	menu_off = 1
+	minut += 5
+	if pcs_inhib < 40: inhib_exp += rand(1,2)
+	gs 'stat'
+	if rand(1,2) = 1:
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_3_<<rand(4,6)>>.mp4"></video></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_3_<<rand(1,3)>>.jpg"></center>'
+	end
+	'Rex takes you by the hand and drags you out to dance. You are happy to follow him.'
+	'You dance, slowly getting closer to each other and finally grinding a bit against each other.'
+	'You turn around, putting your back to him and grind your tight ass against his crotch. You can feel his hard cock against your ass as you grind against it.'
+	act 'Move away': gt $loc, $loc_arg 
+	if rex_talk >= 2: act 'Hug': gt 'rex_party_smallEvents', 'rex_hug'
+end
+
+if $ARGS[0] = 'roma':
+	cls
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Roma</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/roma/roma.jpg"></center>'
+	'Red-haired skinny guy named Roma.'
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'anya':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Anya</font></b></center>'
+	if $loc_arg = 'LivingRoom':
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_1.jpg"></center>'
+		''
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
+		''
+	end
+	'Your sister' + iif($loc_arg = 'LivingRoom', ' is drunk and in good spirits.', '.')
+	'"Oh <<$pcs_nickname>>, how do you like our humble party? It looks like you''re having a good time."'
+	act 'Move away': gt $loc, $loc_arg
+	if alko < 6 and $loc_arg = 'RexRoom': act 'Have a drink': gt 'rex_party_smallEvents', 'party_drink'
+	if $loc_arg = 'LivingRoom': act 'Drink': gt 'rex_party_smallEvents', 'sister_drink'
+	if $loc_arg = 'LivingRoom': act 'Chat about guys': gt 'rex_party_smallEvents', 'sister_talk'
+end
+
+if $ARGS[0] = 'sister_talk':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Anya</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_1.jpg"></center>'
+	! These chat options will happen when Anya and Roma had their fight.
+	if sisterQW['AnyaRomaQW'] = 1:
+		sisterQW['partytalk'] += 1
+		if sisterQW['partytalk'] = 1:
+			'"It is strange seeing you back together with Roma."'
+			'"We talked things out and decided to give it another chance.'
+		elseif sisterQW['partytalk'] = 2:
+			'"You''re over it after all the cursing, crying and yelling?"'
+			'"I know, I know. I got excited a little bit, but now everything is worked out."'
+		elseif sisterQW['partytalk'] = 3:
+			'"So you are just going to continue dating him after everything that happened?"'
+			'"Well little sis, he made mistakes. Now he and I have worked things out, and I thank God everything is behind us."'
+		elseif sisterQW['partytalk'] = 4:
+			'"I cannot believe it! You let him crawl back and took him back? It''s not like you."'
+			'"Well <<$pcs_nickname>>, it''s best to have a bird in the hand, especially now that we don''t have such a simple relationship anymore.'
+		elseif sisterQW['partytalk'] = 5:
+			'"What do you mean you ''don''t have a simple relationship''? I need more details."'
+			'"Yes I know, so pay attention, I''m not going to repeat this. In a sense, we now have an open relationship."'
+		elseif sisterQW['partytalk'] = 6:
+			'"Open relationship? You mean where you can both fuck anyone you want and you keep dating him?"'
+			'"Eh, something like that <<$pcs_nickname>>."'
+		elseif sisterQW['partytalk'] = 7:
+			'"I can see that you are a fool! I could not agree to that."'
+			'"Why? I know he loves me, and he knows that I love him, but while we are young, we have fun."'
+		elseif sisterQW['partytalk'] = 8:
+			'"I still say it''s crazy how you can be in a loving relationship and still fuck anyone."'
+			'"<<$pcs_nickname>>, I am not a complete fool. Why ''anyone''? Look around, there are other nice guys here too, such as Rex.'
+		elseif sisterQW['partytalk'] = 9 and Rex_Love = 1:
+			'"Do you want me to kill you? You know that I''m dating Rex!"'
+			'"Calm down <<$pcs_nickname>>, I was joking! I know that you two are dating. Although... I did let you fuck my boyfriend, so why can''t I fuck yours?"'
+		elseif sisterQW['partytalk'] = 9 and Rex_Love = 0:
+			'"You''re right. I wouldn''t mind having him myself, but I don''t know if Rex would agree."'
+			'"Oh, what a naughty girl! Well then, how about we lure him together?"'
+		elseif sisterQW['partytalk'] = 10 and Rex_Love = 1:
+			sisterQW['AnyaRomaQW'] = 2
+			'You huff and pout, but realize she has a point. "OK fine, but I''m not sure Rex would agree. You and Roma both agreed ahead of time."'
+			'"The main thing is that you are not opposed to it <<$pcs_nickname>>. Besides, all men are the same. You really think Rex could withstand both our charms?"'
+		elseif sisterQW['partytalk'] = 10 and Rex_Love = 0:
+			sisterQW['AnyaRomaQW'] = 2
+			'"You want to seduce Rex? Haha, I''ve already fucked him! You have no idea what he is like in bed.'
+			'"Wow! What a saucy little minx you are! So that''s why you are always running around in his room? Well then, that will make this easier."'     
+		end
+		
+	else
+		i = rand(1,9)
+		if i = 1:'"<<$pcs_nickname>>, you still don''t have a man?"'
+		if i = 2:'"Sometimes I can''t decide what is more important: the size of their wallet or the size of their dick. What do you think <<$pcs_nickname>>?"'
+		if i = 3:'"If you have a reputation as the town whore, the guys won''t let you come to the parties anymore."'
+		if i = 4:'"It''s not good to come here when you''re in a bad mood. Rex hates having miserable bastards in his house."'
+		if i = 5:'"Still going to that crap school? Idiot, find yourself a rich man, and all your problems are solved!"'
+		if i = 6:'"When I drink, I become like a man and constantly think about sex."'
+		if i = 7:'"Roma sends his greetings. He said he missed our threesomes, so I slapped him across the face."'
+		if i = 8:'"What do you think of our host?"'
+		if i = 9:'"Get wild <<$pcs_nickname>>! Everything that happens at Rex''s parties, stays at Rex''s parties."'
+
+	end
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'sister_drink':
+	minut += 5
+	*clr & cla
+	gs 'drugs', 'alcohol', 'beer'
+	drunk_sveta += 1
+	gs 'stat'
+	'<center><b><font color = maroon>Anya</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_2.jpg"></center>'
+	'Anya hands you a bottle. You take a swig and hand it back. "Keep the bottle, little sis. I won''t tell <<$npc_nickname[''A29'']>>," she says with a wink.'
+	if alko >= 7:
+		'With her encouragement, you end up drinking more than you should.'
+		'Suddenly your head is severely spinning...'
+		act 'Pass out': gt 'rex_party_smallEvents', 'sleep'
+	else
+		'You gladly drink more, sharing it with your sister.'
+		'Feeling buzzed, you are ready to plunge into the wild debauchery of the party.'
+		act 'Dance topless': gt 'rex_party_sexEvents', 'sister_fun'
+		act 'Move away': gt $loc, $loc_arg
+	end
+end
+
+if $ARGS[0] = 'dj':
+	*clr & cla
+	minut += 5
+	menu_off = 1
+	party_dj = 1
+	gs'stat'
+	if party_dj = 1 and dj_beer < 1:
+		'<center><b><font color = maroon>DJ</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+		'The guy messes with the soundboard and makes the sound even louder. "Hello, <<$pcs_nickname>>, get my friend and me a beer. You can find all the booze in the kitchen."'
+	elseif dj_beer = 1 and dj_thank < 1:
+		'<center><b><font color = maroon>DJ</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+		'The guy messes with the soundboard and makes the sound even louder. "Well, <<$pcs_nickname>>, where are our beers?" You go into the kitchen, get two bottles of beer and <a href="exec:gt ''rex_party_smallEvents'', ''dj_give_beer''">bring</a> them to the guys.'
+	elseif dj_thank = 1 and dj_bad < 1:
+		'<center><b><font color = maroon>DJ</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+		'The guy messes with the soundboard and makes the sound even louder. You are allowed to <a href="exec:gt ''rex_party_smallEvents'', ''dj_thank''">twist</a> some knobs on the turntable.'
+	elseif dj_bad = 1 and dj_boobs < 1:
+		'<center><b><font color = maroon>DJ</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+		'"<<$pcs_nickname>>, you won''t get a turn. Don''t even try this time.'
+	elseif dj_boobs = 1:
+		'<center><b><font color = maroon>DJ</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+		'The guy messes with the soundboard and makes the sound even louder. You are again allowed to <a href="exec:gt ''rex_party_sexEvents'', ''dj_cock''">twist</a> some knobs on the turntable.'
+	end
+	act 'Move away': gt $loc, $loc_arg
+	gs 'willpower', 'exhib', 'self', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Flash boobs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'self' & gt 'rex_party_sexEvent', 'dj_boobs'
+	else
+		act 'Flash boobs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+
+if $ARGS[0] = 'dj_take_beer':
+	cla
+	*clr
+	menu_off = 1
+	minut += 5
+	dj_beer = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_3.jpg"></center>'
+	'You take two bottles of booze to the DJ and his friend'
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'dj__give_beer':
+	cla
+	*clr
+	menu_off = 1
+	minut += 5
+	dj_thank = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
+	'You take two beers to the guys. They gratefully appreciate your offer.'
+	'"<<$pcs_nickname>>, you ever use one of these before?" the DJ asks you, indicating the turntable.'
+	'You shake your head. "No, I can''t say I have."'
+	'He smiles at you. "While everyone is still sitting and drinking, you can give it a little <a href="exec: gt ''rex_party_smallEvents'', ''dj_thank''">twist</a>. Let''s see what you can do girl!"'
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'dj_thank':
+	cla
+	*clr
+	menu_off = 1
+	minut += 5
+	dj_bad = 1
+	instrmusic_exp += rand(0,2) 
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_1.jpg"></center>'
+	'You are happy to take this opportunity. Putting your fingers on the records, you move them around, making some god awful noises. The guys stop you before too long. "OK, I think that''s enough. I think you made my ears bleed." he says with a laugh.'
+	act 'Move away': gt $loc, $loc_arg
+!why not add in an option here to start the series below?
+end
+
+if $ARGS[0] = 'party_girls':
+	cls
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Girls</font></b></center>'
+	if $loc_arg = 'RexRoom':
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls.jpg"></center>'
+		*nl
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_1_<<rand(1,4)>>.jpg"></center>'
+		*nl
+	end
+	'Some former classmates of your sister. You are not familiar with them.'
+	act 'Move away': gt $loc, $loc_arg
+	if $loc_arg = 'LivingRoom': act 'Drink': gt 'rex_party_smallEvents', 'party_girls_drink'
+	if $loc_arg = 'LivingRoom': act 'Dance together': gt 'rex_party_smallEvents', 'party_girls_dance'
+	if $loc_arg = 'RexRoom' and alko < 6: act 'Propose a toast': gt 'rex_party_smallEvents', 'party_drink'
+end
+
+if $ARGS[0] = 'party_girls_drink':
+	cls
+	minut += 5
+	gs 'drugs', 'alcohol', 'beer'
+	drunk_sveta +=1
+	gs 'stat'
+	i = rand(1,2)
+	if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_1.mp4"></video></center>'
+	if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_<<rand(2,4)>>.jpg"></center>'
+	'The girls have some booze with them and you are happy to share a drink with them. You and the girls keep drinking during dancing. Your drunk yelling drowned out by the music, as the girls tell you they want to have even more fun...'
+	if alko >= 7: 'You are dizzy, and feel very ill.'
+	if alko >= 7: act 'Sleep': gt 'rex_party_smallEvents', 'sleep'
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $loc_arg
+	else
+		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+	act 'Drink more':
+        cls
+        minut += 5
+        drunk_sveta += 1
+        gs 'stat'
+        i = rand(1,2)
+        if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_3_1.mp4"></video></center>'
+        if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_3_<<rand(2,3)>>.jpg"></center>'
+        'You have another drink, and start to lose touch with reality. You feel dizzy and very sick...'
+        act 'Pass out': gt 'rex_party_smallEvents', 'sleep'
+    end
+	!act 'Take off your top': gt 'rex_party_smallEvents', 'bra'
+end
+
+if $ARGS[0] = 'bra':
+	cls
+	minut += 5
+	inhib_exp += rand(0,1)
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_5_<<rand(1,3)>>.jpg"></center>'
+	'Yielding to the general madness, you pull your top off exposing your bra to the frantic shouts of the boys. In this state your dancing clearly will look much more spectacular.'
+	if Rex_Love = 1: 'Rex watches you closely, but says nothing.'
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $loc_arg
+	else
+		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+	act 'Dance topless':
+		cls
+		inhib_exp += rand(0,2)
+		gs 'arousal', 'flash', 5
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_6_<<rand(1,3)>>.jpg"></center>'
+		'Under the merry shouts of the boys and girls you take off your bra and dance half-naked. A lot of the guys come closer trying to enjoy the view.'
+		if Rex_Love = 1: 'You enjoy yourself when Rex shouts "Maybe thats enough? This isn''t very nice to look at."'
+		act 'Move away': gt $loc, $loc_arg
+		if Rex_Love = 1: act 'Drag him to the restroom': gt 'rex_party_sexEvents', 'rex_toilet_bj'
+		act 'Undress':
+			gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+			gs 'boyStat', $npclastgenerated
+			$boydesc = $npc_usedname[$npclastgenerated]
+			inhib_exp += rand(0,2)
+			cls
+			gs 'arousal', 'flash', 5
+			gs 'stat'
+			if rand(1,2) = 1:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_9_1.jpg"></center>'
+			else
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_9_2.mp4"></video></center>'
+			end
+			if Rex_Love = 1: 'You completely ignore Rex. He glares at you and turns away.'
+			'You undress completely, only a few girls follow your example and get naked as well. You all get into the middle of the room and dance together. Ignoring the surrounding people, you dance together, naked. Several drunks guys approach you, and tell you it would be a sin to not use such a fine bitch like you.'
+			act 'Go with the guys': gt 'rex_party_sexEvents', 'toilet_boys_bj'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'party_girls_dance':
+	cls
+	minut += 5
+	if pcs_inhib < 40:inhib_exp += rand(1,2)
+	gs 'stat'
+	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
+	'You are grabbed by the rhythmic sounds and indulge in unrestrained dancing with the crowd.	You jump and twist your body, completely merging and absorbing yourself in the fun atmosphere.'
+	if pcs_danc >= 50: 'Your curves and movements to the music make you a pleasure to watch. The others stare at you excitedly.'
+	if pcs_danc < 50: 'Your ridiculous movements during the dance don''t bother anyone. You dance badly, but you do not care.'
+	act 'Take a breather': gt $loc, $loc_arg
+	act 'Dance more': 
+        cls
+        minut += 5
+        inhib_exp += rand(1,2)
+        gs 'stat'
+        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_14_<<rand(1,4)>>.jpg"></center>'
+        'You have a lot of fun as you dance with the girls under the deafening music. During the dance you are pressed against each other and the other girls touch you in all sorts of places. Suddenly a pair of hands pull up you skirts and bare your ass. One of the girls pulls down your panties and starts to kiss and lick you.'
+        if Rex_Love = 1: 'Rex watches you with interest as you have fun with the girls.'
+        'The girls are only getting warmed up and offer you more.'
+        gs 'willpower', 'cuni', 'resist', 'medium'
+        if will_cost <= pcs_willpwr:
+            act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $loc_arg
+        else
+            act 'Move away (<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 in':
+            cla
+            *clr
+            minut += 5
+            gs 'stat'
+            '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_15_<<rand(1,8)>>.jpg"></center>'
+            '"Come on <<$pcs_nickname>>, lets get wild." You give in to the general madness, taking off all your clothes, and diving headlong into the abyss of insane lesbian fervor.'
+            act 'Have fun with the guys': gt 'rex_party_sexEvents', 'orgy'
+            act 'Go into another room with the girls': gt 'rex_party_sexEvents', 'girl_orgy'
+        end
+    end
+end
+
+if $ARGS[0] = 'party_boys':
+	cls
+	menu_off = 1
+	minut += 5
+	gs 'stat'
+	'<center><b><font color = maroon>Guys</font></b></center>'
+	if $loc_arg = 'party_kuh' or $loc_arg = 'LivingRoom':
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_2.jpg"></center>'
+		''
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys.jpg"></center>'
+		''
+	end
+	'You see a couple of former classmates of your sister. You are not familiar with them.'
+	if $loc_arg = 'LivingRoom': 'A couple of fun energetic guys come over to you. "Hey <<$pcs_nickname>>, long time no see. Do you want to come with us?"'
+	if alko >= 5: '"Hey <<$pcs_nickname>>, how about you show us your great tits. Just for fun?"'
+	act 'Move away': gt $loc,$loc_arg
+	if alko < 6 and $loc_arg = 'RexRoom': act 'Drink': gt 'rex_party_smallEvents', 'party_drink'
+	if $loc_arg = 'Kitchen': act 'Drink': gt 'rex_party_smallEvents', 'kitchen_boy_drink'
+	if $loc_arg = 'LivingRoom': act 'Drink': gt 'rex_party_smallEvents', 'gost_drink'
+	if alko >= 5 and $loc_arg = 'LivingRoom': act 'Show your tits': gt 'rex_party_smallEvents', 'show_boobs'
+	if $loc_arg = 'LivingRoom': act 'Dance': gt 'rex_party_smallEvents', 'dance'
+end
+
+if $ARGS[0] = 'gost_drink':
+	cls
+	minut += 5
+	gs 'drugs', 'alcohol', 'beer'
+	party_boys_in += 1
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_1.jpg"></center>'
+	'You happily make a couple of sips. Some guys urge you to show off more of your body.'
+	'"Hey, how about you show us your great tits. Just for fun?"'
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Move away (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt $loc,$loc_arg
+		end
+	else
+		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
+	act 'Show your tits': gt 'rex_party_smallEvents', 'show_boobs'
+	if alko >= 7: act 'Fall asleep drunk': gt 'rex_party_smallEvents', 'sleep'
+end
+
+if $ARGS[0] = 'show_boobs':
+	cls
+	menu_off = 1
+	gs 'stat'
+	if rand(1,2) = 1:
+		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_2_1.mp4"></video></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_2_<<rand(2,5)>>.jpg"></center>'
+	end
+	'With a twinkle in your eyes you lower your bra, baring your breasts, as the guys watch you with pleasure.'
+	'"So what do you think, boys?" you ask with a smile on your face.'
+	'"You are a straight up sex grenade, and I would like to pull your pin." one of the guys answers. With these words, they come over to you.'
+	if Rex_Love = 1: 'Rex looks unhappily in your direction, his eyes flashing with anger and jealousy.'
+	if Rex_Love = 1: act 'Drag Rex to the restroom': gt 'rex_party_sexEvents', 'rex_toilet_bj'
+	gs 'arousal', 'flash', 5, 'exhibitionism'
+	gs 'stat'
+	act 'Move closer': gt 'rex_party_sexEvents', 'boobs_yes'
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Move away (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt $loc,$loc_arg
+		end
+	else
+		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+
+if $ARGS[0] = 'kitchen_boy_drink':
+	cls
+	minut += 5
+	gs 'drugs', 'alcohol', 'beer'
+	party_boys_drink += 1
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_<<rand(1,4)>>.jpg"></center>'
+	i = rand(1,6)
+	if i = 1:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
+		'"Girl, sorry, and you will not have to have sex?"'
+		'"Oh, sorry, I threw ..."'
+		'"Congratulations."'
+	elseif i = 2:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "When I was a child my parents forbade me all the fun things. Now I''m grown up and my girl doesn''t allow me to do them."'
+	elseif i = 3:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "Previously, it was clear. Did the lessons - good, grandmother moved across the street - clever, the ball broke the glass - bad. And now - one girl did well, and the other from this - bad. And you all did everything for the third. And she - still!'
+	elseif i = 4:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "Girls always say: Well all, until the evening, Smack! - Well, what, on dick, Smack? Do you want to kiss - a kiss!'
+	elseif i = 5:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
+		'"Just listen, <<$pcs_nickname>>. When I tell a girl "Come to me", and she asks me "To do what?" do I really have to explain it to her? After all, my house is not a bowling alley or a cinema."'
+		'"If I say: "I want to have sex. I definitely will have a sex. You can join in, or not. Afterwards you can stay, but it would be better if you leave", she won''t come over."'
+		'"But if I tell her something ridiculous like "Come back home with me, I have a fine collection of lute music of the 16th century" she will go for it. Girls are well aware what will happen when they come over but they want to have an excuse for it."'
+	elseif i = 6:
+		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
+		'So I''m starting to have sex with this girl and she keeps complaining. It goes like this: '
+		'"The windows are open!"'
+		'"Who cares?"'
+		'"There will be mosquitoes everywhere!"'
+		'"We''ll turn off the lights."'
+		'"But then the cockroaches come out!"'
+	end
+	act 'Move away': gt $loc, $loc_arg
+
+	if party_boys_drink > 2:
+		cls
+		minut += 5
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_2_<<rand(1,3)>>.jpg"></center>'
+		'"Guys, you poured too much into the glass. I''m drunk already.", you say."'
+		'"Come on <<$pcs_nickname>>, lets have another." with that, one of the guys puts his arm around you and bares your breasts. The touchy guy is surprisingly nice and you are a little amused by this situation.'
+        
+        if npc_rel['A57'] >= 50:
+            'You notice Rex in the room...'
+            act 'Get Rex''s attention': 
+                	cls
+                    Rex_save += 1
+                    menu_off = 0
+                    minut += 5
+                    gs 'stat'
+                    '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_10.jpg"></center>'
+                    'You glance over to Rex. He seems ready to help you out of this awkward situation.'
+                    'He quickly exclaims, "Hey boys, are you insane? Take your hands off my fucking girl. One more time and I will kick your ass!"'
+                    'The guy takes his hands off of you, "Rex, bro, we were just having a bit of drunken fun. I''m sorry, if I hurt your girl."'
+                    'Rex comes up to you and picks you up, "Come on, sweety. I''ll make sure the other guys leave you alone. Lets go to another room."'
+                    act 'Go to the Rex''s room': gt 'rex_party_smallEvents', 'V_komnatu'
+            end
+        end
+		act 'Have fun with them': gt 'rex_party_smallEvents', 'smile'
+		gs 'willpower', 'action', 'type', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Break free of them (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'type'
+				gs 'stat'
+                cls
+                menu_off = 0
+                minut += 5
+                gs 'stat'
+                '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_3.jpg"></center>'
+                'You find the strength to break free of the grasping hands, shouting "Let me go, I don''t want that. Get your filthy hands off me."'
+                '"Come on, <<$pcs_nickname>>, we''re just having fun. Just admit that you liked where this was going." the touchy guy responds.'
+                act 'Move away': gt $loc,$loc_arg
+                act 'Have fun with them': gt 'rex_party_smallEvents', 'smile'
+			end
+		else
+			act 'Break free of them (<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] = 'smile':
+	cls
+	party_boys_in += 1
+	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+	gs 'boyStat', $npclastgenerated
+	$boydesc = $npc_usedname[$npclastgenerated]
+	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+	$boy1 = $npclastgenerated
+	$boydesc1 = $npc_usedname[$npclastgenerated]
+	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+	$boy2 = $npclastgenerated
+	$boydesc2 = $npc_usedname[$npclastgenerated]
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(1,3)>>.jpg"></center>'
+	'You give the guys a faint smile, showing your availability. They quickly realize the situation and come over to you and start to stroke your hair and massage your neck. It is very relaxing and you give a soft sigh which turns into a moan. You have the full attention of the boys and they decide to drag you.'
+	act 'Go outside Rex''s house': gt 'rex_party_sexEvents', 'gangbang_outdoor'
+	act 'Go to another room':minut += 5 & gt 'rex_party_smallEvents', 'V_komnatu'
+end
+
+if $ARGS[0] = 'V_komnatu':
+	cls
+	gs 'stat'
+	i = rand(1,5)
+	if i = 1:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_1.jpg"></center>'
+		'One of the girls is sitting in the room trying to recover from the exhausting party.'
+		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
+		if party_boys_in >= 1: 'Several guys switch their attention to her, but are quickly rebuffed. The girl looks at you curiously as the guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
+	elseif i = 2:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_2.jpg"></center>'
+		'One of the girls is sitting in the room trying to recover from the exhausting party.'
+		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
+		if party_boys_in >= 1: 'Anticipating what will happen next, she quickly dodges out of the room. The guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
+	elseif i = 3:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(3,4)>>.jpg"></center>'
+		'In the room your sister and Roma are engaged in sweaty sex.'
+		if Rex_save = 1: 'Rex just glances at them and says, "Guys, I don''t want you to stop, but you will have to continue in another place."'
+		'"Hey thats my sister Anya" you exclaim. "Let''s just close the door and let them continue. They won''t mind, right Anya?"'
+		'Anya looks at you with a blissful smile, "No, I''m all for it. We''ll just keep fucking over here."'
+		'"No you won''t. You get your ass out of here already!" says Rex with a menacing expression on his face and the couple quickly leaves the room. He then gently puts you on a soft bed and lies down on the floor near you.'
+		if party_boys_in >= 1: '"Hey grandpa, do you need help?", one of the boys shouts.'
+		'Roma looks at them and says, "Shut up, you dumb fucks, you have your own bitch." The guys laugh a little and decide to leave the couple alone. Then they unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
+	elseif i = 4:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_5.jpg"></center>'
+		'The room is occupied by Lena, who is lying on a bed flashing her pussy. You can see cum dripping out of it.'
+		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
+		if party_boys_in >= 1: '"Hey look, there is another pretty girl. This seems to be our lucky night." one of the guys says.'
+		'Another one chimes in with a grin on his face, "Yeah, but she is already used and has cum on her. Our lovely little <<$pcs_nickname>> here is fresh and clean." With that the guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
+	elseif i = 5:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_6.jpg"></center>'
+		'However, the room you are dragged into is currently occupied by two guys fucking Lena.'
+		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
+		if party_boys_in >= 1: '"Do you mind, guys?" one of the boy asks with a grin.'
+		'"No, sit. There is room enough for everyone!" one of the guys who is fucking Lena answers.	The boys then unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
+	end
+	if Rex_save = 1: act 'Fall asleep': gt 'rex_party_smallEvents', 'sleep'
+	if party_boys_in >= 1: act 'Start to suck': gt 'rex_party_sexEvents', 'gangbang_indoor'
+end
+
+!Rex Room event 2
+if $ARGS[0] = 'talk':
+	cls
+	minut += 5
+	party_girls_talk += 1
+	gs 'stat'
+
+    $talkEvent[0] = 'You sit and chat with a couple of cute girls. One of them tells you, "I am dating a divorced man. He is very kinky and I''m afraid I can not keep up with it.'
+    $talkEvent[1] = 'You sit and chat with a couple of cute girls. One of them tells you, "I have a very childish voice. I sound like a Japanese schoolgirl. The guy I''m dating says he likes it, but I''m still insecure about it."'
+    $talkEvent[2] = 'You sit and chat with a couple of cute girls. One of them tells you, "I am dating the perfect man. Everything is great. The communication between us, the sex, I can discuss everything with him. But now he sent me a video, where he cums on a photo of me. The whole photo was covered in his cum eeww. Now I don''t want to see him anymore."'
+    $talkEvent[3] = 'You sit and chat with a couple of cute girls. One of them tells you, "I came home after going out with a guy, my knees were all red. When my mother saw it she seriously asked, if it was mosquito bites or allergies. I just nodded ashamed."'
+    $talkEvent[4] = 'You sit and chat with a couple of cute girls. One of them says, "Blowjob week during menstruation is for wimps! I want anal week!!"'
+    $talkEvent[5] = 'You sit and chat with a couple of cute girls. One of them tells you, "A friend of mine broke up with a girl so I asked him to come over and talk. I gave him a blowjob in the car to help him get over her."'
+    $talkEvent[6] = 'You sit and chat with a couple of cute girls. One of them tells you, "I felt so bad when I had to tell my mother that I lost my virginity over two years ago."'
+    $talkEvent[7] = 'You sit and chat with a couple of cute girls. One of them tells you, "After spending a day with my boyfriend in bed, his pillow always smells of his cologne. When he is not here I hug the pillow and masturbate. It feels amazing!"'
+    $talkEvent[8] = 'You sit and chat with a couple of cute girls. One of them tells you, "I love when, during sex, my boyfriend moans in my ear. His sighs really turn me on. I often hold my ear near his mouth on purpose just to hear him moan."'
+    $talkEvent[9] = 'You sit and chat with a couple of cute girls. One of them tells you, "I like how men go wild, when I touch them through their shorts. It really excites me and I do it as often as I can."'
+    $talkEvent[10] = 'You sit and chat with a couple of cute girls. One of them tells you, "A year and a half ago, an attractive neighbor moved in. I really want to fuck him and constantly try to seduce him with my outfits, but we haven''t had sex yet. I''m afraid he will move out soon.'
+    $talkEvent[11] = 'You sit and chat with a couple of cute girls. One of them tells you, "It really infuriates me, when I feel close to orgasm and then the guy wants to change position. It happens to me all the time."'
+    $talkEvent[12] = 'You sit and chat with a couple of cute girls. One of them tells you, "The guys really love it when I caress their cocks and use my fingers massaging their ass. Then I move the tongue in there and start licking greedily."'
+    $talkEvent[13] = 'You sit and chat with a couple of cute girls. One of them tells you, "I love to passionately kiss during sex, grab the guys ass and claw his back, mrrr."'
+    $talkEvent[14] = 'You sit and chat with a couple of cute girls. One of them tells you, "Life becomes a pain, when you wear a man out to such a degree, that he doesn''t want to have sex anymore. I love it when they almost beg you to wrap your lips around their cock."'
+    $talkEvent[15] = 'You sit and chat with a couple of cute girls. One of them tells you, "I met a guy once who immediately invited me to his home. I agreed and just like in every good affair we start kissing and undressing each other. But then I saw his small penis and broke down, laughing out loud. The guy didn''t seem hurt so I quickly sucked him off and went home. I haven''t seen him since."'
+    $talkEvent[16] = 'You sit and chat with a couple of cute girls. One of them tells you, "My childhood dream was to become an astronaut. Now I not only want to be one, but have sex with one too. Right there in space. I want to experience a cosmic orgasm!"'
+    $talkEvent[17] = 'You sit and chat with a couple of cute girls. One of them tells you, "My former boyfriend''s member was as big, as my whole arm. At first it hurt fucking him, but then I got used to it and really enjoyed it."'
+	i = rand(0,17)
+    '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
+	'<<$talkEvent[i]>>'
+    
+
+	act 'Move away': gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'smoke':
+	cls
+	minut += 5
+	gs 'stat'
+	if girls_smoke = 0:
+		girls_smoke = 1
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_3_1.jpg"></center>'
+		'"Girls, look what I stole from my worthless, addicted brother.", one of the girls says, showing you two bags of marijuana. "So, do you want to keep staring at me, or do you want to have fun?"'
+		act 'Start smoking': gt 'rex_party_smallEvents', 'smoke'
+		gs 'willpower', 'drugs', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Move away (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt $loc, $loc_arg
+			end
+		else
+			act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	else
+		girls_smoke += 1
+		pcs_horny += 30
+		joint += 1
+		gs 'drugs', 'joint'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_3_<<rand(2,6)>>.jpg"></center>'
+		'You pour some of the marijuana into the bowl, and fill water into the bong. Then you press a finger on the hole while using a lighter to burn the weed, drawing in smoke. After some time you begin to relax and embrace the mild euphoria.'
+		act 'Chill':
+			cls
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_4_<<rand(1,7)>>.jpg"></center>'
+			i = rand(1,5)
+			if i = 1:
+				'For a moment, you feel almost cut off from the outside world. Your body has found a general state of calm and relaxation. After a while the relaxing feeling goes away and you feel excitement wash over you.'
+			elseif i = 2:
+				'Almost instantly you feel an increased sensitivity to touch as well as an enhanced vision, hearing and sense of smell. You hear the voices of others much clearer, see <<$pcs_nickname>> much brighter and feel the whole range of odors.'
+			elseif i = 3:
+				'When you feel the effect you lose all sense of time as if everything stands still. Everyone speaks and moves very slowly and it seems like minutes are stretched into hours...'
+			elseif i = 4:
+				'You feel like you can fly, entering a state of nirvana. You absorb the feeling of unreality. Your attention to details is greatly increased, nothing can escape your view.'
+			elseif i = 5:
+				'The smoke makes you feel good, letting you focus on positive emotions. You are able to feel all kinds of effects, happy, pleased, delighted, euphoric.'
+			end
+			act 'Move away': gt $loc, $loc_arg
+		end
+	end
+end
+
+if $ARGS[0] = 'fun':
+	cls
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_5_<<rand(1,6)>>.jpg"></center>'
+	'The weed affects you greatly. It improves your mood and you become wildly aroused. "Well girls, why don''t we have some fun?"'
+	act 'Rejoice':
+		inhib_exp += rand(1,2)
+		fun_rand = rand(1,3)
+		if fun_rand = 1:
+			cls
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_1_<<rand(1,6)>>.jpg"></center>'
+			'You and the girls decide to have a contest for the best ass. You call over a couple of guys and stick out your butts for them to appraise. The drunk guys are all very impressed and it is difficult for them to settle on only one of the choices.'
+			if Rex_Love = 1: 'You show off your ass right in front of Rex.'
+			act 'Shake your booty':
+				cls
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_1_<<rand(7,11)>>.jpg"></center>'
+				'You seductively wag your ass. ' + iif(Rex_Love = 0,'One boy', 'Rex') + ' is standing right in front of you and you firmly press your buttocks in his palms. He exclaims, "Boys, I think I already know the winner!" You win the competition easily.'
+				act 'Move away': gt $loc, $loc_arg
+			end
+		elseif fun_rand = 2:
+			cls
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_<<rand(1,5)>>.jpg"></center>'
+			'You become very curious and tell they girls it would be fun to compare your boobs. They agree and you all lift your shirts and look at each others breasts, estimating the size and shape, complimenting each other''s boobs.'
+			act 'Further':
+				if rand(1,2) = 1:
+					cls
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_<<rand(1,5)>>.jpg"></center>'
+					'You enthusiastically examine each others breasts, when a couple of guys burst into the room. You decide that the guys should evaluate your boobs with their hands and call them closer.'
+					iif(Rex_Love = 0,'The guys have fun touching your boobs.', 'Rex is right in front of you and gently squeezes your breasts with his hands.')
+					gs 'willpower', 'sex', 'resist', 'medium'
+					if will_cost <= pcs_willpwr:
+						act 'Move away (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt $loc, $loc_arg
+						end
+					else
+						act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					act 'Moan':
+						cls
+						minut += 5
+						pcs_horny += 10
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_<<rand(6,7)>>.mp4"></video></center>'
+						'Getting touched by ' + iif(Rex_Love = 0,'one of the guys', 'Rex') + ' you can''t help but to start moaning. When ' + iif(Rex_Love = 0,'the guy', 'Rex') + ' notices he begins to caress you even more insistently, grabbing your breasts firmly and licking your nipples. "Hey baby, if you like it so much, maybe we should go further."	Then ' + iif(Rex_Love = 0,'the guy', 'Rex') + ' grabs you by the waist...'
+						act 'Surrender':
+							cls
+							if Rex_Love = 0:
+								guy += 1
+								gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
+								gs 'boyStat', $npclastgenerated
+							else
+								sexa += 1
+								if rexSex = 0: rexSex = 1 & guy += 1
+								gs 'boyStat', 'A57'
+							end
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_8.jpg"></center>'
+							'He pulls your clothes off and then lays down on his back on the floor, pulling his <<dick>>cm <<$dick_girth>> cock out. You climb on him straddling him, you lower yourself onto his cock, feeling is slip inside of your wet pussy, working your down till he is completely inside of you as deep as you can take him.'
+							'The two of you begin to rhythmically fuck in front of the others. The girls cheer you on fervently, filming everything on their phones. "Come on <<$pcs_nickname>>, move your ass faster." You feel his hard member inside of you, and soon realize that he is about to come.'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism'
+							act 'Let him come on you':
+								cls
+								minut += 5
+								pcs_horny += 10
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_9.jpg"></center>'
+								iif(Rex_Love = 0,'The guy', 'Rex') + ' quickly pulls his dick out of you and pushes you off him. He stands up while you remain on your knees, he jerks his dick a few times until he starts shooting his cum all over you, leaving streaks of semen on your chest and abdomen. After he finishes the other girls sit down next to you and have a lot of fun as they lick all the sperm off of your body.'
+								gs 'cum_call', 'stomach', $boy
+								gs 'arousal', 'cuni', 15, 'exhibitionism'
+								gs 'arousal', 'end'
+								cumspclnt = 14 & gs 'cum_cleanup'
+								act 'Move away': gt $loc, $loc_arg
+							end
+							act 'Move faster':
+								cls
+								minut += 5
+								pcs_horny += 10
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_9.jpg"></center>'
+								iif(Rex_Love = 0,'The guy', 'Rex') + ' you move faster as he requests, and you push him over the top. He halfheartedly tries to push you off him, but then it is too late. He shoots his load into you, as you rock back and forth on top of him. You stand up, his cock coming out trailing spent sperm across him. The other girls sit down, cleaning him up with their tongues.'
+								gs 'arousal', 'vaginal', 5, 'exhibitionism'
+								gs 'arousal', 'end'
+								gs 'Cum_Manage'
+								act 'Move away': gt $loc, $loc_arg
+							end
+						end
+					end
+				else
+					cls
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_<<rand(1,5)>>.jpg"></center>'
+					'You are having fun and get very excited. One of the girls, can''t resist and starts to lick your erect nipples, gently sucking on them and teasing them with her tongue. You enjoy it.'
+					gs 'willpower', 'cuni', 'resist', 'medium'
+					if will_cost <= pcs_willpwr:
+						act 'Move away (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt $loc, $loc_arg
+						end
+					else
+						act 'Move away (<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 > 50:
+						act 'Moan':
+							cls
+							minut += 10
+							orgasm += 1
+							pcs_horny = 0
+							pcs_mood = 100
+							lesbian += 1
+							gs 'stat'
+							if rand(1,2) = 1:
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_6.jpg"></center>'
+								'You can''t help but start to moan and the girls quickly spread you legs an begin to lick your holes in unison. You quickly come from the sensation of having every hole licked and caressed.'
+							else
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_7.jpg"></center>'
+								'You start to moan and the girls quickly lay you down on your back an start to caress you with their tongues. They take turns kissing you and licking your pussy, quickly bringing you to orgasm.'
+							end
+							act 'Move away': gt $loc, $loc_arg
+						end
+					end
+				end
+			end
+		elseif fun_rand = 3:
+			cls
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_<<rand(1,3)>>.jpg"></center>'
+			'You call in the guys and announce that you and the girls want to check out the contents of their pants. Excitedly they unzip their pants and pull out their dicks.'
+			iif(reksMeet = 1,'You have Rex'' member in front of you and compare it with your arm.', 'One of the more persistent guys comes up to you and you compare his penis with your arm.')
+			gs 'willpower', 'bj', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $loc_arg
+			else
+				act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+			act 'Suck him':
+				cls
+				gs 'arousal', 'bj', 5
+				if Rex_Love = 1: bja += 1
+				gs 'stat'
+				$party_suck = {
+					act 'Make him cum':
+						cls
+						minut += 5
+						spafinloc = 12
+						gs 'cum_manage'
+						spafinloc = 11
+						gs 'cum_manage'
+						
+						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.'
+						iif(Rex_Love = 0,'The guy', 'Rex') + ' cums hard, filling up your mouth and smearing sperm all over your face.'
+						act 'Move away': gt $loc, $loc_arg
+					end
+				}
+				if rand(1,2) = 1:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_4.jpg"></center>'
+					'Strong desire clouds your mind, and you grab ' + iif(Rex_Love = 0,'the guy''s', 'Rex''s') + ' member in full view of all the girls. You gently masturbate it with your hand, then take it in your mouth and begin to suck on its head.'
+					iif(Rex_Love = 0,'The guy', 'Rex') + ' can''t resist for long and starts...'
+					dynamic $party_suck
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_5.jpg"></center>'
+					'One of the girls takes the dick in front of her in her mouth. Feeling encouraged you take ' + iif(Rex_Love = 0,'the guy''s', 'Rex''s') + ' dick and gently masturbate it with your hand. Soon you put it in your mouth and begin to suck on its head, watching the other girl giving head at the same time.'
+					iif(Rex_Love = 0,'The guy', 'Rex') + ' can''t resist for long and starts...'
+					dynamic $party_suck
+				end
+			end
+		end
+	end
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Move away (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt $loc, $loc_arg
+		end
+	else
+		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+--- rex_party_smallEvents ---------------------------------

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